Index: mttroot/mtt/bin/trans/ode_r2m ================================================================== --- mttroot/mtt/bin/trans/ode_r2m +++ mttroot/mtt/bin/trans/ode_r2m @@ -12,10 +12,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.10 1998/04/14 07:25:02 peterg +## _input now has arguments (x,t) +## ## Revision 1.9 1998/03/30 14:18:07 peterg ## Removed NERO command ## ## Revision 1.8 1998/02/25 18:03:49 peterg ## Removed the argument reading bits. @@ -129,12 +132,25 @@ cardno!* := 1$ fortwidth!* := 10000$ OFF period$ MTTdx := MTTdx; + SHUT "$1_ode.m"; + +OUT "$1_odea.m"; +write "function zero = $1_odea(x,t);"; +write "% zero = $1_odea(x,t);"; +write "%Algebraic equations in octave form for system $1;;"; +write "%File $1_odea.m;;"; +write "%Generated by MTT;;"; + +%Write algebraic equations if any ... +zero := MTTYz; +SHUT "$1_odea.m"; + OFF fort; % Now do the y = g(x,t) function. OUT "$1_odeo.m"; write "function mtty = $1_odeo(x,t);";