光学追迹的一个实现程序

近轴光学的光学用几何光学的形式可以解决，这里有一个实现案例，可以给学习的过程提供一个思考

function varargout = GOA（varargin）
% GOA M-file for GOA.fig
%      GOA by itself creates a new GOA or raises the existing
%      singleton*.
%
%      H = GOA returns the handle to a new GOA or the handle to
%      the existing singleton*.
%
%      GOA（‘CALLBACK‘hobjecteventDatahandles...） calls the local
%      function named CALLBACK in GOA.M with the given input arguments.
%
%      GOA（‘Property‘‘Value‘...） creates a new GOA or raises the
%      existing singleton*.  Starting from the left property value pairs are
%      applied to the GUI before GOA_OpeningFcn gets called.  An
%      unrecognized property name or invalid value makes property
%      application
%      stop.  All inputs are passed to GOA_OpeningFcn via varargin.
%
%      *See GUI Options on GUIDE‘s Tools menu.  Choose “GUI allows only one
%      instance to run （singleton）“.
%
% See also: GUIDE GUIDATA GUIHANDLES

% Edit the above text to modify the response to help GOA

% Last Modified by GUIDE v2.5 19-Sep-2010 19:05:48

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct（‘gui_Name‘       mfilename ...
                   ‘gui_Singleton‘  gui_Singleton ...
                   ‘gui_OpeningFcn‘ @GOA_OpeningFcn ...
                   ‘gui_OutputFcn‘  @GOA_OutputFcn ...
                   ‘gui_LayoutFcn‘  []  ...
                   ‘gui_Callback‘   []）;
if nargin && ischar（varargin{1}）
    gui_State.gui_Callback = str2func（varargin{1}）;
end

if nargout
    [varargout{1:nargout}] = gui_mainfcn（gui_State varargin{:}）;
else
    gui_mainfcn（gui_State varargin{:}）;
end
% End initialization code - DO NOT EDIT


% --- Executes just before GOA is made visible.
function GOA_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）
% varargin   command line arguments to GOA （see VARARGIN）

% Choose default command line output for GOA
handles.output = hobject;

if ~isfield（handles‘initialized‘）

    set（handles.mode1_togglebutton‘Value‘0）;
    set（handles.mode1_panel‘Visible‘‘off‘）;
    set（handles.mode2_togglebutton‘Value‘1）;
    set（handles.mode2_panel‘Visible‘‘on‘）;
    
    set（handles.noniso_checkbox‘Visible‘‘off‘）;
    set（handles.clnoniso_text‘Visible‘‘off‘）;
    set（handles.clengthx_edit‘Visible‘‘off‘）;
    set（handles.clengthy_edit‘Visible‘‘off‘）;
    set（handles.cliso_text‘Visible‘‘on‘）;
    set（handles.clength_edit‘Visible‘‘on‘）;
    set（handles.x_text‘Visible‘‘off‘）;
    set（handles.y_text‘Visible‘‘off‘）;
    
    set（handles.singleresults_panel‘Visible‘‘off‘）;
    set（handles.totalresults_panel‘Visible‘‘off‘）;
    set（handles.output_panel‘Visible‘‘on‘）;
    
    handles.version = 1.01;
    handles.versionlimit = 1.01;
    handles.versionlimit_RSG = 1.01; % earliest version of RSG supported
    
    

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件       40315  2010-10-01 19:22  GOA.fig
     文件       19486  2010-10-01 20:36  goa2D.m
     文件       34815  2010-10-01 20:36  goa3D.m
     文件      182450  2010-12-15 19:24  GOA.m