dbmiafig11.m

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

function dBMIAfig11(varargin)
% dBMIAfig11.m -- Figure 11 of  Beamlets and Multiscale Image Analysis
% Usage: dBMIAfig11 will start a new figure window and plot Figure 11 of  Beamlets and Multiscale Image Analysis.
%        dBMIAfig11(n) for any argument type n will plot the figure on the current figure 
%        window and plot Figure 11 of  Beamlets and Multiscale Image Analysis.
if nargin == 0
	 figure;
else
     gcf;
end

%clc; close all;
fprintf('\n');
disp('Figure 11')
disp('The *scale-thickness graph* of three different *sets* at various')
disp('scales. The left column gives the original curve(s). The right column')
disp('gives the corresponding thickness--scale plots, which portray')
disp('the sum of squares of all thicknesses at each given scale.')

%fig11draw;
  load fig11data;
  % figure-1
  %figure(1); clf; subplot(121); 
  subplot(3,2,1);
  AutoImage(-img1); axis image; title('Circle'); 
  subplot(3,2,2);
  %subplot(122); 
  plot(scale,betaThick1); hold on; plot(scale,betaThick1,'d'); 
  axis([2 10 10 60]); axis square; title('Beta Thickness'); %drawnow;
  % figure-2
  %figure(2); clf; subplot(121); 
  subplot(3,2,3); 
  AutoImage(-img2); 
  axis image; title('Random Walk'); %subplot(122); 
  subplot(3,2,4);
  plot(scale,betaThick2); 
  hold on; plot(scale,betaThick2,'d'); 
  axis square; title('Beta Thickness'); %drawnow;
  % figure-3
  %figure(3); subplot(121); 
  subplot(3,2,5);
  AutoImage(-img3); axis image; title('Snow Flake'); 
  subplot(3,2,6);
  %subplot(122); 
  plot(scale,betaThick3); hold on; plot(scale,betaThick3,'d'); 
  axis square; title('Beta Thickness'); drawnow;
fprintf('\n');

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


%
% 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]
%