www.gusucode.com > EasyKrig_V3.0工具箱matlab源码程序 > EasyKrig_V3.0/variogram/radio_action_vario2d3d.m
function radio_action_vario2d3d(index) % function radio_action_vario2d3d(index) process the display options % for the 2D/3D semi-variogram/correlogram vidualization % index = 1 azimuth angle % = 2 dip angle % = 3 shading faceted % = 4 shading flat % = 5 shading interp %% %% Kriging Software Package version 3.0, May 1, 2004 %% Copyright (c) 1999, 2001, 2004, property of Dezhang Chu and Woods Hole Oceanographic %% Institution. All Rights Reserved. global hdl para data switch index case 1 % adjust diaplay azimuth angle set(hdl.dispvario2d3d.dip_radio,'value',0); set(hdl.dispvario2d3d.dip_val,'string','-90 -- 90 deg'); set(hdl.dispvario2d3d.azm_val,'enable','on') set(hdl.dispvario2d3d.azm_slider,'enable','on') mean_azm_ang=(para.vario.azm_beg+para.vario.azm_end)/2; set(hdl.dispvario2d3d.azm_slider,'value',0.5) set(hdl.dispvario2d3d.azm_val,'string',[num2str(mean_azm_ang)]) set(hdl.dispvario2d3d.dip_val,'enable','off') set(hdl.dispvario2d3d.dip_slider,'enable','off') plotvariogram2d3d(2) case 2 % adjust diaplay dip angle set(hdl.dispvario2d3d.azm_radio,'value',0); set(hdl.dispvario2d3d.azm_val,'string','0 -- 360 deg'); set(hdl.dispvario2d3d.dip_val,'enable','on') set(hdl.dispvario2d3d.dip_slider,'enable','on') mean_dip_ang=(para.vario.dip_beg+para.vario.dip_end)/2; set(hdl.dispvario2d3d.dip_slider,'value',0.5) set(hdl.dispvario2d3d.dip_val,'string',[num2str(mean_dip_ang)]) set(hdl.dispvario2d3d.azm_val,'enable','off') set(hdl.dispvario2d3d.azm_slider,'enable','off') plotvariogram2d3d(3) case 3 shading faceted set(hdl.dispvario2d3d.shading_radio2,'value',0); set(hdl.dispvario2d3d.shading_radio3,'value',0); case 4 shading flat set(hdl.dispvario2d3d.shading_radio1,'value',0); set(hdl.dispvario2d3d.shading_radio3,'value',0); case 5 shading interp set(hdl.dispvario2d3d.shading_radio1,'value',0); set(hdl.dispvario2d3d.shading_radio2,'value',0); end return