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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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

#!/bin/sh

# Generates function header for a computer language
# PJ Gawthrop May 1998

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$



## 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
##
###############################################################











>
>
>








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

EOF
fi

# Globals
sympar2global_txt2lang $1 $language

if [ "$language" = "c" ] || [ "$language" = "m" ]; 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======  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 input variables ======$Rc\n");
for i = 1:nu
  printf("  mttu%i = mttu$Lb%i$Rb;\n",i,i);
end;
printf("\n");

EOF
fi

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

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

#fi









>
|
|
|
|
|

<
<
<
<
<
<
|
|
|
|
|

|
|

|
|


|
|









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;







  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("  mttu%i = mttu$Lb%i$Rb;\n",i,i);
  end;
  printf("\n");

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

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

#fi

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