dcrtfig05.m

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

function dcrtfig05(OpenNewWindow,HaveTitle,LoadData)
if nargin<2
    HaveTitle=1;
end
if nargin<1
    OpenNewWindow=1;
end
if OpenNewWindow
    figure
end
global BEAMLABPATH
global PATHNAMESEPARATOR
if ~LoadData,
    PrepareThreshCurvelet([BEAMLABPATH 'Datasets' PATHNAMESEPARATOR 'CurvPublish' PATHNAMESEPARATOR], 'BigMac','ReadRaw1(''BigMac'');')
    DoUnifThreshCurvelet([BEAMLABPATH 'CurvPublish\BigMac\'],'Thresh_2000_400','BigMac', 2000,400,0,0);
end
ViewThreshCurvelet2([BEAMLABPATH 'CurvPublish\BigMac\'],'Thresh_2000_400','BigMac',0);
if HaveTitle
    title('Curvelet Coefficients and stages of Curvelet Synthesis')
end

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