Overview
Comment:Prettified layout of this file
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 7c5dbdd905848fe1660e134821ee671ce5328e2fcf25b31c890edb863e475bd2
User & Date: gawthrop@users.sourceforge.net on 2000-09-07 12:18:31
Other Links: branch diff | manifest | tags
Context
2000-09-07
12:35:40
Initial revision check-in: eaa07dc792 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
12:18:31
Prettified layout of this file check-in: 7c5dbdd905 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
12:07:26
*** empty log message *** check-in: 99883ed2bd user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/ese2rdae_r from [621be6bab5] to [fb46631ac3].

︙︙
10
11
12
13
14
15
16



17
18
19
20
21
22
23

# Copyright (c) P.J.Gawthrop, 1991, 1994, 1996

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



## Revision 1.7  2000/09/01 13:34:15  peterg
## Exit on option error
##
## Revision 1.6  2000/09/01 13:30:32  peterg
## Added -partition switch
##
## Revision 1.5  2000/09/01 12:14:57  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, 1996

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.8  2000/09/07 12:07:26  peterg
## *** empty log message ***
##
## Revision 1.7  2000/09/01 13:34:15  peterg
## Exit on option error
##
## Revision 1.6  2000/09/01 13:30:32  peterg
## Added -partition switch
##
## Revision 1.5  2000/09/01 12:14:57  peterg
︙︙
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225

if [ -n "$partition" ]; then
  rm -f mtt_junk
  # Now for the subsystems
  # Find subsystems
  subsystems=`mtt_get_subsystems $1`

  for subsystem in $subsystems; do
  echo Doing $subsystem
  ucname="MTT_"$subsystem"_uc"

  Nu=`mtt_getsize -internal $subsystem"_1" u`
  echo Nu $Nu

  # Use symbolic algebra to accomplish the transformation
  $SYMBOLIC >$logname  << EOF

  %Read the formatting function
  in "$MTTPATH/trans/reduce_matrix.r";

  % Definitions
  in "$defname";

  % Elementary system equations
  in "$esename";

  OFF Echo;
  OFF Nat;
 
  %Create the output file
  OUT "mtt_junk";
  % Connecting inputs
  MTT_Matrix := $ucname $
  MTT_Matrix_name := "$ucname" $
  MTT_Matrix_n := $Nu $
  MTT_Matrix_m := 1$
  Reduce_Matrix()$

  shut "mtt_junk";
EOF
  echo >> $1_rdae.r
  echo %Connections for subsystem $subsystem  >> $1_rdae.r
  echo >> $1_rdae.r

  cat mtt_junk >> $1_rdae.r
  rm -rf mtt_junk
  done
fi

echo "END;" >> $1_rdae.r

# Now invoke the standard error handling.
mtt_error_r $logname









|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|

|
|
|
|
|
|









176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228

if [ -n "$partition" ]; then
  rm -f mtt_junk
  # Now for the subsystems
  # Find subsystems
  subsystems=`mtt_get_subsystems $1`

  for subsystem in $subsystems; do
    echo Doing $subsystem
    ucname="MTT_"$subsystem"_uc"
  
    Nu=`mtt_getsize -internal $subsystem"_1" u`
    echo Nu $Nu
  
    # Use symbolic algebra to accomplish the transformation
    $SYMBOLIC >$logname  << EOF
  
    %Read the formatting function
    in "$MTTPATH/trans/reduce_matrix.r";
  
    % Definitions
    in "$defname";
  
    % Elementary system equations
    in "$esename";
  
    OFF Echo;
    OFF Nat;
   
    %Create the output file
    OUT "mtt_junk";
    % Connecting inputs
    MTT_Matrix := $ucname $
    MTT_Matrix_name := "$ucname" $
    MTT_Matrix_n := $Nu $
    MTT_Matrix_m := 1$
    Reduce_Matrix()$
  
    shut "mtt_junk";
EOF
    echo >> $1_rdae.r
    echo %Connections for subsystem $subsystem  >> $1_rdae.r
    echo >> $1_rdae.r
  
    cat mtt_junk >> $1_rdae.r
    rm -rf mtt_junk
  done
fi

echo "END;" >> $1_rdae.r

# Now invoke the standard error handling.
mtt_error_r $logname

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