www.gusucode.com > EasyKrig_V3.0工具箱matlab源码程序 > EasyKrig_V3.0/visualization/radio_action_visual.m
function radio_action_visual(index) %% function radio_action_visual(index) processes visualization options %% %% index = 1 Kriging map %% 2 Kriging variance map %% 3 Cross validation %% 4 Shading Faceted %% 5 Shading Flat %% 6 Shading interp %% 7 X-axis direction - normal/reverse %% 8 Y-axis direction - normal/reverse %% 9 Z-axis direction - normal/reverse %% %% 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 data if index <= 3 hdl.dispkrig3d.var_index=index; elseif index <= 6 hdl.dispkrig3d.shading_index=index-3; end if data.in.dim == 3 var_index=0; else var_index=5; end switch index case 1 set(hdl.dispkrig3d.disp_var2,'value',0); set(hdl.dispkrig3d.disp_var3,'value',0); dispkrig3d(var_index); case 2 set(hdl.dispkrig3d.disp_var1,'value',0); set(hdl.dispkrig3d.disp_var3,'value',0); dispkrig3d(var_index); case 3 set(hdl.dispkrig3d.disp_var1,'value',0); set(hdl.dispkrig3d.disp_var2,'value',0); validationfig; case 4 shading faceted set(hdl.dispkrig3d.shading_radio2,'value',0); set(hdl.dispkrig3d.shading_radio3,'value',0); case 5 shading flat set(hdl.dispkrig3d.shading_radio1,'value',0); set(hdl.dispkrig3d.shading_radio3,'value',0); case 6 shading interp set(hdl.dispkrig3d.shading_radio1,'value',0); set(hdl.dispkrig3d.shading_radio2,'value',0); case 7 if get(hdl.dispkrig3d.xdir_reverse,'value') == 1 set(hdl.dispkrig3d.axes1,'xdir','reverse') else set(hdl.dispkrig3d.axes1,'xdir','normal') end case 8 if get(hdl.dispkrig3d.ydir_reverse,'value') == 1 set(hdl.dispkrig3d.axes1,'ydir','reverse') else set(hdl.dispkrig3d.axes1,'ydir','normal') end case 9 if get(hdl.dispkrig3d.zdir_reverse,'value') == 1 set(hdl.dispkrig3d.axes1,'zdir','reverse') else set(hdl.dispkrig3d.axes1,'zdir','normal') end end return