cvdtherm2eqndyn.m

来自「MDPSAS工具箱是马里兰大学开发的」· M 代码 · 共 37 行

function B = cvdtherm2eqndyn(filterflag)

% cvdtherm2eqndyn.m A nonlinear equation model object constructor, derived
%                   from the neqmodel class. Called as
%
%          A = cvdtherm2eqndyn

model_param_script % set dimensionless parameter values for this model

if nargin == 0 filterflag = 0; end

tfinal = 60;
nt = 100;
t = quadgrid('slab',nt,'t',[0 tfinal]);
Dt = linearoperator(t,'d','t');

Tw0 = 1;
Tq0 = 1;
Tw = scalarfield(t,Tw0);
Tq = scalarfield(t,Tq0);
u = mask(t,'lineseg',[0 tfinal/2]);

if filterflag % filtered approach
    u = bpsf(u,1);
end

var   = assocarray({'Tw' Tw 'Tq' Tq});
param = assocarray({ 'e_wq' e_wq 'e_ws' e_ws 'k_w' k_w ...
                     'q_w' q_w 'e_qw' e_qw 'e_qs' e_qs ...
                     'nu_q' nu_q 'q_q' q_q 'u' u ...
                     'F' F 'alf' alf 'Ta' Ta 'Dt' Dt ...
                     'Tw0' Tw0 'Tq0' Tq0 ...
                   });
A = naemodel('cvdtherm2eqndyn',var,param);
B = struct([]);
B = class(B,'cvdtherm2eqndyn',A);