10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Copyright (c) P.J.Gawthrop 1991, 1994, 1995, 1996
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## 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.
##
## Revision 1.7 1997/08/29 07:58:17 peterg
|
>
>
>
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# Copyright (c) P.J.Gawthrop 1991, 1994, 1995, 1996
###############################################################
## 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.
##
## Revision 1.7 1997/08/29 07:58:17 peterg
|
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
OFF echo;
ON fort$
cardno!* := 1$
fortwidth!* := 10000$
OFF period$
MTTdx := MTTdx;
SHUT "$1_ode.m";
OFF fort;
% Now do the y = g(x,t) function.
OUT "$1_odeo.m";
write "function mtty = $1_odeo(x,t);";
write "% mtty = $1_odeo(x,t);";
write "%ODE in Simulab form for system $1;;";
|
>
>
>
>
>
>
>
>
>
>
>
>
>
|
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
OFF echo;
ON fort$
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);";
write "% mtty = $1_odeo(x,t);";
write "%ODE in Simulab form for system $1;;";
|