log_tf.asv

用于进行小波时频分析的matlab源码,可进行测井小波时频划分!

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' '16:32' '1:4:32' '1:4:64'};
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(''c'')', ...
	'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',[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