MATLAB-高斯光束传播轨迹的模拟

1、B1：xx光束传播轨迹的模拟设计任务：作图表示xx光束的传播轨迹（1）基模高斯光束在自由空间的传播轨迹；（2）基模高斯光束经单透镜变换前后的传播轨迹；（3）基模高斯光束经调焦望远镜变换前后的传播轨迹。function vargout = B1(vargin)% B1 M-file for B1.fig%B1, by itself, creates a new B1 or raises the existing %singleton*.%H = B1 returns the handle to a new B1 or the handle to %the existing singleton*.

2、%B1(CALLBACK,hObject,eventData,handles,.) calls the local %function named CALLBACK in B1.M with the given input arguments.%B1(Property,Value,.) creates a new B1 or raises the %existing singleton*.Starting from the left, property value pairs are %applied to the GUI before B1_OpeningFunction gets call

3、ed.An %unrecognized property name or invalid value makes property application GUIDE, GUIDATA, GUIHANDLES % Copyright 2002-2003 The MathWorks, Inc.% Edit the above text to modify the response to help B1% Last Modified by GUIDE v2.5 21-Oct-2010 17:52:32% Begin initialization code - DO NOT EDITgui_Sing

4、leton = 1;gui_State = struct(gui_Name,mfilename, .gui_Singleton,gui_Singleton, . gui_Callback,);if nargin & ischar(vargin1)gui_State.gui_Callback = str2func(vargin1);end if nargout );else );end % End initialization code - DO NOT EDIT% - Executes just before B1 is made visible. % hObjecthandle to fig

5、ure % eventdatareserved - to be defined in a future version of MATLAB % handlesstructure with handles and user data (see GUIDATA) handles.output = hObject;% Update handles structureguidata(hObject, handles);% UIWAIT makes B1 wait for user response (see UIRESUME)% uiwait(handles.figure1); % vargoutce

6、ll array for returning output args (see VARGOUT);% hObjecthandle to figure % eventdatareserved - to be defined in a future version of MATLAB % handlesstructure with handles and user data (see GUIDATA) vargout1 = handles.output;% - Executes on button press in pushbutton1.function pushbutton1_Callback

7、(hObject, eventdata, handles)% hObjecthandle to pushbutton1 (see GCBO)% eventdatareserved - to be defined in a future version of MATLAB % handlesstructure with handles and user data (see GUIDATA)handles.W0=str2double(get(handles.editW0,string);handles.B=str2double(get(handles.editB,string);guidata(h

8、Object,handles);Z=-100:100;W=(handles.W0*104)*(sqrt(1+handles.B2*(Z*106).2./(pi2*(handles.W0*104)4);plot(Z,W,b,Z,-W,b);% - Executes on button press in pushbutton2.function pushbutton2_Callback(hObject, eventdata, handles)% hObjecthandle to pushbutton2 (see GCBO)% eventdatareserved - to be defined in

9、 a future version of MATLAB % handlesstructure with handles and user data (see GUIDATA)handles.W0=str2double(get(handles.editW0,string);handles.B=str2double(get(handles.editB,string)/1000;handles.Z=str2double(get(handles.editZ,string)*1000;handles.f=str2double(get(handles.editf,string)*10;L=(handles

10、.Z-handles.f)*handles.f2/(handles.Z-handles.f)2+pi2*handles.W04/handles.B2)+handles.f;T1=-handles.Z:1:handles.Z;Y1=handles.W0*sqrt(1+T1.2*handles.B2/(pi2*handles.W04);T2=handles.Z:1:(handles.Z+2*L);W1=(handles.W0*handles.f/sqrt(handles.f-handles.Z)2+pi2*handles.W04/handles.B2);Y2=W1*sqrt(1+(T2-handl

11、es.Z-L).2/(pi2*W14/handles.B2);plot(T1,Y1,b,T1,-Y1,b,T2,Y2,r,T2,-Y2,r);% - Executes on button press in pushbutton3.function pushbutton3_Callback(hObject, eventdata, handles)% hObjecthandle to pushbutton3 (see GCBO)% eventdatareserved - to be defined in a future version of MATLAB % handlesstructure w

12、ith handles and user data (see GUIDATA)handles.W0=str2double(get(handles.editW0,string);handles.B=str2double(get(handles.editB,string)/1000;handles.f1=str2double(get(handles.editf1,string)*10;handles.Z=str2double(get(handles.editZ,string)*1000;handles.f2=str2double(get(handles.editf2,string)*10;L=(h

13、andles.Z-handles.f1)*handles.f12/(handles.Z-handles.f1)2+pi2*handles.W04/handles.B2)+handles.f1;T1=-handles.Z:1:handles.Z;Y1=handles.W0*sqrt(1+T1.2*handles.B2/(pi2*handles.W04);T2=handles.Z:1:(handles.Z+L+handles.f2);W1=(handles.W0*handles.f1./sqrt(handles.f1-handles.Z)2+pi2*handles.W04./handles.B2)

14、;Y2=W1*sqrt(1+(T2-handles.Z-L).2./(pi2*W14/handles.B2);W2=W1*sqrt(1+handles.f22/(pi2*W14/handles.B2);T3=(handles.Z+L+handles.f2):1:3*(handles.Z+L+handles.f2);Y3=W2;plot(T1,Y1,b,T1,-Y1,b,T2,Y2,r,T2,-Y2,r,T3,Y3,g,T3,-Y3,g);grid on;function editW0_Callback(hObject, eventdata, handles)% hObjecthandle to

15、 editW0 (see GCBO)% eventdatareserved - to be defined in a future version of MATLAB % handlesstructure with handles and user data (see GUIDATA)% Hints: get(hObject,String) returns contents of editW0 as text%str2double(get(hObject,String) returns contents of editW0 as a double % - Executes during obj

16、ect creation, after setting all properties. % hObjecthandle to editW0 (see GCBO)% eventdatareserved - to be defined in a future version of MATLAB % Hint: edit controls usually have a white background on Windows.%See ISPC and COMPUTER.if ispc set(hObject,BackgroundColor,white);else set(hObject,Backgr

17、oundColor,get(0,defaultUicontrolBackgroundColor);end function editB_Callback(hObject, eventdata, handles)% hObjecthandle to editB (see GCBO)% eventdatareserved - to be defined in a future version of MATLAB % handlesstructure with handles and user data (see GUIDATA)% Hints: get(hObject,String) return

18、s contents of editB as text%str2double(get(hObject,String) returns contents of editB as a double % - Executes during object creation, after setting all properties. % hObjecthandle to editB (see GCBO)% eventdatareserved - to be defined in a future version of MATLAB % Hint: edit controls usually have

19、a white background on Windows.%See ISPC and COMPUTER.if ispc set(hObject,BackgroundColor,white);else set(hObject,BackgroundColor,get(0,defaultUicontrolBackgroundColor);end function editZ_Callback(hObject, eventdata, handles)% hObjecthandle to editZ (see GCBO)% eventdatareserved - to be defined in a

20、future version of MATLAB % handlesstructure with handles and user data (see GUIDATA)% Hints: get(hObject,String) returns contents of editZ as text%str2double(get(hObject,String) returns contents of editZ as a double % - Executes during object creation, after setting all properties. % hObjecthandle t

21、o editZ (see GCBO)% eventdatareserved - to be defined in a future version of MATLAB % Hint: edit controls usually have a white background on Windows.%See ISPC and COMPUTER.if ispc set(hObject,BackgroundColor,white);else set(hObject,BackgroundColor,get(0,defaultUicontrolBackgroundColor);end function

22、editf_Callback(hObject, eventdata, handles)% hObjecthandle to editf (see GCBO)% eventdatareserved - to be defined in a future version of MATLAB % handlesstructure with handles and user data (see GUIDATA)% Hints: get(hObject,String) returns contents of editf as text%str2double(get(hObject,String) ret

23、urns contents of editf as a double % - Executes during object creation, after setting all properties. % hObjecthandle to editf (see GCBO)% eventdatareserved - to be defined in a future version of MATLAB % Hint: edit controls usually have a white background on Windows.%See ISPC and COMPUTER.if ispc s

24、et(hObject,BackgroundColor,white);else set(hObject,BackgroundColor,get(0,defaultUicontrolBackgroundColor);end function editf1_Callback(hObject, eventdata, handles)% hObjecthandle to editf1 (see GCBO)% eventdatareserved - to be defined in a future version of MATLAB % handlesstructure with handles and

25、 user data (see GUIDATA)% Hints: get(hObject,String) returns contents of editf1 as text%str2double(get(hObject,String) returns contents of editf1 as a double % - Executes during object creation, after setting all properties. % hObjecthandle to editf1 (see GCBO)% eventdatareserved - to be defined in

26、a future version of MATLAB % Hint: edit controls usually have a white background on Windows.%See ISPC and COMPUTER.if ispc set(hObject,BackgroundColor,white);else set(hObject,BackgroundColor,get(0,defaultUicontrolBackgroundColor);end function editf2_Callback(hObject, eventdata, handles)% hObjecthand

27、le to editf2 (see GCBO)% eventdatareserved - to be defined in a future version of MATLAB % handlesstructure with handles and user data (see GUIDATA)% Hints: get(hObject,String) returns contents of editf2 as text%str2double(get(hObject,String) returns contents of editf2 as a double % - Executes during object creation, after setting all properties. % hObjecthandle to editf2 (see GCBO)% eventdatareserved - to be defined in a future version of MATLAB % Hint: edit