Overview
Comment: | Cahnged tmp variable to mtt_1 etc |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | origin/master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
648535a8c7991646b959e9ceed91e7e2 |
User & Date: | gawthrop@users.sourceforge.net on 1998-08-13 12:43:19 |
Other Links: | branch diff | manifest | tags |
Context
1998-08-13
| ||
14:58:35 | Initial revision check-in: 205a8be22a user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
12:43:19 | Cahnged tmp variable to mtt_1 etc check-in: 648535a8c7 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
12:37:45 | Puts mttu1 --> mttu(1) etc. check-in: 69270d7f2b user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/mtt_r2m from [53dea886b2] to [6eebf575f9].
︙ | ︙ | |||
12 13 14 15 16 17 18 19 20 21 22 23 24 25 | # Copyright (c) P.J.Gawthrop 1991, 1994, 1995, 1996, 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.1 1998/07/27 16:30:26 peterg ## Initial revision ## ############################################################### # Set up the language specific stuff | > > > | 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | # Copyright (c) P.J.Gawthrop 1991, 1994, 1995, 1996, 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.2 1998/07/27 20:26:44 peterg ## Put in correct N and M values for dm rep ## ## Revision 1.1 1998/07/27 16:30:26 peterg ## Initial revision ## ############################################################### # Set up the language specific stuff |
︙ | ︙ | |||
40 41 42 43 44 45 46 | % Set up the code generator % Load the general translator package LOAD GENTRAN; GENTRANLANG!* := '$codegenerator; ON GENTRANSEG; MAXEXPPRINTLEN!* := 80; TEMPVARNUM!* := 1; | | | 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | % Set up the code generator % Load the general translator package LOAD GENTRAN; GENTRANLANG!* := '$codegenerator; ON GENTRANSEG; MAXEXPPRINTLEN!* := 80; TEMPVARNUM!* := 1; TEMPVARNAME!* := 'mtt_; % Matrix output function in"$MTTPATH/trans/lang_matrix.r"; %Read the reduce definitions file in "$1_def.r"; |
︙ | ︙ | |||
69 70 71 72 73 74 75 | # Remove the old log file rm -f mtt_r2lang.log #Remove the temporary files rm -f $outfile.* if [ "$rep" = "ode" ]; then | | | | 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | # Remove the old log file rm -f mtt_r2lang.log #Remove the temporary files rm -f $outfile.* if [ "$rep" = "ode" ]; then #echo Creating $1_odea.$ext echo Creating $1_odeo.$ext rm -f $1_odeo.$ext.1; #rm -f $1_odea.$ext.1; #Header lang_header $1 $rep $ext 'mttx,mttu,t' mttdx > $outfile.1 # Use reduce to accomplish the transformation $SYMBOLIC >mtt_r2lang.log << EOF |
︙ | ︙ | |||
113 114 115 116 117 118 119 | mtt_matrix_n := MTTNy$ mtt_matrix_m := 1$ mtt_matrix_name := MTTy$ lang_matrix(); GENTRANSHUT "$1_odeo.$ext.1"; EOF | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 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 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 | mtt_matrix_n := MTTNy$ mtt_matrix_m := 1$ mtt_matrix_name := MTTy$ lang_matrix(); GENTRANSHUT "$1_odeo.$ext.1"; EOF # cat $1_odeo.$ext.1 ## # 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"); ## printf("mttxx = mttx; mttt=t;\n"); ## ## printf("$Lc====== Extract the internal input variables ======$Rc\n"); ## for i = 1:nyz ## printf(" mttui$Lb%i$Rb = mttx$Lb%i$Rb;\n",i,i+nx); ## end; ## printf("\n"); ## ## printf("[mttui,info] = fsolve('$1_odea',mttui);\n"); ## printf("if (info!=1)\n"); ## printf(" error('fsolve has not converged')\n"); ## printf("end\n"); ## printf("\n"); ## ## printf("$Lc====== Set up the internal input variables ======$Rc\n"); ## for i = 1:nyz ## printf(" mttui%i = mttui$Lb%i$Rb;\n",i,i); ## end; ## printf("\n"); ## ## printf("$Lc====== Put internal input variables at end of state derivative ======$Rc\n"); ## for i = 1:nyz ## printf(" mttdx$Lb%i$Rb = mttui%i;\n",i+nx,i); ## end; ## printf("\n"); ## end; ## ##EOF ## cat <<EOF >> $outfile.2 $Lc The differential equations $Rc EOF sed 's/mtt_matrix/mttdx/' $outfile.3 > $outfile.4 rm -f $outfile.3 ## # 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 ## [nx,ny,nu,nz,nyz] = $1_def; ## if nyz>0 ## printf("$Lc====== Set up the internal input variables ======$Rc\n"); ## for i = 1:nyz ## printf(" mttui%i = mttui$Lb%i$Rb;\n",i,i); ## end; ## printf("\n"); ## end; ##EOF ## ## cat <<EOF >> $1_odea.$ext ## ## % 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 |
︙ | ︙ | |||
211 212 213 214 215 216 217 | % The output equations EOF sed 's/mtt_matrix/mtty/' $1_odeo.$ext.1 >> $1_odeo.$ext # Convert from Pascal syntax to Octave syntax mv $1_odeo.m mtt_junk; mtt_p2m<mtt_junk > $1_odeo.m | | | 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 | % The output equations EOF sed 's/mtt_matrix/mtty/' $1_odeo.$ext.1 >> $1_odeo.$ext # Convert from Pascal syntax to Octave syntax mv $1_odeo.m mtt_junk; mtt_p2m<mtt_junk > $1_odeo.m # mv $1_odea.m mtt_junk; mtt_p2m<mtt_junk > $1_odea.m fi if [ "$rep" = "sm" ]||[ "$rep" = "dm" ]; then if [ "$rep" = "sm" ]; then #Header lang_header $1 $rep $ext '' [mtta,mttb,mttc,mttd] > $outfile.A |
︙ | ︙ |