bl3ddemo.m

来自「beamlet变化的工具箱」· M 代码 · 共 409 行 · 第 1/2 页

%********************************************************
function BL3DDemo(action)
%Usage: BL3DDemo
%Description: Demo for paper 3D Beamlet
%Version: 6
%Author: Sou Cheng CHOI
%Date: May 5, 2002
%********************************************************
global plotOffset
global LastFigureNo 
global PaperName 
global MakeFigureFilePrefix
global IfNewWindow
global IfAddTitle 
global IfLoadData 
global StopPlot
global WLVERBOSE
global NRfigures
global CRfigures
global UnderConstructionFigures
% -------------------------------------------------------
LastFigureNo = 20;
PaperName = '3D Beamlet';
MakeFigureFilePrefix = 'Beamlet3Dfig';
NRfigures = {1}; 
CRfigures = {8,10,11};
UnderConstructionFigures = {20};
%--------------------------------------------------------

WLVERBOSE='No';
IfNewWindow = 0; 
IfAddTitle = 0; 
IfCompute = 0;

if nargin == 0,
        Initialize_GUI;
        c=get(gcf,'Children');
        [m,n]=size(c); 
        plotOffset = m;
        action = '';
end

if  isequal(action,'NewWindow'),
    IfNewWindow = get(findobj(gcf,'tag','newWindow'),'value');
    if IfNewWindow,BL3DDemo;end
elseif  isequal(action,'AddTitle'),
    IfAddTitle = get(findobj(gcf,'tag','iftitle'),'value');
elseif  isequal(action,'Compute'),
    IfCompute = get(findobj(gcf,'tag','IfCompute'),'value');
elseif isequal(action,'ploteach'),
  PlotFigure;
elseif isequal(action,'plotall'),
    StopPlot = 0;
    PlotAllFigures;
elseif  isequal(action,'stop'),  
    StopPlot = 1;
elseif  isequal(action,'seecode'),
    edit1 = get(findobj(gcf,'tag','edit1'),'value');
    if edit1 < 10, 
        s=strcat('0', num2str(edit1));
    else
        s=num2str(edit1);
    end
    s = ['edit', ' ', strcat(MakeFigureFilePrefix, s)];
    eval(s);
elseif  isequal(action,'CloseAllDemo'),
        CloseDemoFigures;
        ClearGlobalVariables;
end

%********************************************************
function Initialize_GUI 
%********************************************************
% -------------------------------------------------------
fs = 9; %default font size
% -------------------------------------------------------
global LastFigureNo 
global PaperName;
    %CloseDemoFigures
    %close all
    figure;
    figureNoList = (1:LastFigureNo)';
	%clf reset;
	set(gcf,'pos', [50   55   560*1.45   420*1.45], 'Name', PaperName, 'NumberTitle','off');
	set(gcf,'doublebuffer','on','userdata',1);
        
     uicontrol('tag','newWindow', 'style','checkbox', ...
         'units','normal',  'position',[.85 .92, .12 .05], ... 
         'string','New Window', 'fontsize',fs, ...
         'userdata',0, 'backgroundcolor', [0.8 0.8 0.8],...
         'callback','BL3DDemo(''NewWindow'')');	

     uicontrol('tag','iftitle', 'style','checkbox', ...
         'units','normal',  'position',[.85 .88, .12 .05], ... 
         'string','Title',  'fontsize',fs, ...
         'userdata',0,      'backgroundcolor', [0.8 0.8 0.8],...
         'callback','BL3DDemo(''AddTitle'')');	
 
     uicontrol( 'tag','IfCompute',   'style','checkbox', ...
         'units','normal', 'position',[.85 .84, .12 .05], ... 
         'string','Compute',  'fontsize',fs, ...
         'userdata',0,  'backgroundcolor', [0.8 0.8 0.8],...
         'callback','BL3DDemo(''Compute'')');
    uicontrol( 'tag','text1',    'style','text', ...
         'units','normal', 'position', [.85 .79, .12 .04], ... 
         'string','Figure','backgroundcolor', [0.8 0.8 0.8],...
         'fontsize',fs);
    uicontrol('tag','text2', 'style','text', ...    
         'units','normal',   'position', [.04 .93, .7 .04], ... 
         'string','',    'backgroundcolor', [0.8 0.8 0.8],...
         'fontsize',fs);
     uicontrol( 'tag','text3', 'style','text', ...
         'units','normal',  'position', [.04 .01, .7 .04], ... 
         'string','',   'backgroundcolor', [0.8 0.8 0.8],...
         'fontsize',fs);
	uicontrol( 'tag','edit1', 'style','list', ...
         'units','normal',   'position',[.85 .50 .12 .30], ...
         'string',{num2str(figureNoList)}, 'backgroundcolor',[0.8 0.8 0.8], ...
         'fontsize',fs,  'callback','BL3DDemo(''ploteach'')');


     uicontrol( 'tag','RunAllFig', 'style','pushbutton', ...
         'units','normal',  'position',[.85 .40 .12 .06], ...
         'string','Run All Fig' ,  'fontsize',fs, ...
         'interruptible','on',   'callback','BL3DDemo(''plotall'')');
     
     uicontrol( 'tag','stop',  'style','pushbutton', ...
         'units','normal',   'position',[.85 .32 .12 .06], ... 
         'string','Stop',    'fontsize',fs, ...
         'userdata',0,   'callback','BL3DDemo(''stop'');');
         %'callback','set(gcbo,''userdata'',1)');	
     uicontrol(  'tag','SeeCode',   'style','pushbutton', ...
         'units','normal',   'position',[.85 .24 .12 .06], ...
         'string','See Code' ,   'fontsize',fs, ...
         'callback', 'BL3DDemo(''seecode'')');
     uicontrol(  'style','pushbutton',    'units','normal', ...
         'position',[.85 .16 .12 .06],   'string','Close', ...
         'fontsize',fs,   'callback','close');
     uicontrol(  'style','pushbutton',  'units','normal', ...
         'position',[.85 .08 .12 .06],   'string','Close All', ...
         'fontsize',fs, 'callback','BL3DDemo(''CloseAllDemo'')');

%********************************************************
function PlotFigure
%********************************************************
global MakeFigureFilePrefix  
global IfNewWindow 
global IfAddTitle
global IfCompute
global NRfigures
global CRfigures
global UnderConstructionFigures
    DeleteSubplots;
    %set(gcf,'Visible', 'off');
    edit1 = get(findobj(gcf,'tag','edit1'),'value'); 
    IfAddTitle = get(findobj(gcf,'tag','iftitle'),'value');
    IfCompute = get(findobj(gcf,'tag','IfCompute'),'value');
    %IfNewWindow = get(findobj(gcf,'tag','newWindow'),'value');
    IfNewWindow = 0; 

    if edit1 < 10, 
        s=strcat('0', num2str(edit1));
    else
        s=num2str(edit1);
    end
    IfLoadData = ~IfCompute;
    switch edit1,
        case UnderConstructionFigures
            fprintf('\n\nFigure %d is still under construction', edit1);
        case NRfigures
            s=[strcat(MakeFigureFilePrefix, s), '(', num2str(IfNewWindow), ')'];
                fprintf('\n\n\nLoading Data for Figure %d...\n', edit1);
			    %    tic;
                eval(s);
                fprintf('\nData Loaded.  Figure %d generated.\n', edit1);
        case CRfigures
            s=[strcat(MakeFigureFilePrefix, s), '(', num2str(IfNewWindow), ',', num2str(IfAddTitle),',', num2str(IfLoadData),')'];
            if IfLoadData,
                fprintf('\n\n\nLoading Data for Figure %d...\n', edit1);
			    %    tic;
                eval(s);
                fprintf('\nData Loaded.  Figure %d generated.\n', edit1);
			    %     toc,    
            else 
                fprintf('\n\n\nComputing for Figure %d...\n', edit1);
                eval(s);
                fprintf('\nComputations done.  Figure %d generated.\n', edit1);
            end
        otherwise  
            s=[strcat(MakeFigureFilePrefix, s), '(', num2str(IfNewWindow), ',', num2str(IfAddTitle),')'];
            fprintf('\n\n\nComputing for Figure %d...\n', edit1);
		%    tic;
            eval(s);
            fprintf('\nComputations done.  Figure %d generated.\n', edit1);
		%     toc,
    end
   
    WriteCaptions(edit1);
    AdjustSubplots;
    titles= ['Figure ', num2Str(edit1)];
    text1 = findobj(gcbo,'tag','text1');
    set(text1,'string', titles);  

    %set(gcf,'Visible', 'on');
%********************************************************