1 /*-*-mode:
2
3 !
4 ! Dalton, a molecular electronic structure program
5 ! Copyright (C) by the authors of Dalton.
6 !
7 ! This program is free software; you can redistribute it and/or
8 ! modify it under the terms of the GNU Lesser General Public
9 ! License version 2.1 as published by the Free Software Foundation.
10 !
11 ! This program is distributed in the hope that it will be useful,
12 ! but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 ! Lesser General Public License for more details.
15 !
16 ! If a copy of the GNU LGPL v2.1 was not distributed with this
17 ! code, you can obtain one at https://www.gnu.org/licenses/old-licenses/lgpl-2.1.en.html.
18 !
19
20 !
21
22 */
23 /* fun-hcth93m.c:
24
25 Automatically generated code implementing HCTH93m functional and
26 its derivatives. It is generated by func-codegen.pl being a part of
27 a "Automatic code generation framework for analytical functional
28 derivative evaluation", Pawel Salek, 2005
29
30 Reference: G. Menconi and D.J. Tozer, Mol. Phys., 103, 2397 (2005).
31 Implemented and tested by: D.J. Wilson (david.wilson@latrobe.edu.au)
32
33 This functional is connected by making following changes:
34 1. add "extern Functional hcth93mFunctional;" to 'functionals.h'
35 2. add "&hcth93mFunctional," to 'functionals.c'
36 3. add "fun-hcth93m.c" to 'Makefile.am', 'Makefile.in' or 'Makefile'.
37
38 This functional has been generated from following input:
39 ------ cut here -------
40 xa: (grada/rhoa^(4/3));
41 xb: (gradb/rhob^(4/3));
42
43 pa: 1;
44 Aa: 0.016887;
45 a1a: 0.11125;
46 b1a: 10.357;
47 b2a: 3.6231;
48 b3a: 0.88026;
49 b4a: 0.49671;
50
51 pe: 1;
52 c0p: 0.031091;
53 a1p: 0.21370;
54 b1p: 7.5957;
55 b2p: 3.5876;
56 b3p: 1.6382;
57 b4p: 0.49294;
58
59 c0f: 0.01554500000;
60 a1f: 0.20548;
61 b1f: 14.1189;
62 b2f: 6.1977;
63 b3f: 3.3662;
64 b4f: 0.62517;
65
66 ccab: [0.622261, 3.70296, -14.9002, 15.7020, -6.06736];
67 ccaa: [0.492391, 0.0855389, 0.199153, -1.84414, 2.18076];
68 cx: [1.07785, -0.520534, 4.71345, -5.75813, 3.12925];
69
70 rs(r):= (3/(4*%PI*r))^(1/3);
71 z(ra,rb):= (ra-rb)/(ra+rb);
72 fz(v):= ((1+v)^(4/3) + (1-v)^(4/3) - 2)/(2*2^(1/3) - 2);
73
74 d2fz0: 1.709921;
75
76 Gc(r,A,a1,b1,b2,b3,b4,p):= -2*A*(1 + a1*r)
77 *log(1 + 0.5/(A*(b1*sqrt(r) + b2*r + b3*r^(3/2) + b4*r^(p+1))));
78
79 Ac(x):= -Gc(x,Aa,a1a,b1a,b2a,b3a,b4a,pa);
80 EcP(x):= Gc(x,c0p,a1p,b1p,b2p,b3p,b4p,pe);
81 EcF(x):= Gc(x,c0f,a1f,b1f,b2f,b3f,b4f,pe);
82
83
84 EcLSDA(ra,rb):=(ra+rb)*(EcP(rs(ra+rb)) +
85 Ac(rs(ra+rb))*fz(z(ra,rb))*(1-(z(ra,rb))^4)/d2fz0 +
86 (EcF(rs(ra+rb))-EcP(rs(ra+rb)))*fz(z(ra,rb))*
87 (z(ra,rb))^4);
88
89 EcabLSDA(ra,rb):= EcLSDA(ra,rb)-EcLSDA(ra,0)-EcLSDA(rb,0);
90
91 gcab: 0.006;
92 gcaa: 0.2;
93
94 cx0: -3/8*((16*3/%PI)^(1/3));
95 gx: 0.004;
96
97 Ucab(t):= gcab*t/(1+gcab*t);
98 Ucaa(t):= gcaa*t/(1+gcaa*t);
99
100 Gcab(t):= ccab[1] + ccab[2]*Ucab(t) + ccab[3]*Ucab(t)^2
101 + ccab[4]*Ucab(t)^3 + ccab[5]*Ucab(t)^4;
102
103 Gcaa(t):= ccaa[1] + ccaa[2]*Ucaa(t) + ccaa[3]*Ucaa(t)^2
104 + ccaa[4]*Ucaa(t)^3 + ccaa[5]*Ucaa(t)^4;
105
106 Ux(r):= gx*r/(1+gx*r);
107
108 ExLSDAa: (cx0*rhoa^(4/3));
109 ExLSDAb: (cx0*rhob^(4/3));
110
111 Gx(t):= cx[1] + cx[2]*Ux(t) + cx[3]*Ux(t)^2 + cx[4]*Ux(t)^3 + cx[5]*Ux(t)^4;
112
113 K(rhoa,grada,rhob,gradb,gradab):=
114 EcabLSDA(rhoa,rhob)*Gcab(0.5*xa^2 + 0.5*xb^2)
115 + ExLSDAa*Gx(xa^2) + EcLSDA(rhoa,0) * Gcaa(xa^2) +
116 + ExLSDAb*Gx(xb^2) + EcLSDA(rhob,0) * Gcaa(xb^2);
117
118
119 ------ cut here -------
120 */
121
122
123 /* strictly conform to XOPEN ANSI C standard */
124 #if !defined(SYS_DEC)
125 /* XOPEN compliance is missing on old Tru64 4.0E Alphas and pow() prototype
126 * is not specified. */
127 #define _XOPEN_SOURCE 500
128 #define _XOPEN_SOURCE_EXTENDED 1
129 #endif
130 #include <math.h>
131 #include <stddef.h>
132 #include "general.h"
133
134 #define __CVERSION__
135
136 #include "functionals.h"
137
138 /* INTERFACE PART */
hcth93m_isgga(void)139 static integer hcth93m_isgga(void) { return 1; } /* FIXME: detect! */
140 static integer hcth93m_read(const char *conf_line);
141 static real hcth93m_energy(const FunDensProp* dp);
142 static void hcth93m_first(FunFirstFuncDrv *ds, real factor,
143 const FunDensProp* dp);
144 static void hcth93m_second(FunSecondFuncDrv *ds, real factor,
145 const FunDensProp* dp);
146 static void hcth93m_third(FunThirdFuncDrv *ds, real factor,
147 const FunDensProp* dp);
148 static void hcth93m_fourth(FunFourthFuncDrv *ds, real factor,
149 const FunDensProp* dp);
150
151 Functional HCTH93mFunctional = {
152 "HCTH93m", /* name */
153 hcth93m_isgga, /* gga-corrected */
154 1,
155 hcth93m_read,
156 NULL,
157 hcth93m_energy,
158 hcth93m_first,
159 hcth93m_second,
160 hcth93m_third,
161 hcth93m_fourth
162 };
163
164 /* IMPLEMENTATION PART */
165 static integer
hcth93m_read(const char * conf_line)166 hcth93m_read(const char *conf_line)
167 {
168 fun_set_hf_weight(0);
169 return 1;
170 }
171
172 static real
hcth93m_energy(const FunDensProp * dp)173 hcth93m_energy(const FunDensProp *dp)
174 {
175 real res;
176 real rhoa = dp->rhoa, rhob = dp->rhob;
177 real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
178
179 real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
180 real t11, t12, t13, t14, t15, t16, t17, t18;
181 real t19, t20, t21, t22, t23, t24, t25, t26;
182 real t27, t28, t29, t30, t31, t32, t33, t34;
183 real t35, t36, t37, t38, t39, t40, t41, t42;
184 real t43, t44, t45, t46, t47, t48, t49, t50;
185 real t51, t52, t53, t54;
186
187 t1 = pow(3.0,0.666666666666667);
188 t2 = 1/pow(4.0,0.666666666666667);
189 t3 = 1/pow(3.141592653589793,0.666666666666667);
190 t4 = 1.732050807568877;
191 t5 = 0.564189583547756;
192 t6 = pow(3.0,0.333333333333333);
193 t7 = 1/pow(4.0,0.333333333333333);
194 t8 = 1/pow(3.141592653589793,0.333333333333333);
195 t9 = 1/pow(rhoa,0.333333333333333);
196 t10 = pow(2.0,0.333333333333333);
197 t11 = 1/t10;
198 t12 = pow(3.0,0.166666666666667);
199 t13 = 1/pow(3.141592653589793,0.166666666666667);
200 t14 = log(32.1646831778707/(0.62517*t1*t2*t3/pow(rhoa,
201 0.666666666666667)+14.1189*t11*t12*t13/pow(rhoa,0.166666666666667)+
202 1.6831*t4*t5/sqrt(rhoa)+6.1977*t6*t7*t8*t9)+1.0);
203 t15 = pow(grada,8.0);
204 t16 = pow(grada,2.0);
205 t17 = 1/pow(rhoa,2.666666666666667);
206 t18 = 0.2*t16*t17+1.0;
207 t19 = 1/pow(rhoa,10.66666666666667);
208 t20 = pow(grada,6.0);
209 t21 = 1/pow(rhoa,8.0);
210 t22 = pow(grada,4.0);
211 t23 = 1/pow(rhoa,5.333333333333333);
212 t24 = 0.20548*t6*t7*t8*t9+1.0;
213 t25 = pow(6.0,0.333333333333333);
214 t26 = 0.004*t16*t17+1.0;
215 t27 = 1/pow(rhob,0.333333333333333);
216 t28 = log(32.1646831778707/(0.62517*t1*t2*t3/pow(rhob,
217 0.666666666666667)+14.1189*t11*t12*t13/pow(rhob,0.166666666666667)+
218 1.6831*t4*t5/sqrt(rhob)+6.1977*t6*t7*t8*t27)+1.0);
219 t29 = pow(gradb,8.0);
220 t30 = pow(gradb,2.0);
221 t31 = 1/pow(rhob,2.666666666666667);
222 t32 = 0.2*t30*t31+1.0;
223 t33 = 1/pow(rhob,10.66666666666667);
224 t34 = pow(gradb,6.0);
225 t35 = 1/pow(rhob,8.0);
226 t36 = pow(gradb,4.0);
227 t37 = 1/pow(rhob,5.333333333333333);
228 t38 = 0.20548*t6*t7*t8*t27+1.0;
229 t39 = 0.004*t30*t31+1.0;
230 t40 = 0.5*t30*t31+0.5*t16*t17;
231 t41 = 0.006*t40+1.0;
232 t42 = rhob+rhoa;
233 t43 = 1/pow(t42,0.333333333333333);
234 t44 = 0.2137*t6*t7*t8*t43+1.0;
235 t45 = 1/pow(t42,0.666666666666667);
236 t46 = 1/sqrt(t42);
237 t47 = 1/pow(t42,0.166666666666667);
238 t48 = log(16.0818243221511/(7.5957*t11*t12*t13*t47+3.5876*
239 t6*t7*t8*t43+0.8191*t4*t5*t46+0.49294*t1*t2*t3*t45)+1.0);
240 t49 = 1/
241 (2.0*t10-2.0);
242 t50 = rhoa-1.0*rhob;
243 t51 = pow(t50,4.0);
244 t52 = 1/pow(t42,4.0);
245 t53 = 1/t42;
246 t54 = pow(t50*t53+1.0,1.333333333333333)+pow(1.0-1.0*
247 t50*t53,1.333333333333333)-2.0;
248
249 /* code */
250 res = -0.75*t25*(8.01088E-10*t29*t33/pow(t39,4.0)-3.685203200000001E-7*
251 t34*t35/pow(t39,3.0)+7.54152E-5*t36*t37/pow(t39,2.0)-0.002082136*
252 t30*t31/t39+1.07785)*t8*pow(rhob,1.333333333333333)+(-7.86329856E-9*
253 pow(t40,4.0)/pow(t41,4.0)+3.391632E-6*pow(t40,3.0)/pow(t41,
254 3.0)-5.364072E-4*pow(t40,2.0)/pow(t41,2.0)+0.02221776*t40/
255 t41+0.622261)*(0.03109*t28*t38*rhob+0.03109*t14*t24*rhoa+t42*
256 (0.019751789702565*(0.11125*t6*t7*t8*t43+1.0)*log(29.60857464321668/
257 (10.357*t11*t12*t13*t47+3.6231*t6*t7*t8*t43+0.44013*t4*t5*
258 t46+0.49671*t1*t2*t3*t45)+1.0)*t49*(1.0-1.0*t51*t52)*t54+(0.062182*
259 t44*t48-0.03109*(0.20548*t6*t7*t8*t43+1.0)*log(32.1646831778707/
260 (14.1189*t11*t12*t13*t47+6.1977*t6*t7*t8*t43+1.6831*t4*t5*
261 t46+0.62517*t1*t2*t3*t45)+1.0))*t49*t51*t52*t54-0.062182*t44*
262 t48))-0.03109*t28*(0.00796612*t36*t37/pow(t32,2.0)-0.01475312*
263 t34*t35/pow(t32,3.0)+0.003489216*t29*t33/pow(t32,4.0)+0.01710778*
264 t30*t31/t32+0.492391)*t38*rhob-0.75*t25*(8.01088E-10*t15*t19/
265 pow(t26,4.0)-3.685203200000001E-7*t20*t21/pow(t26,3.0)+7.54152E-5*
266 t22*t23/pow(t26,2.0)-0.002082136*t16*t17/t26+1.07785)*t8*pow(rhoa,
267 1.333333333333333)-0.03109*t14*(0.00796612*t22*t23/pow(t18,
268 2.0)-0.01475312*t20*t21/pow(t18,3.0)+0.003489216*t15*t19/pow(t18,
269 4.0)+0.01710778*t16*t17/t18+0.492391)*t24*rhoa;
270
271 return res;
272 }
273
274 static void
hcth93m_first(FunFirstFuncDrv * ds,real factor,const FunDensProp * dp)275 hcth93m_first(FunFirstFuncDrv *ds, real factor, const FunDensProp *dp)
276 {
277 real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
278 real rhoa = dp->rhoa, rhob = dp->rhob;
279 real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
280
281 real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
282 real t11, t12, t13, t14, t15, t16, t17, t18;
283 real t19, t20, t21, t22, t23, t24, t25, t26;
284 real t27, t28, t29, t30, t31, t32, t33, t34;
285 real t35, t36, t37, t38, t39, t40, t41, t42;
286 real t43, t44, t45, t46, t47, t48, t49, t50;
287 real t51, t52, t53, t54, t55, t56, t57, t58;
288 real t59, t60, t61, t62, t63, t64, t65, t66;
289 real t67, t68, t69, t70, t71, t72, t73, t74;
290 real t75, t76, t77, t78, t79, t80, t81, t82;
291 real t83, t84, t85, t86, t87, t88, t89, t90;
292 real t91, t92, t93, t94, t95, t96, t97, t98;
293 real t99, t100, t101, t102, t103, t104, t105;
294 real t106, t107, t108, t109, t110, t111, t112;
295 real t113, t114, t115, t116, t117, t118, t119;
296 real t120, t121, t122, t123, t124, t125, t126;
297 real t127, t128, t129, t130, t131, t132, t133;
298 real t134, t135, t136, t137, t138, t139, t140;
299 real t141, t142, t143, t144, t145, t146, t147;
300 real t148, t149, t150, t151, t152, t153, t154;
301 real t155, t156, t157, t158, t159, t160, t161;
302 real t162, t163, t164, t165, t166;
303
304 t1 = pow(3.0,0.333333333333333);
305 t2 = 1/pow(4.0,0.333333333333333);
306 t3 = 1/pow(3.141592653589793,0.333333333333333);
307 t4 = pow(3.0,0.666666666666667);
308 t5 = 1/pow(4.0,0.666666666666667);
309 t6 = 1/pow(3.141592653589793,0.666666666666667);
310 t7 = 1.732050807568877;
311 t8 = 0.564189583547756;
312 t9 = sqrt(rhoa);
313 t10 = pow(rhoa,0.333333333333333);
314 t11 = 1/t10;
315 t12 = pow(2.0,0.333333333333333);
316 t13 = 1/t12;
317 t14 = pow(3.0,0.166666666666667);
318 t15 = 1/pow(3.141592653589793,0.166666666666667);
319 t16 = 0.62517*t4*t5*t6/pow(rhoa,0.666666666666667)+14.1189*
320 t13*t14*t15/pow(rhoa,0.166666666666667)+1.6831*t7*t8/t9+6.1977*
321 t1*t2*t3*t11;
322 t17 = 32.1646831778707/t16+1.0;
323 t18 = log(t17);
324 t19 = pow(grada,8.0);
325 t20 = pow(grada,2.0);
326 t21 = 1/pow(rhoa,2.666666666666667);
327 t22 = 0.2*t20*t21+1.0;
328 t23 = 1/pow(t22,4.0);
329 t24 = 1/pow(rhoa,10.66666666666667);
330 t25 = pow(grada,6.0);
331 t26 = 1/pow(t22,3.0);
332 t27 = 1/pow(rhoa,8.0);
333 t28 = pow(grada,4.0);
334 t29 = 1/pow(t22,2.0);
335 t30 = 1/pow(rhoa,5.333333333333333);
336 t31 = 1/t22;
337 t32 = 0.01710778*t20*t31*t21+0.00796612*t28*t29*t30-0.01475312*
338 t25*t26*t27+0.003489216*t19*t23*t24+0.492391;
339 t33 = 0.20548*t1*t2*t3*t11+1.0;
340 t34 = pow(6.0,0.333333333333333);
341 t35 = 0.004*t20*t21+1.0;
342 t36 = 1/pow(t35,4.0);
343 t37 = 1/pow(t35,3.0);
344 t38 = 1/pow(t35,2.0);
345 t39 = 1/t35;
346 t40 = pow(grada,10.0);
347 t41 = 1/pow(t22,5.0);
348 t42 = 1/pow(rhoa,14.33333333333333);
349 t43 = 1/pow(rhoa,11.66666666666667);
350 t44 = 1/pow(rhoa,9.0);
351 t45 = 1/pow(rhoa,6.333333333333333);
352 t46 = 1/pow(rhoa,3.666666666666667);
353 t47 = 1/t17;
354 t48 = pow(rhoa,1.333333333333333);
355 t49 = -0.41678*t4*t5*t6/pow(rhoa,1.666666666666667)-2.35315*
356 t13*t14*t15/pow(rhoa,1.166666666666667)-0.84155*t7*t8/pow(t9,
357 3.0)-2.0659*t1*t2*t3/t48;
358 t50 = 1/pow(t16,2.0);
359 t51 = 1/pow(t35,5.0);
360 t52 = pow(gradb,2.0);
361 t53 = 1/pow(rhob,2.666666666666667);
362 t54 = 0.5*t52*t53+0.5*t20*t21;
363 t55 = pow(t54,4.0);
364 t56 = 0.006*t54+1.0;
365 t57 = 1/pow(t56,4.0);
366 t58 = pow(t54,3.0);
367 t59 = 1/pow(t56,3.0);
368 t60 = pow(t54,2.0);
369 t61 = 1/pow(t56,2.0);
370 t62 = 1/t56;
371 t63 = 0.02221776*t54*t62-5.364072E-4*t60*t61+3.391632E-6*
372 t58*t59-7.86329856E-9*t55*t57+0.622261;
373 t64 = rhob+rhoa;
374 t65 = 1/pow(t64,0.333333333333333);
375 t66 = 0.2137*t1*t2*t3*t65+1.0;
376 t67 = 1/pow(t64,0.666666666666667);
377 t68 = sqrt(t64);
378 t69 = 1/t68;
379 t70 = 1/pow(t64,0.166666666666667);
380 t71 = 7.5957*t13*t14*t15*t70+3.5876*t1*t2*t3*t65+0.8191*
381 t7*t8*t69+0.49294*t4*t5*t6*t67;
382 t72 = 16.0818243221511/t71+1.0;
383 t73 = log(t72);
384 t74 = -0.062182*t66*t73;
385 t75 = 1/(2.0*t12-2.0);
386 t76 = rhoa-1.0*rhob;
387 t77 = pow(t76,4.0);
388 t78 = 1/pow(t64,4.0);
389 t79 = 1.0-1.0*t77*t78;
390 t80 = 0.11125*t1*t2*t3*t65+1.0;
391 t81 = 1/t64;
392 t82 = 1.0-1.0*t76*t81;
393 t83 = t76*t81+1.0;
394 t84 = pow(t83,1.333333333333333)+pow(t82,1.333333333333333)-
395 2.0;
396 t85 = 10.357*t13*t14*t15*t70+3.6231*t1*t2*t3*t65+0.44013*
397 t7*t8*t69+0.49671*t4*t5*t6*t67;
398 t86 = 29.60857464321668/t85+1.0;
399 t87 = log(t86);
400 t88 = 0.019751789702565*t75*t79*t80*t84*t87;
401 t89 = 0.20548*t1*t2*t3*t65+1.0;
402 t90 = 14.1189*t13*t14*t15*t70+6.1977*t1*t2*t3*t65+1.6831*
403 t7*t8*t69+0.62517*t4*t5*t6*t67;
404 t91 = 32.1646831778707/t90+1.0;
405 t92 = log(t91);
406 t93 = 0.062182*t66*t73-0.03109*t89*t92;
407 t94 = t75*t77*t78*t84*t93;
408 t95 = 1/pow(t64,1.666666666666667);
409 t96 = 1/pow(t68,3.0);
410 t97 = 1/pow(t64,1.333333333333333);
411 t98 = 1/pow(t64,1.166666666666667);
412 t99 = -1.26595*t13*t14*t15*t98-1.195866666666667*t1*t2*
413 t3*t97-0.40955*t7*t8*t96-0.328626666666667*t4*t5*t6*t95;
414 t100 = 1/
415 pow(t71,2.0);
416 t101 = 1/t72;
417 t102 = 1.0*t99*t66*t100*t101;
418 t103 = -0.58482233974552*t75*t79*t80*t84*(-1.726166666666666*
419 t13*t14*t15*t98-1.2077*t1*t2*t3*t97-0.220065*t7*t8*t96-0.33114*
420 t4*t5*t6*t95)/(pow(t85,2.0)*t86);
421 t104 = 0.004429431133333*t1*t2*t3*t97*t73;
422 t105 = 1/pow(t64,2.0);
423 t106 = t76*t105;
424 t107 = -1.0*t81;
425 t108 = pow(t82,0.333333333333333);
426 t109 = -1.0*t105*t76;
427 t110 = pow(t83,0.333333333333333);
428 t111 = 1.333333333333333*t110*(t81+t109)+1.333333333333333*
429 (t107+t106)*t108;
430 t112 = -7.324622014701263E-4*t75*t1*t2*t3*t97*t79*t84*
431 t87;
432 t113 = 1/pow(t64,5.0);
433 t114 = 4.0*t113*t77;
434 t115 = pow(t76,3.0);
435 t116 = t75*t77*t78*t84*(t89*(-2.35315*t13*t14*t15*t98-
436 2.0659*t1*t2*t3*t97-0.84155*t7*t8*t96-0.41678*t4*t5*t6*t95)/
437 (pow(t90,2.0)*t91)+0.002129457733333*t1*t2*t3*t97*t92-0.004429431133333*
438 t1*t2*t3*t97*t73-1.0*t99*t66*t100*t101);
439 t117 = -4.0*t113*t75*t77*t84*t93;
440 t118 = 1/pow(t56,5.0);
441 t119 = sqrt(rhob);
442 t120 = pow(rhob,0.333333333333333);
443 t121 = 1/t120;
444 t122 = 0.62517*t4*t5*t6/pow(rhob,0.666666666666667)+14.1189*
445 t13*t14*t15/pow(rhob,0.166666666666667)+1.6831*t7*t8/t119+
446 6.1977*t1*t2*t3*t121;
447 t123 = 32.1646831778707/t122+1.0;
448 t124 = log(t123);
449 t125 = 0.20548*t1*t2*t3*t121+1.0;
450 t126 = t64*(t94+t88+t74)+0.03109*t124*t125*rhob+0.03109*
451 t18*t33*rhoa;
452 t127 = pow(gradb,8.0);
453 t128 = 0.2*t52*t53+1.0;
454 t129 = 1/pow(t128,4.0);
455 t130 = 1/pow(rhob,10.66666666666667);
456 t131 = pow(gradb,6.0);
457 t132 = 1/pow(t128,3.0);
458 t133 = 1/pow(rhob,8.0);
459 t134 = pow(gradb,4.0);
460 t135 = 1/pow(t128,2.0);
461 t136 = 1/pow(rhob,5.333333333333333);
462 t137 = 1/t128;
463 t138 = 0.01710778*t52*t137*t53+0.00796612*t134*t135*t136-
464 0.01475312*t131*t132*t133+0.003489216*t127*t129*t130+0.492391;
465 t139 = 0.004*
466 t52*t53+1.0;
467 t140 = 1/pow(t139,4.0);
468 t141 = 1/pow(t139,3.0);
469 t142 = 1/pow(t139,2.0);
470 t143 = 1/t139;
471 t144 = pow(gradb,10.0);
472 t145 = 1/pow(t128,5.0);
473 t146 = 1/pow(rhob,14.33333333333333);
474 t147 = 1/pow(rhob,11.66666666666667);
475 t148 = 1/pow(rhob,9.0);
476 t149 = 1/pow(rhob,6.333333333333333);
477 t150 = 1/pow(rhob,3.666666666666667);
478 t151 = 1/t123;
479 t152 = pow(rhob,1.333333333333333);
480 t153 = -0.41678*t4*t5*t6/pow(rhob,1.666666666666667)-
481 2.35315*t13*t14*t15/pow(rhob,1.166666666666667)-0.84155*t7*
482 t8/pow(t119,3.0)-2.0659*t1*t2*t3/t152;
483 t154 = 1/pow(t122,2.0);
484 t155 = 1/pow(t139,5.0);
485 t156 = 1.333333333333333*t108*(t81+t106)+1.333333333333333*
486 (t107+t109)*t110;
487 t157 = pow(grada,9.0);
488 t158 = 1/pow(rhoa,13.33333333333333);
489 t159 = pow(grada,7.0);
490 t160 = pow(grada,5.0);
491 t161 = pow(grada,3.0);
492 t162 = pow(gradb,9.0);
493 t163 = 1/pow(rhob,13.33333333333333);
494 t164 = pow(gradb,7.0);
495 t165 = pow(gradb,5.0);
496 t166 = pow(gradb,3.0);
497
498 /* code */
499 dfdra = t63*(-1.0*t47*t49*t33*t50*rhoa+t94+t64*(4.0*t115*
500 t75*t78*t84*t93+t75*t77*t78*t111*t93+0.019751789702565*t75*
501 (t114-4.0*t115*t78)*t80*t84*t87+0.019751789702565*t75*t79*
502 t80*t111*t87+t117+t116+t112+t104+t103+t102)+t88+t74+0.03109*
503 t18*t33-0.002129457733333*t1*t2*t3*t18*t11)+t47*t32*t49*t33*
504 t50*rhoa-0.03109*t18*(-0.045620746666667*t20*t31*t46-0.033361824*
505 t28*t29*t45+0.126522154666667*t25*t26*t44-0.060823296*t19*
506 t23*t43+0.0074436608*t40*t41*t42)*t33*rhoa-0.75*t3*t34*(0.005552362666667*
507 t20*t39*t46-4.244238506666666E-4*t28*t38*t45+4.557020160000001E-6*
508 t25*t37*t44-2.0337588906666668E-8*t19*t36*t43+3.41797546666667E-11*
509 t40*t51*t42)*t48-1.0*t10*(-0.002082136*t20*t39*t21+7.54152E-5*
510 t28*t38*t30-3.685203200000001E-7*t25*t37*t27+8.01088E-10*t19*
511 t36*t24+1.07785)*t3*t34-0.03109*t18*t32*t33+(-0.02962368*t20*
512 t46*t62+0.00160816128*t20*t46*t54*t61-2.2149043200000002E-5*
513 t20*t46*t60*t59+1.2333676031999999E-7*t20*t46*t58*t57-2.5162555392E-10*
514 t20*t46*t55*t118)*t126+0.002129457733333*t1*t2*t3*t18*t32*
515 t11;
516 dfdrb = t63*(-1.0*t151*t153*t125*t154*rhob+t94+t64*(-
517 4.0*t115*t75*t78*t84*t93+t75*t77*t78*t156*t93+0.019751789702565*
518 t75*(4.0*t115*t78+t114)*t80*t84*t87+0.019751789702565*t75*
519 t79*t80*t156*t87+t117+t116+t112+t104+t103+t102)+t88+t74+0.03109*
520 t124*t125-0.002129457733333*t1*t2*t3*t124*t121)+t151*t138*
521 t153*t125*t154*rhob-0.03109*t124*(-0.045620746666667*t52*t137*
522 t150-0.033361824*t134*t135*t149+0.126522154666667*t131*t132*
523 t148-0.060823296*t127*t129*t147+0.0074436608*t144*t145*t146)*
524 t125*rhob-1.0*t120*t3*t34*(-0.002082136*t52*t143*t53+7.54152E-5*
525 t134*t142*t136-3.685203200000001E-7*t131*t141*t133+8.01088E-10*
526 t127*t140*t130+1.07785)-0.75*(0.005552362666667*t52*t143*t150-
527 4.244238506666666E-4*t134*t142*t149+4.557020160000001E-6*t131*
528 t141*t148-2.0337588906666668E-8*t127*t140*t147+3.41797546666667E-11*
529 t144*t155*t146)*t152*t3*t34+(-0.02962368*t52*t62*t150+0.00160816128*
530 t52*t54*t61*t150-2.2149043200000002E-5*t52*t60*t59*t150+1.2333676031999999E-7*
531 t52*t58*t57*t150-2.5162555392E-10*t52*t55*t118*t150)*t126-
532 0.03109*t124*t138*t125+0.002129457733333*t1*t2*t3*t124*t138*
533 t121;
534 dfdga = -0.03109*t18*(0.03421556*grada*t31*t21+0.025021368*
535 t161*t29*t30-0.094891616*t160*t26*t27+0.045617472*t159*t23*
536 t24-0.0055827456*t157*t41*t158)*t33*rhoa-0.75*(-0.004164272*
537 grada*t39*t21+3.18317888E-4*t161*t38*t30-3.417765120000001E-6*
538 t160*t37*t27+1.525319168E-8*t159*t36*t24-2.5634816E-11*t157*
539 t51*t158)*t3*t34*t48+(0.02221776*grada*t21*t62-0.00120612096*
540 grada*t21*t54*t61+1.66117824E-5*grada*t21*t60*t59-9.250257024E-8*
541 grada*t21*t58*t57+1.8871916544E-10*grada*t21*t55*t118)*t126;
542 dfdgb = -
543 0.03109*t124*(0.03421556*gradb*t137*t53+0.025021368*t166*t135*
544 t136-0.094891616*t165*t132*t133+0.045617472*t164*t129*t130-
545 0.0055827456*t162*t145*t163)*t125*rhob-0.75*t152*t3*t34*(-
546 0.004164272*gradb*t143*t53+3.18317888E-4*t166*t142*t136-3.417765120000001E-6*
547 t165*t141*t133+1.525319168E-8*t164*t140*t130-2.5634816E-11*
548 t162*t155*t163)+(0.02221776*gradb*t62*t53-0.00120612096*gradb*
549 t54*t61*t53+1.66117824E-5*gradb*t60*t59*t53-9.250257024E-8*
550 gradb*t58*t57*t53+1.8871916544E-10*gradb*t55*t118*t53)*t126;
551 dfdgab = 0.0;
552
553
554 ds->df1000 += factor*dfdra;
555 ds->df0100 += factor*dfdrb;
556 ds->df0010 += factor*dfdga;
557 ds->df0001 += factor*dfdgb;
558 ds->df00001+= factor*dfdgab;
559
560 }
561
562 static void
hcth93m_second(FunSecondFuncDrv * ds,real factor,const FunDensProp * dp)563 hcth93m_second(FunSecondFuncDrv *ds, real factor, const FunDensProp* dp)
564 {
565 real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
566 real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
567 d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
568 d2fdgbgb, d2fdgbgab, d2fdgabgab;
569 real rhoa = dp->rhoa, rhob = dp->rhob;
570 real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
571
572 real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
573 real t11, t12, t13, t14, t15, t16, t17, t18;
574 real t19, t20, t21, t22, t23, t24, t25, t26;
575 real t27, t28, t29, t30, t31, t32, t33, t34;
576 real t35, t36, t37, t38, t39, t40, t41, t42;
577 real t43, t44, t45, t46, t47, t48, t49, t50;
578 real t51, t52, t53, t54, t55, t56, t57, t58;
579 real t59, t60, t61, t62, t63, t64, t65, t66;
580 real t67, t68, t69, t70, t71, t72, t73, t74;
581 real t75, t76, t77, t78, t79, t80, t81, t82;
582 real t83, t84, t85, t86, t87, t88, t89, t90;
583 real t91, t92, t93, t94, t95, t96, t97, t98;
584 real t99, t100, t101, t102, t103, t104, t105;
585 real t106, t107, t108, t109, t110, t111, t112;
586 real t113, t114, t115, t116, t117, t118, t119;
587 real t120, t121, t122, t123, t124, t125, t126;
588 real t127, t128, t129, t130, t131, t132, t133;
589 real t134, t135, t136, t137, t138, t139, t140;
590 real t141, t142, t143, t144, t145, t146, t147;
591 real t148, t149, t150, t151, t152, t153, t154;
592 real t155, t156, t157, t158, t159, t160, t161;
593 real t162, t163, t164, t165, t166, t167, t168;
594 real t169, t170, t171, t172, t173, t174, t175;
595 real t176, t177, t178, t179, t180, t181, t182;
596 real t183, t184, t185, t186, t187, t188, t189;
597 real t190, t191, t192, t193, t194, t195, t196;
598 real t197, t198, t199, t200, t201, t202, t203;
599 real t204, t205, t206, t207, t208, t209, t210;
600 real t211, t212, t213, t214, t215, t216, t217;
601 real t218, t219, t220, t221, t222, t223, t224;
602 real t225, t226, t227, t228, t229, t230, t231;
603 real t232, t233, t234, t235, t236, t237, t238;
604 real t239, t240, t241, t242, t243, t244, t245;
605 real t246, t247, t248, t249, t250, t251, t252;
606 real t253, t254, t255, t256, t257, t258, t259;
607 real t260, t261, t262, t263, t264, t265, t266;
608 real t267, t268, t269, t270, t271, t272, t273;
609 real t274, t275, t276, t277, t278, t279, t280;
610 real t281, t282, t283, t284, t285;
611
612 t1 = pow(3.0,0.333333333333333);
613 t2 = 1/pow(4.0,0.333333333333333);
614 t3 = 1/pow(3.141592653589793,0.333333333333333);
615 t4 = pow(3.0,0.666666666666667);
616 t5 = 1/pow(4.0,0.666666666666667);
617 t6 = 1/pow(3.141592653589793,0.666666666666667);
618 t7 = 1/pow(rhoa,0.666666666666667);
619 t8 = 1.732050807568877;
620 t9 = 0.564189583547756;
621 t10 = sqrt(rhoa);
622 t11 = pow(rhoa,0.333333333333333);
623 t12 = 1/t11;
624 t13 = pow(2.0,0.333333333333333);
625 t14 = 1/t13;
626 t15 = pow(3.0,0.166666666666667);
627 t16 = 1/pow(3.141592653589793,0.166666666666667);
628 t17 = 14.1189*t14*t15*t16/pow(rhoa,0.166666666666667)+
629 1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
630 t18 = 32.1646831778707/
631 t17+1.0;
632 t19 = log(t18);
633 t20 = pow(grada,8.0);
634 t21 = pow(grada,2.0);
635 t22 = 1/pow(rhoa,2.666666666666667);
636 t23 = 0.2*t21*t22+1.0;
637 t24 = 1/pow(t23,4.0);
638 t25 = 1/pow(rhoa,10.66666666666667);
639 t26 = pow(grada,6.0);
640 t27 = 1/pow(t23,3.0);
641 t28 = 1/pow(rhoa,8.0);
642 t29 = pow(grada,4.0);
643 t30 = 1/pow(t23,2.0);
644 t31 = 1/pow(rhoa,5.333333333333333);
645 t32 = 1/t23;
646 t33 = 0.01710778*t21*t32*t22+0.00796612*t29*t30*t31-0.01475312*
647 t26*t27*t28+0.003489216*t20*t24*t25+0.492391;
648 t34 = 0.20548*t1*t2*t3*t12+1.0;
649 t35 = pow(6.0,0.333333333333333);
650 t36 = 0.004*t21*t22+1.0;
651 t37 = 1/pow(t36,4.0);
652 t38 = 1/pow(t36,3.0);
653 t39 = 1/pow(t36,2.0);
654 t40 = 1/t36;
655 t41 = -0.002082136*t21*t40*t22+7.54152E-5*t29*t39*t31-
656 3.685203200000001E-7*t26*t38*t28+8.01088E-10*t20*t37*t25+1.07785;
657 t42 = pow(grada,
658 10.0);
659 t43 = 1/pow(t23,5.0);
660 t44 = 1/pow(rhoa,14.33333333333333);
661 t45 = 1/pow(rhoa,11.66666666666667);
662 t46 = 1/pow(rhoa,9.0);
663 t47 = 1/pow(rhoa,6.333333333333333);
664 t48 = 1/pow(rhoa,3.666666666666667);
665 t49 = -0.045620746666667*t21*t32*t48-0.033361824*t29*
666 t30*t47+0.126522154666667*t26*t27*t46-0.060823296*t20*t24*
667 t45+0.0074436608*t42*t43*t44;
668 t50 = 1/t18;
669 t51 = pow(rhoa,1.333333333333333);
670 t52 = 1/t51;
671 t53 = -0.41678*t4*t5*t6/pow(rhoa,1.666666666666667)-2.35315*
672 t14*t15*t16/pow(rhoa,1.166666666666667)-0.84155*t8*t9/pow(t10,
673 3.0)-2.0659*t1*t2*t3*t52;
674 t54 = 1/pow(t17,2.0);
675 t55 = 1/pow(t36,5.0);
676 t56 = 0.005552362666667*t21*t40*t48-4.244238506666666E-4*
677 t29*t39*t47+4.557020160000001E-6*t26*t38*t46-2.0337588906666668E-8*
678 t20*t37*t45+3.41797546666667E-11*t42*t55*t44;
679 t57 = pow(gradb,2.0);
680 t58 = 1/pow(rhob,2.666666666666667);
681 t59 = 0.5*t57*t58+0.5*t21*t22;
682 t60 = pow(t59,4.0);
683 t61 = 0.006*t59+1.0;
684 t62 = 1/pow(t61,4.0);
685 t63 = pow(t59,3.0);
686 t64 = 1/pow(t61,3.0);
687 t65 = pow(t59,2.0);
688 t66 = 1/pow(t61,2.0);
689 t67 = 1/t61;
690 t68 = 0.02221776*t59*t67-5.364072E-4*t65*t66+3.391632E-6*
691 t63*t64-7.86329856E-9*t60*t62+0.622261;
692 t69 = rhob+rhoa;
693 t70 = 1/pow(t69,0.333333333333333);
694 t71 = 0.2137*t1*t2*t3*t70+1.0;
695 t72 = 1/pow(t69,0.666666666666667);
696 t73 = sqrt(t69);
697 t74 = 1/t73;
698 t75 = 1/pow(t69,0.166666666666667);
699 t76 = 7.5957*t14*t15*t16*t75+3.5876*t1*t2*t3*t70+0.8191*
700 t8*t9*t74+0.49294*t4*t5*t6*t72;
701 t77 = 16.0818243221511/t76+1.0;
702 t78 = log(t77);
703 t79 = -0.062182*t71*t78;
704 t80 = 1/(2.0*t13-2.0);
705 t81 = rhoa-1.0*rhob;
706 t82 = pow(t81,4.0);
707 t83 = 1/pow(t69,4.0);
708 t84 = 1.0-1.0*t82*t83;
709 t85 = 0.11125*t1*t2*t3*t70+1.0;
710 t86 = 1/t69;
711 t87 = 1.0-1.0*t81*t86;
712 t88 = t81*t86+1.0;
713 t89 = pow(t88,1.333333333333333)+pow(t87,1.333333333333333)-
714 2.0;
715 t90 = 10.357*t14*t15*t16*t75+3.6231*t1*t2*t3*t70+0.44013*
716 t8*t9*t74+0.49671*t4*t5*t6*t72;
717 t91 = 29.60857464321668/t90+1.0;
718 t92 = log(t91);
719 t93 = 0.019751789702565*t80*t84*t85*t89*t92;
720 t94 = 0.20548*t1*t2*t3*t70+1.0;
721 t95 = 14.1189*t14*t15*t16*t75+6.1977*t1*t2*t3*t70+1.6831*
722 t8*t9*t74+0.62517*t4*t5*t6*t72;
723 t96 = 32.1646831778707/t95+1.0;
724 t97 = log(t96);
725 t98 = 0.062182*t71*t78-0.03109*t94*t97;
726 t99 = t80*t82*t83*t89*t98;
727 t100 = 1/pow(t69,1.666666666666667);
728 t101 = 1/pow(t73,3.0);
729 t102 = 1/pow(t69,1.333333333333333);
730 t103 = 1/pow(t69,1.166666666666667);
731 t104 = -1.26595*t14*t15*t16*t103-1.195866666666667*t1*
732 t2*t3*t102-0.40955*t8*t9*t101-0.328626666666667*t4*t5*t6*t100;
733 t105 = 1/
734 pow(t76,2.0);
735 t106 = 1/t77;
736 t107 = 1.0*t104*t71*t105*t106;
737 t108 = -1.726166666666666*t14*t15*t16*t103-1.2077*t1*
738 t2*t3*t102-0.220065*t8*t9*t101-0.33114*t4*t5*t6*t100;
739 t109 = 1/pow(t90,2.0);
740 t110 = 1/t91;
741 t111 = -0.58482233974552*t80*t84*t108*t85*t109*t89*t110;
742 t112 = 0.004429431133333*
743 t1*t2*t3*t102*t78;
744 t113 = 1/pow(t69,2.0);
745 t114 = t81*t113;
746 t115 = -1.0*t86;
747 t116 = t115+t114;
748 t117 = pow(t87,0.333333333333333);
749 t118 = -1.0*t113*t81;
750 t119 = t86+t118;
751 t120 = pow(t88,0.333333333333333);
752 t121 = 1.333333333333333*t119*t120+1.333333333333333*
753 t116*t117;
754 t122 = 0.019751789702565*t80*t84*t85*t121*t92;
755 t123 = -7.324622014701263E-4*t80*t1*t2*t3*t102*t84*t89*
756 t92;
757 t124 = 1/pow(t69,5.0);
758 t125 = 4.0*t124*t82;
759 t126 = pow(t81,3.0);
760 t127 = t125-4.0*t126*t83;
761 t128 = 0.019751789702565*t80*t127*t85*t89*t92;
762 t129 = -2.35315*t14*t15*t16*t103-2.0659*t1*t2*t3*t102-
763 0.84155*t8*t9*t101-0.41678*t4*t5*t6*t100;
764 t130 = 1/pow(t95,2.0);
765 t131 = 1/t96;
766 t132 = 0.002129457733333*t1*t2*t3*t102*t97-0.004429431133333*
767 t1*t2*t3*t102*t78+t129*t94*t130*t131-1.0*t104*t71*t105*t106;
768 t133 = t80*
769 t82*t83*t89*t132;
770 t134 = t80*t82*t83*t121*t98;
771 t135 = -4.0*t124*t80*t82*t89*t98;
772 t136 = -1.0*t50*t53*t34*t54*rhoa+t99+t69*(4.0*t126*t80*
773 t83*t89*t98+t135+t134+t133+t128+t123+t122+t112+t111+t107)+
774 t93+t79+0.03109*t19*t34-0.002129457733333*t1*t2*t3*t19*t12;
775 t137 = 1/
776 pow(t61,5.0);
777 t138 = -0.02962368*t21*t48*t67+0.00160816128*t21*t48*
778 t59*t66-2.2149043200000002E-5*t21*t48*t65*t64+1.2333676031999999E-7*
779 t21*t48*t63*t62-2.5162555392E-10*t21*t48*t60*t137;
780 t139 = 1/pow(rhob,0.666666666666667);
781 t140 = sqrt(rhob);
782 t141 = pow(rhob,0.333333333333333);
783 t142 = 1/t141;
784 t143 = 14.1189*t14*t15*t16/pow(rhob,0.166666666666667)+
785 1.6831*t8*t9/t140+6.1977*t1*t2*t3*t142+0.62517*t4*t5*t6*t139;
786 t144 = 32.1646831778707/
787 t143+1.0;
788 t145 = log(t144);
789 t146 = 0.20548*t1*t2*t3*t142+1.0;
790 t147 = t69*(t99+t93+t79)+0.03109*t145*t146*rhob+0.03109*
791 t19*t34*rhoa;
792 t148 = pow(gradb,8.0);
793 t149 = 0.2*t57*t58+1.0;
794 t150 = 1/pow(t149,4.0);
795 t151 = 1/pow(rhob,10.66666666666667);
796 t152 = pow(gradb,6.0);
797 t153 = 1/pow(t149,3.0);
798 t154 = 1/pow(rhob,8.0);
799 t155 = pow(gradb,4.0);
800 t156 = 1/pow(t149,2.0);
801 t157 = 1/pow(rhob,5.333333333333333);
802 t158 = 1/t149;
803 t159 = 0.01710778*t57*t158*t58+0.00796612*t155*t156*t157-
804 0.01475312*t152*t153*t154+0.003489216*t148*t150*t151+0.492391;
805 t160 = 0.004*
806 t57*t58+1.0;
807 t161 = 1/pow(t160,4.0);
808 t162 = 1/pow(t160,3.0);
809 t163 = 1/pow(t160,2.0);
810 t164 = 1/t160;
811 t165 = -0.002082136*t57*t164*t58+7.54152E-5*t155*t163*
812 t157-3.685203200000001E-7*t152*t162*t154+8.01088E-10*t148*
813 t161*t151+1.07785;
814 t166 = pow(gradb,10.0);
815 t167 = 1/pow(t149,5.0);
816 t168 = 1/pow(rhob,14.33333333333333);
817 t169 = 1/pow(rhob,11.66666666666667);
818 t170 = 1/pow(rhob,9.0);
819 t171 = 1/pow(rhob,6.333333333333333);
820 t172 = 1/pow(rhob,3.666666666666667);
821 t173 = -0.045620746666667*t57*t158*t172-0.033361824*t155*
822 t156*t171+0.126522154666667*t152*t153*t170-0.060823296*t148*
823 t150*t169+0.0074436608*t166*t167*t168;
824 t174 = 1/t144;
825 t175 = pow(rhob,1.333333333333333);
826 t176 = 1/t175;
827 t177 = -0.41678*t4*t5*t6/pow(rhob,1.666666666666667)-
828 2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-0.84155*t8*
829 t9/pow(t140,3.0)-2.0659*t1*t2*t3*t176;
830 t178 = 1/pow(t143,2.0);
831 t179 = 1/pow(t160,5.0);
832 t180 = 0.005552362666667*t57*t164*t172-4.244238506666666E-4*
833 t155*t163*t171+4.557020160000001E-6*t152*t162*t170-2.0337588906666668E-8*
834 t148*t161*t169+3.41797546666667E-11*t166*t179*t168;
835 t181 = t86+t114;
836 t182 = t115+t118;
837 t183 = 1.333333333333333*t120*t182+1.333333333333333*
838 t117*t181;
839 t184 = 0.019751789702565*t80*t84*t85*t183*t92;
840 t185 = 4.0*t126*t83+t125;
841 t186 = 0.019751789702565*t80*t185*t85*t89*t92;
842 t187 = t80*t82*t83*t183*t98;
843 t188 = -1.0*t174*t177*t146*t178*rhob+t99+t69*(-4.0*t126*
844 t80*t83*t89*t98+t187+t186+t184+t135+t133+t123+t112+t111+t107)+
845 t93+t79+0.03109*t145*t146-0.002129457733333*t1*t2*t3*t145*
846 t142;
847 t189 = -0.02962368*t57*t67*t172+0.00160816128*t57*t59*
848 t66*t172-2.2149043200000002E-5*t57*t65*t64*t172+1.2333676031999999E-7*
849 t57*t63*t62*t172-2.5162555392E-10*t57*t60*t137*t172;
850 t190 = pow(grada,9.0);
851 t191 = 1/pow(rhoa,13.33333333333333);
852 t192 = pow(grada,7.0);
853 t193 = pow(grada,5.0);
854 t194 = pow(grada,3.0);
855 t195 = 0.03421556*grada*t32*t22+0.025021368*t194*t30*
856 t31-0.094891616*t193*t27*t28+0.045617472*t192*t24*t25-0.0055827456*
857 t190*t43*t191;
858 t196 = -0.004164272*grada*t40*t22+3.18317888E-4*t194*
859 t39*t31-3.417765120000001E-6*t193*t38*t28+1.525319168E-8*t192*
860 t37*t25-2.5634816E-11*t190*t55*t191;
861 t197 = 0.02221776*grada*t22*t67-0.00120612096*grada*t22*
862 t59*t66+1.66117824E-5*grada*t22*t65*t64-9.250257024E-8*grada*
863 t22*t63*t62+1.8871916544E-10*grada*t22*t60*t137;
864 t198 = pow(gradb,9.0);
865 t199 = 1/pow(rhob,13.33333333333333);
866 t200 = pow(gradb,7.0);
867 t201 = pow(gradb,5.0);
868 t202 = pow(gradb,3.0);
869 t203 = 0.03421556*gradb*t158*t58+0.025021368*t202*t156*
870 t157-0.094891616*t201*t153*t154+0.045617472*t200*t150*t151-
871 0.0055827456*t198*t167*t199;
872 t204 = -0.004164272*gradb*t164*t58+3.18317888E-4*t202*
873 t163*t157-3.417765120000001E-6*t201*t162*t154+1.525319168E-8*
874 t200*t161*t151-2.5634816E-11*t198*t179*t199;
875 t205 = 0.02221776*gradb*t67*t58-0.00120612096*gradb*t59*
876 t66*t58+1.66117824E-5*gradb*t65*t64*t58-9.250257024E-8*gradb*
877 t63*t62*t58+1.8871916544E-10*gradb*t60*t137*t58;
878 t206 = pow(grada,12.0);
879 t207 = 1/pow(t23,6.0);
880 t208 = 1/pow(rhoa,18.0);
881 t209 = 1/pow(rhoa,15.33333333333333);
882 t210 = 1/pow(rhoa,12.66666666666667);
883 t211 = 1/pow(rhoa,10.0);
884 t212 = 1/pow(rhoa,7.333333333333333);
885 t213 = 1/pow(rhoa,4.666666666666667);
886 t214 = 1/pow(t18,2.0);
887 t215 = pow(t53,2.0);
888 t216 = 1/pow(t17,4.0);
889 t217 = 1/pow(t17,3.0);
890 t218 = 2.754533333333333*t1*t2*t3/pow(rhoa,2.333333333333333)+
891 2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
892 1.262325*t8*t9/pow(t10,5.0)+0.694633333333333*t4*t5*t6*t22;
893 t219 = 1/
894 pow(t36,6.0);
895 t220 = 2.0*t104*t71*t105*t106;
896 t221 = -1.169644679491041*t80*t84*t108*t85*t109*t89*t110;
897 t222 = 0.008858862266667*
898 t1*t2*t3*t102*t78;
899 t223 = -0.00146492440294*t80*t1*t2*t3*t102*t84*t89*t92;
900 t224 = 2.0*
901 t132*t80*t82*t83*t89;
902 t225 = -8.0*t124*t80*t82*t89*t98;
903 t226 = pow(t104,2.0);
904 t227 = 1/pow(t76,4.0);
905 t228 = 1/pow(t77,2.0);
906 t229 = 16.0818243221511*t226*t71*t227*t228;
907 t230 = 1/pow(t76,3.0);
908 t231 = -2.0*t226*t71*t230*t106;
909 t232 = -0.142466666666667*t1*t2*t3*t102*t104*t105*t106;
910 t233 = 1/
911 pow(t69,2.666666666666667);
912 t234 = 1/pow(t73,5.0);
913 t235 = 1/pow(t69,2.333333333333333);
914 t236 = 1/pow(t69,2.166666666666667);
915 t237 = 1.476941666666667*t14*t15*t16*t236+1.594488888888889*
916 t1*t2*t3*t235+0.614325*t8*t9*t234+0.547711111111111*t4*t5*
917 t6*t233;
918 t238 = 1.0*t237*t71*t105*t106;
919 t239 = pow(t108,2.0);
920 t240 = -17.31575589937587*t239*t80*t84*t85*t89/(pow(t90,
921 4.0)*pow(t91,2.0));
922 t241 = 1.169644679491041*t110*t239*t80*t84*t85*t89/pow(t90,
923 3.0);
924 t242 = 0.043374323531126*t80*t1*t2*t3*t102*t84*t108*t109*
925 t89*t110;
926 t243 = -0.58482233974552*t80*t84*(2.013861111111111*t14*
927 t15*t16*t236+1.610266666666667*t1*t2*t3*t235+0.3300975*t8*
928 t9*t234+0.5519*t4*t5*t6*t233)*t85*t109*t89*t110;
929 t244 = -0.005905908177778*t1*t2*t3*t235*t78;
930 t245 = 1/pow(t87,0.666666666666667);
931 t246 = 1/pow(t69,3.0);
932 t247 = -2.0*t246*t81;
933 t248 = 2.0*t113;
934 t249 = 1/pow(t88,0.666666666666667);
935 t250 = 2.0*t246*t81;
936 t251 = -2.0*t113;
937 t252 = 1.333333333333333*t120*(t251+t250)+0.444444444444444*
938 pow(t119,2.0)*t249+1.333333333333333*t117*(t248+t247)+0.444444444444444*
939 pow(t116,2.0)*t245;
940 t253 = 9.76616268626835E-4*t80*t1*t2*t3*t235*t84*t89*
941 t92;
942 t254 = 1/pow(t69,6.0);
943 t255 = -20.0*t254*t82;
944 t256 = pow(t81,2.0);
945 t257 = -12.0*t256*t83;
946 t258 = pow(t129,2.0);
947 t259 = t80*t82*t83*t89*(-0.002839276977778*t1*t2*t3*t235*
948 t97+32.1646831778707*t258*t94/(pow(t95,4.0)*pow(t96,2.0))-
949 2.0*t131*t258*t94/pow(t95,3.0)+0.005905908177778*t1*t2*t3*
950 t235*t78-16.0818243221511*t226*t71*t227*t228+(2.745341666666667*
951 t14*t15*t16*t236+2.754533333333333*t1*t2*t3*t235+1.262325*
952 t8*t9*t234+0.694633333333333*t4*t5*t6*t233)*t94*t130*t131-
953 0.136986666666667*t1*t2*t3*t102*t129*t130*t131+2.0*t226*t71*
954 t230*t106-1.0*t237*t71*t105*t106+0.142466666666667*t1*t2*t3*
955 t102*t104*t105*t106);
956 t260 = -8.0*t124*t132*t80*t82*t89;
957 t261 = 20.0*t254*t80*t82*t89*t98;
958 t262 = 12.0*t256*t80*t83*t89*t98;
959 t263 = 1/pow(t61,6.0);
960 t264 = 2.666666666666667*t120*t246*t81-2.666666666666667*
961 t117*t246*t81+0.444444444444444*t119*t182*t249+0.444444444444444*
962 t116*t181*t245;
963 t265 = pow(grada,11.0);
964 t266 = 1/pow(rhoa,17.0);
965 t267 = pow(gradb,12.0);
966 t268 = 1/pow(t149,6.0);
967 t269 = 1/pow(rhob,18.0);
968 t270 = 1/pow(rhob,15.33333333333333);
969 t271 = 1/pow(rhob,12.66666666666667);
970 t272 = 1/pow(rhob,10.0);
971 t273 = 1/pow(rhob,7.333333333333333);
972 t274 = 1/pow(rhob,4.666666666666667);
973 t275 = 1/pow(t144,2.0);
974 t276 = pow(t177,2.0);
975 t277 = 1/pow(t143,4.0);
976 t278 = 1/pow(t143,3.0);
977 t279 = 2.754533333333333*t1*t2*t3/pow(rhob,2.333333333333333)+
978 2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
979 1.262325*t8*t9/pow(t140,5.0)+0.694633333333333*t4*t5*t6*t58;
980 t280 = 1/
981 pow(t160,6.0);
982 t281 = 1.333333333333333*t117*(t251+t247)+0.444444444444444*
983 pow(t182,2.0)*t249+1.333333333333333*t120*(t248+t250)+0.444444444444444*
984 pow(t181,2.0)*t245;
985 t282 = pow(gradb,11.0);
986 t283 = 1/pow(rhob,17.0);
987 t284 = 1/pow(rhoa,16.0);
988 t285 = 1/pow(rhob,16.0);
989
990 /* code */
991 dfdra = t50*t33*t53*t34*t54*rhoa-0.03109*t19*t49*t34*
992 rhoa-0.75*t3*t35*t51*t56-1.0*t11*t3*t35*t41-0.03109*t19*t33*
993 t34+t138*t147+t68*t136+0.002129457733333*t1*t2*t3*t19*t33*
994 t12;
995 dfdrb = t174*t159*t177*t146*t178*rhob-0.03109*t145*t173*
996 t146*rhob-0.75*t175*t180*t3*t35-1.0*t141*t165*t3*t35+t68*t188+
997 t189*t147-0.03109*t145*t159*t146+0.002129457733333*t1*t2*t3*
998 t145*t159*t142;
999 dfdga = -0.03109*t19*t195*t34*rhoa-0.75*t196*t3*t35*t51+
1000 t197*t147;
1001 dfdgb = -0.03109*t145*t203*t146*rhob-0.75*t175*t204*t3*
1002 t35+t205*t147;
1003 dfdgab = 0.0;
1004 d2fdrara = t68*(-1.0*t50*t218*t34*t54*rhoa+2.0*t50*t215*
1005 t34*t217*rhoa-32.1646831778707*t214*t215*t34*t216*rhoa+t69*
1006 (-32.0*t124*t126*t80*t89*t98+8.0*t121*t126*t80*t83*t98-8.0*
1007 t121*t124*t80*t82*t98+t80*t82*t83*t252*t98+0.019751789702565*
1008 (t257+t255+32.0*t124*t126)*t80*t85*t89*t92-0.00146492440294*
1009 t80*t1*t2*t3*t102*t127*t89*t92+0.019751789702565*t80*t84*t85*
1010 t252*t92+0.03950357940513*t80*t127*t85*t121*t92-0.00146492440294*
1011 t80*t1*t2*t3*t102*t84*t121*t92+8.0*t126*t132*t80*t83*t89+2.0*
1012 t121*t132*t80*t82*t83+t262+t261+t260+t259+t253+t244+t243+t242+
1013 t241+t240+t238+t232+t231+t229-1.169644679491041*t80*t127*t108*
1014 t85*t109*t89*t110-1.169644679491041*t80*t84*t108*t85*t109*
1015 t121*t110)+8.0*t126*t80*t83*t89*t98+2.0*t121*t80*t82*t83*t98+
1016 0.03950357940513*t80*t127*t85*t89*t92+0.03950357940513*t80*
1017 t84*t85*t121*t92-2.0*t50*t53*t34*t54-0.001419638488889*t1*
1018 t2*t3*t19*t52+t225+t224+t223+t222+t221+t220+0.136986666666667*
1019 t1*t2*t3*t50*t53*t54*t12)+2.0*t34*t49*t50*t53*t54*rhoa+t50*
1020 t33*t218*t34*t54*rhoa-2.0*t215*t217*t33*t34*t50*rhoa-0.03109*
1021 t19*(0.167276071111111*t21*t32*t213+0.186960487111111*t29*
1022 t30*t212-1.1742853376*t26*t27*t211+0.912040567466667*t20*t24*
1023 t210-0.236448836266667*t42*t43*t209+0.019849762133333*t206*
1024 t207*t208)*t34*rhoa+32.1646831778707*t214*t33*t215*t34*t216*
1025 rhoa-0.333333333333333*t3*t35*t41*t7-2.0*t11*t3*t35*t56+2.0*
1026 t33*t34*t50*t53*t54+0.001419638488889*t1*t2*t3*t19*t33*t52-
1027 0.75*(-0.020358663111111*t21*t40*t213+0.002747242922667*t29*
1028 t39*t212-5.00675569208889E-5*t26*t38*t211+3.830965156977778E-7*
1029 t20*t37*t210-1.357646943573333E-9*t42*t55*t209+1.82292024888889E-12*
1030 t206*t219*t208)*t3*t35*t51-0.06218*t19*t49*t34+(0.10862016*
1031 t21*t213*t67-0.00589659136*t21*t213*t59*t66-0.00238120448*
1032 t29*t212*t66+8.121315840000001E-5*t21*t213*t65*t64+8.479469568E-5*
1033 t29*t212*t59*t64-4.522347878399999E-7*t21*t213*t63*t62-1.02492407808E-6*
1034 t29*t212*t65*t62+9.2262703104E-10*t21*t213*t60*t137+5.28877928448E-9*
1035 t29*t212*t63*t137-1.00650221568E-11*t29*t212*t60*t263)*t147+
1036 2.0*t136*t138-0.136986666666667*t1*t2*t3*t50*t33*t53*t54*t12+
1037 0.004258915466667*t1*t2*t3*t19*t49*t12;
1038 d2fdrarb = t68*(t69*(-12.0*t256*t80*t83*t89*t98+4.0*t126*
1039 t183*t80*t83*t98-4.0*t121*t126*t80*t83*t98-4.0*t124*t183*t80*
1040 t82*t98-4.0*t121*t124*t80*t82*t98+t80*t82*t83*t264*t98+0.019751789702565*
1041 t80*(12.0*t256*t83+t255)*t85*t89*t92-7.324622014701263E-4*
1042 t80*t1*t2*t3*t102*t185*t89*t92-7.324622014701263E-4*t80*t1*
1043 t2*t3*t102*t127*t89*t92+0.019751789702565*t80*t84*t85*t264*
1044 t92+0.019751789702565*t80*t127*t85*t183*t92-7.324622014701263E-4*
1045 t80*t1*t2*t3*t102*t84*t183*t92+0.019751789702565*t80*t185*
1046 t85*t121*t92-7.324622014701263E-4*t80*t1*t2*t3*t102*t84*t121*
1047 t92+t261+t260+t259+t253+t244+t243+t242+t241+t240+t238+t232+
1048 t231+t229+t80*t82*t83*t183*t132+t80*t82*t83*t121*t132-0.58482233974552*
1049 t80*t185*t108*t85*t109*t89*t110-0.58482233974552*t80*t127*
1050 t108*t85*t109*t89*t110-0.58482233974552*t80*t84*t108*t85*t109*
1051 t183*t110-0.58482233974552*t80*t84*t108*t85*t109*t121*t110)+
1052 t225+t224+t223+t222+t221+t220+t187+t186+t184+t134+t128+t122)+
1053 t138*t188+(-0.00238120448*t21*t57*t48*t66*t172+8.479469568E-5*
1054 t21*t57*t48*t59*t64*t172-1.02492407808E-6*t21*t57*t48*t65*
1055 t62*t172+5.28877928448E-9*t21*t57*t48*t63*t137*t172-1.00650221568E-11*
1056 t21*t57*t48*t60*t263*t172)*t147+t189*t136;
1057 d2fdraga = t50*t195*t53*t34*t54*rhoa-0.03109*t19*(-0.091241493333333*
1058 grada*t32*t48-0.115198997333333*t194*t30*t47+0.7858223872*
1059 t193*t27*t46-0.6384129536*t192*t24*t45+0.1717538816*t190*t43*
1060 t44-0.0148873216*t265*t207*t266)*t34*rhoa-0.75*t3*t35*(0.011104725333333*
1061 grada*t40*t48-0.001742114304*t194*t39*t47+3.413290257066667E-5*
1062 t193*t38*t46-2.720691950933334E-7*t192*t37*t45+9.9260039168E-10*
1063 t190*t55*t44-1.367190186666667E-12*t265*t219*t266)*t51-1.0*
1064 t11*t196*t3*t35-0.03109*t19*t195*t34+(-0.05924736*grada*t48*
1065 t67+0.00321632256*grada*t48*t59*t66+0.00178590336*t194*t47*
1066 t66-4.42980864E-5*grada*t48*t65*t64-6.359602176E-5*t194*t47*
1067 t59*t64+2.4667352064E-7*grada*t48*t63*t62+7.6869305856E-7*
1068 t194*t47*t65*t62-5.0325110784E-10*grada*t48*t60*t137-3.96658446336E-9*
1069 t194*t47*t63*t137+7.5487666176E-12*t194*t47*t60*t263)*t147+
1070 t197*t136+0.002129457733333*t1*t2*t3*t19*t195*t12;
1071 d2fdragb = (0.00178590336*t21*gradb*t48*t66*t58-6.359602176E-5*
1072 t21*gradb*t48*t59*t64*t58+7.6869305856E-7*t21*gradb*t48*t65*
1073 t62*t58-3.96658446336E-9*t21*gradb*t48*t63*t137*t58+7.5487666176E-12*
1074 t21*gradb*t48*t60*t263*t58)*t147+t205*t136;
1075 d2fdraab = 0.0;
1076 d2fdrbrb = t68*(2.0*t174*t276*t146*t278*rhob-32.1646831778707*
1077 t275*t276*t146*t277*rhob-1.0*t174*t279*t146*t178*rhob+t69*
1078 (32.0*t124*t126*t80*t89*t98-8.0*t126*t183*t80*t83*t98-8.0*
1079 t124*t183*t80*t82*t98+t80*t82*t83*t281*t98+0.019751789702565*
1080 (t257+t255-32.0*t124*t126)*t80*t85*t89*t92-0.00146492440294*
1081 t80*t1*t2*t3*t102*t185*t89*t92+0.019751789702565*t80*t84*t85*
1082 t281*t92+0.03950357940513*t80*t185*t85*t183*t92-0.00146492440294*
1083 t80*t1*t2*t3*t102*t84*t183*t92-8.0*t126*t132*t80*t83*t89+2.0*
1084 t132*t183*t80*t82*t83+t262+t261+t260+t259+t253+t244+t243+t242+
1085 t241+t240+t238+t232+t231+t229-1.169644679491041*t80*t185*t108*
1086 t85*t109*t89*t110-1.169644679491041*t80*t84*t108*t85*t109*
1087 t183*t110)-8.0*t126*t80*t83*t89*t98+2.0*t183*t80*t82*t83*t98+
1088 0.03950357940513*t80*t185*t85*t89*t92+0.03950357940513*t80*
1089 t84*t85*t183*t92+t225+t224+t223+t222+t221+t220-2.0*t174*t177*
1090 t146*t178-0.001419638488889*t1*t2*t3*t145*t176+0.136986666666667*
1091 t1*t2*t3*t174*t177*t178*t142)-2.0*t146*t159*t174*t276*t278*
1092 rhob+32.1646831778707*t275*t159*t276*t146*t277*rhob+2.0*t146*
1093 t173*t174*t177*t178*rhob+t174*t159*t279*t146*t178*rhob-0.03109*
1094 t145*(0.167276071111111*t57*t158*t274+0.186960487111111*t155*
1095 t156*t273-1.1742853376*t152*t153*t272+0.912040567466667*t148*
1096 t150*t271-0.236448836266667*t166*t167*t270+0.019849762133333*
1097 t267*t268*t269)*t146*rhob-0.75*t175*(-0.020358663111111*t57*
1098 t164*t274+0.002747242922667*t155*t163*t273-5.00675569208889E-5*
1099 t152*t162*t272+3.830965156977778E-7*t148*t161*t271-1.357646943573333E-9*
1100 t166*t179*t270+1.82292024888889E-12*t267*t280*t269)*t3*t35-
1101 2.0*t141*t180*t3*t35-0.333333333333333*t139*t165*t3*t35+2.0*
1102 t188*t189+2.0*t146*t159*t174*t177*t178+0.001419638488889*t1*
1103 t2*t3*t145*t159*t176+(0.10862016*t57*t67*t274-0.00589659136*
1104 t57*t59*t66*t274+8.121315840000001E-5*t57*t65*t64*t274-4.522347878399999E-7*
1105 t57*t63*t62*t274+9.2262703104E-10*t57*t60*t137*t274-0.00238120448*
1106 t155*t66*t273+8.479469568E-5*t155*t59*t64*t273-1.02492407808E-6*
1107 t155*t65*t62*t273+5.28877928448E-9*t155*t63*t137*t273-1.00650221568E-11*
1108 t155*t60*t263*t273)*t147-0.06218*t145*t173*t146-0.136986666666667*
1109 t1*t2*t3*t174*t159*t177*t178*t142+0.004258915466667*t1*t2*
1110 t3*t145*t173*t142;
1111 d2fdrbga = (0.00178590336*grada*t57*t22*t66*t172-6.359602176E-5*
1112 grada*t57*t22*t59*t64*t172+7.6869305856E-7*grada*t57*t22*t65*
1113 t62*t172-3.96658446336E-9*grada*t57*t22*t63*t137*t172+7.5487666176E-12*
1114 grada*t57*t22*t60*t263*t172)*t147+t197*t188;
1115 d2fdrbgb = t174*t203*t177*t146*t178*rhob-0.03109*t145*
1116 (-0.091241493333333*gradb*t158*t172-0.115198997333333*t202*
1117 t156*t171+0.7858223872*t201*t153*t170-0.6384129536*t200*t150*
1118 t169+0.1717538816*t198*t167*t168-0.0148873216*t282*t268*t283)*
1119 t146*rhob-1.0*t141*t204*t3*t35-0.75*(0.011104725333333*gradb*
1120 t164*t172-0.001742114304*t202*t163*t171+3.413290257066667E-5*
1121 t201*t162*t170-2.720691950933334E-7*t200*t161*t169+9.9260039168E-10*
1122 t198*t179*t168-1.367190186666667E-12*t282*t280*t283)*t175*
1123 t3*t35+t205*t188+(-0.05924736*gradb*t67*t172+0.00321632256*
1124 gradb*t59*t66*t172-4.42980864E-5*gradb*t65*t64*t172+2.4667352064E-7*
1125 gradb*t63*t62*t172-5.0325110784E-10*gradb*t60*t137*t172+0.00178590336*
1126 t202*t66*t171-6.359602176E-5*t202*t59*t64*t171+7.6869305856E-7*
1127 t202*t65*t62*t171-3.96658446336E-9*t202*t63*t137*t171+7.5487666176E-12*
1128 t202*t60*t263*t171)*t147-0.03109*t145*t203*t146+0.002129457733333*
1129 t1*t2*t3*t145*t203*t142;
1130 d2fdrbgab = 0.0;
1131 d2fdgaga = -0.03109*t19*(0.03421556*t32*t22+0.06137788*
1132 t21*t30*t31-0.4944751744*t29*t27*t28+0.4331922432*t26*t24*
1133 t25-0.1232326656*t20*t43*t191+0.0111654912*t42*t207*t284)*
1134 t34*rhoa-0.75*(-0.004164272*t40*t22+9.882678399999998E-4*t21*
1135 t39*t31-2.2181911808000004E-5*t29*t38*t28+1.8879870464000002E-7*
1136 t26*t37*t25-7.1881547776E-10*t20*t55*t191+1.02539264E-12*t42*
1137 t219*t284)*t3*t35*t51+(0.02221776*t22*t67-0.00120612096*t22*
1138 t59*t66-0.00133942752*t21*t31*t66+1.66117824E-5*t22*t65*t64+
1139 4.769701632E-5*t21*t31*t59*t64-9.250257024E-8*t22*t63*t62-
1140 5.7651979392E-7*t21*t31*t65*t62+1.8871916544E-10*t22*t60*t137+
1141 2.97493834752E-9*t21*t31*t63*t137-5.6615749632E-12*t21*t31*
1142 t60*t263)*t147;
1143 d2fdgagb = (-0.00133942752*grada*gradb*t22*t66*t58+4.769701632E-5*
1144 grada*gradb*t22*t59*t64*t58-5.7651979392E-7*grada*gradb*t22*
1145 t65*t62*t58+2.97493834752E-9*grada*gradb*t22*t63*t137*t58-
1146 5.6615749632E-12*grada*gradb*t22*t60*t263*t58)*t147;
1147 d2fdgagab = 0.0;
1148 d2fdgbgb = -0.03109*t145*(0.03421556*t158*t58+0.06137788*
1149 t57*t156*t157-0.4944751744*t155*t153*t154+0.4331922432*t152*
1150 t150*t151-0.1232326656*t148*t167*t199+0.0111654912*t166*t268*
1151 t285)*t146*rhob-0.75*t175*t3*t35*(-0.004164272*t164*t58+9.882678399999998E-4*
1152 t57*t163*t157-2.2181911808000004E-5*t155*t162*t154+1.8879870464000002E-7*
1153 t152*t161*t151-7.1881547776E-10*t148*t179*t199+1.02539264E-12*
1154 t166*t280*t285)+(0.02221776*t67*t58-0.00120612096*t59*t66*
1155 t58+1.66117824E-5*t65*t64*t58-9.250257024E-8*t63*t62*t58+1.8871916544E-10*
1156 t60*t137*t58-0.00133942752*t57*t66*t157+4.769701632E-5*t57*
1157 t59*t64*t157-5.7651979392E-7*t57*t65*t62*t157+2.97493834752E-9*
1158 t57*t63*t137*t157-5.6615749632E-12*t57*t60*t263*t157)*t147;
1159 d2fdgbgab = 0.0;
1160 d2fdgabgab = 0.0;
1161
1162
1163 ds->df1000 += factor*dfdra;
1164 ds->df0100 += factor*dfdrb;
1165 ds->df0010 += factor*dfdga;
1166 ds->df0001 += factor*dfdgb;
1167 ds->df00001+= factor*dfdgab;
1168
1169 ds->df2000 += factor*d2fdrara;
1170 ds->df1100 += factor*d2fdrarb;
1171 ds->df1010 += factor*d2fdraga;
1172 ds->df1001 += factor*d2fdragb;
1173 ds->df10001+= factor*d2fdraab;
1174 ds->df0200 += factor*d2fdrbrb;
1175 ds->df0110 += factor*d2fdrbga;
1176 ds->df0101 += factor*d2fdrbgb;
1177 ds->df01001+= factor*d2fdrbgab;
1178 ds->df0020 += factor*d2fdgaga;
1179 ds->df0011 += factor*d2fdgagb;
1180 ds->df00101+= factor*d2fdgagab;
1181 ds->df0002 += factor*d2fdgbgb;
1182 ds->df00011+= factor*d2fdgbgab;
1183 ds->df00002+= factor*d2fdgabgab;
1184
1185 }
1186
1187 static void
hcth93m_third(FunThirdFuncDrv * ds,real factor,const FunDensProp * dp)1188 hcth93m_third(FunThirdFuncDrv *ds, real factor, const FunDensProp* dp)
1189 {
1190 real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
1191 real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
1192 d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
1193 d2fdgbgb, d2fdgbgab, d2fdgabgab;
1194 real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
1195 d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
1196 d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
1197 d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
1198 d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
1199 d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
1200 d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
1201 real rhoa = dp->rhoa, rhob = dp->rhob;
1202 real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
1203
1204 real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
1205 real t11, t12, t13, t14, t15, t16, t17, t18;
1206 real t19, t20, t21, t22, t23, t24, t25, t26;
1207 real t27, t28, t29, t30, t31, t32, t33, t34;
1208 real t35, t36, t37, t38, t39, t40, t41, t42;
1209 real t43, t44, t45, t46, t47, t48, t49, t50;
1210 real t51, t52, t53, t54, t55, t56, t57, t58;
1211 real t59, t60, t61, t62, t63, t64, t65, t66;
1212 real t67, t68, t69, t70, t71, t72, t73, t74;
1213 real t75, t76, t77, t78, t79, t80, t81, t82;
1214 real t83, t84, t85, t86, t87, t88, t89, t90;
1215 real t91, t92, t93, t94, t95, t96, t97, t98;
1216 real t99, t100, t101, t102, t103, t104, t105;
1217 real t106, t107, t108, t109, t110, t111, t112;
1218 real t113, t114, t115, t116, t117, t118, t119;
1219 real t120, t121, t122, t123, t124, t125, t126;
1220 real t127, t128, t129, t130, t131, t132, t133;
1221 real t134, t135, t136, t137, t138, t139, t140;
1222 real t141, t142, t143, t144, t145, t146, t147;
1223 real t148, t149, t150, t151, t152, t153, t154;
1224 real t155, t156, t157, t158, t159, t160, t161;
1225 real t162, t163, t164, t165, t166, t167, t168;
1226 real t169, t170, t171, t172, t173, t174, t175;
1227 real t176, t177, t178, t179, t180, t181, t182;
1228 real t183, t184, t185, t186, t187, t188, t189;
1229 real t190, t191, t192, t193, t194, t195, t196;
1230 real t197, t198, t199, t200, t201, t202, t203;
1231 real t204, t205, t206, t207, t208, t209, t210;
1232 real t211, t212, t213, t214, t215, t216, t217;
1233 real t218, t219, t220, t221, t222, t223, t224;
1234 real t225, t226, t227, t228, t229, t230, t231;
1235 real t232, t233, t234, t235, t236, t237, t238;
1236 real t239, t240, t241, t242, t243, t244, t245;
1237 real t246, t247, t248, t249, t250, t251, t252;
1238 real t253, t254, t255, t256, t257, t258, t259;
1239 real t260, t261, t262, t263, t264, t265, t266;
1240 real t267, t268, t269, t270, t271, t272, t273;
1241 real t274, t275, t276, t277, t278, t279, t280;
1242 real t281, t282, t283, t284, t285, t286, t287;
1243 real t288, t289, t290, t291, t292, t293, t294;
1244 real t295, t296, t297, t298, t299, t300, t301;
1245 real t302, t303, t304, t305, t306, t307, t308;
1246 real t309, t310, t311, t312, t313, t314, t315;
1247 real t316, t317, t318, t319, t320, t321, t322;
1248 real t323, t324, t325, t326, t327, t328, t329;
1249 real t330, t331, t332, t333, t334, t335, t336;
1250 real t337, t338, t339, t340, t341, t342, t343;
1251 real t344, t345, t346, t347, t348, t349, t350;
1252 real t351, t352, t353, t354, t355, t356, t357;
1253 real t358, t359, t360, t361, t362, t363, t364;
1254 real t365, t366, t367, t368, t369, t370, t371;
1255 real t372, t373, t374, t375, t376, t377, t378;
1256 real t379, t380, t381, t382, t383, t384, t385;
1257 real t386, t387, t388, t389, t390, t391, t392;
1258 real t393, t394, t395, t396, t397, t398, t399;
1259 real t400, t401, t402, t403, t404, t405, t406;
1260 real t407, t408, t409, t410, t411, t412, t413;
1261 real t414, t415, t416, t417, t418, t419, t420;
1262 real t421, t422, t423, t424, t425, t426, t427;
1263 real t428, t429, t430, t431, t432, t433, t434;
1264 real t435, t436, t437, t438, t439, t440, t441;
1265 real t442, t443, t444, t445, t446, t447, t448;
1266 real t449, t450, t451, t452, t453, t454, t455;
1267 real t456, t457, t458, t459, t460, t461, t462;
1268 real t463, t464, t465, t466, t467, t468, t469;
1269 real t470, t471, t472, t473, t474, t475, t476;
1270 real t477, t478, t479, t480, t481, t482, t483;
1271 real t484, t485, t486;
1272
1273 t1 = pow(3.0,0.333333333333333);
1274 t2 = 1/pow(4.0,0.333333333333333);
1275 t3 = 1/pow(3.141592653589793,0.333333333333333);
1276 t4 = pow(3.0,0.666666666666667);
1277 t5 = 1/pow(4.0,0.666666666666667);
1278 t6 = 1/pow(3.141592653589793,0.666666666666667);
1279 t7 = 1/pow(rhoa,0.666666666666667);
1280 t8 = 1.732050807568877;
1281 t9 = 0.564189583547756;
1282 t10 = sqrt(rhoa);
1283 t11 = pow(rhoa,0.333333333333333);
1284 t12 = 1/t11;
1285 t13 = pow(2.0,0.333333333333333);
1286 t14 = 1/t13;
1287 t15 = pow(3.0,0.166666666666667);
1288 t16 = 1/pow(3.141592653589793,0.166666666666667);
1289 t17 = 14.1189*t14*t15*t16/pow(rhoa,0.166666666666667)+
1290 1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
1291 t18 = 32.1646831778707/
1292 t17+1.0;
1293 t19 = log(t18);
1294 t20 = pow(grada,8.0);
1295 t21 = pow(grada,2.0);
1296 t22 = 1/pow(rhoa,2.666666666666667);
1297 t23 = 0.2*t21*t22+1.0;
1298 t24 = 1/pow(t23,4.0);
1299 t25 = 1/pow(rhoa,10.66666666666667);
1300 t26 = pow(grada,6.0);
1301 t27 = 1/pow(t23,3.0);
1302 t28 = 1/pow(rhoa,8.0);
1303 t29 = pow(grada,4.0);
1304 t30 = 1/pow(t23,2.0);
1305 t31 = 1/pow(rhoa,5.333333333333333);
1306 t32 = 1/t23;
1307 t33 = 0.01710778*t21*t32*t22+0.00796612*t29*t30*t31-0.01475312*
1308 t26*t27*t28+0.003489216*t20*t24*t25+0.492391;
1309 t34 = 0.20548*t1*t2*t3*t12+1.0;
1310 t35 = pow(6.0,0.333333333333333);
1311 t36 = 0.004*t21*t22+1.0;
1312 t37 = 1/pow(t36,4.0);
1313 t38 = 1/pow(t36,3.0);
1314 t39 = 1/pow(t36,2.0);
1315 t40 = 1/t36;
1316 t41 = -0.002082136*t21*t40*t22+7.54152E-5*t29*t39*t31-
1317 3.685203200000001E-7*t26*t38*t28+8.01088E-10*t20*t37*t25+1.07785;
1318 t42 = pow(grada,
1319 10.0);
1320 t43 = 1/pow(t23,5.0);
1321 t44 = 1/pow(rhoa,14.33333333333333);
1322 t45 = 1/pow(rhoa,11.66666666666667);
1323 t46 = 1/pow(rhoa,9.0);
1324 t47 = 1/pow(rhoa,6.333333333333333);
1325 t48 = 1/pow(rhoa,3.666666666666667);
1326 t49 = -0.045620746666667*t21*t32*t48-0.033361824*t29*
1327 t30*t47+0.126522154666667*t26*t27*t46-0.060823296*t20*t24*
1328 t45+0.0074436608*t42*t43*t44;
1329 t50 = 1/t18;
1330 t51 = 1/pow(rhoa,1.666666666666667);
1331 t52 = pow(rhoa,1.333333333333333);
1332 t53 = 1/t52;
1333 t54 = -2.35315*t14*t15*t16/pow(rhoa,1.166666666666667)-
1334 0.84155*t8*t9/pow(t10,3.0)-2.0659*t1*t2*t3*t53-0.41678*t4*
1335 t5*t6*t51;
1336 t55 = 1/pow(t17,2.0);
1337 t56 = 1/pow(t36,5.0);
1338 t57 = 0.005552362666667*t21*t40*t48-4.244238506666666E-4*
1339 t29*t39*t47+4.557020160000001E-6*t26*t38*t46-2.0337588906666668E-8*
1340 t20*t37*t45+3.41797546666667E-11*t42*t56*t44;
1341 t58 = pow(gradb,2.0);
1342 t59 = 1/pow(rhob,2.666666666666667);
1343 t60 = 0.5*t58*t59+0.5*t21*t22;
1344 t61 = pow(t60,4.0);
1345 t62 = 0.006*t60+1.0;
1346 t63 = 1/pow(t62,4.0);
1347 t64 = pow(t60,3.0);
1348 t65 = 1/pow(t62,3.0);
1349 t66 = pow(t60,2.0);
1350 t67 = 1/pow(t62,2.0);
1351 t68 = 1/t62;
1352 t69 = 0.02221776*t60*t68-5.364072E-4*t66*t67+3.391632E-6*
1353 t64*t65-7.86329856E-9*t61*t63+0.622261;
1354 t70 = rhob+rhoa;
1355 t71 = 1/pow(t70,0.333333333333333);
1356 t72 = 0.2137*t1*t2*t3*t71+1.0;
1357 t73 = 1/pow(t70,0.666666666666667);
1358 t74 = sqrt(t70);
1359 t75 = 1/t74;
1360 t76 = 1/pow(t70,0.166666666666667);
1361 t77 = 7.5957*t14*t15*t16*t76+3.5876*t1*t2*t3*t71+0.8191*
1362 t8*t9*t75+0.49294*t4*t5*t6*t73;
1363 t78 = 16.0818243221511/t77+1.0;
1364 t79 = log(t78);
1365 t80 = -0.062182*t72*t79;
1366 t81 = 1/(2.0*t13-2.0);
1367 t82 = rhoa-1.0*rhob;
1368 t83 = pow(t82,4.0);
1369 t84 = 1/pow(t70,4.0);
1370 t85 = 1.0-1.0*t83*t84;
1371 t86 = 0.11125*t1*t2*t3*t71+1.0;
1372 t87 = 1/t70;
1373 t88 = 1.0-1.0*t82*t87;
1374 t89 = t82*t87+1.0;
1375 t90 = pow(t89,1.333333333333333)+pow(t88,1.333333333333333)-
1376 2.0;
1377 t91 = 10.357*t14*t15*t16*t76+3.6231*t1*t2*t3*t71+0.44013*
1378 t8*t9*t75+0.49671*t4*t5*t6*t73;
1379 t92 = 29.60857464321668/t91+1.0;
1380 t93 = log(t92);
1381 t94 = 0.019751789702565*t81*t85*t86*t90*t93;
1382 t95 = 0.20548*t1*t2*t3*t71+1.0;
1383 t96 = 14.1189*t14*t15*t16*t76+6.1977*t1*t2*t3*t71+1.6831*
1384 t8*t9*t75+0.62517*t4*t5*t6*t73;
1385 t97 = 32.1646831778707/t96+1.0;
1386 t98 = log(t97);
1387 t99 = 0.062182*t72*t79-0.03109*t95*t98;
1388 t100 = t81*t83*t84*t90*t99;
1389 t101 = 1/pow(t70,1.666666666666667);
1390 t102 = 1/pow(t74,3.0);
1391 t103 = 1/pow(t70,1.333333333333333);
1392 t104 = 1/pow(t70,1.166666666666667);
1393 t105 = -1.26595*t14*t15*t16*t104-1.195866666666667*t1*
1394 t2*t3*t103-0.40955*t8*t9*t102-0.328626666666667*t4*t5*t6*t101;
1395 t106 = 1/
1396 pow(t77,2.0);
1397 t107 = 1/t78;
1398 t108 = 1.0*t105*t72*t106*t107;
1399 t109 = -1.726166666666666*t14*t15*t16*t104-1.2077*t1*
1400 t2*t3*t103-0.220065*t8*t9*t102-0.33114*t4*t5*t6*t101;
1401 t110 = 1/pow(t91,2.0);
1402 t111 = 1/t92;
1403 t112 = -0.58482233974552*t81*t85*t109*t86*t110*t90*t111;
1404 t113 = 0.004429431133333*
1405 t1*t2*t3*t103*t79;
1406 t114 = 1/pow(t70,2.0);
1407 t115 = t82*t114;
1408 t116 = -1.0*t87;
1409 t117 = t116+t115;
1410 t118 = pow(t88,0.333333333333333);
1411 t119 = -1.0*t114*t82;
1412 t120 = t87+t119;
1413 t121 = pow(t89,0.333333333333333);
1414 t122 = 1.333333333333333*t120*t121+1.333333333333333*
1415 t117*t118;
1416 t123 = 0.019751789702565*t81*t85*t86*t122*t93;
1417 t124 = -7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t90*
1418 t93;
1419 t125 = 1/pow(t70,5.0);
1420 t126 = 4.0*t125*t83;
1421 t127 = pow(t82,3.0);
1422 t128 = t126-4.0*t127*t84;
1423 t129 = 0.019751789702565*t81*t128*t86*t90*t93;
1424 t130 = -2.35315*t14*t15*t16*t104-2.0659*t1*t2*t3*t103-
1425 0.84155*t8*t9*t102-0.41678*t4*t5*t6*t101;
1426 t131 = 1/pow(t96,2.0);
1427 t132 = 1/t97;
1428 t133 = 0.002129457733333*t1*t2*t3*t103*t98-0.004429431133333*
1429 t1*t2*t3*t103*t79+t130*t95*t131*t132-1.0*t105*t72*t106*t107;
1430 t134 = t81*
1431 t83*t84*t90*t133;
1432 t135 = t81*t83*t84*t122*t99;
1433 t136 = -4.0*t125*t81*t83*t90*t99;
1434 t137 = -1.0*t50*t54*t34*t55*rhoa+t70*(4.0*t127*t81*t84*
1435 t90*t99+t136+t135+t134+t129+t124+t123+t113+t112+t108)+t94+
1436 t80+0.03109*t19*t34-0.002129457733333*t1*t2*t3*t19*t12+t100;
1437 t138 = 1/
1438 pow(t62,5.0);
1439 t139 = -0.02962368*t21*t48*t68+0.00160816128*t21*t48*
1440 t60*t67-2.2149043200000002E-5*t21*t48*t66*t65+1.2333676031999999E-7*
1441 t21*t48*t64*t63-2.5162555392E-10*t21*t48*t61*t138;
1442 t140 = 1/pow(rhob,0.666666666666667);
1443 t141 = sqrt(rhob);
1444 t142 = pow(rhob,0.333333333333333);
1445 t143 = 1/t142;
1446 t144 = 14.1189*t14*t15*t16/pow(rhob,0.166666666666667)+
1447 1.6831*t8*t9/t141+6.1977*t1*t2*t3*t143+0.62517*t4*t5*t6*t140;
1448 t145 = 32.1646831778707/
1449 t144+1.0;
1450 t146 = log(t145);
1451 t147 = 0.20548*t1*t2*t3*t143+1.0;
1452 t148 = t70*(t100+t94+t80)+0.03109*t146*t147*rhob+0.03109*
1453 t19*t34*rhoa;
1454 t149 = pow(gradb,8.0);
1455 t150 = 0.2*t58*t59+1.0;
1456 t151 = 1/pow(t150,4.0);
1457 t152 = 1/pow(rhob,10.66666666666667);
1458 t153 = pow(gradb,6.0);
1459 t154 = 1/pow(t150,3.0);
1460 t155 = 1/pow(rhob,8.0);
1461 t156 = pow(gradb,4.0);
1462 t157 = 1/pow(t150,2.0);
1463 t158 = 1/pow(rhob,5.333333333333333);
1464 t159 = 1/t150;
1465 t160 = 0.01710778*t58*t159*t59+0.00796612*t156*t157*t158-
1466 0.01475312*t153*t154*t155+0.003489216*t149*t151*t152+0.492391;
1467 t161 = 0.004*
1468 t58*t59+1.0;
1469 t162 = 1/pow(t161,4.0);
1470 t163 = 1/pow(t161,3.0);
1471 t164 = 1/pow(t161,2.0);
1472 t165 = 1/t161;
1473 t166 = -0.002082136*t58*t165*t59+7.54152E-5*t156*t164*
1474 t158-3.685203200000001E-7*t153*t163*t155+8.01088E-10*t149*
1475 t162*t152+1.07785;
1476 t167 = pow(gradb,10.0);
1477 t168 = 1/pow(t150,5.0);
1478 t169 = 1/pow(rhob,14.33333333333333);
1479 t170 = 1/pow(rhob,11.66666666666667);
1480 t171 = 1/pow(rhob,9.0);
1481 t172 = 1/pow(rhob,6.333333333333333);
1482 t173 = 1/pow(rhob,3.666666666666667);
1483 t174 = -0.045620746666667*t58*t159*t173-0.033361824*t156*
1484 t157*t172+0.126522154666667*t153*t154*t171-0.060823296*t149*
1485 t151*t170+0.0074436608*t167*t168*t169;
1486 t175 = 1/t145;
1487 t176 = 1/pow(rhob,1.666666666666667);
1488 t177 = pow(rhob,1.333333333333333);
1489 t178 = 1/t177;
1490 t179 = -2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-
1491 0.84155*t8*t9/pow(t141,3.0)-2.0659*t1*t2*t3*t178-0.41678*t4*
1492 t5*t6*t176;
1493 t180 = 1/pow(t144,2.0);
1494 t181 = 1/pow(t161,5.0);
1495 t182 = 0.005552362666667*t58*t165*t173-4.244238506666666E-4*
1496 t156*t164*t172+4.557020160000001E-6*t153*t163*t171-2.0337588906666668E-8*
1497 t149*t162*t170+3.41797546666667E-11*t167*t181*t169;
1498 t183 = t87+t115;
1499 t184 = t116+t119;
1500 t185 = 1.333333333333333*t121*t184+1.333333333333333*
1501 t118*t183;
1502 t186 = 0.019751789702565*t81*t85*t86*t185*t93;
1503 t187 = 4.0*t127*t84+t126;
1504 t188 = 0.019751789702565*t81*t187*t86*t90*t93;
1505 t189 = t81*t83*t84*t185*t99;
1506 t190 = -1.0*t175*t179*t147*t180*rhob+t70*(-4.0*t127*t81*
1507 t84*t90*t99+t189+t188+t186+t136+t134+t124+t113+t112+t108)+
1508 t94+t80+0.03109*t146*t147-0.002129457733333*t1*t2*t3*t146*
1509 t143+t100;
1510 t191 = -0.02962368*t58*t68*t173+0.00160816128*t58*t60*
1511 t67*t173-2.2149043200000002E-5*t58*t66*t65*t173+1.2333676031999999E-7*
1512 t58*t64*t63*t173-2.5162555392E-10*t58*t61*t138*t173;
1513 t192 = pow(grada,9.0);
1514 t193 = 1/pow(rhoa,13.33333333333333);
1515 t194 = pow(grada,7.0);
1516 t195 = pow(grada,5.0);
1517 t196 = pow(grada,3.0);
1518 t197 = 0.03421556*grada*t32*t22+0.025021368*t196*t30*
1519 t31-0.094891616*t195*t27*t28+0.045617472*t194*t24*t25-0.0055827456*
1520 t192*t43*t193;
1521 t198 = -0.004164272*grada*t40*t22+3.18317888E-4*t196*
1522 t39*t31-3.417765120000001E-6*t195*t38*t28+1.525319168E-8*t194*
1523 t37*t25-2.5634816E-11*t192*t56*t193;
1524 t199 = 0.02221776*grada*t22*t68-0.00120612096*grada*t22*
1525 t60*t67+1.66117824E-5*grada*t22*t66*t65-9.250257024E-8*grada*
1526 t22*t64*t63+1.8871916544E-10*grada*t22*t61*t138;
1527 t200 = pow(gradb,9.0);
1528 t201 = 1/pow(rhob,13.33333333333333);
1529 t202 = pow(gradb,7.0);
1530 t203 = pow(gradb,5.0);
1531 t204 = pow(gradb,3.0);
1532 t205 = 0.03421556*gradb*t159*t59+0.025021368*t204*t157*
1533 t158-0.094891616*t203*t154*t155+0.045617472*t202*t151*t152-
1534 0.0055827456*t200*t168*t201;
1535 t206 = -0.004164272*gradb*t165*t59+3.18317888E-4*t204*
1536 t164*t158-3.417765120000001E-6*t203*t163*t155+1.525319168E-8*
1537 t202*t162*t152-2.5634816E-11*t200*t181*t201;
1538 t207 = 0.02221776*gradb*t68*t59-0.00120612096*gradb*t60*
1539 t67*t59+1.66117824E-5*gradb*t66*t65*t59-9.250257024E-8*gradb*
1540 t64*t63*t59+1.8871916544E-10*gradb*t61*t138*t59;
1541 t208 = pow(grada,12.0);
1542 t209 = 1/pow(t23,6.0);
1543 t210 = 1/pow(rhoa,18.0);
1544 t211 = 1/pow(rhoa,15.33333333333333);
1545 t212 = 1/pow(rhoa,12.66666666666667);
1546 t213 = 1/pow(rhoa,10.0);
1547 t214 = 1/pow(rhoa,7.333333333333333);
1548 t215 = 1/pow(rhoa,4.666666666666667);
1549 t216 = 0.167276071111111*t21*t32*t215+0.186960487111111*
1550 t29*t30*t214-1.1742853376*t26*t27*t213+0.912040567466667*t20*
1551 t24*t212-0.236448836266667*t42*t43*t211+0.019849762133333*
1552 t208*t209*t210;
1553 t217 = 1/pow(t18,2.0);
1554 t218 = pow(t54,2.0);
1555 t219 = 1/pow(t17,4.0);
1556 t220 = 1/pow(t17,3.0);
1557 t221 = 1/pow(rhoa,2.333333333333333);
1558 t222 = 2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
1559 1.262325*t8*t9/pow(t10,5.0)+2.754533333333333*t1*t2*t3*t221+
1560 0.694633333333333*t4*t5*t6*t22;
1561 t223 = 1/pow(t36,6.0);
1562 t224 = -0.020358663111111*t21*t40*t215+0.002747242922667*
1563 t29*t39*t214-5.00675569208889E-5*t26*t38*t213+3.830965156977778E-7*
1564 t20*t37*t212-1.357646943573333E-9*t42*t56*t211+1.82292024888889E-12*
1565 t208*t223*t210;
1566 t225 = 2.0*t105*t72*t106*t107;
1567 t226 = -1.169644679491041*t81*t85*t109*t86*t110*t90*t111;
1568 t227 = 0.008858862266667*
1569 t1*t2*t3*t103*t79;
1570 t228 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t90*t93;
1571 t229 = 2.0*
1572 t133*t81*t83*t84*t90;
1573 t230 = -8.0*t125*t81*t83*t90*t99;
1574 t231 = pow(t105,2.0);
1575 t232 = 1/pow(t77,4.0);
1576 t233 = 1/pow(t78,2.0);
1577 t234 = 16.0818243221511*t231*t72*t232*t233;
1578 t235 = 1/pow(t77,3.0);
1579 t236 = -2.0*t231*t72*t235*t107;
1580 t237 = -0.142466666666667*t1*t2*t3*t103*t105*t106*t107;
1581 t238 = 1/
1582 pow(t70,2.666666666666667);
1583 t239 = 1/pow(t74,5.0);
1584 t240 = 1/pow(t70,2.333333333333333);
1585 t241 = 1/pow(t70,2.166666666666667);
1586 t242 = 1.476941666666667*t14*t15*t16*t241+1.594488888888889*
1587 t1*t2*t3*t240+0.614325*t8*t9*t239+0.547711111111111*t4*t5*
1588 t6*t238;
1589 t243 = 1.0*t242*t72*t106*t107;
1590 t244 = pow(t109,2.0);
1591 t245 = 1/pow(t91,4.0);
1592 t246 = 1/pow(t92,2.0);
1593 t247 = -17.31575589937587*t81*t85*t244*t86*t245*t90*t246;
1594 t248 = -
1595 1.169644679491041*t81*t85*t109*t86*t110*t122*t111;
1596 t249 = 1/pow(t91,3.0);
1597 t250 = 1.169644679491041*t81*t85*t244*t86*t249*t90*t111;
1598 t251 = 0.043374323531126*
1599 t81*t1*t2*t3*t103*t85*t109*t110*t90*t111;
1600 t252 = 2.013861111111111*t14*t15*t16*t241+1.610266666666667*
1601 t1*t2*t3*t240+0.3300975*t8*t9*t239+0.5519*t4*t5*t6*t238;
1602 t253 = -
1603 0.58482233974552*t81*t85*t252*t86*t110*t90*t111;
1604 t254 = -1.169644679491041*t81*t128*t109*t86*t110*t90*
1605 t111;
1606 t255 = -0.005905908177778*t1*t2*t3*t240*t79;
1607 t256 = pow(t117,2.0);
1608 t257 = 1/pow(t88,0.666666666666667);
1609 t258 = 1/pow(t70,3.0);
1610 t259 = -2.0*t258*t82;
1611 t260 = 2.0*t114;
1612 t261 = t260+t259;
1613 t262 = pow(t120,2.0);
1614 t263 = 1/pow(t89,0.666666666666667);
1615 t264 = 2.0*t258*t82;
1616 t265 = -2.0*t114;
1617 t266 = t265+t264;
1618 t267 = 1.333333333333333*t121*t266+0.444444444444444*
1619 t262*t263+1.333333333333333*t118*t261+0.444444444444444*t256*
1620 t257;
1621 t268 = 0.019751789702565*t81*t85*t86*t267*t93;
1622 t269 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t122*t93;
1623 t270 = 0.03950357940513*
1624 t81*t128*t86*t122*t93;
1625 t271 = -0.00146492440294*t81*t1*t2*t3*t103*t128*t90*t93;
1626 t272 = 9.76616268626835E-4*t81*t1*t2*t3*t240*t85*t90*
1627 t93;
1628 t273 = 1/pow(t70,6.0);
1629 t274 = -20.0*t273*t83;
1630 t275 = pow(t82,2.0);
1631 t276 = -12.0*t275*t84;
1632 t277 = t276+t274+32.0*t125*t127;
1633 t278 = 0.019751789702565*t81*t277*t86*t90*t93;
1634 t279 = pow(t130,2.0);
1635 t280 = 1/pow(t96,4.0);
1636 t281 = 1/pow(t97,2.0);
1637 t282 = 1/pow(t96,3.0);
1638 t283 = 2.745341666666667*t14*t15*t16*t241+2.754533333333333*
1639 t1*t2*t3*t240+1.262325*t8*t9*t239+0.694633333333333*t4*t5*
1640 t6*t238;
1641 t284 = -0.002839276977778*t1*t2*t3*t240*t98-2.0*t132*
1642 t279*t282*t95+0.005905908177778*t1*t2*t3*t240*t79+32.1646831778707*
1643 t279*t95*t280*t281-16.0818243221511*t231*t72*t232*t233+t283*
1644 t95*t131*t132-0.136986666666667*t1*t2*t3*t103*t130*t131*t132+
1645 2.0*t231*t72*t235*t107-1.0*t242*t72*t106*t107+0.142466666666667*
1646 t1*t2*t3*t103*t105*t106*t107;
1647 t285 = t81*t83*t84*t90*t284;
1648 t286 = 2.0*t122*t133*t81*t83*t84;
1649 t287 = -8.0*t125*t133*t81*t83*t90;
1650 t288 = 8.0*t127*t133*t81*t84*t90;
1651 t289 = t81*t83*t84*t267*t99;
1652 t290 = -8.0*t122*t125*t81*t83*t99;
1653 t291 = 20.0*t273*t81*t83*t90*t99;
1654 t292 = -32.0*t125*t127*t81*t90*t99;
1655 t293 = 12.0*t275*t81*t84*t90*t99;
1656 t294 = -1.0*t50*t222*t34*t55*rhoa+2.0*t50*t218*t34*t220*
1657 rhoa-32.1646831778707*t217*t218*t34*t219*rhoa+t70*(8.0*t122*
1658 t127*t81*t84*t99+t293+t292+t291+t290+t289+t288+t287+t286+t285+
1659 t278+t272+t271+t270+t269+t268+t255+t254+t253+t251+t250+t248+
1660 t247+t243+t237+t236+t234)+8.0*t127*t81*t84*t90*t99+2.0*t122*
1661 t81*t83*t84*t99+0.03950357940513*t81*t128*t86*t90*t93+0.03950357940513*
1662 t81*t85*t86*t122*t93-2.0*t50*t54*t34*t55-0.001419638488889*
1663 t1*t2*t3*t19*t53+t230+t229+t228+t227+t226+t225+0.136986666666667*
1664 t1*t2*t3*t50*t54*t55*t12;
1665 t295 = 1/pow(t62,6.0);
1666 t296 = 0.10862016*t21*t215*t68-0.00589659136*t21*t215*
1667 t60*t67-0.00238120448*t29*t214*t67+8.121315840000001E-5*t21*
1668 t215*t66*t65+8.479469568E-5*t29*t214*t60*t65-4.522347878399999E-7*
1669 t21*t215*t64*t63-1.02492407808E-6*t29*t214*t66*t63+9.2262703104E-10*
1670 t21*t215*t61*t138+5.28877928448E-9*t29*t214*t64*t138-1.00650221568E-11*
1671 t29*t214*t61*t295;
1672 t297 = 2.666666666666667*t121*t258*t82-2.666666666666667*
1673 t118*t258*t82+0.444444444444444*t120*t184*t263+0.444444444444444*
1674 t117*t183*t257;
1675 t298 = 12.0*t275*t84+t274;
1676 t299 = -12.0*t275*t81*t84*t90*t99;
1677 t300 = t70*(4.0*t127*t185*t81*t84*t99-4.0*t122*t127*t81*
1678 t84*t99-4.0*t125*t185*t81*t83*t99-4.0*t122*t125*t81*t83*t99+
1679 t81*t83*t84*t297*t99+0.019751789702565*t81*t298*t86*t90*t93-
1680 7.324622014701263E-4*t81*t1*t2*t3*t103*t187*t90*t93-7.324622014701263E-4*
1681 t81*t1*t2*t3*t103*t128*t90*t93+0.019751789702565*t81*t85*t86*
1682 t297*t93+0.019751789702565*t81*t128*t86*t185*t93-7.324622014701263E-4*
1683 t81*t1*t2*t3*t103*t85*t185*t93+0.019751789702565*t81*t187*
1684 t86*t122*t93-7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t122*
1685 t93+t299+t291+t287+t285+t272+t255+t253+t251+t250+t247+t243+
1686 t237+t236+t234+t81*t83*t84*t185*t133+t81*t83*t84*t122*t133-
1687 0.58482233974552*t81*t187*t109*t86*t110*t90*t111-0.58482233974552*
1688 t81*t128*t109*t86*t110*t90*t111-0.58482233974552*t81*t85*t109*
1689 t86*t110*t185*t111-0.58482233974552*t81*t85*t109*t86*t110*
1690 t122*t111)+t230+t229+t228+t227+t226+t225+t189+t188+t186+t135+
1691 t129+t123;
1692 t301 = -0.00238120448*t21*t58*t48*t67*t173+8.479469568E-5*
1693 t21*t58*t48*t60*t65*t173-1.02492407808E-6*t21*t58*t48*t66*
1694 t63*t173+5.28877928448E-9*t21*t58*t48*t64*t138*t173-1.00650221568E-11*
1695 t21*t58*t48*t61*t295*t173;
1696 t302 = pow(grada,11.0);
1697 t303 = 1/pow(rhoa,17.0);
1698 t304 = -0.091241493333333*grada*t32*t48-0.115198997333333*
1699 t196*t30*t47+0.7858223872*t195*t27*t46-0.6384129536*t194*t24*
1700 t45+0.1717538816*t192*t43*t44-0.0148873216*t302*t209*t303;
1701 t305 = 0.011104725333333*
1702 grada*t40*t48-0.001742114304*t196*t39*t47+3.413290257066667E-5*
1703 t195*t38*t46-2.720691950933334E-7*t194*t37*t45+9.9260039168E-10*
1704 t192*t56*t44-1.367190186666667E-12*t302*t223*t303;
1705 t306 = -0.05924736*grada*t48*t68+0.00321632256*grada*
1706 t48*t60*t67+0.00178590336*t196*t47*t67-4.42980864E-5*grada*
1707 t48*t66*t65-6.359602176E-5*t196*t47*t60*t65+2.4667352064E-7*
1708 grada*t48*t64*t63+7.6869305856E-7*t196*t47*t66*t63-5.0325110784E-10*
1709 grada*t48*t61*t138-3.96658446336E-9*t196*t47*t64*t138+7.5487666176E-12*
1710 t196*t47*t61*t295;
1711 t307 = 0.00178590336*t21*gradb*t48*t67*t59-6.359602176E-5*
1712 t21*gradb*t48*t60*t65*t59+7.6869305856E-7*t21*gradb*t48*t66*
1713 t63*t59-3.96658446336E-9*t21*gradb*t48*t64*t138*t59+7.5487666176E-12*
1714 t21*gradb*t48*t61*t295*t59;
1715 t308 = pow(gradb,12.0);
1716 t309 = 1/pow(t150,6.0);
1717 t310 = 1/pow(rhob,18.0);
1718 t311 = 1/pow(rhob,15.33333333333333);
1719 t312 = 1/pow(rhob,12.66666666666667);
1720 t313 = 1/pow(rhob,10.0);
1721 t314 = 1/pow(rhob,7.333333333333333);
1722 t315 = 1/pow(rhob,4.666666666666667);
1723 t316 = 0.167276071111111*t58*t159*t315+0.186960487111111*
1724 t156*t157*t314-1.1742853376*t153*t154*t313+0.912040567466667*
1725 t149*t151*t312-0.236448836266667*t167*t168*t311+0.019849762133333*
1726 t308*t309*t310;
1727 t317 = 1/pow(t145,2.0);
1728 t318 = pow(t179,2.0);
1729 t319 = 1/pow(t144,4.0);
1730 t320 = 1/pow(t144,3.0);
1731 t321 = 1/pow(rhob,2.333333333333333);
1732 t322 = 2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
1733 1.262325*t8*t9/pow(t141,5.0)+0.694633333333333*t4*t5*t6*t59+
1734 2.754533333333333*t1*t2*t3*t321;
1735 t323 = 1/pow(t161,6.0);
1736 t324 = -0.020358663111111*t58*t165*t315+0.002747242922667*
1737 t156*t164*t314-5.00675569208889E-5*t153*t163*t313+3.830965156977778E-7*
1738 t149*t162*t312-1.357646943573333E-9*t167*t181*t311+1.82292024888889E-12*
1739 t308*t323*t310;
1740 t325 = -1.169644679491041*t81*t85*t109*t86*t110*t185*
1741 t111;
1742 t326 = -1.169644679491041*t81*t187*t109*t86*t110*t90*
1743 t111;
1744 t327 = pow(t183,2.0);
1745 t328 = t265+t259;
1746 t329 = pow(t184,2.0);
1747 t330 = t260+t264;
1748 t331 = 1.333333333333333*t121*t330+0.444444444444444*
1749 t263*t329+1.333333333333333*t118*t328+0.444444444444444*t257*
1750 t327;
1751 t332 = 0.019751789702565*t81*t85*t86*t331*t93;
1752 t333 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t185*t93;
1753 t334 = 0.03950357940513*
1754 t81*t187*t86*t185*t93;
1755 t335 = -0.00146492440294*t81*t1*t2*t3*t103*t187*t90*t93;
1756 t336 = t276+
1757 t274-32.0*t125*t127;
1758 t337 = 0.019751789702565*t81*t336*t86*t90*t93;
1759 t338 = 2.0*t133*t185*t81*t83*t84;
1760 t339 = -8.0*t127*t133*t81*t84*t90;
1761 t340 = t81*t83*t84*t331*t99;
1762 t341 = -8.0*t125*t185*t81*t83*t99;
1763 t342 = 32.0*t125*t127*t81*t90*t99;
1764 t343 = 2.0*t175*t318*t147*t320*rhob-32.1646831778707*
1765 t317*t318*t147*t319*rhob-1.0*t175*t322*t147*t180*rhob+t70*
1766 (-8.0*t127*t185*t81*t84*t99+t342+t341+t340+t339+t338+t337+
1767 t335+t334+t333+t332+t326+t325+t293+t291+t287+t285+t272+t255+
1768 t253+t251+t250+t247+t243+t237+t236+t234)-8.0*t127*t81*t84*
1769 t90*t99+2.0*t185*t81*t83*t84*t99+0.03950357940513*t81*t187*
1770 t86*t90*t93+0.03950357940513*t81*t85*t86*t185*t93+t230+t229+
1771 t228+t227+t226+t225-2.0*t175*t179*t147*t180-0.001419638488889*
1772 t1*t2*t3*t146*t178+0.136986666666667*t1*t2*t3*t175*t179*t180*
1773 t143;
1774 t344 = 0.10862016*t58*t68*t315-0.00589659136*t58*t60*
1775 t67*t315+8.121315840000001E-5*t58*t66*t65*t315-4.522347878399999E-7*
1776 t58*t64*t63*t315+9.2262703104E-10*t58*t61*t138*t315-0.00238120448*
1777 t156*t67*t314+8.479469568E-5*t156*t60*t65*t314-1.02492407808E-6*
1778 t156*t66*t63*t314+5.28877928448E-9*t156*t64*t138*t314-1.00650221568E-11*
1779 t156*t61*t295*t314;
1780 t345 = 0.00178590336*grada*t58*t22*t67*t173-6.359602176E-5*
1781 grada*t58*t22*t60*t65*t173+7.6869305856E-7*grada*t58*t22*t66*
1782 t63*t173-3.96658446336E-9*grada*t58*t22*t64*t138*t173+7.5487666176E-12*
1783 grada*t58*t22*t61*t295*t173;
1784 t346 = pow(gradb,11.0);
1785 t347 = 1/pow(rhob,17.0);
1786 t348 = -0.091241493333333*gradb*t159*t173-0.115198997333333*
1787 t204*t157*t172+0.7858223872*t203*t154*t171-0.6384129536*t202*
1788 t151*t170+0.1717538816*t200*t168*t169-0.0148873216*t346*t309*
1789 t347;
1790 t349 = 0.011104725333333*gradb*t165*t173-0.001742114304*
1791 t204*t164*t172+3.413290257066667E-5*t203*t163*t171-2.720691950933334E-7*
1792 t202*t162*t170+9.9260039168E-10*t200*t181*t169-1.367190186666667E-12*
1793 t346*t323*t347;
1794 t350 = -0.05924736*gradb*t68*t173+0.00321632256*gradb*
1795 t60*t67*t173-4.42980864E-5*gradb*t66*t65*t173+2.4667352064E-7*
1796 gradb*t64*t63*t173-5.0325110784E-10*gradb*t61*t138*t173+0.00178590336*
1797 t204*t67*t172-6.359602176E-5*t204*t60*t65*t172+7.6869305856E-7*
1798 t204*t66*t63*t172-3.96658446336E-9*t204*t64*t138*t172+7.5487666176E-12*
1799 t204*t61*t295*t172;
1800 t351 = 1/pow(rhoa,16.0);
1801 t352 = 0.03421556*t32*t22+0.06137788*t21*t30*t31-0.4944751744*
1802 t29*t27*t28+0.4331922432*t26*t24*t25-0.1232326656*t20*t43*
1803 t193+0.0111654912*t42*t209*t351;
1804 t353 = -0.004164272*t40*t22+9.882678399999998E-4*t21*
1805 t39*t31-2.2181911808000004E-5*t29*t38*t28+1.8879870464000002E-7*
1806 t26*t37*t25-7.1881547776E-10*t20*t56*t193+1.02539264E-12*t42*
1807 t223*t351;
1808 t354 = 0.02221776*t22*t68-0.00120612096*t22*t60*t67-0.00133942752*
1809 t21*t31*t67+1.66117824E-5*t22*t66*t65+4.769701632E-5*t21*t31*
1810 t60*t65-9.250257024E-8*t22*t64*t63-5.7651979392E-7*t21*t31*
1811 t66*t63+1.8871916544E-10*t22*t61*t138+2.97493834752E-9*t21*
1812 t31*t64*t138-5.6615749632E-12*t21*t31*t61*t295;
1813 t355 = -0.00133942752*grada*gradb*t22*t67*t59+4.769701632E-5*
1814 grada*gradb*t22*t60*t65*t59-5.7651979392E-7*grada*gradb*t22*
1815 t66*t63*t59+2.97493834752E-9*grada*gradb*t22*t64*t138*t59-
1816 5.6615749632E-12*grada*gradb*t22*t61*t295*t59;
1817 t356 = 1/pow(rhob,16.0);
1818 t357 = 0.03421556*t159*t59+0.06137788*t58*t157*t158-0.4944751744*
1819 t156*t154*t155+0.4331922432*t153*t151*t152-0.1232326656*t149*
1820 t168*t201+0.0111654912*t167*t309*t356;
1821 t358 = -0.004164272*t165*t59+9.882678399999998E-4*t58*
1822 t164*t158-2.2181911808000004E-5*t156*t163*t155+1.8879870464000002E-7*
1823 t153*t162*t152-7.1881547776E-10*t149*t181*t201+1.02539264E-12*
1824 t167*t323*t356;
1825 t359 = 0.02221776*t68*t59-0.00120612096*t60*t67*t59+1.66117824E-5*
1826 t66*t65*t59-9.250257024E-8*t64*t63*t59+1.8871916544E-10*t61*
1827 t138*t59-0.00133942752*t58*t67*t158+4.769701632E-5*t58*t60*
1828 t65*t158-5.7651979392E-7*t58*t66*t63*t158+2.97493834752E-9*
1829 t58*t64*t138*t158-5.6615749632E-12*t58*t61*t295*t158;
1830 t360 = pow(grada,14.0);
1831 t361 = 1/pow(t23,7.0);
1832 t362 = 1/pow(rhoa,21.66666666666667);
1833 t363 = 1/pow(rhoa,19.0);
1834 t364 = 1/pow(rhoa,16.33333333333333);
1835 t365 = 1/pow(rhoa,13.66666666666667);
1836 t366 = 1/pow(rhoa,11.0);
1837 t367 = 1/pow(rhoa,8.333333333333334);
1838 t368 = 1/pow(rhoa,5.666666666666667);
1839 t369 = 1/pow(t18,3.0);
1840 t370 = pow(t54,3.0);
1841 t371 = 1/pow(t17,6.0);
1842 t372 = 1/pow(t17,5.0);
1843 t373 = -6.427244444444445*t1*t2*t3/pow(rhoa,3.333333333333333)-
1844 5.948240277777777*t14*t15*t16/pow(rhoa,3.166666666666667)-
1845 3.1558125*t8*t9/pow(t10,7.0)-1.852355555555556*t4*t5*t6*t48;
1846 t374 = 1/
1847 pow(t36,7.0);
1848 t375 = 48.2454729664533*t231*t72*t232*t233;
1849 t376 = -6.0*t231*t72*t235*t107;
1850 t377 = -0.4274*t1*t2*t3*t103*t105*t106*t107;
1851 t378 = 3.0*t242*t72*t106*t107;
1852 t379 = -51.9472676981276*t81*t85*t244*t86*t245*t90*t246;
1853 t380 = 3.508934038473122*
1854 t81*t85*t244*t86*t249*t90*t111;
1855 t381 = 0.130122970593378*t81*t1*t2*t3*t103*t85*t109*t110*
1856 t90*t111;
1857 t382 = -1.754467019236561*t81*t85*t252*t86*t110*t90*t111;
1858 t383 = -
1859 0.017717724533333*t1*t2*t3*t240*t79;
1860 t384 = 0.002929848805881*t81*t1*t2*t3*t240*t85*t90*t93;
1861 t385 = 3.0*
1862 t284*t81*t83*t84*t90;
1863 t386 = -24.0*t125*t133*t81*t83*t90;
1864 t387 = 60.0*t273*t81*t83*t90*t99;
1865 t388 = 36.0*t275*t81*t84*t90*t99;
1866 t389 = pow(t105,3.0);
1867 t390 = 1/pow(t77,6.0);
1868 t391 = 1/pow(t78,3.0);
1869 t392 = 517.2501470570614*t389*t72*t390*t391;
1870 t393 = 1/pow(t77,5.0);
1871 t394 = -96.4909459329066*t389*t72*t393*t233;
1872 t395 = -3.43668585764369*t1*t2*t3*t103*t231*t232*t233;
1873 t396 = 48.2454729664533*
1874 t242*t105*t72*t232*t233;
1875 t397 = 6.0*t389*t72*t232*t107;
1876 t398 = 0.4274*t1*t2*t3*t103*t231*t235*t107;
1877 t399 = -6.0*t242*t105*t72*t235*t107;
1878 t400 = -0.2137*t1*t2*t3*t103*t242*t106*t107;
1879 t401 = 0.284933333333333*t1*t2*t3*t240*t105*t106*t107;
1880 t402 = 1/
1881 pow(t70,3.666666666666667);
1882 t403 = 1/pow(t74,7.0);
1883 t404 = 1/pow(t70,3.333333333333333);
1884 t405 = 1/pow(t70,3.166666666666667);
1885 t406 = -3.200040277777777*t14*t15*t16*t405-3.720474074074074*
1886 t1*t2*t3*t404-1.5358125*t8*t9*t403-1.460562962962963*t4*t5*
1887 t6*t402;
1888 t407 = 1.0*t406*t72*t106*t107;
1889 t408 = pow(t109,3.0);
1890 t409 = -1025.38970210078*t408*t81*t85*t86*t90/(pow(t91,
1891 6.0)*pow(t92,3.0));
1892 t410 = 103.8945353962552*t246*t408*t81*t85*t86*t90/pow(t91,
1893 5.0);
1894 t411 = 1.926377843805565*t81*t1*t2*t3*t103*t85*t244*t245*
1895 t90*t246;
1896 t412 = -51.9472676981276*t81*t85*t252*t109*t86*t245*t90*
1897 t246;
1898 t413 = -3.508934038473122*t81*t85*t408*t86*t245*t90*t111;
1899 t414 = -
1900 0.130122970593378*t81*t1*t2*t3*t103*t85*t244*t249*t90*t111;
1901 t415 = 3.508934038473122*
1902 t81*t85*t252*t109*t86*t249*t90*t111;
1903 t416 = 0.065061485296689*t81*t1*t2*t3*t103*t85*t252*t110*
1904 t90*t111;
1905 t417 = -0.086748647062252*t81*t1*t2*t3*t240*t85*t109*
1906 t110*t90*t111;
1907 t418 = -0.58482233974552*t81*t85*(-4.36336574074074*t14*
1908 t15*t16*t405-3.757288888888889*t1*t2*t3*t404-0.82524375*t8*
1909 t9*t403-1.471733333333333*t4*t5*t6*t402)*t86*t110*t90*t111;
1910 t419 = 0.013780452414815*
1911 t1*t2*t3*t404*t79;
1912 t420 = 1/pow(t88,1.666666666666667);
1913 t421 = 6.0*t82*t84;
1914 t422 = -6.0*t258;
1915 t423 = 1/pow(t89,1.666666666666667);
1916 t424 = -6.0*t82*t84;
1917 t425 = 6.0*t258;
1918 t426 = 1.333333333333333*t121*(t425+t424)-0.296296296296296*
1919 pow(t120,3.0)*t423+1.333333333333333*t118*(t422+t421)-0.296296296296296*
1920 pow(t117,3.0)*t420+1.333333333333333*t120*t263*t266+1.333333333333333*
1921 t117*t257*t261;
1922 t427 = -0.002278771293463*t81*t1*t2*t3*t404*t85*t90*t93;
1923 t428 = 1/
1924 pow(t70,7.0);
1925 t429 = 120.0*t428*t83;
1926 t430 = 144.0*t125*t275;
1927 t431 = -24.0*t82*t84;
1928 t432 = pow(t130,3.0);
1929 t433 = t81*t83*t84*t90*(0.006624979614815*t1*t2*t3*t404*
1930 t98+2069.133687865597*t432*t95/(pow(t96,6.0)*pow(t97,3.0))-
1931 192.9880990672242*t281*t432*t95/pow(t96,5.0)+6.0*t132*t280*
1932 t432*t95-6.0*t130*t132*t282*t283*t95-0.013780452414815*t1*
1933 t2*t3*t404*t79-517.2501470570614*t389*t72*t390*t391+96.4940495336121*
1934 t283*t130*t95*t280*t281-6.60919909938887*t1*t2*t3*t103*t279*
1935 t280*t281+96.4909459329066*t389*t72*t393*t233-48.2454729664533*
1936 t242*t105*t72*t232*t233+3.43668585764369*t1*t2*t3*t103*t231*
1937 t232*t233+0.41096*t1*t2*t3*t103*t279*t282*t132+(-5.948240277777777*
1938 t14*t15*t16*t405-6.427244444444445*t1*t2*t3*t404-3.1558125*
1939 t8*t9*t403-1.852355555555556*t4*t5*t6*t402)*t95*t131*t132-
1940 0.20548*t1*t2*t3*t103*t283*t131*t132+0.273973333333333*t1*
1941 t2*t3*t240*t130*t131*t132+6.0*t242*t105*t72*t235*t107-0.4274*
1942 t1*t2*t3*t103*t231*t235*t107-6.0*t389*t72*t232*t107-1.0*t406*
1943 t72*t106*t107+0.2137*t1*t2*t3*t103*t242*t106*t107-0.284933333333333*
1944 t1*t2*t3*t240*t105*t106*t107);
1945 t434 = -12.0*t125*t284*t81*t83*t90;
1946 t435 = 60.0*t133*t273*t81*t83*t90;
1947 t436 = 36.0*t133*t275*t81*t84*t90;
1948 t437 = -120.0*t428*t81*t83*t90*t99;
1949 t438 = -144.0*t125*t275*t81*t90*t99;
1950 t439 = 24.0*t81*t82*t84*t90*t99;
1951 t440 = 1/pow(t62,7.0);
1952 t441 = 0.03950357940513*t81*t85*t86*t297*t93;
1953 t442 = 0.03950357940513*t81*t128*t86*t185*t93;
1954 t443 = 0.03950357940513*t81*t187*t86*t122*t93;
1955 t444 = 0.03950357940513*t81*t298*t86*t90*t93;
1956 t445 = 2.0*t297*t81*t83*t84*t99;
1957 t446 = -1.169644679491041*t81*t85*t109*t86*t110*t297*
1958 t111;
1959 t447 = -1.169644679491041*t81*t128*t109*t86*t110*t185*
1960 t111;
1961 t448 = -1.169644679491041*t81*t187*t109*t86*t110*t122*
1962 t111;
1963 t449 = -1.169644679491041*t81*t298*t109*t86*t110*t90*
1964 t111;
1965 t450 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t297*t93;
1966 t451 = 1.777777777777778*
1967 t120*t258*t263*t82-1.777777777777778*t117*t257*t258*t82+1.333333333333333*
1968 t121*(t424+2.0*t258)-0.296296296296296*t184*t262*t423+1.333333333333333*
1969 t118*(t421-2.0*t258)-0.296296296296296*t183*t256*t420+0.444444444444444*
1970 t184*t263*t266+0.444444444444444*t183*t257*t261;
1971 t452 = -0.00146492440294*t81*t1*t2*t3*t103*t128*t185*
1972 t93;
1973 t453 = -0.00146492440294*t81*t1*t2*t3*t103*t187*t122*
1974 t93;
1975 t454 = -0.00146492440294*t81*t1*t2*t3*t103*t298*t90*t93;
1976 t455 = -
1977 48.0*t125*t275;
1978 t456 = 24.0*t82*t84;
1979 t457 = 2.0*t133*t297*t81*t83*t84;
1980 t458 = -12.0*t133*t275*t81*t84*t90;
1981 t459 = -8.0*t125*t297*t81*t83*t99;
1982 t460 = 48.0*t125*t275*t81*t90*t99;
1983 t461 = -24.0*t81*t82*t84*t90*t99;
1984 t462 = pow(grada,13.0);
1985 t463 = 1/pow(rhoa,20.66666666666667);
1986 t464 = -8.0*t121*t82*t84+8.0*t118*t82*t84+1.777777777777778*
1987 t184*t258*t263*t82-1.777777777777778*t183*t257*t258*t82-0.296296296296296*
1988 t120*t329*t423-0.296296296296296*t117*t327*t420+0.444444444444444*
1989 t120*t263*t330+0.444444444444444*t117*t257*t328-2.666666666666667*
1990 t121*t258+2.666666666666667*t118*t258;
1991 t465 = 1/pow(rhoa,19.66666666666667);
1992 t466 = pow(gradb,14.0);
1993 t467 = 1/pow(t150,7.0);
1994 t468 = 1/pow(rhob,21.66666666666667);
1995 t469 = 1/pow(rhob,19.0);
1996 t470 = 1/pow(rhob,16.33333333333333);
1997 t471 = 1/pow(rhob,13.66666666666667);
1998 t472 = 1/pow(rhob,11.0);
1999 t473 = 1/pow(rhob,8.333333333333334);
2000 t474 = 1/pow(rhob,5.666666666666667);
2001 t475 = 1/pow(t145,3.0);
2002 t476 = pow(t179,3.0);
2003 t477 = 1/pow(t144,6.0);
2004 t478 = 1/pow(t144,5.0);
2005 t479 = -6.427244444444445*t1*t2*t3/pow(rhob,3.333333333333333)-
2006 5.948240277777777*t14*t15*t16/pow(rhob,3.166666666666667)-
2007 3.1558125*t8*t9/pow(t141,7.0)-1.852355555555556*t4*t5*t6*t173;
2008 t480 = 1/
2009 pow(t161,7.0);
2010 t481 = 1.333333333333333*t118*(t425+t421)-0.296296296296296*
2011 pow(t184,3.0)*t423+1.333333333333333*t121*(t422+t424)-0.296296296296296*
2012 pow(t183,3.0)*t420+1.333333333333333*t184*t263*t330+1.333333333333333*
2013 t183*t257*t328;
2014 t482 = pow(gradb,13.0);
2015 t483 = 1/pow(rhob,20.66666666666667);
2016 t484 = 1/pow(rhob,19.66666666666667);
2017 t485 = 1/pow(rhoa,18.66666666666667);
2018 t486 = 1/pow(rhob,18.66666666666667);
2019
2020 /* code */
2021 dfdra = t50*t33*t54*t34*t55*rhoa-0.03109*t19*t49*t34*
2022 rhoa-0.75*t3*t35*t52*t57-1.0*t11*t3*t35*t41-0.03109*t19*t33*
2023 t34+t139*t148+t69*t137+0.002129457733333*t1*t2*t3*t19*t33*
2024 t12;
2025 dfdrb = t175*t160*t179*t147*t180*rhob-0.03109*t146*t174*
2026 t147*rhob-0.75*t177*t182*t3*t35-1.0*t142*t166*t3*t35+t69*t190+
2027 t191*t148-0.03109*t146*t160*t147+0.002129457733333*t1*t2*t3*
2028 t146*t160*t143;
2029 dfdga = -0.03109*t19*t197*t34*rhoa-0.75*t198*t3*t35*t52+
2030 t199*t148;
2031 dfdgb = -0.03109*t146*t205*t147*rhob-0.75*t177*t206*t3*
2032 t35+t207*t148;
2033 dfdgab = 0.0;
2034 d2fdrara = 2.0*t34*t49*t50*t54*t55*rhoa+t50*t33*t222*
2035 t34*t55*rhoa-2.0*t218*t220*t33*t34*t50*rhoa-0.03109*t19*t216*
2036 t34*rhoa+32.1646831778707*t217*t33*t218*t34*t219*rhoa-0.333333333333333*
2037 t3*t35*t41*t7-2.0*t11*t3*t35*t57+2.0*t33*t34*t50*t54*t55+0.001419638488889*
2038 t1*t2*t3*t19*t33*t53-0.75*t224*t3*t35*t52-0.06218*t19*t49*
2039 t34+t69*t294+t296*t148+2.0*t137*t139-0.136986666666667*t1*
2040 t2*t3*t50*t33*t54*t55*t12+0.004258915466667*t1*t2*t3*t19*t49*
2041 t12;
2042 d2fdrarb = t301*t148+t191*t137+t139*t190+t69*t300;
2043 d2fdraga = t50*t197*t54*t34*t55*rhoa-0.03109*t19*t304*
2044 t34*rhoa-0.75*t3*t305*t35*t52-1.0*t11*t198*t3*t35-0.03109*
2045 t19*t197*t34+t306*t148+t199*t137+0.002129457733333*t1*t2*t3*
2046 t19*t197*t12;
2047 d2fdragb = t307*t148+t207*t137;
2048 d2fdraab = 0.0;
2049 d2fdrbrb = -2.0*t147*t160*t175*t318*t320*rhob+32.1646831778707*
2050 t317*t160*t318*t147*t319*rhob+2.0*t147*t174*t175*t179*t180*
2051 rhob+t175*t160*t322*t147*t180*rhob-0.03109*t146*t316*t147*
2052 rhob-0.75*t177*t3*t324*t35-2.0*t142*t182*t3*t35-0.333333333333333*
2053 t140*t166*t3*t35+t69*t343+2.0*t190*t191+2.0*t147*t160*t175*
2054 t179*t180+0.001419638488889*t1*t2*t3*t146*t160*t178+t344*t148-
2055 0.06218*t146*t174*t147-0.136986666666667*t1*t2*t3*t175*t160*
2056 t179*t180*t143+0.004258915466667*t1*t2*t3*t146*t174*t143;
2057 d2fdrbga = t345*
2058 t148+t199*t190;
2059 d2fdrbgb = t175*t205*t179*t147*t180*rhob-0.03109*t146*
2060 t348*t147*rhob-0.75*t177*t3*t349*t35-1.0*t142*t206*t3*t35+
2061 t207*t190+t350*t148-0.03109*t146*t205*t147+0.002129457733333*
2062 t1*t2*t3*t146*t205*t143;
2063 d2fdrbgab = 0.0;
2064 d2fdgaga = -0.03109*t19*t352*t34*rhoa-0.75*t3*t35*t353*
2065 t52+t354*t148;
2066 d2fdgagb = t355*t148;
2067 d2fdgagab = 0.0;
2068 d2fdgbgb = -0.03109*t146*t357*t147*rhob-0.75*t177*t3*
2069 t35*t358+t359*t148;
2070 d2fdgbgab = 0.0;
2071 d2fdgabgab = 0.0;
2072 d3fdrarara = t69*(-1.0*t50*t373*t34*t55*rhoa+192.9880990672242*
2073 t217*t370*t34*t372*rhoa-2069.133687865597*t369*t370*t34*t371*
2074 rhoa+6.0*t50*t222*t54*t34*t220*rhoa-96.4940495336121*t217*
2075 t222*t54*t34*t219*rhoa-6.0*t50*t370*t34*t219*rhoa+t70*(240.0*
2076 t127*t273*t81*t90*t99+36.0*t122*t275*t81*t84*t99+12.0*t127*
2077 t267*t81*t84*t99+60.0*t122*t273*t81*t83*t99-12.0*t125*t267*
2078 t81*t83*t99-96.0*t122*t125*t127*t81*t99+t81*t83*t84*t426*t99+
2079 0.019751789702565*(t431+t430+t429-240.0*t127*t273)*t81*t86*
2080 t90*t93-0.00219738660441*t81*t1*t2*t3*t103*t277*t90*t93+0.002929848805881*
2081 t81*t1*t2*t3*t240*t128*t90*t93+0.019751789702565*t81*t85*t86*
2082 t426*t93+0.059255369107696*t81*t128*t86*t267*t93-0.00219738660441*
2083 t81*t1*t2*t3*t103*t85*t267*t93+0.059255369107696*t81*t277*
2084 t86*t122*t93+0.002929848805881*t81*t1*t2*t3*t240*t85*t122*
2085 t93-0.004394773208821*t81*t1*t2*t3*t103*t128*t122*t93+12.0*
2086 t127*t284*t81*t84*t90-96.0*t125*t127*t133*t81*t90+3.0*t122*
2087 t284*t81*t83*t84+3.0*t133*t267*t81*t83*t84+24.0*t122*t127*
2088 t133*t81*t84-24.0*t122*t125*t133*t81*t83+t439+t438+t437+t436+
2089 t435+t434+t433+t427+t419+t418+t417+t416+t415+t414+t413+t412+
2090 t411+t410+t409+t407+t401+t400+t399+t398+t397+t396+t395+t394+
2091 t392-51.9472676981276*t81*t128*t244*t86*t245*t90*t246-51.9472676981276*
2092 t81*t85*t244*t86*t245*t122*t246+3.508934038473122*t81*t128*
2093 t244*t86*t249*t90*t111-1.754467019236561*t81*t128*t252*t86*
2094 t110*t90*t111-1.754467019236561*t81*t277*t109*t86*t110*t90*
2095 t111+0.130122970593378*t81*t1*t2*t3*t103*t128*t109*t110*t90*
2096 t111-1.754467019236561*t81*t85*t109*t86*t110*t267*t111+3.508934038473122*
2097 t81*t85*t244*t86*t249*t122*t111-1.754467019236561*t81*t85*
2098 t252*t86*t110*t122*t111-3.508934038473122*t81*t128*t109*t86*
2099 t110*t122*t111+0.130122970593378*t81*t1*t2*t3*t103*t85*t109*
2100 t110*t122*t111)-96.0*t125*t127*t81*t90*t99+3.0*t267*t81*t83*
2101 t84*t99+24.0*t122*t127*t81*t84*t99-24.0*t122*t125*t81*t83*
2102 t99+0.059255369107696*t81*t277*t86*t90*t93-0.004394773208821*
2103 t81*t1*t2*t3*t103*t128*t90*t93+0.059255369107696*t81*t85*t86*
2104 t267*t93+0.118510738215391*t81*t128*t86*t122*t93-0.004394773208821*
2105 t81*t1*t2*t3*t103*t85*t122*t93+24.0*t127*t133*t81*t84*t90+
2106 6.0*t122*t133*t81*t83*t84-3.0*t50*t222*t34*t55+0.136986666666667*
2107 t1*t2*t3*t50*t54*t55*t53+t388+t387+t386+t385+t384+t383+t382+
2108 t381+t380+t379+t378+t377+t376+t375+0.001892851318519*t1*t2*
2109 t3*t19*t221+6.0*t50*t218*t34*t220-96.4940495336121*t217*t218*
2110 t34*t219+0.20548*t1*t2*t3*t50*t222*t55*t12-0.41096*t1*t2*t3*
2111 t50*t218*t220*t12+6.60919909938887*t1*t2*t3*t217*t218*t219*
2112 t12-3.508934038473122*t81*t128*t109*t86*t110*t90*t111-3.508934038473122*
2113 t81*t85*t109*t86*t110*t122*t111)+3.0*t216*t34*t50*t54*t55*
2114 rhoa+3.0*t222*t34*t49*t50*t55*rhoa+t50*t373*t33*t34*t55*rhoa-
2115 6.0*t220*t222*t33*t34*t50*t54*rhoa-6.0*t218*t220*t34*t49*t50*
2116 rhoa+6.0*t219*t33*t34*t370*t50*rhoa-192.9880990672242*t217*
2117 t33*t370*t34*t372*rhoa+2069.133687865597*t369*t33*t370*t34*
2118 t371*rhoa-0.03109*t19*(-0.780621665185185*t21*t32*t368-1.281829667555556*
2119 t29*t30*t367+11.94227789558519*t26*t27*t366-13.43137039473778*
2120 t20*t24*t365+5.571235366684446*t42*t43*t364-0.987825948444445*
2121 t208*t209*t363+0.063519238826667*t360*t361*t362)*t34*rhoa+
2122 96.4940495336121*t217*t33*t222*t54*t34*t219*rhoa+96.4940495336121*
2123 t217*t49*t218*t34*t219*rhoa-1.0*t3*t35*t57*t7+3.0*t222*t33*
2124 t34*t50*t55+6.0*t50*t49*t54*t34*t55-0.136986666666667*t1*t2*
2125 t3*t50*t33*t54*t55*t53+0.004258915466667*t1*t2*t3*t19*t49*
2126 t53-0.75*t3*t35*(0.095007094518519*t21*t40*t368-0.020363607172741*
2127 t29*t39*t367+5.592834182257778E-4*t26*t38*t366-6.454717686973631E-6*
2128 t20*t37*t365+3.716270447122964E-8*t42*t56*t364-1.052204014705778E-10*
2129 t208*t223*t363+1.166668959288889E-13*t360*t374*t362)*t52+0.222222222222222*
2130 t3*t35*t41*t51-6.0*t218*t220*t33*t34*t50-3.0*t11*t224*t3*t35-
2131 0.09327*t19*t216*t34+3.0*t137*t296+3.0*t139*t294-0.001892851318519*
2132 t1*t2*t3*t19*t33*t221+96.4940495336121*t217*t33*t218*t34*t219+
2133 (-0.50689408*t21*t368*t68+0.027517426346667*t21*t368*t60*t67+
2134 0.02619324928*t29*t367*t67-3.789947392E-4*t21*t368*t66*t65-
2135 9.327416524800001E-4*t29*t367*t60*t65-1.5115886592E-4*t26*
2136 t366*t65+2.11042900992E-6*t21*t368*t64*t63+1.1274164858879998E-5*
2137 t29*t367*t66*t63+4.7682035712E-6*t26*t366*t60*t63-4.305592811520001E-9*
2138 t21*t368*t61*t138-5.817657212927999E-8*t29*t367*t64*t138-5.395268763648E-8*
2139 t26*t366*t66*t138+1.107152437248E-10*t29*t367*t61*t295+2.652312895488E-10*
2140 t26*t366*t64*t295-4.831210635264E-13*t26*t366*t61*t440)*t148-
2141 0.41096*t1*t2*t3*t50*t49*t54*t55*t12-0.20548*t1*t2*t3*t50*
2142 t33*t222*t55*t12+0.41096*t1*t2*t3*t50*t33*t218*t220*t12-6.60919909938887*
2143 t1*t2*t3*t217*t33*t218*t219*t12+0.0063883732*t1*t2*t3*t19*
2144 t216*t12;
2145 d3fdrararb = t69*(t70*(80.0*t127*t273*t81*t90*t99+8.0*
2146 t127*t297*t81*t84*t99+12.0*t185*t275*t81*t84*t99-24.0*t122*
2147 t275*t81*t84*t99-4.0*t127*t267*t81*t84*t99+20.0*t185*t273*
2148 t81*t83*t99+40.0*t122*t273*t81*t83*t99-4.0*t125*t267*t81*t83*
2149 t99-32.0*t125*t127*t185*t81*t99+t81*t83*t84*t451*t99+0.019751789702565*
2150 (t456+t455+t429-80.0*t127*t273)*t81*t86*t90*t93-7.324622014701263E-4*
2151 t81*t1*t2*t3*t103*t277*t90*t93+9.76616268626835E-4*t81*t1*
2152 t2*t3*t240*t187*t90*t93+0.001953232537254*t81*t1*t2*t3*t240*
2153 t128*t90*t93+0.019751789702565*t81*t85*t86*t451*t93+0.03950357940513*
2154 t81*t128*t86*t297*t93+0.019751789702565*t81*t187*t86*t267*
2155 t93-7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t267*t93+0.019751789702565*
2156 t81*t277*t86*t185*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*
2157 t85*t185*t93+0.03950357940513*t81*t298*t86*t122*t93+0.001953232537254*
2158 t81*t1*t2*t3*t240*t85*t122*t93-0.00146492440294*t81*t1*t2*
2159 t3*t103*t128*t122*t93+4.0*t127*t284*t81*t84*t90-32.0*t125*
2160 t127*t133*t81*t90+2.0*t122*t284*t81*t83*t84+8.0*t127*t133*
2161 t185*t81*t84-8.0*t125*t133*t185*t81*t83-16.0*t122*t125*t133*
2162 t81*t83+t461+t460+t459+t458+t457+t454+t453+t452+t450+t449+
2163 t448+t447+t446+t437+t435+t434+t433+t427+t419+t418+t417+t416+
2164 t415+t414+t413+t412+t411+t410+t409+t407+t401+t400+t399+t398+
2165 t397+t396+t395+t394+t392+t81*t83*t84*t185*t284-17.31575589937587*
2166 t81*t187*t244*t86*t245*t90*t246-34.63151179875173*t81*t128*
2167 t244*t86*t245*t90*t246-17.31575589937587*t81*t85*t244*t86*
2168 t245*t185*t246-34.63151179875173*t81*t85*t244*t86*t245*t122*
2169 t246+t81*t83*t84*t267*t133+1.169644679491041*t81*t187*t244*
2170 t86*t249*t90*t111+2.339289358982082*t81*t128*t244*t86*t249*
2171 t90*t111-0.58482233974552*t81*t187*t252*t86*t110*t90*t111-
2172 1.169644679491041*t81*t128*t252*t86*t110*t90*t111-0.58482233974552*
2173 t81*t277*t109*t86*t110*t90*t111+0.043374323531126*t81*t1*t2*
2174 t3*t103*t187*t109*t110*t90*t111+0.086748647062252*t81*t1*t2*
2175 t3*t103*t128*t109*t110*t90*t111-0.58482233974552*t81*t85*t109*
2176 t86*t110*t267*t111+1.169644679491041*t81*t85*t244*t86*t249*
2177 t185*t111-0.58482233974552*t81*t85*t252*t86*t110*t185*t111+
2178 0.043374323531126*t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+
2179 2.339289358982082*t81*t85*t244*t86*t249*t122*t111-1.169644679491041*
2180 t81*t85*t252*t86*t110*t122*t111-1.169644679491041*t81*t128*
2181 t109*t86*t110*t122*t111+0.086748647062252*t81*t1*t2*t3*t103*
2182 t85*t109*t110*t122*t111)+8.0*t127*t185*t81*t84*t99-16.0*t122*
2183 t125*t81*t83*t99-0.002929848805881*t81*t1*t2*t3*t103*t128*
2184 t90*t93-0.002929848805881*t81*t1*t2*t3*t103*t85*t122*t93+4.0*
2185 t122*t133*t81*t83*t84+t445+t444+t443+t442+t441+t387+t386+t385+
2186 t384+t383+t382+t381+t380+t379+t378+t377+t376+t375+t341+t338+
2187 t335+t333+t326+t325+t299+t292+t289+t288+t278+t270+t268-2.339289358982082*
2188 t81*t128*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
2189 t109*t86*t110*t122*t111)+2.0*t137*t301+2.0*t139*t300+t191*
2190 t294+t296*t190+(0.008731083093333*t21*t58*t215*t67*t173-3.1091388416E-4*
2191 t21*t58*t215*t60*t65*t173-1.5115886592E-4*t29*t58*t214*t65*
2192 t173+3.75805495296E-6*t21*t58*t215*t66*t63*t173+4.7682035712E-6*
2193 t29*t58*t214*t60*t63*t173-1.939219070976E-8*t21*t58*t215*t64*
2194 t138*t173-5.395268763648E-8*t29*t58*t214*t66*t138*t173+3.69050812416E-11*
2195 t21*t58*t215*t61*t295*t173+2.652312895488E-10*t29*t58*t214*
2196 t64*t295*t173-4.831210635264E-13*t29*t58*t214*t61*t440*t173)*
2197 t148;
2198 d3fdraraga = 2.0*t304*t34*t50*t54*t55*rhoa+t50*t197*t222*
2199 t34*t55*rhoa-2.0*t197*t218*t220*t34*t50*rhoa-0.03109*t19*(0.334552142222222*
2200 grada*t32*t215+0.68093152*t196*t30*t214-7.19528041528889*t195*
2201 t27*t213+8.705466944853335*t194*t24*t212-3.823753270613334*
2202 t192*t43*t211+0.711094818133334*t302*t209*t210-0.04763942912*
2203 t462*t361*t463)*t34*rhoa+32.1646831778707*t217*t197*t218*t34*
2204 t219*rhoa-0.333333333333333*t198*t3*t35*t7+2.0*t197*t34*t50*
2205 t54*t55+0.001419638488889*t1*t2*t3*t19*t197*t53-0.75*(-0.040717326222222*
2206 grada*t40*t215+0.011151840995556*t196*t39*t214-3.44361228288E-4*
2207 t195*t38*t213+4.266393491683556E-6*t194*t37*t212-2.5835557938062223E-8*
2208 t192*t56*t211+7.61809207296E-11*t302*t223*t210-8.75001719466667E-14*
2209 t462*t374*t463)*t3*t35*t52-2.0*t11*t3*t305*t35-0.06218*t19*
2210 t304*t34+2.0*t137*t306+t199*t294+(0.21724032*grada*t215*t68-
2211 0.01179318272*grada*t215*t60*t67-0.01607313024*t196*t214*t67+
2212 1.6242631680000002E-4*grada*t215*t66*t65+5.7236419584E-4*t196*
2213 t214*t60*t65+1.1336914944E-4*t195*t213*t65-9.044695756799999E-7*
2214 grada*t215*t64*t63-6.918237527040001E-6*t196*t214*t66*t63-
2215 3.5761526784E-6*t195*t213*t60*t63+1.84525406208E-9*grada*t215*
2216 t61*t138+3.569926017024E-8*t196*t214*t64*t138+4.046451572736E-8*
2217 t195*t213*t66*t138-6.79388995584E-11*t196*t214*t61*t295-1.989234671616E-10*
2218 t195*t213*t64*t295+3.623407976448E-13*t195*t213*t61*t440)*
2219 t148-0.136986666666667*t1*t2*t3*t50*t197*t54*t55*t12+0.004258915466667*
2220 t1*t2*t3*t19*t304*t12;
2221 d3fdraragb = 2.0*t137*t307+t207*t294+(-0.00654831232*
2222 t21*gradb*t215*t67*t59+2.3318541312000003E-4*t21*gradb*t215*
2223 t60*t65*t59+1.1336914944E-4*t29*gradb*t214*t65*t59-2.81854121472E-6*
2224 t21*gradb*t215*t66*t63*t59-3.5761526784E-6*t29*gradb*t214*
2225 t60*t63*t59+1.454414303232E-8*t21*gradb*t215*t64*t138*t59+
2226 4.046451572736E-8*t29*gradb*t214*t66*t138*t59-2.767881093120001E-11*
2227 t21*gradb*t215*t61*t295*t59-1.989234671616E-10*t29*gradb*t214*
2228 t64*t295*t59+3.623407976448E-13*t29*gradb*t214*t61*t440*t59)*
2229 t148;
2230 d3fdraraab = 0.0;
2231 d3fdrarbrb = t69*(t70*(-80.0*t127*t273*t81*t90*t99+4.0*
2232 t127*t331*t81*t84*t99-8.0*t127*t297*t81*t84*t99-24.0*t185*
2233 t275*t81*t84*t99+12.0*t122*t275*t81*t84*t99-4.0*t125*t331*
2234 t81*t83*t99+40.0*t185*t273*t81*t83*t99+20.0*t122*t273*t81*
2235 t83*t99+32.0*t122*t125*t127*t81*t99+t81*t83*t84*t464*t99+0.019751789702565*
2236 (t455+t431+t429+80.0*t127*t273)*t81*t86*t90*t93-7.324622014701263E-4*
2237 t81*t1*t2*t3*t103*t336*t90*t93+0.001953232537254*t81*t1*t2*
2238 t3*t240*t187*t90*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*
2239 t128*t90*t93+0.019751789702565*t81*t85*t86*t464*t93+0.019751789702565*
2240 t81*t128*t86*t331*t93-7.324622014701263E-4*t81*t1*t2*t3*t103*
2241 t85*t331*t93+0.03950357940513*t81*t187*t86*t297*t93+0.03950357940513*
2242 t81*t298*t86*t185*t93+0.001953232537254*t81*t1*t2*t3*t240*
2243 t85*t185*t93-0.00146492440294*t81*t1*t2*t3*t103*t187*t185*
2244 t93+0.019751789702565*t81*t336*t86*t122*t93+9.76616268626835E-4*
2245 t81*t1*t2*t3*t240*t85*t122*t93-4.0*t127*t284*t81*t84*t90+32.0*
2246 t125*t127*t133*t81*t90+2.0*t185*t284*t81*t83*t84-8.0*t122*
2247 t127*t133*t81*t84-16.0*t125*t133*t185*t81*t83-8.0*t122*t125*
2248 t133*t81*t83+t460+t459+t458+t457+t454+t453+t452+t450+t449+
2249 t448+t447+t446+t439+t437+t435+t434+t433+t427+t419+t418+t417+
2250 t416+t415+t414+t413+t412+t411+t410+t409+t407+t401+t400+t399+
2251 t398+t397+t396+t395+t394+t392+t81*t83*t84*t122*t284-34.63151179875173*
2252 t81*t187*t244*t86*t245*t90*t246-17.31575589937587*t81*t128*
2253 t244*t86*t245*t90*t246-34.63151179875173*t81*t85*t244*t86*
2254 t245*t185*t246-17.31575589937587*t81*t85*t244*t86*t245*t122*
2255 t246+t81*t83*t84*t331*t133+2.339289358982082*t81*t187*t244*
2256 t86*t249*t90*t111+1.169644679491041*t81*t128*t244*t86*t249*
2257 t90*t111-1.169644679491041*t81*t187*t252*t86*t110*t90*t111-
2258 0.58482233974552*t81*t128*t252*t86*t110*t90*t111-0.58482233974552*
2259 t81*t336*t109*t86*t110*t90*t111+0.086748647062252*t81*t1*t2*
2260 t3*t103*t187*t109*t110*t90*t111+0.043374323531126*t81*t1*t2*
2261 t3*t103*t128*t109*t110*t90*t111-0.58482233974552*t81*t85*t109*
2262 t86*t110*t331*t111+2.339289358982082*t81*t85*t244*t86*t249*
2263 t185*t111-1.169644679491041*t81*t85*t252*t86*t110*t185*t111-
2264 1.169644679491041*t81*t187*t109*t86*t110*t185*t111+0.086748647062252*
2265 t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+1.169644679491041*
2266 t81*t85*t244*t86*t249*t122*t111-0.58482233974552*t81*t85*t252*
2267 t86*t110*t122*t111+0.043374323531126*t81*t1*t2*t3*t103*t85*
2268 t109*t110*t122*t111)-8.0*t122*t127*t81*t84*t99-16.0*t125*t185*
2269 t81*t83*t99-0.002929848805881*t81*t1*t2*t3*t103*t187*t90*t93-
2270 0.002929848805881*t81*t1*t2*t3*t103*t85*t185*t93+4.0*t133*
2271 t185*t81*t83*t84+t445+t444+t443+t442+t441+t387+t386+t385+t384+
2272 t383+t382+t381+t380+t379+t378+t377+t376+t375+t342+t340+t339+
2273 t337+t334+t332+t299+t290+t286+t271+t269+t254+t248-2.339289358982082*
2274 t81*t187*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
2275 t109*t86*t110*t185*t111)+t139*t343+2.0*t190*t301+2.0*t191*
2276 t300+(0.008731083093333*t21*t58*t48*t67*t315-3.1091388416E-4*
2277 t21*t58*t48*t60*t65*t315+3.75805495296E-6*t21*t58*t48*t66*
2278 t63*t315-1.939219070976E-8*t21*t58*t48*t64*t138*t315+3.69050812416E-11*
2279 t21*t58*t48*t61*t295*t315-1.5115886592E-4*t21*t156*t48*t65*
2280 t314+4.7682035712E-6*t21*t156*t48*t60*t63*t314-5.395268763648E-8*
2281 t21*t156*t48*t66*t138*t314+2.652312895488E-10*t21*t156*t48*
2282 t64*t295*t314-4.831210635264E-13*t21*t156*t48*t61*t440*t314)*
2283 t148+t344*t137;
2284 d3fdrarbga = (-0.00476240896*grada*t58*t48*t67*t173+1.6958939136E-4*
2285 grada*t58*t48*t60*t65*t173+1.1336914944E-4*t196*t58*t47*t65*
2286 t173-2.04984815616E-6*grada*t58*t48*t66*t63*t173-3.5761526784E-6*
2287 t196*t58*t47*t60*t63*t173+1.057755856896E-8*grada*t58*t48*
2288 t64*t138*t173+4.046451572736E-8*t196*t58*t47*t66*t138*t173-
2289 2.01300443136E-11*grada*t58*t48*t61*t295*t173-1.989234671616E-10*
2290 t196*t58*t47*t64*t295*t173+3.623407976448E-13*t196*t58*t47*
2291 t61*t440*t173)*t148+t345*t137+t306*t190+t199*t300;
2292 d3fdrarbgb = (-0.00476240896*t21*gradb*t48*t67*t173+1.6958939136E-4*
2293 t21*gradb*t48*t60*t65*t173-2.04984815616E-6*t21*gradb*t48*
2294 t66*t63*t173+1.057755856896E-8*t21*gradb*t48*t64*t138*t173-
2295 2.01300443136E-11*t21*gradb*t48*t61*t295*t173+1.1336914944E-4*
2296 t21*t204*t48*t65*t172-3.5761526784E-6*t21*t204*t48*t60*t63*
2297 t172+4.046451572736E-8*t21*t204*t48*t66*t138*t172-1.989234671616E-10*
2298 t21*t204*t48*t64*t295*t172+3.623407976448E-13*t21*t204*t48*
2299 t61*t440*t172)*t148+t350*t137+t307*t190+t207*t300;
2300 d3fdrarbab = 0.0;
2301 d3fdragaga = t50*t352*t54*t34*t55*rhoa-0.03109*t19*(-
2302 0.091241493333333*t32*t48-0.309100394666667*t21*t30*t47+4.021271133866668*
2303 t29*t27*t46-5.41187753984*t26*t24*t45+2.56724566016*t20*t43*
2304 t44-0.5072683008*t42*t209*t303+0.03572957184*t208*t361*t465)*
2305 t34*rhoa-0.75*t3*t35*(0.011104725333333*t40*t48-0.005315180714667*
2306 t21*t39*t47+1.9853834171733336E-4*t29*t38*t46-2.723674027349334E-6*
2307 t26*t37*t45+1.7639617768106667E-8*t20*t56*t44-5.47431077205333E-11*
2308 t42*t223*t303+6.562512896E-14*t208*t374*t465)*t52-1.0*t11*
2309 t3*t35*t353-0.03109*t19*t352*t34+(-0.05924736*t48*t68+0.00321632256*
2310 t48*t60*t67+0.0089295168*t21*t47*t67-4.42980864E-5*t48*t66*
2311 t65-3.179801088E-4*t21*t47*t60*t65-8.502686208E-5*t29*t46*
2312 t65+2.4667352064E-7*t48*t64*t63+3.8434652928E-6*t21*t47*t66*
2313 t63+2.6821145088E-6*t29*t46*t60*t63-5.0325110784E-10*t48*t61*
2314 t138-1.98329223168E-8*t21*t47*t64*t138-3.034838679552E-8*t29*
2315 t46*t66*t138+3.7743833088E-11*t21*t47*t61*t295+1.491926003712E-10*
2316 t29*t46*t64*t295-2.717555982336E-13*t29*t46*t61*t440)*t148+
2317 t354*t137+0.002129457733333*t1*t2*t3*t19*t352*t12;
2318 d3fdragagb = (0.00357180672*grada*gradb*t48*t67*t59-1.2719204352E-4*
2319 grada*gradb*t48*t60*t65*t59-8.502686208E-5*t196*gradb*t47*
2320 t65*t59+1.53738611712E-6*grada*gradb*t48*t66*t63*t59+2.6821145088E-6*
2321 t196*gradb*t47*t60*t63*t59-7.93316892672E-9*grada*gradb*t48*
2322 t64*t138*t59-3.034838679552E-8*t196*gradb*t47*t66*t138*t59+
2323 1.50975332352E-11*grada*gradb*t48*t61*t295*t59+1.491926003712E-10*
2324 t196*gradb*t47*t64*t295*t59-2.717555982336E-13*t196*gradb*
2325 t47*t61*t440*t59)*t148+t355*t137;
2326 d3fdragaab = 0.0;
2327 d3fdragbgb = (0.00178590336*t21*t48*t67*t59-6.359602176E-5*
2328 t21*t48*t60*t65*t59+7.6869305856E-7*t21*t48*t66*t63*t59-3.96658446336E-9*
2329 t21*t48*t64*t138*t59+7.5487666176E-12*t21*t48*t61*t295*t59-
2330 8.502686208E-5*t21*t58*t48*t65*t158+2.6821145088E-6*t21*t58*
2331 t48*t60*t63*t158-3.034838679552E-8*t21*t58*t48*t66*t138*t158+
2332 1.491926003712E-10*t21*t58*t48*t64*t295*t158-2.717555982336E-13*
2333 t21*t58*t48*t61*t440*t158)*t148+t359*t137;
2334 d3fdragbab = 0.0;
2335 d3fdraabab = 0.0;
2336 d3fdrbrbrb = t69*(192.9880990672242*t317*t476*t147*t478*
2337 rhob-2069.133687865597*t475*t476*t147*t477*rhob+6.0*t175*t322*
2338 t179*t147*t320*rhob-6.0*t175*t476*t147*t319*rhob-96.4940495336121*
2339 t317*t322*t179*t147*t319*rhob-1.0*t175*t479*t147*t180*rhob+
2340 t70*(-240.0*t127*t273*t81*t90*t99-12.0*t127*t331*t81*t84*t99+
2341 36.0*t185*t275*t81*t84*t99-12.0*t125*t331*t81*t83*t99+60.0*
2342 t185*t273*t81*t83*t99+96.0*t125*t127*t185*t81*t99+t81*t83*
2343 t84*t481*t99+0.019751789702565*(t456+t430+t429+240.0*t127*
2344 t273)*t81*t86*t90*t93-0.00219738660441*t81*t1*t2*t3*t103*t336*
2345 t90*t93+0.002929848805881*t81*t1*t2*t3*t240*t187*t90*t93+0.019751789702565*
2346 t81*t85*t86*t481*t93+0.059255369107696*t81*t187*t86*t331*t93-
2347 0.00219738660441*t81*t1*t2*t3*t103*t85*t331*t93+0.059255369107696*
2348 t81*t336*t86*t185*t93+0.002929848805881*t81*t1*t2*t3*t240*
2349 t85*t185*t93-0.004394773208821*t81*t1*t2*t3*t103*t187*t185*
2350 t93-12.0*t127*t284*t81*t84*t90+96.0*t125*t127*t133*t81*t90+
2351 3.0*t133*t331*t81*t83*t84+3.0*t185*t284*t81*t83*t84-24.0*t127*
2352 t133*t185*t81*t84-24.0*t125*t133*t185*t81*t83+t461+t438+t437+
2353 t436+t435+t434+t433+t427+t419+t418+t417+t416+t415+t414+t413+
2354 t412+t411+t410+t409+t407+t401+t400+t399+t398+t397+t396+t395+
2355 t394+t392-51.9472676981276*t81*t187*t244*t86*t245*t90*t246-
2356 51.9472676981276*t81*t85*t244*t86*t245*t185*t246+3.508934038473122*
2357 t81*t187*t244*t86*t249*t90*t111-1.754467019236561*t81*t187*
2358 t252*t86*t110*t90*t111-1.754467019236561*t81*t336*t109*t86*
2359 t110*t90*t111+0.130122970593378*t81*t1*t2*t3*t103*t187*t109*
2360 t110*t90*t111-1.754467019236561*t81*t85*t109*t86*t110*t331*
2361 t111+3.508934038473122*t81*t85*t244*t86*t249*t185*t111-1.754467019236561*
2362 t81*t85*t252*t86*t110*t185*t111-3.508934038473122*t81*t187*
2363 t109*t86*t110*t185*t111+0.130122970593378*t81*t1*t2*t3*t103*
2364 t85*t109*t110*t185*t111)+96.0*t125*t127*t81*t90*t99+3.0*t331*
2365 t81*t83*t84*t99-24.0*t127*t185*t81*t84*t99-24.0*t125*t185*
2366 t81*t83*t99+0.059255369107696*t81*t336*t86*t90*t93-0.004394773208821*
2367 t81*t1*t2*t3*t103*t187*t90*t93+0.059255369107696*t81*t85*t86*
2368 t331*t93+0.118510738215391*t81*t187*t86*t185*t93-0.004394773208821*
2369 t81*t1*t2*t3*t103*t85*t185*t93-24.0*t127*t133*t81*t84*t90+
2370 6.0*t133*t185*t81*t83*t84+t388+t387+t386+t385+t384+t383+t382+
2371 t381+t380+t379+t378+t377+t376+t375+0.001892851318519*t1*t2*
2372 t3*t146*t321+6.0*t175*t318*t147*t320-96.4940495336121*t317*
2373 t318*t147*t319-3.0*t175*t322*t147*t180+0.136986666666667*t1*
2374 t2*t3*t175*t179*t180*t178-0.41096*t1*t2*t3*t175*t318*t320*
2375 t143+6.60919909938887*t1*t2*t3*t317*t318*t319*t143+0.20548*
2376 t1*t2*t3*t175*t322*t180*t143-3.508934038473122*t81*t187*t109*
2377 t86*t110*t90*t111-3.508934038473122*t81*t85*t109*t86*t110*
2378 t185*t111)-192.9880990672242*t317*t160*t476*t147*t478*rhob+
2379 2069.133687865597*t475*t160*t476*t147*t477*rhob+6.0*t147*t160*
2380 t175*t319*t476*rhob-6.0*t147*t160*t175*t179*t320*t322*rhob+
2381 3.0*t147*t174*t175*t180*t322*rhob-6.0*t147*t174*t175*t318*
2382 t320*rhob+96.4940495336121*t317*t174*t318*t147*t319*rhob+96.4940495336121*
2383 t317*t160*t322*t179*t147*t319*rhob+3.0*t147*t175*t179*t180*
2384 t316*rhob+t175*t479*t160*t147*t180*rhob-0.03109*t146*(-0.780621665185185*
2385 t58*t159*t474-1.281829667555556*t156*t157*t473+11.94227789558519*
2386 t153*t154*t472-13.43137039473778*t149*t151*t471+5.571235366684446*
2387 t167*t168*t470-0.987825948444445*t308*t309*t469+0.063519238826667*
2388 t466*t467*t468)*t147*rhob-0.75*t177*t3*t35*(0.095007094518519*
2389 t58*t165*t474-0.020363607172741*t156*t164*t473+5.592834182257778E-4*
2390 t153*t163*t472-6.454717686973631E-6*t149*t162*t471+3.716270447122964E-8*
2391 t167*t181*t470-1.052204014705778E-10*t308*t323*t469+1.166668959288889E-13*
2392 t466*t480*t468)-3.0*t142*t3*t324*t35-1.0*t140*t182*t3*t35+
2393 0.222222222222222*t166*t176*t3*t35+3.0*t190*t344+3.0*t191*
2394 t343+3.0*t147*t160*t175*t180*t322-0.001892851318519*t1*t2*
2395 t3*t146*t160*t321-6.0*t147*t160*t175*t318*t320+96.4940495336121*
2396 t317*t160*t318*t147*t319+6.0*t175*t174*t179*t147*t180-0.136986666666667*
2397 t1*t2*t3*t175*t160*t179*t180*t178+0.004258915466667*t1*t2*
2398 t3*t146*t174*t178+(-0.50689408*t58*t68*t474+0.027517426346667*
2399 t58*t60*t67*t474-3.789947392E-4*t58*t66*t65*t474+2.11042900992E-6*
2400 t58*t64*t63*t474-4.305592811520001E-9*t58*t61*t138*t474+0.02619324928*
2401 t156*t67*t473-9.327416524800001E-4*t156*t60*t65*t473+1.1274164858879998E-5*
2402 t156*t66*t63*t473-5.817657212927999E-8*t156*t64*t138*t473+
2403 1.107152437248E-10*t156*t61*t295*t473-1.5115886592E-4*t153*
2404 t65*t472+4.7682035712E-6*t153*t60*t63*t472-5.395268763648E-8*
2405 t153*t66*t138*t472+2.652312895488E-10*t153*t64*t295*t472-4.831210635264E-13*
2406 t153*t61*t440*t472)*t148-0.09327*t146*t316*t147+0.41096*t1*
2407 t2*t3*t175*t160*t318*t320*t143-6.60919909938887*t1*t2*t3*t317*
2408 t160*t318*t319*t143+0.0063883732*t1*t2*t3*t146*t316*t143-0.20548*
2409 t1*t2*t3*t175*t160*t322*t180*t143-0.41096*t1*t2*t3*t175*t174*
2410 t179*t180*t143;
2411 d3fdrbrbga = 2.0*t190*t345+t199*t343+(-0.00654831232*
2412 grada*t58*t22*t67*t315+2.3318541312000003E-4*grada*t58*t22*
2413 t60*t65*t315-2.81854121472E-6*grada*t58*t22*t66*t63*t315+1.454414303232E-8*
2414 grada*t58*t22*t64*t138*t315-2.767881093120001E-11*grada*t58*
2415 t22*t61*t295*t315+1.1336914944E-4*grada*t156*t22*t65*t314-
2416 3.5761526784E-6*grada*t156*t22*t60*t63*t314+4.046451572736E-8*
2417 grada*t156*t22*t66*t138*t314-1.989234671616E-10*grada*t156*
2418 t22*t64*t295*t314+3.623407976448E-13*grada*t156*t22*t61*t440*
2419 t314)*t148;
2420 d3fdrbrbgb = 2.0*t147*t175*t179*t180*t348*rhob-2.0*t147*
2421 t175*t205*t318*t320*rhob+32.1646831778707*t317*t205*t318*t147*
2422 t319*rhob+t175*t205*t322*t147*t180*rhob-0.03109*t146*(0.334552142222222*
2423 gradb*t159*t315+0.68093152*t204*t157*t314-7.19528041528889*
2424 t203*t154*t313+8.705466944853335*t202*t151*t312-3.823753270613334*
2425 t200*t168*t311+0.711094818133334*t346*t309*t310-0.04763942912*
2426 t482*t467*t483)*t147*rhob+2.0*t190*t350-2.0*t142*t3*t349*t35-
2427 0.75*t177*t3*(-0.040717326222222*gradb*t165*t315+0.011151840995556*
2428 t204*t164*t314-3.44361228288E-4*t203*t163*t313+4.266393491683556E-6*
2429 t202*t162*t312-2.5835557938062223E-8*t200*t181*t311+7.61809207296E-11*
2430 t346*t323*t310-8.75001719466667E-14*t482*t480*t483)*t35-0.333333333333333*
2431 t140*t206*t3*t35+t207*t343+2.0*t147*t175*t179*t180*t205+0.001419638488889*
2432 t1*t2*t3*t146*t205*t178+(0.21724032*gradb*t68*t315-0.01179318272*
2433 gradb*t60*t67*t315+1.6242631680000002E-4*gradb*t66*t65*t315-
2434 9.044695756799999E-7*gradb*t64*t63*t315+1.84525406208E-9*gradb*
2435 t61*t138*t315-0.01607313024*t204*t67*t314+5.7236419584E-4*
2436 t204*t60*t65*t314-6.918237527040001E-6*t204*t66*t63*t314+3.569926017024E-8*
2437 t204*t64*t138*t314-6.79388995584E-11*t204*t61*t295*t314+1.1336914944E-4*
2438 t203*t65*t313-3.5761526784E-6*t203*t60*t63*t313+4.046451572736E-8*
2439 t203*t66*t138*t313-1.989234671616E-10*t203*t64*t295*t313+3.623407976448E-13*
2440 t203*t61*t440*t313)*t148-0.06218*t146*t348*t147+0.004258915466667*
2441 t1*t2*t3*t146*t348*t143-0.136986666666667*t1*t2*t3*t175*t205*
2442 t179*t180*t143;
2443 d3fdrbrbab = 0.0;
2444 d3fdrbgaga = (0.00178590336*t58*t22*t67*t173-6.359602176E-5*
2445 t58*t22*t60*t65*t173-8.502686208E-5*t21*t58*t31*t65*t173+7.6869305856E-7*
2446 t58*t22*t66*t63*t173+2.6821145088E-6*t21*t58*t31*t60*t63*t173-
2447 3.96658446336E-9*t58*t22*t64*t138*t173-3.034838679552E-8*t21*
2448 t58*t31*t66*t138*t173+7.5487666176E-12*t58*t22*t61*t295*t173+
2449 1.491926003712E-10*t21*t58*t31*t64*t295*t173-2.717555982336E-13*
2450 t21*t58*t31*t61*t440*t173)*t148+t354*t190;
2451 d3fdrbgagb = (0.00357180672*grada*gradb*t22*t67*t173-
2452 1.2719204352E-4*grada*gradb*t22*t60*t65*t173+1.53738611712E-6*
2453 grada*gradb*t22*t66*t63*t173-7.93316892672E-9*grada*gradb*
2454 t22*t64*t138*t173+1.50975332352E-11*grada*gradb*t22*t61*t295*
2455 t173-8.502686208E-5*grada*t204*t22*t65*t172+2.6821145088E-6*
2456 grada*t204*t22*t60*t63*t172-3.034838679552E-8*grada*t204*t22*
2457 t66*t138*t172+1.491926003712E-10*grada*t204*t22*t64*t295*t172-
2458 2.717555982336E-13*grada*t204*t22*t61*t440*t172)*t148+t355*
2459 t190;
2460 d3fdrbgaab = 0.0;
2461 d3fdrbgbgb = t175*t357*t179*t147*t180*rhob-0.03109*t146*
2462 (-0.091241493333333*t159*t173-0.309100394666667*t58*t157*t172+
2463 4.021271133866668*t156*t154*t171-5.41187753984*t153*t151*t170+
2464 2.56724566016*t149*t168*t169-0.5072683008*t167*t309*t347+0.03572957184*
2465 t308*t467*t484)*t147*rhob-1.0*t142*t3*t35*t358-0.75*(0.011104725333333*
2466 t165*t173-0.005315180714667*t58*t164*t172+1.9853834171733336E-4*
2467 t156*t163*t171-2.723674027349334E-6*t153*t162*t170+1.7639617768106667E-8*
2468 t149*t181*t169-5.47431077205333E-11*t167*t323*t347+6.562512896E-14*
2469 t308*t480*t484)*t177*t3*t35+t359*t190+(-0.05924736*t68*t173+
2470 0.00321632256*t60*t67*t173-4.42980864E-5*t66*t65*t173+2.4667352064E-7*
2471 t64*t63*t173-5.0325110784E-10*t61*t138*t173+0.0089295168*t58*
2472 t67*t172-3.179801088E-4*t58*t60*t65*t172+3.8434652928E-6*t58*
2473 t66*t63*t172-1.98329223168E-8*t58*t64*t138*t172+3.7743833088E-11*
2474 t58*t61*t295*t172-8.502686208E-5*t156*t65*t171+2.6821145088E-6*
2475 t156*t60*t63*t171-3.034838679552E-8*t156*t66*t138*t171+1.491926003712E-10*
2476 t156*t64*t295*t171-2.717555982336E-13*t156*t61*t440*t171)*
2477 t148-0.03109*t146*t357*t147+0.002129457733333*t1*t2*t3*t146*
2478 t357*t143;
2479 d3fdrbgbab = 0.0;
2480 d3fdrbabab = 0.0;
2481 d3fdgagaga = -0.03109*t19*(0.109069536*grada*t30*t31-
2482 2.0270030016*t196*t27*t28+3.192523668480002*t195*t24*t25-1.678968913920001*
2483 t194*t43*t193+0.3581202432*t192*t209*t351-0.02679717888*t302*
2484 t361*t485)*t34*rhoa-0.75*t3*(0.002009849856*grada*t39*t31-
2485 1.0453993267200001E-4*t196*t38*t28+1.6651581112320001E-6*t195*
2486 t37*t25-1.179208237056E-8*t194*t56*t193+3.90065455104E-11*
2487 t192*t223*t351-4.921884672E-14*t302*t374*t485)*t35*t52+(-0.00401828256*
2488 grada*t31*t67+1.4309104896E-4*grada*t31*t60*t65+6.377014656E-5*
2489 t196*t28*t65-1.7295593817600002E-6*grada*t31*t66*t63-2.0115858816E-6*
2490 t196*t28*t60*t63+8.92481504256E-9*grada*t31*t64*t138+2.276129009664E-8*
2491 t196*t28*t66*t138-1.69847248896E-11*grada*t31*t61*t295-1.118944502784E-10*
2492 t196*t28*t64*t295+2.038166986752E-13*t196*t28*t61*t440)*t148;
2493 d3fdgagagb = (-
2494 0.00133942752*gradb*t22*t67*t59+4.769701632E-5*gradb*t22*t60*
2495 t65*t59+6.377014656E-5*t21*gradb*t31*t65*t59-5.7651979392E-7*
2496 gradb*t22*t66*t63*t59-2.0115858816E-6*t21*gradb*t31*t60*t63*
2497 t59+2.97493834752E-9*gradb*t22*t64*t138*t59+2.276129009664E-8*
2498 t21*gradb*t31*t66*t138*t59-5.6615749632E-12*gradb*t22*t61*
2499 t295*t59-1.118944502784E-10*t21*gradb*t31*t64*t295*t59+2.038166986752E-13*
2500 t21*gradb*t31*t61*t440*t59)*t148;
2501 d3fdgagaab = 0.0;
2502 d3fdgagbgb = (-0.00133942752*grada*t22*t67*t59+4.769701632E-5*
2503 grada*t22*t60*t65*t59-5.7651979392E-7*grada*t22*t66*t63*t59+
2504 2.97493834752E-9*grada*t22*t64*t138*t59-5.6615749632E-12*grada*
2505 t22*t61*t295*t59+6.377014656E-5*grada*t58*t22*t65*t158-2.0115858816E-6*
2506 grada*t58*t22*t60*t63*t158+2.276129009664E-8*grada*t58*t22*
2507 t66*t138*t158-1.118944502784E-10*grada*t58*t22*t64*t295*t158+
2508 2.038166986752E-13*grada*t58*t22*t61*t440*t158)*t148;
2509 d3fdgagbab = 0.0;
2510 d3fdgaabab = 0.0;
2511 d3fdgbgbgb = -0.03109*t146*(0.109069536*gradb*t157*t158-
2512 2.0270030016*t204*t154*t155+3.192523668480002*t203*t151*t152-
2513 1.678968913920001*t202*t168*t201+0.3581202432*t200*t309*t356-
2514 0.02679717888*t346*t467*t486)*t147*rhob-0.75*(0.002009849856*
2515 gradb*t164*t158-1.0453993267200001E-4*t204*t163*t155+1.6651581112320001E-6*
2516 t203*t162*t152-1.179208237056E-8*t202*t181*t201+3.90065455104E-11*
2517 t200*t323*t356-4.921884672E-14*t346*t480*t486)*t177*t3*t35+
2518 (-0.00401828256*gradb*t67*t158+1.4309104896E-4*gradb*t60*t65*
2519 t158-1.7295593817600002E-6*gradb*t66*t63*t158+8.92481504256E-9*
2520 gradb*t64*t138*t158-1.69847248896E-11*gradb*t61*t295*t158+
2521 6.377014656E-5*t204*t65*t155-2.0115858816E-6*t204*t60*t63*
2522 t155+2.276129009664E-8*t204*t66*t138*t155-1.118944502784E-10*
2523 t204*t64*t295*t155+2.038166986752E-13*t204*t61*t440*t155)*
2524 t148;
2525 d3fdgbgbab = 0.0;
2526 d3fdgbabab = 0.0;
2527 d3fdababab = 0.0;
2528
2529
2530 ds->df1000 += factor*dfdra;
2531 ds->df0100 += factor*dfdrb;
2532 ds->df0010 += factor*dfdga;
2533 ds->df0001 += factor*dfdgb;
2534 ds->df00001+= factor*dfdgab;
2535
2536 ds->df2000 += factor*d2fdrara;
2537 ds->df1100 += factor*d2fdrarb;
2538 ds->df1010 += factor*d2fdraga;
2539 ds->df1001 += factor*d2fdragb;
2540 ds->df10001+= factor*d2fdraab;
2541 ds->df0200 += factor*d2fdrbrb;
2542 ds->df0110 += factor*d2fdrbga;
2543 ds->df0101 += factor*d2fdrbgb;
2544 ds->df01001+= factor*d2fdrbgab;
2545 ds->df0020 += factor*d2fdgaga;
2546 ds->df0011 += factor*d2fdgagb;
2547 ds->df00101+= factor*d2fdgagab;
2548 ds->df0002 += factor*d2fdgbgb;
2549 ds->df00011+= factor*d2fdgbgab;
2550 ds->df00002+= factor*d2fdgabgab;
2551
2552 ds->df3000 += factor*d3fdrarara;
2553 ds->df2100 += factor*d3fdrararb;
2554 ds->df2010 += factor*d3fdraraga;
2555 ds->df2001 += factor*d3fdraragb;
2556 ds->df20001 += factor*d3fdraraab;
2557 ds->df1200 += factor*d3fdrarbrb;
2558 ds->df1110 += factor*d3fdrarbga;
2559 ds->df1101 += factor*d3fdrarbgb;
2560 ds->df11001 += factor*d3fdrarbab;
2561 ds->df1020 += factor*d3fdragaga;
2562 ds->df1011 += factor*d3fdragagb;
2563 ds->df10101 += factor*d3fdragaab;
2564 ds->df1002 += factor*d3fdragbgb;
2565 ds->df10011 += factor*d3fdragbab;
2566 ds->df10002 += factor*d3fdraabab;
2567 ds->df0300 += factor*d3fdrbrbrb;
2568 ds->df0210 += factor*d3fdrbrbga;
2569 ds->df0201 += factor*d3fdrbrbgb;
2570 ds->df02001 += factor*d3fdrbrbab;
2571 ds->df0120 += factor*d3fdrbgaga;
2572 ds->df0111 += factor*d3fdrbgagb;
2573 ds->df01101 += factor*d3fdrbgaab;
2574 ds->df0102 += factor*d3fdrbgbgb;
2575 ds->df01011 += factor*d3fdrbgbab;
2576 ds->df01002 += factor*d3fdrbabab;
2577 ds->df0030 += factor*d3fdgagaga;
2578 ds->df0021 += factor*d3fdgagagb;
2579 ds->df00201 += factor*d3fdgagaab;
2580 ds->df0012 += factor*d3fdgagbgb;
2581 ds->df00111 += factor*d3fdgagbab;
2582 ds->df00102 += factor*d3fdgaabab;
2583 ds->df0003 += factor*d3fdgbgbgb;
2584 ds->df00021 += factor*d3fdgbgbab;
2585 ds->df00012 += factor*d3fdgbabab;
2586 ds->df00003 += factor*d3fdababab;
2587
2588 }
2589
2590 static void
hcth93m_fourth(FunFourthFuncDrv * ds,real factor,const FunDensProp * dp)2591 hcth93m_fourth(FunFourthFuncDrv *ds, real factor, const FunDensProp* dp)
2592 {
2593 real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
2594 real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
2595 d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
2596 d2fdgbgb, d2fdgbgab, d2fdgabgab;
2597 real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
2598 d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
2599 d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
2600 d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
2601 d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
2602 d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
2603 d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
2604 real d4fdrararara, d4fdrarararb, d4fdrararaga, d4fdrararagb,
2605 d4fdrararaab, d4fdrararbrb, d4fdrararbga, d4fdrararbgb, d4fdrararbab,
2606 d4fdraragaga, d4fdraragagb, d4fdraragaab, d4fdraragbgb, d4fdraragbab,
2607 d4fdraraabab, d4fdrarbrbrb, d4fdrarbrbga, d4fdrarbrbgb, d4fdrarbrbab,
2608 d4fdrarbgaga, d4fdrarbgagb, d4fdrarbgaab, d4fdrarbgbgb, d4fdrarbgbab,
2609 d4fdrarbabab, d4fdragagaga, d4fdragagagb, d4fdragagaab, d4fdragagbgb,
2610 d4fdragagbab, d4fdragaabab, d4fdragbgbgb, d4fdragbgbab, d4fdragbabab,
2611 d4fdraababab, d4fdrbrbrbrb, d4fdrbrbrbga, d4fdrbrbrbgb, d4fdrbrbrbab,
2612 d4fdrbrbgaga, d4fdrbrbgagb, d4fdrbrbgaab, d4fdrbrbgbgb, d4fdrbrbgbab,
2613 d4fdrbrbabab, d4fdrbgagaga, d4fdrbgagagb, d4fdrbgagaab, d4fdrbgagbgb,
2614 d4fdrbgagbab, d4fdrbgaabab, d4fdrbgbgbgb, d4fdrbgbgbab, d4fdrbgbabab,
2615 d4fdrbababab, d4fdgagagaga, d4fdgagagagb, d4fdgagagaab, d4fdgagagbgb,
2616 d4fdgagagbab, d4fdgagaabab, d4fdgagbgbgb, d4fdgagbgbab, d4fdgagbabab,
2617 d4fdgaababab, d4fdgbgbgbgb, d4fdgbgbgbab, d4fdgbgbabab, d4fdgbababab,
2618 d4fdabababab;
2619 real rhoa = dp->rhoa, rhob = dp->rhob;
2620 real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
2621
2622 real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
2623 real t11, t12, t13, t14, t15, t16, t17, t18;
2624 real t19, t20, t21, t22, t23, t24, t25, t26;
2625 real t27, t28, t29, t30, t31, t32, t33, t34;
2626 real t35, t36, t37, t38, t39, t40, t41, t42;
2627 real t43, t44, t45, t46, t47, t48, t49, t50;
2628 real t51, t52, t53, t54, t55, t56, t57, t58;
2629 real t59, t60, t61, t62, t63, t64, t65, t66;
2630 real t67, t68, t69, t70, t71, t72, t73, t74;
2631 real t75, t76, t77, t78, t79, t80, t81, t82;
2632 real t83, t84, t85, t86, t87, t88, t89, t90;
2633 real t91, t92, t93, t94, t95, t96, t97, t98;
2634 real t99, t100, t101, t102, t103, t104, t105;
2635 real t106, t107, t108, t109, t110, t111, t112;
2636 real t113, t114, t115, t116, t117, t118, t119;
2637 real t120, t121, t122, t123, t124, t125, t126;
2638 real t127, t128, t129, t130, t131, t132, t133;
2639 real t134, t135, t136, t137, t138, t139, t140;
2640 real t141, t142, t143, t144, t145, t146, t147;
2641 real t148, t149, t150, t151, t152, t153, t154;
2642 real t155, t156, t157, t158, t159, t160, t161;
2643 real t162, t163, t164, t165, t166, t167, t168;
2644 real t169, t170, t171, t172, t173, t174, t175;
2645 real t176, t177, t178, t179, t180, t181, t182;
2646 real t183, t184, t185, t186, t187, t188, t189;
2647 real t190, t191, t192, t193, t194, t195, t196;
2648 real t197, t198, t199, t200, t201, t202, t203;
2649 real t204, t205, t206, t207, t208, t209, t210;
2650 real t211, t212, t213, t214, t215, t216, t217;
2651 real t218, t219, t220, t221, t222, t223, t224;
2652 real t225, t226, t227, t228, t229, t230, t231;
2653 real t232, t233, t234, t235, t236, t237, t238;
2654 real t239, t240, t241, t242, t243, t244, t245;
2655 real t246, t247, t248, t249, t250, t251, t252;
2656 real t253, t254, t255, t256, t257, t258, t259;
2657 real t260, t261, t262, t263, t264, t265, t266;
2658 real t267, t268, t269, t270, t271, t272, t273;
2659 real t274, t275, t276, t277, t278, t279, t280;
2660 real t281, t282, t283, t284, t285, t286, t287;
2661 real t288, t289, t290, t291, t292, t293, t294;
2662 real t295, t296, t297, t298, t299, t300, t301;
2663 real t302, t303, t304, t305, t306, t307, t308;
2664 real t309, t310, t311, t312, t313, t314, t315;
2665 real t316, t317, t318, t319, t320, t321, t322;
2666 real t323, t324, t325, t326, t327, t328, t329;
2667 real t330, t331, t332, t333, t334, t335, t336;
2668 real t337, t338, t339, t340, t341, t342, t343;
2669 real t344, t345, t346, t347, t348, t349, t350;
2670 real t351, t352, t353, t354, t355, t356, t357;
2671 real t358, t359, t360, t361, t362, t363, t364;
2672 real t365, t366, t367, t368, t369, t370, t371;
2673 real t372, t373, t374, t375, t376, t377, t378;
2674 real t379, t380, t381, t382, t383, t384, t385;
2675 real t386, t387, t388, t389, t390, t391, t392;
2676 real t393, t394, t395, t396, t397, t398, t399;
2677 real t400, t401, t402, t403, t404, t405, t406;
2678 real t407, t408, t409, t410, t411, t412, t413;
2679 real t414, t415, t416, t417, t418, t419, t420;
2680 real t421, t422, t423, t424, t425, t426, t427;
2681 real t428, t429, t430, t431, t432, t433, t434;
2682 real t435, t436, t437, t438, t439, t440, t441;
2683 real t442, t443, t444, t445, t446, t447, t448;
2684 real t449, t450, t451, t452, t453, t454, t455;
2685 real t456, t457, t458, t459, t460, t461, t462;
2686 real t463, t464, t465, t466, t467, t468, t469;
2687 real t470, t471, t472, t473, t474, t475, t476;
2688 real t477, t478, t479, t480, t481, t482, t483;
2689 real t484, t485, t486, t487, t488, t489, t490;
2690 real t491, t492, t493, t494, t495, t496, t497;
2691 real t498, t499, t500, t501, t502, t503, t504;
2692 real t505, t506, t507, t508, t509, t510, t511;
2693 real t512, t513, t514, t515, t516, t517, t518;
2694 real t519, t520, t521, t522, t523, t524, t525;
2695 real t526, t527, t528, t529, t530, t531, t532;
2696 real t533, t534, t535, t536, t537, t538, t539;
2697 real t540, t541, t542, t543, t544, t545, t546;
2698 real t547, t548, t549, t550, t551, t552, t553;
2699 real t554, t555, t556, t557, t558, t559, t560;
2700 real t561, t562, t563, t564, t565, t566, t567;
2701 real t568, t569, t570, t571, t572, t573, t574;
2702 real t575, t576, t577, t578, t579, t580, t581;
2703 real t582, t583, t584, t585, t586, t587, t588;
2704 real t589, t590, t591, t592, t593, t594, t595;
2705 real t596, t597, t598, t599, t600, t601, t602;
2706 real t603, t604, t605, t606, t607, t608, t609;
2707 real t610, t611, t612, t613, t614, t615, t616;
2708 real t617, t618, t619, t620, t621, t622, t623;
2709 real t624, t625, t626, t627, t628, t629, t630;
2710 real t631, t632, t633, t634, t635, t636, t637;
2711 real t638, t639, t640, t641, t642, t643, t644;
2712 real t645, t646, t647, t648, t649, t650, t651;
2713 real t652, t653, t654, t655, t656, t657, t658;
2714 real t659, t660, t661, t662, t663, t664, t665;
2715 real t666, t667, t668, t669, t670, t671, t672;
2716 real t673, t674, t675, t676, t677, t678, t679;
2717 real t680, t681, t682, t683, t684, t685, t686;
2718 real t687, t688, t689, t690, t691, t692, t693;
2719 real t694, t695, t696, t697, t698, t699, t700;
2720 real t701, t702, t703, t704, t705, t706, t707;
2721 real t708, t709, t710, t711, t712, t713, t714;
2722 real t715, t716, t717, t718, t719, t720, t721;
2723 real t722, t723, t724, t725, t726, t727, t728;
2724 real t729, t730, t731, t732, t733, t734, t735;
2725 real t736, t737, t738, t739, t740, t741, t742;
2726 real t743, t744, t745, t746, t747, t748, t749;
2727 real t750, t751, t752, t753, t754, t755, t756;
2728 real t757, t758, t759, t760, t761, t762, t763;
2729 real t764, t765, t766, t767, t768, t769, t770;
2730 real t771, t772, t773, t774, t775, t776, t777;
2731 real t778, t779, t780, t781, t782, t783, t784;
2732 real t785, t786, t787, t788;
2733
2734 t1 = pow(3.0,0.333333333333333);
2735 t2 = 1/pow(4.0,0.333333333333333);
2736 t3 = 1/pow(3.141592653589793,0.333333333333333);
2737 t4 = pow(3.0,0.666666666666667);
2738 t5 = 1/pow(4.0,0.666666666666667);
2739 t6 = 1/pow(3.141592653589793,0.666666666666667);
2740 t7 = 1/pow(rhoa,0.666666666666667);
2741 t8 = 1.732050807568877;
2742 t9 = 0.564189583547756;
2743 t10 = sqrt(rhoa);
2744 t11 = pow(rhoa,0.333333333333333);
2745 t12 = 1/t11;
2746 t13 = pow(2.0,0.333333333333333);
2747 t14 = 1/t13;
2748 t15 = pow(3.0,0.166666666666667);
2749 t16 = 1/pow(3.141592653589793,0.166666666666667);
2750 t17 = 14.1189*t14*t15*t16/pow(rhoa,0.166666666666667)+
2751 1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
2752 t18 = 32.1646831778707/
2753 t17+1.0;
2754 t19 = log(t18);
2755 t20 = pow(grada,8.0);
2756 t21 = pow(grada,2.0);
2757 t22 = 1/pow(rhoa,2.666666666666667);
2758 t23 = 0.2*t21*t22+1.0;
2759 t24 = 1/pow(t23,4.0);
2760 t25 = 1/pow(rhoa,10.66666666666667);
2761 t26 = pow(grada,6.0);
2762 t27 = 1/pow(t23,3.0);
2763 t28 = 1/pow(rhoa,8.0);
2764 t29 = pow(grada,4.0);
2765 t30 = 1/pow(t23,2.0);
2766 t31 = 1/pow(rhoa,5.333333333333333);
2767 t32 = 1/t23;
2768 t33 = 0.01710778*t21*t32*t22+0.00796612*t29*t30*t31-0.01475312*
2769 t26*t27*t28+0.003489216*t20*t24*t25+0.492391;
2770 t34 = 0.20548*t1*t2*t3*t12+1.0;
2771 t35 = pow(6.0,0.333333333333333);
2772 t36 = 0.004*t21*t22+1.0;
2773 t37 = 1/pow(t36,4.0);
2774 t38 = 1/pow(t36,3.0);
2775 t39 = 1/pow(t36,2.0);
2776 t40 = 1/t36;
2777 t41 = -0.002082136*t21*t40*t22+7.54152E-5*t29*t39*t31-
2778 3.685203200000001E-7*t26*t38*t28+8.01088E-10*t20*t37*t25+1.07785;
2779 t42 = pow(grada,
2780 10.0);
2781 t43 = 1/pow(t23,5.0);
2782 t44 = 1/pow(rhoa,14.33333333333333);
2783 t45 = 1/pow(rhoa,11.66666666666667);
2784 t46 = 1/pow(rhoa,9.0);
2785 t47 = 1/pow(rhoa,6.333333333333333);
2786 t48 = 1/pow(rhoa,3.666666666666667);
2787 t49 = -0.045620746666667*t21*t32*t48-0.033361824*t29*
2788 t30*t47+0.126522154666667*t26*t27*t46-0.060823296*t20*t24*
2789 t45+0.0074436608*t42*t43*t44;
2790 t50 = 1/t18;
2791 t51 = 1/pow(rhoa,1.666666666666667);
2792 t52 = pow(rhoa,1.333333333333333);
2793 t53 = 1/t52;
2794 t54 = -2.35315*t14*t15*t16/pow(rhoa,1.166666666666667)-
2795 0.84155*t8*t9/pow(t10,3.0)-2.0659*t1*t2*t3*t53-0.41678*t4*
2796 t5*t6*t51;
2797 t55 = 1/pow(t17,2.0);
2798 t56 = 1/pow(t36,5.0);
2799 t57 = 0.005552362666667*t21*t40*t48-4.244238506666666E-4*
2800 t29*t39*t47+4.557020160000001E-6*t26*t38*t46-2.0337588906666668E-8*
2801 t20*t37*t45+3.41797546666667E-11*t42*t56*t44;
2802 t58 = pow(gradb,2.0);
2803 t59 = 1/pow(rhob,2.666666666666667);
2804 t60 = 0.5*t58*t59+0.5*t21*t22;
2805 t61 = pow(t60,4.0);
2806 t62 = 0.006*t60+1.0;
2807 t63 = 1/pow(t62,4.0);
2808 t64 = pow(t60,3.0);
2809 t65 = 1/pow(t62,3.0);
2810 t66 = pow(t60,2.0);
2811 t67 = 1/pow(t62,2.0);
2812 t68 = 1/t62;
2813 t69 = 0.02221776*t60*t68-5.364072E-4*t66*t67+3.391632E-6*
2814 t64*t65-7.86329856E-9*t61*t63+0.622261;
2815 t70 = rhob+rhoa;
2816 t71 = 1/pow(t70,0.333333333333333);
2817 t72 = 0.2137*t1*t2*t3*t71+1.0;
2818 t73 = 1/pow(t70,0.666666666666667);
2819 t74 = sqrt(t70);
2820 t75 = 1/t74;
2821 t76 = 1/pow(t70,0.166666666666667);
2822 t77 = 7.5957*t14*t15*t16*t76+3.5876*t1*t2*t3*t71+0.8191*
2823 t8*t9*t75+0.49294*t4*t5*t6*t73;
2824 t78 = 16.0818243221511/t77+1.0;
2825 t79 = log(t78);
2826 t80 = -0.062182*t72*t79;
2827 t81 = 1/(2.0*t13-2.0);
2828 t82 = rhoa-1.0*rhob;
2829 t83 = pow(t82,4.0);
2830 t84 = 1/pow(t70,4.0);
2831 t85 = 1.0-1.0*t83*t84;
2832 t86 = 0.11125*t1*t2*t3*t71+1.0;
2833 t87 = 1/t70;
2834 t88 = 1.0-1.0*t82*t87;
2835 t89 = t82*t87+1.0;
2836 t90 = pow(t89,1.333333333333333)+pow(t88,1.333333333333333)-
2837 2.0;
2838 t91 = 10.357*t14*t15*t16*t76+3.6231*t1*t2*t3*t71+0.44013*
2839 t8*t9*t75+0.49671*t4*t5*t6*t73;
2840 t92 = 29.60857464321668/t91+1.0;
2841 t93 = log(t92);
2842 t94 = 0.019751789702565*t81*t85*t86*t90*t93;
2843 t95 = 0.20548*t1*t2*t3*t71+1.0;
2844 t96 = 14.1189*t14*t15*t16*t76+6.1977*t1*t2*t3*t71+1.6831*
2845 t8*t9*t75+0.62517*t4*t5*t6*t73;
2846 t97 = 32.1646831778707/t96+1.0;
2847 t98 = log(t97);
2848 t99 = 0.062182*t72*t79-0.03109*t95*t98;
2849 t100 = t81*t83*t84*t90*t99;
2850 t101 = 1/pow(t70,1.666666666666667);
2851 t102 = 1/pow(t74,3.0);
2852 t103 = 1/pow(t70,1.333333333333333);
2853 t104 = 1/pow(t70,1.166666666666667);
2854 t105 = -1.26595*t14*t15*t16*t104-1.195866666666667*t1*
2855 t2*t3*t103-0.40955*t8*t9*t102-0.328626666666667*t4*t5*t6*t101;
2856 t106 = 1/
2857 pow(t77,2.0);
2858 t107 = 1/t78;
2859 t108 = 1.0*t105*t72*t106*t107;
2860 t109 = -1.726166666666666*t14*t15*t16*t104-1.2077*t1*
2861 t2*t3*t103-0.220065*t8*t9*t102-0.33114*t4*t5*t6*t101;
2862 t110 = 1/pow(t91,2.0);
2863 t111 = 1/t92;
2864 t112 = -0.58482233974552*t81*t85*t109*t86*t110*t90*t111;
2865 t113 = 0.004429431133333*
2866 t1*t2*t3*t103*t79;
2867 t114 = 1/pow(t70,2.0);
2868 t115 = t82*t114;
2869 t116 = -1.0*t87;
2870 t117 = t116+t115;
2871 t118 = pow(t88,0.333333333333333);
2872 t119 = -1.0*t114*t82;
2873 t120 = t87+t119;
2874 t121 = pow(t89,0.333333333333333);
2875 t122 = 1.333333333333333*t120*t121+1.333333333333333*
2876 t117*t118;
2877 t123 = 0.019751789702565*t81*t85*t86*t122*t93;
2878 t124 = -7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t90*
2879 t93;
2880 t125 = 1/pow(t70,5.0);
2881 t126 = 4.0*t125*t83;
2882 t127 = pow(t82,3.0);
2883 t128 = t126-4.0*t127*t84;
2884 t129 = 0.019751789702565*t81*t128*t86*t90*t93;
2885 t130 = -2.35315*t14*t15*t16*t104-2.0659*t1*t2*t3*t103-
2886 0.84155*t8*t9*t102-0.41678*t4*t5*t6*t101;
2887 t131 = 1/pow(t96,2.0);
2888 t132 = 1/t97;
2889 t133 = 0.002129457733333*t1*t2*t3*t103*t98-0.004429431133333*
2890 t1*t2*t3*t103*t79+t130*t95*t131*t132-1.0*t105*t72*t106*t107;
2891 t134 = t81*
2892 t83*t84*t90*t133;
2893 t135 = t81*t83*t84*t122*t99;
2894 t136 = -4.0*t125*t81*t83*t90*t99;
2895 t137 = -1.0*t50*t54*t34*t55*rhoa+t70*(4.0*t127*t81*t84*
2896 t90*t99+t136+t135+t134+t129+t124+t123+t113+t112+t108)+t94+
2897 t80+0.03109*t19*t34-0.002129457733333*t1*t2*t3*t19*t12+t100;
2898 t138 = 1/
2899 pow(t62,5.0);
2900 t139 = -0.02962368*t21*t48*t68+0.00160816128*t21*t48*
2901 t60*t67-2.2149043200000002E-5*t21*t48*t66*t65+1.2333676031999999E-7*
2902 t21*t48*t64*t63-2.5162555392E-10*t21*t48*t61*t138;
2903 t140 = 1/pow(rhob,0.666666666666667);
2904 t141 = sqrt(rhob);
2905 t142 = pow(rhob,0.333333333333333);
2906 t143 = 1/t142;
2907 t144 = 14.1189*t14*t15*t16/pow(rhob,0.166666666666667)+
2908 1.6831*t8*t9/t141+6.1977*t1*t2*t3*t143+0.62517*t4*t5*t6*t140;
2909 t145 = 32.1646831778707/
2910 t144+1.0;
2911 t146 = log(t145);
2912 t147 = 0.20548*t1*t2*t3*t143+1.0;
2913 t148 = t70*(t100+t94+t80)+0.03109*t146*t147*rhob+0.03109*
2914 t19*t34*rhoa;
2915 t149 = pow(gradb,8.0);
2916 t150 = 0.2*t58*t59+1.0;
2917 t151 = 1/pow(t150,4.0);
2918 t152 = 1/pow(rhob,10.66666666666667);
2919 t153 = pow(gradb,6.0);
2920 t154 = 1/pow(t150,3.0);
2921 t155 = 1/pow(rhob,8.0);
2922 t156 = pow(gradb,4.0);
2923 t157 = 1/pow(t150,2.0);
2924 t158 = 1/pow(rhob,5.333333333333333);
2925 t159 = 1/t150;
2926 t160 = 0.01710778*t58*t159*t59+0.00796612*t156*t157*t158-
2927 0.01475312*t153*t154*t155+0.003489216*t149*t151*t152+0.492391;
2928 t161 = 0.004*
2929 t58*t59+1.0;
2930 t162 = 1/pow(t161,4.0);
2931 t163 = 1/pow(t161,3.0);
2932 t164 = 1/pow(t161,2.0);
2933 t165 = 1/t161;
2934 t166 = -0.002082136*t58*t165*t59+7.54152E-5*t156*t164*
2935 t158-3.685203200000001E-7*t153*t163*t155+8.01088E-10*t149*
2936 t162*t152+1.07785;
2937 t167 = pow(gradb,10.0);
2938 t168 = 1/pow(t150,5.0);
2939 t169 = 1/pow(rhob,14.33333333333333);
2940 t170 = 1/pow(rhob,11.66666666666667);
2941 t171 = 1/pow(rhob,9.0);
2942 t172 = 1/pow(rhob,6.333333333333333);
2943 t173 = 1/pow(rhob,3.666666666666667);
2944 t174 = -0.045620746666667*t58*t159*t173-0.033361824*t156*
2945 t157*t172+0.126522154666667*t153*t154*t171-0.060823296*t149*
2946 t151*t170+0.0074436608*t167*t168*t169;
2947 t175 = 1/t145;
2948 t176 = 1/pow(rhob,1.666666666666667);
2949 t177 = pow(rhob,1.333333333333333);
2950 t178 = 1/t177;
2951 t179 = -2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-
2952 0.84155*t8*t9/pow(t141,3.0)-2.0659*t1*t2*t3*t178-0.41678*t4*
2953 t5*t6*t176;
2954 t180 = 1/pow(t144,2.0);
2955 t181 = 1/pow(t161,5.0);
2956 t182 = 0.005552362666667*t58*t165*t173-4.244238506666666E-4*
2957 t156*t164*t172+4.557020160000001E-6*t153*t163*t171-2.0337588906666668E-8*
2958 t149*t162*t170+3.41797546666667E-11*t167*t181*t169;
2959 t183 = t87+t115;
2960 t184 = t116+t119;
2961 t185 = 1.333333333333333*t121*t184+1.333333333333333*
2962 t118*t183;
2963 t186 = 0.019751789702565*t81*t85*t86*t185*t93;
2964 t187 = 4.0*t127*t84+t126;
2965 t188 = 0.019751789702565*t81*t187*t86*t90*t93;
2966 t189 = t81*t83*t84*t185*t99;
2967 t190 = -1.0*t175*t179*t147*t180*rhob+t70*(-4.0*t127*t81*
2968 t84*t90*t99+t189+t188+t186+t136+t134+t124+t113+t112+t108)+
2969 t94+t80+0.03109*t146*t147-0.002129457733333*t1*t2*t3*t146*
2970 t143+t100;
2971 t191 = -0.02962368*t58*t68*t173+0.00160816128*t58*t60*
2972 t67*t173-2.2149043200000002E-5*t58*t66*t65*t173+1.2333676031999999E-7*
2973 t58*t64*t63*t173-2.5162555392E-10*t58*t61*t138*t173;
2974 t192 = pow(grada,9.0);
2975 t193 = 1/pow(rhoa,13.33333333333333);
2976 t194 = pow(grada,7.0);
2977 t195 = pow(grada,5.0);
2978 t196 = pow(grada,3.0);
2979 t197 = 0.03421556*grada*t32*t22+0.025021368*t196*t30*
2980 t31-0.094891616*t195*t27*t28+0.045617472*t194*t24*t25-0.0055827456*
2981 t192*t43*t193;
2982 t198 = -0.004164272*grada*t40*t22+3.18317888E-4*t196*
2983 t39*t31-3.417765120000001E-6*t195*t38*t28+1.525319168E-8*t194*
2984 t37*t25-2.5634816E-11*t192*t56*t193;
2985 t199 = 0.02221776*grada*t22*t68-0.00120612096*grada*t22*
2986 t60*t67+1.66117824E-5*grada*t22*t66*t65-9.250257024E-8*grada*
2987 t22*t64*t63+1.8871916544E-10*grada*t22*t61*t138;
2988 t200 = pow(gradb,9.0);
2989 t201 = 1/pow(rhob,13.33333333333333);
2990 t202 = pow(gradb,7.0);
2991 t203 = pow(gradb,5.0);
2992 t204 = pow(gradb,3.0);
2993 t205 = 0.03421556*gradb*t159*t59+0.025021368*t204*t157*
2994 t158-0.094891616*t203*t154*t155+0.045617472*t202*t151*t152-
2995 0.0055827456*t200*t168*t201;
2996 t206 = -0.004164272*gradb*t165*t59+3.18317888E-4*t204*
2997 t164*t158-3.417765120000001E-6*t203*t163*t155+1.525319168E-8*
2998 t202*t162*t152-2.5634816E-11*t200*t181*t201;
2999 t207 = 0.02221776*gradb*t68*t59-0.00120612096*gradb*t60*
3000 t67*t59+1.66117824E-5*gradb*t66*t65*t59-9.250257024E-8*gradb*
3001 t64*t63*t59+1.8871916544E-10*gradb*t61*t138*t59;
3002 t208 = pow(grada,12.0);
3003 t209 = 1/pow(t23,6.0);
3004 t210 = 1/pow(rhoa,18.0);
3005 t211 = 1/pow(rhoa,15.33333333333333);
3006 t212 = 1/pow(rhoa,12.66666666666667);
3007 t213 = 1/pow(rhoa,10.0);
3008 t214 = 1/pow(rhoa,7.333333333333333);
3009 t215 = 1/pow(rhoa,4.666666666666667);
3010 t216 = 0.167276071111111*t21*t32*t215+0.186960487111111*
3011 t29*t30*t214-1.1742853376*t26*t27*t213+0.912040567466667*t20*
3012 t24*t212-0.236448836266667*t42*t43*t211+0.019849762133333*
3013 t208*t209*t210;
3014 t217 = 1/pow(t18,2.0);
3015 t218 = pow(t54,2.0);
3016 t219 = 1/pow(t17,4.0);
3017 t220 = 1/pow(t17,3.0);
3018 t221 = 1/pow(rhoa,2.333333333333333);
3019 t222 = 2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
3020 1.262325*t8*t9/pow(t10,5.0)+2.754533333333333*t1*t2*t3*t221+
3021 0.694633333333333*t4*t5*t6*t22;
3022 t223 = 1/pow(t36,6.0);
3023 t224 = -0.020358663111111*t21*t40*t215+0.002747242922667*
3024 t29*t39*t214-5.00675569208889E-5*t26*t38*t213+3.830965156977778E-7*
3025 t20*t37*t212-1.357646943573333E-9*t42*t56*t211+1.82292024888889E-12*
3026 t208*t223*t210;
3027 t225 = 2.0*t105*t72*t106*t107;
3028 t226 = -1.169644679491041*t81*t85*t109*t86*t110*t90*t111;
3029 t227 = 0.008858862266667*
3030 t1*t2*t3*t103*t79;
3031 t228 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t90*t93;
3032 t229 = 2.0*
3033 t133*t81*t83*t84*t90;
3034 t230 = -8.0*t125*t81*t83*t90*t99;
3035 t231 = pow(t105,2.0);
3036 t232 = 1/pow(t77,4.0);
3037 t233 = 1/pow(t78,2.0);
3038 t234 = 16.0818243221511*t231*t72*t232*t233;
3039 t235 = 1/pow(t77,3.0);
3040 t236 = -2.0*t231*t72*t235*t107;
3041 t237 = -0.142466666666667*t1*t2*t3*t103*t105*t106*t107;
3042 t238 = 1/
3043 pow(t70,2.666666666666667);
3044 t239 = 1/pow(t74,5.0);
3045 t240 = 1/pow(t70,2.333333333333333);
3046 t241 = 1/pow(t70,2.166666666666667);
3047 t242 = 1.476941666666667*t14*t15*t16*t241+1.594488888888889*
3048 t1*t2*t3*t240+0.614325*t8*t9*t239+0.547711111111111*t4*t5*
3049 t6*t238;
3050 t243 = 1.0*t242*t72*t106*t107;
3051 t244 = pow(t109,2.0);
3052 t245 = 1/pow(t91,4.0);
3053 t246 = 1/pow(t92,2.0);
3054 t247 = -17.31575589937587*t81*t85*t244*t86*t245*t90*t246;
3055 t248 = -
3056 1.169644679491041*t81*t85*t109*t86*t110*t122*t111;
3057 t249 = 1/pow(t91,3.0);
3058 t250 = 1.169644679491041*t81*t85*t244*t86*t249*t90*t111;
3059 t251 = 0.043374323531126*
3060 t81*t1*t2*t3*t103*t85*t109*t110*t90*t111;
3061 t252 = 2.013861111111111*t14*t15*t16*t241+1.610266666666667*
3062 t1*t2*t3*t240+0.3300975*t8*t9*t239+0.5519*t4*t5*t6*t238;
3063 t253 = -
3064 0.58482233974552*t81*t85*t252*t86*t110*t90*t111;
3065 t254 = -1.169644679491041*t81*t128*t109*t86*t110*t90*
3066 t111;
3067 t255 = -0.005905908177778*t1*t2*t3*t240*t79;
3068 t256 = pow(t117,2.0);
3069 t257 = 1/pow(t88,0.666666666666667);
3070 t258 = 1/pow(t70,3.0);
3071 t259 = -2.0*t258*t82;
3072 t260 = 2.0*t114;
3073 t261 = t260+t259;
3074 t262 = pow(t120,2.0);
3075 t263 = 1/pow(t89,0.666666666666667);
3076 t264 = 2.0*t258*t82;
3077 t265 = -2.0*t114;
3078 t266 = t265+t264;
3079 t267 = 1.333333333333333*t121*t266+0.444444444444444*
3080 t262*t263+1.333333333333333*t118*t261+0.444444444444444*t256*
3081 t257;
3082 t268 = 0.019751789702565*t81*t85*t86*t267*t93;
3083 t269 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t122*t93;
3084 t270 = 0.03950357940513*
3085 t81*t128*t86*t122*t93;
3086 t271 = -0.00146492440294*t81*t1*t2*t3*t103*t128*t90*t93;
3087 t272 = 9.76616268626835E-4*t81*t1*t2*t3*t240*t85*t90*
3088 t93;
3089 t273 = 1/pow(t70,6.0);
3090 t274 = -20.0*t273*t83;
3091 t275 = pow(t82,2.0);
3092 t276 = -12.0*t275*t84;
3093 t277 = t276+t274+32.0*t125*t127;
3094 t278 = 0.019751789702565*t81*t277*t86*t90*t93;
3095 t279 = pow(t130,2.0);
3096 t280 = 1/pow(t96,4.0);
3097 t281 = 1/pow(t97,2.0);
3098 t282 = 1/pow(t96,3.0);
3099 t283 = 2.745341666666667*t14*t15*t16*t241+2.754533333333333*
3100 t1*t2*t3*t240+1.262325*t8*t9*t239+0.694633333333333*t4*t5*
3101 t6*t238;
3102 t284 = -0.002839276977778*t1*t2*t3*t240*t98-2.0*t132*
3103 t279*t282*t95+0.005905908177778*t1*t2*t3*t240*t79+32.1646831778707*
3104 t279*t95*t280*t281-16.0818243221511*t231*t72*t232*t233+t283*
3105 t95*t131*t132-0.136986666666667*t1*t2*t3*t103*t130*t131*t132+
3106 2.0*t231*t72*t235*t107-1.0*t242*t72*t106*t107+0.142466666666667*
3107 t1*t2*t3*t103*t105*t106*t107;
3108 t285 = t81*t83*t84*t90*t284;
3109 t286 = 2.0*t122*t133*t81*t83*t84;
3110 t287 = -8.0*t125*t133*t81*t83*t90;
3111 t288 = 8.0*t127*t133*t81*t84*t90;
3112 t289 = t81*t83*t84*t267*t99;
3113 t290 = -8.0*t122*t125*t81*t83*t99;
3114 t291 = 20.0*t273*t81*t83*t90*t99;
3115 t292 = -32.0*t125*t127*t81*t90*t99;
3116 t293 = 12.0*t275*t81*t84*t90*t99;
3117 t294 = -1.0*t50*t222*t34*t55*rhoa+2.0*t50*t218*t34*t220*
3118 rhoa-32.1646831778707*t217*t218*t34*t219*rhoa+t70*(8.0*t122*
3119 t127*t81*t84*t99+t293+t292+t291+t290+t289+t288+t287+t286+t285+
3120 t278+t272+t271+t270+t269+t268+t255+t254+t253+t251+t250+t248+
3121 t247+t243+t237+t236+t234)+8.0*t127*t81*t84*t90*t99+2.0*t122*
3122 t81*t83*t84*t99+0.03950357940513*t81*t128*t86*t90*t93+0.03950357940513*
3123 t81*t85*t86*t122*t93-2.0*t50*t54*t34*t55-0.001419638488889*
3124 t1*t2*t3*t19*t53+t230+t229+t228+t227+t226+t225+0.136986666666667*
3125 t1*t2*t3*t50*t54*t55*t12;
3126 t295 = 1/pow(t62,6.0);
3127 t296 = 0.10862016*t21*t215*t68-0.00589659136*t21*t215*
3128 t60*t67-0.00238120448*t29*t214*t67+8.121315840000001E-5*t21*
3129 t215*t66*t65+8.479469568E-5*t29*t214*t60*t65-4.522347878399999E-7*
3130 t21*t215*t64*t63-1.02492407808E-6*t29*t214*t66*t63+9.2262703104E-10*
3131 t21*t215*t61*t138+5.28877928448E-9*t29*t214*t64*t138-1.00650221568E-11*
3132 t29*t214*t61*t295;
3133 t297 = 2.666666666666667*t121*t258*t82-2.666666666666667*
3134 t118*t258*t82+0.444444444444444*t120*t184*t263+0.444444444444444*
3135 t117*t183*t257;
3136 t298 = 12.0*t275*t84+t274;
3137 t299 = -12.0*t275*t81*t84*t90*t99;
3138 t300 = t70*(4.0*t127*t185*t81*t84*t99-4.0*t122*t127*t81*
3139 t84*t99-4.0*t125*t185*t81*t83*t99-4.0*t122*t125*t81*t83*t99+
3140 t81*t83*t84*t297*t99+0.019751789702565*t81*t298*t86*t90*t93-
3141 7.324622014701263E-4*t81*t1*t2*t3*t103*t187*t90*t93-7.324622014701263E-4*
3142 t81*t1*t2*t3*t103*t128*t90*t93+0.019751789702565*t81*t85*t86*
3143 t297*t93+0.019751789702565*t81*t128*t86*t185*t93-7.324622014701263E-4*
3144 t81*t1*t2*t3*t103*t85*t185*t93+0.019751789702565*t81*t187*
3145 t86*t122*t93-7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t122*
3146 t93+t299+t291+t287+t285+t272+t255+t253+t251+t250+t247+t243+
3147 t237+t236+t234+t81*t83*t84*t185*t133+t81*t83*t84*t122*t133-
3148 0.58482233974552*t81*t187*t109*t86*t110*t90*t111-0.58482233974552*
3149 t81*t128*t109*t86*t110*t90*t111-0.58482233974552*t81*t85*t109*
3150 t86*t110*t185*t111-0.58482233974552*t81*t85*t109*t86*t110*
3151 t122*t111)+t230+t229+t228+t227+t226+t225+t189+t188+t186+t135+
3152 t129+t123;
3153 t301 = -0.00238120448*t21*t58*t48*t67*t173+8.479469568E-5*
3154 t21*t58*t48*t60*t65*t173-1.02492407808E-6*t21*t58*t48*t66*
3155 t63*t173+5.28877928448E-9*t21*t58*t48*t64*t138*t173-1.00650221568E-11*
3156 t21*t58*t48*t61*t295*t173;
3157 t302 = pow(grada,11.0);
3158 t303 = 1/pow(rhoa,17.0);
3159 t304 = -0.091241493333333*grada*t32*t48-0.115198997333333*
3160 t196*t30*t47+0.7858223872*t195*t27*t46-0.6384129536*t194*t24*
3161 t45+0.1717538816*t192*t43*t44-0.0148873216*t302*t209*t303;
3162 t305 = 0.011104725333333*
3163 grada*t40*t48-0.001742114304*t196*t39*t47+3.413290257066667E-5*
3164 t195*t38*t46-2.720691950933334E-7*t194*t37*t45+9.9260039168E-10*
3165 t192*t56*t44-1.367190186666667E-12*t302*t223*t303;
3166 t306 = -0.05924736*grada*t48*t68+0.00321632256*grada*
3167 t48*t60*t67+0.00178590336*t196*t47*t67-4.42980864E-5*grada*
3168 t48*t66*t65-6.359602176E-5*t196*t47*t60*t65+2.4667352064E-7*
3169 grada*t48*t64*t63+7.6869305856E-7*t196*t47*t66*t63-5.0325110784E-10*
3170 grada*t48*t61*t138-3.96658446336E-9*t196*t47*t64*t138+7.5487666176E-12*
3171 t196*t47*t61*t295;
3172 t307 = 0.00178590336*t21*gradb*t48*t67*t59-6.359602176E-5*
3173 t21*gradb*t48*t60*t65*t59+7.6869305856E-7*t21*gradb*t48*t66*
3174 t63*t59-3.96658446336E-9*t21*gradb*t48*t64*t138*t59+7.5487666176E-12*
3175 t21*gradb*t48*t61*t295*t59;
3176 t308 = pow(gradb,12.0);
3177 t309 = 1/pow(t150,6.0);
3178 t310 = 1/pow(rhob,18.0);
3179 t311 = 1/pow(rhob,15.33333333333333);
3180 t312 = 1/pow(rhob,12.66666666666667);
3181 t313 = 1/pow(rhob,10.0);
3182 t314 = 1/pow(rhob,7.333333333333333);
3183 t315 = 1/pow(rhob,4.666666666666667);
3184 t316 = 0.167276071111111*t58*t159*t315+0.186960487111111*
3185 t156*t157*t314-1.1742853376*t153*t154*t313+0.912040567466667*
3186 t149*t151*t312-0.236448836266667*t167*t168*t311+0.019849762133333*
3187 t308*t309*t310;
3188 t317 = 1/pow(t145,2.0);
3189 t318 = pow(t179,2.0);
3190 t319 = 1/pow(t144,4.0);
3191 t320 = 1/pow(t144,3.0);
3192 t321 = 1/pow(rhob,2.333333333333333);
3193 t322 = 2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
3194 1.262325*t8*t9/pow(t141,5.0)+0.694633333333333*t4*t5*t6*t59+
3195 2.754533333333333*t1*t2*t3*t321;
3196 t323 = 1/pow(t161,6.0);
3197 t324 = -0.020358663111111*t58*t165*t315+0.002747242922667*
3198 t156*t164*t314-5.00675569208889E-5*t153*t163*t313+3.830965156977778E-7*
3199 t149*t162*t312-1.357646943573333E-9*t167*t181*t311+1.82292024888889E-12*
3200 t308*t323*t310;
3201 t325 = -1.169644679491041*t81*t85*t109*t86*t110*t185*
3202 t111;
3203 t326 = -1.169644679491041*t81*t187*t109*t86*t110*t90*
3204 t111;
3205 t327 = pow(t183,2.0);
3206 t328 = t265+t259;
3207 t329 = pow(t184,2.0);
3208 t330 = t260+t264;
3209 t331 = 1.333333333333333*t121*t330+0.444444444444444*
3210 t263*t329+1.333333333333333*t118*t328+0.444444444444444*t257*
3211 t327;
3212 t332 = 0.019751789702565*t81*t85*t86*t331*t93;
3213 t333 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t185*t93;
3214 t334 = 0.03950357940513*
3215 t81*t187*t86*t185*t93;
3216 t335 = -0.00146492440294*t81*t1*t2*t3*t103*t187*t90*t93;
3217 t336 = t276+
3218 t274-32.0*t125*t127;
3219 t337 = 0.019751789702565*t81*t336*t86*t90*t93;
3220 t338 = 2.0*t133*t185*t81*t83*t84;
3221 t339 = -8.0*t127*t133*t81*t84*t90;
3222 t340 = t81*t83*t84*t331*t99;
3223 t341 = -8.0*t125*t185*t81*t83*t99;
3224 t342 = 32.0*t125*t127*t81*t90*t99;
3225 t343 = 2.0*t175*t318*t147*t320*rhob-32.1646831778707*
3226 t317*t318*t147*t319*rhob-1.0*t175*t322*t147*t180*rhob+t70*
3227 (-8.0*t127*t185*t81*t84*t99+t342+t341+t340+t339+t338+t337+
3228 t335+t334+t333+t332+t326+t325+t293+t291+t287+t285+t272+t255+
3229 t253+t251+t250+t247+t243+t237+t236+t234)-8.0*t127*t81*t84*
3230 t90*t99+2.0*t185*t81*t83*t84*t99+0.03950357940513*t81*t187*
3231 t86*t90*t93+0.03950357940513*t81*t85*t86*t185*t93+t230+t229+
3232 t228+t227+t226+t225-2.0*t175*t179*t147*t180-0.001419638488889*
3233 t1*t2*t3*t146*t178+0.136986666666667*t1*t2*t3*t175*t179*t180*
3234 t143;
3235 t344 = 0.10862016*t58*t68*t315-0.00589659136*t58*t60*
3236 t67*t315+8.121315840000001E-5*t58*t66*t65*t315-4.522347878399999E-7*
3237 t58*t64*t63*t315+9.2262703104E-10*t58*t61*t138*t315-0.00238120448*
3238 t156*t67*t314+8.479469568E-5*t156*t60*t65*t314-1.02492407808E-6*
3239 t156*t66*t63*t314+5.28877928448E-9*t156*t64*t138*t314-1.00650221568E-11*
3240 t156*t61*t295*t314;
3241 t345 = 0.00178590336*grada*t58*t22*t67*t173-6.359602176E-5*
3242 grada*t58*t22*t60*t65*t173+7.6869305856E-7*grada*t58*t22*t66*
3243 t63*t173-3.96658446336E-9*grada*t58*t22*t64*t138*t173+7.5487666176E-12*
3244 grada*t58*t22*t61*t295*t173;
3245 t346 = pow(gradb,11.0);
3246 t347 = 1/pow(rhob,17.0);
3247 t348 = -0.091241493333333*gradb*t159*t173-0.115198997333333*
3248 t204*t157*t172+0.7858223872*t203*t154*t171-0.6384129536*t202*
3249 t151*t170+0.1717538816*t200*t168*t169-0.0148873216*t346*t309*
3250 t347;
3251 t349 = 0.011104725333333*gradb*t165*t173-0.001742114304*
3252 t204*t164*t172+3.413290257066667E-5*t203*t163*t171-2.720691950933334E-7*
3253 t202*t162*t170+9.9260039168E-10*t200*t181*t169-1.367190186666667E-12*
3254 t346*t323*t347;
3255 t350 = -0.05924736*gradb*t68*t173+0.00321632256*gradb*
3256 t60*t67*t173-4.42980864E-5*gradb*t66*t65*t173+2.4667352064E-7*
3257 gradb*t64*t63*t173-5.0325110784E-10*gradb*t61*t138*t173+0.00178590336*
3258 t204*t67*t172-6.359602176E-5*t204*t60*t65*t172+7.6869305856E-7*
3259 t204*t66*t63*t172-3.96658446336E-9*t204*t64*t138*t172+7.5487666176E-12*
3260 t204*t61*t295*t172;
3261 t351 = 1/pow(rhoa,16.0);
3262 t352 = 0.03421556*t32*t22+0.06137788*t21*t30*t31-0.4944751744*
3263 t29*t27*t28+0.4331922432*t26*t24*t25-0.1232326656*t20*t43*
3264 t193+0.0111654912*t42*t209*t351;
3265 t353 = -0.004164272*t40*t22+9.882678399999998E-4*t21*
3266 t39*t31-2.2181911808000004E-5*t29*t38*t28+1.8879870464000002E-7*
3267 t26*t37*t25-7.1881547776E-10*t20*t56*t193+1.02539264E-12*t42*
3268 t223*t351;
3269 t354 = 0.02221776*t22*t68-0.00120612096*t22*t60*t67-0.00133942752*
3270 t21*t31*t67+1.66117824E-5*t22*t66*t65+4.769701632E-5*t21*t31*
3271 t60*t65-9.250257024E-8*t22*t64*t63-5.7651979392E-7*t21*t31*
3272 t66*t63+1.8871916544E-10*t22*t61*t138+2.97493834752E-9*t21*
3273 t31*t64*t138-5.6615749632E-12*t21*t31*t61*t295;
3274 t355 = -0.00133942752*grada*gradb*t22*t67*t59+4.769701632E-5*
3275 grada*gradb*t22*t60*t65*t59-5.7651979392E-7*grada*gradb*t22*
3276 t66*t63*t59+2.97493834752E-9*grada*gradb*t22*t64*t138*t59-
3277 5.6615749632E-12*grada*gradb*t22*t61*t295*t59;
3278 t356 = 1/pow(rhob,16.0);
3279 t357 = 0.03421556*t159*t59+0.06137788*t58*t157*t158-0.4944751744*
3280 t156*t154*t155+0.4331922432*t153*t151*t152-0.1232326656*t149*
3281 t168*t201+0.0111654912*t167*t309*t356;
3282 t358 = -0.004164272*t165*t59+9.882678399999998E-4*t58*
3283 t164*t158-2.2181911808000004E-5*t156*t163*t155+1.8879870464000002E-7*
3284 t153*t162*t152-7.1881547776E-10*t149*t181*t201+1.02539264E-12*
3285 t167*t323*t356;
3286 t359 = 0.02221776*t68*t59-0.00120612096*t60*t67*t59+1.66117824E-5*
3287 t66*t65*t59-9.250257024E-8*t64*t63*t59+1.8871916544E-10*t61*
3288 t138*t59-0.00133942752*t58*t67*t158+4.769701632E-5*t58*t60*
3289 t65*t158-5.7651979392E-7*t58*t66*t63*t158+2.97493834752E-9*
3290 t58*t64*t138*t158-5.6615749632E-12*t58*t61*t295*t158;
3291 t360 = pow(grada,14.0);
3292 t361 = 1/pow(t23,7.0);
3293 t362 = 1/pow(rhoa,21.66666666666667);
3294 t363 = 1/pow(rhoa,19.0);
3295 t364 = 1/pow(rhoa,16.33333333333333);
3296 t365 = 1/pow(rhoa,13.66666666666667);
3297 t366 = 1/pow(rhoa,11.0);
3298 t367 = 1/pow(rhoa,8.333333333333334);
3299 t368 = 1/pow(rhoa,5.666666666666667);
3300 t369 = -0.780621665185185*t21*t32*t368-1.281829667555556*
3301 t29*t30*t367+11.94227789558519*t26*t27*t366-13.43137039473778*
3302 t20*t24*t365+5.571235366684446*t42*t43*t364-0.987825948444445*
3303 t208*t209*t363+0.063519238826667*t360*t361*t362;
3304 t370 = 1/pow(t18,3.0);
3305 t371 = pow(t54,3.0);
3306 t372 = 1/pow(t17,6.0);
3307 t373 = 1/pow(t17,5.0);
3308 t374 = 1/pow(rhoa,3.333333333333333);
3309 t375 = -5.948240277777777*t14*t15*t16/pow(rhoa,3.166666666666667)-
3310 3.1558125*t8*t9/pow(t10,7.0)-1.852355555555556*t4*t5*t6*t48-
3311 6.427244444444445*t1*t2*t3*t374;
3312 t376 = 1/pow(t36,7.0);
3313 t377 = 0.095007094518519*t21*t40*t368-0.020363607172741*
3314 t29*t39*t367+5.592834182257778E-4*t26*t38*t366-6.454717686973631E-6*
3315 t20*t37*t365+3.716270447122964E-8*t42*t56*t364-1.052204014705778E-10*
3316 t208*t223*t363+1.166668959288889E-13*t360*t376*t362;
3317 t378 = 48.2454729664533*t231*t72*t232*t233;
3318 t379 = -6.0*t231*t72*t235*t107;
3319 t380 = -0.4274*t1*t2*t3*t103*t105*t106*t107;
3320 t381 = 3.0*t242*t72*t106*t107;
3321 t382 = -51.9472676981276*t81*t85*t244*t86*t245*t90*t246;
3322 t383 = 3.508934038473122*
3323 t81*t85*t244*t86*t249*t90*t111;
3324 t384 = 0.130122970593378*t81*t1*t2*t3*t103*t85*t109*t110*
3325 t90*t111;
3326 t385 = -1.754467019236561*t81*t85*t252*t86*t110*t90*t111;
3327 t386 = -
3328 0.017717724533333*t1*t2*t3*t240*t79;
3329 t387 = 0.002929848805881*t81*t1*t2*t3*t240*t85*t90*t93;
3330 t388 = 3.0*
3331 t284*t81*t83*t84*t90;
3332 t389 = -24.0*t125*t133*t81*t83*t90;
3333 t390 = 60.0*t273*t81*t83*t90*t99;
3334 t391 = 36.0*t275*t81*t84*t90*t99;
3335 t392 = pow(t105,3.0);
3336 t393 = 1/pow(t77,6.0);
3337 t394 = 1/pow(t78,3.0);
3338 t395 = 517.2501470570614*t392*t72*t393*t394;
3339 t396 = 1/pow(t77,5.0);
3340 t397 = -96.4909459329066*t392*t72*t396*t233;
3341 t398 = -3.43668585764369*t1*t2*t3*t103*t231*t232*t233;
3342 t399 = 48.2454729664533*
3343 t242*t105*t72*t232*t233;
3344 t400 = 6.0*t392*t72*t232*t107;
3345 t401 = 0.4274*t1*t2*t3*t103*t231*t235*t107;
3346 t402 = -6.0*t242*t105*t72*t235*t107;
3347 t403 = -0.2137*t1*t2*t3*t103*t242*t106*t107;
3348 t404 = 0.284933333333333*t1*t2*t3*t240*t105*t106*t107;
3349 t405 = 1/
3350 pow(t70,3.666666666666667);
3351 t406 = 1/pow(t74,7.0);
3352 t407 = 1/pow(t70,3.333333333333333);
3353 t408 = 1/pow(t70,3.166666666666667);
3354 t409 = -3.200040277777777*t14*t15*t16*t408-3.720474074074074*
3355 t1*t2*t3*t407-1.5358125*t8*t9*t406-1.460562962962963*t4*t5*
3356 t6*t405;
3357 t410 = 1.0*t409*t72*t106*t107;
3358 t411 = pow(t109,3.0);
3359 t412 = 1/pow(t91,6.0);
3360 t413 = 1/pow(t92,3.0);
3361 t414 = -1025.38970210078*t81*t85*t411*t86*t412*t90*t413;
3362 t415 = -
3363 51.9472676981276*t81*t85*t244*t86*t245*t122*t246;
3364 t416 = 1/pow(t91,5.0);
3365 t417 = 103.8945353962552*t81*t85*t411*t86*t416*t90*t246;
3366 t418 = 1.926377843805565*
3367 t81*t1*t2*t3*t103*t85*t244*t245*t90*t246;
3368 t419 = -51.9472676981276*t81*t85*t252*t109*t86*t245*t90*
3369 t246;
3370 t420 = -51.9472676981276*t81*t128*t244*t86*t245*t90*t246;
3371 t421 = 3.508934038473122*
3372 t81*t85*t244*t86*t249*t122*t111;
3373 t422 = 0.130122970593378*t81*t1*t2*t3*t103*t85*t109*t110*
3374 t122*t111;
3375 t423 = -1.754467019236561*t81*t85*t252*t86*t110*t122*
3376 t111;
3377 t424 = -3.508934038473122*t81*t85*t411*t86*t245*t90*t111;
3378 t425 = -
3379 0.130122970593378*t81*t1*t2*t3*t103*t85*t244*t249*t90*t111;
3380 t426 = 3.508934038473122*
3381 t81*t85*t252*t109*t86*t249*t90*t111;
3382 t427 = 3.508934038473122*t81*t128*t244*t86*t249*t90*t111;
3383 t428 = 0.065061485296689*
3384 t81*t1*t2*t3*t103*t85*t252*t110*t90*t111;
3385 t429 = 0.130122970593378*t81*t1*t2*t3*t103*t128*t109*
3386 t110*t90*t111;
3387 t430 = -0.086748647062252*t81*t1*t2*t3*t240*t85*t109*
3388 t110*t90*t111;
3389 t431 = -4.36336574074074*t14*t15*t16*t408-3.757288888888889*
3390 t1*t2*t3*t407-0.82524375*t8*t9*t406-1.471733333333333*t4*t5*
3391 t6*t405;
3392 t432 = -0.58482233974552*t81*t85*t431*t86*t110*t90*t111;
3393 t433 = -
3394 1.754467019236561*t81*t128*t252*t86*t110*t90*t111;
3395 t434 = 0.013780452414815*t1*t2*t3*t407*t79;
3396 t435 = pow(t117,3.0);
3397 t436 = 1/pow(t88,1.666666666666667);
3398 t437 = 6.0*t82*t84;
3399 t438 = -6.0*t258;
3400 t439 = t438+t437;
3401 t440 = pow(t120,3.0);
3402 t441 = 1/pow(t89,1.666666666666667);
3403 t442 = -6.0*t82*t84;
3404 t443 = 6.0*t258;
3405 t444 = t443+t442;
3406 t445 = 1.333333333333333*t121*t444-0.296296296296296*
3407 t440*t441+1.333333333333333*t118*t439-0.296296296296296*t435*
3408 t436+1.333333333333333*t120*t263*t266+1.333333333333333*t117*
3409 t257*t261;
3410 t446 = 0.019751789702565*t81*t85*t86*t445*t93;
3411 t447 = 0.059255369107696*t81*t128*t86*t267*t93;
3412 t448 = 0.002929848805881*t81*t1*t2*t3*t240*t85*t122*t93;
3413 t449 = 0.059255369107696*
3414 t81*t277*t86*t122*t93;
3415 t450 = 0.002929848805881*t81*t1*t2*t3*t240*t128*t90*t93;
3416 t451 = -
3417 0.002278771293463*t81*t1*t2*t3*t407*t85*t90*t93;
3418 t452 = 1/pow(t70,7.0);
3419 t453 = 120.0*t452*t83;
3420 t454 = 144.0*t125*t275;
3421 t455 = -24.0*t82*t84;
3422 t456 = t455+t454+t453-240.0*t127*t273;
3423 t457 = 0.019751789702565*t81*t456*t86*t90*t93;
3424 t458 = pow(t130,3.0);
3425 t459 = 1/pow(t96,6.0);
3426 t460 = 1/pow(t97,3.0);
3427 t461 = 1/pow(t96,5.0);
3428 t462 = -5.948240277777777*t14*t15*t16*t408-6.427244444444445*
3429 t1*t2*t3*t407-3.1558125*t8*t9*t406-1.852355555555556*t4*t5*
3430 t6*t405;
3431 t463 = 0.006624979614815*t1*t2*t3*t407*t98+6.0*t132*t280*
3432 t458*t95-6.0*t130*t132*t282*t283*t95-0.013780452414815*t1*
3433 t2*t3*t407*t79+2069.133687865597*t458*t95*t459*t460-517.2501470570614*
3434 t392*t72*t393*t394-192.9880990672242*t458*t95*t461*t281+96.4940495336121*
3435 t283*t130*t95*t280*t281-6.60919909938887*t1*t2*t3*t103*t279*
3436 t280*t281+96.4909459329066*t392*t72*t396*t233-48.2454729664533*
3437 t242*t105*t72*t232*t233+3.43668585764369*t1*t2*t3*t103*t231*
3438 t232*t233+0.41096*t1*t2*t3*t103*t279*t282*t132+t462*t95*t131*
3439 t132-0.20548*t1*t2*t3*t103*t283*t131*t132+0.273973333333333*
3440 t1*t2*t3*t240*t130*t131*t132+6.0*t242*t105*t72*t235*t107-0.4274*
3441 t1*t2*t3*t103*t231*t235*t107-6.0*t392*t72*t232*t107-1.0*t409*
3442 t72*t106*t107+0.2137*t1*t2*t3*t103*t242*t106*t107-0.284933333333333*
3443 t1*t2*t3*t240*t105*t106*t107;
3444 t464 = t81*t83*t84*t90*t463;
3445 t465 = 3.0*t122*t284*t81*t83*t84;
3446 t466 = -12.0*t125*t284*t81*t83*t90;
3447 t467 = -24.0*t122*t125*t133*t81*t83;
3448 t468 = 24.0*t122*t127*t133*t81*t84;
3449 t469 = 60.0*t133*t273*t81*t83*t90;
3450 t470 = 36.0*t133*t275*t81*t84*t90;
3451 t471 = t81*t83*t84*t445*t99;
3452 t472 = 60.0*t122*t273*t81*t83*t99;
3453 t473 = -96.0*t122*t125*t127*t81*t99;
3454 t474 = 36.0*t122*t275*t81*t84*t99;
3455 t475 = -120.0*t452*t81*t83*t90*t99;
3456 t476 = -144.0*t125*t275*t81*t90*t99;
3457 t477 = 24.0*t81*t82*t84*t90*t99;
3458 t478 = -1.0*t50*t375*t34*t55*rhoa+192.9880990672242*t217*
3459 t371*t34*t373*rhoa-2069.133687865597*t370*t371*t34*t372*rhoa+
3460 6.0*t50*t222*t54*t34*t220*rhoa-96.4940495336121*t217*t222*
3461 t54*t34*t219*rhoa-6.0*t50*t371*t34*t219*rhoa+t70*(240.0*t127*
3462 t273*t81*t90*t99+12.0*t127*t267*t81*t84*t99-12.0*t125*t267*
3463 t81*t83*t99-0.00219738660441*t81*t1*t2*t3*t103*t277*t90*t93-
3464 0.00219738660441*t81*t1*t2*t3*t103*t85*t267*t93-0.004394773208821*
3465 t81*t1*t2*t3*t103*t128*t122*t93+12.0*t127*t284*t81*t84*t90-
3466 96.0*t125*t127*t133*t81*t90+3.0*t133*t267*t81*t83*t84+t477+
3467 t476+t475+t474+t473+t472+t471+t470+t469+t468+t467+t466+t465+
3468 t464+t457+t451+t450+t449+t448+t447+t446+t434+t433+t432+t430+
3469 t429+t428+t427+t426+t425+t424+t423+t422+t421+t420+t419+t418+
3470 t417+t415+t414+t410+t404+t403+t402+t401+t400+t399+t398+t397+
3471 t395-1.754467019236561*t81*t277*t109*t86*t110*t90*t111-1.754467019236561*
3472 t81*t85*t109*t86*t110*t267*t111-3.508934038473122*t81*t128*
3473 t109*t86*t110*t122*t111)-96.0*t125*t127*t81*t90*t99+3.0*t267*
3474 t81*t83*t84*t99+24.0*t122*t127*t81*t84*t99-24.0*t122*t125*
3475 t81*t83*t99+0.059255369107696*t81*t277*t86*t90*t93-0.004394773208821*
3476 t81*t1*t2*t3*t103*t128*t90*t93+0.059255369107696*t81*t85*t86*
3477 t267*t93+0.118510738215391*t81*t128*t86*t122*t93-0.004394773208821*
3478 t81*t1*t2*t3*t103*t85*t122*t93+24.0*t127*t133*t81*t84*t90+
3479 6.0*t122*t133*t81*t83*t84-3.0*t50*t222*t34*t55+0.136986666666667*
3480 t1*t2*t3*t50*t54*t55*t53+t391+t390+t389+t388+t387+t386+t385+
3481 t384+t383+t382+t381+t380+t379+t378+0.001892851318519*t1*t2*
3482 t3*t19*t221+6.0*t50*t218*t34*t220-96.4940495336121*t217*t218*
3483 t34*t219+0.20548*t1*t2*t3*t50*t222*t55*t12-0.41096*t1*t2*t3*
3484 t50*t218*t220*t12+6.60919909938887*t1*t2*t3*t217*t218*t219*
3485 t12-3.508934038473122*t81*t128*t109*t86*t110*t90*t111-3.508934038473122*
3486 t81*t85*t109*t86*t110*t122*t111;
3487 t479 = 1/pow(t62,7.0);
3488 t480 = -0.50689408*t21*t368*t68+0.027517426346667*t21*
3489 t368*t60*t67+0.02619324928*t29*t367*t67-3.789947392E-4*t21*
3490 t368*t66*t65-9.327416524800001E-4*t29*t367*t60*t65-1.5115886592E-4*
3491 t26*t366*t65+2.11042900992E-6*t21*t368*t64*t63+1.1274164858879998E-5*
3492 t29*t367*t66*t63+4.7682035712E-6*t26*t366*t60*t63-4.305592811520001E-9*
3493 t21*t368*t61*t138-5.817657212927999E-8*t29*t367*t64*t138-5.395268763648E-8*
3494 t26*t366*t66*t138+1.107152437248E-10*t29*t367*t61*t295+2.652312895488E-10*
3495 t26*t366*t64*t295-4.831210635264E-13*t26*t366*t61*t479;
3496 t481 = 0.03950357940513*t81*t85*t86*t297*t93;
3497 t482 = 0.03950357940513*t81*t128*t86*t185*t93;
3498 t483 = 0.03950357940513*t81*t187*t86*t122*t93;
3499 t484 = 0.03950357940513*t81*t298*t86*t90*t93;
3500 t485 = 2.0*t297*t81*t83*t84*t99;
3501 t486 = -1.169644679491041*t81*t85*t109*t86*t110*t297*
3502 t111;
3503 t487 = -1.169644679491041*t81*t128*t109*t86*t110*t185*
3504 t111;
3505 t488 = -1.169644679491041*t81*t187*t109*t86*t110*t122*
3506 t111;
3507 t489 = -1.169644679491041*t81*t298*t109*t86*t110*t90*
3508 t111;
3509 t490 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t297*t93;
3510 t491 = t437-
3511 2.0*t258;
3512 t492 = t442+2.0*t258;
3513 t493 = 1.777777777777778*t120*t258*t263*t82-1.777777777777778*
3514 t117*t257*t258*t82+1.333333333333333*t121*t492+1.333333333333333*
3515 t118*t491-0.296296296296296*t184*t262*t441-0.296296296296296*
3516 t183*t256*t436+0.444444444444444*t184*t263*t266+0.444444444444444*
3517 t183*t257*t261;
3518 t494 = -0.00146492440294*t81*t1*t2*t3*t103*t128*t185*
3519 t93;
3520 t495 = -0.00146492440294*t81*t1*t2*t3*t103*t187*t122*
3521 t93;
3522 t496 = -0.00146492440294*t81*t1*t2*t3*t103*t298*t90*t93;
3523 t497 = -
3524 48.0*t125*t275;
3525 t498 = 24.0*t82*t84;
3526 t499 = t498+t497+t453-80.0*t127*t273;
3527 t500 = 2.0*t133*t297*t81*t83*t84;
3528 t501 = -12.0*t133*t275*t81*t84*t90;
3529 t502 = -8.0*t125*t297*t81*t83*t99;
3530 t503 = -24.0*t122*t275*t81*t84*t99;
3531 t504 = 48.0*t125*t275*t81*t90*t99;
3532 t505 = -24.0*t81*t82*t84*t90*t99;
3533 t506 = t70*(80.0*t127*t273*t81*t90*t99+8.0*t127*t297*
3534 t81*t84*t99+12.0*t185*t275*t81*t84*t99-4.0*t127*t267*t81*t84*
3535 t99+20.0*t185*t273*t81*t83*t99+40.0*t122*t273*t81*t83*t99-
3536 4.0*t125*t267*t81*t83*t99-32.0*t125*t127*t185*t81*t99+t81*
3537 t83*t84*t493*t99+0.019751789702565*t81*t499*t86*t90*t93-7.324622014701263E-4*
3538 t81*t1*t2*t3*t103*t277*t90*t93+9.76616268626835E-4*t81*t1*
3539 t2*t3*t240*t187*t90*t93+0.001953232537254*t81*t1*t2*t3*t240*
3540 t128*t90*t93+0.019751789702565*t81*t85*t86*t493*t93+0.03950357940513*
3541 t81*t128*t86*t297*t93+0.019751789702565*t81*t187*t86*t267*
3542 t93-7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t267*t93+0.019751789702565*
3543 t81*t277*t86*t185*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*
3544 t85*t185*t93+0.03950357940513*t81*t298*t86*t122*t93+0.001953232537254*
3545 t81*t1*t2*t3*t240*t85*t122*t93-0.00146492440294*t81*t1*t2*
3546 t3*t103*t128*t122*t93+4.0*t127*t284*t81*t84*t90-32.0*t125*
3547 t127*t133*t81*t90+2.0*t122*t284*t81*t83*t84+8.0*t127*t133*
3548 t185*t81*t84-8.0*t125*t133*t185*t81*t83-16.0*t122*t125*t133*
3549 t81*t83+t505+t504+t503+t502+t501+t500+t496+t495+t494+t490+
3550 t489+t488+t487+t486+t475+t469+t466+t464+t451+t434+t432+t430+
3551 t428+t426+t425+t424+t419+t418+t417+t414+t410+t404+t403+t402+
3552 t401+t400+t399+t398+t397+t395+t81*t83*t84*t185*t284-17.31575589937587*
3553 t81*t187*t244*t86*t245*t90*t246-34.63151179875173*t81*t128*
3554 t244*t86*t245*t90*t246-17.31575589937587*t81*t85*t244*t86*
3555 t245*t185*t246-34.63151179875173*t81*t85*t244*t86*t245*t122*
3556 t246+t81*t83*t84*t267*t133+1.169644679491041*t81*t187*t244*
3557 t86*t249*t90*t111+2.339289358982082*t81*t128*t244*t86*t249*
3558 t90*t111-0.58482233974552*t81*t187*t252*t86*t110*t90*t111-
3559 1.169644679491041*t81*t128*t252*t86*t110*t90*t111-0.58482233974552*
3560 t81*t277*t109*t86*t110*t90*t111+0.043374323531126*t81*t1*t2*
3561 t3*t103*t187*t109*t110*t90*t111+0.086748647062252*t81*t1*t2*
3562 t3*t103*t128*t109*t110*t90*t111-0.58482233974552*t81*t85*t109*
3563 t86*t110*t267*t111+1.169644679491041*t81*t85*t244*t86*t249*
3564 t185*t111-0.58482233974552*t81*t85*t252*t86*t110*t185*t111+
3565 0.043374323531126*t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+
3566 2.339289358982082*t81*t85*t244*t86*t249*t122*t111-1.169644679491041*
3567 t81*t85*t252*t86*t110*t122*t111-1.169644679491041*t81*t128*
3568 t109*t86*t110*t122*t111+0.086748647062252*t81*t1*t2*t3*t103*
3569 t85*t109*t110*t122*t111)+8.0*t127*t185*t81*t84*t99-16.0*t122*
3570 t125*t81*t83*t99-0.002929848805881*t81*t1*t2*t3*t103*t128*
3571 t90*t93-0.002929848805881*t81*t1*t2*t3*t103*t85*t122*t93+4.0*
3572 t122*t133*t81*t83*t84+t485+t484+t483+t482+t481+t390+t389+t388+
3573 t387+t386+t385+t384+t383+t382+t381+t380+t379+t378+t341+t338+
3574 t335+t333+t326+t325+t299+t292+t289+t288+t278+t270+t268-2.339289358982082*
3575 t81*t128*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
3576 t109*t86*t110*t122*t111;
3577 t507 = 0.008731083093333*t21*t58*t215*t67*t173-3.1091388416E-4*
3578 t21*t58*t215*t60*t65*t173-1.5115886592E-4*t29*t58*t214*t65*
3579 t173+3.75805495296E-6*t21*t58*t215*t66*t63*t173+4.7682035712E-6*
3580 t29*t58*t214*t60*t63*t173-1.939219070976E-8*t21*t58*t215*t64*
3581 t138*t173-5.395268763648E-8*t29*t58*t214*t66*t138*t173+3.69050812416E-11*
3582 t21*t58*t215*t61*t295*t173+2.652312895488E-10*t29*t58*t214*
3583 t64*t295*t173-4.831210635264E-13*t29*t58*t214*t61*t479*t173;
3584 t508 = pow(grada,
3585 13.0);
3586 t509 = 1/pow(rhoa,20.66666666666667);
3587 t510 = 0.334552142222222*grada*t32*t215+0.68093152*t196*
3588 t30*t214-7.19528041528889*t195*t27*t213+8.705466944853335*
3589 t194*t24*t212-3.823753270613334*t192*t43*t211+0.711094818133334*
3590 t302*t209*t210-0.04763942912*t508*t361*t509;
3591 t511 = -0.040717326222222*grada*t40*t215+0.011151840995556*
3592 t196*t39*t214-3.44361228288E-4*t195*t38*t213+4.266393491683556E-6*
3593 t194*t37*t212-2.5835557938062223E-8*t192*t56*t211+7.61809207296E-11*
3594 t302*t223*t210-8.75001719466667E-14*t508*t376*t509;
3595 t512 = 0.21724032*grada*t215*t68-0.01179318272*grada*
3596 t215*t60*t67-0.01607313024*t196*t214*t67+1.6242631680000002E-4*
3597 grada*t215*t66*t65+5.7236419584E-4*t196*t214*t60*t65+1.1336914944E-4*
3598 t195*t213*t65-9.044695756799999E-7*grada*t215*t64*t63-6.918237527040001E-6*
3599 t196*t214*t66*t63-3.5761526784E-6*t195*t213*t60*t63+1.84525406208E-9*
3600 grada*t215*t61*t138+3.569926017024E-8*t196*t214*t64*t138+4.046451572736E-8*
3601 t195*t213*t66*t138-6.79388995584E-11*t196*t214*t61*t295-1.989234671616E-10*
3602 t195*t213*t64*t295+3.623407976448E-13*t195*t213*t61*t479;
3603 t513 = -
3604 0.00654831232*t21*gradb*t215*t67*t59+2.3318541312000003E-4*
3605 t21*gradb*t215*t60*t65*t59+1.1336914944E-4*t29*gradb*t214*
3606 t65*t59-2.81854121472E-6*t21*gradb*t215*t66*t63*t59-3.5761526784E-6*
3607 t29*gradb*t214*t60*t63*t59+1.454414303232E-8*t21*gradb*t215*
3608 t64*t138*t59+4.046451572736E-8*t29*gradb*t214*t66*t138*t59-
3609 2.767881093120001E-11*t21*gradb*t215*t61*t295*t59-1.989234671616E-10*
3610 t29*gradb*t214*t64*t295*t59+3.623407976448E-13*t29*gradb*t214*
3611 t61*t479*t59;
3612 t514 = -8.0*t121*t82*t84+8.0*t118*t82*t84+1.777777777777778*
3613 t184*t258*t263*t82-1.777777777777778*t183*t257*t258*t82-0.296296296296296*
3614 t120*t329*t441-0.296296296296296*t117*t327*t436+0.444444444444444*
3615 t120*t263*t330+0.444444444444444*t117*t257*t328-2.666666666666667*
3616 t121*t258+2.666666666666667*t118*t258;
3617 t515 = t497+t455+t453+80.0*t127*t273;
3618 t516 = -24.0*t185*t275*t81*t84*t99;
3619 t517 = t70*(-80.0*t127*t273*t81*t90*t99+4.0*t127*t331*
3620 t81*t84*t99-8.0*t127*t297*t81*t84*t99+12.0*t122*t275*t81*t84*
3621 t99-4.0*t125*t331*t81*t83*t99+40.0*t185*t273*t81*t83*t99+20.0*
3622 t122*t273*t81*t83*t99+32.0*t122*t125*t127*t81*t99+t81*t83*
3623 t84*t514*t99+0.019751789702565*t81*t515*t86*t90*t93-7.324622014701263E-4*
3624 t81*t1*t2*t3*t103*t336*t90*t93+0.001953232537254*t81*t1*t2*
3625 t3*t240*t187*t90*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*
3626 t128*t90*t93+0.019751789702565*t81*t85*t86*t514*t93+0.019751789702565*
3627 t81*t128*t86*t331*t93-7.324622014701263E-4*t81*t1*t2*t3*t103*
3628 t85*t331*t93+0.03950357940513*t81*t187*t86*t297*t93+0.03950357940513*
3629 t81*t298*t86*t185*t93+0.001953232537254*t81*t1*t2*t3*t240*
3630 t85*t185*t93-0.00146492440294*t81*t1*t2*t3*t103*t187*t185*
3631 t93+0.019751789702565*t81*t336*t86*t122*t93+9.76616268626835E-4*
3632 t81*t1*t2*t3*t240*t85*t122*t93-4.0*t127*t284*t81*t84*t90+32.0*
3633 t125*t127*t133*t81*t90+2.0*t185*t284*t81*t83*t84-8.0*t122*
3634 t127*t133*t81*t84-16.0*t125*t133*t185*t81*t83-8.0*t122*t125*
3635 t133*t81*t83+t516+t504+t502+t501+t500+t496+t495+t494+t490+
3636 t489+t488+t487+t486+t477+t475+t469+t466+t464+t451+t434+t432+
3637 t430+t428+t426+t425+t424+t419+t418+t417+t414+t410+t404+t403+
3638 t402+t401+t400+t399+t398+t397+t395+t81*t83*t84*t122*t284-34.63151179875173*
3639 t81*t187*t244*t86*t245*t90*t246-17.31575589937587*t81*t128*
3640 t244*t86*t245*t90*t246-34.63151179875173*t81*t85*t244*t86*
3641 t245*t185*t246-17.31575589937587*t81*t85*t244*t86*t245*t122*
3642 t246+t81*t83*t84*t331*t133+2.339289358982082*t81*t187*t244*
3643 t86*t249*t90*t111+1.169644679491041*t81*t128*t244*t86*t249*
3644 t90*t111-1.169644679491041*t81*t187*t252*t86*t110*t90*t111-
3645 0.58482233974552*t81*t128*t252*t86*t110*t90*t111-0.58482233974552*
3646 t81*t336*t109*t86*t110*t90*t111+0.086748647062252*t81*t1*t2*
3647 t3*t103*t187*t109*t110*t90*t111+0.043374323531126*t81*t1*t2*
3648 t3*t103*t128*t109*t110*t90*t111-0.58482233974552*t81*t85*t109*
3649 t86*t110*t331*t111+2.339289358982082*t81*t85*t244*t86*t249*
3650 t185*t111-1.169644679491041*t81*t85*t252*t86*t110*t185*t111-
3651 1.169644679491041*t81*t187*t109*t86*t110*t185*t111+0.086748647062252*
3652 t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+1.169644679491041*
3653 t81*t85*t244*t86*t249*t122*t111-0.58482233974552*t81*t85*t252*
3654 t86*t110*t122*t111+0.043374323531126*t81*t1*t2*t3*t103*t85*
3655 t109*t110*t122*t111)-8.0*t122*t127*t81*t84*t99-16.0*t125*t185*
3656 t81*t83*t99-0.002929848805881*t81*t1*t2*t3*t103*t187*t90*t93-
3657 0.002929848805881*t81*t1*t2*t3*t103*t85*t185*t93+4.0*t133*
3658 t185*t81*t83*t84+t485+t484+t483+t482+t481+t390+t389+t388+t387+
3659 t386+t385+t384+t383+t382+t381+t380+t379+t378+t342+t340+t339+
3660 t337+t334+t332+t299+t290+t286+t271+t269+t254+t248-2.339289358982082*
3661 t81*t187*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
3662 t109*t86*t110*t185*t111;
3663 t518 = 0.008731083093333*t21*t58*t48*t67*t315-3.1091388416E-4*
3664 t21*t58*t48*t60*t65*t315+3.75805495296E-6*t21*t58*t48*t66*
3665 t63*t315-1.939219070976E-8*t21*t58*t48*t64*t138*t315+3.69050812416E-11*
3666 t21*t58*t48*t61*t295*t315-1.5115886592E-4*t21*t156*t48*t65*
3667 t314+4.7682035712E-6*t21*t156*t48*t60*t63*t314-5.395268763648E-8*
3668 t21*t156*t48*t66*t138*t314+2.652312895488E-10*t21*t156*t48*
3669 t64*t295*t314-4.831210635264E-13*t21*t156*t48*t61*t479*t314;
3670 t519 = -
3671 0.00476240896*grada*t58*t48*t67*t173+1.6958939136E-4*grada*
3672 t58*t48*t60*t65*t173+1.1336914944E-4*t196*t58*t47*t65*t173-
3673 2.04984815616E-6*grada*t58*t48*t66*t63*t173-3.5761526784E-6*
3674 t196*t58*t47*t60*t63*t173+1.057755856896E-8*grada*t58*t48*
3675 t64*t138*t173+4.046451572736E-8*t196*t58*t47*t66*t138*t173-
3676 2.01300443136E-11*grada*t58*t48*t61*t295*t173-1.989234671616E-10*
3677 t196*t58*t47*t64*t295*t173+3.623407976448E-13*t196*t58*t47*
3678 t61*t479*t173;
3679 t520 = -0.00476240896*t21*gradb*t48*t67*t173+1.6958939136E-4*
3680 t21*gradb*t48*t60*t65*t173-2.04984815616E-6*t21*gradb*t48*
3681 t66*t63*t173+1.057755856896E-8*t21*gradb*t48*t64*t138*t173-
3682 2.01300443136E-11*t21*gradb*t48*t61*t295*t173+1.1336914944E-4*
3683 t21*t204*t48*t65*t172-3.5761526784E-6*t21*t204*t48*t60*t63*
3684 t172+4.046451572736E-8*t21*t204*t48*t66*t138*t172-1.989234671616E-10*
3685 t21*t204*t48*t64*t295*t172+3.623407976448E-13*t21*t204*t48*
3686 t61*t479*t172;
3687 t521 = 1/pow(rhoa,19.66666666666667);
3688 t522 = -0.091241493333333*t32*t48-0.309100394666667*t21*
3689 t30*t47+4.021271133866668*t29*t27*t46-5.41187753984*t26*t24*
3690 t45+2.56724566016*t20*t43*t44-0.5072683008*t42*t209*t303+0.03572957184*
3691 t208*t361*t521;
3692 t523 = 0.011104725333333*t40*t48-0.005315180714667*t21*
3693 t39*t47+1.9853834171733336E-4*t29*t38*t46-2.723674027349334E-6*
3694 t26*t37*t45+1.7639617768106667E-8*t20*t56*t44-5.47431077205333E-11*
3695 t42*t223*t303+6.562512896E-14*t208*t376*t521;
3696 t524 = -0.05924736*t48*t68+0.00321632256*t48*t60*t67+
3697 0.0089295168*t21*t47*t67-4.42980864E-5*t48*t66*t65-3.179801088E-4*
3698 t21*t47*t60*t65-8.502686208E-5*t29*t46*t65+2.4667352064E-7*
3699 t48*t64*t63+3.8434652928E-6*t21*t47*t66*t63+2.6821145088E-6*
3700 t29*t46*t60*t63-5.0325110784E-10*t48*t61*t138-1.98329223168E-8*
3701 t21*t47*t64*t138-3.034838679552E-8*t29*t46*t66*t138+3.7743833088E-11*
3702 t21*t47*t61*t295+1.491926003712E-10*t29*t46*t64*t295-2.717555982336E-13*
3703 t29*t46*t61*t479;
3704 t525 = 0.00357180672*grada*gradb*t48*t67*t59-1.2719204352E-4*
3705 grada*gradb*t48*t60*t65*t59-8.502686208E-5*t196*gradb*t47*
3706 t65*t59+1.53738611712E-6*grada*gradb*t48*t66*t63*t59+2.6821145088E-6*
3707 t196*gradb*t47*t60*t63*t59-7.93316892672E-9*grada*gradb*t48*
3708 t64*t138*t59-3.034838679552E-8*t196*gradb*t47*t66*t138*t59+
3709 1.50975332352E-11*grada*gradb*t48*t61*t295*t59+1.491926003712E-10*
3710 t196*gradb*t47*t64*t295*t59-2.717555982336E-13*t196*gradb*
3711 t47*t61*t479*t59;
3712 t526 = 0.00178590336*t21*t48*t67*t59-6.359602176E-5*t21*
3713 t48*t60*t65*t59+7.6869305856E-7*t21*t48*t66*t63*t59-3.96658446336E-9*
3714 t21*t48*t64*t138*t59+7.5487666176E-12*t21*t48*t61*t295*t59-
3715 8.502686208E-5*t21*t58*t48*t65*t158+2.6821145088E-6*t21*t58*
3716 t48*t60*t63*t158-3.034838679552E-8*t21*t58*t48*t66*t138*t158+
3717 1.491926003712E-10*t21*t58*t48*t64*t295*t158-2.717555982336E-13*
3718 t21*t58*t48*t61*t479*t158;
3719 t527 = pow(gradb,14.0);
3720 t528 = 1/pow(t150,7.0);
3721 t529 = 1/pow(rhob,21.66666666666667);
3722 t530 = 1/pow(rhob,19.0);
3723 t531 = 1/pow(rhob,16.33333333333333);
3724 t532 = 1/pow(rhob,13.66666666666667);
3725 t533 = 1/pow(rhob,11.0);
3726 t534 = 1/pow(rhob,8.333333333333334);
3727 t535 = 1/pow(rhob,5.666666666666667);
3728 t536 = -0.780621665185185*t58*t159*t535-1.281829667555556*
3729 t156*t157*t534+11.94227789558519*t153*t154*t533-13.43137039473778*
3730 t149*t151*t532+5.571235366684446*t167*t168*t531-0.987825948444445*
3731 t308*t309*t530+0.063519238826667*t527*t528*t529;
3732 t537 = 1/pow(t145,3.0);
3733 t538 = pow(t179,3.0);
3734 t539 = 1/pow(t144,6.0);
3735 t540 = 1/pow(t144,5.0);
3736 t541 = 1/pow(rhob,3.333333333333333);
3737 t542 = -5.948240277777777*t14*t15*t16/pow(rhob,3.166666666666667)-
3738 3.1558125*t8*t9/pow(t141,7.0)-6.427244444444445*t1*t2*t3*t541-
3739 1.852355555555556*t4*t5*t6*t173;
3740 t543 = 1/pow(t161,7.0);
3741 t544 = 0.095007094518519*t58*t165*t535-0.020363607172741*
3742 t156*t164*t534+5.592834182257778E-4*t153*t163*t533-6.454717686973631E-6*
3743 t149*t162*t532+3.716270447122964E-8*t167*t181*t531-1.052204014705778E-10*
3744 t308*t323*t530+1.166668959288889E-13*t527*t543*t529;
3745 t545 = -51.9472676981276*t81*t85*t244*t86*t245*t185*t246;
3746 t546 = -
3747 51.9472676981276*t81*t187*t244*t86*t245*t90*t246;
3748 t547 = 3.508934038473122*t81*t85*t244*t86*t249*t185*t111;
3749 t548 = 0.130122970593378*
3750 t81*t1*t2*t3*t103*t85*t109*t110*t185*t111;
3751 t549 = -1.754467019236561*t81*t85*t252*t86*t110*t185*
3752 t111;
3753 t550 = 3.508934038473122*t81*t187*t244*t86*t249*t90*t111;
3754 t551 = 0.130122970593378*
3755 t81*t1*t2*t3*t103*t187*t109*t110*t90*t111;
3756 t552 = -1.754467019236561*t81*t187*t252*t86*t110*t90*
3757 t111;
3758 t553 = pow(t183,3.0);
3759 t554 = t443+t437;
3760 t555 = pow(t184,3.0);
3761 t556 = t438+t442;
3762 t557 = 1.333333333333333*t121*t556-0.296296296296296*
3763 t441*t555+1.333333333333333*t118*t554-0.296296296296296*t436*
3764 t553+1.333333333333333*t184*t263*t330+1.333333333333333*t183*
3765 t257*t328;
3766 t558 = 0.019751789702565*t81*t85*t86*t557*t93;
3767 t559 = 0.059255369107696*t81*t187*t86*t331*t93;
3768 t560 = 0.002929848805881*t81*t1*t2*t3*t240*t85*t185*t93;
3769 t561 = 0.059255369107696*
3770 t81*t336*t86*t185*t93;
3771 t562 = 0.002929848805881*t81*t1*t2*t3*t240*t187*t90*t93;
3772 t563 = t498+
3773 t454+t453+240.0*t127*t273;
3774 t564 = 0.019751789702565*t81*t563*t86*t90*t93;
3775 t565 = 3.0*t185*t284*t81*t83*t84;
3776 t566 = -24.0*t125*t133*t185*t81*t83;
3777 t567 = -24.0*t127*t133*t185*t81*t84;
3778 t568 = t81*t83*t84*t557*t99;
3779 t569 = 60.0*t185*t273*t81*t83*t99;
3780 t570 = 96.0*t125*t127*t185*t81*t99;
3781 t571 = 36.0*t185*t275*t81*t84*t99;
3782 t572 = 192.9880990672242*t317*t538*t147*t540*rhob-2069.133687865597*
3783 t537*t538*t147*t539*rhob+6.0*t175*t322*t179*t147*t320*rhob-
3784 6.0*t175*t538*t147*t319*rhob-96.4940495336121*t317*t322*t179*
3785 t147*t319*rhob-1.0*t175*t542*t147*t180*rhob+t70*(-240.0*t127*
3786 t273*t81*t90*t99-12.0*t127*t331*t81*t84*t99-12.0*t125*t331*
3787 t81*t83*t99-0.00219738660441*t81*t1*t2*t3*t103*t336*t90*t93-
3788 0.00219738660441*t81*t1*t2*t3*t103*t85*t331*t93-0.004394773208821*
3789 t81*t1*t2*t3*t103*t187*t185*t93-12.0*t127*t284*t81*t84*t90+
3790 96.0*t125*t127*t133*t81*t90+3.0*t133*t331*t81*t83*t84+t571+
3791 t570+t569+t568+t567+t566+t565+t564+t562+t561+t560+t559+t558+
3792 t552+t551+t550+t549+t548+t547+t546+t545+t505+t476+t475+t470+
3793 t469+t466+t464+t451+t434+t432+t430+t428+t426+t425+t424+t419+
3794 t418+t417+t414+t410+t404+t403+t402+t401+t400+t399+t398+t397+
3795 t395-1.754467019236561*t81*t336*t109*t86*t110*t90*t111-1.754467019236561*
3796 t81*t85*t109*t86*t110*t331*t111-3.508934038473122*t81*t187*
3797 t109*t86*t110*t185*t111)+96.0*t125*t127*t81*t90*t99+3.0*t331*
3798 t81*t83*t84*t99-24.0*t127*t185*t81*t84*t99-24.0*t125*t185*
3799 t81*t83*t99+0.059255369107696*t81*t336*t86*t90*t93-0.004394773208821*
3800 t81*t1*t2*t3*t103*t187*t90*t93+0.059255369107696*t81*t85*t86*
3801 t331*t93+0.118510738215391*t81*t187*t86*t185*t93-0.004394773208821*
3802 t81*t1*t2*t3*t103*t85*t185*t93-24.0*t127*t133*t81*t84*t90+
3803 6.0*t133*t185*t81*t83*t84+t391+t390+t389+t388+t387+t386+t385+
3804 t384+t383+t382+t381+t380+t379+t378+0.001892851318519*t1*t2*
3805 t3*t146*t321+6.0*t175*t318*t147*t320-96.4940495336121*t317*
3806 t318*t147*t319-3.0*t175*t322*t147*t180+0.136986666666667*t1*
3807 t2*t3*t175*t179*t180*t178-0.41096*t1*t2*t3*t175*t318*t320*
3808 t143+6.60919909938887*t1*t2*t3*t317*t318*t319*t143+0.20548*
3809 t1*t2*t3*t175*t322*t180*t143-3.508934038473122*t81*t187*t109*
3810 t86*t110*t90*t111-3.508934038473122*t81*t85*t109*t86*t110*
3811 t185*t111;
3812 t573 = -0.50689408*t58*t68*t535+0.027517426346667*t58*
3813 t60*t67*t535-3.789947392E-4*t58*t66*t65*t535+2.11042900992E-6*
3814 t58*t64*t63*t535-4.305592811520001E-9*t58*t61*t138*t535+0.02619324928*
3815 t156*t67*t534-9.327416524800001E-4*t156*t60*t65*t534+1.1274164858879998E-5*
3816 t156*t66*t63*t534-5.817657212927999E-8*t156*t64*t138*t534+
3817 1.107152437248E-10*t156*t61*t295*t534-1.5115886592E-4*t153*
3818 t65*t533+4.7682035712E-6*t153*t60*t63*t533-5.395268763648E-8*
3819 t153*t66*t138*t533+2.652312895488E-10*t153*t64*t295*t533-4.831210635264E-13*
3820 t153*t61*t479*t533;
3821 t574 = -0.00654831232*grada*t58*t22*t67*t315+2.3318541312000003E-4*
3822 grada*t58*t22*t60*t65*t315-2.81854121472E-6*grada*t58*t22*
3823 t66*t63*t315+1.454414303232E-8*grada*t58*t22*t64*t138*t315-
3824 2.767881093120001E-11*grada*t58*t22*t61*t295*t315+1.1336914944E-4*
3825 grada*t156*t22*t65*t314-3.5761526784E-6*grada*t156*t22*t60*
3826 t63*t314+4.046451572736E-8*grada*t156*t22*t66*t138*t314-1.989234671616E-10*
3827 grada*t156*t22*t64*t295*t314+3.623407976448E-13*grada*t156*
3828 t22*t61*t479*t314;
3829 t575 = pow(gradb,13.0);
3830 t576 = 1/pow(rhob,20.66666666666667);
3831 t577 = 0.334552142222222*gradb*t159*t315+0.68093152*t204*
3832 t157*t314-7.19528041528889*t203*t154*t313+8.705466944853335*
3833 t202*t151*t312-3.823753270613334*t200*t168*t311+0.711094818133334*
3834 t346*t309*t310-0.04763942912*t575*t528*t576;
3835 t578 = -0.040717326222222*gradb*t165*t315+0.011151840995556*
3836 t204*t164*t314-3.44361228288E-4*t203*t163*t313+4.266393491683556E-6*
3837 t202*t162*t312-2.5835557938062223E-8*t200*t181*t311+7.61809207296E-11*
3838 t346*t323*t310-8.75001719466667E-14*t575*t543*t576;
3839 t579 = 0.21724032*gradb*t68*t315-0.01179318272*gradb*
3840 t60*t67*t315+1.6242631680000002E-4*gradb*t66*t65*t315-9.044695756799999E-7*
3841 gradb*t64*t63*t315+1.84525406208E-9*gradb*t61*t138*t315-0.01607313024*
3842 t204*t67*t314+5.7236419584E-4*t204*t60*t65*t314-6.918237527040001E-6*
3843 t204*t66*t63*t314+3.569926017024E-8*t204*t64*t138*t314-6.79388995584E-11*
3844 t204*t61*t295*t314+1.1336914944E-4*t203*t65*t313-3.5761526784E-6*
3845 t203*t60*t63*t313+4.046451572736E-8*t203*t66*t138*t313-1.989234671616E-10*
3846 t203*t64*t295*t313+3.623407976448E-13*t203*t61*t479*t313;
3847 t580 = 0.00178590336*
3848 t58*t22*t67*t173-6.359602176E-5*t58*t22*t60*t65*t173-8.502686208E-5*
3849 t21*t58*t31*t65*t173+7.6869305856E-7*t58*t22*t66*t63*t173+
3850 2.6821145088E-6*t21*t58*t31*t60*t63*t173-3.96658446336E-9*
3851 t58*t22*t64*t138*t173-3.034838679552E-8*t21*t58*t31*t66*t138*
3852 t173+7.5487666176E-12*t58*t22*t61*t295*t173+1.491926003712E-10*
3853 t21*t58*t31*t64*t295*t173-2.717555982336E-13*t21*t58*t31*t61*
3854 t479*t173;
3855 t581 = 0.00357180672*grada*gradb*t22*t67*t173-1.2719204352E-4*
3856 grada*gradb*t22*t60*t65*t173+1.53738611712E-6*grada*gradb*
3857 t22*t66*t63*t173-7.93316892672E-9*grada*gradb*t22*t64*t138*
3858 t173+1.50975332352E-11*grada*gradb*t22*t61*t295*t173-8.502686208E-5*
3859 grada*t204*t22*t65*t172+2.6821145088E-6*grada*t204*t22*t60*
3860 t63*t172-3.034838679552E-8*grada*t204*t22*t66*t138*t172+1.491926003712E-10*
3861 grada*t204*t22*t64*t295*t172-2.717555982336E-13*grada*t204*
3862 t22*t61*t479*t172;
3863 t582 = 1/pow(rhob,19.66666666666667);
3864 t583 = -0.091241493333333*t159*t173-0.309100394666667*
3865 t58*t157*t172+4.021271133866668*t156*t154*t171-5.41187753984*
3866 t153*t151*t170+2.56724566016*t149*t168*t169-0.5072683008*t167*
3867 t309*t347+0.03572957184*t308*t528*t582;
3868 t584 = 0.011104725333333*t165*t173-0.005315180714667*
3869 t58*t164*t172+1.9853834171733336E-4*t156*t163*t171-2.723674027349334E-6*
3870 t153*t162*t170+1.7639617768106667E-8*t149*t181*t169-5.47431077205333E-11*
3871 t167*t323*t347+6.562512896E-14*t308*t543*t582;
3872 t585 = -0.05924736*t68*t173+0.00321632256*t60*t67*t173-
3873 4.42980864E-5*t66*t65*t173+2.4667352064E-7*t64*t63*t173-5.0325110784E-10*
3874 t61*t138*t173+0.0089295168*t58*t67*t172-3.179801088E-4*t58*
3875 t60*t65*t172+3.8434652928E-6*t58*t66*t63*t172-1.98329223168E-8*
3876 t58*t64*t138*t172+3.7743833088E-11*t58*t61*t295*t172-8.502686208E-5*
3877 t156*t65*t171+2.6821145088E-6*t156*t60*t63*t171-3.034838679552E-8*
3878 t156*t66*t138*t171+1.491926003712E-10*t156*t64*t295*t171-2.717555982336E-13*
3879 t156*t61*t479*t171;
3880 t586 = 1/pow(rhoa,18.66666666666667);
3881 t587 = 0.109069536*grada*t30*t31-2.0270030016*t196*t27*
3882 t28+3.192523668480002*t195*t24*t25-1.678968913920001*t194*
3883 t43*t193+0.3581202432*t192*t209*t351-0.02679717888*t302*t361*
3884 t586;
3885 t588 = 0.002009849856*grada*t39*t31-1.0453993267200001E-4*
3886 t196*t38*t28+1.6651581112320001E-6*t195*t37*t25-1.179208237056E-8*
3887 t194*t56*t193+3.90065455104E-11*t192*t223*t351-4.921884672E-14*
3888 t302*t376*t586;
3889 t589 = -0.00401828256*grada*t31*t67+1.4309104896E-4*grada*
3890 t31*t60*t65+6.377014656E-5*t196*t28*t65-1.7295593817600002E-6*
3891 grada*t31*t66*t63-2.0115858816E-6*t196*t28*t60*t63+8.92481504256E-9*
3892 grada*t31*t64*t138+2.276129009664E-8*t196*t28*t66*t138-1.69847248896E-11*
3893 grada*t31*t61*t295-1.118944502784E-10*t196*t28*t64*t295+2.038166986752E-13*
3894 t196*t28*t61*t479;
3895 t590 = -0.00133942752*gradb*t22*t67*t59+4.769701632E-5*
3896 gradb*t22*t60*t65*t59+6.377014656E-5*t21*gradb*t31*t65*t59-
3897 5.7651979392E-7*gradb*t22*t66*t63*t59-2.0115858816E-6*t21*
3898 gradb*t31*t60*t63*t59+2.97493834752E-9*gradb*t22*t64*t138*
3899 t59+2.276129009664E-8*t21*gradb*t31*t66*t138*t59-5.6615749632E-12*
3900 gradb*t22*t61*t295*t59-1.118944502784E-10*t21*gradb*t31*t64*
3901 t295*t59+2.038166986752E-13*t21*gradb*t31*t61*t479*t59;
3902 t591 = -0.00133942752*grada*t22*t67*t59+4.769701632E-5*
3903 grada*t22*t60*t65*t59-5.7651979392E-7*grada*t22*t66*t63*t59+
3904 2.97493834752E-9*grada*t22*t64*t138*t59-5.6615749632E-12*grada*
3905 t22*t61*t295*t59+6.377014656E-5*grada*t58*t22*t65*t158-2.0115858816E-6*
3906 grada*t58*t22*t60*t63*t158+2.276129009664E-8*grada*t58*t22*
3907 t66*t138*t158-1.118944502784E-10*grada*t58*t22*t64*t295*t158+
3908 2.038166986752E-13*grada*t58*t22*t61*t479*t158;
3909 t592 = 1/pow(rhob,18.66666666666667);
3910 t593 = 0.109069536*gradb*t157*t158-2.0270030016*t204*
3911 t154*t155+3.192523668480002*t203*t151*t152-1.678968913920001*
3912 t202*t168*t201+0.3581202432*t200*t309*t356-0.02679717888*t346*
3913 t528*t592;
3914 t594 = 0.002009849856*gradb*t164*t158-1.0453993267200001E-4*
3915 t204*t163*t155+1.6651581112320001E-6*t203*t162*t152-1.179208237056E-8*
3916 t202*t181*t201+3.90065455104E-11*t200*t323*t356-4.921884672E-14*
3917 t346*t543*t592;
3918 t595 = -0.00401828256*gradb*t67*t158+1.4309104896E-4*
3919 gradb*t60*t65*t158-1.7295593817600002E-6*gradb*t66*t63*t158+
3920 8.92481504256E-9*gradb*t64*t138*t158-1.69847248896E-11*gradb*
3921 t61*t295*t158+6.377014656E-5*t204*t65*t155-2.0115858816E-6*
3922 t204*t60*t63*t155+2.276129009664E-8*t204*t66*t138*t155-1.118944502784E-10*
3923 t204*t64*t295*t155+2.038166986752E-13*t204*t61*t479*t155;
3924 t596 = pow(grada,
3925 16.0);
3926 t597 = 1/pow(t23,8.0);
3927 t598 = 1/pow(rhoa,25.33333333333333);
3928 t599 = 1/pow(rhoa,22.66666666666667);
3929 t600 = 1/pow(rhoa,20.0);
3930 t601 = 1/pow(rhoa,17.33333333333333);
3931 t602 = 1/pow(rhoa,14.66666666666667);
3932 t603 = 1/pow(rhoa,12.0);
3933 t604 = 1/pow(rhoa,9.333333333333334);
3934 t605 = 1/pow(rhoa,6.666666666666667);
3935 t606 = 1/pow(t18,4.0);
3936 t607 = pow(t54,4.0);
3937 t608 = 1/pow(t17,8.0);
3938 t609 = 1/pow(t17,7.0);
3939 t610 = pow(t222,2.0);
3940 t611 = 21.42414814814815*t1*t2*t3/pow(rhoa,4.333333333333333)+
3941 18.83609421296296*t14*t15*t16/pow(rhoa,4.166666666666667)+
3942 11.04534375*t8*t9/pow(t10,9.0)+6.79197037037037*t4*t5*t6*t215;
3943 t612 = 1/
3944 pow(t36,8.0);
3945 t613 = 2069.000588228246*t392*t72*t393*t394;
3946 t614 = -385.9637837316264*t392*t72*t396*t233;
3947 t615 = -13.74674343057476*t1*t2*t3*t103*t231*t232*t233;
3948 t616 = 192.9818918658132*
3949 t242*t105*t72*t232*t233;
3950 t617 = 24.0*t392*t72*t232*t107;
3951 t618 = 1.7096*t1*t2*t3*t103*t231*t235*t107;
3952 t619 = -24.0*t242*t105*t72*t235*t107;
3953 t620 = -0.8548*t1*t2*t3*t103*t242*t106*t107;
3954 t621 = 1.139733333333333*t1*t2*t3*t240*t105*t106*t107;
3955 t622 = 4.0*
3956 t409*t72*t106*t107;
3957 t623 = -4101.558808403119*t81*t85*t411*t86*t412*t90*t413;
3958 t624 = 415.5781415850208*
3959 t81*t85*t411*t86*t416*t90*t246;
3960 t625 = 7.70551137522226*t81*t1*t2*t3*t103*t85*t244*t245*
3961 t90*t246;
3962 t626 = -207.7890707925104*t81*t85*t252*t109*t86*t245*
3963 t90*t246;
3964 t627 = -14.03573615389249*t81*t85*t411*t86*t245*t90*t111;
3965 t628 = -
3966 0.520491882373513*t81*t1*t2*t3*t103*t85*t244*t249*t90*t111;
3967 t629 = 14.03573615389249*
3968 t81*t85*t252*t109*t86*t249*t90*t111;
3969 t630 = 0.260245941186757*t81*t1*t2*t3*t103*t85*t252*t110*
3970 t90*t111;
3971 t631 = -0.346994588249009*t81*t1*t2*t3*t240*t85*t109*
3972 t110*t90*t111;
3973 t632 = -2.339289358982082*t81*t85*t431*t86*t110*t90*t111;
3974 t633 = 0.055121809659259*
3975 t1*t2*t3*t407*t79;
3976 t634 = -0.00911508517385*t81*t1*t2*t3*t407*t85*t90*t93;
3977 t635 = 4.0*
3978 t463*t81*t83*t84*t90;
3979 t636 = -48.0*t125*t284*t81*t83*t90;
3980 t637 = 240.0*t133*t273*t81*t83*t90;
3981 t638 = 144.0*t133*t275*t81*t84*t90;
3982 t639 = -480.0*t452*t81*t83*t90*t99;
3983 t640 = -576.0*t125*t275*t81*t90*t99;
3984 t641 = pow(t105,4.0);
3985 t642 = 1/pow(t77,8.0);
3986 t643 = 1/pow(t78,4.0);
3987 t644 = 24954.97798673546*t641*t72*t642*t643;
3988 t645 = 1/pow(t77,7.0);
3989 t646 = -6207.001764684737*t641*t72*t645*t394;
3990 t647 = -147.3818085681254*t1*t2*t3*t103*t392*t393*t394;
3991 t648 = 3103.500882342369*
3992 t242*t231*t72*t393*t394;
3993 t649 = 578.9456755974396*t641*t72*t393*t233;
3994 t650 = 27.49348686114952*t1*t2*t3*t103*t392*t396*t233;
3995 t651 = -
3996 578.9456755974396*t242*t231*t72*t396*t233;
3997 t652 = -13.74674343057476*t1*t2*t3*t103*t242*t105*t232*
3998 t233;
3999 t653 = 9.164495620383173*t1*t2*t3*t240*t231*t232*t233;
4000 t654 = pow(t242,
4001 2.0);
4002 t655 = 48.2454729664533*t654*t72*t232*t233;
4003 t656 = 64.3272972886044*t409*t105*t72*t232*t233;
4004 t657 = -24.0*t641*t72*t396*t107;
4005 t658 = -1.7096*t1*t2*t3*t103*t392*t232*t107;
4006 t659 = 36.0*t242*t231*t72*t232*t107;
4007 t660 = 1.7096*t1*t2*t3*t103*t242*t105*t235*t107;
4008 t661 = -1.139733333333333*t1*t2*t3*t240*t231*t235*t107;
4009 t662 = -
4010 6.0*t654*t72*t235*t107;
4011 t663 = -8.0*t409*t105*t72*t235*t107;
4012 t664 = -0.284933333333333*t1*t2*t3*t103*t409*t106*t107;
4013 t665 = 0.569866666666667*
4014 t1*t2*t3*t240*t242*t106*t107;
4015 t666 = -0.886459259259259*t1*t2*t3*t407*t105*t106*t107;
4016 t667 = 1/
4017 pow(t70,4.666666666666667);
4018 t668 = 1/pow(t74,9.0);
4019 t669 = 1/pow(t70,4.333333333333333);
4020 t670 = 1/pow(t70,4.166666666666667);
4021 t671 = 10.13346087962963*t14*t15*t16*t670+12.40158024691358*
4022 t1*t2*t3*t669+5.37534375*t8*t9*t668+5.355397530864196*t4*t5*
4023 t6*t667;
4024 t672 = 1.0*t671*t72*t106*t107;
4025 t673 = pow(t109,4.0);
4026 t674 = -91080.98259910994*t673*t81*t85*t86*t90/(pow(t91,
4027 8.0)*pow(t92,4.0));
4028 t675 = 12304.67642520936*t413*t673*t81*t85*t86*t90/pow(t91,
4029 7.0);
4030 t676 = 152.0994724782823*t81*t1*t2*t3*t103*t85*t411*t412*
4031 t90*t413;
4032 t677 = -6152.338212604678*t81*t85*t252*t244*t86*t412*
4033 t90*t413;
4034 t678 = -623.3672123775311*t81*t85*t673*t86*t412*t90*t246;
4035 t679 = -
4036 15.41102275044452*t81*t1*t2*t3*t103*t85*t411*t416*t90*t246;
4037 t680 = 623.3672123775311*
4038 t81*t85*t252*t244*t86*t416*t90*t246;
4039 t681 = 7.70551137522226*t81*t1*t2*t3*t103*t85*t252*t109*
4040 t245*t90*t246;
4041 t682 = -5.137007583481506*t81*t1*t2*t3*t240*t85*t244*
4042 t245*t90*t246;
4043 t683 = pow(t252,2.0);
4044 t684 = -51.9472676981276*t81*t85*t683*t86*t245*t90*t246;
4045 t685 = -
4046 69.26302359750346*t81*t85*t431*t109*t86*t245*t90*t246;
4047 t686 = 14.03573615389249*t81*t85*t673*t86*t416*t90*t111;
4048 t687 = 0.520491882373513*
4049 t81*t1*t2*t3*t103*t85*t411*t245*t90*t111;
4050 t688 = -21.05360423083874*t81*t85*t252*t244*t86*t245*
4051 t90*t111;
4052 t689 = -0.520491882373513*t81*t1*t2*t3*t103*t85*t252*
4053 t109*t249*t90*t111;
4054 t690 = 0.346994588249009*t81*t1*t2*t3*t240*t85*t244*t249*
4055 t90*t111;
4056 t691 = 3.508934038473122*t81*t85*t683*t86*t249*t90*t111;
4057 t692 = 4.678578717964164*
4058 t81*t85*t431*t109*t86*t249*t90*t111;
4059 t693 = 0.086748647062252*t81*t1*t2*t3*t103*t85*t431*t110*
4060 t90*t111;
4061 t694 = -0.173497294124504*t81*t1*t2*t3*t240*t85*t252*
4062 t110*t90*t111;
4063 t695 = 0.269884679749229*t81*t1*t2*t3*t407*t85*t109*t110*
4064 t90*t111;
4065 t696 = -0.58482233974552*t81*(13.81732484567901*t14*t15*
4066 t16*t670+12.5242962962963*t1*t2*t3*t669+2.888353125*t8*t9*
4067 t668+5.396355555555555*t4*t5*t6*t667)*t85*t86*t110*t90*t111;
4068 t697 = -
4069 0.045934841382716*t1*t2*t3*t669*t79;
4070 t698 = 1/pow(t88,2.666666666666667);
4071 t699 = -24.0*t125*t82;
4072 t700 = 24.0*t84;
4073 t701 = 1/pow(t89,2.666666666666667);
4074 t702 = 24.0*t125*t82;
4075 t703 = -24.0*t84;
4076 t704 = 1.333333333333333*t121*(t703+t702)+0.493827160493827*
4077 pow(t120,4.0)*t701+1.333333333333333*t118*(t700+t699)+0.493827160493827*
4078 pow(t117,4.0)*t698+1.777777777777778*t120*t263*t444-1.777777777777778*
4079 t262*t266*t441+1.777777777777778*t117*t257*t439-1.777777777777778*
4080 t256*t261*t436+1.333333333333333*t263*pow(t266,2.0)+1.333333333333333*
4081 t257*pow(t261,2.0);
4082 t705 = 0.007595904311542*t81*t1*t2*t3*t669*t85*t90*t93;
4083 t706 = 1/
4084 pow(t70,8.0);
4085 t707 = -840.0*t706*t83;
4086 t708 = -1440.0*t273*t275;
4087 t709 = pow(t130,4.0);
4088 t710 = pow(t283,2.0);
4089 t711 = t81*t83*t84*t90*(-0.022083265382716*t1*t2*t3*t669*
4090 t98+199659.0885685683*t709*t95/(pow(t96,8.0)*pow(t97,4.0))-
4091 24829.60425438716*t460*t709*t95/pow(t96,7.0)-6.0*t132*t282*
4092 t710*t95-24.0*t132*t461*t709*t95-8.0*t130*t132*t282*t462*t95+
4093 36.0*t132*t279*t280*t283*t95+0.045934841382716*t1*t2*t3*t669*
4094 t79-24954.97798673546*t641*t72*t642*t643+12414.80212719358*
4095 t283*t279*t95*t459*t460-566.8874535768302*t1*t2*t3*t103*t458*
4096 t459*t460+6207.001764684737*t641*t72*t645*t394-3103.500882342369*
4097 t242*t231*t72*t393*t394+147.3818085681254*t1*t2*t3*t103*t392*
4098 t393*t394-1157.928594403345*t283*t279*t95*t461*t281+52.87359279511096*
4099 t1*t2*t3*t103*t458*t461*t281+1157.928594403345*t709*t95*t459*
4100 t281+96.4940495336121*t710*t95*t280*t281+128.6587327114828*
4101 t462*t130*t95*t280*t281+17.62453093170365*t1*t2*t3*t240*t279*
4102 t280*t281-26.43679639755548*t1*t2*t3*t103*t283*t130*t280*t281+
4103 578.9456755974396*t242*t231*t72*t396*t233-27.49348686114952*
4104 t1*t2*t3*t103*t392*t396*t233-578.9456755974396*t641*t72*t393*
4105 t233-48.2454729664533*t654*t72*t232*t233-64.3272972886044*
4106 t409*t105*t72*t232*t233-9.164495620383173*t1*t2*t3*t240*t231*
4107 t232*t233+13.74674343057476*t1*t2*t3*t103*t242*t105*t232*t233-
4108 1.095893333333333*t1*t2*t3*t240*t279*t282*t132+1.64384*t1*
4109 t2*t3*t103*t283*t130*t282*t132-1.64384*t1*t2*t3*t103*t458*
4110 t280*t132+(18.83609421296296*t14*t15*t16*t670+21.42414814814815*
4111 t1*t2*t3*t669+11.04534375*t8*t9*t668+6.79197037037037*t4*t5*
4112 t6*t667)*t95*t131*t132-0.273973333333333*t1*t2*t3*t103*t462*
4113 t131*t132+0.547946666666667*t1*t2*t3*t240*t283*t131*t132-0.852361481481481*
4114 t1*t2*t3*t407*t130*t131*t132+24.0*t641*t72*t396*t107+6.0*t654*
4115 t72*t235*t107+8.0*t409*t105*t72*t235*t107+1.139733333333333*
4116 t1*t2*t3*t240*t231*t235*t107-1.7096*t1*t2*t3*t103*t242*t105*
4117 t235*t107-36.0*t242*t231*t72*t232*t107+1.7096*t1*t2*t3*t103*
4118 t392*t232*t107-1.0*t671*t72*t106*t107+0.284933333333333*t1*
4119 t2*t3*t103*t409*t106*t107-0.569866666666667*t1*t2*t3*t240*
4120 t242*t106*t107+0.886459259259259*t1*t2*t3*t407*t105*t106*t107);
4121 t712 = -
4122 16.0*t125*t463*t81*t83*t90;
4123 t713 = 120.0*t273*t284*t81*t83*t90;
4124 t714 = 72.0*t275*t284*t81*t84*t90;
4125 t715 = -480.0*t133*t452*t81*t83*t90;
4126 t716 = -576.0*t125*t133*t275*t81*t90;
4127 t717 = 840.0*t706*t81*t83*t90*t99;
4128 t718 = 1440.0*t273*t275*t81*t90*t99;
4129 t719 = 24.0*t81*t84*t90*t99;
4130 t720 = 1/pow(t62,8.0);
4131 t721 = -3.508934038473122*t81*t85*t109*t86*t110*t297*
4132 t111;
4133 t722 = -3.508934038473122*t81*t128*t109*t86*t110*t185*
4134 t111;
4135 t723 = -3.508934038473122*t81*t187*t109*t86*t110*t122*
4136 t111;
4137 t724 = -3.508934038473122*t81*t298*t109*t86*t110*t90*
4138 t111;
4139 t725 = -0.004394773208821*t81*t1*t2*t3*t103*t85*t297*
4140 t93;
4141 t726 = -0.004394773208821*t81*t1*t2*t3*t103*t128*t185*
4142 t93;
4143 t727 = -0.004394773208821*t81*t1*t2*t3*t103*t187*t122*
4144 t93;
4145 t728 = -0.004394773208821*t81*t1*t2*t3*t103*t298*t90*
4146 t93;
4147 t729 = 6.0*t133*t297*t81*t83*t84;
4148 t730 = -24.0*t125*t297*t81*t83*t99;
4149 t731 = -51.9472676981276*t81*t85*t244*t86*t245*t297*t246;
4150 t732 = -
4151 51.9472676981276*t81*t128*t244*t86*t245*t185*t246;
4152 t733 = -51.9472676981276*t81*t187*t244*t86*t245*t122*
4153 t246;
4154 t734 = -51.9472676981276*t81*t298*t244*t86*t245*t90*t246;
4155 t735 = 3.508934038473122*
4156 t81*t85*t244*t86*t249*t297*t111;
4157 t736 = 0.130122970593378*t81*t1*t2*t3*t103*t85*t109*t110*
4158 t297*t111;
4159 t737 = -1.754467019236561*t81*t85*t252*t86*t110*t297*
4160 t111;
4161 t738 = 3.508934038473122*t81*t128*t244*t86*t249*t185*
4162 t111;
4163 t739 = 0.130122970593378*t81*t1*t2*t3*t103*t128*t109*
4164 t110*t185*t111;
4165 t740 = -1.754467019236561*t81*t128*t252*t86*t110*t185*
4166 t111;
4167 t741 = 3.508934038473122*t81*t187*t244*t86*t249*t122*
4168 t111;
4169 t742 = 0.130122970593378*t81*t1*t2*t3*t103*t187*t109*
4170 t110*t122*t111;
4171 t743 = -1.754467019236561*t81*t187*t252*t86*t110*t122*
4172 t111;
4173 t744 = 3.508934038473122*t81*t298*t244*t86*t249*t90*t111;
4174 t745 = 0.130122970593378*
4175 t81*t1*t2*t3*t103*t298*t109*t110*t90*t111;
4176 t746 = -1.754467019236561*t81*t298*t252*t86*t110*t90*
4177 t111;
4178 t747 = 0.002929848805881*t81*t1*t2*t3*t240*t85*t297*t93;
4179 t748 = 1.333333333333333*
4180 t118*(12.0*t84+t699)+1.333333333333333*t121*(t702-12.0*t84)-
4181 1.777777777777778*t258*t262*t441*t82+1.777777777777778*t256*
4182 t258*t436*t82+2.666666666666667*t258*t263*t266*t82-2.666666666666667*
4183 t257*t258*t261*t82+0.493827160493827*t184*t440*t701+0.493827160493827*
4184 t183*t435*t698+1.333333333333333*t120*t263*t492+1.333333333333333*
4185 t117*t257*t491+0.444444444444444*t184*t263*t444-0.888888888888889*
4186 t120*t184*t266*t441+0.444444444444444*t183*t257*t439-0.888888888888889*
4187 t117*t183*t261*t436;
4188 t749 = 0.002929848805881*t81*t1*t2*t3*t240*t128*t185*
4189 t93;
4190 t750 = 0.002929848805881*t81*t1*t2*t3*t240*t187*t122*
4191 t93;
4192 t751 = 0.002929848805881*t81*t1*t2*t3*t240*t298*t90*t93;
4193 t752 = 3.0*
4194 t284*t297*t81*t83*t84;
4195 t753 = -24.0*t125*t133*t297*t81*t83;
4196 t754 = 60.0*t273*t297*t81*t83*t99;
4197 t755 = 36.0*t275*t297*t81*t84*t99;
4198 t756 = -24.0*t81*t84*t90*t99;
4199 t757 = pow(grada,15.0);
4200 t758 = 1/pow(rhoa,24.33333333333333);
4201 t759 = -32.0*t118*t125*t82;
4202 t760 = 32.0*t121*t125*t82;
4203 t761 = -5.333333333333333*t120*t263*t82*t84+5.333333333333333*
4204 t117*t257*t82*t84-2.37037037037037*t120*t184*t258*t441*t82+
4205 2.37037037037037*t117*t183*t258*t436*t82+t760+t759+0.493827160493827*
4206 t262*t329*t701+0.493827160493827*t256*t327*t698+0.888888888888889*
4207 t184*t263*t492+0.888888888888889*t183*t257*t491-0.296296296296296*
4208 t262*t330*t441-0.296296296296296*t266*t329*t441-0.296296296296296*
4209 t256*t328*t436-0.296296296296296*t261*t327*t436+0.444444444444444*
4210 t263*t266*t330+0.444444444444444*t257*t261*t328+3.555555555555555*
4211 t263*t273*t275+3.555555555555555*t257*t273*t275-1.777777777777778*
4212 t120*t258*t263+1.777777777777778*t117*t257*t258;
4213 t762 = 1/pow(rhoa,23.33333333333333);
4214 t763 = -8.0*t184*t263*t82*t84+8.0*t183*t257*t82*t84+16.0*
4215 t121*t84-16.0*t118*t84-1.777777777777778*t258*t329*t441*t82+
4216 1.777777777777778*t258*t327*t436*t82+2.666666666666667*t258*
4217 t263*t330*t82-2.666666666666667*t257*t258*t328*t82+t760+t759+
4218 0.493827160493827*t120*t555*t701+0.493827160493827*t117*t553*
4219 t698+0.444444444444444*t120*t263*t556+0.444444444444444*t117*
4220 t257*t554-0.888888888888889*t120*t184*t330*t441-0.888888888888889*
4221 t117*t183*t328*t436-2.666666666666667*t184*t258*t263+2.666666666666667*
4222 t183*t257*t258;
4223 t764 = 1/pow(rhoa,22.33333333333333);
4224 t765 = pow(gradb,16.0);
4225 t766 = 1/pow(t150,8.0);
4226 t767 = 1/pow(rhob,25.33333333333333);
4227 t768 = 1/pow(rhob,22.66666666666667);
4228 t769 = 1/pow(rhob,20.0);
4229 t770 = 1/pow(rhob,17.33333333333333);
4230 t771 = 1/pow(rhob,14.66666666666667);
4231 t772 = 1/pow(rhob,12.0);
4232 t773 = 1/pow(rhob,9.333333333333334);
4233 t774 = 1/pow(rhob,6.666666666666667);
4234 t775 = 1/pow(t145,4.0);
4235 t776 = pow(t179,4.0);
4236 t777 = 1/pow(t144,8.0);
4237 t778 = 1/pow(t144,7.0);
4238 t779 = pow(t322,2.0);
4239 t780 = 21.42414814814815*t1*t2*t3/pow(rhob,4.333333333333333)+
4240 18.83609421296296*t14*t15*t16/pow(rhob,4.166666666666667)+
4241 11.04534375*t8*t9/pow(t141,9.0)+6.79197037037037*t4*t5*t6*
4242 t315;
4243 t781 = 1/pow(t161,8.0);
4244 t782 = 1.333333333333333*t118*(t703+t699)+0.493827160493827*
4245 pow(t184,4.0)*t701+1.333333333333333*t121*(t700+t702)+0.493827160493827*
4246 pow(t183,4.0)*t698+1.777777777777778*t184*t263*t556+1.777777777777778*
4247 t183*t257*t554-1.777777777777778*t329*t330*t441-1.777777777777778*
4248 t327*t328*t436+1.333333333333333*t263*pow(t330,2.0)+1.333333333333333*
4249 t257*pow(t328,2.0);
4250 t783 = pow(gradb,15.0);
4251 t784 = 1/pow(rhob,24.33333333333333);
4252 t785 = 1/pow(rhob,23.33333333333333);
4253 t786 = 1/pow(rhob,22.33333333333333);
4254 t787 = 1/pow(rhoa,21.33333333333333);
4255 t788 = 1/pow(rhob,21.33333333333333);
4256
4257 /* code */
4258 dfdra = t50*t33*t54*t34*t55*rhoa-0.03109*t19*t49*t34*
4259 rhoa-0.75*t3*t35*t52*t57-1.0*t11*t3*t35*t41-0.03109*t19*t33*
4260 t34+t139*t148+t69*t137+0.002129457733333*t1*t2*t3*t19*t33*
4261 t12;
4262 dfdrb = t175*t160*t179*t147*t180*rhob-0.03109*t146*t174*
4263 t147*rhob-0.75*t177*t182*t3*t35-1.0*t142*t166*t3*t35+t69*t190+
4264 t191*t148-0.03109*t146*t160*t147+0.002129457733333*t1*t2*t3*
4265 t146*t160*t143;
4266 dfdga = -0.03109*t19*t197*t34*rhoa-0.75*t198*t3*t35*t52+
4267 t199*t148;
4268 dfdgb = -0.03109*t146*t205*t147*rhob-0.75*t177*t206*t3*
4269 t35+t207*t148;
4270 dfdgab = 0.0;
4271 d2fdrara = 2.0*t34*t49*t50*t54*t55*rhoa+t50*t33*t222*
4272 t34*t55*rhoa-2.0*t218*t220*t33*t34*t50*rhoa-0.03109*t19*t216*
4273 t34*rhoa+32.1646831778707*t217*t33*t218*t34*t219*rhoa-0.333333333333333*
4274 t3*t35*t41*t7-2.0*t11*t3*t35*t57+2.0*t33*t34*t50*t54*t55+0.001419638488889*
4275 t1*t2*t3*t19*t33*t53-0.75*t224*t3*t35*t52-0.06218*t19*t49*
4276 t34+t69*t294+t296*t148+2.0*t137*t139-0.136986666666667*t1*
4277 t2*t3*t50*t33*t54*t55*t12+0.004258915466667*t1*t2*t3*t19*t49*
4278 t12;
4279 d2fdrarb = t301*t148+t191*t137+t139*t190+t69*t300;
4280 d2fdraga = t50*t197*t54*t34*t55*rhoa-0.03109*t19*t304*
4281 t34*rhoa-0.75*t3*t305*t35*t52-1.0*t11*t198*t3*t35-0.03109*
4282 t19*t197*t34+t306*t148+t199*t137+0.002129457733333*t1*t2*t3*
4283 t19*t197*t12;
4284 d2fdragb = t307*t148+t207*t137;
4285 d2fdraab = 0.0;
4286 d2fdrbrb = -2.0*t147*t160*t175*t318*t320*rhob+32.1646831778707*
4287 t317*t160*t318*t147*t319*rhob+2.0*t147*t174*t175*t179*t180*
4288 rhob+t175*t160*t322*t147*t180*rhob-0.03109*t146*t316*t147*
4289 rhob-0.75*t177*t3*t324*t35-2.0*t142*t182*t3*t35-0.333333333333333*
4290 t140*t166*t3*t35+t69*t343+2.0*t190*t191+2.0*t147*t160*t175*
4291 t179*t180+0.001419638488889*t1*t2*t3*t146*t160*t178+t344*t148-
4292 0.06218*t146*t174*t147-0.136986666666667*t1*t2*t3*t175*t160*
4293 t179*t180*t143+0.004258915466667*t1*t2*t3*t146*t174*t143;
4294 d2fdrbga = t345*
4295 t148+t199*t190;
4296 d2fdrbgb = t175*t205*t179*t147*t180*rhob-0.03109*t146*
4297 t348*t147*rhob-0.75*t177*t3*t349*t35-1.0*t142*t206*t3*t35+
4298 t207*t190+t350*t148-0.03109*t146*t205*t147+0.002129457733333*
4299 t1*t2*t3*t146*t205*t143;
4300 d2fdrbgab = 0.0;
4301 d2fdgaga = -0.03109*t19*t352*t34*rhoa-0.75*t3*t35*t353*
4302 t52+t354*t148;
4303 d2fdgagb = t355*t148;
4304 d2fdgagab = 0.0;
4305 d2fdgbgb = -0.03109*t146*t357*t147*rhob-0.75*t177*t3*
4306 t35*t358+t359*t148;
4307 d2fdgbgab = 0.0;
4308 d2fdgabgab = 0.0;
4309 d3fdrarara = 3.0*t216*t34*t50*t54*t55*rhoa+3.0*t222*t34*
4310 t49*t50*t55*rhoa+t50*t375*t33*t34*t55*rhoa-6.0*t220*t222*t33*
4311 t34*t50*t54*rhoa-6.0*t218*t220*t34*t49*t50*rhoa+6.0*t219*t33*
4312 t34*t371*t50*rhoa-192.9880990672242*t217*t33*t371*t34*t373*
4313 rhoa+2069.133687865597*t370*t33*t371*t34*t372*rhoa-0.03109*
4314 t19*t369*t34*rhoa+96.4940495336121*t217*t33*t222*t54*t34*t219*
4315 rhoa+96.4940495336121*t217*t49*t218*t34*t219*rhoa-1.0*t3*t35*
4316 t57*t7+3.0*t222*t33*t34*t50*t55+6.0*t50*t49*t54*t34*t55-0.136986666666667*
4317 t1*t2*t3*t50*t33*t54*t55*t53+0.004258915466667*t1*t2*t3*t19*
4318 t49*t53-0.75*t3*t35*t377*t52+0.222222222222222*t3*t35*t41*
4319 t51-6.0*t218*t220*t33*t34*t50+t69*t478-3.0*t11*t224*t3*t35-
4320 0.09327*t19*t216*t34+3.0*t137*t296+3.0*t139*t294-0.001892851318519*
4321 t1*t2*t3*t19*t33*t221+96.4940495336121*t217*t33*t218*t34*t219+
4322 t480*t148-0.41096*t1*t2*t3*t50*t49*t54*t55*t12-0.20548*t1*
4323 t2*t3*t50*t33*t222*t55*t12+0.41096*t1*t2*t3*t50*t33*t218*t220*
4324 t12-6.60919909938887*t1*t2*t3*t217*t33*t218*t219*t12+0.0063883732*
4325 t1*t2*t3*t19*t216*t12;
4326 d3fdrararb = t69*t506+2.0*t137*t301+2.0*t139*t300+t191*
4327 t294+t296*t190+t507*t148;
4328 d3fdraraga = 2.0*t304*t34*t50*t54*t55*rhoa+t50*t197*t222*
4329 t34*t55*rhoa-2.0*t197*t218*t220*t34*t50*rhoa-0.03109*t19*t510*
4330 t34*rhoa+32.1646831778707*t217*t197*t218*t34*t219*rhoa-0.333333333333333*
4331 t198*t3*t35*t7+2.0*t197*t34*t50*t54*t55+0.001419638488889*
4332 t1*t2*t3*t19*t197*t53-0.75*t3*t35*t511*t52-2.0*t11*t3*t305*
4333 t35-0.06218*t19*t304*t34+2.0*t137*t306+t199*t294+t512*t148-
4334 0.136986666666667*t1*t2*t3*t50*t197*t54*t55*t12+0.004258915466667*
4335 t1*t2*t3*t19*t304*t12;
4336 d3fdraragb = 2.0*t137*t307+t207*t294+t513*t148;
4337 d3fdraraab = 0.0;
4338 d3fdrarbrb = t69*t517+t139*t343+2.0*t190*t301+2.0*t191*
4339 t300+t518*t148+t344*t137;
4340 d3fdrarbga = t519*t148+t345*t137+t306*t190+t199*t300;
4341 d3fdrarbgb = t520*
4342 t148+t350*t137+t307*t190+t207*t300;
4343 d3fdrarbab = 0.0;
4344 d3fdragaga = t50*t352*t54*t34*t55*rhoa-0.03109*t19*t522*
4345 t34*rhoa-0.75*t3*t35*t52*t523-1.0*t11*t3*t35*t353-0.03109*
4346 t19*t352*t34+t524*t148+t354*t137+0.002129457733333*t1*t2*t3*
4347 t19*t352*t12;
4348 d3fdragagb = t525*t148+t355*t137;
4349 d3fdragaab = 0.0;
4350 d3fdragbgb = t526*t148+t359*t137;
4351 d3fdragbab = 0.0;
4352 d3fdraabab = 0.0;
4353 d3fdrbrbrb = -192.9880990672242*t317*t160*t538*t147*t540*
4354 rhob+2069.133687865597*t537*t160*t538*t147*t539*rhob+6.0*t147*
4355 t160*t175*t319*t538*rhob-6.0*t147*t160*t175*t179*t320*t322*
4356 rhob+3.0*t147*t174*t175*t180*t322*rhob-6.0*t147*t174*t175*
4357 t318*t320*rhob+96.4940495336121*t317*t174*t318*t147*t319*rhob+
4358 96.4940495336121*t317*t160*t322*t179*t147*t319*rhob+3.0*t147*
4359 t175*t179*t180*t316*rhob+t175*t542*t160*t147*t180*rhob-0.03109*
4360 t146*t536*t147*rhob+t69*t572-0.75*t177*t3*t35*t544-3.0*t142*
4361 t3*t324*t35-1.0*t140*t182*t3*t35+0.222222222222222*t166*t176*
4362 t3*t35+3.0*t190*t344+3.0*t191*t343+3.0*t147*t160*t175*t180*
4363 t322-0.001892851318519*t1*t2*t3*t146*t160*t321-6.0*t147*t160*
4364 t175*t318*t320+96.4940495336121*t317*t160*t318*t147*t319+6.0*
4365 t175*t174*t179*t147*t180-0.136986666666667*t1*t2*t3*t175*t160*
4366 t179*t180*t178+0.004258915466667*t1*t2*t3*t146*t174*t178+t573*
4367 t148-0.09327*t146*t316*t147+0.41096*t1*t2*t3*t175*t160*t318*
4368 t320*t143-6.60919909938887*t1*t2*t3*t317*t160*t318*t319*t143+
4369 0.0063883732*t1*t2*t3*t146*t316*t143-0.20548*t1*t2*t3*t175*
4370 t160*t322*t180*t143-0.41096*t1*t2*t3*t175*t174*t179*t180*t143;
4371 d3fdrbrbga = 2.0*
4372 t190*t345+t199*t343+t574*t148;
4373 d3fdrbrbgb = 2.0*t147*t175*t179*t180*t348*rhob-2.0*t147*
4374 t175*t205*t318*t320*rhob+32.1646831778707*t317*t205*t318*t147*
4375 t319*rhob+t175*t205*t322*t147*t180*rhob-0.03109*t146*t577*
4376 t147*rhob-0.75*t177*t3*t35*t578+2.0*t190*t350-2.0*t142*t3*
4377 t349*t35-0.333333333333333*t140*t206*t3*t35+t207*t343+2.0*
4378 t147*t175*t179*t180*t205+0.001419638488889*t1*t2*t3*t146*t205*
4379 t178+t579*t148-0.06218*t146*t348*t147+0.004258915466667*t1*
4380 t2*t3*t146*t348*t143-0.136986666666667*t1*t2*t3*t175*t205*
4381 t179*t180*t143;
4382 d3fdrbrbab = 0.0;
4383 d3fdrbgaga = t580*t148+t354*t190;
4384 d3fdrbgagb = t581*t148+t355*t190;
4385 d3fdrbgaab = 0.0;
4386 d3fdrbgbgb = t175*t357*t179*t147*t180*rhob-0.03109*t146*
4387 t583*t147*rhob-0.75*t177*t3*t35*t584-1.0*t142*t3*t35*t358+
4388 t359*t190+t585*t148-0.03109*t146*t357*t147+0.002129457733333*
4389 t1*t2*t3*t146*t357*t143;
4390 d3fdrbgbab = 0.0;
4391 d3fdrbabab = 0.0;
4392 d3fdgagaga = -0.03109*t19*t587*t34*rhoa-0.75*t3*t35*t52*
4393 t588+t589*t148;
4394 d3fdgagagb = t590*t148;
4395 d3fdgagaab = 0.0;
4396 d3fdgagbgb = t591*t148;
4397 d3fdgagbab = 0.0;
4398 d3fdgaabab = 0.0;
4399 d3fdgbgbgb = -0.03109*t146*t593*t147*rhob-0.75*t177*t3*
4400 t35*t594+t595*t148;
4401 d3fdgbgbab = 0.0;
4402 d3fdgbabab = 0.0;
4403 d3fdababab = 0.0;
4404 d4fdrararara = t69*(24829.60425438716*t370*t607*t34*t609*
4405 rhoa-199659.0885685683*t606*t607*t34*t608*rhoa-1.0*t50*t611*
4406 t34*t55*rhoa+24.0*t50*t607*t34*t373*rhoa+1157.928594403345*
4407 t217*t222*t218*t34*t373*rhoa-1157.928594403345*t217*t607*t34*
4408 t372*rhoa-12414.80212719358*t370*t222*t218*t34*t372*rhoa+6.0*
4409 t50*t610*t34*t220*rhoa+8.0*t50*t375*t54*t34*t220*rhoa-96.4940495336121*
4410 t217*t610*t34*t219*rhoa-128.6587327114828*t217*t375*t54*t34*
4411 t219*rhoa-36.0*t50*t222*t218*t34*t219*rhoa+t70*(-384.0*t125*
4412 t81*t82*t90*t99-1920.0*t127*t452*t81*t90*t99+96.0*t122*t81*
4413 t82*t84*t99+16.0*t127*t445*t81*t84*t99+72.0*t267*t275*t81*
4414 t84*t99-480.0*t122*t452*t81*t83*t99-16.0*t125*t445*t81*t83*
4415 t99+120.0*t267*t273*t81*t83*t99-576.0*t122*t125*t275*t81*t99+
4416 960.0*t122*t127*t273*t81*t99-192.0*t125*t127*t267*t81*t99+
4417 t81*t83*t84*t704*t99+0.019751789702565*t81*(384.0*t125*t82+
4418 t708+t707+t703+1920.0*t127*t452)*t86*t90*t93-0.002929848805881*
4419 t81*t1*t2*t3*t103*t456*t90*t93+0.005859697611761*t81*t1*t2*
4420 t3*t240*t277*t90*t93-0.00911508517385*t81*t1*t2*t3*t407*t128*
4421 t90*t93+0.019751789702565*t81*t85*t86*t704*t93+0.079007158810261*
4422 t81*t128*t86*t445*t93-0.002929848805881*t81*t1*t2*t3*t103*
4423 t85*t445*t93+0.118510738215391*t81*t277*t86*t267*t93+0.005859697611761*
4424 t81*t1*t2*t3*t240*t85*t267*t93-0.008789546417642*t81*t1*t2*
4425 t3*t103*t128*t267*t93+0.079007158810261*t81*t456*t86*t122*
4426 t93-0.00911508517385*t81*t1*t2*t3*t407*t85*t122*t93-0.008789546417642*
4427 t81*t1*t2*t3*t103*t277*t122*t93+0.011719395223522*t81*t1*t2*
4428 t3*t240*t128*t122*t93+96.0*t133*t81*t82*t84*t90+16.0*t127*
4429 t463*t81*t84*t90-192.0*t125*t127*t284*t81*t90+960.0*t127*t133*
4430 t273*t81*t90+4.0*t122*t463*t81*t83*t84+4.0*t133*t445*t81*t83*
4431 t84+6.0*t267*t284*t81*t83*t84+48.0*t122*t127*t284*t81*t84+
4432 144.0*t122*t133*t275*t81*t84+48.0*t127*t133*t267*t81*t84-48.0*
4433 t122*t125*t284*t81*t83+240.0*t122*t133*t273*t81*t83-48.0*t125*
4434 t133*t267*t81*t83-384.0*t122*t125*t127*t133*t81+t719+t718+
4435 t717+t716+t715+t714+t713+t712+t711+t705+t697+t696+t695+t694+
4436 t693+t692+t691+t690+t689+t688+t687+t686+t685+t684+t682+t681+
4437 t680+t679+t678+t677+t676+t675+t674+t672+t666+t665+t664+t663+
4438 t662+t661+t660+t659+t658+t657+t656+t655+t653+t652+t651+t650+
4439 t649+t648+t647+t646+t644-4101.558808403119*t81*t128*t411*t86*
4440 t412*t90*t413-4101.558808403119*t81*t85*t411*t86*t412*t122*
4441 t413+415.5781415850207*t81*t128*t411*t86*t416*t90*t246-103.8945353962552*
4442 t81*t277*t244*t86*t245*t90*t246-207.7890707925104*t81*t128*
4443 t252*t109*t86*t245*t90*t246+7.70551137522226*t81*t1*t2*t3*
4444 t103*t128*t244*t245*t90*t246-103.8945353962552*t81*t85*t244*
4445 t86*t245*t267*t246+415.5781415850207*t81*t85*t411*t86*t416*
4446 t122*t246-207.7890707925104*t81*t128*t244*t86*t245*t122*t246-
4447 207.7890707925104*t81*t85*t252*t109*t86*t245*t122*t246+7.70551137522226*
4448 t81*t1*t2*t3*t103*t85*t244*t245*t122*t246+7.017868076946245*
4449 t81*t277*t244*t86*t249*t90*t111+14.03573615389249*t81*t128*
4450 t252*t109*t86*t249*t90*t111-0.520491882373513*t81*t1*t2*t3*
4451 t103*t128*t244*t249*t90*t111-14.03573615389249*t81*t128*t411*
4452 t86*t245*t90*t111-2.339289358982082*t81*t128*t431*t86*t110*
4453 t90*t111-3.508934038473122*t81*t277*t252*t86*t110*t90*t111-
4454 2.339289358982082*t81*t456*t109*t86*t110*t90*t111+0.260245941186757*
4455 t81*t1*t2*t3*t103*t128*t252*t110*t90*t111+0.260245941186757*
4456 t81*t1*t2*t3*t103*t277*t109*t110*t90*t111-0.346994588249009*
4457 t81*t1*t2*t3*t240*t128*t109*t110*t90*t111-2.339289358982082*
4458 t81*t85*t109*t86*t110*t445*t111+7.017868076946245*t81*t85*
4459 t244*t86*t249*t267*t111-3.508934038473122*t81*t85*t252*t86*
4460 t110*t267*t111-7.017868076946245*t81*t128*t109*t86*t110*t267*
4461 t111+0.260245941186757*t81*t1*t2*t3*t103*t85*t109*t110*t267*
4462 t111+14.03573615389249*t81*t128*t244*t86*t249*t122*t111+14.03573615389249*
4463 t81*t85*t252*t109*t86*t249*t122*t111-0.520491882373513*t81*
4464 t1*t2*t3*t103*t85*t244*t249*t122*t111-14.03573615389249*t81*
4465 t85*t411*t86*t245*t122*t111-2.339289358982082*t81*t85*t431*
4466 t86*t110*t122*t111-7.017868076946245*t81*t128*t252*t86*t110*
4467 t122*t111-7.017868076946245*t81*t277*t109*t86*t110*t122*t111+
4468 0.260245941186757*t81*t1*t2*t3*t103*t85*t252*t110*t122*t111-
4469 0.346994588249009*t81*t1*t2*t3*t240*t85*t109*t110*t122*t111+
4470 0.520491882373513*t81*t1*t2*t3*t103*t128*t109*t110*t122*t111)+
4471 96.0*t81*t82*t84*t90*t99+960.0*t127*t273*t81*t90*t99+4.0*t445*
4472 t81*t83*t84*t99+144.0*t122*t275*t81*t84*t99+48.0*t127*t267*
4473 t81*t84*t99+240.0*t122*t273*t81*t83*t99-48.0*t125*t267*t81*
4474 t83*t99-384.0*t122*t125*t127*t81*t99+0.079007158810261*t81*
4475 t456*t86*t90*t93-0.008789546417642*t81*t1*t2*t3*t103*t277*
4476 t90*t93+0.011719395223522*t81*t1*t2*t3*t240*t128*t90*t93+0.079007158810261*
4477 t81*t85*t86*t445*t93+0.237021476430782*t81*t128*t86*t267*t93-
4478 0.008789546417642*t81*t1*t2*t3*t103*t85*t267*t93+0.237021476430782*
4479 t81*t277*t86*t122*t93+0.011719395223522*t81*t1*t2*t3*t240*
4480 t85*t122*t93-0.017579092835283*t81*t1*t2*t3*t103*t128*t122*
4481 t93+48.0*t127*t284*t81*t84*t90-384.0*t125*t127*t133*t81*t90+
4482 12.0*t122*t284*t81*t83*t84+12.0*t133*t267*t81*t83*t84+96.0*
4483 t122*t127*t133*t81*t84-96.0*t122*t125*t133*t81*t83+t640+t639+
4484 t638+t637+t636+t635+t634+t633+t632+t631+t630+t629+t628+t627+
4485 t626+t625+t624+t623+t622+t621+t620+t619+t618+t617+t616+t615+
4486 t614+t613-4.0*t50*t375*t34*t55+0.273973333333333*t1*t2*t3*
4487 t50*t222*t55*t53-0.547946666666667*t1*t2*t3*t50*t218*t220*
4488 t53+8.812265465851826*t1*t2*t3*t217*t218*t219*t53-0.004416653076543*
4489 t1*t2*t3*t19*t374+771.9523962688968*t217*t371*t34*t373-8276.534751462386*
4490 t370*t371*t34*t372-207.7890707925104*t81*t128*t244*t86*t245*
4491 t90*t246-207.7890707925104*t81*t85*t244*t86*t245*t122*t246-
4492 0.243531851851852*t1*t2*t3*t50*t54*t55*t221+24.0*t50*t222*
4493 t54*t34*t220-385.9761981344484*t217*t222*t54*t34*t219-24.0*
4494 t50*t371*t34*t219+0.273973333333333*t1*t2*t3*t50*t375*t55*
4495 t12-52.87359279511096*t1*t2*t3*t217*t371*t373*t12+566.8874535768302*
4496 t1*t2*t3*t370*t371*t372*t12-1.64384*t1*t2*t3*t50*t222*t54*
4497 t220*t12+26.43679639755548*t1*t2*t3*t217*t222*t54*t219*t12+
4498 1.64384*t1*t2*t3*t50*t371*t219*t12+14.03573615389249*t81*t128*
4499 t244*t86*t249*t90*t111-7.017868076946245*t81*t128*t252*t86*
4500 t110*t90*t111-7.017868076946245*t81*t277*t109*t86*t110*t90*
4501 t111+0.520491882373513*t81*t1*t2*t3*t103*t128*t109*t110*t90*
4502 t111-7.017868076946245*t81*t85*t109*t86*t110*t267*t111+14.03573615389249*
4503 t81*t85*t244*t86*t249*t122*t111-7.017868076946245*t81*t85*
4504 t252*t86*t110*t122*t111-14.03573615389249*t81*t128*t109*t86*
4505 t110*t122*t111+0.520491882373513*t81*t1*t2*t3*t103*t85*t109*
4506 t110*t122*t111)-6.0*t220*t33*t34*t50*t610*rhoa-24829.60425438716*
4507 t370*t33*t607*t34*t609*rhoa+199659.0885685683*t606*t33*t607*
4508 t34*t608*rhoa-24.0*t33*t34*t373*t50*t607*rhoa+4.0*t34*t369*
4509 t50*t54*t55*rhoa+4.0*t34*t375*t49*t50*t55*rhoa+6.0*t216*t222*
4510 t34*t50*t55*rhoa+t50*t611*t33*t34*t55*rhoa-24.0*t220*t222*
4511 t34*t49*t50*t54*rhoa-8.0*t220*t33*t34*t375*t50*t54*rhoa+24.0*
4512 t219*t34*t371*t49*t50*rhoa+36.0*t218*t219*t222*t33*t34*t50*
4513 rhoa-12.0*t216*t218*t220*t34*t50*rhoa-771.9523962688968*t217*
4514 t49*t371*t34*t373*rhoa-1157.928594403345*t217*t33*t222*t218*
4515 t34*t373*rhoa+1157.928594403345*t217*t33*t607*t34*t372*rhoa+
4516 8276.534751462386*t370*t49*t371*t34*t372*rhoa+12414.80212719358*
4517 t370*t33*t222*t218*t34*t372*rhoa-0.03109*t19*(4.423522769382716*
4518 t21*t32*t605+10.26558234153087*t29*t30*t604-132.732341830163*
4519 t26*t27*t603+202.6697066943526*t20*t24*t602-119.6504344979532*
4520 t42*t43*t601+33.6253206649363*t208*t209*t600-4.537293209600001*
4521 t360*t361*t599+0.237138491619556*t596*t597*t598)*t34*rhoa+
4522 96.4940495336121*t217*t33*t610*t34*t219*rhoa+128.6587327114828*
4523 t217*t375*t33*t54*t34*t219*rhoa+385.9761981344484*t217*t49*
4524 t222*t54*t34*t219*rhoa+192.9880990672242*t217*t216*t218*t34*
4525 t219*rhoa-2.0*t224*t3*t35*t7-0.75*t3*t35*t52*(-0.538373535604938*
4526 t21*t40*t605+0.170710135447704*t29*t39*t604-0.006586541220169*
4527 t26*t38*t603+1.0611154443853118E-4*t20*t37*t602-8.823921276742924E-7*
4528 t42*t56*t601+3.981198533073225E-9*t208*t223*t600-9.2618884392429E-12*
4529 t360*t376*t599+8.71112822935703E-15*t596*t612*t598)+0.888888888888889*
4530 t3*t35*t51*t57+4.0*t33*t34*t375*t50*t55+12.0*t50*t216*t54*
4531 t34*t55+12.0*t50*t49*t222*t34*t55-24.0*t220*t222*t33*t34*t50*
4532 t54-0.547946666666667*t1*t2*t3*t50*t49*t54*t55*t53-0.273973333333333*
4533 t1*t2*t3*t50*t33*t222*t55*t53+0.547946666666667*t1*t2*t3*t50*
4534 t33*t218*t220*t53-8.812265465851826*t1*t2*t3*t217*t33*t218*
4535 t219*t53+0.008517830933333*t1*t2*t3*t19*t216*t53+24.0*t219*
4536 t33*t34*t371*t50+4.0*t137*t480+4.0*t139*t478-0.37037037037037*
4537 t22*t3*t35*t41-4.0*t11*t3*t35*t377+0.004416653076543*t1*t2*
4538 t3*t19*t33*t374-771.9523962688968*t217*t33*t371*t34*t373+8276.534751462386*
4539 t370*t33*t371*t34*t372-0.12436*t19*t369*t34+6.0*t294*t296+
4540 0.243531851851852*t1*t2*t3*t50*t33*t54*t55*t221-0.007571405274074*
4541 t1*t2*t3*t19*t49*t221-24.0*t50*t49*t218*t34*t220+385.9761981344484*
4542 t217*t33*t222*t54*t34*t219+385.9761981344484*t217*t49*t218*
4543 t34*t219+(2.872399786666667*t21*t605*t68-0.155932082631111*
4544 t21*t605*t60*t67-0.259022131768889*t29*t604*t67+0.002147636855467*
4545 t21*t605*t66*t65+0.009223778563413*t29*t604*t60*t65+0.00332549505024*
4546 t26*t603*t65-1.195909772288E-5*t21*t605*t64*t63-1.1148896360448E-4*
4547 t29*t604*t66*t63-1.049004785664E-4*t26*t603*t60*t63-9.985417543679999E-6*
4548 t20*t602*t63+2.439835926528001E-8*t21*t605*t61*t138+5.7530165772288E-7*
4549 t29*t604*t64*t138+1.18695912800256E-6*t26*t603*t66*t138+2.9645634797568E-7*
4550 t20*t602*t60*t138-1.0948507435008E-9*t29*t604*t61*t295-5.8350883700736E-9*
4551 t26*t603*t64*t295-3.2190326636544E-9*t20*t602*t66*t295+1.06286633975808E-11*
4552 t26*t603*t61*t479+1.530774757048321E-11*t20*t602*t64*t479-
4553 2.705477955747841E-14*t20*t602*t61*t720)*t148-0.82192*t1*t2*
4554 t3*t50*t216*t54*t55*t12-0.273973333333333*t1*t2*t3*t50*t375*
4555 t33*t55*t12-0.82192*t1*t2*t3*t50*t49*t222*t55*t12+52.87359279511096*
4556 t1*t2*t3*t217*t33*t371*t373*t12-566.8874535768302*t1*t2*t3*
4557 t370*t33*t371*t372*t12+0.008517830933333*t1*t2*t3*t19*t369*
4558 t12+1.64384*t1*t2*t3*t50*t33*t222*t54*t220*t12+1.64384*t1*
4559 t2*t3*t50*t49*t218*t220*t12-26.43679639755548*t1*t2*t3*t217*
4560 t33*t222*t54*t219*t12-1.64384*t1*t2*t3*t50*t33*t371*t219*t12-
4561 26.43679639755548*t1*t2*t3*t217*t49*t218*t219*t12;
4562 d4fdrarararb = t69*(t70*(192.0*t125*t81*t82*t90*t99-960.0*
4563 t127*t452*t81*t90*t99+24.0*t185*t81*t82*t84*t99-72.0*t122*
4564 t81*t82*t84*t99+12.0*t127*t493*t81*t84*t99-4.0*t127*t445*t81*
4565 t84*t99-36.0*t267*t275*t81*t84*t99-12.0*t125*t493*t81*t83*
4566 t99-120.0*t185*t452*t81*t83*t99-360.0*t122*t452*t81*t83*t99-
4567 4.0*t125*t445*t81*t83*t99+60.0*t267*t273*t81*t83*t99-96.0*
4568 t125*t127*t297*t81*t99-144.0*t125*t185*t275*t81*t99+144.0*
4569 t122*t125*t275*t81*t99+240.0*t127*t185*t273*t81*t99+240.0*
4570 t122*t127*t273*t81*t99+t81*t83*t84*t748*t99+0.019751789702565*
4571 t81*(-192.0*t125*t82+t707+t700+960.0*t127*t452)*t86*t90*t93-
4572 0.00219738660441*t81*t1*t2*t3*t103*t499*t90*t93-7.324622014701263E-4*
4573 t81*t1*t2*t3*t103*t456*t90*t93+0.002929848805881*t81*t1*t2*
4574 t3*t240*t277*t90*t93-0.002278771293463*t81*t1*t2*t3*t407*t187*
4575 t90*t93-0.006836313880388*t81*t1*t2*t3*t407*t128*t90*t93+0.019751789702565*
4576 t81*t85*t86*t748*t93+0.059255369107696*t81*t128*t86*t493*t93-
4577 0.00219738660441*t81*t1*t2*t3*t103*t85*t493*t93+0.019751789702565*
4578 t81*t187*t86*t445*t93-7.324622014701263E-4*t81*t1*t2*t3*t103*
4579 t85*t445*t93+0.059255369107696*t81*t277*t86*t297*t93-0.004394773208821*
4580 t81*t1*t2*t3*t103*t128*t297*t93+0.059255369107696*t81*t298*
4581 t86*t267*t93+0.002929848805881*t81*t1*t2*t3*t240*t85*t267*
4582 t93-0.00219738660441*t81*t1*t2*t3*t103*t187*t267*t93-0.00219738660441*
4583 t81*t1*t2*t3*t103*t128*t267*t93+0.019751789702565*t81*t456*
4584 t86*t185*t93-0.002278771293463*t81*t1*t2*t3*t407*t85*t185*
4585 t93-0.00219738660441*t81*t1*t2*t3*t103*t277*t185*t93+0.059255369107696*
4586 t81*t499*t86*t122*t93-0.006836313880388*t81*t1*t2*t3*t407*
4587 t85*t122*t93-0.004394773208821*t81*t1*t2*t3*t103*t298*t122*
4588 t93-0.00219738660441*t81*t1*t2*t3*t103*t277*t122*t93+0.005859697611761*
4589 t81*t1*t2*t3*t240*t128*t122*t93-48.0*t133*t81*t82*t84*t90+
4590 8.0*t127*t463*t81*t84*t90-96.0*t125*t127*t284*t81*t90+480.0*
4591 t127*t133*t273*t81*t90+3.0*t133*t493*t81*t83*t84+3.0*t122*
4592 t463*t81*t83*t84+3.0*t267*t284*t81*t83*t84+24.0*t127*t133*
4593 t297*t81*t84+12.0*t127*t185*t284*t81*t84+12.0*t122*t127*t284*
4594 t81*t84+36.0*t133*t185*t275*t81*t84-36.0*t122*t133*t275*t81*
4595 t84-12.0*t125*t185*t284*t81*t83-36.0*t122*t125*t284*t81*t83+
4596 60.0*t133*t185*t273*t81*t83+180.0*t122*t133*t273*t81*t83-24.0*
4597 t125*t133*t267*t81*t83-96.0*t125*t127*t133*t185*t81-96.0*t122*
4598 t125*t127*t133*t81+t756+t755+t754+t753+t752+t751+t750+t749+
4599 t747+t746+t745+t744+t743+t742+t741+t740+t739+t738+t737+t736+
4600 t735+t734+t733+t732+t731+t717+t715+t713+t712+t711+t705+t697+
4601 t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+t686+t685+
4602 t684+t682+t681+t680+t679+t678+t677+t676+t675+t674+t672+t666+
4603 t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+t655+t653+
4604 t652+t651+t650+t649+t648+t647+t646+t644+t81*t83*t84*t185*t463-
4605 1025.38970210078*t81*t187*t411*t86*t412*t90*t413-3076.169106302339*
4606 t81*t128*t411*t86*t412*t90*t413-1025.38970210078*t81*t85*t411*
4607 t86*t412*t185*t413-3076.169106302339*t81*t85*t411*t86*t412*
4608 t122*t413+103.8945353962552*t81*t187*t411*t86*t416*t90*t246+
4609 311.6836061887656*t81*t128*t411*t86*t416*t90*t246-51.94726769812759*
4610 t81*t277*t244*t86*t245*t90*t246-51.9472676981276*t81*t187*
4611 t252*t109*t86*t245*t90*t246-155.8418030943828*t81*t128*t252*
4612 t109*t86*t245*t90*t246+1.926377843805565*t81*t1*t2*t3*t103*
4613 t187*t244*t245*t90*t246+5.779133531416695*t81*t1*t2*t3*t103*
4614 t128*t244*t245*t90*t246-51.94726769812759*t81*t85*t244*t86*
4615 t245*t267*t246+103.8945353962552*t81*t85*t411*t86*t416*t185*
4616 t246-51.9472676981276*t81*t85*t252*t109*t86*t245*t185*t246+
4617 1.926377843805565*t81*t1*t2*t3*t103*t85*t244*t245*t185*t246+
4618 311.6836061887656*t81*t85*t411*t86*t416*t122*t246-103.8945353962552*
4619 t81*t128*t244*t86*t245*t122*t246-155.8418030943828*t81*t85*
4620 t252*t109*t86*t245*t122*t246+5.779133531416695*t81*t1*t2*t3*
4621 t103*t85*t244*t245*t122*t246+t81*t83*t84*t445*t133+3.508934038473122*
4622 t81*t277*t244*t86*t249*t90*t111+3.508934038473122*t81*t187*
4623 t252*t109*t86*t249*t90*t111+10.52680211541937*t81*t128*t252*
4624 t109*t86*t249*t90*t111-0.130122970593378*t81*t1*t2*t3*t103*
4625 t187*t244*t249*t90*t111-0.390368911780135*t81*t1*t2*t3*t103*
4626 t128*t244*t249*t90*t111-3.508934038473122*t81*t187*t411*t86*
4627 t245*t90*t111-10.52680211541937*t81*t128*t411*t86*t245*t90*
4628 t111-0.58482233974552*t81*t187*t431*t86*t110*t90*t111-1.754467019236561*
4629 t81*t128*t431*t86*t110*t90*t111-1.754467019236561*t81*t277*
4630 t252*t86*t110*t90*t111-1.754467019236561*t81*t499*t109*t86*
4631 t110*t90*t111-0.58482233974552*t81*t456*t109*t86*t110*t90*
4632 t111+0.065061485296689*t81*t1*t2*t3*t103*t187*t252*t110*t90*
4633 t111+0.195184455890067*t81*t1*t2*t3*t103*t128*t252*t110*t90*
4634 t111+0.130122970593378*t81*t1*t2*t3*t103*t277*t109*t110*t90*
4635 t111-0.086748647062252*t81*t1*t2*t3*t240*t187*t109*t110*t90*
4636 t111-0.260245941186757*t81*t1*t2*t3*t240*t128*t109*t110*t90*
4637 t111-1.754467019236561*t81*t85*t109*t86*t110*t493*t111-0.58482233974552*
4638 t81*t85*t109*t86*t110*t445*t111-3.508934038473122*t81*t128*
4639 t109*t86*t110*t297*t111+3.508934038473122*t81*t85*t244*t86*
4640 t249*t267*t111-1.754467019236561*t81*t85*t252*t86*t110*t267*
4641 t111-1.754467019236561*t81*t187*t109*t86*t110*t267*t111-1.754467019236561*
4642 t81*t128*t109*t86*t110*t267*t111+0.130122970593378*t81*t1*
4643 t2*t3*t103*t85*t109*t110*t267*t111+3.508934038473122*t81*t85*
4644 t252*t109*t86*t249*t185*t111-0.130122970593378*t81*t1*t2*t3*
4645 t103*t85*t244*t249*t185*t111-3.508934038473122*t81*t85*t411*
4646 t86*t245*t185*t111-0.58482233974552*t81*t85*t431*t86*t110*
4647 t185*t111-1.754467019236561*t81*t277*t109*t86*t110*t185*t111+
4648 0.065061485296689*t81*t1*t2*t3*t103*t85*t252*t110*t185*t111-
4649 0.086748647062252*t81*t1*t2*t3*t240*t85*t109*t110*t185*t111+
4650 7.017868076946245*t81*t128*t244*t86*t249*t122*t111+10.52680211541937*
4651 t81*t85*t252*t109*t86*t249*t122*t111-0.390368911780135*t81*
4652 t1*t2*t3*t103*t85*t244*t249*t122*t111-10.52680211541937*t81*
4653 t85*t411*t86*t245*t122*t111-1.754467019236561*t81*t85*t431*
4654 t86*t110*t122*t111-3.508934038473122*t81*t128*t252*t86*t110*
4655 t122*t111-3.508934038473122*t81*t298*t109*t86*t110*t122*t111-
4656 1.754467019236561*t81*t277*t109*t86*t110*t122*t111+0.195184455890067*
4657 t81*t1*t2*t3*t103*t85*t252*t110*t122*t111-0.260245941186757*
4658 t81*t1*t2*t3*t240*t85*t109*t110*t122*t111+0.260245941186757*
4659 t81*t1*t2*t3*t103*t128*t109*t110*t122*t111)-48.0*t81*t82*t84*
4660 t90*t99+480.0*t127*t273*t81*t90*t99+3.0*t493*t81*t83*t84*t99+
4661 24.0*t127*t297*t81*t84*t99-36.0*t122*t275*t81*t84*t99+180.0*
4662 t122*t273*t81*t83*t99-24.0*t125*t267*t81*t83*t99-96.0*t125*
4663 t127*t185*t81*t99+0.059255369107696*t81*t499*t86*t90*t93-0.004394773208821*
4664 t81*t1*t2*t3*t103*t277*t90*t93+0.008789546417642*t81*t1*t2*
4665 t3*t240*t128*t90*t93+0.059255369107696*t81*t85*t86*t493*t93+
4666 0.118510738215391*t81*t128*t86*t297*t93+0.059255369107696*
4667 t81*t187*t86*t267*t93-0.004394773208821*t81*t1*t2*t3*t103*
4668 t85*t267*t93+0.059255369107696*t81*t277*t86*t185*t93+0.118510738215391*
4669 t81*t298*t86*t122*t93+0.008789546417642*t81*t1*t2*t3*t240*
4670 t85*t122*t93-0.008789546417642*t81*t1*t2*t3*t103*t128*t122*
4671 t93+24.0*t127*t284*t81*t84*t90-192.0*t125*t127*t133*t81*t90+
4672 9.0*t122*t284*t81*t83*t84+6.0*t133*t267*t81*t83*t84+24.0*t127*
4673 t133*t185*t81*t84-72.0*t122*t125*t133*t81*t83+t730+t729+t728+
4674 t727+t726+t725+t724+t723+t722+t721+t639+t637+t636+t635+t634+
4675 t633+t632+t631+t630+t629+t628+t627+t626+t625+t624+t623+t622+
4676 t621+t620+t619+t618+t617+t616+t615+t614+t613+t571+t569+t566+
4677 t565+t562+t560+t552+t551+t550+t549+t548+t547+t546+t545+t473+
4678 t471+t468+t457+t449+t447+t446-155.8418030943828*t81*t128*t244*
4679 t86*t245*t90*t246-155.8418030943828*t81*t85*t244*t86*t245*
4680 t122*t246+10.52680211541937*t81*t128*t244*t86*t249*t90*t111-
4681 5.263401057709684*t81*t128*t252*t86*t110*t90*t111-3.508934038473122*
4682 t81*t277*t109*t86*t110*t90*t111+0.390368911780135*t81*t1*t2*
4683 t3*t103*t128*t109*t110*t90*t111-3.508934038473122*t81*t85*
4684 t109*t86*t110*t267*t111+10.52680211541937*t81*t85*t244*t86*
4685 t249*t122*t111-5.263401057709684*t81*t85*t252*t86*t110*t122*
4686 t111-7.017868076946245*t81*t128*t109*t86*t110*t122*t111+0.390368911780135*
4687 t81*t1*t2*t3*t103*t85*t109*t110*t122*t111)+3.0*t137*t507+3.0*
4688 t139*t506+t191*t478+3.0*t294*t301+3.0*t296*t300+t480*t190+
4689 (-0.040745054435556*t21*t58*t368*t67*t173+0.001450931459413*
4690 t21*t58*t368*t60*t65*t173+0.00166274752512*t29*t58*t367*t65*
4691 t173-1.753758978048E-5*t21*t58*t368*t66*t63*t173-5.24502392832E-5*
4692 t29*t58*t367*t60*t63*t173-9.985417543679999E-6*t26*t58*t366*
4693 t63*t173+9.049688997888E-8*t21*t58*t368*t64*t138*t173+5.9347956400128E-7*
4694 t29*t58*t367*t66*t138*t173+2.9645634797568E-7*t26*t58*t366*
4695 t60*t138*t173-1.722237124608001E-10*t21*t58*t368*t61*t295*
4696 t173-2.9175441850368E-9*t29*t58*t367*t64*t295*t173-3.2190326636544E-9*
4697 t26*t58*t366*t66*t295*t173+5.3143316987904E-12*t29*t58*t367*
4698 t61*t479*t173+1.530774757048321E-11*t26*t58*t366*t64*t479*
4699 t173-2.705477955747841E-14*t26*t58*t366*t61*t720*t173)*t148;
4700 d4fdrararaga = 3.0*
4701 t34*t50*t510*t54*t55*rhoa+3.0*t222*t304*t34*t50*t55*rhoa+t50*
4702 t375*t197*t34*t55*rhoa-6.0*t197*t220*t222*t34*t50*t54*rhoa+
4703 6.0*t197*t219*t34*t371*t50*rhoa-6.0*t218*t220*t304*t34*t50*
4704 rhoa-192.9880990672242*t217*t197*t371*t34*t373*rhoa+2069.133687865597*
4705 t370*t197*t371*t34*t372*rhoa-0.03109*t19*(-1.56124333037037*
4706 grada*t32*t368-4.81507000414815*t196*t30*t367+72.67913110755558*
4707 t195*t27*t366-121.7816966326045*t194*t24*t365+77.20254629842492*
4708 t192*t43*t364-22.99638211470223*t302*t209*t363+3.260051619840001*
4709 t508*t361*t362-0.177853868714667*t757*t597*t758)*t34*rhoa+
4710 96.4940495336121*t217*t197*t222*t54*t34*t219*rhoa+96.4940495336121*
4711 t217*t304*t218*t34*t219*rhoa-1.0*t3*t305*t35*t7+3.0*t197*t222*
4712 t34*t50*t55+6.0*t50*t304*t54*t34*t55-0.136986666666667*t1*
4713 t2*t3*t50*t197*t54*t55*t53+0.004258915466667*t1*t2*t3*t19*
4714 t304*t53-0.75*t3*t35*(0.190014189037037*grada*t40*t368-0.082214485447111*
4715 t196*t39*t367+0.003681518224119*t195*t38*t366-6.506054353320772E-5*
4716 t194*t37*t365+5.781780106954526E-7*t192*t56*t364-2.749152996496119E-9*
4717 t302*t223*t363+6.68391581359218E-12*t508*t376*t362-6.53334617201778E-15*
4718 t757*t612*t758)*t52+3.0*t137*t512-3.0*t11*t3*t35*t511+0.222222222222222*
4719 t198*t3*t35*t51-6.0*t197*t218*t220*t34*t50+t199*t478-0.09327*
4720 t19*t510*t34+3.0*t294*t306-0.001892851318519*t1*t2*t3*t19*
4721 t197*t221+96.4940495336121*t217*t197*t218*t34*t219+(-1.01378816*
4722 grada*t368*t68+0.055034852693333*grada*t368*t60*t67+0.135331787946667*
4723 t196*t367*t67-7.579894784000001E-4*grada*t368*t66*t65-0.00481916520448*
4724 t196*t367*t60*t65-0.00215401383936*t195*t366*t65+4.22085801984E-6*
4725 grada*t368*t64*t63+5.824985177087999E-5*t196*t367*t66*t63+
4726 6.79469008896E-5*t195*t366*t60*t63+7.48906315776E-6*t194*t365*
4727 t63-8.611185623040002E-9*grada*t368*t61*t138-3.0057895600128E-7*
4728 t196*t367*t64*t138-7.6882579881984E-7*t195*t366*t66*t138-2.2234226098176E-7*
4729 t194*t365*t60*t138+5.720287592448E-10*t196*t367*t61*t295+3.7795458760704E-9*
4730 t195*t366*t64*t295+2.4142744977408E-9*t194*t365*t66*t295-6.8844751552512E-12*
4731 t195*t366*t61*t479-1.14808106778624E-11*t194*t365*t64*t479+
4732 2.029108466810881E-14*t194*t365*t61*t720)*t148-0.41096*t1*
4733 t2*t3*t50*t304*t54*t55*t12-0.20548*t1*t2*t3*t50*t197*t222*
4734 t55*t12+0.0063883732*t1*t2*t3*t19*t510*t12+0.41096*t1*t2*t3*
4735 t50*t197*t218*t220*t12-6.60919909938887*t1*t2*t3*t217*t197*
4736 t218*t219*t12;
4737 d4fdrararagb = 3.0*t137*t513+t207*t478+3.0*t294*t307+
4738 (0.030558790826667*t21*gradb*t368*t67*t59-0.00108819859456*
4739 t21*gradb*t368*t60*t65*t59-0.00124706064384*t29*gradb*t367*
4740 t65*t59+1.3153192335360001E-5*t21*gradb*t368*t66*t63*t59+3.93376794624E-5*
4741 t29*gradb*t367*t60*t63*t59+7.48906315776E-6*t26*gradb*t366*
4742 t63*t59-6.787266748416001E-8*t21*gradb*t368*t64*t138*t59-4.451096730009599E-7*
4743 t29*gradb*t367*t66*t138*t59-2.2234226098176E-7*t26*gradb*t366*
4744 t60*t138*t59+1.291677843456E-10*t21*gradb*t368*t61*t295*t59+
4745 2.1881581387776E-9*t29*gradb*t367*t64*t295*t59+2.4142744977408E-9*
4746 t26*gradb*t366*t66*t295*t59-3.9857487740928E-12*t29*gradb*
4747 t367*t61*t479*t59-1.14808106778624E-11*t26*gradb*t366*t64*
4748 t479*t59+2.029108466810881E-14*t26*gradb*t366*t61*t720*t59)*
4749 t148;
4750 d4fdrararaab = 0.0;
4751 d4fdrararbrb = t69*(t70*(-480.0*t273*t275*t81*t90*t99-
4752 48.0*t185*t81*t82*t84*t99+48.0*t122*t81*t82*t84*t99+8.0*t127*
4753 t514*t81*t84*t99-8.0*t127*t493*t81*t84*t99+12.0*t275*t331*
4754 t81*t84*t99-48.0*t275*t297*t81*t84*t99+12.0*t267*t275*t81*
4755 t84*t99-8.0*t125*t514*t81*t83*t99-8.0*t125*t493*t81*t83*t99-
4756 240.0*t185*t452*t81*t83*t99-240.0*t122*t452*t81*t83*t99+20.0*
4757 t273*t331*t81*t83*t99+80.0*t273*t297*t81*t83*t99+20.0*t267*
4758 t273*t81*t83*t99-32.0*t125*t127*t331*t81*t99+96.0*t125*t185*
4759 t275*t81*t99+96.0*t122*t125*t275*t81*t99+160.0*t127*t185*t273*
4760 t81*t99-160.0*t122*t127*t273*t81*t99+32.0*t125*t127*t267*t81*
4761 t99+t81*t83*t84*t761*t99+0.019751789702565*(t707+t703+480.0*
4762 t273*t275)*t81*t86*t90*t93-0.00146492440294*t81*t1*t2*t3*t103*
4763 t515*t90*t93-0.00146492440294*t81*t1*t2*t3*t103*t499*t90*t93+
4764 9.76616268626835E-4*t81*t1*t2*t3*t240*t336*t90*t93+0.003906465074507*
4765 t81*t1*t2*t3*t240*t298*t90*t93+9.76616268626835E-4*t81*t1*
4766 t2*t3*t240*t277*t90*t93-0.004557542586925*t81*t1*t2*t3*t407*
4767 t187*t90*t93-0.004557542586925*t81*t1*t2*t3*t407*t128*t90*
4768 t93+0.019751789702565*t81*t85*t86*t761*t93+0.03950357940513*
4769 t81*t128*t86*t514*t93-0.00146492440294*t81*t1*t2*t3*t103*t85*
4770 t514*t93+0.03950357940513*t81*t187*t86*t493*t93-0.00146492440294*
4771 t81*t1*t2*t3*t103*t85*t493*t93+0.019751789702565*t81*t277*
4772 t86*t331*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*t85*t331*
4773 t93-0.00146492440294*t81*t1*t2*t3*t103*t128*t331*t93+0.079007158810261*
4774 t81*t298*t86*t297*t93+0.003906465074507*t81*t1*t2*t3*t240*
4775 t85*t297*t93-0.002929848805881*t81*t1*t2*t3*t103*t187*t297*
4776 t93-0.002929848805881*t81*t1*t2*t3*t103*t128*t297*t93+0.019751789702565*
4777 t81*t336*t86*t267*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*
4778 t85*t267*t93-0.00146492440294*t81*t1*t2*t3*t103*t187*t267*
4779 t93+0.03950357940513*t81*t499*t86*t185*t93-0.004557542586925*
4780 t81*t1*t2*t3*t407*t85*t185*t93-0.002929848805881*t81*t1*t2*
4781 t3*t103*t298*t185*t93-0.00146492440294*t81*t1*t2*t3*t103*t277*
4782 t185*t93+0.001953232537254*t81*t1*t2*t3*t240*t187*t185*t93+
4783 0.003906465074507*t81*t1*t2*t3*t240*t128*t185*t93+0.03950357940513*
4784 t81*t515*t86*t122*t93-0.004557542586925*t81*t1*t2*t3*t407*
4785 t85*t122*t93-0.00146492440294*t81*t1*t2*t3*t103*t336*t122*
4786 t93-0.002929848805881*t81*t1*t2*t3*t103*t298*t122*t93+0.003906465074507*
4787 t81*t1*t2*t3*t240*t187*t122*t93+0.001953232537254*t81*t1*t2*
4788 t3*t240*t128*t122*t93-24.0*t275*t284*t81*t84*t90+192.0*t125*
4789 t133*t275*t81*t90+2.0*t133*t514*t81*t83*t84+2.0*t133*t493*
4790 t81*t83*t84+2.0*t185*t463*t81*t83*t84+2.0*t122*t463*t81*t83*
4791 t84+4.0*t284*t297*t81*t83*t84+8.0*t127*t133*t331*t81*t84+8.0*
4792 t127*t185*t284*t81*t84-8.0*t122*t127*t284*t81*t84-24.0*t133*
4793 t185*t275*t81*t84-24.0*t122*t133*t275*t81*t84-8.0*t127*t133*
4794 t267*t81*t84-8.0*t125*t133*t331*t81*t83-32.0*t125*t133*t297*
4795 t81*t83-24.0*t125*t185*t284*t81*t83-24.0*t122*t125*t284*t81*
4796 t83+120.0*t133*t185*t273*t81*t83+120.0*t122*t133*t273*t81*
4797 t83-8.0*t125*t133*t267*t81*t83-64.0*t125*t127*t133*t185*t81+
4798 64.0*t122*t125*t127*t133*t81+t719+t717+t715+t713+t712+t711+
4799 t705+t697+t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+
4800 t686+t685+t684+t682+t681+t680+t679+t678+t677+t676+t675+t674+
4801 t672+t666+t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+
4802 t655+t653+t652+t651+t650+t649+t648+t647+t646+t644-2050.77940420156*
4803 t81*t187*t411*t86*t412*t90*t413-2050.77940420156*t81*t128*
4804 t411*t86*t412*t90*t413-2050.77940420156*t81*t85*t411*t86*t412*
4805 t185*t413-2050.77940420156*t81*t85*t411*t86*t412*t122*t413+
4806 t81*t83*t84*t331*t284+t81*t83*t84*t267*t284+207.7890707925104*
4807 t81*t187*t411*t86*t416*t90*t246+207.7890707925104*t81*t128*
4808 t411*t86*t416*t90*t246-17.31575589937587*t81*t336*t244*t86*
4809 t245*t90*t246-69.26302359750346*t81*t298*t244*t86*t245*t90*
4810 t246-17.31575589937587*t81*t277*t244*t86*t245*t90*t246-103.8945353962552*
4811 t81*t187*t252*t109*t86*t245*t90*t246-103.8945353962552*t81*
4812 t128*t252*t109*t86*t245*t90*t246+3.85275568761113*t81*t1*t2*
4813 t3*t103*t187*t244*t245*t90*t246+3.85275568761113*t81*t1*t2*
4814 t3*t103*t128*t244*t245*t90*t246-17.31575589937587*t81*t85*
4815 t244*t86*t245*t331*t246-69.26302359750346*t81*t85*t244*t86*
4816 t245*t297*t246-17.31575589937587*t81*t85*t244*t86*t245*t267*
4817 t246+207.7890707925104*t81*t85*t411*t86*t416*t185*t246-34.63151179875173*
4818 t81*t187*t244*t86*t245*t185*t246-69.26302359750346*t81*t128*
4819 t244*t86*t245*t185*t246-103.8945353962552*t81*t85*t252*t109*
4820 t86*t245*t185*t246+3.85275568761113*t81*t1*t2*t3*t103*t85*
4821 t244*t245*t185*t246+207.7890707925104*t81*t85*t411*t86*t416*
4822 t122*t246-69.26302359750346*t81*t187*t244*t86*t245*t122*t246-
4823 34.63151179875173*t81*t128*t244*t86*t245*t122*t246-103.8945353962552*
4824 t81*t85*t252*t109*t86*t245*t122*t246+3.85275568761113*t81*
4825 t1*t2*t3*t103*t85*t244*t245*t122*t246+1.169644679491041*t81*
4826 t336*t244*t86*t249*t90*t111+4.678578717964164*t81*t298*t244*
4827 t86*t249*t90*t111+1.169644679491041*t81*t277*t244*t86*t249*
4828 t90*t111+7.017868076946245*t81*t187*t252*t109*t86*t249*t90*
4829 t111+7.017868076946245*t81*t128*t252*t109*t86*t249*t90*t111-
4830 0.260245941186757*t81*t1*t2*t3*t103*t187*t244*t249*t90*t111-
4831 0.260245941186757*t81*t1*t2*t3*t103*t128*t244*t249*t90*t111-
4832 7.017868076946245*t81*t187*t411*t86*t245*t90*t111-7.017868076946245*
4833 t81*t128*t411*t86*t245*t90*t111-1.169644679491041*t81*t187*
4834 t431*t86*t110*t90*t111-1.169644679491041*t81*t128*t431*t86*
4835 t110*t90*t111-0.58482233974552*t81*t336*t252*t86*t110*t90*
4836 t111-2.339289358982082*t81*t298*t252*t86*t110*t90*t111-0.58482233974552*
4837 t81*t277*t252*t86*t110*t90*t111-1.169644679491041*t81*t515*
4838 t109*t86*t110*t90*t111-1.169644679491041*t81*t499*t109*t86*
4839 t110*t90*t111+0.130122970593378*t81*t1*t2*t3*t103*t187*t252*
4840 t110*t90*t111+0.130122970593378*t81*t1*t2*t3*t103*t128*t252*
4841 t110*t90*t111+0.043374323531126*t81*t1*t2*t3*t103*t336*t109*
4842 t110*t90*t111+0.173497294124504*t81*t1*t2*t3*t103*t298*t109*
4843 t110*t90*t111+0.043374323531126*t81*t1*t2*t3*t103*t277*t109*
4844 t110*t90*t111-0.173497294124504*t81*t1*t2*t3*t240*t187*t109*
4845 t110*t90*t111-0.173497294124504*t81*t1*t2*t3*t240*t128*t109*
4846 t110*t90*t111-1.169644679491041*t81*t85*t109*t86*t110*t514*
4847 t111-1.169644679491041*t81*t85*t109*t86*t110*t493*t111+1.169644679491041*
4848 t81*t85*t244*t86*t249*t331*t111-0.58482233974552*t81*t85*t252*
4849 t86*t110*t331*t111-1.169644679491041*t81*t128*t109*t86*t110*
4850 t331*t111+0.043374323531126*t81*t1*t2*t3*t103*t85*t109*t110*
4851 t331*t111+4.678578717964164*t81*t85*t244*t86*t249*t297*t111-
4852 2.339289358982082*t81*t85*t252*t86*t110*t297*t111-2.339289358982082*
4853 t81*t187*t109*t86*t110*t297*t111-2.339289358982082*t81*t128*
4854 t109*t86*t110*t297*t111+0.173497294124504*t81*t1*t2*t3*t103*
4855 t85*t109*t110*t297*t111+1.169644679491041*t81*t85*t244*t86*
4856 t249*t267*t111-0.58482233974552*t81*t85*t252*t86*t110*t267*
4857 t111-1.169644679491041*t81*t187*t109*t86*t110*t267*t111+0.043374323531126*
4858 t81*t1*t2*t3*t103*t85*t109*t110*t267*t111+2.339289358982082*
4859 t81*t187*t244*t86*t249*t185*t111+4.678578717964164*t81*t128*
4860 t244*t86*t249*t185*t111+7.017868076946245*t81*t85*t252*t109*
4861 t86*t249*t185*t111-0.260245941186757*t81*t1*t2*t3*t103*t85*
4862 t244*t249*t185*t111-7.017868076946245*t81*t85*t411*t86*t245*
4863 t185*t111-1.169644679491041*t81*t85*t431*t86*t110*t185*t111-
4864 1.169644679491041*t81*t187*t252*t86*t110*t185*t111-2.339289358982082*
4865 t81*t128*t252*t86*t110*t185*t111-2.339289358982082*t81*t298*
4866 t109*t86*t110*t185*t111-1.169644679491041*t81*t277*t109*t86*
4867 t110*t185*t111+0.130122970593378*t81*t1*t2*t3*t103*t85*t252*
4868 t110*t185*t111-0.173497294124504*t81*t1*t2*t3*t240*t85*t109*
4869 t110*t185*t111+0.086748647062252*t81*t1*t2*t3*t103*t187*t109*
4870 t110*t185*t111+0.173497294124504*t81*t1*t2*t3*t103*t128*t109*
4871 t110*t185*t111+4.678578717964164*t81*t187*t244*t86*t249*t122*
4872 t111+2.339289358982082*t81*t128*t244*t86*t249*t122*t111+7.017868076946245*
4873 t81*t85*t252*t109*t86*t249*t122*t111-0.260245941186757*t81*
4874 t1*t2*t3*t103*t85*t244*t249*t122*t111-7.017868076946245*t81*
4875 t85*t411*t86*t245*t122*t111-1.169644679491041*t81*t85*t431*
4876 t86*t110*t122*t111-2.339289358982082*t81*t187*t252*t86*t110*
4877 t122*t111-1.169644679491041*t81*t128*t252*t86*t110*t122*t111-
4878 1.169644679491041*t81*t336*t109*t86*t110*t122*t111-2.339289358982082*
4879 t81*t298*t109*t86*t110*t122*t111+0.130122970593378*t81*t1*
4880 t2*t3*t103*t85*t252*t110*t122*t111-0.173497294124504*t81*t1*
4881 t2*t3*t240*t85*t109*t110*t122*t111+0.173497294124504*t81*t1*
4882 t2*t3*t103*t187*t109*t110*t122*t111+0.086748647062252*t81*
4883 t1*t2*t3*t103*t128*t109*t110*t122*t111)+192.0*t125*t275*t81*
4884 t90*t99+2.0*t514*t81*t83*t84*t99+2.0*t493*t81*t83*t84*t99+
4885 8.0*t127*t331*t81*t84*t99-8.0*t127*t267*t81*t84*t99-8.0*t125*
4886 t331*t81*t83*t99-32.0*t125*t297*t81*t83*t99+120.0*t185*t273*
4887 t81*t83*t99+120.0*t122*t273*t81*t83*t99-8.0*t125*t267*t81*
4888 t83*t99-64.0*t125*t127*t185*t81*t99+64.0*t122*t125*t127*t81*
4889 t99+0.03950357940513*t81*t515*t86*t90*t93+0.03950357940513*
4890 t81*t499*t86*t90*t93-0.00146492440294*t81*t1*t2*t3*t103*t336*
4891 t90*t93-0.005859697611761*t81*t1*t2*t3*t103*t298*t90*t93-0.00146492440294*
4892 t81*t1*t2*t3*t103*t277*t90*t93+0.005859697611761*t81*t1*t2*
4893 t3*t240*t187*t90*t93+0.005859697611761*t81*t1*t2*t3*t240*t128*
4894 t90*t93+0.03950357940513*t81*t85*t86*t514*t93+0.03950357940513*
4895 t81*t85*t86*t493*t93+0.03950357940513*t81*t128*t86*t331*t93-
4896 0.00146492440294*t81*t1*t2*t3*t103*t85*t331*t93+0.079007158810261*
4897 t81*t187*t86*t297*t93+0.079007158810261*t81*t128*t86*t297*
4898 t93-0.005859697611761*t81*t1*t2*t3*t103*t85*t297*t93+0.03950357940513*
4899 t81*t187*t86*t267*t93-0.00146492440294*t81*t1*t2*t3*t103*t85*
4900 t267*t93+0.079007158810261*t81*t298*t86*t185*t93+0.03950357940513*
4901 t81*t277*t86*t185*t93+0.005859697611761*t81*t1*t2*t3*t240*
4902 t85*t185*t93-0.002929848805881*t81*t1*t2*t3*t103*t187*t185*
4903 t93-0.005859697611761*t81*t1*t2*t3*t103*t128*t185*t93+0.03950357940513*
4904 t81*t336*t86*t122*t93+0.079007158810261*t81*t298*t86*t122*
4905 t93+0.005859697611761*t81*t1*t2*t3*t240*t85*t122*t93-0.005859697611761*
4906 t81*t1*t2*t3*t103*t187*t122*t93-0.002929848805881*t81*t1*t2*
4907 t3*t103*t128*t122*t93-48.0*t133*t275*t81*t84*t90+2.0*t133*
4908 t331*t81*t83*t84+8.0*t133*t297*t81*t83*t84+6.0*t185*t284*t81*
4909 t83*t84+6.0*t122*t284*t81*t83*t84+2.0*t133*t267*t81*t83*t84+
4910 16.0*t127*t133*t185*t81*t84-16.0*t122*t127*t133*t81*t84-48.0*
4911 t125*t133*t185*t81*t83-48.0*t122*t125*t133*t81*t83+t639+t637+
4912 t636+t635+t634+t633+t632+t631+t630+t629+t628+t627+t626+t625+
4913 t624+t623+t622+t621+t620+t619+t618+t617+t616+t615+t614+t613+
4914 t516+t503-103.8945353962552*t81*t187*t244*t86*t245*t90*t246-
4915 103.8945353962552*t81*t128*t244*t86*t245*t90*t246-103.8945353962552*
4916 t81*t85*t244*t86*t245*t185*t246-103.8945353962552*t81*t85*
4917 t244*t86*t245*t122*t246+7.017868076946245*t81*t187*t244*t86*
4918 t249*t90*t111+7.017868076946245*t81*t128*t244*t86*t249*t90*
4919 t111-3.508934038473122*t81*t187*t252*t86*t110*t90*t111-3.508934038473122*
4920 t81*t128*t252*t86*t110*t90*t111-1.169644679491041*t81*t336*
4921 t109*t86*t110*t90*t111-4.678578717964164*t81*t298*t109*t86*
4922 t110*t90*t111-1.169644679491041*t81*t277*t109*t86*t110*t90*
4923 t111+0.260245941186757*t81*t1*t2*t3*t103*t187*t109*t110*t90*
4924 t111+0.260245941186757*t81*t1*t2*t3*t103*t128*t109*t110*t90*
4925 t111-1.169644679491041*t81*t85*t109*t86*t110*t331*t111-4.678578717964164*
4926 t81*t85*t109*t86*t110*t297*t111-1.169644679491041*t81*t85*
4927 t109*t86*t110*t267*t111+7.017868076946245*t81*t85*t244*t86*
4928 t249*t185*t111-3.508934038473122*t81*t85*t252*t86*t110*t185*
4929 t111-2.339289358982082*t81*t187*t109*t86*t110*t185*t111-4.678578717964164*
4930 t81*t128*t109*t86*t110*t185*t111+0.260245941186757*t81*t1*
4931 t2*t3*t103*t85*t109*t110*t185*t111+7.017868076946245*t81*t85*
4932 t244*t86*t249*t122*t111-3.508934038473122*t81*t85*t252*t86*
4933 t110*t122*t111-4.678578717964164*t81*t187*t109*t86*t110*t122*
4934 t111-2.339289358982082*t81*t128*t109*t86*t110*t122*t111+0.260245941186757*
4935 t81*t1*t2*t3*t103*t85*t109*t110*t122*t111)+2.0*t137*t518+2.0*
4936 t139*t517+2.0*t190*t507+2.0*t191*t506+t296*t343+4.0*t300*t301+
4937 t344*t294+(-0.032013971342222*t21*t58*t215*t67*t315+0.001140017575253*
4938 t21*t58*t215*t60*t65*t315+5.542491750399999E-4*t29*t58*t214*
4939 t65*t315-1.3779534827519999E-5*t21*t58*t215*t66*t63*t315-1.7483413094399997E-5*
4940 t29*t58*t214*t60*t63*t315+7.110469926911999E-8*t21*t58*t215*
4941 t64*t138*t315+1.9782652133376E-7*t29*t58*t214*t66*t138*t315-
4942 1.353186312192E-10*t21*t58*t215*t61*t295*t315-9.725147283456E-10*
4943 t29*t58*t214*t64*t295*t315+1.771443899596801E-12*t29*t58*t214*
4944 t61*t479*t315+5.542491750399999E-4*t21*t156*t215*t65*t314-
4945 1.7483413094399997E-5*t21*t156*t215*t60*t63*t314-9.985417543679999E-6*
4946 t29*t156*t214*t63*t314+1.9782652133376E-7*t21*t156*t215*t66*
4947 t138*t314+2.9645634797568E-7*t29*t156*t214*t60*t138*t314-9.725147283456E-10*
4948 t21*t156*t215*t64*t295*t314-3.2190326636544E-9*t29*t156*t214*
4949 t66*t295*t314+1.7714438995968E-12*t21*t156*t215*t61*t479*t314+
4950 1.530774757048321E-11*t29*t156*t214*t64*t479*t314-2.705477955747841E-14*
4951 t29*t156*t214*t61*t720*t314)*t148;
4952 d4fdrararbga = 2.0*t137*t519+t199*t506+2.0*t300*t306+
4953 t345*t294+t512*t190+(0.017462166186667*grada*t58*t215*t67*
4954 t173-6.2182776832E-4*grada*t58*t215*t60*t65*t173-0.00102032234496*
4955 t196*t58*t214*t65*t173+7.516109905919999E-6*grada*t58*t215*
4956 t66*t63*t173+3.21853741056E-5*t196*t58*t214*t60*t63*t173+7.48906315776E-6*
4957 t195*t58*t213*t63*t173-3.878438141952E-8*grada*t58*t215*t64*
4958 t138*t173-3.6418064154624E-7*t196*t58*t214*t66*t138*t173-2.2234226098176E-7*
4959 t195*t58*t213*t60*t138*t173+7.38101624832E-11*grada*t58*t215*
4960 t61*t295*t173+1.7903112044544E-9*t196*t58*t214*t64*t295*t173+
4961 2.4142744977408E-9*t195*t58*t213*t66*t295*t173-3.2610671788032E-12*
4962 t196*t58*t214*t61*t479*t173-1.14808106778624E-11*t195*t58*
4963 t213*t64*t479*t173+2.029108466810881E-14*t195*t58*t213*t61*
4964 t720*t173)*t148;
4965 d4fdrararbgb = 2.0*t137*t520+t207*t506+2.0*t300*t307+
4966 t350*t294+t513*t190+(0.017462166186667*t21*gradb*t215*t67*
4967 t173-6.2182776832E-4*t21*gradb*t215*t60*t65*t173-3.0231773184E-4*
4968 t29*gradb*t214*t65*t173+7.516109905919999E-6*t21*gradb*t215*
4969 t66*t63*t173+9.5364071424E-6*t29*gradb*t214*t60*t63*t173-3.878438141952E-8*
4970 t21*gradb*t215*t64*t138*t173-1.0790537527296E-7*t29*gradb*
4971 t214*t66*t138*t173+7.38101624832E-11*t21*gradb*t215*t61*t295*
4972 t173+5.304625790976E-10*t29*gradb*t214*t64*t295*t173-9.662421270528E-13*
4973 t29*gradb*t214*t61*t479*t173-4.1568688128E-4*t21*t204*t215*
4974 t65*t172+1.31125598208E-5*t21*t204*t215*t60*t63*t172+7.48906315776E-6*
4975 t29*t204*t214*t63*t172-1.4836989100032E-7*t21*t204*t215*t66*
4976 t138*t172-2.2234226098176E-7*t29*t204*t214*t60*t138*t172+7.293860462592E-10*
4977 t21*t204*t215*t64*t295*t172+2.4142744977408E-9*t29*t204*t214*
4978 t66*t295*t172-1.328582924697601E-12*t21*t204*t215*t61*t479*
4979 t172-1.14808106778624E-11*t29*t204*t214*t64*t479*t172+2.029108466810881E-14*
4980 t29*t204*t214*t61*t720*t172)*t148;
4981 d4fdrararbab = 0.0;
4982 d4fdraragaga = 2.0*t34*t50*t522*t54*t55*rhoa+t50*t352*
4983 t222*t34*t55*rhoa-2.0*t218*t220*t34*t352*t50*rhoa-0.03109*
4984 t19*(0.334552142222222*t32*t215+1.908973703111112*t21*t30*
4985 t214-36.52114729244445*t29*t27*t213+69.57260511232002*t26*
4986 t24*t212-48.34252654728535*t20*t43*t211+15.46954954069334*
4987 t42*t209*t210-2.325940142080001*t208*t361*t509+0.133390401536*
4988 t360*t597*t762)*t34*rhoa+32.1646831778707*t217*t352*t218*t34*
4989 t219*rhoa-0.333333333333333*t3*t35*t353*t7+2.0*t34*t352*t50*
4990 t54*t55+0.001419638488889*t1*t2*t3*t19*t352*t53+2.0*t137*t524-
4991 2.0*t11*t3*t35*t523-0.75*(-0.040717326222222*t40*t215+0.033781261596444*
4992 t21*t39*t214-0.001900235597369*t29*t38*t213+3.812942392069689E-5*
4993 t26*t37*t212-3.690446131764338E-7*t20*t56*t211+1.871412445548089E-9*
4994 t42*t223*t210-4.79418643032747E-12*t208*t376*t509+4.90000962901333E-15*
4995 t360*t612*t762)*t3*t35*t52-0.06218*t19*t522*t34+t354*t294+
4996 (0.21724032*t215*t68-0.01179318272*t215*t60*t67-0.06131601536*
4997 t21*t214*t67+1.6242631680000002E-4*t215*t66*t65+0.00218346341376*
4998 t21*t214*t60*t65+0.00133208750592*t29*t213*t65-9.044695756799999E-7*
4999 t215*t64*t63-2.6391795010560004E-5*t21*t214*t66*t63-4.20197939712E-5*
5000 t29*t213*t60*t63-5.616797368320001E-6*t26*t212*t63+1.84525406208E-9*
5001 t215*t61*t138+1.3618606657536E-7*t21*t214*t64*t138+4.754580597964801E-7*
5002 t29*t213*t66*t138+1.6675669573632E-7*t26*t212*t60*t138-2.591743205376E-10*
5003 t21*t214*t61*t295-2.3373507391488E-9*t29*t213*t64*t295-1.8107058733056E-9*
5004 t26*t212*t66*t295+4.2575043723264E-12*t29*t213*t61*t479+8.6106080083968E-12*
5005 t26*t212*t64*t479-1.521831350108161E-14*t26*t212*t61*t720)*
5006 t148-0.136986666666667*t1*t2*t3*t50*t352*t54*t55*t12+0.004258915466667*
5007 t1*t2*t3*t19*t522*t12;
5008 d4fdraragagb = 2.0*t137*t525+t355*t294+(-0.01309662464*
5009 grada*gradb*t215*t67*t59+4.663708262400001E-4*grada*gradb*
5010 t215*t60*t65*t59+7.652417587200001E-4*t196*gradb*t214*t65*
5011 t59-5.63708242944E-6*grada*gradb*t215*t66*t63*t59-2.4139030579200004E-5*
5012 t196*gradb*t214*t60*t63*t59-5.616797368320001E-6*t195*gradb*
5013 t213*t63*t59+2.908828606464E-8*grada*gradb*t215*t64*t138*t59+
5014 2.7313548115968E-7*t196*gradb*t214*t66*t138*t59+1.6675669573632E-7*
5015 t195*gradb*t213*t60*t138*t59-5.53576218624E-11*grada*gradb*
5016 t215*t61*t295*t59-1.3427334033408E-9*t196*gradb*t214*t64*t295*
5017 t59-1.8107058733056E-9*t195*gradb*t213*t66*t295*t59+2.4458003841024E-12*
5018 t196*gradb*t214*t61*t479*t59+8.6106080083968E-12*t195*gradb*
5019 t213*t64*t479*t59-1.521831350108161E-14*t195*gradb*t213*t61*
5020 t720*t59)*t148;
5021 d4fdraragaab = 0.0;
5022 d4fdraragbgb = 2.0*t137*t526+t359*t294+(-0.00654831232*
5023 t21*t215*t67*t59+2.3318541312000003E-4*t21*t215*t60*t65*t59+
5024 1.1336914944E-4*t29*t214*t65*t59-2.81854121472E-6*t21*t215*
5025 t66*t63*t59-3.5761526784E-6*t29*t214*t60*t63*t59+1.454414303232E-8*
5026 t21*t215*t64*t138*t59+4.046451572736E-8*t29*t214*t66*t138*
5027 t59-2.767881093120001E-11*t21*t215*t61*t295*t59-1.989234671616E-10*
5028 t29*t214*t64*t295*t59+3.623407976448E-13*t29*t214*t61*t479*
5029 t59+3.1176516096E-4*t21*t58*t215*t65*t158-9.834419865600001E-6*
5030 t21*t58*t215*t60*t63*t158-5.616797368320001E-6*t29*t58*t214*
5031 t63*t158+1.1127741825024001E-7*t21*t58*t215*t66*t138*t158+
5032 1.6675669573632E-7*t29*t58*t214*t60*t138*t158-5.470395346944E-10*
5033 t21*t58*t215*t64*t295*t158-1.8107058733056E-9*t29*t58*t214*
5034 t66*t295*t158+9.964371935232E-13*t21*t58*t215*t61*t479*t158+
5035 8.6106080083968E-12*t29*t58*t214*t64*t479*t158-1.521831350108161E-14*
5036 t29*t58*t214*t61*t720*t158)*t148;
5037 d4fdraragbab = 0.0;
5038 d4fdraraabab = 0.0;
5039 d4fdrarbrbrb = t69*(t70*(-192.0*t125*t81*t82*t90*t99+
5040 960.0*t127*t452*t81*t90*t99+72.0*t185*t81*t82*t84*t99-24.0*
5041 t122*t81*t82*t84*t99+4.0*t127*t557*t81*t84*t99-12.0*t127*t514*
5042 t81*t84*t99-36.0*t275*t331*t81*t84*t99-4.0*t125*t557*t81*t83*
5043 t99-12.0*t125*t514*t81*t83*t99-360.0*t185*t452*t81*t83*t99-
5044 120.0*t122*t452*t81*t83*t99+60.0*t273*t331*t81*t83*t99+96.0*
5045 t125*t127*t297*t81*t99+144.0*t125*t185*t275*t81*t99-144.0*
5046 t122*t125*t275*t81*t99-240.0*t127*t185*t273*t81*t99-240.0*
5047 t122*t127*t273*t81*t99+t81*t83*t84*t763*t99+0.019751789702565*
5048 t81*(192.0*t125*t82+t707+t700-960.0*t127*t452)*t86*t90*t93-
5049 7.324622014701263E-4*t81*t1*t2*t3*t103*t563*t90*t93-0.00219738660441*
5050 t81*t1*t2*t3*t103*t515*t90*t93+0.002929848805881*t81*t1*t2*
5051 t3*t240*t336*t90*t93-0.006836313880388*t81*t1*t2*t3*t407*t187*
5052 t90*t93-0.002278771293463*t81*t1*t2*t3*t407*t128*t90*t93+0.019751789702565*
5053 t81*t85*t86*t763*t93+0.019751789702565*t81*t128*t86*t557*t93-
5054 7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t557*t93+0.059255369107696*
5055 t81*t187*t86*t514*t93-0.00219738660441*t81*t1*t2*t3*t103*t85*
5056 t514*t93+0.059255369107696*t81*t298*t86*t331*t93+0.002929848805881*
5057 t81*t1*t2*t3*t240*t85*t331*t93-0.00219738660441*t81*t1*t2*
5058 t3*t103*t187*t331*t93-0.00219738660441*t81*t1*t2*t3*t103*t128*
5059 t331*t93+0.059255369107696*t81*t336*t86*t297*t93-0.004394773208821*
5060 t81*t1*t2*t3*t103*t187*t297*t93+0.059255369107696*t81*t515*
5061 t86*t185*t93-0.006836313880388*t81*t1*t2*t3*t407*t85*t185*
5062 t93-0.00219738660441*t81*t1*t2*t3*t103*t336*t185*t93-0.004394773208821*
5063 t81*t1*t2*t3*t103*t298*t185*t93+0.005859697611761*t81*t1*t2*
5064 t3*t240*t187*t185*t93+0.019751789702565*t81*t563*t86*t122*
5065 t93-0.002278771293463*t81*t1*t2*t3*t407*t85*t122*t93-0.00219738660441*
5066 t81*t1*t2*t3*t103*t336*t122*t93+48.0*t133*t81*t82*t84*t90-
5067 8.0*t127*t463*t81*t84*t90+96.0*t125*t127*t284*t81*t90-480.0*
5068 t127*t133*t273*t81*t90+3.0*t133*t514*t81*t83*t84+3.0*t185*
5069 t463*t81*t83*t84+3.0*t284*t331*t81*t83*t84-24.0*t127*t133*
5070 t297*t81*t84-12.0*t127*t185*t284*t81*t84-12.0*t122*t127*t284*
5071 t81*t84-36.0*t133*t185*t275*t81*t84+36.0*t122*t133*t275*t81*
5072 t84-24.0*t125*t133*t331*t81*t83-36.0*t125*t185*t284*t81*t83-
5073 12.0*t122*t125*t284*t81*t83+180.0*t133*t185*t273*t81*t83+60.0*
5074 t122*t133*t273*t81*t83+96.0*t125*t127*t133*t185*t81+96.0*t122*
5075 t125*t127*t133*t81+t756+t755+t754+t753+t752+t751+t750+t749+
5076 t747+t746+t745+t744+t743+t742+t741+t740+t739+t738+t737+t736+
5077 t735+t734+t733+t732+t731+t717+t715+t713+t712+t711+t705+t697+
5078 t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+t686+t685+
5079 t684+t682+t681+t680+t679+t678+t677+t676+t675+t674+t672+t666+
5080 t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+t655+t653+
5081 t652+t651+t650+t649+t648+t647+t646+t644+t81*t83*t84*t122*t463-
5082 3076.169106302339*t81*t187*t411*t86*t412*t90*t413-1025.38970210078*
5083 t81*t128*t411*t86*t412*t90*t413-3076.169106302339*t81*t85*
5084 t411*t86*t412*t185*t413-1025.38970210078*t81*t85*t411*t86*
5085 t412*t122*t413+311.6836061887656*t81*t187*t411*t86*t416*t90*
5086 t246+103.8945353962552*t81*t128*t411*t86*t416*t90*t246-51.9472676981276*
5087 t81*t336*t244*t86*t245*t90*t246-155.8418030943828*t81*t187*
5088 t252*t109*t86*t245*t90*t246-51.9472676981276*t81*t128*t252*
5089 t109*t86*t245*t90*t246+5.779133531416695*t81*t1*t2*t3*t103*
5090 t187*t244*t245*t90*t246+1.926377843805565*t81*t1*t2*t3*t103*
5091 t128*t244*t245*t90*t246-51.9472676981276*t81*t85*t244*t86*
5092 t245*t331*t246+311.6836061887656*t81*t85*t411*t86*t416*t185*
5093 t246-103.8945353962552*t81*t187*t244*t86*t245*t185*t246-155.8418030943828*
5094 t81*t85*t252*t109*t86*t245*t185*t246+5.779133531416695*t81*
5095 t1*t2*t3*t103*t85*t244*t245*t185*t246+103.8945353962552*t81*
5096 t85*t411*t86*t416*t122*t246-51.9472676981276*t81*t85*t252*
5097 t109*t86*t245*t122*t246+1.926377843805565*t81*t1*t2*t3*t103*
5098 t85*t244*t245*t122*t246+t81*t83*t84*t557*t133+3.508934038473122*
5099 t81*t336*t244*t86*t249*t90*t111+10.52680211541937*t81*t187*
5100 t252*t109*t86*t249*t90*t111+3.508934038473122*t81*t128*t252*
5101 t109*t86*t249*t90*t111-0.390368911780135*t81*t1*t2*t3*t103*
5102 t187*t244*t249*t90*t111-0.130122970593378*t81*t1*t2*t3*t103*
5103 t128*t244*t249*t90*t111-10.52680211541937*t81*t187*t411*t86*
5104 t245*t90*t111-3.508934038473122*t81*t128*t411*t86*t245*t90*
5105 t111-1.754467019236561*t81*t187*t431*t86*t110*t90*t111-0.58482233974552*
5106 t81*t128*t431*t86*t110*t90*t111-1.754467019236561*t81*t336*
5107 t252*t86*t110*t90*t111-0.58482233974552*t81*t563*t109*t86*
5108 t110*t90*t111-1.754467019236561*t81*t515*t109*t86*t110*t90*
5109 t111+0.195184455890067*t81*t1*t2*t3*t103*t187*t252*t110*t90*
5110 t111+0.065061485296689*t81*t1*t2*t3*t103*t128*t252*t110*t90*
5111 t111+0.130122970593378*t81*t1*t2*t3*t103*t336*t109*t110*t90*
5112 t111-0.260245941186757*t81*t1*t2*t3*t240*t187*t109*t110*t90*
5113 t111-0.086748647062252*t81*t1*t2*t3*t240*t128*t109*t110*t90*
5114 t111-0.58482233974552*t81*t85*t109*t86*t110*t557*t111-1.754467019236561*
5115 t81*t85*t109*t86*t110*t514*t111+3.508934038473122*t81*t85*
5116 t244*t86*t249*t331*t111-1.754467019236561*t81*t85*t252*t86*
5117 t110*t331*t111-1.754467019236561*t81*t187*t109*t86*t110*t331*
5118 t111-1.754467019236561*t81*t128*t109*t86*t110*t331*t111+0.130122970593378*
5119 t81*t1*t2*t3*t103*t85*t109*t110*t331*t111-3.508934038473122*
5120 t81*t187*t109*t86*t110*t297*t111+7.017868076946245*t81*t187*
5121 t244*t86*t249*t185*t111+10.52680211541937*t81*t85*t252*t109*
5122 t86*t249*t185*t111-0.390368911780135*t81*t1*t2*t3*t103*t85*
5123 t244*t249*t185*t111-10.52680211541937*t81*t85*t411*t86*t245*
5124 t185*t111-1.754467019236561*t81*t85*t431*t86*t110*t185*t111-
5125 3.508934038473122*t81*t187*t252*t86*t110*t185*t111-1.754467019236561*
5126 t81*t336*t109*t86*t110*t185*t111-3.508934038473122*t81*t298*
5127 t109*t86*t110*t185*t111+0.195184455890067*t81*t1*t2*t3*t103*
5128 t85*t252*t110*t185*t111-0.260245941186757*t81*t1*t2*t3*t240*
5129 t85*t109*t110*t185*t111+0.260245941186757*t81*t1*t2*t3*t103*
5130 t187*t109*t110*t185*t111+3.508934038473122*t81*t85*t252*t109*
5131 t86*t249*t122*t111-0.130122970593378*t81*t1*t2*t3*t103*t85*
5132 t244*t249*t122*t111-3.508934038473122*t81*t85*t411*t86*t245*
5133 t122*t111-0.58482233974552*t81*t85*t431*t86*t110*t122*t111-
5134 1.754467019236561*t81*t336*t109*t86*t110*t122*t111+0.065061485296689*
5135 t81*t1*t2*t3*t103*t85*t252*t110*t122*t111-0.086748647062252*
5136 t81*t1*t2*t3*t240*t85*t109*t110*t122*t111)+48.0*t81*t82*t84*
5137 t90*t99-480.0*t127*t273*t81*t90*t99+3.0*t514*t81*t83*t84*t99-
5138 24.0*t127*t297*t81*t84*t99-36.0*t185*t275*t81*t84*t99-24.0*
5139 t125*t331*t81*t83*t99+180.0*t185*t273*t81*t83*t99+96.0*t122*
5140 t125*t127*t81*t99+0.059255369107696*t81*t515*t86*t90*t93-0.004394773208821*
5141 t81*t1*t2*t3*t103*t336*t90*t93+0.008789546417642*t81*t1*t2*
5142 t3*t240*t187*t90*t93+0.059255369107696*t81*t85*t86*t514*t93+
5143 0.059255369107696*t81*t128*t86*t331*t93-0.004394773208821*
5144 t81*t1*t2*t3*t103*t85*t331*t93+0.118510738215391*t81*t187*
5145 t86*t297*t93+0.118510738215391*t81*t298*t86*t185*t93+0.008789546417642*
5146 t81*t1*t2*t3*t240*t85*t185*t93-0.008789546417642*t81*t1*t2*
5147 t3*t103*t187*t185*t93+0.059255369107696*t81*t336*t86*t122*
5148 t93-24.0*t127*t284*t81*t84*t90+192.0*t125*t127*t133*t81*t90+
5149 6.0*t133*t331*t81*t83*t84+9.0*t185*t284*t81*t83*t84-24.0*t122*
5150 t127*t133*t81*t84-72.0*t125*t133*t185*t81*t83+t730+t729+t728+
5151 t727+t726+t725+t724+t723+t722+t721+t639+t637+t636+t635+t634+
5152 t633+t632+t631+t630+t629+t628+t627+t626+t625+t624+t623+t622+
5153 t621+t620+t619+t618+t617+t616+t615+t614+t613+t570+t568+t567+
5154 t564+t561+t559+t558+t474+t472+t467+t465+t450+t448+t433+t429+
5155 t427+t423+t422+t421+t420+t415-155.8418030943828*t81*t187*t244*
5156 t86*t245*t90*t246-155.8418030943828*t81*t85*t244*t86*t245*
5157 t185*t246+10.52680211541937*t81*t187*t244*t86*t249*t90*t111-
5158 5.263401057709684*t81*t187*t252*t86*t110*t90*t111-3.508934038473123*
5159 t81*t336*t109*t86*t110*t90*t111+0.390368911780135*t81*t1*t2*
5160 t3*t103*t187*t109*t110*t90*t111-3.508934038473123*t81*t85*
5161 t109*t86*t110*t331*t111+10.52680211541937*t81*t85*t244*t86*
5162 t249*t185*t111-5.263401057709684*t81*t85*t252*t86*t110*t185*
5163 t111-7.017868076946246*t81*t187*t109*t86*t110*t185*t111+0.390368911780135*
5164 t81*t1*t2*t3*t103*t85*t109*t110*t185*t111)+t139*t572+3.0*t190*
5165 t518+3.0*t191*t517+3.0*t300*t344+3.0*t301*t343+(-0.040745054435556*
5166 t21*t58*t48*t67*t535+0.001450931459413*t21*t58*t48*t60*t65*
5167 t535-1.753758978048E-5*t21*t58*t48*t66*t63*t535+9.049688997888E-8*
5168 t21*t58*t48*t64*t138*t535-1.722237124608E-10*t21*t58*t48*t61*
5169 t295*t535+0.00166274752512*t21*t156*t48*t65*t534-5.24502392832E-5*
5170 t21*t156*t48*t60*t63*t534+5.9347956400128E-7*t21*t156*t48*
5171 t66*t138*t534-2.9175441850368E-9*t21*t156*t48*t64*t295*t534+
5172 5.3143316987904E-12*t21*t156*t48*t61*t479*t534-9.985417543679999E-6*
5173 t21*t153*t48*t63*t533+2.9645634797568E-7*t21*t153*t48*t60*
5174 t138*t533-3.2190326636544E-9*t21*t153*t48*t66*t295*t533+1.530774757048321E-11*
5175 t21*t153*t48*t64*t479*t533-2.705477955747841E-14*t21*t153*
5176 t48*t61*t720*t533)*t148+t573*t137;
5177 d4fdrarbrbga = 2.0*t190*t519+t199*t517+2.0*t300*t345+
5178 t306*t343+(0.017462166186667*grada*t58*t48*t67*t315-6.2182776832E-4*
5179 grada*t58*t48*t60*t65*t315-4.1568688128E-4*t196*t58*t47*t65*
5180 t315+7.516109905919999E-6*grada*t58*t48*t66*t63*t315+1.31125598208E-5*
5181 t196*t58*t47*t60*t63*t315-3.878438141952E-8*grada*t58*t48*
5182 t64*t138*t315-1.4836989100032E-7*t196*t58*t47*t66*t138*t315+
5183 7.38101624832E-11*grada*t58*t48*t61*t295*t315+7.293860462592E-10*
5184 t196*t58*t47*t64*t295*t315-1.328582924697601E-12*t196*t58*
5185 t47*t61*t479*t315-3.0231773184E-4*grada*t156*t48*t65*t314+
5186 9.5364071424E-6*grada*t156*t48*t60*t63*t314+7.48906315776E-6*
5187 t196*t156*t47*t63*t314-1.0790537527296E-7*grada*t156*t48*t66*
5188 t138*t314-2.2234226098176E-7*t196*t156*t47*t60*t138*t314+5.304625790976E-10*
5189 grada*t156*t48*t64*t295*t314+2.4142744977408E-9*t196*t156*
5190 t47*t66*t295*t314-9.662421270528E-13*grada*t156*t48*t61*t479*
5191 t314-1.14808106778624E-11*t196*t156*t47*t64*t479*t314+2.029108466810881E-14*
5192 t196*t156*t47*t61*t720*t314)*t148+t574*t137;
5193 d4fdrarbrbgb = 2.0*t190*t520+t207*t517+2.0*t300*t350+
5194 t307*t343+(0.017462166186667*t21*gradb*t48*t67*t315-6.2182776832E-4*
5195 t21*gradb*t48*t60*t65*t315+7.516109905919999E-6*t21*gradb*
5196 t48*t66*t63*t315-3.878438141952E-8*t21*gradb*t48*t64*t138*
5197 t315+7.38101624832E-11*t21*gradb*t48*t61*t295*t315-0.00102032234496*
5198 t21*t204*t48*t65*t314+3.21853741056E-5*t21*t204*t48*t60*t63*
5199 t314-3.6418064154624E-7*t21*t204*t48*t66*t138*t314+1.7903112044544E-9*
5200 t21*t204*t48*t64*t295*t314-3.2610671788032E-12*t21*t204*t48*
5201 t61*t479*t314+7.48906315776E-6*t21*t203*t48*t63*t313-2.2234226098176E-7*
5202 t21*t203*t48*t60*t138*t313+2.4142744977408E-9*t21*t203*t48*
5203 t66*t295*t313-1.14808106778624E-11*t21*t203*t48*t64*t479*t313+
5204 2.029108466810881E-14*t21*t203*t48*t61*t720*t313)*t148+t579*
5205 t137;
5206 d4fdrarbrbab = 0.0;
5207 d4fdrarbgaga = (-0.00476240896*t58*t48*t67*t173+1.6958939136E-4*
5208 t58*t48*t60*t65*t173+5.668457472000001E-4*t21*t58*t47*t65*
5209 t173-2.04984815616E-6*t58*t48*t66*t63*t173-1.7880763392E-5*
5210 t21*t58*t47*t60*t63*t173-5.616797368320001E-6*t29*t58*t46*
5211 t63*t173+1.057755856896E-8*t58*t48*t64*t138*t173+2.0232257863680001E-7*
5212 t21*t58*t47*t66*t138*t173+1.6675669573632E-7*t29*t58*t46*t60*
5213 t138*t173-2.01300443136E-11*t58*t48*t61*t295*t173-9.94617335808E-10*
5214 t21*t58*t47*t64*t295*t173-1.8107058733056E-9*t29*t58*t46*t66*
5215 t295*t173+1.811703988224E-12*t21*t58*t47*t61*t479*t173+8.6106080083968E-12*
5216 t29*t58*t46*t64*t479*t173-1.521831350108161E-14*t29*t58*t46*
5217 t61*t720*t173)*t148+t580*t137+t524*t190+t354*t300;
5218 d4fdrarbgagb = (-0.00952481792*grada*gradb*t48*t67*t173+
5219 3.3917878272E-4*grada*gradb*t48*t60*t65*t173+2.2673829888E-4*
5220 t196*gradb*t47*t65*t173-4.09969631232E-6*grada*gradb*t48*t66*
5221 t63*t173-7.1523053568E-6*t196*gradb*t47*t60*t63*t173+2.115511713792E-8*
5222 grada*gradb*t48*t64*t138*t173+8.092903145472E-8*t196*gradb*
5223 t47*t66*t138*t173-4.02600886272E-11*grada*gradb*t48*t61*t295*
5224 t173-3.978469343232E-10*t196*gradb*t47*t64*t295*t173+7.246815952896E-13*
5225 t196*gradb*t47*t61*t479*t173+2.2673829888E-4*grada*t204*t48*
5226 t65*t172-7.1523053568E-6*grada*t204*t48*t60*t63*t172-5.616797368320001E-6*
5227 t196*t204*t47*t63*t172+8.092903145472E-8*grada*t204*t48*t66*
5228 t138*t172+1.6675669573632E-7*t196*t204*t47*t60*t138*t172-3.978469343232E-10*
5229 grada*t204*t48*t64*t295*t172-1.8107058733056E-9*t196*t204*
5230 t47*t66*t295*t172+7.246815952896E-13*grada*t204*t48*t61*t479*
5231 t172+8.6106080083968E-12*t196*t204*t47*t64*t479*t172-1.521831350108161E-14*
5232 t196*t204*t47*t61*t720*t172)*t148+t581*t137+t525*t190+t355*
5233 t300;
5234 d4fdrarbgaab = 0.0;
5235 d4fdrarbgbgb = (-0.00476240896*t21*t48*t67*t173+1.6958939136E-4*
5236 t21*t48*t60*t65*t173-2.04984815616E-6*t21*t48*t66*t63*t173+
5237 1.057755856896E-8*t21*t48*t64*t138*t173-2.01300443136E-11*
5238 t21*t48*t61*t295*t173+5.668457472000001E-4*t21*t58*t48*t65*
5239 t172-1.7880763392E-5*t21*t58*t48*t60*t63*t172+2.0232257863680001E-7*
5240 t21*t58*t48*t66*t138*t172-9.94617335808E-10*t21*t58*t48*t64*
5241 t295*t172+1.811703988224E-12*t21*t58*t48*t61*t479*t172-5.616797368320001E-6*
5242 t21*t156*t48*t63*t171+1.6675669573632E-7*t21*t156*t48*t60*
5243 t138*t171-1.8107058733056E-9*t21*t156*t48*t66*t295*t171+8.6106080083968E-12*
5244 t21*t156*t48*t64*t479*t171-1.521831350108161E-14*t21*t156*
5245 t48*t61*t720*t171)*t148+t585*t137+t526*t190+t359*t300;
5246 d4fdrarbgbab = 0.0;
5247 d4fdrarbabab = 0.0;
5248 d4fdragagaga = t50*t587*t54*t34*t55*rhoa-0.03109*t19*
5249 (-0.581704192*grada*t30*t47+16.3323648512*t196*t27*t46-37.29679059968001*
5250 t195*t24*t45+29.19696934502401*t194*t43*t44-10.20717432832*
5251 t192*t209*t303+1.646198784000001*t302*t361*t521-0.100042801152*
5252 t508*t597*t764)*t34*rhoa-1.0*t11*t3*t35*t588-0.75*t3*t35*(-
5253 0.010719199232*grada*t39*t47+8.791962583040001E-4*t196*t38*
5254 t46-2.1106964365312006E-5*t195*t37*t45+2.2827451102003204E-7*
5255 t194*t56*t44-1.2530157879296E-9*t192*t223*t303+3.4151707181056E-12*
5256 t302*t376*t521-3.67500722176E-15*t508*t612*t764)*t52-0.03109*
5257 t19*t587*t34+(0.02143084032*grada*t47*t67-7.6315226112E-4*
5258 grada*t47*t60*t65-7.6524175872E-4*t196*t46*t65+9.22431670272E-6*
5259 grada*t47*t66*t63+2.41390305792E-5*t196*t46*t60*t63+4.21259802624E-6*
5260 t195*t45*t63-4.759901356032E-8*grada*t47*t64*t138-2.7313548115968E-7*
5261 t196*t46*t66*t138-1.2506752180224002E-7*t195*t45*t60*t138+
5262 9.05851994112E-11*grada*t47*t61*t295+1.3427334033408E-9*t196*
5263 t46*t64*t295+1.3580294049792E-9*t195*t45*t66*t295-2.4458003841024E-12*
5264 t196*t46*t61*t479-6.4579560062976E-12*t195*t45*t64*t479+1.14137351258112E-14*
5265 t195*t45*t61*t720)*t148+t589*t137+0.002129457733333*t1*t2*
5266 t3*t19*t587*t12;
5267 d4fdragagagb = (0.00357180672*gradb*t48*t67*t59-1.2719204352E-4*
5268 gradb*t48*t60*t65*t59-4.251343104E-4*t21*gradb*t47*t65*t59+
5269 1.53738611712E-6*gradb*t48*t66*t63*t59+1.3410572544E-5*t21*
5270 gradb*t47*t60*t63*t59+4.21259802624E-6*t29*gradb*t46*t63*t59-
5271 7.93316892672E-9*gradb*t48*t64*t138*t59-1.517419339776E-7*
5272 t21*gradb*t47*t66*t138*t59-1.2506752180224002E-7*t29*gradb*
5273 t46*t60*t138*t59+1.50975332352E-11*gradb*t48*t61*t295*t59+
5274 7.45963001856E-10*t21*gradb*t47*t64*t295*t59+1.3580294049792E-9*
5275 t29*gradb*t46*t66*t295*t59-1.358777991168E-12*t21*gradb*t47*
5276 t61*t479*t59-6.4579560062976E-12*t29*gradb*t46*t64*t479*t59+
5277 1.14137351258112E-14*t29*gradb*t46*t61*t720*t59)*t148+t590*
5278 t137;
5279 d4fdragagaab = 0.0;
5280 d4fdragagbgb = (0.00357180672*grada*t48*t67*t59-1.2719204352E-4*
5281 grada*t48*t60*t65*t59-8.502686208E-5*t196*t47*t65*t59+1.53738611712E-6*
5282 grada*t48*t66*t63*t59+2.6821145088E-6*t196*t47*t60*t63*t59-
5283 7.93316892672E-9*grada*t48*t64*t138*t59-3.034838679552E-8*
5284 t196*t47*t66*t138*t59+1.50975332352E-11*grada*t48*t61*t295*
5285 t59+1.491926003712E-10*t196*t47*t64*t295*t59-2.717555982336E-13*
5286 t196*t47*t61*t479*t59-1.7005372416E-4*grada*t58*t48*t65*t158+
5287 5.364229017600001E-6*grada*t58*t48*t60*t63*t158+4.21259802624E-6*
5288 t196*t58*t47*t63*t158-6.069677359104E-8*grada*t58*t48*t66*
5289 t138*t158-1.2506752180224002E-7*t196*t58*t47*t60*t138*t158+
5290 2.983852007424E-10*grada*t58*t48*t64*t295*t158+1.3580294049792E-9*
5291 t196*t58*t47*t66*t295*t158-5.435111964672E-13*grada*t58*t48*
5292 t61*t479*t158-6.4579560062976E-12*t196*t58*t47*t64*t479*t158+
5293 1.14137351258112E-14*t196*t58*t47*t61*t720*t158)*t148+t591*
5294 t137;
5295 d4fdragagbab = 0.0;
5296 d4fdragaabab = 0.0;
5297 d4fdragbgbgb = (-2.5508058624E-4*t21*gradb*t48*t65*t158+
5298 8.046343526400001E-6*t21*gradb*t48*t60*t63*t158-9.104516038656E-8*
5299 t21*gradb*t48*t66*t138*t158+4.475778011136E-10*t21*gradb*t48*
5300 t64*t295*t158-8.152667947008E-13*t21*gradb*t48*t61*t479*t158+
5301 4.21259802624E-6*t21*t204*t48*t63*t155-1.2506752180224002E-7*
5302 t21*t204*t48*t60*t138*t155+1.3580294049792E-9*t21*t204*t48*
5303 t66*t295*t155-6.4579560062976E-12*t21*t204*t48*t64*t479*t155+
5304 1.14137351258112E-14*t21*t204*t48*t61*t720*t155)*t148+t595*
5305 t137;
5306 d4fdragbgbab = 0.0;
5307 d4fdragbabab = 0.0;
5308 d4fdraababab = 0.0;
5309 d4fdrbrbrbrb = t69*(24829.60425438716*t537*t776*t147*
5310 t778*rhob-199659.0885685683*t775*t776*t147*t777*rhob+24.0*
5311 t175*t776*t147*t540*rhob+1157.928594403345*t317*t322*t318*
5312 t147*t540*rhob-1157.928594403345*t317*t776*t147*t539*rhob-
5313 12414.80212719358*t537*t322*t318*t147*t539*rhob+6.0*t175*t779*
5314 t147*t320*rhob+8.0*t175*t542*t179*t147*t320*rhob-96.4940495336121*
5315 t317*t779*t147*t319*rhob-36.0*t175*t322*t318*t147*t319*rhob-
5316 128.6587327114828*t317*t542*t179*t147*t319*rhob-1.0*t175*t780*
5317 t147*t180*rhob+t70*(384.0*t125*t81*t82*t90*t99+1920.0*t127*
5318 t452*t81*t90*t99-96.0*t185*t81*t82*t84*t99-16.0*t127*t557*
5319 t81*t84*t99+72.0*t275*t331*t81*t84*t99-16.0*t125*t557*t81*
5320 t83*t99-480.0*t185*t452*t81*t83*t99+120.0*t273*t331*t81*t83*
5321 t99+192.0*t125*t127*t331*t81*t99-576.0*t125*t185*t275*t81*
5322 t99-960.0*t127*t185*t273*t81*t99+t81*t83*t84*t782*t99+0.019751789702565*
5323 t81*(-384.0*t125*t82+t708+t707+t703-1920.0*t127*t452)*t86*
5324 t90*t93-0.002929848805881*t81*t1*t2*t3*t103*t563*t90*t93+0.005859697611761*
5325 t81*t1*t2*t3*t240*t336*t90*t93-0.00911508517385*t81*t1*t2*
5326 t3*t407*t187*t90*t93+0.019751789702565*t81*t85*t86*t782*t93+
5327 0.079007158810261*t81*t187*t86*t557*t93-0.002929848805881*
5328 t81*t1*t2*t3*t103*t85*t557*t93+0.118510738215391*t81*t336*
5329 t86*t331*t93+0.005859697611761*t81*t1*t2*t3*t240*t85*t331*
5330 t93-0.008789546417642*t81*t1*t2*t3*t103*t187*t331*t93+0.079007158810261*
5331 t81*t563*t86*t185*t93-0.00911508517385*t81*t1*t2*t3*t407*t85*
5332 t185*t93-0.008789546417642*t81*t1*t2*t3*t103*t336*t185*t93+
5333 0.011719395223522*t81*t1*t2*t3*t240*t187*t185*t93-96.0*t133*
5334 t81*t82*t84*t90-16.0*t127*t463*t81*t84*t90+192.0*t125*t127*
5335 t284*t81*t90-960.0*t127*t133*t273*t81*t90+4.0*t133*t557*t81*
5336 t83*t84+4.0*t185*t463*t81*t83*t84+6.0*t284*t331*t81*t83*t84-
5337 48.0*t127*t133*t331*t81*t84-48.0*t127*t185*t284*t81*t84+144.0*
5338 t133*t185*t275*t81*t84-48.0*t125*t133*t331*t81*t83-48.0*t125*
5339 t185*t284*t81*t83+240.0*t133*t185*t273*t81*t83+384.0*t125*
5340 t127*t133*t185*t81+t719+t718+t717+t716+t715+t714+t713+t712+
5341 t711+t705+t697+t696+t695+t694+t693+t692+t691+t690+t689+t688+
5342 t687+t686+t685+t684+t682+t681+t680+t679+t678+t677+t676+t675+
5343 t674+t672+t666+t665+t664+t663+t662+t661+t660+t659+t658+t657+
5344 t656+t655+t653+t652+t651+t650+t649+t648+t647+t646+t644-4101.558808403119*
5345 t81*t187*t411*t86*t412*t90*t413-4101.558808403119*t81*t85*
5346 t411*t86*t412*t185*t413+415.5781415850207*t81*t187*t411*t86*
5347 t416*t90*t246-103.8945353962552*t81*t336*t244*t86*t245*t90*
5348 t246-207.7890707925104*t81*t187*t252*t109*t86*t245*t90*t246+
5349 7.70551137522226*t81*t1*t2*t3*t103*t187*t244*t245*t90*t246-
5350 103.8945353962552*t81*t85*t244*t86*t245*t331*t246+415.5781415850207*
5351 t81*t85*t411*t86*t416*t185*t246-207.7890707925104*t81*t187*
5352 t244*t86*t245*t185*t246-207.7890707925104*t81*t85*t252*t109*
5353 t86*t245*t185*t246+7.70551137522226*t81*t1*t2*t3*t103*t85*
5354 t244*t245*t185*t246+7.017868076946245*t81*t336*t244*t86*t249*
5355 t90*t111+14.03573615389249*t81*t187*t252*t109*t86*t249*t90*
5356 t111-0.520491882373513*t81*t1*t2*t3*t103*t187*t244*t249*t90*
5357 t111-14.03573615389249*t81*t187*t411*t86*t245*t90*t111-2.339289358982082*
5358 t81*t187*t431*t86*t110*t90*t111-3.508934038473122*t81*t336*
5359 t252*t86*t110*t90*t111-2.339289358982082*t81*t563*t109*t86*
5360 t110*t90*t111+0.260245941186757*t81*t1*t2*t3*t103*t187*t252*
5361 t110*t90*t111+0.260245941186757*t81*t1*t2*t3*t103*t336*t109*
5362 t110*t90*t111-0.346994588249009*t81*t1*t2*t3*t240*t187*t109*
5363 t110*t90*t111-2.339289358982082*t81*t85*t109*t86*t110*t557*
5364 t111+7.017868076946245*t81*t85*t244*t86*t249*t331*t111-3.508934038473122*
5365 t81*t85*t252*t86*t110*t331*t111-7.017868076946245*t81*t187*
5366 t109*t86*t110*t331*t111+0.260245941186757*t81*t1*t2*t3*t103*
5367 t85*t109*t110*t331*t111+14.03573615389249*t81*t187*t244*t86*
5368 t249*t185*t111+14.03573615389249*t81*t85*t252*t109*t86*t249*
5369 t185*t111-0.520491882373513*t81*t1*t2*t3*t103*t85*t244*t249*
5370 t185*t111-14.03573615389249*t81*t85*t411*t86*t245*t185*t111-
5371 2.339289358982082*t81*t85*t431*t86*t110*t185*t111-7.017868076946245*
5372 t81*t187*t252*t86*t110*t185*t111-7.017868076946245*t81*t336*
5373 t109*t86*t110*t185*t111+0.260245941186757*t81*t1*t2*t3*t103*
5374 t85*t252*t110*t185*t111-0.346994588249009*t81*t1*t2*t3*t240*
5375 t85*t109*t110*t185*t111+0.520491882373513*t81*t1*t2*t3*t103*
5376 t187*t109*t110*t185*t111)-96.0*t81*t82*t84*t90*t99-960.0*t127*
5377 t273*t81*t90*t99+4.0*t557*t81*t83*t84*t99-48.0*t127*t331*t81*
5378 t84*t99+144.0*t185*t275*t81*t84*t99-48.0*t125*t331*t81*t83*
5379 t99+240.0*t185*t273*t81*t83*t99+384.0*t125*t127*t185*t81*t99+
5380 0.079007158810261*t81*t563*t86*t90*t93-0.008789546417642*t81*
5381 t1*t2*t3*t103*t336*t90*t93+0.011719395223522*t81*t1*t2*t3*
5382 t240*t187*t90*t93+0.079007158810261*t81*t85*t86*t557*t93+0.237021476430782*
5383 t81*t187*t86*t331*t93-0.008789546417642*t81*t1*t2*t3*t103*
5384 t85*t331*t93+0.237021476430782*t81*t336*t86*t185*t93+0.011719395223522*
5385 t81*t1*t2*t3*t240*t85*t185*t93-0.017579092835283*t81*t1*t2*
5386 t3*t103*t187*t185*t93-48.0*t127*t284*t81*t84*t90+384.0*t125*
5387 t127*t133*t81*t90+12.0*t133*t331*t81*t83*t84+12.0*t185*t284*
5388 t81*t83*t84-96.0*t127*t133*t185*t81*t84-96.0*t125*t133*t185*
5389 t81*t83+t640+t639+t638+t637+t636+t635+t634+t633+t632+t631+
5390 t630+t629+t628+t627+t626+t625+t624+t623+t622+t621+t620+t619+
5391 t618+t617+t616+t615+t614+t613-0.004416653076543*t1*t2*t3*t146*
5392 t541+771.9523962688968*t317*t538*t147*t540-8276.534751462386*
5393 t537*t538*t147*t539-0.243531851851852*t1*t2*t3*t175*t179*t180*
5394 t321+24.0*t175*t322*t179*t147*t320-24.0*t175*t538*t147*t319-
5395 385.9761981344484*t317*t322*t179*t147*t319-207.7890707925104*
5396 t81*t187*t244*t86*t245*t90*t246-207.7890707925104*t81*t85*
5397 t244*t86*t245*t185*t246-4.0*t175*t542*t147*t180-0.547946666666667*
5398 t1*t2*t3*t175*t318*t320*t178+8.812265465851826*t1*t2*t3*t317*
5399 t318*t319*t178+0.273973333333333*t1*t2*t3*t175*t322*t180*t178-
5400 52.87359279511096*t1*t2*t3*t317*t538*t540*t143+566.8874535768302*
5401 t1*t2*t3*t537*t538*t539*t143-1.64384*t1*t2*t3*t175*t322*t179*
5402 t320*t143+1.64384*t1*t2*t3*t175*t538*t319*t143+26.43679639755548*
5403 t1*t2*t3*t317*t322*t179*t319*t143+0.273973333333333*t1*t2*
5404 t3*t175*t542*t180*t143+14.03573615389249*t81*t187*t244*t86*
5405 t249*t90*t111-7.017868076946245*t81*t187*t252*t86*t110*t90*
5406 t111-7.017868076946245*t81*t336*t109*t86*t110*t90*t111+0.520491882373513*
5407 t81*t1*t2*t3*t103*t187*t109*t110*t90*t111-7.017868076946245*
5408 t81*t85*t109*t86*t110*t331*t111+14.03573615389249*t81*t85*
5409 t244*t86*t249*t185*t111-7.017868076946245*t81*t85*t252*t86*
5410 t110*t185*t111-14.03573615389249*t81*t187*t109*t86*t110*t185*
5411 t111+0.520491882373513*t81*t1*t2*t3*t103*t85*t109*t110*t185*
5412 t111)-6.0*t147*t160*t175*t320*t779*rhob-24829.60425438716*
5413 t537*t160*t776*t147*t778*rhob+199659.0885685683*t775*t160*
5414 t776*t147*t777*rhob-24.0*t147*t160*t175*t540*t776*rhob-8.0*
5415 t147*t160*t175*t179*t320*t542*rhob+4.0*t147*t174*t175*t180*
5416 t542*rhob-771.9523962688968*t317*t174*t538*t147*t540*rhob-
5417 1157.928594403345*t317*t160*t322*t318*t147*t540*rhob+1157.928594403345*
5418 t317*t160*t776*t147*t539*rhob+8276.534751462386*t537*t174*
5419 t538*t147*t539*rhob+12414.80212719358*t537*t160*t322*t318*
5420 t147*t539*rhob+24.0*t147*t174*t175*t319*t538*rhob+4.0*t147*
5421 t175*t179*t180*t536*rhob-24.0*t147*t174*t175*t179*t320*t322*
5422 rhob+36.0*t147*t160*t175*t318*t319*t322*rhob+6.0*t147*t175*
5423 t180*t316*t322*rhob-12.0*t147*t175*t316*t318*t320*rhob+96.4940495336121*
5424 t317*t160*t779*t147*t319*rhob+192.9880990672242*t317*t316*
5425 t318*t147*t319*rhob+385.9761981344484*t317*t174*t322*t179*
5426 t147*t319*rhob+128.6587327114828*t317*t542*t160*t179*t147*
5427 t319*rhob+t175*t780*t160*t147*t180*rhob-0.03109*t146*(4.423522769382716*
5428 t58*t159*t774+10.26558234153087*t156*t157*t773-132.732341830163*
5429 t153*t154*t772+202.6697066943526*t149*t151*t771-119.6504344979532*
5430 t167*t168*t770+33.6253206649363*t308*t309*t769-4.537293209600001*
5431 t527*t528*t768+0.237138491619556*t765*t766*t767)*t147*rhob-
5432 0.75*t177*t3*t35*(-0.538373535604938*t58*t165*t774+0.170710135447704*
5433 t156*t164*t773-0.006586541220169*t153*t163*t772+1.0611154443853118E-4*
5434 t149*t162*t771-8.823921276742924E-7*t167*t181*t770+3.981198533073225E-9*
5435 t308*t323*t769-9.2618884392429E-12*t527*t543*t768+8.71112822935703E-15*
5436 t765*t781*t767)-0.37037037037037*t166*t3*t35*t59+4.0*t190*
5437 t573+4.0*t191*t572-4.0*t142*t3*t35*t544+4.0*t147*t160*t175*
5438 t180*t542+0.004416653076543*t1*t2*t3*t146*t160*t541-771.9523962688968*
5439 t317*t160*t538*t147*t540+8276.534751462386*t537*t160*t538*
5440 t147*t539+24.0*t147*t160*t175*t319*t538-2.0*t140*t3*t324*t35+
5441 0.888888888888889*t176*t182*t3*t35+6.0*t343*t344-24.0*t147*
5442 t160*t175*t179*t320*t322+0.243531851851852*t1*t2*t3*t175*t160*
5443 t179*t180*t321-0.007571405274074*t1*t2*t3*t146*t174*t321-24.0*
5444 t175*t174*t318*t147*t320+385.9761981344484*t317*t174*t318*
5445 t147*t319+385.9761981344484*t317*t160*t322*t179*t147*t319+
5446 12.0*t175*t174*t322*t147*t180+12.0*t175*t316*t179*t147*t180+
5447 0.547946666666667*t1*t2*t3*t175*t160*t318*t320*t178-8.812265465851826*
5448 t1*t2*t3*t317*t160*t318*t319*t178+0.008517830933333*t1*t2*
5449 t3*t146*t316*t178-0.273973333333333*t1*t2*t3*t175*t160*t322*
5450 t180*t178-0.547946666666667*t1*t2*t3*t175*t174*t179*t180*t178+
5451 (2.872399786666667*t58*t68*t774-0.155932082631111*t58*t60*
5452 t67*t774+0.002147636855467*t58*t66*t65*t774-1.195909772288E-5*
5453 t58*t64*t63*t774+2.439835926528001E-8*t58*t61*t138*t774-0.259022131768889*
5454 t156*t67*t773+0.009223778563413*t156*t60*t65*t773-1.1148896360448E-4*
5455 t156*t66*t63*t773+5.7530165772288E-7*t156*t64*t138*t773-1.0948507435008E-9*
5456 t156*t61*t295*t773+0.00332549505024*t153*t65*t772-1.049004785664E-4*
5457 t153*t60*t63*t772+1.18695912800256E-6*t153*t66*t138*t772-5.8350883700736E-9*
5458 t153*t64*t295*t772+1.06286633975808E-11*t153*t61*t479*t772-
5459 9.985417543679999E-6*t149*t63*t771+2.9645634797568E-7*t149*
5460 t60*t138*t771-3.2190326636544E-9*t149*t66*t295*t771+1.530774757048321E-11*
5461 t149*t64*t479*t771-2.705477955747841E-14*t149*t61*t720*t771)*
5462 t148-0.12436*t146*t536*t147+52.87359279511096*t1*t2*t3*t317*
5463 t160*t538*t540*t143-566.8874535768302*t1*t2*t3*t537*t160*t538*
5464 t539*t143+0.008517830933333*t1*t2*t3*t146*t536*t143+1.64384*
5465 t1*t2*t3*t175*t174*t318*t320*t143+1.64384*t1*t2*t3*t175*t160*
5466 t322*t179*t320*t143-1.64384*t1*t2*t3*t175*t160*t538*t319*t143-
5467 26.43679639755548*t1*t2*t3*t317*t174*t318*t319*t143-26.43679639755548*
5468 t1*t2*t3*t317*t160*t322*t179*t319*t143-0.82192*t1*t2*t3*t175*
5469 t174*t322*t180*t143-0.82192*t1*t2*t3*t175*t316*t179*t180*t143-
5470 0.273973333333333*t1*t2*t3*t175*t542*t160*t180*t143;
5471 d4fdrbrbrbga = 3.0*t190*t574+t199*t572+3.0*t343*t345+
5472 (0.030558790826667*grada*t58*t22*t67*t535-0.00108819859456*
5473 grada*t58*t22*t60*t65*t535+1.3153192335360001E-5*grada*t58*
5474 t22*t66*t63*t535-6.787266748416001E-8*grada*t58*t22*t64*t138*
5475 t535+1.291677843456E-10*grada*t58*t22*t61*t295*t535-0.00124706064384*
5476 grada*t156*t22*t65*t534+3.93376794624E-5*grada*t156*t22*t60*
5477 t63*t534-4.451096730009599E-7*grada*t156*t22*t66*t138*t534+
5478 2.1881581387776E-9*grada*t156*t22*t64*t295*t534-3.9857487740928E-12*
5479 grada*t156*t22*t61*t479*t534+7.48906315776E-6*grada*t153*t22*
5480 t63*t533-2.2234226098176E-7*grada*t153*t22*t60*t138*t533+2.4142744977408E-9*
5481 grada*t153*t22*t66*t295*t533-1.14808106778624E-11*grada*t153*
5482 t22*t64*t479*t533+2.029108466810881E-14*grada*t153*t22*t61*
5483 t720*t533)*t148;
5484 d4fdrbrbrbgb = 3.0*t147*t175*t179*t180*t577*rhob-192.9880990672242*
5485 t317*t205*t538*t147*t540*rhob+2069.133687865597*t537*t205*
5486 t538*t147*t539*rhob+6.0*t147*t175*t205*t319*t538*rhob+3.0*
5487 t147*t175*t180*t322*t348*rhob-6.0*t147*t175*t318*t320*t348*
5488 rhob-6.0*t147*t175*t179*t205*t320*t322*rhob+96.4940495336121*
5489 t317*t348*t318*t147*t319*rhob+96.4940495336121*t317*t205*t322*
5490 t179*t147*t319*rhob+t175*t542*t205*t147*t180*rhob-0.03109*
5491 t146*(-1.56124333037037*gradb*t159*t535-4.81507000414815*t204*
5492 t157*t534+72.67913110755558*t203*t154*t533-121.7816966326045*
5493 t202*t151*t532+77.20254629842492*t200*t168*t531-22.99638211470223*
5494 t346*t309*t530+3.260051619840001*t575*t528*t529-0.177853868714667*
5495 t783*t766*t784)*t147*rhob+3.0*t190*t579-3.0*t142*t3*t35*t578+
5496 t207*t572-0.75*t177*t3*t35*(0.190014189037037*gradb*t165*t535-
5497 0.082214485447111*t204*t164*t534+0.003681518224119*t203*t163*
5498 t533-6.506054353320772E-5*t202*t162*t532+5.781780106954526E-7*
5499 t200*t181*t531-2.749152996496119E-9*t346*t323*t530+6.68391581359218E-12*
5500 t575*t543*t529-6.53334617201778E-15*t783*t781*t784)+3.0*t343*
5501 t350-1.0*t140*t3*t349*t35+0.222222222222222*t176*t206*t3*t35+
5502 3.0*t147*t175*t180*t205*t322-0.001892851318519*t1*t2*t3*t146*
5503 t205*t321-6.0*t147*t175*t205*t318*t320+96.4940495336121*t317*
5504 t205*t318*t147*t319+6.0*t175*t348*t179*t147*t180+0.004258915466667*
5505 t1*t2*t3*t146*t348*t178-0.136986666666667*t1*t2*t3*t175*t205*
5506 t179*t180*t178+(-1.01378816*gradb*t68*t535+0.055034852693333*
5507 gradb*t60*t67*t535-7.579894784000001E-4*gradb*t66*t65*t535+
5508 4.22085801984E-6*gradb*t64*t63*t535-8.611185623040002E-9*gradb*
5509 t61*t138*t535+0.135331787946667*t204*t67*t534-0.00481916520448*
5510 t204*t60*t65*t534+5.824985177087999E-5*t204*t66*t63*t534-3.0057895600128E-7*
5511 t204*t64*t138*t534+5.720287592448E-10*t204*t61*t295*t534-0.00215401383936*
5512 t203*t65*t533+6.79469008896E-5*t203*t60*t63*t533-7.6882579881984E-7*
5513 t203*t66*t138*t533+3.7795458760704E-9*t203*t64*t295*t533-6.8844751552512E-12*
5514 t203*t61*t479*t533+7.48906315776E-6*t202*t63*t532-2.2234226098176E-7*
5515 t202*t60*t138*t532+2.4142744977408E-9*t202*t66*t295*t532-1.14808106778624E-11*
5516 t202*t64*t479*t532+2.029108466810881E-14*t202*t61*t720*t532)*
5517 t148-0.09327*t146*t577*t147+0.0063883732*t1*t2*t3*t146*t577*
5518 t143+0.41096*t1*t2*t3*t175*t205*t318*t320*t143-6.60919909938887*
5519 t1*t2*t3*t317*t205*t318*t319*t143-0.20548*t1*t2*t3*t175*t205*
5520 t322*t180*t143-0.41096*t1*t2*t3*t175*t348*t179*t180*t143;
5521 d4fdrbrbrbab = 0.0;
5522 d4fdrbrbgaga = 2.0*
5523 t190*t580+t354*t343+(-0.00654831232*t58*t22*t67*t315+2.3318541312000003E-4*
5524 t58*t22*t60*t65*t315+3.1176516096E-4*t21*t58*t31*t65*t315-
5525 2.81854121472E-6*t58*t22*t66*t63*t315-9.834419865600001E-6*
5526 t21*t58*t31*t60*t63*t315+1.454414303232E-8*t58*t22*t64*t138*
5527 t315+1.1127741825024001E-7*t21*t58*t31*t66*t138*t315-2.767881093120001E-11*
5528 t58*t22*t61*t295*t315-5.470395346944E-10*t21*t58*t31*t64*t295*
5529 t315+9.964371935232E-13*t21*t58*t31*t61*t479*t315+1.1336914944E-4*
5530 t156*t22*t65*t314-3.5761526784E-6*t156*t22*t60*t63*t314-5.616797368320001E-6*
5531 t21*t156*t31*t63*t314+4.046451572736E-8*t156*t22*t66*t138*
5532 t314+1.6675669573632E-7*t21*t156*t31*t60*t138*t314-1.989234671616E-10*
5533 t156*t22*t64*t295*t314-1.8107058733056E-9*t21*t156*t31*t66*
5534 t295*t314+3.623407976448E-13*t156*t22*t61*t479*t314+8.6106080083968E-12*
5535 t21*t156*t31*t64*t479*t314-1.521831350108161E-14*t21*t156*
5536 t31*t61*t720*t314)*t148;
5537 d4fdrbrbgagb = 2.0*t190*t581+t355*t343+(-0.01309662464*
5538 grada*gradb*t22*t67*t315+4.663708262400001E-4*grada*gradb*
5539 t22*t60*t65*t315-5.63708242944E-6*grada*gradb*t22*t66*t63*
5540 t315+2.908828606464E-8*grada*gradb*t22*t64*t138*t315-5.53576218624E-11*
5541 grada*gradb*t22*t61*t295*t315+7.6524175872E-4*grada*t204*t22*
5542 t65*t314-2.41390305792E-5*grada*t204*t22*t60*t63*t314+2.7313548115968E-7*
5543 grada*t204*t22*t66*t138*t314-1.3427334033408E-9*grada*t204*
5544 t22*t64*t295*t314+2.4458003841024E-12*grada*t204*t22*t61*t479*
5545 t314-5.616797368320001E-6*grada*t203*t22*t63*t313+1.6675669573632E-7*
5546 grada*t203*t22*t60*t138*t313-1.8107058733056E-9*grada*t203*
5547 t22*t66*t295*t313+8.6106080083968E-12*grada*t203*t22*t64*t479*
5548 t313-1.521831350108161E-14*grada*t203*t22*t61*t720*t313)*t148;
5549 d4fdrbrbgaab = 0.0;
5550 d4fdrbrbgbgb = 2.0*
5551 t147*t175*t179*t180*t583*rhob-2.0*t147*t175*t318*t320*t357*
5552 rhob+32.1646831778707*t317*t357*t318*t147*t319*rhob+t175*t357*
5553 t322*t147*t180*rhob-0.03109*t146*(0.334552142222222*t159*t315+
5554 1.908973703111112*t58*t157*t314-36.52114729244445*t156*t154*
5555 t313+69.57260511232002*t153*t151*t312-48.34252654728535*t149*
5556 t168*t311+15.46954954069334*t167*t309*t310-2.325940142080001*
5557 t308*t528*t576+0.133390401536*t527*t766*t785)*t147*rhob+2.0*
5558 t190*t585-2.0*t142*t3*t35*t584-0.333333333333333*t140*t3*t35*
5559 t358+2.0*t147*t175*t179*t180*t357-0.75*t177*t3*(-0.040717326222222*
5560 t165*t315+0.033781261596444*t58*t164*t314-0.001900235597369*
5561 t156*t163*t313+3.812942392069689E-5*t153*t162*t312-3.690446131764338E-7*
5562 t149*t181*t311+1.871412445548089E-9*t167*t323*t310-4.79418643032747E-12*
5563 t308*t543*t576+4.90000962901333E-15*t527*t781*t785)*t35+t359*
5564 t343+0.001419638488889*t1*t2*t3*t146*t357*t178+(0.21724032*
5565 t68*t315-0.01179318272*t60*t67*t315+1.6242631680000002E-4*
5566 t66*t65*t315-9.044695756799999E-7*t64*t63*t315+1.84525406208E-9*
5567 t61*t138*t315-0.06131601536*t58*t67*t314+0.00218346341376*
5568 t58*t60*t65*t314-2.6391795010560004E-5*t58*t66*t63*t314+1.3618606657536E-7*
5569 t58*t64*t138*t314-2.591743205376E-10*t58*t61*t295*t314+0.00133208750592*
5570 t156*t65*t313-4.20197939712E-5*t156*t60*t63*t313+4.754580597964801E-7*
5571 t156*t66*t138*t313-2.3373507391488E-9*t156*t64*t295*t313+4.2575043723264E-12*
5572 t156*t61*t479*t313-5.616797368320001E-6*t153*t63*t312+1.6675669573632E-7*
5573 t153*t60*t138*t312-1.8107058733056E-9*t153*t66*t295*t312+8.6106080083968E-12*
5574 t153*t64*t479*t312-1.521831350108161E-14*t153*t61*t720*t312)*
5575 t148-0.06218*t146*t583*t147+0.004258915466667*t1*t2*t3*t146*
5576 t583*t143-0.136986666666667*t1*t2*t3*t175*t357*t179*t180*t143;
5577 d4fdrbrbgbab = 0.0;
5578 d4fdrbrbabab = 0.0;
5579 d4fdrbgagaga = (-
5580 2.5508058624E-4*grada*t58*t31*t65*t173+8.046343526400001E-6*
5581 grada*t58*t31*t60*t63*t173+4.21259802624E-6*t196*t58*t28*t63*
5582 t173-9.104516038656E-8*grada*t58*t31*t66*t138*t173-1.2506752180224002E-7*
5583 t196*t58*t28*t60*t138*t173+4.475778011136E-10*grada*t58*t31*
5584 t64*t295*t173+1.3580294049792E-9*t196*t58*t28*t66*t295*t173-
5585 8.152667947008E-13*grada*t58*t31*t61*t479*t173-6.4579560062976E-12*
5586 t196*t58*t28*t64*t479*t173+1.14137351258112E-14*t196*t58*t28*
5587 t61*t720*t173)*t148+t589*t190;
5588 d4fdrbgagagb = (0.00357180672*gradb*t22*t67*t173-1.2719204352E-4*
5589 gradb*t22*t60*t65*t173-1.7005372416E-4*t21*gradb*t31*t65*t173+
5590 1.53738611712E-6*gradb*t22*t66*t63*t173+5.364229017600001E-6*
5591 t21*gradb*t31*t60*t63*t173-7.93316892672E-9*gradb*t22*t64*
5592 t138*t173-6.069677359104E-8*t21*gradb*t31*t66*t138*t173+1.50975332352E-11*
5593 gradb*t22*t61*t295*t173+2.983852007424E-10*t21*gradb*t31*t64*
5594 t295*t173-5.435111964672E-13*t21*gradb*t31*t61*t479*t173-8.502686208E-5*
5595 t204*t22*t65*t172+2.6821145088E-6*t204*t22*t60*t63*t172+4.21259802624E-6*
5596 t21*t204*t31*t63*t172-3.034838679552E-8*t204*t22*t66*t138*
5597 t172-1.2506752180224002E-7*t21*t204*t31*t60*t138*t172+1.491926003712E-10*
5598 t204*t22*t64*t295*t172+1.3580294049792E-9*t21*t204*t31*t66*
5599 t295*t172-2.717555982336E-13*t204*t22*t61*t479*t172-6.4579560062976E-12*
5600 t21*t204*t31*t64*t479*t172+1.14137351258112E-14*t21*t204*t31*
5601 t61*t720*t172)*t148+t590*t190;
5602 d4fdrbgagaab = 0.0;
5603 d4fdrbgagbgb = (0.00357180672*grada*t22*t67*t173-1.2719204352E-4*
5604 grada*t22*t60*t65*t173+1.53738611712E-6*grada*t22*t66*t63*
5605 t173-7.93316892672E-9*grada*t22*t64*t138*t173+1.50975332352E-11*
5606 grada*t22*t61*t295*t173-4.251343104E-4*grada*t58*t22*t65*t172+
5607 1.3410572544000002E-5*grada*t58*t22*t60*t63*t172-1.517419339776E-7*
5608 grada*t58*t22*t66*t138*t172+7.45963001856E-10*grada*t58*t22*
5609 t64*t295*t172-1.358777991168E-12*grada*t58*t22*t61*t479*t172+
5610 4.21259802624E-6*grada*t156*t22*t63*t171-1.2506752180224002E-7*
5611 grada*t156*t22*t60*t138*t171+1.3580294049792E-9*grada*t156*
5612 t22*t66*t295*t171-6.4579560062976E-12*grada*t156*t22*t64*t479*
5613 t171+1.14137351258112E-14*grada*t156*t22*t61*t720*t171)*t148+
5614 t591*t190;
5615 d4fdrbgagbab = 0.0;
5616 d4fdrbgaabab = 0.0;
5617 d4fdrbgbgbgb = t175*t593*t179*t147*t180*rhob-0.03109*
5618 t146*(-0.581704192*gradb*t157*t172+16.3323648512*t204*t154*
5619 t171-37.29679059968001*t203*t151*t170+29.19696934502401*t202*
5620 t168*t169-10.20717432832*t200*t309*t347+1.646198784000001*
5621 t346*t528*t582-0.100042801152*t575*t766*t786)*t147*rhob-1.0*
5622 t142*t3*t35*t594-0.75*(-0.010719199232*gradb*t164*t172+8.791962583040001E-4*
5623 t204*t163*t171-2.1106964365312006E-5*t203*t162*t170+2.2827451102003204E-7*
5624 t202*t181*t169-1.2530157879296E-9*t200*t323*t347+3.4151707181056E-12*
5625 t346*t543*t582-3.67500722176E-15*t575*t781*t786)*t177*t3*t35+
5626 t595*t190+(0.02143084032*gradb*t67*t172-7.6315226112E-4*gradb*
5627 t60*t65*t172+9.22431670272E-6*gradb*t66*t63*t172-4.759901356032E-8*
5628 gradb*t64*t138*t172+9.05851994112E-11*gradb*t61*t295*t172-
5629 7.6524175872E-4*t204*t65*t171+2.41390305792E-5*t204*t60*t63*
5630 t171-2.7313548115968E-7*t204*t66*t138*t171+1.3427334033408E-9*
5631 t204*t64*t295*t171-2.4458003841024E-12*t204*t61*t479*t171+
5632 4.21259802624E-6*t203*t63*t170-1.2506752180224002E-7*t203*
5633 t60*t138*t170+1.3580294049792E-9*t203*t66*t295*t170-6.4579560062976E-12*
5634 t203*t64*t479*t170+1.14137351258112E-14*t203*t61*t720*t170)*
5635 t148-0.03109*t146*t593*t147+0.002129457733333*t1*t2*t3*t146*
5636 t593*t143;
5637 d4fdrbgbgbab = 0.0;
5638 d4fdrbgbabab = 0.0;
5639 d4fdrbababab = 0.0;
5640 d4fdgagagaga = -0.03109*t19*(0.109069536*t30*t31-6.1682646336*
5641 t21*t27*t28+18.39502194432001*t29*t24*t25-16.86082026700801*
5642 t26*t43*t193+6.581020016640003*t20*t209*t351-1.154257551360001*
5643 t42*t361*t586+0.075032100864*t208*t597*t787)*t34*rhoa-0.75*
5644 t3*(0.002009849856*t39*t31-3.45777395712E-4*t21*t38*t28+1.0834748940288001E-5*
5645 t29*t37*t25-1.35829636153344E-7*t26*t56*t193+8.22742204416E-10*
5646 t20*t223*t351-2.4137214984192E-12*t42*t376*t586+2.75625541632E-15*
5647 t208*t612*t787)*t35*t52+(-0.00401828256*t31*t67+1.4309104896E-4*
5648 t31*t60*t65+3.8262087936E-4*t21*t28*t65-1.7295593817600002E-6*
5649 t31*t66*t63-1.2069515289600002E-5*t21*t28*t60*t63-3.15944851968E-6*
5650 t29*t25*t63+8.92481504256E-9*t31*t64*t138+1.3656774057984002E-7*
5651 t21*t28*t66*t138+9.380064135168001E-8*t29*t25*t60*t138-1.69847248896E-11*
5652 t31*t61*t295-6.713667016704E-10*t21*t28*t64*t295-1.0185220537344E-9*
5653 t29*t25*t66*t295+1.2229001920512E-12*t21*t28*t61*t479+4.8434670047232E-12*
5654 t29*t25*t64*t479-8.5603013443584E-15*t29*t25*t61*t720)*t148;
5655 d4fdgagagagb = (1.9131043968000002E-4*grada*gradb*t31*
5656 t65*t59-6.034757644800001E-6*grada*gradb*t31*t60*t63*t59-3.15944851968E-6*
5657 t196*gradb*t28*t63*t59+6.828387028992001E-8*grada*gradb*t31*
5658 t66*t138*t59+9.380064135168001E-8*t196*gradb*t28*t60*t138*
5659 t59-3.356833508352E-10*grada*gradb*t31*t64*t295*t59-1.0185220537344E-9*
5660 t196*gradb*t28*t66*t295*t59+6.114500960256E-13*grada*gradb*
5661 t31*t61*t479*t59+4.8434670047232E-12*t196*gradb*t28*t64*t479*
5662 t59-8.5603013443584E-15*t196*gradb*t28*t61*t720*t59)*t148;
5663 d4fdgagagaab = 0.0;
5664 d4fdgagagbgb = (-
5665 0.00133942752*t22*t67*t59+4.769701632E-5*t22*t60*t65*t59+6.377014656E-5*
5666 t21*t31*t65*t59-5.7651979392E-7*t22*t66*t63*t59-2.0115858816E-6*
5667 t21*t31*t60*t63*t59+2.97493834752E-9*t22*t64*t138*t59+2.276129009664E-8*
5668 t21*t31*t66*t138*t59-5.6615749632E-12*t22*t61*t295*t59-1.118944502784E-10*
5669 t21*t31*t64*t295*t59+2.038166986752E-13*t21*t31*t61*t479*t59+
5670 6.377014656E-5*t58*t22*t65*t158-2.0115858816E-6*t58*t22*t60*
5671 t63*t158-3.15944851968E-6*t21*t58*t31*t63*t158+2.276129009664E-8*
5672 t58*t22*t66*t138*t158+9.380064135168001E-8*t21*t58*t31*t60*
5673 t138*t158-1.118944502784E-10*t58*t22*t64*t295*t158-1.0185220537344E-9*
5674 t21*t58*t31*t66*t295*t158+2.038166986752E-13*t58*t22*t61*t479*
5675 t158+4.8434670047232E-12*t21*t58*t31*t64*t479*t158-8.5603013443584E-15*
5676 t21*t58*t31*t61*t720*t158)*t148;
5677 d4fdgagagbab = 0.0;
5678 d4fdgagaabab = 0.0;
5679 d4fdgagbgbgb = (1.9131043968000002E-4*grada*gradb*t22*
5680 t65*t158-6.034757644800001E-6*grada*gradb*t22*t60*t63*t158+
5681 6.828387028992001E-8*grada*gradb*t22*t66*t138*t158-3.356833508352E-10*
5682 grada*gradb*t22*t64*t295*t158+6.114500960256E-13*grada*gradb*
5683 t22*t61*t479*t158-3.15944851968E-6*grada*t204*t22*t63*t155+
5684 9.380064135168001E-8*grada*t204*t22*t60*t138*t155-1.0185220537344E-9*
5685 grada*t204*t22*t66*t295*t155+4.8434670047232E-12*grada*t204*
5686 t22*t64*t479*t155-8.5603013443584E-15*grada*t204*t22*t61*t720*
5687 t155)*t148;
5688 d4fdgagbgbab = 0.0;
5689 d4fdgagbabab = 0.0;
5690 d4fdgaababab = 0.0;
5691 d4fdgbgbgbgb = -0.03109*t146*(0.109069536*t157*t158-6.1682646336*
5692 t58*t154*t155+18.39502194432001*t156*t151*t152-16.86082026700801*
5693 t153*t168*t201+6.581020016640003*t149*t309*t356-1.154257551360001*
5694 t167*t528*t592+0.075032100864*t308*t766*t788)*t147*rhob-0.75*
5695 (0.002009849856*t164*t158-3.45777395712E-4*t58*t163*t155+1.0834748940288001E-5*
5696 t156*t162*t152-1.35829636153344E-7*t153*t181*t201+8.22742204416E-10*
5697 t149*t323*t356-2.4137214984192E-12*t167*t543*t592+2.75625541632E-15*
5698 t308*t781*t788)*t177*t3*t35+(-0.00401828256*t67*t158+1.4309104896E-4*
5699 t60*t65*t158-1.7295593817600002E-6*t66*t63*t158+8.92481504256E-9*
5700 t64*t138*t158-1.69847248896E-11*t61*t295*t158+3.8262087936E-4*
5701 t58*t65*t155-1.2069515289600002E-5*t58*t60*t63*t155+1.3656774057984002E-7*
5702 t58*t66*t138*t155-6.713667016704E-10*t58*t64*t295*t155+1.2229001920512E-12*
5703 t58*t61*t479*t155-3.15944851968E-6*t156*t63*t152+9.380064135168001E-8*
5704 t156*t60*t138*t152-1.0185220537344E-9*t156*t66*t295*t152+4.8434670047232E-12*
5705 t156*t64*t479*t152-8.5603013443584E-15*t156*t61*t720*t152)*
5706 t148;
5707 d4fdgbgbgbab = 0.0;
5708 d4fdgbgbabab = 0.0;
5709 d4fdgbababab = 0.0;
5710 d4fdabababab = 0.0;
5711
5712
5713 ds->df1000 += factor*dfdra;
5714 ds->df0100 += factor*dfdrb;
5715 ds->df0010 += factor*dfdga;
5716 ds->df0001 += factor*dfdgb;
5717 ds->df00001+= factor*dfdgab;
5718
5719 ds->df2000 += factor*d2fdrara;
5720 ds->df1100 += factor*d2fdrarb;
5721 ds->df1010 += factor*d2fdraga;
5722 ds->df1001 += factor*d2fdragb;
5723 ds->df10001+= factor*d2fdraab;
5724 ds->df0200 += factor*d2fdrbrb;
5725 ds->df0110 += factor*d2fdrbga;
5726 ds->df0101 += factor*d2fdrbgb;
5727 ds->df01001+= factor*d2fdrbgab;
5728 ds->df0020 += factor*d2fdgaga;
5729 ds->df0011 += factor*d2fdgagb;
5730 ds->df00101+= factor*d2fdgagab;
5731 ds->df0002 += factor*d2fdgbgb;
5732 ds->df00011+= factor*d2fdgbgab;
5733 ds->df00002+= factor*d2fdgabgab;
5734
5735 ds->df3000 += factor*d3fdrarara;
5736 ds->df2100 += factor*d3fdrararb;
5737 ds->df2010 += factor*d3fdraraga;
5738 ds->df2001 += factor*d3fdraragb;
5739 ds->df20001 += factor*d3fdraraab;
5740 ds->df1200 += factor*d3fdrarbrb;
5741 ds->df1110 += factor*d3fdrarbga;
5742 ds->df1101 += factor*d3fdrarbgb;
5743 ds->df11001 += factor*d3fdrarbab;
5744 ds->df1020 += factor*d3fdragaga;
5745 ds->df1011 += factor*d3fdragagb;
5746 ds->df10101 += factor*d3fdragaab;
5747 ds->df1002 += factor*d3fdragbgb;
5748 ds->df10011 += factor*d3fdragbab;
5749 ds->df10002 += factor*d3fdraabab;
5750 ds->df0300 += factor*d3fdrbrbrb;
5751 ds->df0210 += factor*d3fdrbrbga;
5752 ds->df0201 += factor*d3fdrbrbgb;
5753 ds->df02001 += factor*d3fdrbrbab;
5754 ds->df0120 += factor*d3fdrbgaga;
5755 ds->df0111 += factor*d3fdrbgagb;
5756 ds->df01101 += factor*d3fdrbgaab;
5757 ds->df0102 += factor*d3fdrbgbgb;
5758 ds->df01011 += factor*d3fdrbgbab;
5759 ds->df01002 += factor*d3fdrbabab;
5760 ds->df0030 += factor*d3fdgagaga;
5761 ds->df0021 += factor*d3fdgagagb;
5762 ds->df00201 += factor*d3fdgagaab;
5763 ds->df0012 += factor*d3fdgagbgb;
5764 ds->df00111 += factor*d3fdgagbab;
5765 ds->df00102 += factor*d3fdgaabab;
5766 ds->df0003 += factor*d3fdgbgbgb;
5767 ds->df00021 += factor*d3fdgbgbab;
5768 ds->df00012 += factor*d3fdgbabab;
5769 ds->df00003 += factor*d3fdababab;
5770
5771 ds->df4000 += factor*d4fdrararara;
5772 ds->df3100 += factor*d4fdrarararb;
5773 ds->df3010 += factor*d4fdrararaga;
5774 ds->df3001 += factor*d4fdrararagb;
5775 ds->df30001 += factor*d4fdrararaab;
5776 ds->df2200 += factor*d4fdrararbrb;
5777 ds->df2110 += factor*d4fdrararbga;
5778 ds->df2101 += factor*d4fdrararbgb;
5779 ds->df21001 += factor*d4fdrararbab;
5780 ds->df2020 += factor*d4fdraragaga;
5781 ds->df2011 += factor*d4fdraragagb;
5782 ds->df20101 += factor*d4fdraragaab;
5783 ds->df2002 += factor*d4fdraragbgb;
5784 ds->df20011 += factor*d4fdraragbab;
5785 ds->df20002 += factor*d4fdraraabab;
5786 ds->df1300 += factor*d4fdrarbrbrb;
5787 ds->df1210 += factor*d4fdrarbrbga;
5788 ds->df1201 += factor*d4fdrarbrbgb;
5789 ds->df12001 += factor*d4fdrarbrbab;
5790 ds->df1120 += factor*d4fdrarbgaga;
5791 ds->df1111 += factor*d4fdrarbgagb;
5792 ds->df11101 += factor*d4fdrarbgaab;
5793 ds->df1102 += factor*d4fdrarbgbgb;
5794 ds->df11011 += factor*d4fdrarbgbab;
5795 ds->df11002 += factor*d4fdrarbabab;
5796 ds->df1030 += factor*d4fdragagaga;
5797 ds->df1021 += factor*d4fdragagagb;
5798 ds->df10201 += factor*d4fdragagaab;
5799 ds->df1012 += factor*d4fdragagbgb;
5800 ds->df10111 += factor*d4fdragagbab;
5801 ds->df10102 += factor*d4fdragaabab;
5802 ds->df1003 += factor*d4fdragbgbgb;
5803 ds->df10021 += factor*d4fdragbgbab;
5804 ds->df10012 += factor*d4fdragbabab;
5805 ds->df10003 += factor*d4fdraababab;
5806 ds->df0400 += factor*d4fdrbrbrbrb;
5807 ds->df0310 += factor*d4fdrbrbrbga;
5808 ds->df0301 += factor*d4fdrbrbrbgb;
5809 ds->df03001 += factor*d4fdrbrbrbab;
5810 ds->df0220 += factor*d4fdrbrbgaga;
5811 ds->df0211 += factor*d4fdrbrbgagb;
5812 ds->df02101 += factor*d4fdrbrbgaab;
5813 ds->df0202 += factor*d4fdrbrbgbgb;
5814 ds->df02011 += factor*d4fdrbrbgbab;
5815 ds->df02002 += factor*d4fdrbrbabab;
5816 ds->df0130 += factor*d4fdrbgagaga;
5817 ds->df0121 += factor*d4fdrbgagagb;
5818 ds->df01201 += factor*d4fdrbgagaab;
5819 ds->df0112 += factor*d4fdrbgagbgb;
5820 ds->df01111 += factor*d4fdrbgagbab;
5821 ds->df01102 += factor*d4fdrbgaabab;
5822 ds->df0103 += factor*d4fdrbgbgbgb;
5823 ds->df01021 += factor*d4fdrbgbgbab;
5824 ds->df01012 += factor*d4fdrbgbabab;
5825 ds->df01003 += factor*d4fdrbababab;
5826 ds->df0040 += factor*d4fdgagagaga;
5827 ds->df0031 += factor*d4fdgagagagb;
5828 ds->df00301 += factor*d4fdgagagaab;
5829 ds->df0022 += factor*d4fdgagagbgb;
5830 ds->df00211 += factor*d4fdgagagbab;
5831 ds->df00202 += factor*d4fdgagaabab;
5832 ds->df0013 += factor*d4fdgagbgbgb;
5833 ds->df00121 += factor*d4fdgagbgbab;
5834 ds->df00112 += factor*d4fdgagbabab;
5835 ds->df00103 += factor*d4fdgaababab;
5836 ds->df0004 += factor*d4fdgbgbgbgb;
5837 ds->df00031 += factor*d4fdgbgbgbab;
5838 ds->df00022 += factor*d4fdgbgbabab;
5839 ds->df00013 += factor*d4fdgbababab;
5840 ds->df00004 += factor*d4fdabababab;
5841
5842 }
5843