pfigure.m

三谱混合相位子波估计！！ 这是我的一篇文章所涉及到的matlab 源代码

function figure_handle=pfigure
% Function creates a figure window in portrait mode
% Written by: E. R.: March 2000
% Last updated: August 16, 2003: Use S4M
%
%         figure_handle=pfigure
% OUTPUT
% figure_handle  figure handle (optional)

global S4M

if isempty(S4M)
   presets
end

figure_handle=figure;
set(figure_handle,'Position',S4M.portrait,'PaperPosition',[0.8 0.5 6.5,8.0], ...
        'PaperOrientation','portrait','Color','w', ...
        'InvertHardcopy',S4M.invert_hardcopy);             
figure(figure_handle)

set(gca,'Position',[0.14,0.08,0.75,0.8],'FontName',S4M.font_name);

if nargout == 0
   clear figure_handle
end