www.gusucode.com > EasyKrig_V3.0工具箱matlab源码程序 > EasyKrig_V3.0/initialization6x.m
function initialization() % function initialization perform initialization global para color data hdl curDir=pwd; % current directory para.curDir=curDir; cmd=['which(''startkrig'')']; startfilename=eval(cmd); indx=find(startfilename == '.'); HDIR=startfilename(1:max(indx)-11); DirBackslash=length(find(HDIR == '\')); DirColon=length(find(HDIR == ':')); DirSlash=length(find(HDIR == '/')); HDIRpath=['' HDIR '']; if DirBackslash >= 1 % WINDOWS DirMark='\'; AddPathCmd=['addpath ' '''' HDIRpath '\general''', ... ' ''' HDIRpath '\dataprep''', ' ''' HDIRpath '\variogram''', ... ' ''' HDIRpath '\krig''', ' ''' HDIRpath '\visualization''', ... ' ''' HDIRpath '\help''', ' ''' HDIRpath '\images''', ... ' ''' HDIRpath '\bin''', ' ''' HDIRpath '\data''', ... ' ''' HDIRpath '\output''', ' ''' HDIRpath '\''', ' -begin']; PlatForm=1; markersize=6; elseif DirSlash >= 1 % UNIX/LINUX DirMark='/'; AddPathCmd=['addpath ' '''' HDIRpath '/general''', ... ' ''' HDIRpath '/dataprep''', ' ''' HDIRpath '/variogram''', ... ' ''' HDIRpath '/krig''', ' ''' HDIRpath '/visualization''', ... ' ''' HDIRpath '/help''', ' ''' HDIRpath '/images''', ... ' ''' HDIRpath '/bin''', ' ''' HDIRpath '/data''', ... ' ''' HDIRpath '/output''', ' ''' HDIRpath '/''', ' -begin']; PlatForm=2; markersize=8; end eval(AddPathCmd) %% Optimization Toolbox OptimOption=0; pp=path; pindx=find(pp == DirMark); if pindx+5 <= length(pp) ppl=length(pindx); else ppl=length(pindx)-1; end for i=1:ppl StrIndx=pindx(i)+1:pindx(i)+5; if max(StrIndx) <= length(pp) DirStr=pp(StrIndx); if DirStr == 'optim' OptimOption=1; end end end data.in.dim=2; % default is 2D case % set parameters para.home_dir=HDIR; para.platform=PlatForm; para.optim=OptimOption; para.status=0; para.file_dir.data_conversion=HDIR; para.file_dir.datafile=HDIR; para.file_dir.data_format_file=HDIR; para.file_dir.gridfile=HDIR; para.file_dir.parafile=HDIR; para.file_dir.batch_filename=HDIR; para.file_dir.batch_log=HDIR; para.file_dir.mat_file_in=HDIR; para.file_dir.mat_file_out=HDIR; para.dataprep.filename=''; para.dataprep.ext_prog=0; para.dataprep.dat_conv_fname=''; para.dataprep.xy_switch=0; para.krig.data_format_file=[]; para.status.dataprepfig=0; para.status.dataprep=0; para.status.variogramfig=0; para.status.variogram=0; para.status.krigingfig=0; para.status.kriging=0; para.status.dispkrigfig=0; para.status.dispkrig=0; hdl.status.dataprepfig=0; hdl.status.variogramfig=0; hdl.status.krigingfig=0; hdl.status.dispkrigfig=0; para.dataprep.ytox=1; para.dataprep.ztox=1; para.dataprep.ext_prog=0; para.dataprep.filter_type=2; % default filter = mean para.dataprep.reduct_fac=1; para.dataprep.filter_supt=1; para.krig.load_data_format_file=0; para.dataprep.data_disptype=1; para.dataprep.data_disptype0=1; para.vario.max_nugt=1; para.vario.max_sill=1.5; para.vario.max_powr=4.0; para.vario.max_range=sqrt(2); % normalized range para.vario.max_hole=4*pi/para.vario.max_range; para.vario.max_lscl=para.vario.max_range; para.vario.load_para=0; para.vario.para_file=''; para.krig.load_para=0; para.krig.vario_para=0; para.krig.krig_para=0; para.krig.both_para=1; para.krig.para_file_in=''; para.krig.load_data_file=0; para.krig.batch_file_proc=0; para.krig.bat_proc_cnt=0; para.krig.data_file=''; para.dispkrig.markersize=markersize; para.dispkrig.customized_grid_data_markersize=4; para.krig.load_griddata_file=0; para.dispkrig.trackline.dispflag=1; % color color.background=[0.8 0.8 0.8]; color.grey=[0.75 0.75 0.75]; color.dark_grey=[0.65 0.65 0.65]; color.blue=[0.753 0.753 0.753]; % data structure data.in.dim=2; % default % graphic handle hdl.object.edit_w=0.04; hdl.object.pushbtn_w=0.05; hdl.object.pushbtn_l=0.14; hdl.object.popmenu=0.04; hdl.object.radio_w=0.03; hdl.object.txt_w8=0.03; hdl.object.txt_w10=0.05; if para.platform == 2 % If Unix OS getXvisual; end hdl.msg.h0=[]; warning off