Overview
| Comment: | Added fsolve error message. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
9e6b4707290531e3546947b2b1dcb9d9 |
| User & Date: | gawthrop@users.sourceforge.net on 1998-06-21 10:40:58.000 |
| Other Links: | branch diff | manifest | tags |
Context
|
1998-06-23
| ||
| 19:18:33 | Added optional state argument. check-in: 9f2457fb93 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
|
1998-06-21
| ||
| 10:40:58 | Added fsolve error message. check-in: 9e6b470729 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
|
1998-06-17
| ||
| 14:14:09 | Removed struc.txt prerequisite for simpar.txt - switch version check-in: 356ae2347e user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/ode_r2lang
from [df7edb9a23]
to [5121ef1402].
| ︙ | ︙ | |||
11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
# Copyright (c) P.J.Gawthrop 1991, 1994, 1995, 1996, 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
###############################################################
# Set up the language specific stuff
language=$2
case $language in
m)
ext='m';
| > > > | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
# 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';
|
| ︙ | ︙ | |||
124 125 126 127 128 129 130 |
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");
| | > > > | 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 |
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");
|
| ︙ | ︙ |