1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/bin/sh
# Generates function header for a computer language
# PJ Gawthrop May 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.4 1998/07/25 10:43:10 peterg
## No assignments of x or u if sm rep.
##
## Revision 1.3 1998/07/19 15:52:15 peterg
## Don't call the _input function - make it external from now on ...
##
## Revision 1.2 1998/05/24 12:47:39 peterg
|
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/bin/sh
# Generates function header for a computer language
# PJ Gawthrop May 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.5 1998/07/25 20:42:30 peterg
## No assignements for switch either
##
## Revision 1.4 1998/07/25 10:43:10 peterg
## No assignments of x or u if sm rep.
##
## Revision 1.3 1998/07/19 15:52:15 peterg
## Don't call the _input function - make it external from now on ...
##
## Revision 1.2 1998/05/24 12:47:39 peterg
|
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
EOF
fi
# Globals
sympar2global_txt2lang $1 $language
if [ "$language" = "c" ] || [ "$language" = "m" ]; then
if [ "$rep" != "sm" ]&&[ "$rep" != "switch" ]; then
# Common part - ode (c and m)
# Use octave for this bit - needs the definition file
$MATRIX -q <<EOF
%System structure
[nx,ny,nu,nz,nyz] = $1_def;
printf("$Lc====== Set up the state variables ======$Rc\n");
|
|
|
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
EOF
fi
# Globals
sympar2global_txt2lang $1 $language
if [ "$language" = "c" ] || [ "$language" = "m" ]; then
if [ "$rep" != "sm" ]&&[ "$rep" != "dm" ]&&[ "$rep" != "switch" ]; then
# Common part - ode (c and m)
# Use octave for this bit - needs the definition file
$MATRIX -q <<EOF
%System structure
[nx,ny,nu,nz,nyz] = $1_def;
printf("$Lc====== Set up the state variables ======$Rc\n");
|