kriging3dfig.m

来自「Kriging插值matlab toolbox」· M 代码 · 共 817 行 · 第 1/2 页

hdl.krig.blksize = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'FontWeight','bold', ...
	'BackgroundColor',grey, ...
	'Position',[x0+Lvarstr+dx y0-3*dy+0.01 Lvarstr Ly], ...
   'String','Block Size', ...
   'Enable','off',...
   'Style','text');
% block size - nx
hdl.krig.blk_X = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'FontWeight','bold', ...
	'BackgroundColor',grey, ...
	'HorizontalAlignment','center', ...
	'Position',[x0+2*(Lvarstr+dx) y0-2*dy Lvalue_blk Ly], ...
   'Enable','off',...
	'String','X', ...
	'Style','text');
hdl.krig.blk_nx = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
   'Position',[x0+2*(Lvarstr+dx) y0-3*dy+0.01 Lvalue_blk Ly], ...
	'String',' ', ...
   'Enable','off',...
	'Style','edit', ...
	'Tag','Krigblk_nx');
% block size - ny
hdl.krig.blk_Y = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'HorizontalAlignment','center', ...
	'Position',[x0+2*Lvarstr+Lvalue_blk+3*dx y0-2*dy Lvalue_blk Ly], ...
  	'FontWeight','bold', ...
	'Enable','off',...
	'String','Y', ...
	'Style','text');
hdl.krig.blk_ny = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Position',[x0+2*Lvarstr+Lvalue_blk+3*dx y0-3*dy+0.01 Lvalue_blk Ly], ...
   'Enable','off',...
	'String',' ', ...
	'Style','edit', ...
   'Tag','Krigblk_ny');
% block size - nz
hdl.krig.blk_Z = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
   'Enable','off',...
	'HorizontalAlignment','center', ...
	'Position',[x0+2*Lvarstr+2*Lvalue_blk+4*dx y0-2*dy Lvalue_blk Ly], ...
	'FontWeight','bold', ...
	'String','Z', ...
	'Style','text');
hdl.krig.blk_nz = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Position',[x0+2*Lvarstr+2*Lvalue_blk+4*dx y0-3*dy+0.01 Lvalue_blk Ly], ...
	'String',' ', ...
   'Enable','off',...
	'Style','edit', ...
	'Tag','Krigblk_nz');

%% kriging Parameters
h1 = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'FontWeight','bold', ...
	'HorizontalAlignment','left', ...
	'Position',[x0+2*dx y0-4.3*dy Lvarstr+0.01 Ly], ...
	'String','Parameters', ...
   'Style','text');
%% search radius
h1 = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'Position',[x0+Lvarstr y0-5*dy Lslider Ly], ...
	'String','Search Radius', ...
	'Style','text');
hdl.krig.srad = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Position',[x0+Lvarstr+Lslider y0-5*dy Lvalue+dx Ly], ...
	'String','', ...
	'Style','edit', ...
	'Tag','srad');
%% minimum krig points
h1 = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'Position',[x0+Lvarstr y0-6*dy Lslider Ly], ...
	'String','Min. Kriging Points', ...
	'Style','text');
hdl.krig.kmin = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Position',[x0+Lvarstr+Lslider y0-6*dy Lvalue+dx Ly], ...
	'String',' ', ...
	'Style','edit', ...
	'Tag','kmin');
%% maximum krig points
h1 = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'Position',[x0+Lvarstr y0-7.0*dy Lslider Ly], ...
	'String','Max. Kriging Points', ...
	'Style','text');
hdl.krig.kmax = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Position',[x0+Lvarstr+Lslider y0-7*dy Lvalue+dx Ly], ...
	'String',' ', ...
	'Style','edit', ...
	'Tag','kmax');
%% relative variance limit
h1 = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'Position',[x0+Lvarstr y0-8.0*dy Lslider Ly], ...
	'String','Relative Variance', ...
	'Style','text');
hdl.krig.elim = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Position',[x0+Lvarstr+Lslider y0-8.0*dy Lvalue+dx Ly], ...
	'String','', ...
	'Style','edit', ...
	'Tag','elim');

%% Load/Save Parameter file frame
x00=0.08;y00=0.25;Yf=.23;
Lvarstr=0.15;Lvalue=0.08;Lslider=0.13;dx=0.005;
dy=0.05;
x0=0.12;y0=y00+Yf-dy;
h1 = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'Position',[x00 y00 0.40 Yf], ...
	'Style','frame', ...
	'Tag','FrmParaFile');
h1 = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'FontSize',10, ...
	'FontWeight','bold', ...
	'ForegroundColor',[0 0 1], ...
	'Position',[x00+0.07 y00+Yf-0.015 0.2 Ly], ...
	'String','Parameter File', ...
	'Style','text');

Lparafile=0.22;
hdl.krig.load_para = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'Callback','radio_action(3,1)', ...
	'FontWeight','bold', ...
	'Position',[x00+0.01 y00+Yf-1.5*dy Lslider+0.02 Ly], ...
	'String','Load File', ...
	'Style','radio', ...
	'Tag','LoadParaFile');
hdl.krig.save_para = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'Callback','radio_action(3,2)', ...
	'FontWeight','bold', ...
	'Position',[x00+Lslider+0.03 y00+Yf-1.5*dy Lslider+0.05 Ly], ...
	'String','Save  File', ...
	'Style','radio', ...
	'Tag','SaveParaFile');
hdl.krig.vario_para = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'Callback','radio_action(3,3)', ...
	'FontWeight','bold', ...
	'Position',[x00+0.01 y00+Yf-2.6*dy Lparafile Ly], ...
	'String','variogram parameters only', ...
	'Style','radio', ...
	'Enable','off', ...
	'Tag','VarioParaFile');
hdl.krig.krig_para = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'Callback','radio_action(3,4)', ...
	'FontWeight','bold', ...
	'Position',[x00+0.01 y00+Yf-3.4*dy Lparafile Ly], ...
	'String','kriging parameters only', ...
	'Style','radio', ...
	'Enable','off', ...
	'Tag','KrigParaFile');
hdl.krig.both_para = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'Callback','radio_action(3,5)', ...
	'FontWeight','bold', ...
	'Position',[x00+0.01 y00+Yf-4.2*dy Lparafile Ly], ...
	'String','both parameters ', ...
	'Style','radio', ...
	'Enable','off', ...
	'Tag','BothParaFile');
hdl.krig.para_file_browser = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'Callback','file_browser3d(3,1)', ...
	'Position',[x00+0.05+dx+Lparafile y00+Yf-3.4*dy Lvalue Ly], ...
	'String','Browse', ...
   'Enable','off', ...
	'Tag','ParaFileBrowser');

%% Load data file frame
x00=0.08;y00=0.06;Yf=.12;
Lvarstr=0.15;Lvalue=0.06;Lslider=0.15;dx=0.005;dy=0.045;
x0=0.12;y0=y00+Yf-1.3*dy;
h1 = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'Position',[x00 y00 0.40 Yf], ...
	'Style','frame', ...
	'Tag','FrmdataFile');
h1 = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'HorizontalAlignment','left', ...
	'FontSize',10, ...
	'FontWeight','bold', ...
	'ForegroundColor',[0 0 1], ...
	'Position',[x00+0.07 y00+Yf-0.015 0.2 0.04], ...
	'String','Data File', ...
	'Style','text');

hdl.krig.load_data_format_file = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'Callback','radio_action(3,9)', ...
	'HorizontalAlignment','left', ...
	'FontSize',8, ...
	'FontWeight','bold', ...
	'Position',[x00+0.01 y0 Lvarstr Ly], ...
	'String','Load Data Format', ...
	'Style','radio', ...
	'Tag','LoadDataFormatFile');
hdl.krig.data_format_file_browser = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'Callback','file_browser3d(3,9)', ...
	'Position',[x00+0.13 y0 Lvalue Ly], ...
	'String','Browse', ...
    'Enable','off', ...
	'Tag','DataFormatFileBrowser');
hdl.krig.load_data_file = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'HorizontalAlignment','left', ...
	'BackgroundColor',grey, ...
	'FontSize',8, ...
	'Callback','radio_action(3,6)', ...
	'FontWeight','bold', ...
	'Position',[x00+0.15+Lvalue y0 Lvarstr Ly], ...
	'String','Load Data File', ...
	'Style','radio', ...
	'Tag','LoadDataFile');
hdl.krig.data_file_browser = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'Callback','file_browser3d(3,2)', ...
	'Position',[x00+0.26+Lvalue y0 Lvalue Ly], ...
	'String','Browse', ...
   'Enable','off', ...
	'Tag','DataFileBrowser');
hdl.krig.data_file = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'HorizontalAlignment','left', ...
	'Position',[x00+0.04 y0-dy 0.25 0.8*Ly], ...
	'String',' ', ...
	'Style','edit', ...
    'visible','off', ...
	'Tag','DataFileName');

%% batch processing
%%  frame
x00=0.51;y00=0.18;Yf=.18;
Lvarstr=0.22;Lvalue=0.08;Lslider=0.15;dx=0.005;dy=0.045;
x0=0.52;y0=y00+Yf-1.5*dy;
h1 = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'Position',[x00 y00 0.40 Yf], ...
	'Style','frame', ...
	'Tag','FrmBatch');
hdl.krig.batch_file_proc  = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'Callback','radio_action(3,7)', ...
	'FontSize',10, ...
	'FontWeight','bold', ...
	'ForegroundColor',[0 0 1], ...
	'Position',[x00+0.07 y00+Yf-0.015 0.30 0.04], ...
	'String','Batch Processing', ...
	'Style','radio');

hdl.krig.batch_data_file = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'FontWeight','bold', ...
	'HorizontalAlignment','left', ...
	'Position',[x00+0.02+Ly y0 Lvarstr Ly], ...
	'String','Load filename-list file', ...
   'enable','off', ...
	'Style','text');
hdl.krig.batch_data_file_browser = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'Callback','file_browser3d(3,6)', ...
	'Position',[x00+0.3 y0 Lvalue Ly], ...
	'String','Browse', ...
   'Enable','off', ...
	'Tag','LoadBatFileBrowser');
hdl.krig.batch_log_file = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'BackgroundColor',grey, ...
	'FontWeight','bold', ...
	'Position',[x00+0.02+Ly y0-dy Lvarstr Ly], ...
	'HorizontalAlignment','left', ...
   'enable','off', ...
	'String','Save batch log file', ...
	'Style','text');
hdl.krig.batch_log_file_browser = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'Callback','file_browser3d(3,7)', ...
	'Position',[x00+0.3 y0-dy Lvalue Ly], ...
	'String','Browse', ...
   'Enable','off', ...
	'Tag','DataFileBrowser');
hdl.krig.batch_krig = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'Callback','batch_krig', ...
	'FontWeight','bold', ...
	'Position',[x00+0.3-Lvalue y0-2*dy 2*Lvalue Ly], ...
	'String','Batch Krig', ...
   'Enable','off', ...
	'Tag','BatchKrig');

%% push buttons
pbtn_w=hdl.object.pushbtn_w;
pbtn_l=hdl.object.pushbtn_l;
hdl.krig.krig_button = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'Callback','krig3dmanager', ...
	'FontSize',10, ...
	'FontWeight','bold', ...
	'Position',[0.6 0.05+pbtn_w+0.01  pbtn_l pbtn_w], ...
	'String','Krig', ...
	'Tag','Krig');
h1 = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'Callback','set3dkrigpara(1)', ...
	'FontSize',10, ...
	'FontWeight','bold', ...
	'Position',[0.60 0.05 pbtn_l pbtn_w], ...
	'String','Refresh', ...
	'Tag','Refresh');
h1 = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'Callback','figure(hdl.navigator.h0)', ...
	'FontSize',10, ...
	'FontWeight','bold', ...
	'Position',[0.80 0.05+pbtn_w+0.01  pbtn_l pbtn_w], ...
	'String','Navigator', ...
	'Tag','Navigator');
h1 = uicontrol('Parent',hdl.krig.h0, ...
	'Units','normalized', ...
	'Callback','close_window(3)', ...
	'FontSize',10, ...
	'FontWeight','bold', ...
	'Position',[0.80 0.05  pbtn_l pbtn_w], ...
	'String','Quit', ...
	'Tag','QuitKrig');

if 0
set(gcf,'menubar','none');
hdl.krig.h1=uimenu(hdl.krig.h0,'label','&File','separator','on');
hdl.krig.h1a=uimenu(hdl.krig.h1,'label','&Load Parameters','separator','on');
hdl.krig.h1a1=uimenu(hdl.krig.h1a,'label','Variogram Parameters','callback','file_browser(3,3,1);','separator','on');
hdl.krig.h1a2=uimenu(hdl.krig.h1a,'label','Kriging Parameters','callback','file_browser(3,3,2);','separator','on');
hdl.krig.h1a3=uimenu(hdl.krig.h1a,'label','Both Parameter Structures','callback','file_browser(3,3,3);','separator','on');
hdl.krig.h1b=uimenu(hdl.krig.h1,'label','Save &Parameters','callback','file_browser(3,4);','separator','on');
hdl.krig.h1c=uimenu(hdl.krig.h1,'label','L&Oad Data','callback','file_browser(3,5);','separator','on');
hdl.krig.h1d=uimenu(hdl.krig.h1,'label','&Quit','callback','close_window(3)','separator','on');

h2= uimenu('Parent',hdl.krig.h0,'label','&Navigator');
h2a=uimenu(h2,'label','&Open','callback','figure(hdl.navigator.h0);');
h3= uimenu('Parent',hdl.krig.h0,'label','&Load Data');
h3a= uimenu(h3,'label','&Open','callback','dataprep3dfig;');
h3b= uimenu(h3,'label','&Close','callback','close_window(1);');
h4=uimenu('Parent',hdl.krig.h0,'label','&Variogram');
h4a= uimenu(h4,'label','&Open','callback','variogram3dfig;');
h4b= uimenu(h4,'label','&Close','callback','close_window(2);');
h6= uimenu('Parent',hdl.krig.h0,'label','&Display');
h6a= uimenu(h6,'label','&Open','callback','visualization3dfig;');
h6b= uimenu(h6,'label','&Close','callback','close_window(4);');
h9= uimenu('Parent',hdl.krig.h0,'label','&Quit');
h9a= uimenu(h9,'label','&Close','callback','close_window(3);');
h9b= uimenu(h9,'label','Quit &EasyKrig','callback','close all;');
end

getdefault3dkrigpara
hdl.status.krigingfig = 1;
para.status.krigingfig = 1;

if nargout > 0, fig = hdl.krig.h0; end