MATLAB 高斯光束傳播軌跡的模擬

1、B1：高斯光束傳播軌跡的模擬設(shè)計(jì)任務(wù)：作圖表示高斯光束的傳播軌跡（1）基模高斯光束在自由空間的傳播軌跡；（2）基模高斯光束經(jīng)單透鏡變換前后的傳播軌跡；（3）基模高斯光束經(jīng)調(diào)焦望遠(yuǎn)鏡變換前后的傳播軌跡。function varargout = B1(varargin)% 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 singl

2、eton*.% 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

3、gets called. An% unrecognized property name or invalid value makes property application% stop. All inputs are passed to B1_OpeningFcn via varargin.% *See GUI Options on GUIDEs Tools menu. Choose GUI allows only one% instance to run (singleton).% See also: GUIDE, GUIDATA, GUIHANDLES% Copyright 2002-2

4、003 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_Singleton = 1;gui_State = struct(gui_Name, mfilename, . gui_Singleton, gui_Singleton, . gui_OpeningFcn, B1_OpeningFcn, . gui_Ou

5、tputFcn, B1_OutputFcn, . gui_LayoutFcn, , . gui_Callback, );if nargin & ischar(varargin1) gui_State.gui_Callback = str2func(varargin1);endif nargout varargout1:nargout = gui_mainfcn(gui_State, varargin:);else gui_mainfcn(gui_State, varargin:);end% End initialization code - DO NOT EDIT% - Executes ju

6、st before B1 is made visible.function B1_OpeningFcn(hObject, eventdata, handles, varargin)% This function has no output args, see OutputFcn.% hObject handle to figure% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% vararg

7、in command line arguments to B1 (see VARARGIN)% Choose default command line output for B1handles.output = hObject;% Update handles structureguidata(hObject, handles);% UIWAIT makes B1 wait for user response (see UIRESUME)% uiwait(handles.figure1);% - Outputs from this function are returned to the co

8、mmand line.function varargout = B1_OutputFcn(hObject, eventdata, handles) % varargout cell array for returning output args (see VARARGOUT);% hObject handle to figure% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Get def

9、ault command line output from handles structurevarargout1 = handles.output;% - Executes on button press in pushbutton1.function pushbutton1_Callback(hObject, eventdata, handles)% hObject handle to pushbutton1 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles struc

10、ture with handles and user data (see GUIDATA)handles.W0=str2double(get(handles.editW0,string);handles.B=str2double(get(handles.editB,string); guidata(hObject,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 i

11、n pushbutton2.function pushbutton2_Callback(hObject, eventdata, handles)% hObject handle to pushbutton2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)handles.W0=str2double(get(handles.editW0,string);handles.B=s

12、tr2double(get(handles.editB,string)/1000;handles.Z=str2double(get(handles.editZ,string)*1000;handles.f=str2double(get(handles.editf,string)*10;L=(handles.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.B

13、2/(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-handles.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(hO

14、bject, eventdata, handles)% hObject handle to pushbutton3 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)handles.W0=str2double(get(handles.editW0,string);handles.B=str2double(get(handles.editB,string)/1000;handl

15、es.f1=str2double(get(handles.editf1,string)*10;handles.Z=str2double(get(handles.editZ,string)*1000;handles.f2=str2double(get(handles.editf2,string)*10;L=(handles.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+T

16、1.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);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

17、+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)% hObject handle to editW0 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUID

18、ATA)% Hints: get(hObject,String) returns contents of editW0 as text% str2double(get(hObject,String) returns contents of editW0 as a double% - Executes during object creation, after setting all properties.function editW0_CreateFcn(hObject, eventdata, handles)% hObject handle to editW0 (see GCBO)% eve

19、ntdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% 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

20、(0,defaultUicontrolBackgroundColor);endfunction editB_Callback(hObject, eventdata, handles)% hObject handle to editB (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,String) returns contents o

21、f editB as text% str2double(get(hObject,String) returns contents of editB as a double% - Executes during object creation, after setting all properties.function editB_CreateFcn(hObject, eventdata, handles)% hObject handle to editB (see GCBO)% eventdata reserved - to be defined in a future version of

22、MATLAB% handles empty - handles not created until after all CreateFcns called% 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);endfunction editZ_C

23、allback(hObject, eventdata, handles)% hObject handle to editZ (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,String) returns contents of editZ as text% str2double(get(hObject,String) returns

24、 contents of editZ as a double% - Executes during object creation, after setting all properties.function editZ_CreateFcn(hObject, eventdata, handles)% hObject handle to editZ (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after

25、 all CreateFcns called% 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);endfunction editf_Callback(hObject, eventdata, handles)% hObject handle to

26、 editf (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,String) returns contents of editf as text% str2double(get(hObject,String) returns contents of editf as a double% - Executes during objec

27、t creation, after setting all properties.function editf_CreateFcn(hObject, eventdata, handles)% hObject handle to editf (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: edit controls usually hav

28、e a white background on Windows.% See ISPC and COMPUTER.if ispc set(hObject,BackgroundColor,white);else set(hObject,BackgroundColor,get(0,defaultUicontrolBackgroundColor);endfunction editf1_Callback(hObject, eventdata, handles)% hObject handle to editf1 (see GCBO)% eventdata reserved - to be defined

29、 in a future version of MATLAB% handles structure with handles and 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.function e

30、ditf1_CreateFcn(hObject, eventdata, handles)% hObject handle to editf1 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: edit controls usually have a white background on Windows.% See ISPC and CO

31、MPUTER.if ispc set(hObject,BackgroundColor,white);else set(hObject,BackgroundColor,get(0,defaultUicontrolBackgroundColor);endfunction editf2_Callback(hObject, eventdata, handles)% hObject handle to editf2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure

32、 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.function editf2_CreateFcn(hObject, eventdata, handles)% hObject handle to editf2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created unti