Решение задач математической физики в системе MatLab. Рындин Е.А - 45 стр.

UptoLike

ВУЗ: 

ТТИ ЮФУ | Таганрог

Составители: 

Рубрика: 

'String','g4(y), x=xmax', ...
'Style','text', ...
'Tag','StaticText2');
if nargout > 0, fig = h0; end
Далее приводится исходный текст функции f_termo2d2, осуществляюA
щей выполнение определенных команд под управлением пользовательского
интерфейса i_termo.
% Функция решения двухмерного нестационарного
% уравнения теплопроводности
% r(x,y)C(x,y)dT/dt-d/dx(k(x,y)dT/dx)-d/dy(k(x,y)dT/dy)=f(x,y)
% на прямоугольной области с граничными условиями
% Дирихле и/или Неймана
function [x,y,t,T]=f_termo2d2(event)
global t0 ts s x0 xn n y0 ym m r c k f vt gt1 v1 g1 v2 g2 v3 g3 v4 ...
g4 x y T;
switch event
case 'press_t0'
t0=str2num(get(gcbo,'String'));
case 'press_ts'
ts=str2num(get(gcbo,'String'));
case 'press_s'
s=str2num(get(gcbo,'String'));
case 'press_x0'
x0=str2num(get(gcbo,'String'));
case 'press_xn'
xn=str2num(get(gcbo,'String'));
case 'press_n'
n=str2num(get(gcbo,'String'));
case 'press_y0'
y0=str2num(get(gcbo,'String'));
case 'press_ym'
ym=str2num(get(gcbo,'String'));
case 'press_m'
m=str2num(get(gcbo,'String'));
case 'press_r'
r=get(gcbo,'String');
case 'press_c'
c=get(gcbo,'String');
case 'press_k'
k=get(gcbo,'String');
case 'press_f'
f=get(gcbo,'String');
case 'press_vt'
vt=str2num(get(gcbo,'String'));
case 'press_gt1'
gt1=get(gcbo,'String');
case 'press_v1'
v1=str2num(get(gcbo,'String'));
case 'press_g1'
g1=get(gcbo,'String');
case 'press_v2'
v2=str2num(get(gcbo,'String'));
45

Страницы