Overview
Comment: | Changed header to inculde mttu |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | origin/master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
7e410364574491a1a0cda721351edb5d |
User & Date: | gawthrop@users.sourceforge.net on 1998-07-19 16:22:29 |
Other Links: | branch diff | manifest | tags |
Context
1998-07-19
| ||
16:59:56 | Initial revision check-in: bde8cac2d9 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
16:22:29 | Changed header to inculde mttu check-in: 7e41036457 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
16:00:22 | Added smx representation check-in: c396c88b7c user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/ode_r2lang from [5121ef1402] to [ad9199f7e0].
︙ | ︙ | |||
11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | # Copyright (c) P.J.Gawthrop 1991, 1994, 1995, 1996, 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.1 1998/05/23 16:17:14 peterg ## Initial revision ## ############################################################### # Set up the language specific stuff language=$2 case $language in m) ext='m'; codegenerator='FORTRAN' Lc='#'; Rc='#'; Lb='('; Rb=')'; ;; c) ext='c'; codegenerator='C' Lc='/*'; Rc='*/'; Lb='['; Rb=']'; ;; | > > > > > > > > > > > > | | | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 | # Copyright (c) P.J.Gawthrop 1991, 1994, 1995, 1996, 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.2 1998/06/21 10:40:58 peterg ## Added fsolve error message. ## ## Revision 1.1 1998/05/23 16:17:14 peterg ## Initial revision ## ############################################################### # Set up the language specific stuff language=$2 case $language in m) ext='m'; codegenerator='FORTRAN' Lc='#'; Rc='#'; Lb='('; Rb=')'; ;; c) ext='c'; codegenerator='C' Lc='/*'; Rc='*/'; Lb='['; Rb=']'; ;; java) ext='java'; codegenerator='C' Lc='/*'; Rc='*/'; Lb='['; Rb=']'; ;; *) echo Language $2 not supported - sorry; exit 1 esac #Inform user echo Creating $1_ode.$ext echo Creating $1_odea.$ext echo Creating $1_odeo.$ext |
︙ | ︙ | |||
111 112 113 114 115 116 117 | mtt_matrix_name := MTTy$ lang_matrix(); GENTRANSHUT "$1_odeo.$ext.1"; EOF # Create the ode.$ext function | | | 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 | mtt_matrix_name := MTTy$ lang_matrix(); GENTRANSHUT "$1_odeo.$ext.1"; EOF # Create the ode.$ext function lang_header $1 ode $ext 'mttx,mttu,t' mttdx > $1_ode.$ext # Algebraic bits $MATRIX -q <<EOF >> $1_ode.$ext %System structure [nx,ny,nu,nz,nyz] = $1_def; if nyz>0 printf("global mttxx mttt;\n"); |
︙ | ︙ | |||
150 151 152 153 154 155 156 | printf("\n"); end; EOF cat <<EOF >> $1_ode.$ext | | > > > > > > | 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 | printf("\n"); end; EOF cat <<EOF >> $1_ode.$ext $Lc The differential equations $Rc EOF sed 's/mtt_matrix/mttdx/' $1_ode.$ext.1 >> $1_ode.$ext # Java terminating } if [ "$language" = "java" ]; then cat <<EOF >> $1_ode.$ext } EOF fi # Create the odea.$ext function lang_header $1 odea $ext 'mttui' mttyz 'global mttxx mttt; mttx = mttxx; t=mttt;' > $1_odea.$ext $MATRIX -q <<EOF >> $1_odea.$ext %System structure |
︙ | ︙ | |||
180 181 182 183 184 185 186 | % The algebraic equations EOF sed 's/mtt_matrix/mttyz/' $1_odea.$ext.1 >> $1_odea.$ext # Create the odeo.$ext function | | | 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 | % The algebraic equations EOF sed 's/mtt_matrix/mttyz/' $1_odea.$ext.1 >> $1_odea.$ext # Create the odeo.$ext function lang_header $1 odeo $ext 'mttx,mttu,t' mtty > $1_odeo.$ext $MATRIX -q <<EOF >> $1_odeo.$ext %System structure [nx,ny,nu,nz,nyz] = $1_def; if nyz>0 printf("$Lc====== Extract the internal input variables ======$Rc\n"); for i = 1:nyz |
︙ | ︙ | |||
207 208 209 210 211 212 213 | cat <<EOF >> $1_odeo.$ext % The output equations EOF sed 's/mtt_matrix/mtty/' $1_odeo.$ext.1 >> $1_odeo.$ext | < | 225 226 227 228 229 230 231 232 233 234 235 236 237 | cat <<EOF >> $1_odeo.$ext % The output equations EOF sed 's/mtt_matrix/mtty/' $1_odeo.$ext.1 >> $1_odeo.$ext |