Overview
Comment:No assignments of x or u if sm rep.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 1086ab7408b5aaec4b6890edf42f22dad6ae5b02b5c09c255143a9bf8846167f
User & Date: gawthrop@users.sourceforge.net on 1998-07-25 10:43:10
Other Links: branch diff | manifest | tags
Context
1998-07-25
12:39:57
begin on same line as for and if check-in: 30c874d920 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
10:43:10
No assignments of x or u if sm rep. check-in: 1086ab7408 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
10:21:37
Entirely rewritten check-in: 3054be5241 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/lang_header from [01b10f8c3c] to [1d0a01c003].

1
2
3
4
5
6
7
8
9
10



11
12
13
14
15
16
17
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.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
## Initial revision
##
###############################################################
138
139
140
141
142
143
144

145
146
147
148
149





150
151
152
153
154
155
156
157
158
159
160
161





162
163
164


165
166
167


168
169
170
171


172
173
174
175
176
177
178
179
141
142
143
144
145
146
147
148





149
150
151
152
153
154











155
156
157
158
159
160


161
162
163


164
165
166
167


168
169
170
171
172
173
174
175
176
177







+
-
-
-
-
-
+
+
+
+
+

-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+

-
-
+
+

-
-
+
+


-
-
+
+








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;
  # 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======  Read in the input ======$Rc\n");
#printf("mttu = $1_input(mttx,t);\n");
#printf("\n");


printf("$Lc====== Set up the state variables ======$Rc\n");
for i = 1:nx
  printf("  mttx%i = mttx$Lb%i$Rb;\n",i,i);
end;
printf("\n");
  printf("$Lc====== Set up the state variables ======$Rc\n");
  for i = 1:nx
    printf("  mttx%i = mttx$Lb%i$Rb;\n",i,i);
  end;
  printf("\n");

printf("$Lc====== Set up the input variables ======$Rc\n");
for i = 1:nu
  printf("$Lc====== Set up the input variables ======$Rc\n");
  for i = 1:nu
  printf("  mttu%i = mttu$Lb%i$Rb;\n",i,i);
end;
printf("\n");
  end;
  printf("\n");

EOF
fi

 fi
fi
#if [ "$language" = "java" ]; then

#$MATRIX -q <<EOF   
#    printf("JAVA\n");
#EOF

#fi


MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]