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
131
132
133
134
135
136
137
138
|
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 = fsolve('$1_odea',mttui);\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");
|
|
>
>
>
|
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");
|