if get(Hbox_Grid,'Value')
grid on
else
grid off
end
pause(0.1)
M(l)=getframe;
end
movie(M,7,4)
set(HRadio_Style,'Enable','on');
set(HCheckbox_Style,'Enable','on');
set(Hbutton_Run,'Enable','on');
set(Hbutton_Figures,'Enable','on');
case 'press_Figures'
HRadio_Style=findobj('Style','radiobutton');
set(HRadio_Style,'Enable','off');
HCheckbox_Style=findobj('Style','checkbox');
set(HCheckbox_Style,'Enable','off');
Hbutton_Run=findobj('Tag','button_Run');
set(Hbutton_Run,'Enable','off');
Hbutton_Rep=findobj('Tag','button_Rep');
set(Hbutton_Rep,'Enable','off');
Hbox_Grid=findobj('Tag','box_Grid');
HRadio=findobj('Style','radiobutton');
HTurn=findobj(HRadio,'Value',1);
for l=1:s
figure
surf(y,x,T(:,:,l))
xlabel('y, м','FontSize',13)
ylabel('x, м','FontSize',13)
zlabel('T, K','FontSize',13)
axis([min(y) max(y) min(x) max(x) min(min(T(:,:,1))) ...
max(max(T(:,:,1)))])
if strcmp(get(HTurn,'Tag'),'Radio_Cool')
colormap('cool')
elseif strcmp(get(HTurn,'Tag'),'Radio_Hot')
colormap('hot')
else
colormap('default')
end
if get(Hbox_Grid,'Value')
grid on
else
grid off
end
pause(0.1)
end
set(HRadio_Style,'Enable','on');
set(HCheckbox_Style,'Enable','on');
set(Hbutton_Run,'Enable','on');
set(Hbutton_Rep,'Enable','on');
case 'press_Quit'
button=questdlg('Завершить работу с программой?', ...
'i_termo','Да','Нет','Нет');