www.pudn.com > TimeFrequency.rar > log_tf.m

function fig = log_tf() 
screenrect=get(0,'screensize'); 
screenwidth=screenrect(3); 
screenheight=screenrect(4); 
figwidth=565; 
figheight=450; 
figposition=[(screenwidth/2-figwidth/2) ... 
    (screenheight/2-figheight/2)... 
    figwidth figheight]; 
func={'db3' 'sym2' 'sym3' 'morl'}; 
scale={'1:32' '1:64' '1:128'  '16:32' '1:4:32' '1:4:64' '100:1:400'}; 
cjcode={'AC/DT' 'CNL' 'DEN' 'GR' 'RT' 'SP'}; 
cjunit={'us/m' 'us/ft' '%' 'g/cm3' 'API' 'ΩM' 'mV'}; 
h10 = figure('Color',[0.8 0.8 0.8], ... 
	'PaperUnits','points', ... 
	'Tag','Figlog', ... 
    'Position',figposition ,... 
    'CreateFcn','LogtfCBack(''Init'')', ... 
     'name','测井时频分析工具（LogTF）',... 
    'numbertitle','off',... 
    'Resize','off',... 
    'menubar','none',... 
	'ToolBar','none'); 
h11=uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[0.8 0.8 1.0], ... 
	'FontSize',10, ... 
	'ListboxTop',0, ... 
	'Position',[10 160 405 148], ... 
	'String','', ... 
	'Style','frame', ... 
	'Tag','frame1'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[0.8 0.8 1.0], ... 
	'FontSize',10, ... 
	'ListboxTop',0, ... 
	'Position',[19.5 275.75 75 18.75], ... 
	'String','输入测井曲线:', ... 
	'Style','text', ... 
	'Tag','StaticText1'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[1 1 1], ... 
	'ListboxTop',0, ... 
	'Position',[95 279.75 225 18.75], ... 
    'HorizontalAlignment','left', ... 
	'Style','edit', ... 
	'Tag','logdata'); 
 h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[0.8 0.8 0.8], ... 
	'Callback','LogtfCBack(''browes'')', ... 
	'Position',[330 279.75 56.25 18.75], ... 
	'String','浏 览', ... 
	'Tag','browes'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[0.8 0.8 1.0], ... 
	'FontSize',10, ... 
	'ListboxTop',0, ... 
	'Position',[19.5 225.75 75 18.75], ... 
	'String','选择深度范围:', ... 
	'Style','text', ... 
	'Tag','StaticText1'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[1 1 1], ... 
	'ListboxTop',0, ... 
	'Position',[95 229.75 55 18.75], ... 
    'HorizontalAlignment','left', ... 
	'Style','edit', ... 
	'Tag','stdep'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[1 1 1], ... 
	'ListboxTop',0, ... 
	'Position',[180 229.75 55 18.75], ... 
    'HorizontalAlignment','left', ... 
	'Style','edit', ... 
	'Tag','eddep'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[0.8 0.8 1.0], ... 
	'FontSize',10, ... 
	'ListboxTop',0, ... 
	'Position',[235 225.75 25 18.75], ... 
	'String','米', ... 
	'Style','text', ... 
	'Tag','StaticText1'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[0.8 0.8 1.0], ... 
	'FontSize',10, ... 
	'ListboxTop',0, ... 
	'Position',[19.5 178.75 55 18.75], ... 
	'String','井 名：', ... 
	'Style','text', ... 
	'Tag','StaticText1'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[1 1 1], ... 
	'ListboxTop',0, ... 
	'Position',[75 179.75 55 18.75], ... 
    'HorizontalAlignment','left', ... 
	'Style','edit', ... 
	'Tag','wellname'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[0.8 0.8 1.0], ... 
	'FontSize',10, ... 
	'ListboxTop',0, ... 
	'Position',[130 178.75 55 18.75], ... 
	'String','曲线名:', ... 
	'Style','text', ... 
	'Tag','StaticText1'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[1 1 1], ... 
    'Callback','LogtfCBack(''cjcodesel'')', ... 
	'ListboxTop',0, ... 
	'Position',[180 179.75 55 18.75], ... 
    'HorizontalAlignment','left', ... 
    'String',cjcode,... 
	'Style','popupmenu', ... 
	'Tag','curvename'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[0.8 0.8 1.0], ... 
	'FontSize',10, ... 
	'ListboxTop',0, ... 
	'Position',[240 178.75 25 18.75], ... 
	'String','单 位:', ... 
	'Style','text', ... 
	'Tag','StaticText1'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[1 1 1], ... 
	'ListboxTop',0, ... 
	'Position',[270 179.75 45 18.75], ... 
    'HorizontalAlignment','left', ... 
    'String',cjunit(1:2),... 
	'Style','popupmenu', ... 
	'Tag','unit'); 
 h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[0.8 0.8 0.8], ... 
	'Callback','LogtfCBack(''readdep'')', ... 
	'Position',[280 229.75 56.25 18.75], ... 
	'String','深度范围', ... 
	'Tag','reflash'); 
h11=uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[1 0.8 1.0], ... 
	'FontSize',10, ... 
	'ListboxTop',0, ... 
	'Position',[10 60 405 90], ... 
	'String','', ... 
	'Style','frame', ... 
	'Tag','frame1'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[1 0.8 1.0], ... 
	'FontSize',10, ... 
	'ListboxTop',0, ... 
	'Position',[19.5 118.75 55 18.75], ... 
	'String','小波函数：', ... 
	'Style','text', ... 
	'Tag','StaticText1'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[1 0.8 1.0], ... 
	'FontSize',10, ... 
	'ListboxTop',0, ... 
	'Position',[79.5 120.75 55 18.75], ... 
    'String',func,... 
	'Style','popupmenu', ... 
	'Tag','wavefun',... 
    'Value',1); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[1 0.8 1.0], ... 
	'FontSize',10, ... 
	'ListboxTop',0, ... 
	'Position',[180 118.75 65 18.75], ... 
	'String','尺度范围：', ... 
	'Style','text', ... 
	'Tag','StaticText1'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[1 0.8 1.0], ... 
	'FontSize',10, ... 
	'ListboxTop',0, ... 
	'Position',[250 120.75 55 18.75], ... 
    'String',scale,... 
	'Style','popupmenu', ... 
	'Tag','scale',... 
    'Value',1); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[1 0.8 1.0], ... 
	'FontSize',10, ... 
	'ListboxTop',0, ... 
	'Position',[19.5 88.75 65 18.75], ... 
	'String','小波分解尺度：', ... 
	'Style','text', ... 
	'Tag','StaticText1'); 
h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[1 1 1], ... 
	'ListboxTop',0, ... 
	'Position',[89.5 88.75 55 18.75], ... 
    'HorizontalAlignment','left', ... 
	'Style','edit', ... 
	'Tag','wavedecn'); 
 h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[0.8 0.8 0.8], ... 
	'Callback','LogtfCBack(''computer'')', ... 
	'Position',[180 29.75 56.25 18.75], ... 
    'enable','off',... 
	'String','计 算', ... 
	'Tag','computer'); 
 h11 = uicontrol('Parent',h10, ... 
	'Units','points', ... 
	'BackgroundColor',[0.8 0.8 0.8], ... 
	'Callback','LogtfCBack(''exit'')', ... 
	'Position',[280 29.75 56.25 18.75], ... 
	'String','退 出', ... 
	'Tag','exit'); 
if nargout > 0, fig = h10; end