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.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
## This still needs worjk doing for c generation!!
##
## Revision 1.1 1998/05/23 16:17:40 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.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
## This still needs worjk doing for c generation!!
##
## Revision 1.1 1998/05/23 16:17:40 peterg
|
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
EOF
fi
# Globals
sympar2global_txt2lang $1 $language
if [ "$language" = "c" ] || [ "$language" = "m" ]; then
if [ "$rep" != "sm" ]; 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");
|
|
|
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");
|