bmiafig09.m

来自「beamlet变化的工具箱」· M 代码 · 共 80 行

function BMIAfig09(OpenNewWindow,HaveTitle,LoadData)

if nargin<2
    HaveTitle=1;
end
if nargin<1
    OpenNewWindow=1;
end
if OpenNewWindow
    figure
end

% BMIAfig09:
%clc; close all;
fprintf('\n');
disp('Figure 9')
disp('For the Picasso image, we plot the beamlets at each of ')
disp('several scales whose coefficients exceed a predetermined')
disp('threshold.')
fprintf('\n');
disp('Warning: It takes some time to generate the figures.')

%fig09draw;
if LoadData==0, 
  fig09work; 
else%if k==1, 
  disp('You need to download the file "fig09data.mat" on the web.')
  disp('To download, visit "http://www.isye.gatech.edu/~beamlab/data/".')
  disp('Install the data file at [Your BeamLab Directory]/Applications/BDRDP/.')
  disp('Now waiting...');
  pause;
  disp('Loading the data...');
  load fig09data;
  %figure(1); clf; 
  subplot(321);
  AutoImage(img_s); ax = axis; 
  disp('Creating the 2nd figure...');
  thr = .55; cnt=2; 
  %figure(2); clf; 
  subplot(322);
  fig09d_frag1; 
  disp('Creating the 3rd figure...');
  thr = .6;  cnt=3; 
  %figure(3); clf; 
  subplot(323);
  fig09d_frag1; 
  disp('Creating the 4th figure...');
  thr = .75; cnt=4; 
  %figure(4); clf; 
  subplot(324);
  fig09d_frag1; 
  disp('Creating the 5th figure...');
  thr = .80; cnt=5; %figure(5); clf; 
  subplot(325);
  fig09d_frag1; 
  disp('Creating the 6th figure...');
  thr = .99; cnt=6; %figure(6); clf;
  subplot(326);
  fig09d_frag1; 
end;

fprintf('\n');

disp('For more information, visit subdirectory [Applications/BDRDP].');
disp('*** END Figure 9 ***');

%
% Part of BeamLab Version:200
% Built:Friday,23-Aug-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%
%
% Part of BeamLab Version:200
% Built:Saturday,14-Sep-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%