/* * ===================================================================================== * * Filename: BlochEquations.c * * Description: This program will exactly compute the solution of the Bloch euqations and * its first and second derivatives with respect to B1x(br), B1y(bi), R1, R2. The solution * is generated by codegen in Maple. * * Version: 1.0 * Created: 22/03/2011 01:37:20 * Revision: none * Compiler: gcc -lm * * Author: Zhenghua Nie (ZHN), zhenghua.nie@gmail.com * Institute: McMaster University * * Copyright (C) 2011 Zhenghua Nie. All Rights Reserved. * This code is published under GNU GENERAL PUBLIC LICENSE. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 3 of the License, or * (at your option) any later version. * * This program is distributed WITHOUT ANY WARRANTY. See the * GNU General Public License for more details. * * If you do not have a copy of the GNU General Public License, * write to the Free Software Foundation, Inc., * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * * * If you use this code for publishing papers, please cite the following paper: * * Alex D. Bain, Christopher Kumar Anand, Zhenghua Nie, * Exact Solution to the Bloch Equations and Application to the Hahn Echo, * Journal of Magnetic Resonance, 206 (2010) 227-240. * * ===================================================================================== */ #include #include #include #include #define PI 3.1415926535897932384 #define PTR_SIZE 160 void SolutionOfBlochEquations(double *ptr, double omega, double R1, double R2, double br, double bi, double pw); void format_output(const char *fmt, ...) { va_list argp; va_start(argp, fmt); vprintf(fmt, argp); va_end(argp); } int main(int argc, char **argv) { double *ptr; char *str[]={"newT", "newdTdbr", "newdTdbi", "newd2Tdbr2", "newd2Tdbi2", "newd2Tdbrbi", "newdTdR1", "newdTdR2", "newd2TdR12", "newd2TdR22"}; double omega=350.0, R1=1.0, R2=2.0, br=500, bi=0, pw=0.001; char *format="%12.3g %12.3g %12.3g %12.3g\n"; int i, j; ptr = (double *)malloc(sizeof(double)*PTR_SIZE); printf("Bloch Equations:\n"); format_output(format, -R2, -omega, bi, 0.0); format_output(format, omega, -R2, -br, 0.0); format_output(format, -bi, br, -R1, R1); format_output(format, 0.0, 0.0, 0.0, 0.0); SolutionOfBlochEquations(ptr, omega, R1, R2, br, bi, pw); for (i=0; i< 10;i++) { printf("\nMatrix: [%s]\n", str[i]); for(j=0;j<4;j++) { format_output(format, ptr[i*16+j*4], ptr[i*16+j*4+1], ptr[i*16+j*4+2], ptr[i*16+j*4+3]); } } free(ptr); return 0; } /*==================================================================== * compute newT=exp(A*pw) and * its first and second derivatives with respect to br, bi, R1, R2. * * * * input : offset(Hz) R1(1/s) R2(1/s) br(Hz) bi(Hz) pw(s) * output: ptr * codegen[C]([seq(ptr[i]=newT||(i-1),i=1..16)]); codegen[C]([seq(ptr[i+16]=newdTdbr||(i-1),i=1..16)]); codegen[C]([seq(ptr[i+32]=newdTdbi||(i-1),i=1..16)]); codegen[C]([seq(ptr[i+48]=newd2Tdbr2||(i-1),i=1..16)]); codegen[C]([seq(ptr[i+64] = newd2Tdbi2 || (i-1),i=1..16)]); codegen[C]([seq(ptr[i+80] = newd2Tdbrbi || (i-1),i=1..16)]); codegen[C]([seq(ptr[i+96] = newdTdR1 || (i-1),i=1..16)]); codegen[C]([seq(ptr[i+112] = newdTdR2 || (i-1),i=1..16)]); codegen[C]([seq(ptr[i+128] = newd2TdR12 || (i-1),i=1..16)]); codegen[C]([seq(ptr[i+144] = newd2TdR22 || (i-1),i=1..16)]); * *=================================================================== */ void SolutionOfBlochEquations(double *ptr, double omega, double R1, double R2, double br, double bi, double pw) { omega = 2.0*PI*omega; br = 2.0*PI*br; bi = 2.0*PI*bi; double t1 = R2*R2; double t2 = R1*t1; double t4 = t1*R2; double t6 = R1*R1; double t7 = t6*R2; double t9 = omega*omega; double t10 = R1*t9; double t12 = t9*R2; double t14 = br*br; double t15 = bi*bi; double t16 = t14+t15; double t19 = t16*R2; double t21 = t6*R1; double t23 = R1*R2; double t24 = t9*t16; double t30 = t1*t9; double t38 = t9*t9; double t41 = t16*t16; double t46 = t1*t1; double t59 = t6*t6; double t68 = 120.0*t23*t24-48.0*t4*R1*t9-60.0*t30*t16+72.0*t30*t6-48.0*t21*R2*t9-48.0*t23*t38+6.0*t23*t41-60.0*t24*t6+12.0*t46*t9+24.0*t1*t38-3.0*t1*t41+36.0*t38*t16+24.0*t38*t6+36.0*t9*t41+12.0*t9*t59-3.0*t41*t6+12.0*t38*t9+12.0*t41*t16; double t69 = sqrt(t68); double t71 = -24.0*t2+8.0*t4+24.0*t7-72.0*t10+72.0*t12+36.0*t16*R1-36.0*t19-8.0*t21+12.0*t69; double t72 = pow(t71,0.3333333333333333); double t73 = t72/6.0; double t80 = -t1/9.0+2.0/9.0*t23+t9/3.0+t14/3.0+t15/3.0-t6/9.0; double t81 = 1/t72; double t82 = t80*t81; double t83 = 6.0*t82; double t84 = R1/3.0; double t85 = 2.0/3.0*R2; double E4 = t73-t83-t84-t85; double E5 = -t72/12.0+3.0*t82-t84-t85; double t88 = sqrt(3.0); double E6 = t88*(t73+t83)/2.0; double t91 = E4*pw; double t92 = exp(t91); double t93 = t1*E5; double t94 = 2.0*t93; double t95 = E5*E5; double t96 = R2*t95; double t97 = E6*E6; double t98 = R2*t97; double t99 = 3.0*t12; double t100 = t15*R2; double t102 = t9*E5; double t103 = 2.0*t102; double t104 = t15*E5; double t105 = 2.0*t104; double t106 = t15*R1; double t107 = t4+t94+t96+t98-t99-2.0*t100-t103-t105-t106; double t108 = t92*t107; double t109 = 1/E4; double t110 = E4*E4; double t111 = E4*E5; double t113 = t110-2.0*t111+t95+t97; double t114 = 1/t113; double t115 = t109*t114; double t117 = E5*pw; double t118 = exp(t117); double t119 = 1/E6; double t120 = t118*t119; double t121 = E6*pw; double t122 = cos(t121); double t123 = R1*t122; double t124 = E6*E5; double t125 = t124*t15; double t126 = t123*t125; double t128 = E4*E6; double t129 = t128*t15; double t130 = t123*t129; double t131 = t122*E6; double t132 = t104*R2; double t133 = t131*t132; double t135 = t122*E4; double t136 = E6*t15; double t137 = t136*R2; double t138 = t135*t137; double t140 = sin(t121); double t141 = R1*t140; double t142 = t111*t15; double t143 = t141*t142; double t144 = t140*E4; double t145 = t144*t132; double t147 = t102*R2; double t149 = 3.0*t144*t147; double t150 = t96*E4; double t152 = 3.0*t131*t150; double t154 = 6.0*t131*t147; double t155 = t110*E5; double t156 = t155*R2; double t158 = 2.0*t131*t156; double t159 = E6*t9; double t160 = t159*R2; double t162 = 3.0*t135*t160; double t163 = -2.0*t126+t130-4.0*t133+2.0*t138-t143-2.0*t145-t149+t152-t154-t158+t162; double t164 = t140*t97; double t165 = R2*E5; double t166 = t165*E4; double t168 = 3.0*t164*t166; double t169 = t97*E6; double t170 = t122*t169; double t171 = t170*t15; double t172 = t95*E5; double t173 = t140*t172; double t174 = t173*t15; double t175 = t170*t9; double t176 = t170*t1; double t177 = t164*t4; double t178 = t173*t9; double t179 = t140*t95; double t180 = t179*t4; double t181 = t173*t1; double t182 = t95*t15; double t184 = 3.0*t131*t182; double t186 = 3.0*t164*t104; double t187 = t168+t171+t174+t175-t176+t177+t178-t180-t181-t184-t186; double t189 = t97*t15; double t190 = t141*t189; double t191 = t122*t110; double t192 = t191*t136; double t193 = t164*t100; double t195 = t141*t182; double t196 = t179*t100; double t198 = t140*t110; double t199 = t198*t104; double t201 = 3.0*t179*t12; double t202 = R2*E4; double t203 = t173*t202; double t204 = t198*t102; double t205 = E5*t4; double t206 = t144*t205; double t207 = t198*t93; double t208 = -t190+t192-2.0*t193+t195+2.0*t196-t199+t201-t203-t204+t206+t207; double t209 = t198*t96; double t210 = t95*t9; double t212 = 3.0*t131*t210; double t213 = t95*t1; double t215 = 3.0*t131*t213; double t217 = 2.0*t131*t205; double t218 = t170*t202; double t219 = t191*t159; double t220 = E6*t4; double t221 = t135*t220; double t222 = E6*t1; double t223 = t191*t222; double t225 = 3.0*t164*t102; double t227 = 3.0*t164*t93; double t229 = 3.0*t164*t12; double t230 = t198*t98; double t231 = t209-t212+t215+t217-t218+t219-t221-t223-t225+t227-t229-t230; double t233 = t163+t187+t208+t231; double t234 = t95*t95; double t237 = E4*t172; double t239 = t97*E4; double t240 = t239*E5; double t242 = t97*t97; double t243 = t110*t95; double t244 = t97*t110; double t245 = t234+2.0*t95*t97-2.0*t237-2.0*t240+t242+t243+t244; double t246 = 1/t245; double t247 = t233*t246; double newT0 = -t108*t115+t120*t247; double t249 = omega*t1; double t250 = 3.0*t249; double t251 = omega*R2; double t252 = t251*E5; double t253 = 4.0*t252; double t254 = omega*t95; double t255 = omega*t97; double t256 = t9*omega; double t257 = omega*t15; double t258 = bi*R2; double t259 = t258*br; double t260 = 2.0*t259; double t261 = bi*br; double t262 = t261*E5; double t263 = 2.0*t262; double t264 = omega*t14; double t265 = t261*R1; double t266 = t250+t253+t254+t255-t256-t257+t260+t263-t264+t265; double t267 = t92*t266; double t270 = 2.0*t179*t259; double t271 = t179*t265; double t272 = omega*E5; double t273 = t272*t1; double t275 = 3.0*t144*t273; double t277 = 2.0*t198*t252; double t278 = t272*t15; double t279 = t144*t278; double t280 = t198*t262; double t281 = t272*t14; double t282 = t144*t281; double t283 = t95*br; double t284 = t283*bi; double t286 = 3.0*t131*t284; double t287 = t254*E4; double t289 = 3.0*t131*t287; double t290 = t254*R2; double t292 = 6.0*t131*t290; double t294 = 6.0*t131*t273; double t296 = 2.0*t131*t278; double t297 = -t270-t271+t275+t277-t279+t280-t282+t286+t289+t292+t294-t296; double t299 = 2.0*t131*t281; double t300 = t155*omega; double t302 = 2.0*t131*t300; double t303 = E6*omega; double t304 = t303*t1; double t306 = 3.0*t135*t304; double t307 = t303*R2; double t309 = 2.0*t191*t307; double t310 = t303*t15; double t311 = t135*t310; double t312 = E6*br; double t313 = t312*bi; double t314 = t191*t313; double t315 = t303*t14; double t316 = t135*t315; double t318 = 3.0*t164*t262; double t319 = t272*E4; double t321 = 3.0*t164*t319; double t323 = 6.0*t164*t252; double t325 = 2.0*t164*t259; double t326 = t164*t265; double t327 = -t299-t302-t306-t309+t311-t314+t316+t318+t321+t323+t325+t326; double t329 = t131*E5; double t331 = 4.0*t329*t259; double t333 = 2.0*t329*t265; double t334 = t135*E6; double t336 = 2.0*t334*t259; double t337 = t334*t265; double t338 = t144*E5; double t340 = 2.0*t338*t259; double t341 = t338*t265; double t342 = t164*t256; double t343 = t179*t256; double t344 = E5*t256; double t346 = 2.0*t131*t344; double t347 = t170*t261; double t348 = omega*E4; double t349 = t170*t348; double t351 = 2.0*t170*t251; double t352 = t331+t333-t336-t337+t340+t341-t342+t343-t346-t347-t349-t351; double t353 = E6*t256; double t354 = t135*t353; double t356 = 3.0*t164*t249; double t357 = t164*t257; double t358 = t164*t264; double t359 = t198*t255; double t361 = 3.0*t179*t249; double t363 = 2.0*t173*t251; double t364 = t173*t348; double t365 = t179*t257; double t366 = t179*t264; double t367 = t173*t261; double t368 = t198*t254; double t369 = t144*t344; double t370 = t354+t356-t357-t358-t359-t361-t363-t364+t365+t366-t367+t368-t369; double t372 = t297+t327+t352+t370; double t373 = t372*t246; double newT1 = -t267*t115+t120*t373; double t375 = bi*t1; double t376 = t258*E5; double t377 = 2.0*t376; double t378 = bi*t95; double t379 = bi*t97; double t380 = bi*t9; double t381 = t15*bi; double t382 = omega*br; double t383 = t382*R2; double t384 = 2.0*t383; double t385 = t382*E5; double t386 = 2.0*t385; double t387 = bi*t14; double t388 = bi*R1; double t389 = t388*R2; double t390 = t388*E5; double t391 = 2.0*t390; double t392 = R1*omega; double t393 = t392*br; double t394 = bi*t6; double t395 = t375+t377+t378+t379-t380-t381-t384-t386-t387+t389+t391-t393+t394; double t396 = t92*t395; double t398 = t378*R2; double t400 = 3.0*t131*t398; double t401 = E4*t95; double t402 = t401*bi; double t404 = 3.0*t131*t402; double t405 = t254*br; double t407 = 3.0*t131*t405; double t408 = t378*R1; double t410 = 3.0*t131*t408; double t411 = t155*bi; double t413 = 2.0*t131*t411; double t415 = 3.0*t164*t376; double t416 = bi*E5; double t417 = t416*E4; double t419 = 3.0*t164*t417; double t421 = 3.0*t164*t385; double t423 = 3.0*t164*t390; double t425 = 2.0*t179*t383; double t426 = t416*t1; double t427 = t144*t426; double t428 = t198*t376; double t429 = t416*t9; double t430 = t144*t429; double t431 = t198*t385; double t432 = t6*t140; double t433 = t432*t417; double t434 = t141*t398; double t435 = t400+t404-t407+t410-t413+t415+t419-t421+t423+t425+t427+t428-t430-t431+t433-t434; double t436 = t141*t405; double t437 = t141*t411; double t438 = t110*E6; double t439 = t438*bi; double t440 = t123*t439; double t441 = t379*R2; double t442 = t141*t441; double t443 = t255*br; double t444 = t141*t443; double t445 = t6*t122; double t446 = t124*bi; double t448 = 2.0*t445*t446; double t449 = t128*bi; double t450 = t445*t449; double t452 = 2.0*t131*t426; double t454 = 2.0*t131*t429; double t455 = t416*t14; double t457 = 2.0*t131*t455; double t458 = E6*bi; double t459 = t458*t1; double t460 = t135*t459; double t461 = t458*R2; double t462 = t191*t461; double t463 = t458*t9; double t464 = t135*t463; double t465 = t312*omega; double t466 = t191*t465; double t467 = t458*t14; double t468 = t135*t467; double t470 = 2.0*t164*t383; double t471 = t436+t437-t440+t442-t444+t448-t450+t452-t454-t457-t460-t462+t464+t466+t468-t470; double t473 = t144*t455; double t475 = 2.0*t334*t383; double t476 = t123*E6; double t478 = 2.0*t476*t376; double t480 = 2.0*t476*t385; double t481 = t123*E4; double t482 = t481*t461; double t483 = t481*t465; double t485 = 4.0*t329*t383; double t486 = t141*E4; double t487 = t486*t376; double t488 = t486*t385; double t490 = 2.0*t338*t383; double t491 = t164*t381; double t492 = t179*t381; double t493 = t170*t258; double t494 = bi*E4; double t495 = t170*t494; double t496 = t170*t382; double t497 = t170*t388; double t498 = -t473+t475+t478-t480-t482+t483-t485+t487-t488-t490-t491+t492-t493-t495+t496-t497; double t499 = t198*t379; double t500 = t432*t379; double t501 = E5*t381; double t503 = 2.0*t131*t501; double t504 = E6*t381; double t505 = t135*t504; double t506 = t164*t375; double t507 = t164*t380; double t508 = t164*t387; double t509 = t172*bi; double t510 = t141*t509; double t511 = t432*t378; double t512 = t179*t375; double t513 = t173*t258; double t514 = t173*t494; double t515 = t179*t380; double t516 = t173*t382; double t517 = t179*t387; double t518 = t198*t378; double t519 = t144*t501; double t520 = -t499+t500-t503+t505+t506-t507-t508-t510-t511-t512-t513-t514+t515+t516+t517+t518-t519; double t522 = t435+t471+t498+t520; double t523 = t522*t246; double newT2 = t396*t115-t120*t523; double t525 = 2.0*t416; double t526 = t258+t525-t382+t388; double t527 = t92*t526; double t528 = R1*t109; double t529 = t528*t114; double t531 = t118*R1; double t532 = t131*t378; double t533 = 3.0*t532; double t534 = t191*t458; double t535 = t173*bi; double t536 = t164*t416; double t537 = 3.0*t536; double t538 = t164*t258; double t539 = t164*t382; double t540 = t123*t446; double t541 = 2.0*t540; double t542 = t123*t449; double t543 = t141*t378; double t544 = t141*t379; double t546 = t170*bi; double t547 = t141*t417; double t548 = t144*t376; double t549 = t144*t385; double t550 = t131*t376; double t551 = 2.0*t550; double t552 = t131*t385; double t553 = 2.0*t552; double t554 = t135*t461; double t555 = t135*t465; double t556 = t179*t258; double t557 = t179*t382; double t558 = t198*t416; double t559 = -t546+t547+t548-t549+t551-t553-t554+t555-t556+t557+t558; double t560 = t533-t534-t535+t537+t538-t539+t541-t542-t543+t544+t559; double t561 = t119*t560; double t562 = t561*t246; double t564 = t258+t382; double t565 = R1*t564; double t566 = t19+t2+t10; double t567 = 1/t566; double newT3 = -t527*t529+t531*t562+t565*t567; double t569 = t250+t253-t260-t256+t254+t255-t264-t257-t263-t265; double t570 = t92*t569; double t572 = t270+t271+t275+t277-t279-t280-t282-t286+t289+t292+t294-t296; double t573 = -t299-t302-t306-t309+t311+t314+t316-t318+t321+t323-t325-t326; double t575 = -t331-t333+t336+t337-t340-t341-t342+t343-t346+t347-t349-t351; double t576 = t354+t356-t357-t358-t359-t361-t363-t364+t365+t366+t367+t368-t369; double t578 = t572+t573+t575+t576; double t579 = t578*t246; double newT4 = t570*t115-t120*t579; double t581 = t14*R2; double t583 = t14*E5; double t584 = 2.0*t583; double t585 = t14*R1; double t586 = -t99-t103+t4+t94+t96+t98-2.0*t581-t584-t585; double t587 = t92*t586; double t589 = -t149+t152-t154-t158+t162+t168+t175-t176+t177+t178-t180; double t590 = t170*t14; double t591 = t173*t14; double t592 = -t181+t590+t591+t201-t203-t204+t206+t207+t209-t212+t215; double t594 = t95*t14; double t596 = 3.0*t131*t594; double t598 = 3.0*t164*t583; double t599 = t217-t218+t219-t221-t223-t225+t227-t229-t230-t596-t598; double t600 = t97*t14; double t601 = t141*t600; double t602 = E6*t14; double t603 = t191*t602; double t604 = t164*t581; double t606 = t141*t594; double t607 = t179*t581; double t609 = t198*t583; double t610 = t124*t14; double t611 = t123*t610; double t613 = t128*t14; double t614 = t123*t613; double t615 = t583*R2; double t616 = t131*t615; double t618 = t602*R2; double t619 = t135*t618; double t621 = t111*t14; double t622 = t141*t621; double t623 = t144*t615; double t625 = -t601+t603-2.0*t604+t606+2.0*t607-t609-2.0*t611+t614-4.0*t616+2.0*t619-t622-2.0*t623; double t627 = t589+t592+t599+t625; double t628 = t627*t246; double newT5 = -t587*t115+t120*t628; double t630 = omega*bi; double t631 = t630*R2; double t632 = 2.0*t631; double t633 = t630*E5; double t634 = 2.0*t633; double t635 = t15*br; double t636 = br*t9; double t637 = br*t1; double t638 = br*R2; double t639 = t638*E5; double t640 = 2.0*t639; double t641 = br*t97; double t642 = t14*br; double t643 = t392*bi; double t644 = br*R1; double t645 = t644*R2; double t646 = t644*E5; double t647 = 2.0*t646; double t648 = br*t6; double t649 = t632+t634-t635-t636+t637+t640+t283+t641-t642+t643+t645+t647+t648; double t650 = t92*t649; double t653 = 2.0*t476*t633; double t655 = 2.0*t476*t639; double t656 = t303*bi; double t657 = t481*t656; double t658 = t312*R2; double t659 = t481*t658; double t661 = 4.0*t329*t631; double t663 = 2.0*t334*t631; double t664 = t486*t633; double t665 = t486*t639; double t667 = 2.0*t338*t631; double t668 = t164*t642; double t669 = t179*t642; double t670 = t170*t630; double t671 = t170*t638; double t672 = br*E4; double t673 = t170*t672; double t674 = t170*t644; double t675 = t198*t641; double t676 = t653+t655-t657-t659+t661-t663+t664+t665+t667-t668+t669-t670-t671-t673-t674-t675; double t677 = t432*t641; double t678 = E5*t642; double t680 = 2.0*t131*t678; double t681 = E6*t642; double t682 = t135*t681; double t683 = t164*t635; double t684 = t164*t636; double t685 = t164*t637; double t686 = t432*t283; double t687 = t172*br; double t688 = t141*t687; double t689 = t173*t630; double t690 = t179*t635; double t691 = t179*t636; double t692 = t179*t637; double t693 = t173*t638; double t694 = t173*t672; double t695 = t198*t283; double t696 = t144*t678; double t697 = t677-t680+t682-t683-t684+t685-t686-t688-t689+t690+t691-t692-t693-t694+t695-t696; double t699 = t283*R2; double t701 = 3.0*t131*t699; double t702 = t283*E4; double t704 = 3.0*t131*t702; double t705 = t283*R1; double t707 = 3.0*t131*t705; double t708 = t155*br; double t710 = 2.0*t131*t708; double t711 = t254*bi; double t713 = 3.0*t131*t711; double t715 = 3.0*t164*t633; double t717 = 3.0*t164*t639; double t718 = br*E5; double t719 = t718*E4; double t721 = 3.0*t164*t719; double t723 = 3.0*t164*t646; double t724 = t128*br; double t725 = t445*t724; double t726 = t124*br; double t728 = 2.0*t445*t726; double t729 = t438*br; double t730 = t123*t729; double t731 = t255*bi; double t732 = t141*t731; double t733 = t641*R2; double t734 = t141*t733; double t735 = t104*br; double t737 = 2.0*t131*t735; double t738 = t718*t9; double t740 = 2.0*t131*t738; double t741 = t701+t704+t707-t710+t713+t715+t717+t721+t723-t725+t728-t730+t732+t734-t737-t740; double t742 = t718*t1; double t744 = 2.0*t131*t742; double t745 = t191*t656; double t746 = t136*br; double t747 = t135*t746; double t748 = t312*t9; double t749 = t135*t748; double t750 = t312*t1; double t751 = t135*t750; double t752 = t191*t658; double t754 = 2.0*t164*t631; double t755 = t141*t711; double t756 = t141*t699; double t757 = t141*t708; double t758 = t432*t719; double t760 = 2.0*t179*t631; double t761 = t198*t633; double t762 = t144*t735; double t763 = t144*t738; double t764 = t144*t742; double t765 = t198*t639; double t766 = t744-t745+t747+t749-t751-t752+t754-t755-t756+t757+t758-t760+t761-t762-t763+t764+t765; double t768 = t676+t697+t741+t766; double t769 = t768*t246; double newT6 = -t650*t115+t120*t769; double t771 = 2.0*t718; double t772 = t630+t638+t771+t644; double t773 = t92*t772; double t775 = t179*t630; double t776 = t179*t638; double t777 = t198*t718; double t778 = t141*t719; double t779 = t131*t633; double t780 = 2.0*t779; double t781 = t131*t639; double t782 = 2.0*t781; double t783 = t135*t656; double t784 = t123*t724; double t785 = t141*t283; double t786 = t123*t726; double t787 = 2.0*t786; double t789 = t131*t283; double t790 = 3.0*t789; double t791 = t191*t312; double t792 = t173*br; double t793 = t164*t718; double t794 = 3.0*t793; double t795 = t164*t630; double t796 = t164*t638; double t797 = t135*t658; double t798 = t170*br; double t799 = t141*t641; double t800 = t144*t633; double t801 = t144*t639; double t802 = t790-t791-t792+t794+t795+t796-t797-t798+t799+t800+t801; double t803 = -t775-t776+t777+t778+t780+t782-t783-t784-t785+t787+t802; double t804 = t119*t803; double t805 = t804*t246; double t807 = -t630+t638; double t808 = R1*t807; double newT7 = t773*t529-t531*t805-t808*t567; double t810 = t375+t377+t384+t389-t380+t386+t393-t381-t387+t394+t391+t378+t379; double t811 = t92*t810; double t813 = t400+t404+t407+t410-t413+t415+t419+t421+t423-t425+t427+t428-t430+t431+t433-t434; double t814 = -t436+t437-t440+t442+t444+t448-t450+t452-t454-t457-t460-t462+t464-t466+t468+t470; double t816 = -t473-t475+t478+t480-t482-t483+t485+t487+t488+t490-t491+t492-t493-t495-t496-t497; double t817 = -t499+t500-t503+t505+t506-t507-t508-t510-t511-t512-t513-t514+t515-t516+t517+t518-t519; double t819 = t813+t814+t816+t817; double t820 = t819*t246; double newT8 = -t811*t115+t120*t820; double t822 = -t632-t634-t636-t643+t637+t640+t645-t635-t642+t648+t647+t283+t641; double t823 = t92*t822; double t825 = -t653+t655+t657-t659-t661+t663-t664+t665-t667-t668+t669+t670-t671-t673-t674-t675; double t826 = t677-t680+t682-t683-t684+t685-t686-t688+t689+t690+t691-t692-t693-t694+t695-t696; double t828 = t701+t704+t707-t710-t713-t715+t717+t721+t723-t725+t728-t730-t732+t734-t737-t740; double t829 = t744+t745+t747+t749-t751-t752-t754+t755-t756+t757+t758+t760-t761-t762-t763+t764+t765; double t831 = t825+t826+t828+t829; double t832 = t831*t246; double newT9 = t823*t115-t120*t832; double t836 = t6*E5; double t839 = R1*t97; double t840 = -t100-t105-2.0*t106-t581-t584-2.0*t585+t21+2.0*t836+R1*t95+t839; double t841 = t92*t840; double t848 = t21*t140; double t850 = -4.0*t126+2.0*t130-2.0*t133+t138-2.0*t143-t145+t171+t174+t590+t591-t170*t6-t848*t95; double t856 = -t432*t172+t848*t97-t184-t186-2.0*t190+t192-t193+2.0*t195+t196-t199-t596-t598-2.0*t601; double t859 = t95*t6; double t862 = E4*R1; double t867 = t21*t122; double t872 = t603-t604+2.0*t606+t607-t609+3.0*t131*t859-t170*t862+3.0*t164*t836-t198*t839+2.0*t867*t124-t867*t128-t445*t438; double t881 = t401*R1; double t884 = t155*R1; double t887 = t111*R1; double t890 = t848*t111+t432*t155-t141*t237+t141*t243-4.0*t611+2.0*t614-2.0*t616+t619-2.0*t622-t623+3.0*t131*t881-2.0*t131*t884+3.0*t164*t887; double t892 = t850+t856+t872+t890; double t893 = t892*t246; double newT10 = -t841*t115+t120*t893; double t895 = R1*E5; double t896 = 2.0*t895; double t897 = -t15-t14+t6+t896+t95+t97; double t898 = t92*t897; double t900 = t123*t169; double t901 = t432*t97; double t902 = t164*t15; double t903 = t198*t97; double t904 = t432*t95; double t905 = t141*t172; double t906 = t164*t14; double t907 = t170*E4; double t908 = t179*t15; double t909 = t179*t14; double t910 = t173*E4; double t911 = t198*t95; double t912 = E6*t95; double t913 = t123*t912; double t914 = 3.0*t913; double t915 = t445*t124; double t916 = 2.0*t915; double t917 = -t900+t901-t902-t903-t904-t905-t906-t907+t908+t909-t910+t911+t914+t916; double t918 = t445*t128; double t919 = t123*t438; double t920 = t97*E5; double t921 = t141*t920; double t922 = 3.0*t921; double t923 = t144*t104; double t924 = t144*t583; double t925 = t432*t111; double t926 = t141*t155; double t928 = 3.0*t131*t401; double t929 = t131*t104; double t930 = 2.0*t929; double t931 = t131*t583; double t932 = 2.0*t931; double t934 = 2.0*t131*t155; double t935 = t135*t136; double t936 = t135*t602; double t938 = 3.0*t164*t111; double t939 = -t918-t919+t922-t923-t924+t925+t926+t928-t930-t932-t934+t935+t936+t938; double t940 = t917+t939; double t941 = t119*t940; double t942 = t941*t246; double t944 = t9+t1; double t945 = R1*t944; double newT11 = t898*t529-t531*t942+t945*t567; double newT12 = 0.0; double newT13 = 0.0; double newT14 = 0.0; double newT15 = 1.0; double t947 = t92*t15; double t949 = -t930+t935-t923-t902+t908; double t950 = t949*t246; double t952 = t72*t72; double t953 = 1/t952; double t954 = 24.0*t1; double t955 = 48.0*t23; double t956 = 72.0*t9; double t957 = 36.0*t14; double t958 = 36.0*t15; double t959 = 24.0*t6; double t960 = 1/t69; double t981 = 120.0*t12*t16-48.0*t4*t9+144.0*t30*R1-144.0*t7*t9-48.0*R2*t38+6.0*R2*t41-120.0*t24*R1+48.0*t38*R1+48.0*t9*t21-6.0*t41*R1; double t984 = -t954+t955-t956+t957+t958-t959+6.0*t960*t981; double t985 = t953*t984; double t986 = t985/18.0; double t988 = 2.0/9.0*R2-2.0/9.0*R1; double t989 = t988*t81; double t990 = 6.0*t989; double t992 = 1/t72/t71; double t993 = t80*t992; double t994 = t993*t984; double t995 = 2.0*t994; double t996 = t986-t990+t995-1.0/3.0; double t997 = pw*t92; double t999 = t107*t109*t114; double t1001 = 1/t110; double t1002 = t1001*t114; double t1004 = t113*t113; double t1005 = 1/t1004; double t1006 = t109*t1005; double t1008 = 2.0*E4-2.0*E5; double t1009 = t1006*t1008; double t1011 = t123*t136; double t1012 = t131*t100; double t1013 = 2.0*t1012; double t1014 = t141*t104; double t1015 = t140*E5; double t1016 = t1015*t100; double t1017 = 2.0*t1016; double t1018 = 2.0*t935; double t1019 = 2.0*t923; double t1020 = t173*R2; double t1021 = t144*t102; double t1022 = 2.0*t1021; double t1023 = t1015*t4; double t1024 = t144*t93; double t1025 = 2.0*t1024; double t1027 = t144*t96; double t1029 = t170*R2; double t1030 = t135*t159; double t1032 = t131*t4; double t1033 = t135*t222; double t1035 = t144*t98; double t1037 = t1015*t12; double t1039 = t131*t96; double t1040 = 3.0*t1039; double t1041 = t131*t166; double t1043 = t131*t12; double t1045 = t164*t165; double t1046 = 3.0*t1045; double t1047 = 2.0*t1027-t1029+2.0*t1030-t1032-2.0*t1033-2.0*t1035-3.0*t1037+t1040-4.0*t1041+3.0*t1043+t1046; double t1048 = t1011+t1013-t1014-t1017+t1018-t1019-t1020-t1022+t1023+t1025+t1047; double t1049 = t1048*t246; double t1051 = t245*t245; double t1052 = 1/t1051; double t1053 = t233*t1052; double t1055 = -2.0*t172-2.0*t920+2.0*t401+2.0*t239; double t1056 = t1053*t1055; double t1058 = -t997*t999+t108*t1002+t108*t1009+t120*t1049-t120*t1056; double t1062 = -t985/36.0+3.0*t989-t994-1.0/3.0; double t1064 = 2.0*t1+2.0*t165-2.0*t9-2.0*t15; double t1065 = t92*t1064; double t1067 = -t1008; double t1068 = t1006*t1067; double t1070 = pw*t118; double t1072 = t119*t233*t246; double t1074 = 2.0*t1023; double t1075 = 2.0*t1032; double t1076 = 3.0*t902; double t1077 = 3.0*t908; double t1078 = 6.0*t929; double t1079 = 2.0*t1011; double t1081 = 2.0*t1014; double t1083 = 3.0*t1027; double t1084 = 3.0*t1035; double t1085 = 6.0*t1037; double t1086 = 6.0*t1043; double t1087 = 6.0*t1041; double t1088 = -t1074+t1075-t1076+t1077-t1078-t1079-4.0*t1012+t1081+4.0*t1016-t1083+t1084+t1085-t1086+t1087; double t1089 = E4*t15; double t1090 = t141*t1089; double t1091 = t144*t100; double t1093 = t198*t165; double t1094 = 2.0*t1093; double t1095 = t131*t102; double t1096 = 6.0*t1095; double t1097 = t131*t93; double t1098 = 6.0*t1097; double t1100 = 3.0*t144*t12; double t1102 = t131*t110*R2; double t1103 = 2.0*t1102; double t1104 = t179*t9; double t1105 = 3.0*t1104; double t1106 = t179*t1; double t1107 = 3.0*t1106; double t1108 = t198*t15; double t1109 = t198*t9; double t1110 = t144*t4; double t1111 = t198*t1; double t1112 = t164*t9; double t1113 = 3.0*t1112; double t1114 = t164*t1; double t1115 = 3.0*t1114; double t1116 = -t1090-2.0*t1091+t1094-t1096+t1098-t1100-t1103+t1105-t1107-t1108-t1109+t1110+t1111-t1113+t1115; double t1117 = t1088+t1116; double t1118 = t1117*t246; double t1125 = 4.0*t172+4.0*t920-6.0*t401-2.0*t239+2.0*t155; double t1126 = t1053*t1125; double t1128 = -t1065*t115+t108*t1068+t1070*t1072+t120*t1118-t120*t1126; double t1131 = t88*(t986+t990-t995); double t1132 = t92*R2; double t1134 = E6*t109*t114; double t1136 = 2.0*t1132*t1134; double t1137 = t1006*E6; double t1140 = 1/t97; double t1141 = t118*t1140; double t1143 = t141*pw; double t1144 = t1143*t125; double t1146 = t1143*t129; double t1147 = t140*pw; double t1148 = t1147*E6; double t1149 = t1148*t132; double t1151 = t1147*E4; double t1152 = t1151*t137; double t1154 = t123*pw; double t1155 = t1154*t142; double t1156 = t122*pw; double t1157 = t1156*E4; double t1158 = t1157*t132; double t1160 = t169*t15; double t1161 = t1147*t1160; double t1162 = t172*t15; double t1163 = t1156*t1162; double t1164 = t169*t9; double t1165 = t1147*t1164; double t1166 = t169*t1; double t1167 = t1147*t1166; double t1168 = t97*t4; double t1169 = t1156*t1168; double t1170 = t140*E6; double t1172 = 6.0*t1170*t104; double t1173 = t123*t104; double t1175 = t123*t1089; double t1176 = t122*E5; double t1177 = t1176*t100; double t1179 = t135*t100; double t1181 = t141*t136; double t1183 = t1170*t100; double t1185 = 2.0*t1144-t1146+4.0*t1149-2.0*t1152-t1155-2.0*t1158-t1161+t1163-t1165+t1167+t1169-t1172-2.0*t1173+t1175-4.0*t1177+2.0*t1179-2.0*t1181-4.0*t1183; double t1186 = t122*t97; double t1188 = 3.0*t1186*t202; double t1190 = 6.0*t1170*t102; double t1192 = 6.0*t1170*t93; double t1194 = 6.0*t1170*t12; double t1195 = E6*R2; double t1197 = 2.0*t198*t1195; double t1198 = t172*t9; double t1199 = t1156*t1198; double t1200 = t95*t4; double t1201 = t1156*t1200; double t1202 = t172*t1; double t1203 = t1156*t1202; double t1204 = t122*t95; double t1206 = 3.0*t1204*t202; double t1208 = 6.0*t1176*t12; double t1210 = 2.0*t191*t165; double t1212 = 3.0*t135*t12; double t1214 = 3.0*t1186*t1; double t1216 = 2.0*t1170*t4; double t1218 = 3.0*t1204*t15; double t1220 = 3.0*t1186*t15; double t1221 = t191*t15; double t1223 = 3.0*t1204*t9; double t1225 = 3.0*t1204*t1; double t1226 = -t1188-t1190+t1192-t1194-t1197+t1199-t1201-t1203+t1206-t1208-t1210+t1212-t1214+t1216-t1218+t1220+t1221-t1223+t1225; double t1229 = 2.0*t1176*t4; double t1230 = t191*t9; double t1231 = t135*t4; double t1232 = t191*t1; double t1234 = 3.0*t1186*t9; double t1235 = t912*t15; double t1237 = 3.0*t1147*t1235; double t1238 = t920*t15; double t1240 = 3.0*t1156*t1238; double t1241 = pw*t97; double t1243 = t123*t1241*t15; double t1244 = t438*t15; double t1245 = t1147*t1244; double t1246 = t189*R2; double t1247 = t1156*t1246; double t1249 = pw*t95; double t1251 = t123*t1249*t15; double t1252 = t182*R2; double t1253 = t1156*t1252; double t1255 = t155*t15; double t1256 = t1156*t1255; double t1257 = t210*R2; double t1259 = 3.0*t1156*t1257; double t1260 = t172*R2; double t1261 = t1260*E4; double t1262 = t1156*t1261; double t1263 = t155*t9; double t1264 = t1156*t1263; double t1265 = t111*t4; double t1266 = t1156*t1265; double t1267 = t155*t1; double t1268 = t1156*t1267; double t1269 = t1229+t1230-t1231-t1232+t1234+t1237-t1240-t1243-t1245-2.0*t1247+t1251+2.0*t1253-t1256+t1259-t1262-t1264+t1266+t1268; double t1270 = t243*R2; double t1271 = t1156*t1270; double t1272 = t912*t9; double t1274 = 3.0*t1147*t1272; double t1275 = t912*t1; double t1277 = 3.0*t1147*t1275; double t1278 = t124*t4; double t1280 = 2.0*t1147*t1278; double t1281 = t169*R2; double t1282 = t1281*E4; double t1283 = t1147*t1282; double t1284 = t438*t9; double t1285 = t1147*t1284; double t1286 = t128*t4; double t1287 = t1147*t1286; double t1288 = t438*t1; double t1289 = t1147*t1288; double t1290 = t920*t9; double t1292 = 3.0*t1156*t1290; double t1293 = t920*t1; double t1295 = 3.0*t1156*t1293; double t1296 = t97*t9; double t1297 = t1296*R2; double t1299 = 3.0*t1156*t1297; double t1300 = t244*R2; double t1301 = t1156*t1300; double t1303 = 6.0*t1170*t166; double t1305 = 3.0*t1157*t147; double t1307 = 3.0*t1148*t150; double t1309 = 6.0*t1148*t147; double t1311 = 2.0*t1148*t156; double t1313 = 3.0*t1151*t160; double t1314 = t1156*t97; double t1316 = 3.0*t1314*t166; double t1317 = t1271+t1274-t1277-t1280+t1283-t1285+t1287+t1289-t1292+t1295-t1299-t1301+t1303-t1305-t1307+t1309+t1311-t1313+t1316; double t1319 = t1185+t1226+t1269+t1317; double t1320 = t1319*t246; double t1323 = t128*E5; double t1327 = 4.0*t912-4.0*t1323+4.0*t169+2.0*t438; double t1328 = t1053*t1327; double t1330 = -t1136+2.0*t108*t1137-t1141*t247+t120*t1320-t120*t1328; double newdTdR10 = t947*t115+t120*t950+t996*t1058+t1062*t1128+t1131*t1330/2.0; double t1333 = t92*bi; double t1335 = br*t109*t114; double t1336 = t1333*t1335; double t1337 = t179*t261; double t1338 = t164*t261; double t1339 = t131*t262; double t1341 = t135*t313; double t1342 = t144*t262; double t1343 = -t1337+t1338+2.0*t1339-t1341+t1342; double t1344 = t1343*t246; double t1347 = t266*t109*t114; double t1351 = t170*omega; double t1352 = t131*t256; double t1353 = t144*t255; double t1354 = 2.0*t1353; double t1355 = t173*omega; double t1356 = t144*t254; double t1357 = 2.0*t1356; double t1358 = t1015*t256; double t1359 = t1015*t249; double t1360 = 3.0*t1359; double t1361 = t144*t252; double t1362 = 4.0*t1361; double t1363 = t1015*t257; double t1364 = 2.0*t1342; double t1365 = t1015*t264; double t1366 = -t1351+t1352-t1354-t1355+t1357-t1358+t1360+t1362-t1363+t1364-t1365; double t1367 = t131*t254; double t1368 = 3.0*t1367; double t1369 = t131*t319; double t1370 = 4.0*t1369; double t1371 = t131*t249; double t1372 = 3.0*t1371; double t1373 = t135*t307; double t1374 = 4.0*t1373; double t1375 = t131*t257; double t1376 = 2.0*t1341; double t1377 = t131*t264; double t1378 = t164*t272; double t1379 = 3.0*t1378; double t1380 = t131*t259; double t1381 = 2.0*t1380; double t1382 = t131*t265; double t1383 = t1015*t259; double t1384 = 2.0*t1383; double t1385 = t1015*t265; double t1386 = t1368-t1370-t1372-t1374+t1375-t1376+t1377+t1379-t1381-t1382+t1384+t1385; double t1387 = t1366+t1386; double t1388 = t1387*t246; double t1390 = t372*t1052; double t1391 = t1390*t1055; double t1393 = -t997*t1347+t267*t1002+t267*t1009+t120*t1388-t120*t1391; double t1395 = 4.0*t251; double t1396 = 2.0*t272; double t1397 = 2.0*t261; double t1398 = t1395+t1396+t1397; double t1399 = t92*t1398; double t1403 = t119*t372*t246; double t1405 = 3.0*t1337; double t1406 = 3.0*t1338; double t1407 = 3.0*t1353; double t1408 = 3.0*t1356; double t1409 = 6.0*t1359; double t1410 = 2.0*t1363; double t1411 = 2.0*t1365; double t1412 = 6.0*t1371; double t1413 = 2.0*t1375; double t1414 = 2.0*t1377; double t1415 = 2.0*t1352; double t1416 = 2.0*t1358; double t1417 = 6.0*t1339; double t1418 = 6.0*t1369; double t1419 = 4.0*t1380; double t1420 = -t1405+t1406+t1407-t1408-t1409+t1410+t1411+t1412-t1413-t1414-t1415+t1416+t1417+t1418+t1419; double t1421 = 2.0*t1382; double t1422 = 4.0*t1383; double t1423 = 2.0*t1385; double t1425 = 2.0*t144*t259; double t1426 = t144*t265; double t1427 = t131*t252; double t1428 = 12.0*t1427; double t1429 = t144*t256; double t1430 = t179*t251; double t1431 = 6.0*t1430; double t1432 = t198*t272; double t1433 = 2.0*t1432; double t1435 = 3.0*t144*t249; double t1437 = 2.0*t198*t251; double t1438 = t144*t257; double t1439 = t198*t261; double t1440 = t144*t264; double t1441 = t110*omega; double t1442 = t131*t1441; double t1443 = 2.0*t1442; double t1444 = t164*t251; double t1445 = 6.0*t1444; double t1446 = t1421-t1422-t1423+t1425+t1426+t1428-t1429-t1431+t1433+t1435+t1437-t1438+t1439-t1440-t1443+t1445; double t1447 = t1420+t1446; double t1448 = t1447*t246; double t1450 = t1390*t1125; double t1452 = -t1399*t115+t267*t1068+t1070*t1403+t120*t1448-t120*t1450; double t1454 = t92*omega; double t1456 = 2.0*t1454*t1134; double t1460 = t1156*t95; double t1462 = 2.0*t1460*t259; double t1463 = t1460*t265; double t1465 = 3.0*t1157*t273; double t1466 = t1156*t110; double t1468 = 2.0*t1466*t252; double t1469 = t1157*t278; double t1470 = t1466*t262; double t1471 = t1157*t281; double t1473 = 3.0*t1148*t284; double t1475 = 3.0*t1148*t287; double t1477 = 6.0*t1148*t290; double t1479 = 6.0*t1148*t273; double t1481 = 2.0*t1148*t278; double t1483 = 2.0*t1148*t281; double t1485 = 2.0*t1148*t300; double t1487 = 3.0*t1151*t304; double t1488 = t1147*t110; double t1490 = 2.0*t1488*t307; double t1491 = t1151*t310; double t1492 = t1488*t313; double t1493 = t1151*t315; double t1495 = 3.0*t1314*t262; double t1496 = -t1462-t1463+t1465+t1468-t1469+t1470-t1471-t1473-t1475-t1477-t1479+t1481+t1483+t1485+t1487+t1490-t1491+t1492-t1493+t1495; double t1498 = 3.0*t1314*t319; double t1500 = 6.0*t1314*t252; double t1502 = 2.0*t1314*t259; double t1503 = t1314*t265; double t1505 = 2.0*t1170*t256; double t1507 = 2.0*t1176*t256; double t1508 = t135*t256; double t1509 = t97*t256; double t1510 = t1156*t1509; double t1511 = t95*t256; double t1512 = t1156*t1511; double t1514 = 3.0*t1186*t261; double t1516 = 3.0*t1186*t348; double t1518 = 6.0*t1186*t251; double t1520 = 6.0*t1170*t249; double t1522 = 2.0*t1170*t257; double t1524 = 2.0*t1170*t264; double t1526 = 2.0*t198*t303; double t1528 = 3.0*t1204*t261; double t1530 = 3.0*t1204*t348; double t1532 = 6.0*t1204*t251; double t1534 = 6.0*t1176*t249; double t1535 = t1498+t1500+t1502+t1503-t1505-t1507+t1508-t1510+t1512-t1514-t1516-t1518+t1520-t1522-t1524-t1526+t1528+t1530+t1532+t1534; double t1538 = 2.0*t1176*t257; double t1540 = 2.0*t1176*t264; double t1542 = 2.0*t191*t272; double t1544 = 3.0*t135*t249; double t1546 = 2.0*t191*t251; double t1547 = t135*t257; double t1548 = t191*t261; double t1549 = t135*t264; double t1550 = t165*t261; double t1552 = 4.0*t1148*t1550; double t1553 = t718*t388; double t1555 = 2.0*t1148*t1553; double t1556 = t1195*t261; double t1558 = 2.0*t1151*t1556; double t1559 = t312*t388; double t1560 = t1151*t1559; double t1562 = 2.0*t1157*t1550; double t1563 = t1157*t1553; double t1565 = 6.0*t1170*t262; double t1567 = 6.0*t1170*t319; double t1569 = 12.0*t1170*t252; double t1571 = 4.0*t1170*t259; double t1573 = 2.0*t1170*t265; double t1575 = 4.0*t1176*t259; double t1576 = -t1538-t1540-t1542-t1544-t1546+t1547-t1548+t1549-t1552-t1555+t1558+t1560+t1562+t1563+t1565+t1567+t1569+t1571+t1573+t1575; double t1578 = 2.0*t1176*t265; double t1580 = 2.0*t135*t259; double t1581 = t135*t265; double t1582 = t124*t256; double t1584 = 2.0*t1147*t1582; double t1585 = t169*br; double t1586 = t1585*bi; double t1587 = t1147*t1586; double t1588 = t169*omega; double t1589 = t1588*E4; double t1590 = t1147*t1589; double t1591 = t1588*R2; double t1593 = 2.0*t1147*t1591; double t1594 = t128*t256; double t1595 = t1147*t1594; double t1596 = t255*t1; double t1598 = 3.0*t1156*t1596; double t1599 = t255*t15; double t1600 = t1156*t1599; double t1601 = t255*t14; double t1602 = t1156*t1601; double t1603 = t244*omega; double t1604 = t1156*t1603; double t1605 = t254*t1; double t1607 = 3.0*t1156*t1605; double t1608 = t172*omega; double t1609 = t1608*R2; double t1611 = 2.0*t1156*t1609; double t1612 = t1608*E4; double t1613 = t1156*t1612; double t1614 = t254*t15; double t1615 = t1156*t1614; double t1616 = t254*t14; double t1617 = t1156*t1616; double t1618 = t687*bi; double t1619 = t1156*t1618; double t1620 = t243*omega; double t1621 = t1156*t1620; double t1622 = t111*t256; double t1623 = t1156*t1622; double t1624 = t1578-t1580-t1581+t1584+t1587+t1590+t1593-t1595+t1598-t1600-t1602-t1604-t1607-t1611-t1613+t1615+t1617-t1619+t1621-t1623; double t1626 = t1496+t1535+t1576+t1624; double t1627 = t1626*t246; double t1629 = t1390*t1327; double t1631 = -t1456+2.0*t267*t1137-t1141*t373+t120*t1627-t120*t1629; double newdTdR11 = -t1336+t120*t1344+t996*t1393+t1062*t1452+t1131*t1631/2.0; double t1634 = 2.0*t388; double t1635 = t258+t525-t382+t1634; double t1636 = t92*t1635; double t1638 = 2.0*t544; double t1639 = 2.0*t543; double t1640 = 2.0*t547; double t1642 = 4.0*t540; double t1643 = 2.0*t542; double t1644 = -t534+t538-t539+t1642-t1643+t551-t553-t554+t555+t548-t549; double t1645 = -t546+t533+t537+t1638-t535-t1639+t1640-t556+t557+t558+t1644; double t1646 = t1645*t246; double t1649 = t395*t109*t114; double t1653 = 2.0*t548; double t1654 = 2.0*t549; double t1655 = 2.0*t554; double t1656 = 2.0*t555; double t1657 = t131*t381; double t1658 = t1015*t381; double t1659 = t1015*t375; double t1660 = t1015*t380; double t1661 = t1653-t1654-t1655+t1656-t1643+t1640-t535-t546+t533+t537+t1657-t1658+t1659-t1660; double t1662 = t432*t416; double t1663 = t445*t458; double t1664 = t131*t375; double t1665 = t131*t380; double t1666 = t131*t387; double t1667 = t1015*t387; double t1668 = t144*t379; double t1669 = 2.0*t1668; double t1670 = t144*t378; double t1671 = 2.0*t1670; double t1672 = t131*t383; double t1673 = 2.0*t1672; double t1674 = t123*t461; double t1675 = t123*t465; double t1676 = t141*t376; double t1677 = t141*t385; double t1678 = t1015*t383; double t1679 = 2.0*t1678; double t1680 = t131*t417; double t1681 = 4.0*t1680; double t1682 = t1662-t1663-t1664+t1665+t1666-t1667-t1669+t1671+t1673-t1674+t1675+t1676-t1677-t1679-t1681; double t1683 = t1661+t1682; double t1684 = t1683*t246; double t1686 = t522*t1052; double t1687 = t1686*t1055; double t1689 = t997*t1649-t396*t1002-t396*t1009-t120*t1684+t120*t1687; double t1692 = 2.0*t258+2.0*t416-2.0*t382+2.0*t388; double t1693 = t92*t1692; double t1697 = t119*t522*t246; double t1699 = 6.0*t550; double t1700 = 6.0*t552; double t1701 = 6.0*t540; double t1702 = 2.0*t534; double t1703 = 3.0*t538; double t1704 = 3.0*t539; double t1705 = 3.0*t543; double t1706 = 3.0*t544; double t1707 = 3.0*t556; double t1708 = 3.0*t557; double t1709 = 2.0*t558; double t1710 = 2.0*t1657; double t1711 = 2.0*t1658; double t1712 = t144*t381; double t1713 = 2.0*t1659; double t1714 = 2.0*t1660; double t1715 = 2.0*t1662; double t1716 = 2.0*t1663; double t1717 = 2.0*t1664; double t1718 = 2.0*t1665; double t1719 = t1699-t1700+t1701-t1702+t1703-t1704-t1705+t1706-t1707+t1708+t1709-t1710+t1711-t1712-t1713+t1714-t1715+t1716+t1717-t1718; double t1720 = 2.0*t1666; double t1721 = 2.0*t1667; double t1722 = 3.0*t1668; double t1723 = 3.0*t1670; double t1724 = t144*t375; double t1725 = t198*t258; double t1726 = t144*t380; double t1727 = t198*t382; double t1728 = t432*t494; double t1729 = t110*bi; double t1730 = t141*t1729; double t1732 = t144*t387; double t1733 = 4.0*t1672; double t1734 = 2.0*t1674; double t1735 = 2.0*t1675; double t1736 = 2.0*t1676; double t1737 = 2.0*t1677; double t1738 = 4.0*t1678; double t1739 = 6.0*t1680; double t1740 = t494*R2; double t1741 = t141*t1740; double t1742 = t348*br; double t1743 = t141*t1742; double t1745 = 2.0*t144*t383; double t1746 = -t1732-t1733+t1734-t1735-t1736+t1737+t1738+t1739+t1741-t1743-t1745; double t1748 = t1719-t1720+t1721+t1722-t1723+t1724+t1725-t1726-t1727+t1728+t1730+t1746; double t1749 = t1748*t246; double t1751 = t1686*t1125; double t1753 = t1693*t115-t396*t1068-t1070*t1697-t120*t1749+t120*t1751; double t1756 = 2.0*t1333*t1134; double t1760 = t312*t251; double t1762 = 2.0*t1151*t1760; double t1763 = t124*t258; double t1765 = 2.0*t1143*t1763; double t1766 = t124*t382; double t1768 = 2.0*t1143*t1766; double t1769 = t128*t258; double t1770 = t1143*t1769; double t1771 = t128*t382; double t1772 = t1143*t1771; double t1773 = t718*t251; double t1775 = 4.0*t1148*t1773; double t1776 = t111*t258; double t1777 = t1154*t1776; double t1778 = t111*t382; double t1779 = t1154*t1778; double t1781 = 2.0*t1157*t1773; double t1782 = t432*pw; double t1783 = t1782*t449; double t1785 = 2.0*t1782*t446; double t1786 = t1143*t439; double t1787 = t1154*t441; double t1788 = -t1762-t1765+t1768+t1770-t1772+t1775+t1777-t1779-t1781+t1783-t1785+t1786+t1787; double t1789 = t1154*t443; double t1791 = 3.0*t1148*t398; double t1793 = 3.0*t1148*t402; double t1795 = 3.0*t1148*t405; double t1797 = 3.0*t1148*t408; double t1799 = 2.0*t1148*t411; double t1801 = 3.0*t1314*t376; double t1803 = 3.0*t1314*t417; double t1805 = 3.0*t1314*t385; double t1807 = 3.0*t1314*t390; double t1809 = 2.0*t1460*t383; double t1810 = t1157*t426; double t1811 = t1466*t376; double t1812 = -t1789-t1791-t1793+t1795-t1797+t1799+t1801+t1803-t1805+t1807+t1809+t1810+t1811; double t1814 = t1157*t429; double t1815 = t1466*t385; double t1816 = t445*pw; double t1817 = t1816*t417; double t1818 = t1154*t398; double t1819 = t1154*t405; double t1820 = t1154*t411; double t1822 = 2.0*t1148*t426; double t1824 = 2.0*t1148*t429; double t1826 = 2.0*t1148*t455; double t1827 = t1151*t459; double t1828 = t1488*t461; double t1829 = t1151*t463; double t1830 = t1488*t465; double t1831 = -t1814-t1815+t1817-t1818+t1819+t1820-t1822+t1824+t1826+t1827+t1828-t1829-t1830; double t1832 = t1151*t467; double t1834 = 2.0*t1314*t383; double t1835 = t1157*t455; double t1837 = 2.0*t1176*t381; double t1838 = t135*t381; double t1840 = 2.0*t1170*t381; double t1841 = t97*t381; double t1842 = t1156*t1841; double t1843 = t95*t381; double t1844 = t1156*t1843; double t1846 = 3.0*t1186*t258; double t1848 = 3.0*t1186*t494; double t1850 = 3.0*t1186*t382; double t1852 = 3.0*t1186*t388; double t1854 = 2.0*t198*t458; double t1856 = 3.0*t1204*t258; double t1857 = -t1832-t1834-t1835-t1837+t1838-t1840-t1842+t1844-t1846-t1848+t1850-t1852-t1854+t1856; double t1861 = 3.0*t135*t378; double t1863 = 3.0*t1204*t382; double t1865 = 3.0*t1204*t388; double t1867 = 2.0*t191*t416; double t1869 = 2.0*t432*t458; double t1871 = 2.0*t1170*t375; double t1873 = 2.0*t1170*t380; double t1875 = 2.0*t1170*t387; double t1876 = t123*t1729; double t1878 = 2.0*t445*t416; double t1879 = t445*t494; double t1881 = 2.0*t1176*t375; double t1883 = 2.0*t1176*t380; double t1884 = t1861-t1863+t1865-t1867+t1869+t1871-t1873-t1875-t1876+t1878-t1879+t1881-t1883; double t1886 = 2.0*t1176*t387; double t1887 = t135*t375; double t1888 = t191*t258; double t1889 = t135*t380; double t1890 = t191*t382; double t1891 = t135*t387; double t1893 = 2.0*t141*t461; double t1895 = 2.0*t141*t465; double t1897 = 6.0*t1170*t376; double t1899 = 6.0*t1170*t417; double t1901 = 6.0*t1170*t385; double t1903 = 6.0*t1170*t390; double t1904 = t169*bi; double t1905 = t1904*R2; double t1906 = t1147*t1905; double t1907 = -t1886-t1887-t1888+t1889+t1890+t1891+t1893-t1895+t1897+t1899-t1901+t1903+t1906; double t1909 = t1904*E4; double t1910 = t1147*t1909; double t1911 = t1588*br; double t1912 = t1147*t1911; double t1913 = t1904*R1; double t1914 = t1147*t1913; double t1915 = t244*bi; double t1916 = t1156*t1915; double t1917 = t1241*bi; double t1918 = t445*t1917; double t1919 = t124*t381; double t1921 = 2.0*t1147*t1919; double t1922 = t128*t381; double t1923 = t1147*t1922; double t1924 = t379*t1; double t1925 = t1156*t1924; double t1926 = t379*t9; double t1927 = t1156*t1926; double t1928 = t379*t14; double t1929 = t1156*t1928; double t1930 = pw*t172; double t1932 = t123*t1930*bi; double t1933 = t1249*bi; double t1934 = t445*t1933; double t1935 = t378*t1; double t1936 = t1156*t1935; double t1937 = t1910-t1912+t1914-t1916+t1918+t1921-t1923+t1925-t1927-t1929-t1932-t1934-t1936; double t1938 = t509*R2; double t1939 = t1156*t1938; double t1940 = t509*E4; double t1941 = t1156*t1940; double t1942 = t378*t9; double t1943 = t1156*t1942; double t1944 = t687*omega; double t1945 = t1156*t1944; double t1946 = t378*t14; double t1947 = t1156*t1946; double t1948 = t243*bi; double t1949 = t1156*t1948; double t1950 = t111*t381; double t1951 = t1156*t1950; double t1953 = 4.0*t1170*t383; double t1955 = 2.0*t135*t383; double t1957 = 2.0*t123*t376; double t1959 = 2.0*t123*t385; double t1960 = t123*t1740; double t1961 = t123*t1742; double t1963 = 4.0*t1176*t383; double t1964 = -t1939-t1941+t1943+t1945+t1947+t1949-t1951-t1953+t1955+t1957-t1959-t1960+t1961-t1963; double t1967 = t1788+t1812+t1831+t1857+t1884+t1907+t1937+t1964; double t1968 = t1967*t246; double t1970 = t1686*t1327; double t1972 = t1756-2.0*t396*t1137+t1141*t523-t120*t1968+t120*t1970; double newdTdR12 = t1636*t115-t120*t1646+t996*t1689+t1062*t1753+t1131*t1972/2.0; double t1975 = t1333*t529; double t1977 = t560*t246; double t1979 = t131*t416; double t1981 = t135*t458; double t1982 = t179*bi; double t1983 = t164*bi; double t1984 = t144*t416; double t1985 = 2.0*t1979-t1981-t1982+t1983+t1984; double t1987 = t119*t1985*t246; double t1988 = t531*t1987; double t1990 = t566*t566; double t1991 = 1/t1990; double t1992 = t1991*t944; double t1994 = t997*t526; double t1997 = R1*t1001*t114; double t1999 = t527*R1; double t2001 = 2.0*t1981; double t2002 = t123*t458; double t2003 = t141*t416; double t2004 = t1015*t258; double t2005 = t1015*t382; double t2006 = t131*t258; double t2007 = t131*t382; double t2008 = 2.0*t1984; double t2009 = -t2001-t2002+t2003+t2004-t2005-t2006+t2007+t2008; double t2011 = t119*t2009*t246; double t2013 = t531*t119; double t2014 = t560*t1052; double t2015 = t2014*t1055; double t2017 = -t1994*t529+t527*t1997+t1999*t1009+t531*t2011-t2013*t2015; double t2019 = 2.0*t1975; double t2021 = t1070*R1; double t2023 = 6.0*t1979; double t2024 = 3.0*t1982; double t2025 = 3.0*t1983; double t2026 = 2.0*t2002; double t2027 = 2.0*t2003; double t2028 = t141*t494; double t2029 = t144*t258; double t2030 = t144*t382; double t2031 = 2.0*t2006; double t2032 = 2.0*t2007; double t2033 = 2.0*t2004; double t2034 = 2.0*t2005; double t2035 = t198*bi; double t2036 = t2023-t2024+t2025+t2026-t2027+t2028+t2029-t2030+t2031-t2032-t2033+t2034+t2035; double t2038 = t119*t2036*t246; double t2040 = t2014*t1125; double t2042 = -t2019+t1999*t1068+t2021*t562+t531*t2038-t2013*t2040; double t2047 = t1140*t560*t246; double t2049 = t1143*t446; double t2050 = 2.0*t2049; double t2051 = t1143*t449; double t2052 = t1154*t417; double t2053 = t1157*t376; double t2054 = t1157*t385; double t2055 = t1148*t376; double t2056 = 2.0*t2055; double t2057 = t1148*t385; double t2058 = 2.0*t2057; double t2059 = t1151*t461; double t2060 = t1151*t465; double t2061 = t1204*bi; double t2062 = 3.0*t2061; double t2063 = t191*bi; double t2064 = t1186*bi; double t2065 = 3.0*t2064; double t2066 = t123*t416; double t2067 = 2.0*t2066; double t2068 = t123*t494; double t2069 = t141*t458; double t2070 = 2.0*t2069; double t2071 = t1170*t416; double t2072 = 6.0*t2071; double t2073 = t1170*t258; double t2074 = 2.0*t2073; double t2075 = -t2050+t2051+t2052+t2053-t2054-t2056+t2058+t2059-t2060+t2062-t2063-t2065+t2067-t2068+t2070+t2072+t2074; double t2076 = t1170*t382; double t2077 = 2.0*t2076; double t2078 = t1156*t509; double t2079 = t1147*t1904; double t2080 = t1176*t258; double t2081 = 2.0*t2080; double t2082 = t1176*t382; double t2083 = 2.0*t2082; double t2084 = t135*t258; double t2085 = t135*t382; double t2086 = t1156*t443; double t2087 = t123*t1933; double t2088 = t123*t1917; double t2089 = t912*bi; double t2090 = t1147*t2089; double t2091 = 3.0*t2090; double t2092 = t1147*t439; double t2093 = t920*bi; double t2094 = t1156*t2093; double t2095 = 3.0*t2094; double t2096 = t1156*t441; double t2097 = t1156*t398; double t2098 = t1156*t405; double t2099 = t1156*t411; double t2100 = -t2077-t2078+t2079+t2081-t2083-t2084+t2085-t2086-t2087+t2088-t2091+t2092+t2095+t2096-t2097+t2098+t2099; double t2101 = t2075+t2100; double t2103 = t119*t2101*t246; double t2105 = t2014*t1327; double t2107 = 2.0*t1999*t1137-t531*t2047+t531*t2103-t2013*t2105; double newdTdR13 = -t1975-t527*t115+t120*t1977+t1988+t564*t567-t565*t1992+t996*t2017+t1062*t2042+t1131*t2107/2.0; double t2110 = -t1343; double t2111 = t2110*t246; double t2114 = t569*t109*t114; double t2118 = -t1351+t1352-t1354-t1355+t1357-t1358+t1360+t1362-t1363-t1364-t1365; double t2119 = t1368-t1370-t1372-t1374+t1375+t1376+t1377+t1379+t1381+t1382-t1384-t1385; double t2120 = t2118+t2119; double t2121 = t2120*t246; double t2123 = t578*t1052; double t2124 = t2123*t1055; double t2126 = t997*t2114-t570*t1002-t570*t1009-t120*t2121+t120*t2124; double t2128 = t1395+t1396-t1397; double t2129 = t92*t2128; double t2133 = t119*t578*t246; double t2135 = t1405-t1406+t1407-t1408-t1409+t1410+t1411+t1412-t1413-t1414-t1415+t1416-t1417+t1418-t1419; double t2136 = -t1421+t1422+t1423-t1425-t1426+t1428-t1429-t1431+t1433+t1435+t1437-t1438-t1439-t1440-t1443+t1445; double t2137 = t2135+t2136; double t2138 = t2137*t246; double t2140 = t2123*t1125; double t2142 = t2129*t115-t570*t1068-t1070*t2133-t120*t2138+t120*t2140; double t2147 = t1462+t1463+t1465+t1468-t1469-t1470-t1471+t1473-t1475-t1477-t1479+t1481+t1483+t1485+t1487+t1490-t1491-t1492-t1493-t1495; double t2148 = t1498+t1500-t1502-t1503-t1505-t1507+t1508-t1510+t1512+t1514-t1516-t1518+t1520-t1522-t1524-t1526-t1528+t1530+t1532+t1534; double t2150 = -t1538-t1540-t1542-t1544-t1546+t1547+t1548+t1549+t1552+t1555-t1558-t1560-t1562-t1563-t1565+t1567+t1569-t1571-t1573-t1575; double t2151 = -t1578+t1580+t1581+t1584-t1587+t1590+t1593-t1595+t1598-t1600-t1602-t1604-t1607-t1611-t1613+t1615+t1617+t1619+t1621-t1623; double t2153 = t2147+t2148+t2150+t2151; double t2154 = t2153*t246; double t2156 = t2123*t1327; double t2158 = t1456-2.0*t570*t1137+t1141*t579-t120*t2154+t120*t2156; double newdTdR14 = -t1336-t120*t2111+t996*t2126+t1062*t2142+t1131*t2158/2.0; double t2161 = t92*t14; double t2163 = -t932+t936-t924-t906+t909; double t2164 = t2163*t246; double t2167 = t586*t109*t114; double t2171 = t123*t602; double t2172 = t131*t581; double t2173 = 2.0*t2172; double t2174 = t141*t583; double t2175 = t1015*t581; double t2176 = 2.0*t2175; double t2177 = 2.0*t936; double t2178 = 2.0*t924; double t2180 = t2171+t2173-t2174-t2176+t2177-t2178-t1020-t1022+t1023+t1025+t1047; double t2181 = t2180*t246; double t2183 = t627*t1052; double t2184 = t2183*t1055; double t2186 = -t997*t2167+t587*t1002+t587*t1009+t120*t2181-t120*t2184; double t2189 = -2.0*t9+2.0*t1+2.0*t165-2.0*t14; double t2190 = t92*t2189; double t2194 = t119*t627*t246; double t2196 = 3.0*t906; double t2197 = 3.0*t909; double t2198 = 6.0*t931; double t2199 = -t1074+t1075-t2196+t2197-t2198-t1083+t1084+t1085-t1086+t1087+t1094-t1096+t1098-t1100; double t2200 = 2.0*t2171; double t2202 = 2.0*t2174; double t2204 = t198*t14; double t2205 = E4*t14; double t2206 = t141*t2205; double t2207 = t144*t581; double t2209 = -t1103+t1105-t1107-t1109+t1110+t1111-t1113+t1115-t2200-4.0*t2172+t2202+4.0*t2175-t2204-t2206-2.0*t2207; double t2210 = t2199+t2209; double t2211 = t2210*t246; double t2213 = t2183*t1125; double t2215 = -t2190*t115+t587*t1068+t1070*t2194+t120*t2211-t120*t2213; double t2220 = -t1165+t1167+t1169-t1188-t1190+t1192-t1194-t1197+t1199-t1201-t1203+t1206-t1208-t1210+t1212-t1214+t1216-t1223; double t2221 = t1225+t1229+t1230-t1231-t1232+t1234+t1259-t1262-t1264+t1266+t1268+t1271+t1274-t1277-t1280+t1283-t1285+t1287+t1289; double t2223 = t1143*t610; double t2225 = t1143*t613; double t2226 = t1148*t615; double t2228 = t1151*t618; double t2230 = t1154*t621; double t2231 = t1157*t615; double t2234 = 3.0*t1204*t14; double t2235 = -t1292+t1295-t1299-t1301+t1303-t1305-t1307+t1309+t1311-t1313+t1316+2.0*t2223-t2225+4.0*t2226-2.0*t2228-t2230-2.0*t2231-t2234; double t2237 = 3.0*t1186*t14; double t2238 = t191*t14; double t2239 = t169*t14; double t2240 = t1147*t2239; double t2241 = t172*t14; double t2242 = t1156*t2241; double t2244 = 6.0*t1170*t583; double t2245 = t123*t583; double t2247 = t123*t2205; double t2248 = t1176*t581; double t2250 = t135*t581; double t2252 = t141*t602; double t2254 = t1170*t581; double t2256 = t912*t14; double t2258 = 3.0*t1147*t2256; double t2259 = t920*t14; double t2261 = 3.0*t1156*t2259; double t2263 = t123*t1241*t14; double t2264 = t438*t14; double t2265 = t1147*t2264; double t2266 = t600*R2; double t2267 = t1156*t2266; double t2270 = t123*t1249*t14; double t2271 = t594*R2; double t2272 = t1156*t2271; double t2274 = t155*t14; double t2275 = t1156*t2274; double t2276 = t2237+t2238-t2240+t2242-t2244-2.0*t2245+t2247-4.0*t2248+2.0*t2250-2.0*t2252-4.0*t2254+t2258-t2261-t2263-t2265-2.0*t2267+t2270+2.0*t2272-t2275; double t2278 = t2220+t2221+t2235+t2276; double t2279 = t2278*t246; double t2281 = t2183*t1327; double t2283 = -t1136+2.0*t587*t1137-t1141*t628+t120*t2279-t120*t2281; double newdTdR15 = t2161*t115+t120*t2164+t996*t2186+t1062*t2215+t1131*t2283/2.0; double t2286 = 2.0*t644; double t2287 = t630+t638+t771+t2286; double t2288 = t92*t2287; double t2290 = 2.0*t799; double t2291 = 2.0*t785; double t2292 = 2.0*t784; double t2293 = 4.0*t786; double t2295 = 2.0*t778; double t2296 = t796-t775-t776+t777+t2295+t780+t782-t783-t797+t800+t801; double t2297 = t790-t798+t794+t2290-t2291-t792-t2292+t2293-t791+t795+t2296; double t2298 = t2297*t246; double t2301 = t649*t109*t114; double t2305 = 2.0*t783; double t2306 = 2.0*t797; double t2307 = 2.0*t800; double t2308 = 2.0*t801; double t2309 = t131*t642; double t2310 = t1015*t642; double t2311 = t445*t312; double t2312 = t131*t635; double t2313 = -t792-t798+t790+t794+t2295-t2305-t2292-t2306+t2307+t2308+t2309-t2310-t2311+t2312; double t2314 = t131*t636; double t2315 = t131*t637; double t2316 = t432*t718; double t2317 = t1015*t635; double t2318 = t1015*t636; double t2319 = t1015*t637; double t2320 = t144*t641; double t2321 = 2.0*t2320; double t2322 = t144*t283; double t2323 = 2.0*t2322; double t2324 = t123*t656; double t2325 = t123*t658; double t2326 = t131*t631; double t2327 = 2.0*t2326; double t2328 = t141*t633; double t2329 = t141*t639; double t2330 = t1015*t631; double t2331 = 2.0*t2330; double t2332 = t131*t719; double t2333 = 4.0*t2332; double t2334 = t2314-t2315+t2316-t2317-t2318+t2319-t2321+t2323-t2324-t2325-t2327+t2328+t2329+t2331-t2333; double t2335 = t2313+t2334; double t2336 = t2335*t246; double t2338 = t768*t1052; double t2339 = t2338*t1055; double t2341 = -t997*t2301+t650*t1002+t650*t1009+t120*t2336-t120*t2339; double t2344 = 2.0*t630+2.0*t638+2.0*t718+2.0*t644; double t2345 = t92*t2344; double t2349 = t119*t768*t246; double t2351 = 3.0*t775; double t2352 = 3.0*t776; double t2353 = 2.0*t777; double t2354 = 3.0*t785; double t2355 = 2.0*t791; double t2356 = 3.0*t795; double t2357 = 3.0*t796; double t2358 = 3.0*t799; double t2359 = 6.0*t779; double t2360 = 6.0*t781; double t2361 = 6.0*t786; double t2362 = 2.0*t2309; double t2363 = 2.0*t2310; double t2364 = 2.0*t2311; double t2365 = 2.0*t2312; double t2366 = 2.0*t2314; double t2367 = 2.0*t2315; double t2368 = 2.0*t2316; double t2369 = 2.0*t2317; double t2370 = 2.0*t2318; double t2371 = -t2351-t2352+t2353-t2354-t2355+t2356+t2357+t2358+t2359+t2360+t2361-t2362+t2363+t2364-t2365-t2366+t2367-t2368+t2369+t2370; double t2372 = 2.0*t2319; double t2373 = 3.0*t2320; double t2374 = 3.0*t2322; double t2375 = 2.0*t2324; double t2376 = 2.0*t2325; double t2377 = 4.0*t2326; double t2378 = 2.0*t2328; double t2379 = 2.0*t2329; double t2380 = 4.0*t2330; double t2381 = 6.0*t2332; double t2383 = t348*bi; double t2384 = t141*t2383; double t2385 = t672*R2; double t2386 = t141*t2385; double t2388 = 2.0*t144*t631; double t2389 = t144*t642; double t2390 = t110*br; double t2391 = t141*t2390; double t2392 = t432*t672; double t2393 = t198*t630; double t2394 = t144*t635; double t2395 = t144*t636; double t2396 = t144*t637; double t2397 = t198*t638; double t2398 = t2384+t2386+t2388-t2389+t2391+t2392+t2393-t2394-t2395+t2396+t2397; double t2400 = t2371-t2372+t2373-t2374+t2375+t2376+t2377-t2378-t2379-t2380+t2381+t2398; double t2401 = t2400*t246; double t2403 = t2338*t1125; double t2405 = -t2345*t115+t650*t1068+t1070*t2349+t120*t2401-t120*t2403; double t2407 = t92*br; double t2409 = 2.0*t2407*t1134; double t2414 = 2.0*t1176*t642; double t2415 = t135*t642; double t2417 = 2.0*t1170*t642; double t2419 = 3.0*t1148*t699; double t2421 = 3.0*t1148*t702; double t2423 = 3.0*t1148*t705; double t2425 = 2.0*t1148*t708; double t2427 = 3.0*t1148*t711; double t2429 = 3.0*t1314*t633; double t2431 = 3.0*t1314*t639; double t2433 = 3.0*t1314*t719; double t2435 = 3.0*t1314*t646; double t2436 = t1782*t724; double t2437 = -t2414+t2415-t2417-t2419-t2421-t2423+t2425-t2427+t2429+t2431+t2433+t2435+t2436; double t2439 = 2.0*t1782*t726; double t2440 = t1143*t729; double t2441 = t1154*t731; double t2442 = t1154*t733; double t2444 = 2.0*t1148*t735; double t2446 = 2.0*t1148*t738; double t2448 = 2.0*t1148*t742; double t2449 = t1488*t656; double t2450 = t1151*t746; double t2451 = t1151*t748; double t2452 = t1151*t750; double t2453 = t1488*t658; double t2455 = 2.0*t1314*t631; double t2456 = -t2439+t2440+t2441+t2442+t2444+t2446-t2448+t2449-t2450-t2451+t2452+t2453+t2455; double t2458 = t1154*t711; double t2459 = t1154*t699; double t2460 = t1154*t708; double t2461 = t1816*t719; double t2463 = 2.0*t1460*t631; double t2464 = t1466*t633; double t2465 = t1157*t735; double t2466 = t1157*t738; double t2467 = t1157*t742; double t2468 = t1466*t639; double t2469 = t97*t642; double t2470 = t1156*t2469; double t2471 = t95*t642; double t2472 = t1156*t2471; double t2474 = 3.0*t1204*t638; double t2475 = -t2458-t2459+t2460+t2461-t2463+t2464-t2465-t2466+t2467+t2468-t2470+t2472+t2474; double t2477 = 3.0*t1204*t672; double t2479 = 3.0*t1204*t644; double t2481 = 2.0*t191*t718; double t2483 = 3.0*t1204*t630; double t2485 = 3.0*t1186*t630; double t2487 = 3.0*t1186*t638; double t2489 = 3.0*t1186*t672; double t2491 = 3.0*t1186*t644; double t2493 = 2.0*t198*t312; double t2495 = 2.0*t432*t312; double t2497 = 2.0*t1170*t635; double t2499 = 2.0*t1170*t636; double t2501 = 2.0*t1170*t637; double t2502 = t445*t672; double t2503 = t2477+t2479-t2481+t2483-t2485-t2487-t2489-t2491-t2493+t2495-t2497-t2499+t2501-t2502; double t2507 = 2.0*t445*t718; double t2508 = t123*t2390; double t2510 = 2.0*t1176*t635; double t2512 = 2.0*t1176*t636; double t2514 = 2.0*t1176*t637; double t2515 = t191*t630; double t2516 = t135*t635; double t2517 = t135*t636; double t2518 = t135*t637; double t2519 = t191*t638; double t2520 = t124*t630; double t2522 = 2.0*t1143*t2520; double t2523 = t124*t638; double t2525 = 2.0*t1143*t2523; double t2526 = t128*t630; double t2527 = t1143*t2526; double t2528 = t2507-t2508-t2510-t2512+t2514-t2515+t2516+t2517-t2518-t2519-t2522-t2525+t2527; double t2529 = t128*t638; double t2530 = t1143*t2529; double t2531 = t416*t251; double t2533 = 4.0*t1148*t2531; double t2534 = t458*t251; double t2536 = 2.0*t1151*t2534; double t2537 = t111*t630; double t2538 = t1154*t2537; double t2539 = t111*t638; double t2540 = t1154*t2539; double t2542 = 2.0*t1157*t2531; double t2544 = 6.0*t1170*t633; double t2546 = 6.0*t1170*t639; double t2548 = 6.0*t1170*t719; double t2550 = 6.0*t1170*t646; double t2552 = 2.0*t141*t656; double t2554 = 2.0*t141*t658; double t2556 = 4.0*t1170*t631; double t2557 = t2530-t2533+t2536+t2538+t2540+t2542+t2544+t2546+t2548+t2550+t2552+t2554+t2556; double t2560 = 2.0*t123*t633; double t2562 = 2.0*t123*t639; double t2563 = t123*t2383; double t2564 = t123*t2385; double t2566 = 4.0*t1176*t631; double t2568 = 2.0*t135*t631; double t2569 = t1588*bi; double t2570 = t1147*t2569; double t2571 = t1585*R2; double t2572 = t1147*t2571; double t2573 = t1585*E4; double t2574 = t1147*t2573; double t2575 = t1585*R1; double t2576 = t1147*t2575; double t2577 = t244*br; double t2578 = t1156*t2577; double t2579 = t1241*br; double t2580 = t445*t2579; double t2581 = t124*t642; double t2583 = 2.0*t1147*t2581; double t2584 = t2560+t2562-t2563-t2564+t2566-t2568+t2570+t2572+t2574+t2576-t2578+t2580+t2583; double t2585 = t128*t642; double t2586 = t1147*t2585; double t2587 = t189*br; double t2588 = t1156*t2587; double t2589 = t641*t9; double t2590 = t1156*t2589; double t2591 = t641*t1; double t2592 = t1156*t2591; double t2593 = t1249*br; double t2594 = t445*t2593; double t2596 = t123*t1930*br; double t2597 = t509*omega; double t2598 = t1156*t2597; double t2599 = t182*br; double t2600 = t1156*t2599; double t2601 = t283*t9; double t2602 = t1156*t2601; double t2603 = t283*t1; double t2604 = t1156*t2603; double t2605 = t687*R2; double t2606 = t1156*t2605; double t2607 = t687*E4; double t2608 = t1156*t2607; double t2609 = t243*br; double t2610 = t1156*t2609; double t2611 = t111*t642; double t2612 = t1156*t2611; double t2613 = -t2586-t2588-t2590+t2592-t2594-t2596-t2598+t2600+t2602-t2604-t2606-t2608+t2610-t2612; double t2616 = t2437+t2456+t2475+t2503+t2528+t2557+t2584+t2613; double t2617 = t2616*t246; double t2619 = t2338*t1327; double t2621 = -t2409+2.0*t650*t1137-t1141*t769+t120*t2617-t120*t2619; double newdTdR16 = -t2288*t115+t120*t2298+t996*t2341+t1062*t2405+t1131*t2621/2.0; double t2624 = t2407*t529; double t2626 = t803*t246; double t2628 = t144*t718; double t2629 = t135*t312; double t2630 = t179*br; double t2631 = t131*t718; double t2633 = t164*br; double t2634 = t2628-t2629-t2630+2.0*t2631+t2633; double t2636 = t119*t2634*t246; double t2637 = t531*t2636; double t2640 = t997*t772; double t2643 = t773*R1; double t2645 = 2.0*t2628; double t2646 = t141*t718; double t2647 = t131*t630; double t2648 = t123*t312; double t2649 = 2.0*t2629; double t2650 = t131*t638; double t2651 = t1015*t630; double t2652 = t1015*t638; double t2653 = t2645+t2646-t2647-t2648-t2649-t2650+t2651+t2652; double t2655 = t119*t2653*t246; double t2657 = t803*t1052; double t2658 = t2657*t1055; double t2660 = t2640*t529-t773*t1997-t2643*t1009-t531*t2655+t2013*t2658; double t2662 = 2.0*t2624; double t2665 = 2.0*t2651; double t2666 = 2.0*t2652; double t2667 = t198*br; double t2668 = t141*t672; double t2669 = 2.0*t2647; double t2670 = 2.0*t2650; double t2671 = 2.0*t2646; double t2672 = 2.0*t2648; double t2673 = 6.0*t2631; double t2674 = 3.0*t2630; double t2675 = 3.0*t2633; double t2676 = t144*t630; double t2677 = t144*t638; double t2678 = -t2665-t2666+t2667+t2668+t2669+t2670-t2671+t2672+t2673-t2674+t2675+t2676+t2677; double t2680 = t119*t2678*t246; double t2682 = t2657*t1125; double t2684 = t2662-t2643*t1068-t2021*t805-t531*t2680+t2013*t2682; double t2689 = t1140*t803*t246; double t2691 = t1154*t719; double t2692 = t1148*t633; double t2693 = 2.0*t2692; double t2694 = t1148*t639; double t2695 = 2.0*t2694; double t2696 = t1151*t656; double t2697 = t1143*t724; double t2698 = t1143*t726; double t2699 = 2.0*t2698; double t2700 = t1151*t658; double t2701 = t1157*t633; double t2702 = t1157*t639; double t2703 = t1176*t630; double t2704 = 2.0*t2703; double t2705 = t1176*t638; double t2706 = 2.0*t2705; double t2707 = t135*t630; double t2708 = t123*t672; double t2709 = t123*t718; double t2710 = 2.0*t2709; double t2711 = t1170*t718; double t2712 = 6.0*t2711; double t2713 = t1170*t630; double t2714 = 2.0*t2713; double t2715 = t1170*t638; double t2716 = 2.0*t2715; double t2717 = t2691-t2693-t2695+t2696+t2697-t2699+t2700+t2701+t2702+t2704+t2706-t2707-t2708+t2710+t2712+t2714+t2716; double t2718 = t135*t638; double t2719 = t141*t312; double t2720 = 2.0*t2719; double t2721 = t1156*t687; double t2722 = t1147*t1585; double t2723 = t1156*t711; double t2724 = t1156*t699; double t2725 = t1156*t708; double t2726 = t123*t2593; double t2727 = t912*br; double t2728 = t1147*t2727; double t2729 = 3.0*t2728; double t2730 = t1147*t729; double t2731 = t920*br; double t2732 = t1156*t2731; double t2733 = 3.0*t2732; double t2734 = t1156*t731; double t2735 = t1156*t733; double t2736 = t123*t2579; double t2737 = t1204*br; double t2738 = 3.0*t2737; double t2739 = t191*br; double t2740 = t1186*br; double t2741 = 3.0*t2740; double t2742 = -t2718+t2720-t2721+t2722-t2723-t2724+t2725-t2726-t2729+t2730+t2733+t2734+t2735+t2736+t2738-t2739-t2741; double t2743 = t2717+t2742; double t2745 = t119*t2743*t246; double t2747 = t2657*t1327; double t2749 = -2.0*t2643*t1137+t531*t2689-t531*t2745+t2013*t2747; double newdTdR17 = t2624+t773*t115-t120*t2626-t2637-t807*t567+t808*t1992+t996*t2660+t1062*t2684+t1131*t2749/2.0; double t2752 = t258+t382+t1634+t525; double t2753 = t92*t2752; double t2756 = -t534+t538+t539+t1642-t1643+t551+t553-t554-t555+t548+t549; double t2757 = -t546+t533+t537+t1638-t535-t1639+t1640-t556-t557+t558+t2756; double t2758 = t2757*t246; double t2761 = t810*t109*t114; double t2765 = t1653+t1654-t1655-t1656-t1643+t1640-t535-t546+t533+t537+t1657-t1658+t1659-t1660; double t2766 = t1662-t1663-t1664+t1665+t1666-t1667-t1669+t1671-t1673-t1674-t1675+t1676+t1677+t1679-t1681; double t2767 = t2765+t2766; double t2768 = t2767*t246; double t2770 = t819*t1052; double t2771 = t2770*t1055; double t2773 = -t997*t2761+t811*t1002+t811*t1009+t120*t2768-t120*t2771; double t2776 = 2.0*t258+2.0*t382+2.0*t388+2.0*t416; double t2777 = t92*t2776; double t2781 = t119*t819*t246; double t2783 = t1699+t1700+t1701-t1702+t1703+t1704-t1705+t1706-t1707-t1708+t1709-t1710+t1711-t1712-t1713+t1714-t1715+t1716+t1717-t1718; double t2785 = -t1732+t1733+t1734+t1735-t1736-t1737-t1738+t1739+t1741+t1743+t1745; double t2787 = t2783-t1720+t1721+t1722-t1723+t1724+t1725-t1726+t1727+t1728+t1730+t2785; double t2788 = t2787*t246; double t2790 = t2770*t1125; double t2792 = -t2777*t115+t811*t1068+t1070*t2781+t120*t2788-t120*t2790; double t2797 = t1762-t1765-t1768+t1770+t1772-t1775+t1777+t1779+t1781+t1783-t1785+t1786+t1787; double t2798 = t1789-t1791-t1793-t1795-t1797+t1799+t1801+t1803+t1805+t1807-t1809+t1810+t1811; double t2800 = -t1814+t1815+t1817-t1818-t1819+t1820-t1822+t1824+t1826+t1827+t1828-t1829+t1830; double t2801 = -t1832+t1834-t1835-t1837+t1838-t1840-t1842+t1844-t1846-t1848-t1850-t1852-t1854+t1856; double t2804 = t1861+t1863+t1865-t1867+t1869+t1871-t1873-t1875-t1876+t1878-t1879+t1881-t1883; double t2805 = -t1886-t1887-t1888+t1889-t1890+t1891+t1893+t1895+t1897+t1899+t1901+t1903+t1906; double t2807 = t1910+t1912+t1914-t1916+t1918+t1921-t1923+t1925-t1927-t1929-t1932-t1934-t1936; double t2808 = -t1939-t1941+t1943-t1945+t1947+t1949-t1951+t1953-t1955+t1957+t1959-t1960-t1961+t1963; double t2811 = t2797+t2798+t2800+t2801+t2804+t2805+t2807+t2808; double t2812 = t2811*t246; double t2814 = t2770*t1327; double t2816 = -t1756+2.0*t811*t1137-t1141*t820+t120*t2812-t120*t2814; double newdTdR18 = -t2753*t115+t120*t2758+t996*t2773+t1062*t2792+t1131*t2816/2.0; double t2819 = -t630+t638+t2286+t771; double t2820 = t92*t2819; double t2823 = t796+t775-t776+t777+t2295-t780+t782+t783-t797-t800+t801; double t2824 = t790-t798+t794+t2290-t2291-t792-t2292+t2293-t791-t795+t2823; double t2825 = t2824*t246; double t2828 = t822*t109*t114; double t2832 = -t792-t798+t790+t794+t2295+t2305-t2292-t2306-t2307+t2308+t2309-t2310-t2311+t2312; double t2833 = t2314-t2315+t2316-t2317-t2318+t2319-t2321+t2323+t2324-t2325+t2327-t2328+t2329-t2331-t2333; double t2834 = t2832+t2833; double t2835 = t2834*t246; double t2837 = t831*t1052; double t2838 = t2837*t1055; double t2840 = t997*t2828-t823*t1002-t823*t1009-t120*t2835+t120*t2838; double t2843 = -2.0*t630+2.0*t638+2.0*t644+2.0*t718; double t2844 = t92*t2843; double t2848 = t119*t831*t246; double t2850 = t2351-t2352+t2353-t2354-t2355-t2356+t2357+t2358-t2359+t2360+t2361-t2362+t2363+t2364-t2365-t2366+t2367-t2368+t2369+t2370; double t2852 = -t2384+t2386-t2388-t2389+t2391+t2392-t2393-t2394-t2395+t2396+t2397; double t2854 = t2850-t2372+t2373-t2374-t2375+t2376-t2377+t2378-t2379+t2380+t2381+t2852; double t2855 = t2854*t246; double t2857 = t2837*t1125; double t2859 = t2844*t115-t823*t1068-t1070*t2848-t120*t2855+t120*t2857; double t2864 = -t2414+t2415-t2417-t2419-t2421-t2423+t2425+t2427-t2429+t2431+t2433+t2435+t2436; double t2865 = -t2439+t2440-t2441+t2442+t2444+t2446-t2448-t2449-t2450-t2451+t2452+t2453-t2455; double t2867 = t2458-t2459+t2460+t2461+t2463-t2464-t2465-t2466+t2467+t2468-t2470+t2472+t2474; double t2868 = t2477+t2479-t2481-t2483+t2485-t2487-t2489-t2491-t2493+t2495-t2497-t2499+t2501-t2502; double t2871 = t2507-t2508-t2510-t2512+t2514+t2515+t2516+t2517-t2518-t2519+t2522-t2525-t2527; double t2872 = t2530+t2533-t2536-t2538+t2540-t2542-t2544+t2546+t2548+t2550-t2552+t2554-t2556; double t2874 = -t2560+t2562+t2563-t2564-t2566+t2568-t2570+t2572+t2574+t2576-t2578+t2580+t2583; double t2875 = -t2586-t2588-t2590+t2592-t2594-t2596+t2598+t2600+t2602-t2604-t2606-t2608+t2610-t2612; double t2878 = t2864+t2865+t2867+t2868+t2871+t2872+t2874+t2875; double t2879 = t2878*t246; double t2881 = t2837*t1327; double t2883 = t2409-2.0*t823*t1137+t1141*t832-t120*t2879+t120*t2881; double newdTdR19 = t2820*t115-t120*t2825+t996*t2840+t1062*t2859+t1131*t2883/2.0; double t2886 = 2.0*t15; double t2887 = 2.0*t14; double t2890 = -t2886-t2887+3.0*t6+4.0*t895+t95+t97; double t2891 = t92*t2890; double t2894 = 3.0*t901; double t2895 = 2.0*t902; double t2896 = 3.0*t904; double t2898 = 2.0*t906; double t2899 = 2.0*t908; double t2900 = 2.0*t909; double t2902 = 6.0*t915; double t2903 = -2.0*t900+t2894-t2895-t903-t2896-2.0*t905-t2898-t907+t2899+t2900-t910+t911+6.0*t913+t2902; double t2905 = 2.0*t919; double t2908 = 2.0*t926; double t2909 = 4.0*t929; double t2910 = 4.0*t931; double t2911 = -3.0*t918-t2905+6.0*t921-t1019-t2178+3.0*t925+t2908+t928-t2909-t2910-t934+t1018+t2177+t938; double t2912 = t2903+t2911; double t2913 = t2912*t246; double t2916 = t840*t109*t114; double t2920 = t131*t887; double t2922 = t144*t839; double t2924 = t914-4.0*t2920+t922-t900-2.0*t2922+t1079+t2200+t1012+t2172-t1081-t2202; double t2925 = t867*E6; double t2927 = t848*E5; double t2929 = t141*t401; double t2931 = -t1016-t2175-t2925-2.0*t918+t1018+t2177+t2927+2.0*t925-t905+2.0*t2929-t1019-t2178; double t2932 = t2924+t2931; double t2933 = t2932*t246; double t2935 = t892*t1052; double t2936 = t2935*t1055; double t2938 = -t997*t2916+t841*t1002+t841*t1009+t120*t2933-t120*t2936; double t2941 = -2.0*t15-2.0*t14+2.0*t6+2.0*t895; double t2942 = t92*t2941; double t2946 = t119*t892*t246; double t2951 = t2894-t1076-t2896-t2196+t1077+t2197+t2902-t2905+t2908-t1078-t2198-4.0*t1011-t1013+4.0*t1014+t1017-2.0*t1090; double t2962 = -t1091-t1108-4.0*t2171-t2173+4.0*t2174+t2176-t2204-2.0*t2206-t2207+3.0*t2922+6.0*t2920+2.0*t2925-2.0*t2927+t848*E4+t432*t110-3.0*t2929; double t2963 = t2951+t2962; double t2964 = t2963*t246; double t2966 = t2935*t1125; double t2968 = -t2942*t115+t841*t1068+t1070*t2946+t120*t2964-t120*t2966; double t2970 = t92*E6; double t2972 = 2.0*t2970*t529; double t2985 = 4.0*t1144-2.0*t1146+2.0*t1149-t1152-2.0*t1155-t1158-t1161+t1163-t1172-4.0*t1173+2.0*t1175-2.0*t1177+t1179-4.0*t1181-2.0*t1183-t1218+t1220+t1221+t1237-t1240; double t2996 = -2.0*t2230-t2231-t2234+t2237+t2238-t2240+t2242-t2244-4.0*t2245+2.0*t2247-2.0*t2248; double t3019 = t2250-4.0*t2252-2.0*t2254+t2258-t2261-2.0*t2263-t2265-t2267+2.0*t2270+t2272-t2275-3.0*t1148*t881+2.0*t1148*t884+3.0*t1314*t887+3.0*t1204*t6-3.0*t1186*t6+2.0*t848*E6+2.0*t867*E5-t867*E4-t445*t110; double t3020 = t169*t6; double t3033 = E6*R1; double t3039 = t912*t6; double t3042 = t169*E4; double t3043 = t3042*R1; double t3045 = t920*t6; double t3048 = t244*R1; double t3050 = t121*E5; double t3053 = t91*E6; double t3055 = pw*t110; double t3056 = t3055*E6; double t3058 = t91*E5; double t3060 = t3055*E5; double t3066 = -3.0*t1147*t3039+t1147*t3043+3.0*t1156*t3045-t1156*t3048-2.0*t848*t3050+t848*t3053+t432*t3056+t867*t3058+t445*t3060-t123*t1930*E4+t123*t3055*t95; double t3069 = t2985-2.0*t1243-t1245-t1247+2.0*t1251+t1253-t1256+4.0*t2223-2.0*t2225+2.0*t2226-t2228+t2996+t3019+t1147*t3020-t867*t1249-t445*t1930+t867*t1241+3.0*t1204*t862-2.0*t191*t895-3.0*t1186*t862+6.0*t1170*t836-2.0*t198*t3033+6.0*t1170*t887+t3066; double t3070 = t3069*t246; double t3072 = t2935*t1327; double t3074 = -t2972+2.0*t841*t1137-t1141*t893+t120*t3070-t120*t3072; double newdTdR110 = -t2891*t115+t120*t2913+t996*t2938+t1062*t2968+t1131*t3074/2.0; double t3078 = 2.0*R1+2.0*E5; double t3079 = t92*t3078; double t3080 = t3079*t529; double t3082 = t940*t246; double t3084 = t131*t95; double t3085 = 3.0*t3084; double t3086 = t123*t124; double t3087 = 4.0*t3086; double t3088 = t123*t128; double t3089 = 2.0*t3088; double t3090 = t131*t110; double t3091 = t164*E5; double t3092 = 3.0*t3091; double t3093 = t141*t111; double t3094 = 2.0*t3093; double t3095 = t198*E5; double t3096 = t141*t97; double t3097 = 2.0*t3096; double t3098 = t141*t95; double t3099 = 2.0*t3098; double t3100 = t3085+t3087-t3089-t3090+t3092+t3094+t3095-t170+t3097-t3099-t173; double t3102 = t119*t3100*t246; double t3105 = t944*t944; double t3108 = t997*t897; double t3111 = t898*R1; double t3113 = t445*E6; double t3114 = t1015*t15; double t3115 = t1015*t14; double t3116 = t432*E5; double t3117 = t131*t111; double t3118 = 4.0*t3117; double t3119 = t131*t15; double t3120 = t131*t14; double t3121 = t144*t97; double t3122 = 2.0*t3121; double t3123 = t144*t95; double t3124 = 2.0*t3123; double t3125 = -t3113-t3089-t3114-t3115+t3116+t3094+t3085-t3118+t3119+t3120+t3092-t3122-t170-t173+t3124; double t3127 = t119*t3125*t246; double t3129 = t940*t1052; double t3130 = t3129*t1055; double t3132 = t3108*t529-t898*t1997-t3111*t1009-t531*t3127+t2013*t3130; double t3136 = 6.0*t3086; double t3137 = 2.0*t3113; double t3138 = 3.0*t3096; double t3139 = t144*t15; double t3140 = t144*t14; double t3141 = t432*E4; double t3142 = t141*t110; double t3143 = 6.0*t3117; double t3144 = 2.0*t3119; double t3145 = 2.0*t3120; double t3146 = 2.0*t3090; double t3147 = 3.0*t3121; double t3148 = 2.0*t3116; double t3149 = 3.0*t3098; double t3150 = 2.0*t3114; double t3151 = 2.0*t3115; double t3152 = 3.0*t3123; double t3153 = 2.0*t3095; double t3154 = t3136+t3137+t3138-t3139-t3140+t3141+t3142+t3143-t3144-t3145-t3146+t3147-t3148-t3149+t3150+t3151-t3152+t3153; double t3156 = t119*t3154*t246; double t3158 = t3129*t1125; double t3160 = t3080-t3111*t1068-t2021*t942-t531*t3156+t2013*t3158; double t3165 = t1140*t940*t246; double t3168 = t141*t121*t95; double t3169 = 3.0*t3168; double t3170 = t432*t3050; double t3171 = 2.0*t3170; double t3172 = t432*t3053; double t3173 = t141*t3056; double t3175 = t123*t1241*E5; double t3176 = 3.0*t3175; double t3177 = t1156*t142; double t3178 = t1156*t621; double t3179 = t445*t3058; double t3180 = t123*t3060; double t3181 = t912*E4; double t3183 = 3.0*t1147*t3181; double t3184 = t1147*t125; double t3185 = 2.0*t3184; double t3186 = -t3169-t3171+t3172+t3173+t3176-t3177-t3178+t3179+t3180-t3183+t3185; double t3187 = t1147*t610; double t3188 = 2.0*t3187; double t3190 = 6.0*t1170*t111; double t3192 = t141*pw*t169; double t3193 = t445*t1241; double t3194 = t1156*t189; double t3195 = t1156*t244; double t3196 = t445*t1249; double t3197 = t123*t1930; double t3198 = t1156*t600; double t3199 = t1147*t3042; double t3200 = t1156*t182; double t3201 = t1156*t594; double t3202 = t3188+t3190+t3192+t3193-t3194-t3195-t3196-t3197-t3198+t3199+t3200+t3201; double t3204 = t1156*t237; double t3205 = t1156*t243; double t3206 = t141*t124; double t3207 = 6.0*t3206; double t3209 = 3.0*t135*t97; double t3210 = t123*t95; double t3211 = 3.0*t3210; double t3212 = t445*E5; double t3213 = 2.0*t3212; double t3214 = t445*E4; double t3215 = t123*t110; double t3217 = 3.0*t1204*E4; double t3218 = t1176*t15; double t3219 = 2.0*t3218; double t3220 = t1176*t14; double t3221 = 2.0*t3220; double t3222 = -t3204+t3205+t3207-t3209+t3211+t3213-t3214-t3215+t3217-t3219-t3221; double t3224 = 2.0*t191*E5; double t3225 = t135*t15; double t3226 = t135*t14; double t3227 = t123*t97; double t3228 = 3.0*t3227; double t3229 = t432*E6; double t3230 = 2.0*t3229; double t3231 = t1170*t15; double t3232 = 2.0*t3231; double t3234 = 2.0*t198*E6; double t3235 = t1170*t14; double t3236 = 2.0*t3235; double t3237 = t438*E5; double t3239 = 2.0*t1147*t3237; double t3240 = t1147*t129; double t3241 = t1147*t613; double t3243 = 3.0*t1156*t240; double t3244 = -t3224+t3225+t3226-t3228+t3230-t3232-t3234-t3236+t3239-t3240-t3241+t3243; double t3246 = t3186+t3202+t3222+t3244; double t3248 = t119*t3246*t246; double t3250 = t3129*t1327; double t3252 = t2972-2.0*t3111*t1137+t531*t3165-t531*t3248+t2013*t3250; double newdTdR111 = t3080+t898*t115-t120*t3082-t531*t3102+t944*t567-R1*t3105*t1991+t996*t3132+t1062*t3160+t1131*t3252/2.0; double newdTdR112 = 0.0; double newdTdR113 = 0.0; double newdTdR114 = 0.0; double newdTdR115 = 0.0; double t3256 = 1/t952/t71; double t3257 = t984*t984; double t3258 = t3256*t3257; double t3259 = t3258/27.0; double t3260 = 48.0*R2; double t3261 = 48.0*R1; double t3263 = 1/t69/t68; double t3264 = t981*t981; double t3268 = t23*t9; double t3272 = t9*t6; double t3277 = 6.0*t960*(144.0*t30-288.0*t3268-120.0*t24+48.0*t38+144.0*t3272-6.0*t41); double t3278 = t3260-t3261-3.0*t3263*t3264+t3277; double t3279 = t953*t3278; double t3280 = t3279/18.0; double t3281 = 4.0/3.0*t81; double t3283 = t988*t992*t984; double t3284 = 4.0*t3283; double t3285 = t71*t71; double t3288 = t80/t72/t3285; double t3289 = t3288*t3257; double t3290 = 8.0/3.0*t3289; double t3291 = t993*t3278; double t3292 = 2.0*t3291; double t3293 = -t3259+t3280+t3281+t3284-t3290+t3292; double t3297 = t997*t15*t109*t114; double t3298 = t947*t1002; double t3299 = t947*t1009; double t3302 = t120*(t3119-t3114)*t246; double t3303 = t949*t1052; double t3305 = t120*t3303*t1055; double t3310 = 2.0/3.0*t81; double t3313 = t3258/54.0-t3279/36.0-t3310-2.0*t3283+4.0/3.0*t3289-t3291; double t3315 = t947*t1068; double t3318 = t1070*t119*t949*t246; double t3321 = t120*(-t3144+t3150-t3139)*t246; double t3323 = t120*t3303*t1125; double t3327 = t88*(-t3259+t3280-t3281-t3284+t3290-t3292); double t3331 = 2.0*t947*t1137; double t3332 = t1141*t950; double t3335 = t120*(t3185-t3240-t3177-t3219+t3225-t3232-t3194+t3200)*t246; double t3337 = t120*t3303*t1327; double t3341 = -t981; double t3344 = -t955+t954+t959+t956-t957-t958+6.0*t960*t3341; double t3345 = t953*t3344; double t3346 = t3345/18.0; double t3347 = -t988; double t3348 = t3347*t81; double t3349 = 6.0*t3348; double t3350 = t993*t3344; double t3351 = 2.0*t3350; double t3352 = t3346-t3349+t3351-2.0/3.0; double t3353 = pw*pw; double t3354 = t3353*t92; double t3360 = t997*t107; double t3364 = 1/t110/E4; double t3365 = t3364*t114; double t3368 = t1001*t1005; double t3369 = t3368*t1008; double t3373 = 1/t1004/t113; double t3374 = t109*t3373; double t3375 = t1008*t1008; double t3376 = t3374*t3375; double t3380 = 2.0*t108*t1006; double t3381 = t1015*t9; double t3382 = 2.0*t3381; double t3383 = t1015*t1; double t3384 = 2.0*t3383; double t3385 = t179*R2; double t3386 = 2.0*t3385; double t3387 = t131*t9; double t3388 = 2.0*t3387; double t3389 = t131*t1; double t3390 = 2.0*t3389; double t3391 = t164*R2; double t3392 = 2.0*t3391; double t3393 = t131*t165; double t3394 = 4.0*t3393; double t3398 = t1048*t1052; double t3403 = 1/t1051/t245; double t3404 = t233*t3403; double t3405 = t1055*t1055; double t3410 = 2.0*t95+2.0*t97; double t3413 = -t3354*t999+2.0*t997*t107*t1001*t114+2.0*t3360*t1009-2.0*t108*t3365-2.0*t108*t3369-2.0*t108*t3376+t3380+t120*(t3144-t3150-t3382+t3384+t3386+t3388-t3390-t3392-t3394)*t246-2.0*t120*t3398*t1055+2.0*t120*t3404*t3405-t120*t1053*t3410; double t3421 = t3368*t1067; double t3423 = t108*t109; double t3425 = t3373*t1067*t1008; double t3431 = t1070*t119; double t3433 = 6.0*t3393; double t3434 = t141*t15; double t3435 = t140*t15; double t3436 = t3435*R2; double t3437 = 2.0*t3436; double t3438 = 3.0*t3385; double t3439 = 3.0*t3391; double t3440 = 2.0*t3139; double t3441 = t144*t9; double t3442 = 2.0*t3441; double t3443 = t140*t4; double t3444 = t144*t1; double t3445 = 2.0*t3444; double t3446 = t144*t165; double t3447 = 4.0*t3446; double t3449 = t140*t9*R2; double t3450 = 3.0*t3449; double t3451 = t131*t202; double t3452 = 4.0*t3451; double t3453 = t3433-t3434-t3437-t3438+t3439-t3440-t3442+t3443+t3445+t3447-t3450-t3452; double t3456 = t1117*t1052; double t3461 = t120*t233; double t3463 = t3403*t1125*t1055; double t3468 = 4.0*t111; double t3469 = -6.0*t95-2.0*t97+t3468; double t3472 = -t997*t1064*t109*t114+t1065*t1002+t1065*t1009+t3360*t1068-t108*t3421-2.0*t3423*t3425-t3380+t1070*t119*t1048*t246-t3431*t1056+t120*t3453*t246-t120*t3456*t1055-t120*t3398*t1125+2.0*t3461*t3463-t120*t1053*t3469; double t3476 = 2.0*t997*R2*t1134; double t3478 = E6*t1001*t114; double t3480 = 2.0*t1132*t3478; double t3481 = t1132*E6; double t3483 = 2.0*t3481*t1009; double t3486 = t3368*E6; double t3489 = t3373*E6; double t3490 = t3489*t1008; double t3495 = 2.0*t3177; double t3496 = 2.0*t3225; double t3497 = 2.0*t3240; double t3498 = t1148*t166; double t3499 = 4.0*t3498; double t3500 = t121*t15; double t3501 = t141*t3500; double t3502 = t1147*t137; double t3503 = 2.0*t3502; double t3504 = t117*t15; double t3505 = t123*t3504; double t3506 = t1156*t132; double t3507 = 2.0*t3506; double t3508 = t1156*t147; double t3509 = 3.0*t3508; double t3511 = t1147*t912*R2; double t3512 = 3.0*t3511; double t3513 = t1147*t160; double t3514 = 3.0*t3513; double t3516 = t1156*t920*R2; double t3517 = 3.0*t3516; double t3519 = t1156*t111*t9; double t3520 = 2.0*t3519; double t3522 = t1156*t111*t1; double t3523 = 2.0*t3522; double t3524 = t1156*t150; double t3525 = 2.0*t3524; double t3527 = t1147*t128*t9; double t3528 = 2.0*t3527; double t3529 = -t3495+t3496-t3497+t3499-t3501-t3503-t3505-t3507-t3509-t3512-t3514+t3517-t3520+t3523+t3525-t3528; double t3531 = t1147*t128*t1; double t3532 = 2.0*t3531; double t3533 = t239*R2; double t3534 = t1156*t3533; double t3535 = 2.0*t3534; double t3536 = t1156*t1260; double t3537 = t1156*t205; double t3538 = t1147*t1281; double t3539 = t1147*t220; double t3540 = t1170*t165; double t3541 = 6.0*t3540; double t3542 = t144*t1195; double t3543 = 4.0*t3542; double t3544 = t135*t165; double t3545 = 4.0*t3544; double t3546 = t135*t9; double t3547 = 2.0*t3546; double t3548 = t135*t1; double t3549 = 2.0*t3548; double t3550 = t123*t15; double t3551 = t122*t15; double t3552 = t3551*R2; double t3553 = 2.0*t3552; double t3554 = t1186*R2; double t3555 = 3.0*t3554; double t3556 = t1204*R2; double t3557 = 3.0*t3556; double t3559 = t122*t9*R2; double t3560 = 3.0*t3559; double t3561 = t122*t4; double t3562 = t3532-t3535-t3536+t3537+t3538+t3539+t3541-t3543-t3545+t3547-t3549+t3550+t3553-t3555+t3557+t3560-t3561; double t3566 = t1319*t1052; double t3571 = t3403*t1327; double t3572 = t3571*t1055; double t3576 = -4.0*t124+4.0*t128; double t3579 = -t3476+t3480+t3483+2.0*t3360*t1137-2.0*t108*t3486-4.0*t3423*t3490-t1141*t1049+t1141*t1056+t120*(t3529+t3562)*t246-t120*t3566*t1055-t120*t3398*t1327+2.0*t3461*t3572-t120*t1053*t3576; double t3586 = 2.0*t1132*t115; double t3589 = t1067*t1067; double t3590 = t3374*t3589; double t3593 = t3353*t118; double t3601 = 6.0*t3119; double t3602 = 6.0*t3114; double t3603 = 6.0*t3381; double t3604 = 6.0*t3383; double t3605 = 2.0*t3434; double t3606 = 4.0*t3436; double t3607 = 6.0*t3449; double t3608 = 6.0*t3451; double t3609 = 2.0*t3443; double t3610 = 6.0*t3446; double t3611 = t198*R2; double t3612 = 2.0*t3611; double t3613 = 6.0*t3387; double t3614 = 6.0*t3389; double t3615 = -t3601+t3602+t3603-t3604+t3605+t3606+t3607+t3608-t3609-t3610+t3612-t3613+t3614; double t3621 = t1125*t1125; double t3628 = 2.0*t110; double t3629 = 12.0*t95+4.0*t97-12.0*t111+t3628; double t3632 = -t3586+2.0*t1065*t1068-2.0*t108*t3590+t3380+t3593*t1072+2.0*t1070*t119*t1117*t246-2.0*t3431*t1126+t120*t3615*t246-2.0*t120*t3456*t1125+2.0*t120*t3404*t3621-t120*t1053*t3629; double t3635 = 2.0*t3481*t1068; double t3638 = t3489*t1067; double t3649 = 6.0*t3184; double t3650 = 3.0*t3194; double t3651 = 3.0*t3200; double t3652 = 6.0*t3218; double t3653 = 6.0*t3231; double t3654 = 6.0*t3498; double t3655 = 2.0*t3501; double t3657 = 2.0*t3505; double t3660 = 6.0*t3508; double t3661 = 6.0*t3513; double t3662 = 3.0*t3524; double t3663 = 3.0*t3534; double t3664 = 2.0*t3537; double t3665 = 2.0*t3539; double t3666 = 6.0*t3542; double t3667 = 6.0*t3544; double t3668 = 2.0*t3550; double t3670 = 6.0*t3559; double t3671 = t3660+t3661-t3662+t3663-t3664-t3665+t3666+t3667-t3668-4.0*t3552-t3670; double t3673 = 2.0*t3561; double t3674 = t110*t15; double t3675 = t1156*t3674; double t3676 = t110*t9; double t3677 = t1156*t3676; double t3678 = E4*t4; double t3679 = t1156*t3678; double t3680 = t110*t1; double t3681 = t1156*t3680; double t3682 = t1156*t1296; double t3683 = 3.0*t3682; double t3684 = t97*t1; double t3685 = t1156*t3684; double t3686 = 3.0*t3685; double t3687 = t1156*t210; double t3688 = 3.0*t3687; double t3689 = t1156*t213; double t3690 = 3.0*t3689; double t3691 = t91*t15; double t3692 = t123*t3691; double t3694 = t1089*R2; double t3695 = t1156*t3694; double t3698 = E4*t9*R2; double t3700 = 3.0*t1156*t3698; double t3701 = t438*R2; double t3702 = t1147*t3701; double t3703 = 2.0*t3702; double t3704 = t1156*t156; double t3705 = 2.0*t3704; double t3706 = t124*t9; double t3707 = t1147*t3706; double t3708 = 6.0*t3707; double t3709 = t124*t1; double t3710 = t1147*t3709; double t3711 = 6.0*t3710; double t3712 = t1176*t9; double t3713 = 6.0*t3712; double t3714 = t1176*t1; double t3715 = 6.0*t3714; double t3716 = t1170*t9; double t3717 = 6.0*t3716; double t3718 = t1170*t1; double t3719 = 6.0*t3718; double t3720 = t191*R2; double t3721 = 2.0*t3720; double t3722 = -2.0*t3695-t3700+t3703+t3705+t3708-t3711-t3713+t3715-t3717+t3719-t3721; double t3732 = t3571*t1125; double t3737 = 8.0*t124-4.0*t128; double t3740 = t3635+2.0*t1065*t1137-4.0*t3423*t3638-t1070*t1140*t233*t246-t1141*t1118+t1141*t1126+t1070*t119*t1319*t246+t120*(t3649-t3650+t3651-t3652-t3653-t3654+t3655+4.0*t3502+t3657+4.0*t3506+t3671+t3673-t3675-t3677+t3679+t3681-t3683+t3686+t3688-t3690-t3692+t3722)*t246-t120*t3566*t1125-t3431*t1328-t120*t3456*t1327+2.0*t3461*t3732-t120*t1053*t3737; double t3748 = t97*t109*t1005; double t3750 = 8.0*t1132*t3748; double t3751 = t3374*t97; double t3754 = 1/t169; double t3755 = t118*t3754; double t3763 = t123*t3353; double t3764 = t3763*t125; double t3766 = t3763*t129; double t3767 = t122*t3353; double t3768 = t3767*E6; double t3769 = t3768*t132; double t3771 = t3767*E4; double t3772 = t3771*t137; double t3774 = t141*t3353; double t3775 = t3774*t142; double t3776 = t140*t3353; double t3777 = t3776*E4; double t3778 = t3777*t132; double t3781 = 3.0*t3768*t150; double t3783 = 6.0*t3768*t147; double t3784 = -t3606-t3607-t3612+2.0*t3764-t3766+4.0*t3769-2.0*t3772+t3775+2.0*t3778-t3781+t3783; double t3787 = 2.0*t3768*t156; double t3789 = 3.0*t3771*t160; double t3791 = 3.0*t3777*t147; double t3792 = t1156*E6; double t3794 = 12.0*t3792*t166; double t3795 = t3776*t97; double t3797 = 3.0*t3795*t166; double t3799 = 3.0*t3776*t1297; double t3800 = t141*t3504; double t3803 = 12.0*t1156*t125; double t3805 = 3.0*t3776*t1238; double t3806 = t123*t3500; double t3808 = t3353*t97; double t3810 = t141*t3808*t15; double t3811 = t3787-t3789+t3791+t3794-t3797+t3799+4.0*t3800-t3803+t3805-4.0*t3806+t3810; double t3812 = t1156*t137; double t3814 = t3776*t1246; double t3816 = t3353*t95; double t3818 = t141*t3816*t15; double t3819 = t3776*t1252; double t3821 = t3776*t1255; double t3822 = t141*t3691; double t3824 = t1147*t132; double t3826 = t1147*t3694; double t3829 = 3.0*t3767*t1235; double t3830 = t3767*t1244; double t3832 = 3.0*t3776*t1257; double t3833 = -8.0*t3812+2.0*t3814-t3818-2.0*t3819+t3821-2.0*t3822+8.0*t3824-4.0*t3826+t3829-t3830-t3832; double t3836 = t3776*t1261; double t3837 = t3776*t1263; double t3838 = t3776*t1265; double t3839 = t3776*t1267; double t3840 = t3776*t1270; double t3842 = 6.0*t1147*t3533; double t3844 = 12.0*t1156*t3706; double t3846 = 3.0*t3776*t1290; double t3848 = 12.0*t1156*t3709; double t3850 = 3.0*t3776*t1293; double t3852 = 12.0*t1156*t160; double t3853 = t3836+t3837-t3838-t3839-t3840+t3842-t3844+t3846+t3848-t3850-t3852; double t3855 = 3.0*t3767*t1272; double t3857 = 3.0*t3767*t1275; double t3859 = 2.0*t3767*t1278; double t3860 = t3767*t1282; double t3861 = t3767*t1284; double t3862 = t3767*t1286; double t3863 = t3767*t1288; double t3865 = 6.0*t1147*t150; double t3867 = 12.0*t1147*t147; double t3869 = 4.0*t1147*t156; double t3871 = 6.0*t1147*t3698; double t3872 = t3855-t3857-t3859+t3860-t3861+t3862+t3863-t3865+t3867+t3869-t3871; double t3875 = 4.0*t1156*t3701; double t3876 = t3776*t1300; double t3877 = t3767*t1160; double t3879 = 6.0*t1147*t182; double t3881 = 6.0*t1147*t189; double t3882 = t3776*t1162; double t3884 = 2.0*t1147*t3674; double t3886 = 6.0*t1147*t210; double t3888 = 6.0*t1147*t213; double t3890 = 4.0*t1147*t205; double t3892 = 2.0*t1147*t3676; double t3893 = -t3875+t3876-t3877+t3879-t3881-t3882-t3884+t3886-t3888-t3890-t3892; double t3910 = 2.0*t1147*t3678+2.0*t1147*t3680-6.0*t1147*t1296+6.0*t1147*t3684+4.0*t1156*t220-t3776*t1168-t3776*t1198+t3776*t1200+t3776*t1202-t3767*t1164+t3767*t1166; double t3919 = t1327*t1327; double t3925 = 4.0*t95-t3468+12.0*t97+t3628; double t3928 = -t3586+t3750-8.0*t108*t3751+t3380+2.0*t3755*t247-2.0*t1141*t1320+2.0*t1141*t1328+t120*(-t3602+t3601-t3603+t3604+t3613-t3614+t3609+t3610-t3608-t3605+t3784+t3811+t3833+t3853+t3872+t3893+t3910)*t246-2.0*t120*t3566*t1327+2.0*t120*t3404*t3919-t120*t1053*t3925; double newd2TdR120 = t3293*t1058+t996*(t3297-t3298-t3299+t3302-t3305)+t3313*t1128+t1062*(-t3315+t3318+t3321-t3323)+t3327*t1330/2.0+t1131*(-t3331-t3332+t3335-t3337)/2.0+t3352*(t3297-t3298-t3299+t3302-t3305+t996*t3413+t1062*t3472+t1131*t3579/2.0)+t1062*(-t3315+t3318+t3321-t3323+t996*t3472+t1062*t3632+t1131*t3740/2.0)+t1131*(-t3331-t3332+t3335-t3337+t996*t3579+t1062*t3740+t1131*t3928/2.0)/2.0; double t3935 = t997*bi; double t3936 = t3935*t1335; double t3939 = t1333*br*t1001*t114; double t3940 = t1333*br; double t3941 = t3940*t1009; double t3942 = t131*t261; double t3943 = t1015*t261; double t3944 = -t3942+t3943; double t3946 = t120*t3944*t246; double t3947 = t1343*t1052; double t3949 = t120*t3947*t1055; double t3953 = t3940*t1068; double t3956 = t1070*t119*t1343*t246; double t3957 = 2.0*t3942; double t3958 = 2.0*t3943; double t3959 = t144*t261; double t3960 = t3957-t3958+t3959; double t3962 = t120*t3960*t246; double t3964 = t120*t3947*t1125; double t3970 = 2.0*t3940*t1137; double t3971 = t1141*t1344; double t3972 = t1148*t262; double t3974 = t1151*t313; double t3975 = t1157*t262; double t3976 = t1156*t284; double t3977 = t1170*t261; double t3979 = t641*bi; double t3980 = t1156*t3979; double t3981 = t1176*t261; double t3983 = t135*t261; double t3984 = -2.0*t3972+t3974+t3975-t3976+2.0*t3977+t3980+2.0*t3981-t3983; double t3986 = t120*t3984*t246; double t3988 = t120*t3947*t1327; double t3997 = t997*t266; double t4007 = 2.0*t267*t1006; double t4008 = t164*omega; double t4009 = 2.0*t4008; double t4010 = t179*omega; double t4011 = 2.0*t4010; double t4012 = t1015*t251; double t4013 = 4.0*t4012; double t4014 = t131*t272; double t4015 = 4.0*t4014; double t4016 = t131*t251; double t4017 = 4.0*t4016; double t4021 = t1387*t1052; double t4025 = t372*t3403; double t4031 = -t3354*t1347+2.0*t997*t266*t1001*t114+2.0*t3997*t1009-2.0*t267*t3365-2.0*t267*t3369-2.0*t267*t3376+t4007+t120*(-t4009+t4011+t4013+t3958-t4015-t4017-t3957)*t246-2.0*t120*t4021*t1055+2.0*t120*t4025*t3405-t120*t1390*t3410; double t4040 = t267*t109; double t4048 = t140*R2*t261; double t4049 = 2.0*t4048; double t4050 = t140*br; double t4051 = t4050*t388; double t4052 = 6.0*t4014; double t4053 = 3.0*t4008; double t4054 = 3.0*t4010; double t4055 = t144*t272; double t4056 = 4.0*t4055; double t4057 = t140*t256; double t4058 = t140*omega; double t4059 = t4058*t1; double t4060 = 3.0*t4059; double t4061 = t144*t251; double t4062 = 4.0*t4061; double t4063 = t4058*t15; double t4064 = 2.0*t3959; double t4065 = t4058*t14; double t4066 = t131*t348; double t4067 = 4.0*t4066; double t4068 = t4049+t4051+t4052+t4053-t4054+t4056-t4057+t4060+t4062-t4063+t4064-t4065-t4067; double t4071 = t1447*t1052; double t4076 = t120*t372; double t4081 = -t997*t1398*t109*t114+t1399*t1002+t1399*t1009+t3997*t1068-t267*t3421-2.0*t4040*t3425-t4007+t1070*t119*t1387*t246-t3431*t1391+t120*t4068*t246-t120*t4071*t1055-t120*t4021*t1125+2.0*t4076*t3463-t120*t1390*t3469; double t4083 = t997*omega; double t4085 = 2.0*t4083*t1134; double t4087 = 2.0*t1454*t3478; double t4088 = t1454*E6; double t4090 = 2.0*t4088*t1009; double t4099 = 2.0*t3983; double t4100 = t144*t303; double t4101 = 4.0*t4100; double t4102 = t135*t272; double t4103 = 4.0*t4102; double t4104 = t135*t251; double t4105 = 4.0*t4104; double t4106 = t1186*omega; double t4107 = 3.0*t4106; double t4108 = t1204*omega; double t4109 = 3.0*t4108; double t4110 = t122*omega; double t4111 = t4110*t1; double t4112 = 3.0*t4111; double t4113 = t4110*t15; double t4114 = t4110*t14; double t4115 = t1148*t319; double t4116 = 4.0*t4115; double t4117 = t1151*t307; double t4118 = 4.0*t4117; double t4119 = t1148*t259; double t4120 = 2.0*t4119; double t4121 = t1148*t265; double t4122 = t1156*E5; double t4123 = t4122*t259; double t4124 = 2.0*t4123; double t4125 = t4122*t265; double t4126 = t1156*t273; double t4127 = 3.0*t4126; double t4128 = t1156*t278; double t4129 = t1156*t281; double t4130 = -t4099-t4101-t4103-t4105-t4107+t4109-t4112+t4113+t4114+t4116+t4118+t4120+t4121+t4124+t4125+t4127-t4128-t4129; double t4132 = t1147*t912*omega; double t4133 = 3.0*t4132; double t4134 = t1147*t304; double t4135 = 3.0*t4134; double t4136 = t1147*t310; double t4137 = t1147*t315; double t4139 = t1156*t920*omega; double t4140 = 3.0*t4139; double t4141 = t239*omega; double t4142 = t1156*t4141; double t4143 = 2.0*t4142; double t4144 = t1156*t287; double t4145 = 2.0*t4144; double t4146 = 2.0*t3975; double t4147 = 2.0*t3974; double t4148 = t1157*t252; double t4149 = 4.0*t4148; double t4150 = t1170*t272; double t4151 = 6.0*t4150; double t4153 = t122*R2*t261; double t4154 = 2.0*t4153; double t4155 = t122*br; double t4156 = t4155*t388; double t4157 = t1147*t1588; double t4158 = t1147*t353; double t4159 = t1156*t1608; double t4160 = t1156*t344; double t4161 = t122*t256; double t4162 = -t4133+t4135-t4136-t4137+t4140-t4143+t4145+t4146+t4147+t4149+t4151-t4154-t4156+t4157-t4158-t4159-t4160+t4161; double t4166 = t1626*t1052; double t4175 = -t4085+t4087+t4090+2.0*t3997*t1137-2.0*t267*t3486-4.0*t4040*t3490-t1141*t1388+t1141*t1391+t120*(t4130+t4162)*t246-t120*t4166*t1055-t120*t4021*t1327+2.0*t4076*t3572-t120*t1390*t3576; double t4181 = t1454*t115; double t4182 = 2.0*t4181; double t4194 = 4.0*t4048; double t4195 = 2.0*t4051; double t4196 = 6.0*t4059; double t4197 = 2.0*t4063; double t4198 = 2.0*t4065; double t4199 = 6.0*t4066; double t4200 = 6.0*t4055; double t4201 = 2.0*t4057; double t4202 = 12.0*t4012; double t4203 = 6.0*t3943; double t4204 = t198*omega; double t4205 = 2.0*t4204; double t4206 = 6.0*t3942; double t4207 = 12.0*t4016; double t4208 = -t4194-t4195-t4196+t4197+t4198+t4199-t4200+t4201-t4202-t4203+t4205+t4206+t4207; double t4219 = -t4182+2.0*t1399*t1068-2.0*t267*t3590+t4007+t3593*t1403+2.0*t1070*t119*t1447*t246-2.0*t3431*t1450+t120*t4208*t246-2.0*t120*t4071*t1125+2.0*t120*t4025*t3621-t120*t1390*t3629; double t4222 = 2.0*t4088*t1068; double t4235 = 6.0*t3977; double t4236 = 6.0*t3981; double t4237 = 6.0*t4100; double t4238 = 6.0*t4102; double t4240 = 2.0*t1157*t259; double t4241 = t1157*t265; double t4242 = t1148*t252; double t4243 = 12.0*t4242; double t4244 = 6.0*t4111; double t4245 = 2.0*t4113; double t4246 = 2.0*t4114; double t4247 = t191*omega; double t4248 = 2.0*t4247; double t4249 = t4235+t4236+t4237+t4238+t4240+t4241-t4243+t4244-t4245-t4246-t4248; double t4250 = 6.0*t4115; double t4251 = 4.0*t4119; double t4252 = 2.0*t4121; double t4253 = 4.0*t4123; double t4254 = 2.0*t4125; double t4255 = 6.0*t4126; double t4256 = 2.0*t4128; double t4257 = 2.0*t4129; double t4258 = 6.0*t4134; double t4259 = 2.0*t4136; double t4260 = 2.0*t4137; double t4261 = -t4250-t4251-t4252-t4253-t4254-t4255+t4256+t4257-t4258+t4259+t4260; double t4263 = 3.0*t4142; double t4264 = 3.0*t4144; double t4265 = 6.0*t3972; double t4266 = t1156*t290; double t4267 = 6.0*t4266; double t4268 = t1156*t300; double t4269 = 2.0*t4268; double t4270 = t348*t14; double t4271 = t1156*t4270; double t4272 = t438*omega; double t4273 = t1147*t4272; double t4274 = 2.0*t4273; double t4275 = t255*R2; double t4276 = t1156*t4275; double t4277 = 6.0*t4276; double t4278 = t348*t1; double t4280 = 3.0*t1156*t4278; double t4281 = t1441*R2; double t4283 = 2.0*t1156*t4281; double t4284 = t348*t15; double t4285 = t1156*t4284; double t4286 = t4263-t4264-t4265-t4267+t4269-t4271+t4274+t4277+t4280+t4283-t4285; double t4287 = t2390*bi; double t4288 = t1156*t4287; double t4289 = t1176*t251; double t4290 = 12.0*t4289; double t4291 = t1170*t251; double t4292 = 12.0*t4291; double t4293 = E4*t256; double t4294 = t1156*t4293; double t4295 = 3.0*t3976; double t4296 = 3.0*t3980; double t4297 = 4.0*t4153; double t4298 = 2.0*t4156; double t4299 = 2.0*t4158; double t4300 = 2.0*t4160; double t4301 = 2.0*t4161; double t4302 = t4288+t4290+t4292-t4294-t4295+t4296+t4297+t4298+t4299+t4300-t4301; double t4316 = t4222+2.0*t1399*t1137-4.0*t4040*t3638-t1070*t1140*t372*t246-t1141*t1448+t1141*t1450+t1070*t119*t1626*t246+t120*(t4249+t4261+t4286+t4302)*t246-t120*t4166*t1125-t3431*t1629-t120*t4071*t1327+2.0*t4076*t3732-t120*t1390*t3737; double t4324 = 8.0*t1454*t3748; double t4334 = 2.0*t3771*t1556; double t4335 = t3771*t1559; double t4337 = 4.0*t3768*t1550; double t4338 = t4196-t4197-t4198+t4194+t4195+t4200-t4199-t4205+t4334+t4335-t4337; double t4340 = 2.0*t3768*t1553; double t4342 = 2.0*t3777*t1550; double t4343 = t3777*t1553; double t4344 = t3776*t1614; double t4346 = 4.0*t1147*t278; double t4348 = 4.0*t1147*t281; double t4350 = 4.0*t1147*t300; double t4352 = 6.0*t1147*t4278; double t4354 = 4.0*t1147*t4281; double t4356 = 2.0*t1147*t4284; double t4358 = 2.0*t1147*t4287; double t4360 = 2.0*t1147*t4270; double t4361 = -t4340-t4342-t4343-t4344+t4346+t4348+t4350+t4352+t4354-t4356+t4358-t4360; double t4364 = 6.0*t1147*t284; double t4366 = 6.0*t1147*t287; double t4368 = 12.0*t1147*t290; double t4370 = 12.0*t1147*t273; double t4372 = 6.0*t1147*t3979; double t4374 = 6.0*t1147*t4141; double t4376 = 12.0*t1147*t4275; double t4378 = 12.0*t1156*t304; double t4380 = 3.0*t3776*t1596; double t4382 = 4.0*t1156*t310; double t4383 = t3776*t1599; double t4384 = -t4364-t4366-t4368-t4370+t4372+t4374+t4376+t4378-t4380-t4382+t4383; double t4386 = 4.0*t1156*t315; double t4387 = t3776*t1601; double t4389 = 4.0*t1156*t4272; double t4390 = t3776*t1603; double t4392 = 3.0*t3776*t1605; double t4394 = 2.0*t3776*t1609; double t4395 = t3776*t1612; double t4397 = 2.0*t3767*t1582; double t4398 = t3767*t1586; double t4399 = t3767*t1589; double t4401 = 2.0*t3767*t1591; double t4402 = t3767*t1594; double t4403 = -t4386+t4387-t4389+t4390+t4392+t4394+t4395+t4397+t4398+t4399+t4401-t4402; double t4407 = 3.0*t3795*t319; double t4409 = 24.0*t3792*t252; double t4410 = t3776*t95; double t4412 = 2.0*t4410*t259; double t4413 = t4410*t265; double t4415 = 3.0*t3777*t273; double t4416 = t3776*t110; double t4418 = 2.0*t4416*t252; double t4419 = t3777*t278; double t4420 = t4416*t262; double t4421 = t3777*t281; double t4423 = 4.0*t1156*t353; double t4424 = t3776*t1509; double t4425 = -t4407+t4409+t4412+t4413-t4415-t4418+t4419-t4420+t4421-t4423+t4424; double t4426 = t3776*t1511; double t4428 = 4.0*t1147*t344; double t4430 = 2.0*t1147*t4293; double t4432 = 2.0*t3795*t259; double t4434 = 4.0*t3792*t265; double t4435 = t3795*t265; double t4437 = 6.0*t3795*t252; double t4439 = 8.0*t3792*t259; double t4440 = t1147*E5; double t4442 = 8.0*t4440*t259; double t4444 = 4.0*t4440*t265; double t4446 = 4.0*t1151*t259; double t4448 = 2.0*t1151*t265; double t4449 = -t4426+t4428-t4430-t4432+t4434-t4435-t4437+t4439-t4442-t4444+t4446+t4448; double t4452 = 3.0*t3768*t284; double t4454 = 3.0*t3768*t287; double t4456 = 6.0*t3768*t290; double t4458 = 6.0*t3768*t273; double t4460 = 2.0*t3768*t278; double t4462 = 2.0*t3768*t281; double t4464 = 2.0*t3768*t300; double t4466 = 3.0*t3771*t304; double t4467 = t3767*t110; double t4469 = 2.0*t4467*t307; double t4470 = t3771*t310; double t4471 = t4467*t313; double t4472 = t3771*t315; double t4473 = -t4452-t4454-t4456-t4458+t4460+t4462+t4464+t4466+t4469-t4470+t4471-t4472; double t4475 = 12.0*t3792*t262; double t4477 = 3.0*t3795*t262; double t4479 = 12.0*t3792*t319; double t4480 = t3776*t1616; double t4481 = t3776*t1618; double t4482 = t3776*t1620; double t4483 = t3776*t1622; double t4484 = t4475-t4477+t4479-t4201+t4202-t4207-t4480+t4481-t4482+t4483-t4206+t4203; double t4498 = -t4182+t4324-8.0*t267*t3751+t4007+2.0*t3755*t373-2.0*t1141*t1627+2.0*t1141*t1629+t120*(t4338+t4361+t4384+t4403+t4425+t4449+t4473+t4484)*t246-2.0*t120*t4166*t1327+2.0*t120*t4025*t3919-t120*t1390*t3925; double newd2TdR121 = t3293*t1393+t996*(-t3936+t3939+t3941+t3946-t3949)+t3313*t1452+t1062*(t3953+t3956+t3962-t3964)+t3327*t1631/2.0+t1131*(t3970-t3971+t3986-t3988)/2.0+t3352*(-t3936+t3939+t3941+t3946-t3949+t996*t4031+t1062*t4081+t1131*t4175/2.0)+t1062*(t3953+t3956+t3962-t3964+t996*t4081+t1062*t4219+t1131*t4316/2.0)+t1131*(t3970-t3971+t3986-t3988+t996*t4175+t1062*t4316+t1131*t4498/2.0)/2.0; double t4504 = t1333*t115; double t4505 = 2.0*t4504; double t4506 = 2.0*t1983; double t4507 = 2.0*t1982; double t4508 = 4.0*t1979; double t4509 = t4506-t4507+t2008+t4508-t2001; double t4511 = t120*t4509*t246; double t4515 = t997*t1635*t109*t114; double t4516 = t1636*t1002; double t4517 = t1636*t1009; double t4520 = t120*(-t2001+t2008-t2006+t2007+t2004-t2005+t2027-t2026)*t246; double t4521 = t1645*t1052; double t4523 = t120*t4521*t1055; double t4527 = t1636*t1068; double t4530 = t1070*t119*t1645*t246; double t4531 = 4.0*t2003; double t4532 = 4.0*t2002; double t4533 = 2.0*t2028; double t4534 = -t2024+t2025+t2023+t2031-t2032-t2033+t2034+t2029-t2030-t4531+t4532+t4533+t2035; double t4536 = t120*t4534*t246; double t4538 = t120*t4521*t1125; double t4544 = 2.0*t1636*t1137; double t4545 = t1141*t1646; double t4546 = 4.0*t2049; double t4547 = 2.0*t2051; double t4548 = 2.0*t2052; double t4549 = 4.0*t2066; double t4550 = 2.0*t2068; double t4551 = 4.0*t2069; double t4552 = -t4546+t4547+t4548+t2053-t2054-t2056+t2058+t2059-t2060+t2062-t2063-t2065+t4549-t4550+t4551+t2072+t2074; double t4553 = 2.0*t2087; double t4554 = 2.0*t2088; double t4555 = -t2077-t2078+t2079+t2081-t2083-t2084+t2085-t2086-t4553+t4554-t2091+t2092+t2095+t2096-t2097+t2098+t2099; double t4558 = t120*(t4552+t4555)*t246; double t4560 = t120*t4521*t1327; double t4569 = t997*t395; double t4579 = 2.0*t396*t1006; double t4583 = t1683*t1052; double t4587 = t522*t3403; double t4593 = t3354*t1649-2.0*t997*t395*t1001*t114-2.0*t4569*t1009+2.0*t396*t3365+2.0*t396*t3369+2.0*t396*t3376-t4579-t120*(-t2026+t2027+t2033-t2034-t2031+t2032-t4508-t4506+t4507)*t246+2.0*t120*t4583*t1055-2.0*t120*t4587*t3405+t120*t1686*t3410; double t4602 = t396*t109; double t4609 = 4.0*t1981; double t4610 = 4.0*t1984; double t4611 = t141*t258; double t4612 = t141*t382; double t4613 = t4050*t251; double t4614 = 2.0*t4613; double t4615 = t140*t381; double t4616 = t140*bi; double t4617 = t4616*t1; double t4618 = 2.0*t2029; double t4619 = t4616*t9; double t4620 = 2.0*t2030; double t4621 = t432*bi; double t4622 = t4616*t14; double t4623 = -t4609+t4610+t4611-t4612-t4614+t2023+t2025-t2024-t4615+t4617+t4618-t4619-t4620+t4621+t4533-t4622; double t4626 = t1748*t1052; double t4631 = t120*t522; double t4636 = t997*t1692*t109*t114-t1693*t1002-t1693*t1009-t4569*t1068+t396*t3421+2.0*t4602*t3425+t4579-t1070*t119*t1683*t246+t3431*t1687-t120*t4623*t246+t120*t4626*t1055+t120*t4583*t1125-2.0*t4631*t3463+t120*t1686*t3469; double t4639 = 2.0*t3935*t1134; double t4641 = 2.0*t1333*t3478; double t4642 = t1333*E6; double t4644 = 2.0*t4642*t1009; double t4653 = t122*t381; double t4654 = t1148*t417; double t4655 = 4.0*t4654; double t4656 = t1148*t383; double t4657 = 2.0*t4656; double t4658 = t1143*t461; double t4659 = t1143*t465; double t4660 = t1154*t376; double t4661 = t1154*t385; double t4662 = t4122*t383; double t4663 = 2.0*t4662; double t4664 = t121*bi; double t4665 = t432*t4664; double t4666 = t239*bi; double t4667 = t1156*t4666; double t4668 = 2.0*t4667; double t4669 = t1156*t402; double t4670 = 2.0*t4669; double t4671 = t4653+t4655-t4657+t4658-t4659+t4660-t4661-t4663+t4665-t4668+t4670; double t4672 = t1156*t426; double t4673 = t1156*t429; double t4674 = t117*bi; double t4675 = t445*t4674; double t4676 = t1147*t459; double t4677 = t1147*t463; double t4678 = t1147*t467; double t4679 = t1156*t455; double t4680 = t135*t416; double t4681 = 4.0*t4680; double t4682 = t1147*t504; double t4683 = t1156*t501; double t4684 = t4155*t251; double t4685 = 2.0*t4684; double t4686 = t4672-t4673+t4675+t4676-t4677-t4678-t4679-t4681-t4682-t4683+t4685; double t4688 = t123*t258; double t4689 = t123*t382; double t4690 = t144*t458; double t4691 = 4.0*t4690; double t4692 = 2.0*t2053; double t4693 = 2.0*t2054; double t4694 = 2.0*t2059; double t4695 = 2.0*t2060; double t4696 = -t4688+t4689-t4691+t4547+t4548+t4692-t4693+t4694-t4695+t2062-t2065; double t4697 = 2.0*t2084; double t4698 = 2.0*t2085; double t4699 = t445*bi; double t4700 = t122*bi; double t4701 = t4700*t1; double t4702 = t4700*t9; double t4703 = t4700*t14; double t4704 = -t4550+t2072-t2078+t2079-t4697+t4698-t2091+t2095-t4699-t4701+t4702+t4703; double t4709 = t1967*t1052; double t4718 = t4639-t4641-t4644-2.0*t4569*t1137+2.0*t396*t3486+4.0*t4602*t3490+t1141*t1684-t1141*t1687-t120*(t4671+t4686+t4696+t4704)*t246+t120*t4709*t1055+t120*t4583*t1327-2.0*t4631*t3572+t120*t1686*t3576; double t4735 = 6.0*t2003; double t4736 = 6.0*t2004; double t4737 = 6.0*t2005; double t4738 = 2.0*t2035; double t4739 = 6.0*t2002; double t4740 = 6.0*t2006; double t4741 = 6.0*t2007; double t4742 = 2.0*t4611; double t4743 = 2.0*t4612; double t4744 = 4.0*t4613; double t4745 = 6.0*t1981; double t4746 = 2.0*t4617; double t4747 = 2.0*t4619; double t4748 = 2.0*t4621; double t4749 = 2.0*t4622; double t4750 = 6.0*t1984; double t4751 = 2.0*t4615; double t4752 = -t4735-t4736+t4737+t4738+t4739+t4740-t4741-t4742+t4743+t4744+t4745-t4746+t4747-t4748+t4749-t4750+t4751; double t4763 = t4505-2.0*t1693*t1068+2.0*t396*t3590-t4579-t3593*t1697-2.0*t1070*t119*t1748*t246+2.0*t3431*t1751-t120*t4752*t246+2.0*t120*t4626*t1125-2.0*t120*t4587*t3621+t120*t1686*t3629; double t4766 = 2.0*t4642*t1068; double t4779 = t1154*t1740; double t4780 = t1154*t1742; double t4782 = 2.0*t1157*t383; double t4783 = 2.0*t4653; double t4784 = t494*t1; double t4785 = t1156*t4784; double t4786 = t1729*R2; double t4787 = t1156*t4786; double t4788 = t494*t9; double t4789 = t1156*t4788; double t4790 = t2390*omega; double t4791 = t1156*t4790; double t4792 = t91*bi; double t4793 = t445*t4792; double t4794 = t3055*bi; double t4795 = t123*t4794; double t4796 = t494*t14; double t4797 = t1156*t4796; double t4798 = 6.0*t4654; double t4799 = 4.0*t4656; double t4800 = 2.0*t4658; double t4801 = t4779-t4780-t4782-t4783+t4785+t4787-t4789-t4791+t4793+t4795-t4797-t4798+t4799-t4800; double t4802 = 2.0*t4659; double t4803 = 2.0*t4660; double t4804 = 2.0*t4661; double t4805 = 4.0*t4662; double t4806 = 2.0*t4665; double t4807 = 3.0*t4667; double t4808 = 3.0*t4669; double t4809 = 2.0*t4672; double t4810 = 2.0*t4673; double t4811 = 2.0*t4675; double t4812 = 2.0*t4676; double t4813 = 2.0*t4677; double t4814 = 2.0*t4678; double t4815 = 2.0*t4679; double t4816 = 6.0*t4680; double t4817 = t4802-t4803+t4804+t4805-t4806+t4807-t4808-t4809+t4810-t4811-t4812+t4813+t4814+t4815+t4816; double t4819 = 2.0*t4682; double t4820 = 2.0*t4683; double t4821 = 4.0*t4684; double t4822 = 2.0*t4688; double t4823 = 2.0*t4689; double t4824 = 6.0*t4690; double t4825 = 6.0*t2049; double t4826 = 6.0*t2055; double t4827 = 6.0*t2057; double t4828 = 2.0*t2063; double t4829 = 6.0*t2066; double t4830 = 6.0*t2069; double t4831 = 6.0*t2073; double t4832 = 6.0*t2076; double t4833 = t4819+t4820-t4821+t4822-t4823+t4824-t4825-t4826+t4827-t4828+t4829+t4830+t4831-t4832; double t4834 = 6.0*t2080; double t4835 = 6.0*t2082; double t4836 = 3.0*t2086; double t4837 = 3.0*t2087; double t4838 = 3.0*t2088; double t4839 = 2.0*t2092; double t4840 = 3.0*t2096; double t4841 = 3.0*t2097; double t4842 = 3.0*t2098; double t4843 = 2.0*t2099; double t4844 = 2.0*t4699; double t4845 = 2.0*t4701; double t4846 = 2.0*t4702; double t4847 = 2.0*t4703; double t4848 = E4*t381; double t4849 = t1156*t4848; double t4850 = t4834-t4835-t4836-t4837+t4838+t4839+t4840-t4841+t4842+t4843+t4844+t4845-t4846-t4847-t4849; double t4864 = -t4766-2.0*t1693*t1137+4.0*t4602*t3638+t1070*t1140*t522*t246+t1141*t1749-t1141*t1751-t1070*t119*t1967*t246-t120*(t4801+t4817+t4833+t4850)*t246+t120*t4709*t1125+t3431*t1970+t120*t4626*t1327-2.0*t4631*t3732+t120*t1686*t3737; double t4872 = 8.0*t1333*t3748; double t4881 = t3776*t1942; double t4882 = t3776*t1940; double t4884 = 2.0*t432*t4792; double t4886 = 4.0*t432*t4674; double t4888 = 2.0*t141*t4794; double t4890 = 6.0*t1147*t398; double t4892 = 6.0*t1147*t402; double t4894 = 6.0*t1147*t405; double t4896 = 6.0*t1147*t408; double t4898 = 4.0*t1147*t411; double t4900 = 6.0*t1147*t441; double t4902 = 6.0*t1147*t4666; double t4904 = 6.0*t1147*t443; double t4907 = 6.0*t1147*t379*R1; double t4909 = 4.0*t1156*t439; double t4910 = -t4881+t4882+t4884-t4886+t4888-t4890-t4892+t4894-t4896+t4898+t4900+t4902-t4904+t4907-t4909; double t4914 = t3808*bi; double t4925 = t3353*t172; double t4928 = t3816*bi; double t4934 = t3776*t1915+4.0*t445*t4664-t432*t4914+4.0*t1156*t459-t3776*t1924-4.0*t1156*t463+t3776*t1926-4.0*t1156*t467+t3776*t1928+t141*t4925*bi+t432*t4928+t3776*t1935+t3776*t1938+t3767*t1905+t3767*t1909; double t4936 = t3767*t1911; double t4937 = t3767*t1913; double t4939 = 2.0*t3767*t1919; double t4940 = t3767*t1922; double t4941 = t3776*t1944; double t4942 = t3776*t1946; double t4943 = t3776*t1948; double t4944 = t3776*t1950; double t4946 = 4.0*t1147*t426; double t4948 = 4.0*t1147*t429; double t4950 = 4.0*t1147*t455; double t4952 = 2.0*t1147*t4784; double t4954 = 2.0*t1147*t4786; double t4956 = 2.0*t1147*t4788; double t4958 = 2.0*t1147*t4790; double t4959 = -t4936+t4937+t4939-t4940-t4941-t4942-t4943+t4944-t4946+t4948+t4950+t4952+t4954-t4956-t4958; double t4961 = 2.0*t1147*t4796; double t4963 = 4.0*t1147*t501; double t4965 = 2.0*t1147*t4848; double t4967 = 4.0*t1156*t504; double t4968 = t3776*t1841; double t4969 = t3776*t1843; double t4970 = t445*t3353; double t4971 = t4970*t449; double t4973 = 2.0*t4970*t446; double t4974 = t3763*t439; double t4976 = 3.0*t3768*t398; double t4978 = 3.0*t3768*t402; double t4980 = 3.0*t3768*t405; double t4982 = 3.0*t3768*t408; double t4984 = 2.0*t3768*t411; double t4986 = 4.0*t1151*t383; double t4988 = 4.0*t1154*t461; double t4989 = -t4961+t4963-t4965-t4967+t4968-t4969+t4971-t4973+t4974-t4976-t4978+t4980-t4982+t4984-t4986+t4988; double t4992 = t3774*t441; double t4994 = 4.0*t1154*t465; double t4995 = t3774*t443; double t4997 = 12.0*t3792*t376; double t4999 = 3.0*t3795*t376; double t5001 = 12.0*t3792*t417; double t5003 = 3.0*t3795*t417; double t5005 = 12.0*t3792*t385; double t5007 = 3.0*t3795*t385; double t5009 = 12.0*t3792*t390; double t5011 = 3.0*t3795*t390; double t5013 = 2.0*t4410*t383; double t5014 = t3777*t426; double t5015 = t4416*t376; double t5016 = t3777*t429; double t5017 = -t4992-t4994+t4995+t4997-t4999+t5001-t5003-t5005+t5007+t5009-t5011-t5013-t5014-t5015+t5016; double t5018 = t4416*t385; double t5019 = t432*t3353; double t5020 = t5019*t417; double t5021 = t3774*t398; double t5022 = t3774*t405; double t5023 = t3774*t411; double t5025 = 8.0*t3792*t383; double t5027 = 2.0*t3795*t383; double t5028 = t3777*t455; double t5030 = 4.0*t1143*t376; double t5032 = 4.0*t1143*t385; double t5034 = 2.0*t1143*t1740; double t5036 = 2.0*t1143*t1742; double t5038 = 8.0*t4440*t383; double t5040 = 2.0*t3768*t426; double t5042 = 2.0*t3768*t429; double t5044 = 2.0*t3768*t455; double t5045 = t5018-t5020+t5021-t5022-t5023-t5025+t5027+t5028-t5030+t5032+t5034-t5036+t5038-t5040+t5042+t5044; double t5047 = t3771*t459; double t5048 = t4467*t461; double t5049 = t3771*t463; double t5050 = t4467*t465; double t5051 = t3771*t467; double t5052 = t5047+t5048-t5049-t5050-t5051-t4738-t4745+t4750-t4739+t4735+t4736-t4737-t4740+t4741-t4751; double t5054 = 2.0*t3771*t1760; double t5055 = t3774*t1776; double t5056 = t3774*t1778; double t5058 = 2.0*t3777*t1773; double t5060 = 2.0*t3763*t1763; double t5062 = 2.0*t3763*t1766; double t5063 = t3763*t1769; double t5064 = t3763*t1771; double t5066 = 4.0*t3768*t1773; double t5067 = t4746-t4747+t4748-t4749-t5054-t5055+t5056+t5058-t5060+t5062+t5063-t5064+t5066+t4742-t4743-t4744; double t5081 = t4505-t4872+8.0*t396*t3751-t4579-2.0*t3755*t523+2.0*t1141*t1968-2.0*t1141*t1970-t120*(t4910+t4934+t4959+t4989+t5017+t5045+t5052+t5067)*t246+2.0*t120*t4709*t1327-2.0*t120*t4587*t3919+t120*t1686*t3925; double newd2TdR122 = t4505-t4511+t3293*t1689+t996*(t4515-t4516-t4517-t4520+t4523)+t3313*t1753+t1062*(t4505-t4527-t4530-t4536+t4538)+t3327*t1972/2.0+t1131*(-t4544+t4545-t4558+t4560)/2.0+t3352*(t4515-t4516-t4517-t4520+t4523+t996*t4593+t1062*t4636+t1131*t4718/2.0)+t1062*(t4505-t4527-t4530-t4536+t4538+t996*t4636+t1062*t4763+t1131*t4864/2.0)+t1131*(-t4544+t4545-t4558+t4560+t996*t4718+t1062*t4864+t1131*t5081/2.0)/2.0; double t5094 = 1/t1990/t566; double t5095 = t5094*t3105; double t5099 = t3935*t529; double t5102 = t997*t526*t109*t114; double t5103 = t1333*t1997; double t5104 = t527*t1002; double t5105 = t1333*R1; double t5106 = t5105*t1009; double t5107 = t527*t1009; double t5109 = t120*t2009*t246; double t5110 = t131*bi; double t5111 = t1015*bi; double t5112 = -t5110+t5111; double t5115 = t531*t119*t5112*t246; double t5116 = t120*t2015; double t5117 = t1985*t1052; double t5119 = t2013*t5117*t1055; double t5123 = t5105*t1068; double t5124 = t527*t1068; double t5125 = t1070*t562; double t5126 = t2021*t1987; double t5128 = t120*t2036*t246; double t5131 = t144*bi; double t5135 = t531*t119*(2.0*t5110-2.0*t5111+t5131)*t246; double t5136 = t120*t2040; double t5138 = t2013*t5117*t1125; double t5143 = t5105*t1137; double t5144 = 2.0*t5143; double t5146 = 2.0*t527*t1137; double t5147 = t1141*t1977; double t5150 = t531*t1140*t1985*t246; double t5152 = t120*t2101*t246; double t5153 = t1176*bi; double t5155 = t135*bi; double t5156 = t1156*t378; double t5157 = t1170*bi; double t5159 = t1156*t379; double t5160 = t1147*t446; double t5162 = t1147*t449; double t5163 = t1156*t417; double t5167 = t531*t119*(2.0*t5153-t5155-t5156+2.0*t5157+t5159-2.0*t5160+t5162+t5163)*t246; double t5168 = t120*t2105; double t5170 = t2013*t5117*t1327; double t5179 = t528*t1005*t1008; double t5183 = R1*t3364*t114; double t5190 = t528*t1005; double t5192 = 2.0*t527*t5190; double t5193 = 2.0*t5112; double t5197 = t2009*t1052; double t5201 = t560*t3403; double t5207 = -t3354*t526*t529+2.0*t1994*t1997+2.0*t1994*t5179-2.0*t527*t5183-2.0*t1999*t3369-2.0*t1999*t3376+t5192+t531*t119*t5193*t246-2.0*t2013*t5197*t1055+2.0*t2013*t5201*t3405-t2013*t2014*t3410; double t5209 = 2.0*t5099; double t5210 = 2.0*t5103; double t5211 = 2.0*t5106; double t5213 = t528*t1005*t1067; double t5217 = t3374*t1067*t1008; double t5221 = t1052*t1055; double t5224 = t141*bi; double t5225 = t4616*R2; double t5226 = t4058*br; double t5227 = 2.0*t5131; double t5232 = t2036*t1052; double t5237 = t1125*t1055; double t5243 = -t5209+t5210+t5211+t1994*t5213-t1999*t3421-2.0*t1999*t5217-t5192+t2021*t2011-t2021*t561*t5221+t531*t119*(t5224+t5225-t5226+t5227)*t246-t2013*t5232*t1055-t2013*t5197*t1125+2.0*t2013*t5201*t5237-t2013*t2014*t3469; double t5246 = t528*t1005*E6; double t5252 = t3374*E6*t1008; double t5258 = t531*t1140; double t5260 = t123*bi; double t5261 = 2.0*t5162; double t5262 = t141*t4664; double t5263 = t123*t4674; double t5264 = t1156*t376; double t5265 = t1156*t385; double t5266 = t1147*t461; double t5267 = t1147*t465; double t5268 = 2.0*t5155; double t5269 = t4700*R2; double t5270 = t4110*br; double t5271 = 2.0*t5163; double t5272 = -t5260+t5261+t5262+t5263+t5264-t5265+t5266-t5267-t5268-t5269+t5270+t5271; double t5276 = t2101*t1052; double t5281 = t1327*t1055; double t5287 = 2.0*t1994*t5246-2.0*t1999*t3486-4.0*t1999*t5252-t531*t1140*t2009*t246+t5258*t2015+t531*t119*t5272*t246-t2013*t5276*t1055-t2013*t5197*t1327+2.0*t2013*t5201*t5281-t2013*t2014*t3576; double t5290 = -t5099+t5103+t5106-t5102+t5104+t5107+t5109-t5116+t5115-t5119+t996*t5207+t1062*t5243+t1131*t5287/2.0; double t5296 = t3593*R1; double t5300 = t1052*t1125; double t5304 = 6.0*t5110; double t5305 = 6.0*t5111; double t5306 = 2.0*t5224; double t5307 = 2.0*t5225; double t5308 = 2.0*t5226; double t5321 = 4.0*t5123-2.0*t1999*t3590+t5192+t5296*t562+2.0*t2021*t2038-2.0*t2021*t561*t5300+t531*t119*(t5304-t5305-t5306-t5307+t5308)*t246-2.0*t2013*t5232*t1125+2.0*t2013*t5201*t3621-t2013*t2014*t3629; double t5323 = 4.0*t5143; double t5325 = t3374*E6*t1067; double t5352 = 2.0*t5260-2.0*t5263-6.0*t5160+6.0*t5157+3.0*t5159-2.0*t5262+t123*t4792+t1156*t1740-t1156*t1742-2.0*t5266+2.0*t5267+6.0*t5153-3.0*t5156+2.0*t5269-2.0*t5270-2.0*t5264+2.0*t5265+t1156*t1729; double t5358 = t1052*t1327; double t5363 = t1327*t1125; double t5369 = t5323-4.0*t1999*t5325-t2021*t2047-t531*t1140*t2036*t246+t5258*t2040+t2021*t2103+t531*t119*t5352*t246-t2013*t5276*t1125-t2021*t561*t5358-t2013*t5232*t1327+2.0*t2013*t5201*t5363-t2013*t2014*t3737; double t5372 = t5123-t4505+t5124+t5125+t5128-t5136+t5126+t5135-t5138+t996*t5243+t1062*t5321+t1131*t5369/2.0; double t5411 = t5305+t5306+t5307-t5308-6.0*t1147*t378+2.0*t1147*t1729+t3776*t509+6.0*t1147*t379+t3767*t1904-t5304+t3776*t443-4.0*t141*t4674+2.0*t141*t4792+t141*t4928+4.0*t123*t4664-t141*t4914+12.0*t1156*t446-3.0*t3776*t2093+4.0*t1156*t461; double t5441 = -2.0*t1147*t1742-4.0*t1156*t465-3.0*t3767*t2089+t3767*t439-4.0*t1147*t376+4.0*t1147*t385+2.0*t1147*t1740-t3776*t441+t3776*t398-t3776*t405-t3776*t411-2.0*t3763*t446+t3763*t449-2.0*t3768*t376+2.0*t3768*t385+t3771*t461-t3771*t465-t3774*t417-t3777*t376+t3777*t385; double t5454 = -8.0*t1999*t3751+t5192+2.0*t531*t3754*t560*t246-2.0*t531*t1140*t2101*t246+2.0*t5258*t2105+t531*t119*(t5411+t5441)*t246-2.0*t2013*t5276*t1327+2.0*t2013*t5201*t3919-t2013*t2014*t3925; double t5457 = t5144+t5146-t5147+t5152-t5168-t5150+t5167-t5170+t996*t5287+t1062*t5369+t1131*t5454/2.0; double newd2TdR123 = -t4505+2.0*t120*t1985*t246-2.0*t564*t1991*t944+2.0*t565*t5095+t3293*t2017+t996*(-t5099-t5102+t5103+t5104+t5106+t5107+t5109+t5115-t5116-t5119)+t3313*t2042+t1062*(-t4505+t5123+t5124+t5125+t5126+t5128+t5135-t5136-t5138)+t3327*t2107/2.0+t1131*(t5144+t5146-t5147-t5150+t5152+t5167-t5168-t5170)/2.0+t3352*t5290+t1062*t5372+t1131*t5457/2.0; double t5463 = -t120*t3944*t246; double t5464 = t2110*t1052; double t5466 = t120*t5464*t1055; double t5472 = t1070*t119*t2110*t246; double t5475 = -t120*t3960*t246; double t5477 = t120*t5464*t1125; double t5482 = t1141*t2111; double t5485 = -t120*t3984*t246; double t5487 = t120*t5464*t1327; double t5496 = t997*t569; double t5506 = 2.0*t570*t1006; double t5510 = t2120*t1052; double t5514 = t578*t3403; double t5520 = t3354*t2114-2.0*t997*t569*t1001*t114-2.0*t5496*t1009+2.0*t570*t3365+2.0*t570*t3369+2.0*t570*t3376-t5506-t120*(-t4009+t4011+t4013-t3958-t4015-t4017+t3957)*t246+2.0*t120*t5510*t1055-2.0*t120*t5514*t3405+t120*t2123*t3410; double t5529 = t570*t109; double t5536 = -t4049-t4051+t4052+t4053-t4054+t4056-t4057+t4060+t4062-t4063-t4064-t4065-t4067; double t5539 = t2137*t1052; double t5544 = t120*t578; double t5549 = t997*t2128*t109*t114-t2129*t1002-t2129*t1009-t5496*t1068+t570*t3421+2.0*t5529*t3425+t5506-t1070*t119*t2120*t246+t3431*t2124-t120*t5536*t246+t120*t5539*t1055+t120*t5510*t1125-2.0*t5544*t3463+t120*t2123*t3469; double t5559 = t4099-t4101-t4103-t4105-t4107+t4109-t4112+t4113+t4114+t4116+t4118-t4120-t4121-t4124-t4125+t4127-t4128-t4129; double t5560 = -t4133+t4135-t4136-t4137+t4140-t4143+t4145-t4146-t4147+t4149+t4151+t4154+t4156+t4157-t4158-t4159-t4160+t4161; double t5564 = t2153*t1052; double t5573 = t4085-t4087-t4090-2.0*t5496*t1137+2.0*t570*t3486+4.0*t5529*t3490+t1141*t2121-t1141*t2124-t120*(t5559+t5560)*t246+t120*t5564*t1055+t120*t5510*t1327-2.0*t5544*t3572+t120*t2123*t3576; double t5590 = t4194+t4195-t4196+t4197+t4198+t4199-t4200+t4201-t4202+t4203+t4205-t4206+t4207; double t5601 = t4182-2.0*t2129*t1068+2.0*t570*t3590-t5506-t3593*t2133-2.0*t1070*t119*t2137*t246+2.0*t3431*t2140-t120*t5590*t246+2.0*t120*t5539*t1125-2.0*t120*t5514*t3621+t120*t2123*t3629; double t5615 = -t4235-t4236+t4237+t4238-t4240-t4241-t4243+t4244-t4245-t4246-t4248; double t5616 = -t4250+t4251+t4252+t4253+t4254-t4255+t4256+t4257-t4258+t4259+t4260; double t5618 = t4263-t4264+t4265-t4267+t4269-t4271+t4274+t4277+t4280+t4283-t4285; double t5619 = -t4288+t4290+t4292-t4294+t4295-t4296-t4297-t4298+t4299+t4300-t4301; double t5633 = -t4222-2.0*t2129*t1137+4.0*t5529*t3638+t1070*t1140*t578*t246+t1141*t2138-t1141*t2140-t1070*t119*t2153*t246-t120*(t5615+t5616+t5618+t5619)*t246+t120*t5564*t1125+t3431*t2156+t120*t5539*t1327-2.0*t5544*t3732+t120*t2123*t3737; double t5648 = t4196-t4197-t4198-t4194-t4195+t4200-t4199-t4205-t4334-t4335+t4337; double t5649 = t4340+t4342+t4343-t4344+t4346+t4348+t4350+t4352+t4354-t4356-t4358-t4360; double t5651 = t4364-t4366-t4368-t4370-t4372+t4374+t4376+t4378-t4380-t4382+t4383; double t5652 = -t4386+t4387-t4389+t4390+t4392+t4394+t4395+t4397-t4398+t4399+t4401-t4402; double t5655 = -t4407+t4409-t4412-t4413-t4415-t4418+t4419+t4420+t4421-t4423+t4424; double t5656 = -t4426+t4428-t4430+t4432-t4434+t4435-t4437-t4439+t4442+t4444-t4446-t4448; double t5658 = t4452-t4454-t4456-t4458+t4460+t4462+t4464+t4466+t4469-t4470-t4471-t4472; double t5659 = -t4475+t4477+t4479-t4201+t4202-t4207-t4480-t4481-t4482+t4483+t4206-t4203; double t5673 = t4182-t4324+8.0*t570*t3751-t5506-2.0*t3755*t579+2.0*t1141*t2154-2.0*t1141*t2156-t120*(t5648+t5649+t5651+t5652+t5655+t5656+t5658+t5659)*t246+2.0*t120*t5564*t1327-2.0*t120*t5514*t3919+t120*t2123*t3925; double newd2TdR124 = t3293*t2126+t996*(-t3936+t3939+t3941-t5463+t5466)+t3313*t2142+t1062*(t3953-t5472-t5475+t5477)+t3327*t2158/2.0+t1131*(t3970+t5482-t5485+t5487)/2.0+t3352*(-t3936+t3939+t3941-t5463+t5466+t996*t5520+t1062*t5549+t1131*t5573/2.0)+t1062*(t3953-t5472-t5475+t5477+t996*t5549+t1062*t5601+t1131*t5633/2.0)+t1131*(t3970+t5482-t5485+t5487+t996*t5573+t1062*t5633+t1131*t5673/2.0)/2.0; double t5682 = t997*t14*t109*t114; double t5683 = t2161*t1002; double t5684 = t2161*t1009; double t5687 = t120*(t3120-t3115)*t246; double t5688 = t2163*t1052; double t5690 = t120*t5688*t1055; double t5694 = t2161*t1068; double t5697 = t1070*t119*t2163*t246; double t5700 = t120*(-t3145+t3151-t3140)*t246; double t5702 = t120*t5688*t1125; double t5708 = 2.0*t2161*t1137; double t5709 = t1141*t2164; double t5712 = t120*(t3188-t3241-t3178-t3221+t3226-t3236-t3198+t3201)*t246; double t5714 = t120*t5688*t1327; double t5723 = t997*t586; double t5733 = 2.0*t587*t1006; double t5737 = t2180*t1052; double t5741 = t627*t3403; double t5747 = -t3354*t2167+2.0*t997*t586*t1001*t114+2.0*t5723*t1009-2.0*t587*t3365-2.0*t587*t3369-2.0*t587*t3376+t5733+t120*(t3145-t3151-t3382+t3384+t3386+t3388-t3390-t3392-t3394)*t246-2.0*t120*t5737*t1055+2.0*t120*t5741*t3405-t120*t2183*t3410; double t5756 = t587*t109; double t5763 = t141*t14; double t5764 = t140*t14; double t5765 = t5764*R2; double t5766 = 2.0*t5765; double t5767 = 2.0*t3140; double t5768 = t3433-t5763-t5766-t3438+t3439-t5767-t3442+t3443+t3445+t3447-t3450-t3452; double t5771 = t2210*t1052; double t5776 = t120*t627; double t5781 = -t997*t2189*t109*t114+t2190*t1002+t2190*t1009+t5723*t1068-t587*t3421-2.0*t5756*t3425-t5733+t1070*t119*t2180*t246-t3431*t2184+t120*t5768*t246-t120*t5771*t1055-t120*t5737*t1125+2.0*t5776*t3463-t120*t2183*t3469; double t5791 = t121*t14; double t5792 = t141*t5791; double t5793 = t1147*t618; double t5794 = 2.0*t5793; double t5795 = t117*t14; double t5796 = t123*t5795; double t5797 = t1156*t615; double t5798 = 2.0*t5797; double t5799 = t123*t14; double t5800 = t122*t14; double t5801 = t5800*R2; double t5802 = 2.0*t5801; double t5803 = 2.0*t3178; double t5804 = 2.0*t3226; double t5805 = 2.0*t3241; double t5806 = -t5792-t5794-t5796-t5798+t5799+t5802-t5803+t5804-t5805+t3499-t3509-t3512-t3514+t3517-t3520+t3523; double t5807 = t3525-t3528+t3532-t3535-t3536+t3537+t3538+t3539+t3541-t3543-t3545+t3547-t3549-t3555+t3557+t3560-t3561; double t5811 = t2278*t1052; double t5820 = -t3476+t3480+t3483+2.0*t5723*t1137-2.0*t587*t3486-4.0*t5756*t3490-t1141*t2181+t1141*t2184+t120*(t5806+t5807)*t246-t120*t5811*t1055-t120*t5737*t1327+2.0*t5776*t3572-t120*t2183*t3576; double t5837 = 6.0*t3120; double t5838 = 6.0*t3115; double t5839 = 2.0*t5763; double t5840 = 4.0*t5765; double t5841 = -t5837+t5838+t3603-t3604+t5839+t5840+t3607+t3608-t3609-t3610+t3612-t3613+t3614; double t5852 = -t3586+2.0*t2190*t1068-2.0*t587*t3590+t5733+t3593*t2194+2.0*t1070*t119*t2210*t246-2.0*t3431*t2213+t120*t5841*t246-2.0*t120*t5771*t1125+2.0*t120*t5741*t3621-t120*t2183*t3629; double t5866 = 2.0*t5792; double t5868 = 2.0*t5796; double t5870 = 2.0*t5799; double t5872 = t91*t14; double t5873 = t123*t5872; double t5874 = t2205*R2; double t5875 = t1156*t5874; double t5877 = t110*t14; double t5878 = t1156*t5877; double t5879 = 6.0*t3187; double t5881 = 3.0*t3198; double t5882 = 3.0*t3201; double t5883 = 6.0*t3220; double t5884 = 6.0*t3235; double t5885 = -t5881+t5882-t5883-t5884-t3654+t3660+t3661-t3662+t3663-t3664-t3665; double t5888 = -t3690-t3700+t3703+t3705+t3708-t3711-t3713+t3715-t3717+t3719-t3721; double t5902 = t3635+2.0*t2190*t1137-4.0*t5756*t3638-t1070*t1140*t627*t246-t1141*t2211+t1141*t2213+t1070*t119*t2278*t246+t120*(t5866+4.0*t5793+t5868+4.0*t5797-t5870-4.0*t5801-t5873-2.0*t5875-t5878+t5879+t5885+t3666+t3667-t3670+t3673-t3677+t3679+t3681-t3683+t3686+t3688+t5888)*t246-t120*t5811*t1125-t3431*t2281-t120*t5771*t1327+2.0*t5776*t3732-t120*t2183*t3737; double t5917 = t3763*t610; double t5919 = t3763*t613; double t5920 = t3768*t615; double t5922 = t3771*t618; double t5924 = t3774*t621; double t5925 = t3777*t615; double t5927 = t141*t5795; double t5930 = 12.0*t1156*t610; double t5933 = 3.0*t3776*t2259; double t5934 = t123*t5791; double t5937 = t141*t3808*t14; double t5938 = t1156*t618; double t5940 = t3776*t2266; double t5943 = t141*t3816*t14; double t5944 = t3776*t2271; double t5946 = t3776*t2274; double t5947 = t141*t5872; double t5949 = t1147*t615; double t5951 = t1147*t5874; double t5953 = t5933-4.0*t5934+t5937-8.0*t5938+2.0*t5940-t5943-2.0*t5944+t5946-2.0*t5947+8.0*t5949-4.0*t5951; double t5956 = 3.0*t3767*t2256; double t5957 = t3767*t2264; double t5958 = t3767*t2239; double t5960 = 6.0*t1147*t594; double t5962 = 6.0*t1147*t600; double t5963 = t3776*t2241; double t5965 = 2.0*t1147*t5877; double t5966 = t5956-t5957-t5958+t5960-t5962-t5963-t5965-t5838+t5837-t3603+t3604; double t5967 = t3613-t3614+t3609+t3610-t3608-t3607-t3612-t3781+t3783+t3787-t3789; double t5970 = t3791+t3794-t3797+t3799-t3832+t3836+t3837-t3838-t3839-t3840+t3842; double t5971 = -t3844+t3846+t3848-t3850-t3852+t3855-t3857-t3859+t3860-t3861+t3862; double t5973 = t3863-t3865+t3867+t3869-t3871-t3875+t3876+t3886-t3888-t3890-t3892; double t5987 = -t3586+t3750-8.0*t587*t3751+t5733+2.0*t3755*t628-2.0*t1141*t2279+2.0*t1141*t2281+t120*(-t5839-t5840+2.0*t5917-t5919+4.0*t5920-2.0*t5922+t5924+2.0*t5925+4.0*t5927-t5930+t5953+t5966+t5967+t5970+t5971+t5973+t3910)*t246-2.0*t120*t5811*t1327+2.0*t120*t5741*t3919-t120*t2183*t3925; double newd2TdR125 = t3293*t2186+t996*(t5682-t5683-t5684+t5687-t5690)+t3313*t2215+t1062*(-t5694+t5697+t5700-t5702)+t3327*t2283/2.0+t1131*(-t5708-t5709+t5712-t5714)/2.0+t3352*(t5682-t5683-t5684+t5687-t5690+t996*t5747+t1062*t5781+t1131*t5820/2.0)+t1062*(-t5694+t5697+t5700-t5702+t996*t5781+t1062*t5852+t1131*t5902/2.0)+t1131*(-t5708-t5709+t5712-t5714+t996*t5820+t1062*t5902+t1131*t5987/2.0)/2.0; double t5993 = t2407*t115; double t5994 = 2.0*t5993; double t5995 = 2.0*t2633; double t5996 = 2.0*t2630; double t5997 = 4.0*t2631; double t5998 = t5995-t5996-t2649+t5997+t2645; double t6000 = t120*t5998*t246; double t6004 = t997*t2287*t109*t114; double t6005 = t2288*t1002; double t6006 = t2288*t1009; double t6009 = t120*(t2645-t2649-t2647-t2650+t2651+t2652-t2672+t2671)*t246; double t6010 = t2297*t1052; double t6012 = t120*t6010*t1055; double t6016 = t2288*t1068; double t6019 = t1070*t119*t2297*t246; double t6020 = 4.0*t2648; double t6021 = 4.0*t2646; double t6022 = 2.0*t2668; double t6023 = t2673-t2674+t2675+t2669+t2670-t2665-t2666+t2676+t2677+t6020-t6021+t2667+t6022; double t6025 = t120*t6023*t246; double t6027 = t120*t6010*t1125; double t6033 = 2.0*t2288*t1137; double t6034 = t1141*t2298; double t6035 = 2.0*t2691; double t6036 = 2.0*t2697; double t6037 = 4.0*t2698; double t6038 = 2.0*t2708; double t6039 = 4.0*t2709; double t6040 = t6035-t2693-t2695+t2696+t6036-t6037+t2700+t2701+t2702+t2704+t2706-t2707-t6038+t6039+t2712+t2714+t2716; double t6041 = 4.0*t2719; double t6042 = 2.0*t2726; double t6043 = 2.0*t2736; double t6044 = -t2718+t6041-t2721+t2722-t2723-t2724+t2725-t6042-t2729+t2730+t2733+t2734+t2735+t6043+t2738-t2739-t2741; double t6047 = t120*(t6040+t6044)*t246; double t6049 = t120*t6010*t1327; double t6058 = t997*t649; double t6068 = 2.0*t650*t1006; double t6072 = t2335*t1052; double t6076 = t768*t3403; double t6082 = -t3354*t2301+2.0*t997*t649*t1001*t114+2.0*t6058*t1009-2.0*t650*t3365-2.0*t650*t3369-2.0*t650*t3376+t6068+t120*(t2671-t2669-t2672-t2670+t2665+t2666-t5997-t5995+t5996)*t246-2.0*t120*t6072*t1055+2.0*t120*t6076*t3405-t120*t2338*t3410; double t6091 = t650*t109; double t6098 = 4.0*t2628; double t6099 = 4.0*t2629; double t6100 = t141*t630; double t6101 = t141*t638; double t6102 = t4616*t251; double t6103 = 2.0*t6102; double t6104 = t140*t642; double t6105 = t432*br; double t6106 = 2.0*t2676; double t6107 = t3435*br; double t6108 = t4050*t9; double t6109 = t4050*t1; double t6110 = 2.0*t2677; double t6111 = t6098-t6099+t6100+t6101+t6103+t2673+t2675-t2674-t6104+t6022+t6105+t6106-t6107-t6108+t6109+t6110; double t6114 = t2400*t1052; double t6119 = t120*t768; double t6124 = -t997*t2344*t109*t114+t2345*t1002+t2345*t1009+t6058*t1068-t650*t3421-2.0*t6091*t3425-t6068+t1070*t119*t2335*t246-t3431*t2339+t120*t6111*t246-t120*t6114*t1055-t120*t6072*t1125+2.0*t6119*t3463-t120*t2338*t3469; double t6126 = t997*br; double t6128 = 2.0*t6126*t1134; double t6130 = 2.0*t2407*t3478; double t6131 = t2407*E6; double t6133 = 2.0*t6131*t1009; double t6142 = 2.0*t2696; double t6143 = 2.0*t2700; double t6144 = 2.0*t2701; double t6145 = 2.0*t2702; double t6146 = 2.0*t2707; double t6147 = 2.0*t2718; double t6148 = t6035+t6142+t6036+t6143+t6144+t6145-t6146-t6038+t2712-t6147-t2721; double t6149 = t135*t718; double t6150 = 4.0*t6149; double t6151 = t144*t312; double t6152 = 4.0*t6151; double t6153 = t123*t630; double t6154 = t123*t638; double t6155 = t4700*t251; double t6156 = 2.0*t6155; double t6157 = t1147*t681; double t6158 = t2722-t2729+t2733+t2738-t2741-t6150-t6152-t6153-t6154-t6156-t6157; double t6160 = t1156*t678; double t6161 = t1156*t742; double t6162 = t121*br; double t6163 = t432*t6162; double t6164 = t1147*t746; double t6165 = t1147*t748; double t6166 = t1147*t750; double t6167 = t117*br; double t6168 = t445*t6167; double t6169 = t1156*t735; double t6170 = t1156*t738; double t6171 = t445*br; double t6172 = t3551*br; double t6173 = -t6160+t6161+t6163-t6164-t6165+t6166+t6168-t6169-t6170-t6171+t6172; double t6174 = t4155*t9; double t6175 = t4155*t1; double t6176 = t122*t642; double t6177 = t1143*t656; double t6178 = t1143*t658; double t6179 = t1148*t631; double t6180 = 2.0*t6179; double t6181 = t1154*t633; double t6182 = t1154*t639; double t6183 = t4122*t631; double t6184 = 2.0*t6183; double t6185 = t1148*t719; double t6186 = 4.0*t6185; double t6187 = t239*br; double t6188 = t1156*t6187; double t6189 = 2.0*t6188; double t6190 = t1156*t702; double t6191 = 2.0*t6190; double t6192 = t6174-t6175+t6176+t6177+t6178+t6180+t6181+t6182+t6184+t6186-t6189+t6191; double t6197 = t2616*t1052; double t6206 = -t6128+t6130+t6133+2.0*t6058*t1137-2.0*t650*t3486-4.0*t6091*t3490-t1141*t2336+t1141*t2339+t120*(t6148+t6158+t6173+t6192)*t246-t120*t6197*t1055-t120*t6072*t1327+2.0*t6119*t3572-t120*t2338*t3576; double t6223 = 6.0*t2647; double t6224 = 6.0*t2650; double t6225 = 6.0*t2648; double t6226 = 6.0*t2651; double t6227 = 6.0*t2652; double t6228 = 2.0*t2667; double t6229 = 6.0*t2646; double t6230 = 2.0*t6100; double t6231 = 2.0*t6101; double t6232 = 4.0*t6102; double t6233 = 6.0*t2629; double t6234 = 2.0*t6105; double t6235 = 2.0*t6107; double t6236 = 2.0*t6108; double t6237 = 2.0*t6109; double t6238 = 6.0*t2628; double t6239 = 2.0*t6104; double t6240 = t6223+t6224+t6225-t6226-t6227+t6228-t6229-t6230-t6231-t6232+t6233-t6234+t6235+t6236-t6237-t6238+t6239; double t6251 = -t5994+2.0*t2345*t1068-2.0*t650*t3590+t6068+t3593*t2349+2.0*t1070*t119*t2400*t246-2.0*t3431*t2403+t120*t6240*t246-2.0*t120*t6114*t1125+2.0*t120*t6076*t3621-t120*t2338*t3629; double t6254 = 2.0*t6131*t1068; double t6267 = E4*t642; double t6268 = t1156*t6267; double t6269 = t3055*br; double t6270 = t123*t6269; double t6271 = t91*br; double t6272 = t445*t6271; double t6273 = t1729*omega; double t6274 = t1156*t6273; double t6275 = t1089*br; double t6276 = t1156*t6275; double t6277 = t672*t9; double t6278 = t1156*t6277; double t6279 = t672*t1; double t6280 = t1156*t6279; double t6281 = t2390*R2; double t6282 = t1156*t6281; double t6283 = t1154*t2383; double t6284 = t1154*t2385; double t6286 = 2.0*t1157*t631; double t6287 = 6.0*t2692; double t6288 = 6.0*t2694; double t6289 = 6.0*t2698; double t6290 = -t6268+t6270+t6272+t6274-t6276-t6278+t6280+t6282+t6283+t6284+t6286-t6287-t6288-t6289; double t6291 = 6.0*t2703; double t6292 = 6.0*t2705; double t6293 = 6.0*t2709; double t6294 = 6.0*t2713; double t6295 = 6.0*t2715; double t6296 = 6.0*t2719; double t6297 = 3.0*t2723; double t6298 = 3.0*t2724; double t6299 = 2.0*t2725; double t6300 = 3.0*t2726; double t6301 = 2.0*t2730; double t6302 = 3.0*t2734; double t6303 = 3.0*t2735; double t6304 = 3.0*t2736; double t6305 = 2.0*t2739; double t6306 = t6291+t6292+t6293+t6294+t6295+t6296-t6297-t6298+t6299-t6300+t6301+t6302+t6303+t6304-t6305; double t6308 = 6.0*t6149; double t6309 = 6.0*t6151; double t6310 = 2.0*t6153; double t6311 = 2.0*t6154; double t6312 = 4.0*t6155; double t6313 = 2.0*t6157; double t6314 = 2.0*t6160; double t6315 = 2.0*t6161; double t6316 = 2.0*t6163; double t6317 = 2.0*t6164; double t6318 = 2.0*t6165; double t6319 = 2.0*t6166; double t6320 = 2.0*t6168; double t6321 = 2.0*t6169; double t6322 = t6308+t6309+t6310+t6311+t6312+t6313+t6314-t6315-t6316+t6317+t6318-t6319-t6320+t6321; double t6323 = 2.0*t6170; double t6324 = 2.0*t6171; double t6325 = 2.0*t6172; double t6326 = 2.0*t6174; double t6327 = 2.0*t6175; double t6328 = 2.0*t6176; double t6329 = 2.0*t6177; double t6330 = 2.0*t6178; double t6331 = 4.0*t6179; double t6332 = 2.0*t6181; double t6333 = 2.0*t6182; double t6334 = 4.0*t6183; double t6335 = 6.0*t6185; double t6336 = 3.0*t6188; double t6337 = 3.0*t6190; double t6338 = t6323+t6324-t6325-t6326+t6327-t6328-t6329-t6330-t6331-t6332-t6333-t6334-t6335+t6336-t6337; double t6352 = t6254+2.0*t2345*t1137-4.0*t6091*t3638-t1070*t1140*t768*t246-t1141*t2401+t1141*t2403+t1070*t119*t2616*t246+t120*(t6290+t6306+t6322+t6338)*t246-t120*t6197*t1125-t3431*t2619-t120*t6114*t1327+2.0*t6119*t3732-t120*t2338*t3737; double t6360 = 8.0*t2407*t3748; double t6370 = 4.0*t1147*t678; double t6372 = 2.0*t1147*t6267; double t6374 = 4.0*t1156*t681; double t6375 = t3776*t2469; double t6376 = t3776*t2471; double t6377 = t6370-t6372-t6374+t6375-t6376-t6228+t6238-t6233+t6229-t6223-t6225-t6224+t6226+t6227-t6239; double t6378 = t3776*t2607; double t6379 = t3763*t2526; double t6381 = 2.0*t3763*t2520; double t6383 = 2.0*t3763*t2523; double t6384 = t3774*t2537; double t6385 = t3774*t2539; double t6387 = 2.0*t3777*t2531; double t6388 = t3763*t2529; double t6389 = t6230+t6231+t6232+t6234-t6235-t6236+t6237+t6378+t6379-t6381-t6383-t6384-t6385-t6387+t6388; double t6392 = 4.0*t3768*t2531; double t6394 = 2.0*t3771*t2534; double t6395 = t3776*t2609; double t6397 = 4.0*t1147*t738; double t6399 = 6.0*t1147*t699; double t6401 = 6.0*t1147*t702; double t6403 = 6.0*t1147*t705; double t6405 = 4.0*t1147*t708; double t6407 = 6.0*t1147*t711; double t6409 = 2.0*t432*t6271; double t6411 = 4.0*t432*t6167; double t6413 = 2.0*t141*t6269; double t6415 = 4.0*t1147*t735; double t6417 = 6.0*t1147*t731; double t6419 = 6.0*t1147*t733; double t6420 = -t6392+t6394-t6395+t6397-t6399-t6401-t6403+t6405-t6407+t6409-t6411+t6413+t6415+t6417+t6419; double t6422 = 6.0*t1147*t6187; double t6425 = 6.0*t1147*t641*R1; double t6427 = 4.0*t1156*t729; double t6428 = t3776*t2577; double t6430 = 4.0*t445*t6162; double t6431 = t3808*br; double t6432 = t432*t6431; double t6434 = 4.0*t1156*t746; double t6435 = t3776*t2587; double t6437 = 4.0*t1156*t748; double t6438 = t3776*t2589; double t6440 = 4.0*t1156*t750; double t6441 = t3776*t2591; double t6442 = t3816*br; double t6443 = t432*t6442; double t6445 = t141*t4925*br; double t6446 = t3776*t2597; double t6447 = t3776*t2599; double t6448 = t6422+t6425-t6427+t6428+t6430-t6432-t6434+t6435-t6437+t6438+t6440-t6441+t6443+t6445+t6446-t6447; double t6451 = t3776*t2601; double t6452 = t3776*t2603; double t6453 = t3776*t2605; double t6455 = 4.0*t1147*t742; double t6457 = 2.0*t1147*t6273; double t6459 = 2.0*t1147*t6275; double t6461 = 2.0*t1147*t6277; double t6463 = 2.0*t1147*t6279; double t6465 = 2.0*t1147*t6281; double t6466 = t3767*t2569; double t6467 = t3767*t2571; double t6468 = t3767*t2573; double t6469 = t3767*t2575; double t6471 = 2.0*t3767*t2581; double t6472 = t3767*t2585; double t6473 = -t6451+t6452+t6453-t6455+t6457-t6459-t6461+t6463+t6465+t6466+t6467+t6468+t6469+t6471-t6472; double t6474 = t3776*t2611; double t6476 = 12.0*t3792*t633; double t6478 = 3.0*t3795*t633; double t6480 = 12.0*t3792*t639; double t6482 = 3.0*t3795*t639; double t6484 = 12.0*t3792*t719; double t6486 = 3.0*t3795*t719; double t6488 = 12.0*t3792*t646; double t6490 = 3.0*t3795*t646; double t6492 = 4.0*t1154*t656; double t6493 = t3774*t731; double t6495 = 4.0*t1154*t658; double t6496 = t3774*t733; double t6498 = 3.0*t3768*t699; double t6500 = 3.0*t3768*t702; double t6502 = 3.0*t3768*t705; double t6503 = t6474+t6476-t6478+t6480-t6482+t6484-t6486+t6488-t6490+t6492-t6493+t6495-t6496-t6498-t6500-t6502; double t6506 = 2.0*t3768*t708; double t6508 = 3.0*t3768*t711; double t6509 = t4970*t724; double t6511 = 2.0*t4970*t726; double t6512 = t3763*t729; double t6514 = 2.0*t3768*t735; double t6516 = 2.0*t3768*t738; double t6518 = 2.0*t3768*t742; double t6519 = t4467*t656; double t6520 = t3771*t746; double t6521 = t3771*t748; double t6522 = t3771*t750; double t6523 = t4467*t658; double t6525 = 8.0*t3792*t631; double t6527 = 2.0*t3795*t631; double t6528 = t6506-t6508+t6509-t6511+t6512+t6514+t6516-t6518+t6519-t6520-t6521+t6522+t6523+t6525-t6527; double t6529 = t3774*t711; double t6530 = t3774*t699; double t6531 = t3774*t708; double t6532 = t5019*t719; double t6534 = 2.0*t4410*t631; double t6535 = t4416*t633; double t6536 = t3777*t735; double t6537 = t3777*t738; double t6538 = t3777*t742; double t6539 = t4416*t639; double t6541 = 4.0*t1143*t633; double t6543 = 4.0*t1143*t639; double t6545 = 2.0*t1143*t2383; double t6547 = 2.0*t1143*t2385; double t6549 = 8.0*t4440*t631; double t6551 = 4.0*t1151*t631; double t6552 = t6529+t6530-t6531-t6532+t6534-t6535+t6536+t6537-t6538-t6539-t6541-t6543+t6545+t6547-t6549+t6551; double t6566 = -t5994+t6360-8.0*t650*t3751+t6068+2.0*t3755*t769-2.0*t1141*t2617+2.0*t1141*t2619+t120*(t6377+t6389+t6420+t6448+t6473+t6503+t6528+t6552)*t246-2.0*t120*t6197*t1327+2.0*t120*t6076*t3919-t120*t2338*t3925; double newd2TdR126 = -t5994+t6000+t3293*t2341+t996*(-t6004+t6005+t6006+t6009-t6012)+t3313*t2405+t1062*(-t5994+t6016+t6019+t6025-t6027)+t3327*t2621/2.0+t1131*(t6033-t6034+t6047-t6049)/2.0+t3352*(-t6004+t6005+t6006+t6009-t6012+t996*t6082+t1062*t6124+t1131*t6206/2.0)+t1062*(-t5994+t6016+t6019+t6025-t6027+t996*t6124+t1062*t6251+t1131*t6352/2.0)+t1131*(t6033-t6034+t6047-t6049+t996*t6206+t1062*t6352+t1131*t6566/2.0)/2.0; double t6581 = t6126*t529; double t6584 = t997*t772*t109*t114; double t6585 = t2407*t1997; double t6586 = t773*t1002; double t6587 = t2407*R1; double t6588 = t6587*t1009; double t6589 = t773*t1009; double t6591 = t120*t2653*t246; double t6592 = t1015*br; double t6593 = t131*br; double t6594 = t6592-t6593; double t6597 = t531*t119*t6594*t246; double t6598 = t120*t2658; double t6599 = t2634*t1052; double t6601 = t2013*t6599*t1055; double t6605 = t6587*t1068; double t6606 = t773*t1068; double t6607 = t1070*t805; double t6608 = t2021*t2636; double t6610 = t120*t2678*t246; double t6611 = t144*br; double t6617 = t531*t119*(t6611-2.0*t6592+2.0*t6593)*t246; double t6618 = t120*t2682; double t6620 = t2013*t6599*t1125; double t6625 = t6587*t1137; double t6626 = 2.0*t6625; double t6628 = 2.0*t773*t1137; double t6629 = t1141*t2626; double t6632 = t531*t1140*t2634*t246; double t6634 = t120*t2743*t246; double t6635 = t135*br; double t6636 = t1156*t283; double t6637 = t1176*br; double t6639 = t1170*br; double t6641 = t1156*t641; double t6642 = t1156*t719; double t6643 = t1147*t724; double t6644 = t1147*t726; double t6649 = t531*t119*(-t6635-t6636+2.0*t6637+2.0*t6639+t6641+t6642+t6643-2.0*t6644)*t246; double t6650 = t120*t2747; double t6652 = t2013*t6599*t1327; double t6669 = 2.0*t773*t5190; double t6670 = 2.0*t6594; double t6674 = t2653*t1052; double t6678 = t803*t3403; double t6684 = t3354*t772*t529-2.0*t2640*t1997-2.0*t2640*t5179+2.0*t773*t5183+2.0*t2643*t3369+2.0*t2643*t3376-t6669-t531*t119*t6670*t246+2.0*t2013*t6674*t1055-2.0*t2013*t6678*t3405+t2013*t2657*t3410; double t6686 = 2.0*t6581; double t6687 = 2.0*t6585; double t6688 = 2.0*t6588; double t6696 = 2.0*t6611; double t6697 = t141*br; double t6698 = t4058*bi; double t6699 = t4050*R2; double t6704 = t2678*t1052; double t6714 = t6686-t6687-t6688-t2640*t5213+t2643*t3421+2.0*t2643*t5217+t6669-t2021*t2655+t2021*t804*t5221-t531*t119*(t6696+t6697+t6698+t6699)*t246+t2013*t6704*t1055+t2013*t6674*t1125-2.0*t2013*t6678*t5237+t2013*t2657*t3469; double t6726 = 2.0*t6642; double t6727 = t4110*bi; double t6728 = t123*br; double t6729 = 2.0*t6643; double t6730 = t4155*R2; double t6731 = t123*t6167; double t6732 = t1147*t656; double t6733 = t141*t6162; double t6734 = t1147*t658; double t6735 = t1156*t633; double t6736 = t1156*t639; double t6737 = 2.0*t6635; double t6738 = t6726-t6727-t6728+t6729-t6730+t6731+t6732+t6733+t6734+t6735+t6736-t6737; double t6742 = t2743*t1052; double t6752 = -2.0*t2640*t5246+2.0*t2643*t3486+4.0*t2643*t5252+t531*t1140*t2653*t246-t5258*t2658-t531*t119*t6738*t246+t2013*t6742*t1055+t2013*t6674*t1327-2.0*t2013*t6678*t5281+t2013*t2657*t3576; double t6755 = t6581-t6585-t6588+t6584-t6586-t6589-t6591+t6598-t6597+t6601+t996*t6684+t1062*t6714+t1131*t6752/2.0; double t6767 = 2.0*t6698; double t6768 = 2.0*t6699; double t6769 = 2.0*t6697; double t6770 = 6.0*t6593; double t6771 = 6.0*t6592; double t6784 = -4.0*t6605+2.0*t2643*t3590-t6669-t5296*t805-2.0*t2021*t2680+2.0*t2021*t804*t5300-t531*t119*(-t6767-t6768-t6769+t6770-t6771)*t246+2.0*t2013*t6704*t1125-2.0*t2013*t6678*t3621+t2013*t2657*t3629; double t6786 = 4.0*t6625; double t6813 = -2.0*t6735-2.0*t6736+t1156*t2390+2.0*t6727+2.0*t6730-2.0*t6731+2.0*t6728-6.0*t6644+6.0*t6639+3.0*t6641+t123*t6271-2.0*t6732-2.0*t6734-2.0*t6733+t1156*t2383+t1156*t2385+6.0*t6637-3.0*t6636; double t6828 = -t6786+4.0*t2643*t5325+t2021*t2689+t531*t1140*t2678*t246-t5258*t2682-t2021*t2745-t531*t119*t6813*t246+t2013*t6742*t1125+t2021*t804*t5358+t2013*t6704*t1327-2.0*t2013*t6678*t5363+t2013*t2657*t3737; double t6831 = -t6605+t5994-t6606-t6607-t6610+t6618-t6608-t6617+t6620+t996*t6714+t1062*t6784+t1131*t6828/2.0; double t6870 = t6771-t6770+t6769+t6767+t6768+t3776*t711+t3776*t699-t3776*t708-4.0*t1147*t633-4.0*t1147*t639+2.0*t1147*t2383+2.0*t141*t6271+t141*t6442-4.0*t141*t6167+12.0*t1156*t726-3.0*t3776*t2731+4.0*t1156*t656-t3776*t731+4.0*t1156*t658; double t6900 = -t3776*t733+2.0*t1147*t2385+4.0*t123*t6162-t141*t6431-3.0*t3767*t2727+t3767*t729-6.0*t1147*t283+2.0*t1147*t2390+t3767*t1585+t3776*t687+6.0*t1147*t641-2.0*t3768*t633-2.0*t3768*t639+t3771*t656+t3763*t724-2.0*t3763*t726+t3771*t658-t3774*t719-t3777*t633-t3777*t639; double t6913 = 8.0*t2643*t3751-t6669-2.0*t531*t3754*t803*t246+2.0*t531*t1140*t2743*t246-2.0*t5258*t2747-t531*t119*(t6870+t6900)*t246+2.0*t2013*t6742*t1327-2.0*t2013*t6678*t3919+t2013*t2657*t3925; double t6916 = -t6626-t6628+t6629-t6634+t6650+t6632-t6649+t6652+t996*t6752+t1062*t6828+t1131*t6913/2.0; double newd2TdR127 = t5994-2.0*t120*t2634*t246+2.0*t807*t1991*t944-2.0*t808*t5095+t3293*t2660+t996*(t6581+t6584-t6585-t6586-t6588-t6589-t6591-t6597+t6598+t6601)+t3313*t2684+t1062*(t5994-t6605-t6606-t6607-t6608-t6610-t6617+t6618+t6620)+t3327*t2749/2.0+t1131*(-t6626-t6628+t6629+t6632-t6634-t6649+t6650+t6652)/2.0+t3352*t6755+t1062*t6831+t1131*t6916/2.0; double t6922 = t997*t2752*t109*t114; double t6923 = t2753*t1002; double t6924 = t2753*t1009; double t6927 = t120*(-t2001+t2008-t2006-t2007+t2004+t2005+t2027-t2026)*t246; double t6928 = t2757*t1052; double t6930 = t120*t6928*t1055; double t6934 = t2753*t1068; double t6937 = t1070*t119*t2757*t246; double t6938 = -t2024+t2025+t2023+t2031+t2032-t2033-t2034+t2029+t2030-t4531+t4532+t4533+t2035; double t6940 = t120*t6938*t246; double t6942 = t120*t6928*t1125; double t6948 = 2.0*t2753*t1137; double t6949 = t1141*t2758; double t6950 = -t4546+t4547+t4548+t2053+t2054-t2056-t2058+t2059+t2060+t2062-t2063-t2065+t4549-t4550+t4551+t2072+t2074; double t6951 = t2077-t2078+t2079+t2081+t2083-t2084-t2085+t2086-t4553+t4554-t2091+t2092+t2095+t2096-t2097-t2098+t2099; double t6954 = t120*(t6950+t6951)*t246; double t6956 = t120*t6928*t1327; double t6965 = t997*t810; double t6975 = 2.0*t811*t1006; double t6979 = t2767*t1052; double t6983 = t819*t3403; double t6989 = -t3354*t2761+2.0*t997*t810*t1001*t114+2.0*t6965*t1009-2.0*t811*t3365-2.0*t811*t3369-2.0*t811*t3376+t6975+t120*(-t2026+t2027+t2033+t2034-t2031-t2032-t4508-t4506+t4507)*t246-2.0*t120*t6979*t1055+2.0*t120*t6983*t3405-t120*t2770*t3410; double t6998 = t811*t109; double t7005 = -t4609+t4610+t4611+t4612+t4614+t2023+t2025-t2024-t4615+t4617+t4618-t4619+t4620+t4621+t4533-t4622; double t7008 = t2787*t1052; double t7013 = t120*t819; double t7018 = -t997*t2776*t109*t114+t2777*t1002+t2777*t1009+t6965*t1068-t811*t3421-2.0*t6998*t3425-t6975+t1070*t119*t2767*t246-t3431*t2771+t120*t7005*t246-t120*t7008*t1055-t120*t6979*t1125+2.0*t7013*t3463-t120*t2770*t3469; double t7028 = t4653+t4655+t4657+t4658+t4659+t4660+t4661+t4663+t4665-t4668+t4670; double t7029 = t4672-t4673+t4675+t4676-t4677-t4678-t4679-t4681-t4682-t4683-t4685; double t7031 = -t4688-t4689-t4691+t4547+t4548+t4692+t4693+t4694+t4695+t2062-t2065; double t7032 = -t4550+t2072-t2078+t2079-t4697-t4698-t2091+t2095-t4699-t4701+t4702+t4703; double t7037 = t2811*t1052; double t7046 = -t4639+t4641+t4644+2.0*t6965*t1137-2.0*t811*t3486-4.0*t6998*t3490-t1141*t2768+t1141*t2771+t120*(t7028+t7029+t7031+t7032)*t246-t120*t7037*t1055-t120*t6979*t1327+2.0*t7013*t3572-t120*t2770*t3576; double t7063 = -t4735-t4736-t4737+t4738+t4739+t4740+t4741-t4742-t4743-t4744+t4745-t4746+t4747-t4748+t4749-t4750+t4751; double t7074 = -t4505+2.0*t2777*t1068-2.0*t811*t3590+t6975+t3593*t2781+2.0*t1070*t119*t2787*t246-2.0*t3431*t2790+t120*t7063*t246-2.0*t120*t7008*t1125+2.0*t120*t6983*t3621-t120*t2770*t3629; double t7088 = t4779+t4780+t4782-t4783+t4785+t4787-t4789+t4791+t4793+t4795-t4797-t4798-t4799-t4800; double t7089 = -t4802-t4803-t4804-t4805-t4806+t4807-t4808-t4809+t4810-t4811-t4812+t4813+t4814+t4815+t4816; double t7091 = t4819+t4820+t4821+t4822+t4823+t4824-t4825-t4826-t4827-t4828+t4829+t4830+t4831+t4832; double t7092 = t4834+t4835+t4836-t4837+t4838+t4839+t4840-t4841-t4842+t4843+t4844+t4845-t4846-t4847-t4849; double t7106 = t4766+2.0*t2777*t1137-4.0*t6998*t3638-t1070*t1140*t819*t246-t1141*t2788+t1141*t2790+t1070*t119*t2811*t246+t120*(t7088+t7089+t7091+t7092)*t246-t120*t7037*t1125-t3431*t2814-t120*t7008*t1327+2.0*t7013*t3732-t120*t2770*t3737; double t7121 = -t4881+t4882+t4884-t4886+t4888-t4890-t4892-t4894-t4896+t4898+t4900+t4902+t4904+t4907-t4909; double t7123 = t4936+t4937+t4939-t4940+t4941-t4942-t4943+t4944-t4946+t4948+t4950+t4952+t4954-t4956+t4958; double t7124 = -t4961+t4963-t4965-t4967+t4968-t4969+t4971-t4973+t4974-t4976-t4978-t4980-t4982+t4984+t4986+t4988; double t7127 = -t4992+t4994-t4995+t4997-t4999+t5001-t5003+t5005-t5007+t5009-t5011+t5013-t5014-t5015+t5016; double t7128 = -t5018-t5020+t5021+t5022-t5023+t5025-t5027+t5028-t5030-t5032+t5034+t5036-t5038-t5040+t5042+t5044; double t7130 = t5047+t5048-t5049+t5050-t5051-t4738-t4745+t4750-t4739+t4735+t4736+t4737-t4740-t4741-t4751; double t7131 = t4746-t4747+t4748-t4749+t5054-t5055-t5056-t5058-t5060-t5062+t5063+t5064-t5066+t4742+t4743+t4744; double t7145 = -t4505+t4872-8.0*t811*t3751+t6975+2.0*t3755*t820-2.0*t1141*t2812+2.0*t1141*t2814+t120*(t7121+t4934+t7123+t7124+t7127+t7128+t7130+t7131)*t246-2.0*t120*t7037*t1327+2.0*t120*t6983*t3919-t120*t2770*t3925; double newd2TdR128 = -t4505+t4511+t3293*t2773+t996*(-t6922+t6923+t6924+t6927-t6930)+t3313*t2792+t1062*(-t4505+t6934+t6937+t6940-t6942)+t3327*t2816/2.0+t1131*(t6948-t6949+t6954-t6956)/2.0+t3352*(-t6922+t6923+t6924+t6927-t6930+t996*t6989+t1062*t7018+t1131*t7046/2.0)+t1062*(-t4505+t6934+t6937+t6940-t6942+t996*t7018+t1062*t7074+t1131*t7106/2.0)+t1131*(t6948-t6949+t6954-t6956+t996*t7046+t1062*t7106+t1131*t7145/2.0)/2.0; double t7154 = t997*t2819*t109*t114; double t7155 = t2820*t1002; double t7156 = t2820*t1009; double t7159 = t120*(t2645-t2649+t2647-t2650-t2651+t2652-t2672+t2671)*t246; double t7160 = t2824*t1052; double t7162 = t120*t7160*t1055; double t7166 = t2820*t1068; double t7169 = t1070*t119*t2824*t246; double t7170 = t2673-t2674+t2675-t2669+t2670+t2665-t2666-t2676+t2677+t6020-t6021+t2667+t6022; double t7172 = t120*t7170*t246; double t7174 = t120*t7160*t1125; double t7180 = 2.0*t2820*t1137; double t7181 = t1141*t2825; double t7182 = t6035+t2693-t2695-t2696+t6036-t6037+t2700-t2701+t2702-t2704+t2706+t2707-t6038+t6039+t2712-t2714+t2716; double t7183 = -t2718+t6041-t2721+t2722+t2723-t2724+t2725-t6042-t2729+t2730+t2733-t2734+t2735+t6043+t2738-t2739-t2741; double t7186 = t120*(t7182+t7183)*t246; double t7188 = t120*t7160*t1327; double t7197 = t997*t822; double t7207 = 2.0*t823*t1006; double t7211 = t2834*t1052; double t7215 = t831*t3403; double t7221 = t3354*t2828-2.0*t997*t822*t1001*t114-2.0*t7197*t1009+2.0*t823*t3365+2.0*t823*t3369+2.0*t823*t3376-t7207-t120*(t2671+t2669-t2672-t2670-t2665+t2666-t5997-t5995+t5996)*t246+2.0*t120*t7211*t1055-2.0*t120*t7215*t3405+t120*t2837*t3410; double t7230 = t823*t109; double t7237 = t6098-t6099-t6100+t6101-t6103+t2673+t2675-t2674-t6104+t6022+t6105-t6106-t6107-t6108+t6109+t6110; double t7240 = t2854*t1052; double t7245 = t120*t831; double t7250 = t997*t2843*t109*t114-t2844*t1002-t2844*t1009-t7197*t1068+t823*t3421+2.0*t7230*t3425+t7207-t1070*t119*t2834*t246+t3431*t2838-t120*t7237*t246+t120*t7240*t1055+t120*t7211*t1125-2.0*t7245*t3463+t120*t2837*t3469; double t7260 = t6035-t6142+t6036+t6143-t6144+t6145+t6146-t6038+t2712-t6147-t2721; double t7261 = t2722-t2729+t2733+t2738-t2741-t6150-t6152+t6153-t6154+t6156-t6157; double t7263 = t6174-t6175+t6176-t6177+t6178-t6180-t6181+t6182-t6184+t6186-t6189+t6191; double t7268 = t2878*t1052; double t7277 = t6128-t6130-t6133-2.0*t7197*t1137+2.0*t823*t3486+4.0*t7230*t3490+t1141*t2835-t1141*t2838-t120*(t7260+t7261+t6173+t7263)*t246+t120*t7268*t1055+t120*t7211*t1327-2.0*t7245*t3572+t120*t2837*t3576; double t7294 = -t6223+t6224+t6225+t6226-t6227+t6228-t6229+t6230-t6231+t6232+t6233-t6234+t6235+t6236-t6237-t6238+t6239; double t7305 = t5994-2.0*t2844*t1068+2.0*t823*t3590-t7207-t3593*t2848-2.0*t1070*t119*t2854*t246+2.0*t3431*t2857-t120*t7294*t246+2.0*t120*t7240*t1125-2.0*t120*t7215*t3621+t120*t2837*t3629; double t7319 = -t6268+t6270+t6272-t6274-t6276-t6278+t6280+t6282-t6283+t6284-t6286+t6287-t6288-t6289; double t7320 = -t6291+t6292+t6293-t6294+t6295+t6296+t6297-t6298+t6299-t6300+t6301-t6302+t6303+t6304-t6305; double t7322 = t6308+t6309-t6310+t6311-t6312+t6313+t6314-t6315-t6316+t6317+t6318-t6319-t6320+t6321; double t7323 = t6323+t6324-t6325-t6326+t6327-t6328+t6329-t6330+t6331+t6332-t6333+t6334-t6335+t6336-t6337; double t7337 = -t6254-2.0*t2844*t1137+4.0*t7230*t3638+t1070*t1140*t831*t246+t1141*t2855-t1141*t2857-t1070*t119*t2878*t246-t120*(t7319+t7320+t7322+t7323)*t246+t120*t7268*t1125+t3431*t2881+t120*t7240*t1327-2.0*t7245*t3732+t120*t2837*t3737; double t7352 = t6370-t6372-t6374+t6375-t6376-t6228+t6238-t6233+t6229+t6223-t6225-t6224-t6226+t6227-t6239; double t7353 = -t6230+t6231-t6232+t6234-t6235-t6236+t6237+t6378-t6379+t6381-t6383+t6384-t6385+t6387+t6388; double t7355 = t6392-t6394-t6395+t6397-t6399-t6401-t6403+t6405+t6407+t6409-t6411+t6413+t6415-t6417+t6419; double t7356 = t6422+t6425-t6427+t6428+t6430-t6432-t6434+t6435-t6437+t6438+t6440-t6441+t6443+t6445-t6446-t6447; double t7359 = -t6451+t6452+t6453-t6455-t6457-t6459-t6461+t6463+t6465-t6466+t6467+t6468+t6469+t6471-t6472; double t7360 = t6474-t6476+t6478+t6480-t6482+t6484-t6486+t6488-t6490-t6492+t6493+t6495-t6496-t6498-t6500-t6502; double t7362 = t6506+t6508+t6509-t6511+t6512+t6514+t6516-t6518-t6519-t6520-t6521+t6522+t6523-t6525+t6527; double t7363 = -t6529+t6530-t6531-t6532-t6534+t6535+t6536+t6537-t6538-t6539+t6541-t6543-t6545+t6547+t6549-t6551; double t7377 = t5994-t6360+8.0*t823*t3751-t7207-2.0*t3755*t832+2.0*t1141*t2879-2.0*t1141*t2881-t120*(t7352+t7353+t7355+t7356+t7359+t7360+t7362+t7363)*t246+2.0*t120*t7268*t1327-2.0*t120*t7215*t3919+t120*t2837*t3925; double newd2TdR129 = t5994-t6000+t3293*t2840+t996*(t7154-t7155-t7156-t7159+t7162)+t3313*t2859+t1062*(t5994-t7166-t7169-t7172+t7174)+t3327*t2883/2.0+t1131*(-t7180+t7181-t7186+t7188)/2.0+t3352*(t7154-t7155-t7156-t7159+t7162+t996*t7221+t1062*t7250+t1131*t7277/2.0)+t1062*(t5994-t7166-t7169-t7172+t7174+t996*t7250+t1062*t7305+t1131*t7337/2.0)+t1131*(-t7180+t7181-t7186+t7188+t996*t7277+t1062*t7337+t1131*t7377/2.0)/2.0; double t7384 = 4.0*E5; double t7388 = 6.0*t3084; double t7389 = 12.0*t3086; double t7390 = 6.0*t3088; double t7391 = 6.0*t3091; double t7392 = 6.0*t3093; double t7393 = 2.0*t170; double t7394 = 6.0*t3096; double t7395 = 6.0*t3098; double t7396 = 2.0*t173; double t7397 = t7388+t7389-t7390-t3146+t7391+t7392+t3153-t7393+t7394-t7395-t7396; double t7403 = t997*t2890*t109*t114; double t7404 = t2891*t1002; double t7405 = t2891*t1009; double t7407 = 4.0*t3088; double t7409 = 4.0*t3093; double t7410 = t3085-t3118+t3092-t170-t3122+t3144+t3145-t3150-t3151-3.0*t3113-t7407+3.0*t3116+t7409-t173+t3124; double t7412 = t120*t7410*t246; double t7413 = t2912*t1052; double t7415 = t120*t7413*t1055; double t7419 = 4.0*R1; double t7420 = 2.0*E5; double t7423 = t92*(t7419+t7420)*t115; double t7424 = t2891*t1068; double t7427 = t1070*t119*t2912*t246; double t7428 = 4.0*t3119; double t7429 = 4.0*t3120; double t7430 = 4.0*t3114; double t7431 = 4.0*t3115; double t7432 = 6.0*t3113; double t7433 = 6.0*t3116; double t7435 = 2.0*t3142; double t7436 = t7389-t3146+t3153+t7394-t7395+t3143-t7428-t7429+t7430+t7431-t3440-t5767+t3147+t7432-t7433-t3152+3.0*t3141+t7435; double t7438 = t120*t7436*t246; double t7440 = t120*t7413*t1125; double t7446 = 2.0*t2970*t115; double t7448 = 2.0*t2891*t1137; double t7449 = t1141*t2913; double t7451 = 6.0*t3170; double t7453 = 2.0*t3173; double t7456 = 2.0*t3180; double t7457 = 4.0*t3184; double t7458 = -6.0*t3168-t7451+3.0*t3172+t7453+6.0*t3175-t3495-t5803+3.0*t3179+t7456-t3183+t7457; double t7459 = 4.0*t3187; double t7461 = 3.0*t3193; double t7462 = 2.0*t3194; double t7463 = 3.0*t3196; double t7465 = 2.0*t3198; double t7466 = 2.0*t3200; double t7467 = 2.0*t3201; double t7468 = t7459+t3190+2.0*t3192+t7461-t7462-t3195-t7463-2.0*t3197-t7465+t3199+t7466+t7467; double t7472 = 6.0*t3212; double t7474 = 2.0*t3215; double t7475 = 4.0*t3218; double t7476 = 4.0*t3220; double t7477 = -t3204+t3205+12.0*t3206-t3209+6.0*t3210+t7472-3.0*t3214-t7474+t3217-t7475-t7476; double t7479 = 6.0*t3229; double t7480 = 4.0*t3231; double t7481 = 4.0*t3235; double t7482 = -t3224+t3496+t5804-6.0*t3227+t7479-t7480-t3234-t7481+t3239-t3497-t5805+t3243; double t7486 = t120*(t7458+t7468+t7477+t7482)*t246; double t7488 = t120*t7413*t1327; double t7497 = t997*t840; double t7507 = 2.0*t841*t1006; double t7511 = t2932*t1052; double t7515 = t892*t3403; double t7521 = -t3354*t2916+2.0*t997*t840*t1001*t114+2.0*t7497*t1009-2.0*t841*t3365-2.0*t841*t3369-2.0*t841*t3376+t7507+t120*(-t3087-t3097-t3137+t3144+t3145+t3148+t3099-t3150-t3151)*t246-2.0*t120*t7511*t1055+2.0*t120*t7515*t3405-t120*t2935*t3410; double t7530 = t841*t109; double t7538 = -t7407+t7409+t3136-t3605-t5839-t3436-t5765+t3138-t3149+t848+2.0*t3141-t3440-t5767; double t7541 = t2963*t1052; double t7546 = t120*t892; double t7551 = -t997*t2941*t109*t114+t2942*t1002+t2942*t1009+t7497*t1068-t841*t3421-2.0*t7530*t3425-t7507+t1070*t119*t2932*t246-t3431*t2936+t120*t7538*t246-t120*t7541*t1055-t120*t7511*t1125+2.0*t7546*t3463-t120*t2935*t3469; double t7555 = 2.0*t997*E6*t529; double t7557 = 2.0*t2970*t1997; double t7558 = t2970*R1; double t7560 = 2.0*t7558*t1009; double t7569 = t239*R1; double t7570 = t1156*t7569; double t7573 = t123*t91*t95; double t7577 = -t5866-t5793-t5868-t5797+t5870+t5801-2.0*t7570+2.0*t7573-t867-t3169+2.0*t3172+t3176-t3495-t5803+2.0*t3179+t3192-t3197+t3207; double t7579 = t1148*t887; double t7581 = t135*t895; double t7583 = t144*t3033; double t7585 = t848*t121; double t7586 = t867*t117; double t7587 = t3211-2.0*t3214+t3496+t5804-t3228+4.0*t7579-t3497-t5805-4.0*t7581-4.0*t7583+t7585+t7586-t3655-t3502-t3657-t3506+t3668+t3552; double t7591 = t3069*t1052; double t7600 = -t7555+t7557+t7560+2.0*t7497*t1137-2.0*t841*t3486-4.0*t7530*t3490-t1141*t2933+t1141*t2936+t120*(t7577+t7587)*t246-t120*t7591*t1055-t120*t7511*t1327+2.0*t7546*t3572-t120*t2935*t3576; double t7608 = 2.0*t92*R1*t115; double t7620 = 4.0*t3434; double t7621 = 4.0*t5763; double t7622 = 2.0*t848; double t7623 = t7432+t7435-t3601-t5837-t7433+t3602+t5838+t7390+t7620+t7621+t3437+t5766-t7622-t7392; double t7634 = -t7608+2.0*t2942*t1068-2.0*t841*t3590+t7507+t3593*t2946+2.0*t1070*t119*t2963*t246-2.0*t3431*t2966+t120*t7623*t246-2.0*t120*t7541*t1125+2.0*t120*t7515*t3621-t120*t2935*t3629; double t7637 = 2.0*t7558*t1068; double t7657 = t867*t91+t445*t3055+4.0*t5792+t5794+4.0*t5796+t5798-4.0*t5799-t5802-2.0*t5873-t5875+3.0*t7570; double t7660 = -3.0*t7573-t5878+2.0*t867-t7451+t7453+t7456+t3649+t5879+t7461-t3650-t7463-t5881; double t7664 = t3651+t5882+t7472-t7474-t3652-t5883+t7479-t3653-t5884-6.0*t7579+6.0*t7581; double t7672 = 6.0*t7583-2.0*t7585-2.0*t7586+4.0*t3501+t3503+4.0*t3505+t3507-4.0*t3550-t3553-t3675-2.0*t3692-t3695; double t7686 = t7637+2.0*t2942*t1137-4.0*t7530*t3638-t1070*t1140*t892*t246-t1141*t2964+t1141*t2966+t1070*t119*t3069*t246+t120*(t7657+t7660+t7664+t7672)*t246-t120*t7591*t1125-t3431*t3072-t120*t7541*t1327+2.0*t7546*t3732-t120*t2935*t3737; double t7695 = 8.0*t92*t97*t5190; double t7726 = -3.0*t3768*t881+2.0*t3768*t884+12.0*t3792*t887-3.0*t3795*t887-t7621-t5766-6.0*t1147*t881+4.0*t1147*t884+6.0*t1147*t7569+12.0*t1156*t124*t6-3.0*t3776*t3045-4.0*t1156*t438*R1; double t7728 = t3353*E4; double t7729 = t7728*E5; double t7731 = t3353*t110; double t7732 = t7731*E5; double t7741 = t3353*E6; double t7742 = t7741*E5; double t7745 = t7728*E6; double t7747 = t7731*E6; double t7751 = t3776*t3048-t848*t7729-t432*t7732+t141*t4925*E4-t141*t7731*t95-3.0*t3767*t3039+t3767*t3043-2.0*t867*t7742+t867*t7745+t445*t7747+4.0*t5917-2.0*t5919; double t7759 = 2.0*t5920-t5922+2.0*t5924+t5925+t7622+8.0*t5927-t5930+t5933-8.0*t5934+2.0*t5937-4.0*t5938+t5940; double t7764 = -2.0*t5943-t5944+t5946-4.0*t5947+4.0*t5949-2.0*t5951+t5956-t5957-t5958+t5960-t5962-t5963; double t7784 = -t5965+t3767*t3020-6.0*t1147*t859+6.0*t1147*t97*t6+t848*t3816+t432*t4925+4.0*t867*t121-t848*t3808-4.0*t848*t117+2.0*t848*t91+2.0*t432*t3055-t7432; double t7787 = -t3602-t5838+t7433+t3601+t5837-t7390+t7392-t7435-t7620-t3437+4.0*t3764-2.0*t3766; double t7796 = 2.0*t3769-t3772+2.0*t3775+t3778+8.0*t3800-t3803+t3805-8.0*t3806+2.0*t3810-4.0*t3812+t3814-2.0*t3818; double t7800 = -t3819+t3821-4.0*t3822+4.0*t3824-2.0*t3826+t3829-t3830-t3877+t3879-t3881-t3882-t3884; double t7814 = -t7608+t7695-8.0*t841*t3751+t7507+2.0*t3755*t893-2.0*t1141*t3070+2.0*t1141*t3072+t120*(t7726+t7751+t7759+t7764+t7784+t7787+t7796+t7800)*t246-2.0*t120*t7591*t1327+2.0*t120*t7515*t3919-t120*t2935*t3925; double newd2TdR1210 = -t92*(6.0*R1+t7384)*t115+t120*t7397*t246+t3293*t2938+t996*(-t7403+t7404+t7405+t7412-t7415)+t3313*t2968+t1062*(-t7423+t7424+t7427+t7438-t7440)+t3327*t3074/2.0+t1131*(-t7446+t7448-t7449+t7486-t7488)/2.0+t3352*(-t7403+t7404+t7405+t7412-t7415+t996*t7521+t1062*t7551+t1131*t7600/2.0)+t1062*(-t7423+t7424+t7427+t7438-t7440+t996*t7551+t1062*t7634+t1131*t7686/2.0)+t1131*(-t7446+t7448-t7449+t7486-t7488+t996*t7600+t1062*t7686+t1131*t7814/2.0)/2.0; double t7820 = t3079*t115; double t7825 = 4.0*t329; double t7826 = 2.0*t334; double t7827 = 2.0*t338; double t7828 = 2.0*t164; double t7829 = 2.0*t179; double t7830 = t7825-t7826+t7827+t7828-t7829; double t7842 = t997*t3078*t529; double t7845 = t997*t897*t109*t114; double t7846 = t3079*t1997; double t7847 = t898*t1002; double t7848 = t3079*R1; double t7849 = t7848*t1009; double t7850 = t898*t1009; double t7852 = t120*t3125*t246; double t7853 = t141*E5; double t7858 = t531*t119*(-2.0*t476-2.0*t334+2.0*t7853+2.0*t338)*t246; double t7859 = t120*t3130; double t7860 = t3100*t1052; double t7862 = t2013*t7860*t1055; double t7866 = t7848*t1068; double t7867 = t898*t1068; double t7868 = t1070*t942; double t7869 = t2021*t3102; double t7871 = t120*t3154*t246; double t7872 = 6.0*t329; double t7874 = 3.0*t164; double t7875 = 2.0*t486; double t7877 = 3.0*t179; double t7881 = t531*t119*(t7872+4.0*t476+t7874+t7875+t198-4.0*t7853-t7877)*t246; double t7882 = t120*t3158; double t7884 = t2013*t7860*t1125; double t7890 = 2.0*t7848*t1137; double t7892 = 2.0*t898*t1137; double t7893 = t1141*t3082; double t7896 = t531*t1140*t3100*t246; double t7898 = t120*t3246*t246; double t7899 = 3.0*t1204; double t7900 = t123*E5; double t7902 = 2.0*t481; double t7903 = 3.0*t1186; double t7904 = t1147*t169; double t7905 = t141*E6; double t7907 = t123*t1241; double t7909 = t123*t1249; double t7911 = t1156*t172; double t7913 = 3.0*t1147*t912; double t7914 = t141*t3050; double t7916 = t141*t3053; double t7917 = 2.0*t7916; double t7918 = t1147*t438; double t7920 = 6.0*t1170*E5; double t7922 = 3.0*t1156*t920; double t7923 = t123*t3058; double t7924 = 2.0*t7923; double t7925 = t1156*t155; double t7926 = t7899+4.0*t7900-t7902-t191-t7903+t7904+4.0*t7905+2.0*t7907-2.0*t7909-t7911-t7913-4.0*t7914+t7917+t7918+t7920+t7922+t7924+t7925; double t7929 = t531*t119*t7926*t246; double t7930 = t120*t3250; double t7932 = t2013*t7860*t1327; double t7949 = 2.0*t898*t5190; double t7950 = 2.0*t476; double t7951 = 2.0*t7853; double t7956 = t3125*t1052; double t7960 = t940*t3403; double t7966 = t3354*t897*t529-2.0*t3108*t1997-2.0*t3108*t5179+2.0*t898*t5183+2.0*t3111*t3369+2.0*t3111*t3376-t7949-t531*t119*(-t7950+t7951-t7825-t7828+t7829)*t246+2.0*t2013*t7956*t1055-2.0*t2013*t7960*t3405+t2013*t3129*t3410; double t7981 = t3154*t1052; double t7991 = t7842-t7846-t7849-t3108*t5213+t3111*t3421+2.0*t3111*t5217+t7949-t2021*t3127+t2021*t941*t5221-t531*t119*(-t3435-t5764+t432+t7875+t7872-4.0*t334+t7874-t7877+4.0*t338)*t246+t2013*t7981*t1055+t2013*t7956*t1125-2.0*t2013*t7960*t5237+t2013*t3129*t3469; double t8003 = t135*E5; double t8005 = t144*E6; double t8007 = t1156*t239; double t8009 = -t7903+t7920-t445-t7902+t7899-4.0*t8003+t3551+t5800-4.0*t8005-2.0*t8007+t7904-t7911; double t8010 = t1156*t401; double t8012 = t432*t121; double t8013 = t1156*t104; double t8014 = t1156*t583; double t8015 = t445*t117; double t8016 = t1147*t1323; double t8018 = t1147*t136; double t8019 = t1147*t602; double t8020 = 2.0*t8010+t8012+t7917-t8013-t8014+t8015+t7924-t7913+4.0*t8016-t8018-t8019+t7922; double t8025 = t3246*t1052; double t8035 = t7555-t7557-t7560-2.0*t3108*t5246+2.0*t3111*t3486+4.0*t3111*t5252+t531*t1140*t3125*t246-t5258*t3130-t531*t119*(t8009+t8020)*t246+t2013*t8025*t1055+t2013*t7956*t1327-2.0*t2013*t7960*t5281+t2013*t3129*t3576; double t8038 = t7842-t7846-t7849+t7845-t7847-t7850-t7852+t7859-t7858+t7862+t996*t7966+t1062*t7991+t1131*t8035/2.0; double t8050 = 6.0*t476; double t8051 = 6.0*t334; double t8052 = 2.0*t432; double t8053 = 6.0*t7853; double t8054 = 2.0*t3435; double t8055 = 2.0*t5764; double t8056 = 6.0*t338; double t8057 = 2.0*t198; double t8070 = t7608-2.0*t7866+2.0*t3111*t3590-t7949-t5296*t942-2.0*t2021*t3156+2.0*t2021*t941*t5300-t531*t119*(t8050+t8051-t8052-t8053+t8054+t8055-t8056+t8057)*t246+2.0*t2013*t7981*t1125-2.0*t2013*t7960*t3621+t2013*t3129*t3629; double t8093 = 6.0*t8003+6.0*t8005+3.0*t7907-3.0*t7909+2.0*t7918+2.0*t7925+2.0*t445-2.0*t3551-2.0*t5800+6.0*t7900+6.0*t7905+3.0*t8007-3.0*t8010; double t8107 = -2.0*t8012+2.0*t8013+2.0*t8014-2.0*t8015+2.0*t8018+2.0*t8019-6.0*t8016-2.0*t191-t1156*t1089-t1156*t2205+t445*t91+t123*t3055-6.0*t7914; double t8123 = -t7637-t7890+4.0*t3111*t5325+t2021*t3165+t531*t1140*t3154*t246-t5258*t3158-t2021*t3248-t531*t119*(t8093+t8107)*t246+t2013*t8025*t1125+t2021*t941*t5358+t2013*t7981*t1327-2.0*t2013*t7960*t5363+t2013*t3129*t3737; double t8126 = t7608-t7866+t7820-t7867-t7868-t7871+t7882-t7869-t7881+t7884+t996*t7991+t1062*t8070+t1131*t8123/2.0; double t8163 = -t8057-3.0*t123*t7741*t95-2.0*t445*t7742+t445*t7745+t123*t7747-3.0*t3767*t3181+2.0*t3767*t125+2.0*t3767*t610+2.0*t3767*t3237-t3767*t129-t3767*t613+12.0*t1156*t1323+12.0*t123*t3050; double t8175 = -3.0*t141*t3808*E5+t3776*t142+t3776*t621-t432*t7729-t141*t7732-3.0*t3776*t240-t8054-t8055+t8052-t8051+t8056-t8050+t8053+6.0*t1147*t239; double t8202 = t123*t3353*t169+t3767*t3042-6.0*t141*t1249-4.0*t432*t117+2.0*t432*t91+2.0*t141*t3055-6.0*t1147*t401+4.0*t1147*t104+4.0*t1147*t583+4.0*t1147*t155-2.0*t1147*t1089-2.0*t1147*t2205+6.0*t141*t1241; double t8221 = 4.0*t445*t121-t432*t3808-4.0*t1156*t136+t3776*t189-4.0*t1156*t438+t3776*t244+t432*t3816+t141*t4925-4.0*t1156*t602+t3776*t600-t3776*t182-t3776*t594+t3776*t237-t3776*t243; double t8235 = t7608-t7695+8.0*t3111*t3751-t7949-2.0*t531*t3754*t940*t246+2.0*t531*t1140*t3246*t246-2.0*t5258*t3250-t531*t119*(t8163+t8175+t8202+t8221)*t246+2.0*t2013*t8025*t1327-2.0*t2013*t7960*t3919+t2013*t3129*t3925; double t8238 = -t7890+t7446-t7892+t7893-t7898+t7930+t7896-t7929+t7932+t996*t8035+t1062*t8123+t1131*t8235/2.0; double newd2TdR1211 = t7608+2.0*t7820-2.0*t120*t3100*t246-t531*t119*t7830*t246-2.0*t3105*t1991+2.0*R1*t3105*t944*t5094+t3293*t3132+t996*(t7842+t7845-t7846-t7847-t7849-t7850-t7852-t7858+t7859+t7862)+t3313*t3160+t1062*(t7608+t7820-t7866-t7867-t7868-t7869-t7871-t7881+t7882+t7884)+t3327*t3252/2.0+t1131*(t7446-t7890-t7892+t7893+t7896-t7898-t7929+t7930+t7932)/2.0+t3352*t8038+t1062*t8126+t1131*t8238/2.0; double newd2TdR1212 = 0.0; double newd2TdR1213 = 0.0; double newd2TdR1214 = 0.0; double newd2TdR1215 = 0.0; double t8241 = 3.0*t1; double t8242 = 4.0*t165; double t8243 = 3.0*t9; double t8244 = t8241+t8242+t95+t97-t8243-t2886; double t8245 = t92*t8244; double t8247 = 2.0*t1020; double t8248 = 2.0*t1029; double t8249 = -t8247-t8248-t2895-t903-t907+t2899-t910+t911-t1019+t928-t2909-t934+t1018+t938; double t8256 = -3.0*t1021+3.0*t1024+3.0*t1030-3.0*t1033+6.0*t1039+6.0*t1045+t1094-t1096+t1098-t1103+t1105-t1107-t1113+t1115; double t8257 = t8249+t8256; double t8258 = t8257*t246; double t8263 = -t3345/36.0+3.0*t3348-t3350-2.0/3.0; double t8266 = t88*(t3346+t3349-t3351); double newdTdR20 = -t8245*t115+t120*t8258+t3352*t1058+t8263*t1128+t8266*t1330/2.0; double t8269 = 6.0*t251; double t8270 = 4.0*t272; double t8271 = t8269+t8270+t1397; double t8272 = t92*t8271; double t8274 = 2.0*t1351; double t8275 = 2.0*t1355; double t8276 = 2.0*t1337; double t8277 = 6.0*t1361; double t8278 = 6.0*t1367; double t8279 = 6.0*t1373; double t8280 = 6.0*t1378; double t8281 = 2.0*t1338; double t8282 = 4.0*t1339; double t8283 = -t8274+t1445-t1431-t8275-t8276+t8277+t1433+t8278+t1428-t8279-t1443+t8280+t8281+t8282-t1376+t1364; double t8284 = t8283*t246; double newdTdR21 = -t8272*t115+t120*t8284+t3352*t1393+t8263*t1452+t8266*t1631/2.0; double t8290 = 2.0*t258; double t8291 = 2.0*t382; double t8292 = t8290+t525-t8291+t388; double t8293 = t92*t8292; double t8294 = t8293*t115; double t8295 = 2.0*t538; double t8296 = 2.0*t556; double t8297 = 2.0*t557; double t8299 = 4.0*t550; double t8300 = 2.0*t539; double t8301 = 4.0*t552; double t8302 = t544+t8299-t1655-t534-t8300+t1656+t541-t542-t8301+t547-t1654; double t8303 = -t546+t533+t537+t8295-t8296-t535+t8297+t1653+t558-t543+t8302; double t8304 = t8303*t246; double t8305 = t120*t8304; double newdTdR22 = t8294-t8305+t3352*t1689+t8263*t1753+t8266*t1972/2.0; double t8312 = t14+t15+2.0*t23; double t8313 = t1991*t8312; double newdTdR23 = -t1975+t1988+t388*t567-t565*t8313+t3352*t2017+t8263*t2042+t8266*t2107/2.0; double t8319 = t8269+t8270-t1397; double t8320 = t92*t8319; double t8322 = -t8274+t1445-t1431-t8275+t8276+t8277+t1433+t8278+t1428-t8279-t1443+t8280-t8281-t8282+t1376-t1364; double t8323 = t8322*t246; double newdTdR24 = t8320*t115-t120*t8323+t3352*t2126+t8263*t2142+t8266*t2158/2.0; double t8329 = -t8243+t8241+t8242+t95+t97-t2887; double t8330 = t92*t8329; double t8332 = -t8247-t8248-t903-t2898-t907+t2900-t910+t911-t2178+t928-t2910-t934+t2177+t938; double t8333 = t8332+t8256; double t8334 = t8333*t246; double newdTdR25 = -t8330*t115+t120*t8334+t3352*t2186+t8263*t2215+t8266*t2283/2.0; double t8340 = 2.0*t630; double t8341 = 2.0*t638; double t8342 = t8340+t8341+t771+t644; double t8343 = t92*t8342; double t8345 = 2.0*t796; double t8346 = 2.0*t776; double t8347 = 4.0*t781; double t8348 = t790-t798+t794+t8345-t8346-t792+t799+t8347-t2306-t791; double t8349 = 2.0*t795; double t8350 = 2.0*t775; double t8351 = 4.0*t779; double t8352 = t8349-t785-t8350+t2308+t777+t787-t784+t8351-t2305+t778+t2307; double t8353 = t8348+t8352; double t8354 = t8353*t246; double newdTdR26 = -t8343*t115+t120*t8354+t3352*t2341+t8263*t2405+t8266*t2621/2.0; double newdTdR27 = t2624-t2637-t644*t567+t808*t8313+t3352*t2660+t8263*t2684+t8266*t2749/2.0; double t8366 = t8290+t525+t8291+t388; double t8367 = t92*t8366; double t8370 = t544+t8299-t1655-t534+t8300-t1656+t541-t542+t8301+t547+t1654; double t8371 = -t546+t533+t537+t8295-t8296-t535-t8297+t1653+t558-t543+t8370; double t8372 = t8371*t246; double newdTdR28 = -t8367*t115+t120*t8372+t3352*t2773+t8263*t2792+t8266*t2816/2.0; double t8378 = -t8340+t8341+t771+t644; double t8379 = t92*t8378; double t8380 = t8379*t115; double t8381 = -t8349-t785+t8350+t2308+t777+t787-t784-t8351+t2305+t778-t2307; double t8382 = t8348+t8381; double t8383 = t8382*t246; double t8384 = t120*t8383; double newdTdR29 = t8380-t8384+t3352*t2840+t8263*t2859+t8266*t2883/2.0; double t8389 = -t16; double t8390 = t92*t8389; double t8392 = -t930-t932+t935+t936-t923-t924-t902-t906+t908+t909; double t8393 = t8392*t246; double newdTdR210 = -t8390*t115+t120*t8393+t3352*t2938+t8263*t2968+t8266*t3074/2.0; double t8399 = t23*t567; double newdTdR211 = 2.0*t8399-t945*t8313+t3352*t3132+t8263*t3160+t8266*t3252/2.0; double newdTdR212 = 0.0; double newdTdR213 = 0.0; double newdTdR214 = 0.0; double newdTdR215 = 0.0; double t8409 = t92*(6.0*R2+t7384)*t115; double t8410 = 6.0*t3385; double t8411 = 12.0*t3393; double t8412 = 6.0*t3391; double t8413 = -t8410+t7388+t7391-t7396+t3610-t7393-t3608+t3153+t8411+t8412-t3146; double t8415 = t120*t8413*t246; double t8416 = t3344*t3344; double t8417 = t3256*t8416; double t8418 = t8417/27.0; double t8419 = t3341*t3341; double t8422 = -t3261+t3260-3.0*t3263*t8419+t3277; double t8423 = t953*t8422; double t8424 = t8423/18.0; double t8426 = t3347*t992*t3344; double t8427 = 4.0*t8426; double t8428 = t3288*t8416; double t8429 = 8.0/3.0*t8428; double t8430 = t993*t8422; double t8431 = 2.0*t8430; double t8432 = -t8418+t8424+t3281+t8427-t8429+t8431; double t8436 = t997*t8244*t109*t114; double t8437 = t8245*t1002; double t8438 = t8245*t1009; double t8439 = 3.0*t3383; double t8440 = 3.0*t3389; double t8441 = 3.0*t3381; double t8442 = 3.0*t3387; double t8443 = t3144-t3150-t173+t8439+t3447+t3124-t170-t8440-t3452-t3122-t8441+t3085-t3118+t8442+t3092; double t8445 = t120*t8443*t246; double t8446 = t8257*t1052; double t8448 = t120*t8446*t1055; double t8455 = t8417/54.0-t8423/36.0-t3310-2.0*t8426+4.0/3.0*t8428-t8430; double t8457 = 4.0*R2; double t8460 = t92*(t8457+t7420)*t115; double t8461 = t8245*t1068; double t8464 = t1070*t119*t8257*t246; double t8465 = 3.0*t3444; double t8466 = 3.0*t3441; double t8467 = -t8410-t7428+t7430+t3603+t3143-t3613-t3440-t3604-t3152+t3614+t3147+t8465+t3612+t3153+t8411+t8412-t8466-t3146; double t8469 = t120*t8467*t246; double t8471 = t120*t8446*t1125; double t8475 = t88*(-t8418+t8424-t3281-t8427+t8429-t8431); double t8479 = 2.0*t8245*t1137; double t8480 = t1141*t8258; double t8481 = -t3495-t3183+t7457+t3190-t7462-t3195+t3199+t7466-t3204+t3205-t3209; double t8482 = 6.0*t3511; double t8483 = 6.0*t3516; double t8484 = 3.0*t3519; double t8485 = t3217-t7475-t3224+t3496-t7480-t3234+t3239-t3497+t3243-t8482+t8483-t8484; double t8497 = 3.0*t3522-3.0*t3527+3.0*t3531-2.0*t3536+2.0*t3538+12.0*t3540+3.0*t3546-3.0*t3548-6.0*t3554+6.0*t3556-t3683; double t8498 = t3686+t3688-t3690+t3703+t3705+t3708-t3711-t3713+t3715-t3717+t3719-t3721; double t8499 = t8497+t8498; double t8502 = t120*(t8481+t8485+t8499)*t246; double t8504 = t120*t8446*t1327; double newd2TdR220 = -t8409+t8415+t8432*t1058+t3352*(-t8436+t8437+t8438+t8445-t8448)+t8455*t1128+t8263*(-t8460+t8461+t8464+t8469-t8471)+t8475*t1330/2.0+t8266*(-t7446+t8479-t8480+t8502-t8504)/2.0+t3352*(-t8436+t8437+t8438+t8445-t8448+t3352*t3413+t8263*t3472+t8266*t3579/2.0)+t8263*(-t8460+t8461+t8464+t8469-t8471+t3352*t3472+t8263*t3632+t8266*t3740/2.0)+t8266*(-t7446+t8479-t8480+t8502-t8504+t3352*t3579+t8263*t3740+t8266*t3928/2.0)/2.0; double t8527 = 6.0*t4181; double t8528 = 6.0*t4008; double t8529 = 6.0*t4010; double t8530 = 12.0*t4014; double t8533 = t120*(t8528-t8529+t4200+t8530-t4199)*t246; double t8537 = t997*t8271*t109*t114; double t8538 = t8272*t1002; double t8539 = t8272*t1009; double t8540 = 6.0*t4012; double t8541 = 6.0*t4016; double t8544 = t120*(t8540+t4056-t8541-t4067-t3957+t3958)*t246; double t8545 = t8283*t1052; double t8547 = t120*t8545*t1055; double t8551 = 4.0*t4181; double t8552 = t8272*t1068; double t8555 = t1070*t119*t8283*t246; double t8556 = 4.0*t3942; double t8557 = 4.0*t3943; double t8558 = 6.0*t4061; double t8561 = t120*(t8556-t8557+t4064-t4202+t4207-t8529+t8558+t4205+t8530+t8528)*t246; double t8563 = t120*t8545*t1125; double t8569 = 2.0*t8272*t1137; double t8570 = t1141*t8284; double t8571 = 4.0*t3977; double t8572 = 4.0*t3981; double t8573 = 6.0*t4104; double t8574 = 6.0*t4106; double t8575 = 6.0*t4108; double t8576 = 6.0*t4117; double t8577 = 6.0*t4132; double t8578 = 6.0*t4139; double t8579 = t8571+t8572-t4099-t8573-t4243-t8574+t8575-t4248+t8576-t8577+t8578+t4146+t4147; double t8580 = 4.0*t3972; double t8581 = 6.0*t4148; double t8582 = 2.0*t3976; double t8583 = 2.0*t3980; double t8584 = 12.0*t4150; double t8585 = 2.0*t4157; double t8586 = 2.0*t4159; double t8587 = -t8580-t4267+t4269+t4274+t4277+t4290+t4292+t8581-t8582+t8583+t8584+t8585-t8586; double t8590 = t120*(t8579+t8587)*t246; double t8592 = t120*t8545*t1327; double newd2TdR221 = -t8527+t8533+t8432*t1393+t3352*(-t8537+t8538+t8539+t8544-t8547)+t8455*t1452+t8263*(-t8551+t8552+t8555+t8561-t8563)+t8475*t1631/2.0+t8266*(t8569-t8570+t8590-t8592)/2.0+t3352*(-t8537+t8538+t8539+t8544-t8547+t3352*t4031+t8263*t4081+t8266*t4175/2.0)+t8263*(-t8551+t8552+t8555+t8561-t8563+t3352*t4081+t8263*t4219+t8266*t4316/2.0)+t8266*(t8569-t8570+t8590-t8592+t3352*t4175+t8263*t4316+t8266*t4498/2.0)/2.0; double t8618 = t997*t8292*t109*t114; double t8619 = t8293*t1002; double t8620 = t8293*t1009; double t8623 = t120*(t2008-t2001+t2032-t2002+t2003-t2034+t2033-t2031)*t246; double t8624 = t8303*t1052; double t8626 = t120*t8624*t1055; double t8627 = t8618-t8619-t8620-t8623+t8626; double t8630 = t8293*t1068; double t8633 = t1070*t119*t8303*t246; double t8634 = 4.0*t2007; double t8635 = 4.0*t2005; double t8636 = 4.0*t2004; double t8637 = 4.0*t2006; double t8638 = t2025-t2024+t2023-t8634+t2026-t2027+t8635+t2028-t4620-t8636+t8637+t4618+t2035; double t8640 = t120*t8638*t246; double t8642 = t120*t8624*t1125; double t8643 = t4505-t8630-t8633-t8640+t8642; double t8648 = 2.0*t8293*t1137; double t8649 = t1141*t8304; double t8650 = 4.0*t2055; double t8651 = 4.0*t2057; double t8652 = 4.0*t2073; double t8653 = -t2050+t2051+t2052+t4692-t4693-t8650+t8651+t4694-t4695+t2062-t2063-t2065+t2067-t2068+t2070+t2072+t8652; double t8654 = 4.0*t2076; double t8655 = 4.0*t2080; double t8656 = 4.0*t2082; double t8657 = 2.0*t2086; double t8658 = 2.0*t2096; double t8659 = 2.0*t2097; double t8660 = 2.0*t2098; double t8661 = -t8654-t2078+t2079+t8655-t8656-t4697+t4698-t8657-t2087+t2088-t2091+t2092+t2095+t8658-t8659+t8660+t2099; double t8664 = t120*(t8653+t8661)*t246; double t8666 = t120*t8624*t1327; double t8667 = -t8648+t8649-t8664+t8666; double newd2TdR222 = t4505-t4511+t8432*t1689+t3352*t8627+t8455*t1753+t8263*t8643+t8475*t1972/2.0+t8266*t8667/2.0+t3352*(t8618-t8619-t8620-t8623+t8626+t3352*t4593+t8263*t4636+t8266*t4718/2.0)+t8263*(t4505-t8630-t8633-t8640+t8642+t3352*t4636+t8263*t4763+t8266*t4864/2.0)+t8266*(-t8648+t8649-t8664+t8666+t3352*t4718+t8263*t4864+t8266*t5081/2.0)/2.0; double t8691 = t8312*t8312; double t8692 = t5094*t8691; double newd2TdR223 = -2.0*t388*t8313+2.0*t565*t8692-2.0*t6*t564*t1991+t8432*t2017+t3352*(-t5099+t5103+t5106+t5115-t5119)+t8455*t2042+t8263*(t5123+t5126+t5135-t5138)+t8475*t2107/2.0+t8266*(t5144-t5150+t5167-t5170)/2.0+t3352*(-t5099+t5103+t5106+t5115-t5119+t3352*t5207+t8263*t5243+t8266*t5287/2.0)+t8263*(t5123+t5126+t5135-t5138+t3352*t5243+t8263*t5321+t8266*t5369/2.0)+t8266*(t5144-t5150+t5167-t5170+t3352*t5287+t8263*t5369+t8266*t5454/2.0)/2.0; double t8731 = t997*t8319*t109*t114; double t8732 = t8320*t1002; double t8733 = t8320*t1009; double t8736 = t120*(t8540+t4056-t8541-t4067+t3957-t3958)*t246; double t8737 = t8322*t1052; double t8739 = t120*t8737*t1055; double t8743 = t8320*t1068; double t8746 = t1070*t119*t8322*t246; double t8749 = t120*(-t8556+t8557-t4064-t4202+t4207-t8529+t8558+t4205+t8530+t8528)*t246; double t8751 = t120*t8737*t1125; double t8757 = 2.0*t8320*t1137; double t8758 = t1141*t8323; double t8759 = -t8571-t8572+t4099-t8573-t4243-t8574+t8575-t4248+t8576-t8577+t8578-t4146-t4147; double t8760 = t8580-t4267+t4269+t4274+t4277+t4290+t4292+t8581+t8582-t8583+t8584+t8585-t8586; double t8763 = t120*(t8759+t8760)*t246; double t8765 = t120*t8737*t1327; double newd2TdR224 = t8527-t8533+t8432*t2126+t3352*(t8731-t8732-t8733-t8736+t8739)+t8455*t2142+t8263*(t8551-t8743-t8746-t8749+t8751)+t8475*t2158/2.0+t8266*(-t8757+t8758-t8763+t8765)/2.0+t3352*(t8731-t8732-t8733-t8736+t8739+t3352*t5520+t8263*t5549+t8266*t5573/2.0)+t8263*(t8551-t8743-t8746-t8749+t8751+t3352*t5549+t8263*t5601+t8266*t5633/2.0)+t8266*(-t8757+t8758-t8763+t8765+t3352*t5573+t8263*t5633+t8266*t5673/2.0)/2.0; double t8791 = t997*t8329*t109*t114; double t8792 = t8330*t1002; double t8793 = t8330*t1009; double t8794 = t3145-t3151-t173+t8439+t3447+t3124-t170-t8440-t3452-t3122-t8441+t3085-t3118+t8442+t3092; double t8796 = t120*t8794*t246; double t8797 = t8333*t1052; double t8799 = t120*t8797*t1055; double t8803 = t8330*t1068; double t8806 = t1070*t119*t8333*t246; double t8807 = -t8410-t7429+t7431+t3603+t3143-t3613-t5767-t3604-t3152+t3614+t3147+t8465+t3612+t3153+t8411+t8412-t8466-t3146; double t8809 = t120*t8807*t246; double t8811 = t120*t8797*t1125; double t8817 = 2.0*t8330*t1137; double t8818 = t1141*t8334; double t8819 = -t5803-t3183+t7459+t3190-t3195-t7465+t3199+t7467-t3204+t3205-t3209; double t8820 = t3217-t7476-t3224+t5804-t3234-t7481+t3239-t5805+t3243-t8482+t8483-t8484; double t8824 = t120*(t8819+t8820+t8499)*t246; double t8826 = t120*t8797*t1327; double newd2TdR225 = -t8409+t8415+t8432*t2186+t3352*(-t8791+t8792+t8793+t8796-t8799)+t8455*t2215+t8263*(-t8460+t8803+t8806+t8809-t8811)+t8475*t2283/2.0+t8266*(-t7446+t8817-t8818+t8824-t8826)/2.0+t3352*(-t8791+t8792+t8793+t8796-t8799+t3352*t5747+t8263*t5781+t8266*t5820/2.0)+t8263*(-t8460+t8803+t8806+t8809-t8811+t3352*t5781+t8263*t5852+t8266*t5902/2.0)+t8266*(-t7446+t8817-t8818+t8824-t8826+t3352*t5820+t8263*t5902+t8266*t5987/2.0)/2.0; double t8852 = t997*t8342*t109*t114; double t8853 = t8343*t1002; double t8854 = t8343*t1009; double t8855 = -t2649+t2645-t2648-t2669+t2646+t2665-t2670+t2666; double t8857 = t120*t8855*t246; double t8858 = t8353*t1052; double t8860 = t120*t8858*t1055; double t8864 = t8343*t1068; double t8867 = t1070*t119*t8353*t246; double t8868 = 4.0*t2647; double t8869 = 4.0*t2651; double t8870 = 4.0*t2650; double t8871 = 4.0*t2652; double t8872 = t2673-t2674+t2675+t2672+t8868-t2671-t8869+t2668+t6106+t8870-t8871+t6110+t2667; double t8874 = t120*t8872*t246; double t8876 = t120*t8858*t1125; double t8882 = 2.0*t8343*t1137; double t8883 = t1141*t8354; double t8884 = 4.0*t2692; double t8885 = 4.0*t2694; double t8886 = 4.0*t2703; double t8887 = 4.0*t2705; double t8888 = 4.0*t2713; double t8889 = 4.0*t2715; double t8890 = t2691-t8884-t8885+t6142+t2697-t2699+t6143+t6144+t6145+t8886+t8887-t6146-t2708+t2710+t2712+t8888+t8889; double t8891 = 2.0*t2723; double t8892 = 2.0*t2724; double t8893 = 2.0*t2734; double t8894 = 2.0*t2735; double t8895 = -t6147+t2720-t2721+t2722-t8891-t8892+t2725-t2726-t2729+t2730+t2733+t8893+t8894+t2736+t2738-t2739-t2741; double t8896 = t8890+t8895; double t8898 = t120*t8896*t246; double t8900 = t120*t8858*t1327; double newd2TdR226 = -t5994+t6000+t8432*t2341+t3352*(-t8852+t8853+t8854+t8857-t8860)+t8455*t2405+t8263*(-t5994+t8864+t8867+t8874-t8876)+t8475*t2621/2.0+t8266*(t8882-t8883+t8898-t8900)/2.0+t3352*(-t8852+t8853+t8854+t8857-t8860+t3352*t6082+t8263*t6124+t8266*t6206/2.0)+t8263*(-t5994+t8864+t8867+t8874-t8876+t3352*t6124+t8263*t6251+t8266*t6352/2.0)+t8266*(t8882-t8883+t8898-t8900+t3352*t6206+t8263*t6352+t8266*t6566/2.0)/2.0; double newd2TdR227 = 2.0*t644*t8313-2.0*t808*t8692+2.0*t6*t807*t1991+t8432*t2660+t3352*(t6581-t6585-t6588-t6597+t6601)+t8455*t2684+t8263*(-t6605-t6608-t6617+t6620)+t8475*t2749/2.0+t8266*(-t6626+t6632-t6649+t6652)/2.0+t3352*(t6581-t6585-t6588-t6597+t6601+t3352*t6684+t8263*t6714+t8266*t6752/2.0)+t8263*(-t6605-t6608-t6617+t6620+t3352*t6714+t8263*t6784+t8266*t6828/2.0)+t8266*(-t6626+t6632-t6649+t6652+t3352*t6752+t8263*t6828+t8266*t6913/2.0)/2.0; double t8963 = t997*t8366*t109*t114; double t8964 = t8367*t1002; double t8965 = t8367*t1009; double t8966 = t2008-t2001-t2032-t2002+t2003+t2034+t2033-t2031; double t8968 = t120*t8966*t246; double t8969 = t8371*t1052; double t8971 = t120*t8969*t1055; double t8975 = t8367*t1068; double t8978 = t1070*t119*t8371*t246; double t8979 = t2025-t2024+t2023+t8634+t2026-t2027-t8635+t2028+t4620-t8636+t8637+t4618+t2035; double t8981 = t120*t8979*t246; double t8983 = t120*t8969*t1125; double t8989 = 2.0*t8367*t1137; double t8990 = t1141*t8372; double t8991 = -t2050+t2051+t2052+t4692+t4693-t8650-t8651+t4694+t4695+t2062-t2063-t2065+t2067-t2068+t2070+t2072+t8652; double t8992 = t8654-t2078+t2079+t8655+t8656-t4697-t4698+t8657-t2087+t2088-t2091+t2092+t2095+t8658-t8659-t8660+t2099; double t8993 = t8991+t8992; double t8995 = t120*t8993*t246; double t8997 = t120*t8969*t1327; double newd2TdR228 = -t4505+t4511+t8432*t2773+t3352*(-t8963+t8964+t8965+t8968-t8971)+t8455*t2792+t8263*(-t4505+t8975+t8978+t8981-t8983)+t8475*t2816/2.0+t8266*(t8989-t8990+t8995-t8997)/2.0+t3352*(-t8963+t8964+t8965+t8968-t8971+t3352*t6989+t8263*t7018+t8266*t7046/2.0)+t8263*(-t4505+t8975+t8978+t8981-t8983+t3352*t7018+t8263*t7074+t8266*t7106/2.0)+t8266*(t8989-t8990+t8995-t8997+t3352*t7046+t8263*t7106+t8266*t7145/2.0)/2.0; double t9023 = t997*t8378*t109*t114; double t9024 = t8379*t1002; double t9025 = t8379*t1009; double t9028 = t120*(-t2649+t2645-t2648+t2669+t2646-t2665-t2670+t2666)*t246; double t9029 = t8382*t1052; double t9031 = t120*t9029*t1055; double t9032 = t9023-t9024-t9025-t9028+t9031; double t9035 = t8379*t1068; double t9038 = t1070*t119*t8382*t246; double t9039 = t2673-t2674+t2675+t2672-t8868-t2671+t8869+t2668-t6106+t8870-t8871+t6110+t2667; double t9041 = t120*t9039*t246; double t9043 = t120*t9029*t1125; double t9044 = t5994-t9035-t9038-t9041+t9043; double t9049 = 2.0*t8379*t1137; double t9050 = t1141*t8383; double t9051 = t2691+t8884-t8885-t6142+t2697-t2699+t6143-t6144+t6145-t8886+t8887+t6146-t2708+t2710+t2712-t8888+t8889; double t9052 = -t6147+t2720-t2721+t2722+t8891-t8892+t2725-t2726-t2729+t2730+t2733-t8893+t8894+t2736+t2738-t2739-t2741; double t9055 = t120*(t9051+t9052)*t246; double t9057 = t120*t9029*t1327; double t9058 = -t9049+t9050-t9055+t9057; double newd2TdR229 = t5994-t6000+t8432*t2840+t3352*t9032+t8455*t2859+t8263*t9044+t8475*t2883/2.0+t8266*t9058/2.0+t3352*(t9023-t9024-t9025-t9028+t9031+t3352*t7221+t8263*t7250+t8266*t7277/2.0)+t8263*(t5994-t9035-t9038-t9041+t9043+t3352*t7250+t8263*t7305+t8266*t7337/2.0)+t8266*(-t9049+t9050-t9055+t9057+t3352*t7277+t8263*t7337+t8266*t7377/2.0)/2.0; double t9083 = t997*t8389*t109*t114; double t9084 = t8390*t1002; double t9085 = t8390*t1009; double t9088 = t120*(t3119+t3120-t3114-t3115)*t246; double t9089 = t8392*t1052; double t9091 = t120*t9089*t1055; double t9095 = t8390*t1068; double t9098 = t1070*t119*t8392*t246; double t9101 = t120*(-t3144-t3145+t3150+t3151-t3139-t3140)*t246; double t9103 = t120*t9089*t1125; double t9109 = 2.0*t8390*t1137; double t9110 = t1141*t8393; double t9111 = t3185+t3188-t3240-t3241-t3177-t3178-t3219-t3221+t3225+t3226-t3232-t3194-t3236-t3198+t3200+t3201; double t9113 = t120*t9111*t246; double t9115 = t120*t9089*t1327; double newd2TdR2210 = t8432*t2938+t3352*(-t9083+t9084+t9085+t9088-t9091)+t8455*t2968+t8263*(t9095+t9098+t9101-t9103)+t8475*t3074/2.0+t8266*(t9109-t9110+t9113-t9115)/2.0+t3352*(-t9083+t9084+t9085+t9088-t9091+t3352*t7521+t8263*t7551+t8266*t7600/2.0)+t8263*(t9095+t9098+t9101-t9103+t3352*t7551+t8263*t7634+t8266*t7686/2.0)+t8266*(t9109-t9110+t9113-t9115+t3352*t7600+t8263*t7686+t8266*t7814/2.0)/2.0; double newd2TdR2211 = 2.0*R1*t567-4.0*t23*t8313+2.0*t945*t8692-2.0*t6*t944*t1991+t8432*t3132+t8455*t3160+t8475*t3252/2.0+t3352*(t3352*t7966+t8263*t7991+t8266*t8035/2.0)+t8263*(t3352*t7991+t8263*t8070+t8266*t8123/2.0)+t8266*(t3352*t8035+t8263*t8123+t8266*t8235/2.0)/2.0; double newd2TdR2212 = 0.0; double newd2TdR2213 = 0.0; double newd2TdR2214 = 0.0; double newd2TdR2215 = 0.0; double t9176 = t16*br; double t9181 = t1*t16; double t9188 = t16*t6; double t9193 = 240.0*t23*t636-120.0*t30*br+24.0*t23*t9176-120.0*t636*t6-12.0*t9181*br+72.0*t38*br+144.0*t24*br-12.0*t9188*br+72.0*t41*br; double t9196 = 72.0*t644-72.0*t638+6.0*t960*t9193; double t9197 = t953*t9196; double t9198 = t9197/18.0; double t9199 = br*t81; double t9200 = 4.0*t9199; double t9201 = t993*t9196; double t9202 = 2.0*t9201; double t9203 = t9198-t9200+t9202; double t9207 = -t9197/36.0+2.0*t9199-t9201; double t9210 = t88*(t9198+t9200-t9202); double newdTdbr0 = t9203*t1058+t9207*t1128+t9210*t1330/2.0; double newdTdbr1 = -t8294+t8305+t9203*t1393+t9207*t1452+t9210*t1631/2.0; double t9217 = 2.0*t251; double t9218 = -t9217-t1396-t1397-t392; double t9219 = t92*t9218; double t9220 = t9219*t115; double t9221 = 2.0*t1430; double t9222 = t141*t254; double t9223 = t141*t255; double t9225 = 2.0*t1444; double t9226 = 2.0*t1373; double t9227 = t124*omega; double t9229 = 2.0*t123*t9227; double t9230 = t128*omega; double t9231 = t123*t9230; double t9232 = 4.0*t1427; double t9233 = t141*t319; double t9234 = 2.0*t1361; double t9235 = -t8282+t1442+t1376-t9225-t1364+t9226-t9229+t9231-t9232-t9233-t9234; double t9236 = t1351-t1368-t1379-t8281+t1355+t8276+t9221-t1432+t9222-t9223+t9235; double t9237 = t9236*t246; double t9238 = t120*t9237; double newdTdbr2 = t9220-t9238+t9203*t1689+t9207*t1753+t9210*t1972/2.0; double t9243 = t1454*t529; double t9245 = -t4008-t4055-2.0*t4014+t4066+t4010; double t9247 = t119*t9245*t246; double t9249 = t392*t567; double t9250 = t1991*br; double t9251 = t9250*R2; double newdTdbr3 = t9243+t531*t9247+t9249-2.0*t565*t9251+t9203*t2017+t9207*t2042+t9210*t2107/2.0; double t9258 = -t8366; double t9259 = t92*t9258; double t9261 = -t8371; double t9262 = t9261*t246; double newdTdbr4 = t9259*t115-t120*t9262+t9203*t2126+t9207*t2142+t9210*t2158/2.0; double t9269 = 4.0*t718; double t9270 = -4.0*t638-t9269-t2286; double t9271 = t92*t9270; double t9273 = 6.0*t789; double t9274 = 6.0*t793; double t9275 = 2.0*t798; double t9276 = 2.0*t792; double t9282 = -t9273-t9274+t9275+t9276-t2293+t2292-8.0*t781+4.0*t797-t2295-4.0*t801-t2290+t2355-4.0*t796+t2291+4.0*t776-t2353; double t9283 = t9282*t246; double newdTdbr5 = -t9271*t115+t120*t9283+t9203*t2186+t9207*t2215+t9210*t2283/2.0; double t9289 = 2.0*t165; double t9291 = -t15-t9+t1+t9289+t95+t97-3.0*t14+t23+t896+t6; double t9292 = t92*t9291; double t9293 = t9292*t115; double t9294 = t124*R2; double t9296 = 2.0*t123*t9294; double t9297 = t128*R2; double t9298 = t123*t9297; double t9299 = t141*t166; double t9300 = t141*t98; double t9301 = t141*t96; double t9302 = t9296-t9298+t9299+t9300-t9301-t1020-t1029-t900+t901-t902-t903-t904; double t9303 = -t905-t2196-t907+t908+t2197-t910+t911+t914+t916-t918-t919+t922; double t9307 = -t923-3.0*t924+t925+t926+t928-t930-t2198-t934+t935+3.0*t936+t938-t1021; double t9310 = t1024+t1030-t1033+t1040+t1046+t1093-2.0*t1095+2.0*t1097-t1102+t1104-t1106-t1112+t1114; double t9312 = t9302+t9303+t9307+t9310; double t9313 = t9312*t246; double t9314 = t120*t9313; double newdTdbr6 = -t9293+t9314+t9203*t2341+t9207*t2405+t9210*t2621/2.0; double t9319 = R2+t7420+R1; double t9320 = t92*t9319; double t9321 = t9320*t529; double t9323 = 2.0*t3086; double t9324 = -t3385+t3095+t3093+2.0*t3393-t3088-t3098+t9323+t3085-t3090-t173+t3092+t3391-t3451-t170+t3096+t3446; double t9326 = t119*t9324*t246; double t9327 = t531*t9326; double newdTdbr7 = t9321-t9327-t8399+2.0*t808*t9251+t9203*t2660+t9207*t2684+t9210*t2749/2.0; double t9334 = t9217+t1396+t392-t1397; double t9335 = t92*t9334; double t9336 = t9335*t115; double t9338 = -t8282-t1442+t1376+t9225-t1364-t9226+t9229-t9231+t9232+t9233+t9234; double t9339 = -t1351+t1368+t1379-t8281-t1355+t8276-t9221+t1432-t9222+t9223+t9338; double t9340 = t9339*t246; double t9341 = t120*t9340; double newdTdbr8 = -t9336+t9341+t9203*t2773+t9207*t2792+t9210*t2816/2.0; double newdTdbr9 = t9293-t9314+t9203*t2840+t9207*t2859+t9210*t2883/2.0; double t9351 = -t8341-t9269-4.0*t644; double t9352 = t92*t9351; double t9359 = -t9273-t9274+t9275+t9276-8.0*t786+4.0*t784-t8347+t2306-4.0*t778-t2308-4.0*t799+t2355-t8345+4.0*t785+t8346-t2353; double t9360 = t9359*t246; double newdTdbr10 = -t9352*t115+t120*t9360+t9203*t2938+t9207*t2968+t9210*t3074/2.0; double t9366 = -t5998; double t9368 = t119*t9366*t246; double newdTdbr11 = -t2662-t531*t9368-2.0*t945*t9251+t9203*t3132+t9207*t3160+t9210*t3252/2.0; double newdTdbr12 = 0.0; double newdTdbr13 = 0.0; double newdTdbr14 = 0.0; double newdTdbr15 = 0.0; double t9376 = t9196*t9196; double t9377 = t3256*t9376; double t9378 = t9377/27.0; double t9379 = 72.0*R1; double t9380 = 72.0*R2; double t9381 = t9193*t9193; double t9384 = 240.0*t3268; double t9385 = 120.0*t30; double t9389 = 24.0*t23*t16; double t9390 = 120.0*t3272; double t9393 = 12.0*t9181; double t9394 = 72.0*t38; double t9397 = 144.0*t24; double t9400 = 12.0*t9188; double t9403 = 72.0*t41; double t9404 = t9384-t9385+48.0*t23*t14+t9389-t9390-24.0*t1*t14-t9393+t9394+288.0*t9*t14+t9397-24.0*t14*t6-t9400+288.0*t16*t14+t9403; double t9407 = t9379-t9380-3.0*t3263*t9381+6.0*t960*t9404; double t9408 = t953*t9407; double t9409 = t9408/18.0; double t9410 = 4.0*t81; double t9411 = br*t992; double t9412 = t9411*t9196; double t9413 = 8.0/3.0*t9412; double t9414 = t3288*t9376; double t9415 = 8.0/3.0*t9414; double t9416 = t993*t9407; double t9417 = 2.0*t9416; double t9418 = -t9378+t9409-t9410+t9413-t9415+t9417; double t9422 = 2.0*t81; double t9425 = t9377/54.0-t9408/36.0+t9422-4.0/3.0*t9412+4.0/3.0*t9414-t9416; double t9428 = t88*(-t9378+t9409+t9410-t9413+t9415-t9417); double t9435 = t9203*t3413+t9207*t3472+t9210*t3579/2.0; double t9441 = t9203*t3472+t9207*t3632+t9210*t3740/2.0; double t9447 = t9203*t3579+t9207*t3740+t9210*t3928/2.0; double newd2Tdbr20 = t9418*t1058+t9425*t1128+t9428*t1330/2.0+t9203*t9435+t9207*t9441+t9210*t9447/2.0; double t9450 = 2.0*t4066; double t9451 = 2.0*t4055; double t9454 = t120*(t4011-t4009+t9450-t4015-t9451)*t246; double t9470 = -t8618+t8619+t8620+t8623-t8626+t9203*t4031+t9207*t4081+t9210*t4175/2.0; double t9476 = -t4505+t8630+t8633+t8640-t8642+t9203*t4081+t9207*t4219+t9210*t4316/2.0; double t9482 = t8648-t8649+t8664-t8666+t9203*t4175+t9207*t4316+t9210*t4498/2.0; double newd2Tdbr21 = t4182+t9454+t9418*t1393-t9203*t8627+t9425*t1452-t9207*t8643+t9428*t1631/2.0-t9210*t8667/2.0+t9203*t9470+t9207*t9476+t9210*t9482/2.0; double t9485 = -t4509; double t9487 = t120*t9485*t246; double t9491 = t997*t9218*t109*t114; double t9492 = t9219*t1002; double t9493 = t9219*t1009; double t9494 = 2.0*t4016; double t9495 = t123*t303; double t9496 = t141*t272; double t9497 = 2.0*t4012; double t9500 = t120*(-t9451+t9450+t9494+t9495-t9496-t9497+t3957-t3958)*t246; double t9501 = t9236*t1052; double t9503 = t120*t9501*t1055; double t9504 = t9491-t9492-t9493-t9500+t9503; double t9505 = t9203*t9504; double t9507 = t9219*t1068; double t9510 = t1070*t119*t9236*t246; double t9511 = 2.0*t9495; double t9512 = 2.0*t9496; double t9513 = t141*t348; double t9514 = 2.0*t4061; double t9515 = -t4053+t4054-t4052-t4017-t9511+t9512+t4013-t9513-t9514-t8556+t8557-t4204-t4064; double t9517 = t120*t9515*t246; double t9519 = t120*t9501*t1125; double t9520 = -t4182-t9507-t9510-t9517+t9519; double t9521 = t9207*t9520; double t9525 = 2.0*t9219*t1137; double t9526 = t1141*t9237; double t9527 = 2.0*t4104; double t9528 = 4.0*t4242; double t9530 = 2.0*t1143*t9227; double t9531 = t1143*t9230; double t9532 = t1154*t319; double t9533 = 2.0*t4117; double t9534 = -t8571-t8572+t4099+t9527+t9528+t9530-t9531-t9532+t4107-t4109+t4247-t9533+t4133-t4140-t4146-t4147+t8580; double t9535 = 2.0*t4266; double t9536 = 2.0*t4276; double t9537 = 4.0*t4289; double t9538 = 4.0*t4291; double t9540 = t123*t1241*omega; double t9542 = t123*t1249*omega; double t9543 = 2.0*t4148; double t9545 = 2.0*t141*t303; double t9547 = 2.0*t123*t272; double t9548 = t123*t348; double t9549 = t9535-t4268-t4273-t9536-t9537-t9538-t9540+t9542-t9543-t9545-t9547+t9548+t8582-t8583-t4151-t4157+t4159; double t9552 = t120*(t9534+t9549)*t246; double t9554 = t120*t9501*t1327; double t9555 = -t9525+t9526-t9552+t9554; double t9557 = t9210*t9555/2.0; double t9562 = t9491-t9492-t9493-t9500+t9503+t9203*t4593+t9207*t4636+t9210*t4718/2.0; double t9568 = -t4182-t9507-t9510-t9517+t9519+t9203*t4636+t9207*t4763+t9210*t4864/2.0; double t9574 = -t9525+t9526-t9552+t9554+t9203*t4718+t9207*t4864+t9210*t5081/2.0; double newd2Tdbr22 = -t4505-t9487+t9418*t1689+t9505+t9425*t1753+t9521+t9428*t1972/2.0+t9557+t9203*t9562+t9207*t9568+t9210*t9574/2.0; double t9577 = t392*t9251; double t9580 = t5094*t14*t1; double t9583 = t1991*R2; double t9585 = 2.0*t565*t9583; double t9587 = t4083*t529; double t9588 = t1454*t1997; double t9589 = t1454*R1; double t9590 = t9589*t1009; double t9591 = t1015*omega; double t9592 = t131*omega; double t9593 = -t9591+t9592; double t9596 = t531*t119*t9593*t246; double t9597 = t9245*t1052; double t9599 = t2013*t9597*t1055; double t9603 = t9589*t1068; double t9604 = t2021*t9247; double t9608 = -t144*omega-2.0*t9592+2.0*t9591; double t9611 = t531*t119*t9608*t246; double t9613 = t2013*t9597*t1125; double t9619 = 2.0*t9589*t1137; double t9622 = t531*t1140*t9245*t246; double t9634 = -t1156*t255-2.0*t1170*omega-t1156*t319+2.0*t1147*t9227-t1147*t9230-2.0*t1176*omega+t135*omega+t1156*t254; double t9637 = t531*t119*t9634*t246; double t9639 = t2013*t9597*t1327; double t9647 = t9587-t9588-t9590+t9596-t9599+t9203*t5207+t9207*t5243+t9210*t5287/2.0; double t9653 = -t9603+t9604+t9611-t9613+t9203*t5243+t9207*t5321+t9210*t5369/2.0; double t9659 = -t9619-t9622+t9637-t9639+t9203*t5287+t9207*t5369+t9210*t5454/2.0; double newd2Tdbr23 = -4.0*t9577+8.0*t565*t9580-t9585+t9418*t2017+t9203*(t9587-t9588-t9590+t9596-t9599)+t9425*t2042+t9207*(-t9603+t9604+t9611-t9613)+t9428*t2107/2.0+t9210*(-t9619-t9622+t9637-t9639)/2.0+t9203*t9647+t9207*t9653+t9210*t9659/2.0; double t9665 = t997*t9258*t109*t114; double t9666 = t9259*t1002; double t9667 = t9259*t1009; double t9670 = -t120*t8966*t246; double t9671 = t9261*t1052; double t9673 = t120*t9671*t1055; double t9677 = t9259*t1068; double t9680 = t1070*t119*t9261*t246; double t9683 = -t120*t8979*t246; double t9685 = t120*t9671*t1125; double t9691 = 2.0*t9259*t1137; double t9692 = t1141*t9262; double t9695 = -t120*t8993*t246; double t9697 = t120*t9671*t1327; double t9705 = t9665-t9666-t9667-t9670+t9673+t9203*t5520+t9207*t5549+t9210*t5573/2.0; double t9711 = -t4505-t9677-t9680-t9683+t9685+t9203*t5549+t9207*t5601+t9210*t5633/2.0; double t9717 = -t9691+t9692-t9695+t9697+t9203*t5573+t9207*t5633+t9210*t5673/2.0; double newd2Tdbr24 = -t4182-t9454+t9418*t2126+t9203*(t9665-t9666-t9667-t9670+t9673)+t9425*t2142+t9207*(-t4505-t9677-t9680-t9683+t9685)+t9428*t2158/2.0+t9210*(-t9691+t9692-t9695+t9697)/2.0+t9203*t9705+t9207*t9711+t9210*t9717/2.0; double t9723 = t92*(-t8457-t7384-2.0*R1)*t115; double t9727 = -t7388-t7391+t7393+t7396-t3087+t3089-8.0*t3393+t3452-t3094-t3447-t3097+t3146-4.0*t3391+t3099+4.0*t3385-t3153; double t9729 = t120*t9727*t246; double t9733 = t997*t9270*t109*t114; double t9734 = t9271*t1002; double t9735 = t9271*t1009; double t9738 = t120*(t2672+t8870-t2671-t8871+t6099-t6098)*t246; double t9739 = t9282*t1052; double t9741 = t120*t9739*t1055; double t9745 = 4.0*t5993; double t9746 = t9271*t1068; double t9749 = t1070*t119*t9282*t246; double t9750 = 12.0*t2631; double t9751 = 6.0*t2633; double t9752 = 6.0*t2630; double t9758 = t120*(-t9750-t9751+t9752-t6020-8.0*t2650+t6021+8.0*t2652-t6022-4.0*t2677-t6228)*t246; double t9760 = t120*t9739*t1125; double t9766 = 2.0*t9271*t1137; double t9767 = t1141*t9283; double t9772 = 12.0*t2711; double t9775 = -t6035+8.0*t2694-t6036+t6037-4.0*t2700-4.0*t2702-8.0*t2705+t6038-t6039-t9772-8.0*t2715+4.0*t2718-t6041; double t9776 = 2.0*t2721; double t9777 = 2.0*t2722; double t9779 = 6.0*t2728; double t9780 = 6.0*t2732; double t9782 = 6.0*t2737; double t9783 = 6.0*t2740; double t9784 = t9776-t9777+4.0*t2724-t6299+t6042+t9779-t6301-t9780-4.0*t2735-t6043-t9782+t6305+t9783; double t9787 = t120*(t9775+t9784)*t246; double t9789 = t120*t9739*t1327; double t9797 = -t9733+t9734+t9735+t9738-t9741+t9203*t5747+t9207*t5781+t9210*t5820/2.0; double t9803 = t9745+t9746+t9749+t9758-t9760+t9203*t5781+t9207*t5852+t9210*t5902/2.0; double t9809 = t9766-t9767+t9787-t9789+t9203*t5820+t9207*t5902+t9210*t5987/2.0; double newd2Tdbr25 = -t9723+t9729+t9418*t2186+t9203*(-t9733+t9734+t9735+t9738-t9741)+t9425*t2215+t9207*(t9745+t9746+t9749+t9758-t9760)+t9428*t2283/2.0+t9210*(t9766-t9767+t9787-t9789)/2.0+t9203*t9797+t9207*t9803+t9210*t9809/2.0; double t9812 = 6.0*t5993; double t9815 = t120*(-t6238-t9750+t6233-t9751+t9752)*t246; double t9819 = t997*t9291*t109*t114; double t9820 = t9292*t1002; double t9821 = t9292*t1009; double t9822 = 2.0*t3451; double t9823 = 2.0*t3446; double t9824 = t123*t1195; double t9825 = t141*t165; double t9826 = t3094-t3089-t9822+t9823-t173-t170+t3085+t3092-t9824+t9825-t3118; double t9829 = -t3113+t3119+t3387-t3389+t3116-t3114-t3381+t3383-t3122+3.0*t3120+t3124-3.0*t3115; double t9832 = t120*(t9826+t9829)*t246; double t9833 = t9312*t1052; double t9835 = t120*t9833*t1055; double t9836 = -t9819+t9820+t9821+t9832-t9835; double t9842 = t92*(2.0*R2+2.0*E5+2.0*R1)*t115; double t9843 = t9292*t1068; double t9846 = t1070*t119*t9312*t246; double t9847 = 2.0*t9824; double t9848 = 2.0*t9825; double t9849 = t141*t202; double t9850 = t9847-t9848+t9849-t3146+t3153+t3138-t3149+t3137+t3150+t5838-t3148-t3144-t5837+t3147-t3152; double t9852 = t3136+t3143-t3139-3.0*t3140+t3141+t3142+t3433+t3382-t3384-t3438-t3388+t3390+t3439-t3441+t3444+t3611; double t9855 = t120*(t9850+t9852)*t246; double t9857 = t120*t9833*t1125; double t9858 = -t9842+t9843+t9846+t9855-t9857; double t9863 = 2.0*t9292*t1137; double t9864 = t1141*t9313; double t9866 = t123*t1241*R2; double t9868 = t123*t1249*R2; double t9870 = 2.0*t141*t1195; double t9872 = 2.0*t123*t165; double t9873 = t123*t202; double t9875 = t9866-t9868+t9870+t9872-t9873-t3169-t3171+t3172+t3173+t3176-t3177-3.0*t3178+t3179+t3180-t3183+t3185+t5879+t3190+t3192+t3193; double t9876 = -t3194-t3195-t3196-t3197-t5881+t3199+t3200+t5882-t3204+t3205+t3207-t3209+t3211+t3213-t3214-t3215+t3217-t3219-t5883-t3224; double t9880 = t3225+3.0*t3226-t3228+t3230-t3232-t3234-t5884+t3239-t3240-3.0*t3241+t3243-t3512+t3517-t3519+t3522-t3527+t3531-t3536+t3538+t3541; double t9891 = t3546-t3548-t3555+t3557-t3682+t3685+t3687-t3689+t3702+t3704+2.0*t3707-2.0*t3710-2.0*t3712+2.0*t3714-2.0*t3716+2.0*t3718-t3720-2.0*t1143*t9294+t1143*t9297+t1154*t166; double t9895 = t120*(t9875+t9876+t9880+t9891)*t246; double t9897 = t120*t9833*t1327; double t9898 = -t7446+t9863-t9864+t9895-t9897; double t9905 = -t9819+t9820+t9821+t9832-t9835+t9203*t6082+t9207*t6124+t9210*t6206/2.0; double t9911 = -t9842+t9843+t9846+t9855-t9857+t9203*t6124+t9207*t6251+t9210*t6352/2.0; double t9917 = -t7446+t9863-t9864+t9895-t9897+t9203*t6206+t9207*t6352+t9210*t6566/2.0; double newd2Tdbr26 = t9812+t9815+t9418*t2341+t9203*t9836+t9425*t2405+t9207*t9858+t9428*t2621/2.0+t9210*t9898/2.0+t9203*t9905+t9207*t9911+t9210*t9917/2.0; double t9920 = t2*t9250; double t9925 = 2.0*t808*t9583; double t9928 = t997*t9319*t529; double t9929 = t9320*t1997; double t9930 = t9320*R1; double t9931 = t9930*t1009; double t9932 = t131*R2; double t9933 = t1015*R2; double t9937 = t531*t119*(t7827+t7853-t476-t7826-t9932+t9933)*t246; double t9938 = t9324*t1052; double t9940 = t2013*t9938*t1055; double t9941 = t9928-t9929-t9931-t9937+t9940; double t9944 = t9930*t1068; double t9945 = t2021*t9326; double t9952 = t531*t119*(-2.0*t9933+t198+t486+2.0*t9932-t7951+t7950+t7872-t7877+t7874+t144*R2)*t246; double t9954 = t2013*t9938*t1125; double t9955 = t7608-t9944-t9945-t9952+t9954; double t9960 = 2.0*t9930*t1137; double t9963 = t531*t1140*t9324*t246; double t9971 = 2.0*t1176*R2+2.0*t1170*R2-t135*R2+t7907-t7909-t7913+t7918+t7922+t7925+2.0*t7900-t481+t7904+2.0*t7905; double t9979 = -t7911+t7920+t7899-t191-t7903-t1156*t96+t1156*t98-2.0*t7914+t7916+t7923-2.0*t1147*t9294+t1147*t9297+t1156*t166; double t9983 = t531*t119*(t9971+t9979)*t246; double t9985 = t2013*t9938*t1327; double t9986 = -t9960+t9963-t9983+t9985; double t9993 = t9928-t9929-t9931-t9937+t9940+t9203*t6684+t9207*t6714+t9210*t6752/2.0; double t9999 = t7608-t9944-t9945-t9952+t9954+t9203*t6714+t9207*t6784+t9210*t6828/2.0; double t10005 = -t9960+t9963-t9983+t9985+t9203*t6752+t9207*t6828+t9210*t6913/2.0; double newd2Tdbr27 = 4.0*t9920-8.0*t808*t9580+t9925+t9418*t2660+t9203*t9941+t9425*t2684+t9207*t9955+t9428*t2749/2.0+t9210*t9986/2.0+t9203*t9993+t9207*t9999+t9210*t10005/2.0; double t10011 = t997*t9334*t109*t114; double t10012 = t9335*t1002; double t10013 = t9335*t1009; double t10016 = t120*(t9451-t9450-t9494-t9495+t9496+t9497+t3957-t3958)*t246; double t10017 = t9339*t1052; double t10019 = t120*t10017*t1055; double t10020 = -t10011+t10012+t10013+t10016-t10019; double t10021 = t9203*t10020; double t10023 = t9335*t1068; double t10026 = t1070*t119*t9339*t246; double t10027 = t4053-t4054+t4052+t4017+t9511-t9512-t4013+t9513+t9514-t8556+t8557+t4204-t4064; double t10029 = t120*t10027*t246; double t10031 = t120*t10017*t1125; double t10032 = -t4182+t10023+t10026+t10029-t10031; double t10033 = t9207*t10032; double t10037 = 2.0*t9335*t1137; double t10038 = t1141*t9340; double t10039 = -t8571-t8572+t4099-t9527-t9528-t9530+t9531+t9532-t4107+t4109-t4247+t9533-t4133+t4140-t4146-t4147+t8580; double t10040 = -t9535+t4268+t4273+t9536+t9537+t9538+t9540-t9542+t9543+t9545+t9547-t9548+t8582-t8583+t4151+t4157-t4159; double t10043 = t120*(t10039+t10040)*t246; double t10045 = t120*t10017*t1327; double t10046 = t10037-t10038+t10043-t10045; double t10048 = t9210*t10046/2.0; double t10053 = -t10011+t10012+t10013+t10016-t10019+t9203*t6989+t9207*t7018+t9210*t7046/2.0; double t10059 = -t4182+t10023+t10026+t10029-t10031+t9203*t7018+t9207*t7074+t9210*t7106/2.0; double t10065 = t10037-t10038+t10043-t10045+t9203*t7046+t9207*t7106+t9210*t7145/2.0; double newd2Tdbr28 = t4505+t9487+t9418*t2773+t10021+t9425*t2792+t10033+t9428*t2816/2.0+t10048+t9203*t10053+t9207*t10059+t9210*t10065/2.0; double t10083 = t9819-t9820-t9821-t9832+t9835+t9203*t7221+t9207*t7250+t9210*t7277/2.0; double t10089 = t9842-t9843-t9846-t9855+t9857+t9203*t7250+t9207*t7305+t9210*t7337/2.0; double t10095 = t7446-t9863+t9864-t9895+t9897+t9203*t7277+t9207*t7337+t9210*t7377/2.0; double newd2Tdbr29 = -t9812-t9815+t9418*t2840-t9203*t9836+t9425*t2859-t9207*t9858+t9428*t2883/2.0-t9210*t9898/2.0+t9203*t10083+t9207*t10089+t9210*t10095/2.0; double t10098 = 2.0*R2; double t10101 = t92*(-t10098-t7384-t7419)*t115; double t10105 = -t7388-t7391+t7393+t7396-8.0*t3086+t7407-t3394+t9822-t7409-t9823-4.0*t3096+t3146-t3392+4.0*t3098+t3386-t3153; double t10107 = t120*t10105*t246; double t10111 = t997*t9351*t109*t114; double t10112 = t9352*t1002; double t10113 = t9352*t1009; double t10116 = t120*(t6020+t2670-t6021-t2666+t6099-t6098)*t246; double t10117 = t9359*t1052; double t10119 = t120*t10117*t1055; double t10123 = t9352*t1068; double t10126 = t1070*t119*t9359*t246; double t10132 = t120*(-t9750-t9751+t9752-8.0*t2648-t8870+8.0*t2646+t8871-4.0*t2668-t6110-t6228)*t246; double t10134 = t120*t10117*t1125; double t10140 = 2.0*t9352*t1137; double t10141 = t1141*t9360; double t10148 = -4.0*t2691+t8885-4.0*t2697+8.0*t2698-t6143-t6145-t8887+4.0*t2708-8.0*t2709-t9772-t8889+t6147-8.0*t2719; double t10151 = t9776-t9777+t8892-t6299+4.0*t2726+t9779-t6301-t9780-t8894-4.0*t2736-t9782+t6305+t9783; double t10154 = t120*(t10148+t10151)*t246; double t10156 = t120*t10117*t1327; double t10164 = -t10111+t10112+t10113+t10116-t10119+t9203*t7521+t9207*t7551+t9210*t7600/2.0; double t10170 = t9745+t10123+t10126+t10132-t10134+t9203*t7551+t9207*t7634+t9210*t7686/2.0; double t10176 = t10140-t10141+t10154-t10156+t9203*t7600+t9207*t7686+t9210*t7814/2.0; double newd2Tdbr210 = -t10101+t10107+t9418*t2938+t9203*(-t10111+t10112+t10113+t10116-t10119)+t9425*t2968+t9207*(t9745+t10123+t10126+t10132-t10134)+t9428*t3074/2.0+t9210*(t10140-t10141+t10154-t10156)/2.0+t9203*t10164+t9207*t10170+t9210*t10176/2.0; double t10182 = -t531*t119*t7830*t246; double t10186 = 2.0*t945*t9583; double t10191 = -t531*t119*t6670*t246; double t10192 = t9366*t1052; double t10194 = t2013*t10192*t1055; double t10198 = 2.0*t6605; double t10199 = t2021*t9368; double t10205 = t531*t119*(-t6696-4.0*t6593+4.0*t6592)*t246; double t10207 = t2013*t10192*t1125; double t10214 = t531*t1140*t9366*t246; double t10223 = t531*t119*(-4.0*t6637+t6737-4.0*t6639-2.0*t6641+2.0*t6636-t6726+4.0*t6644-t6729)*t246; double t10225 = t2013*t10192*t1327; double t10233 = -t6686+t6687+t6688-t10191+t10194+t9203*t7966+t9207*t7991+t9210*t8035/2.0; double t10239 = t10198-t10199-t10205+t10207+t9203*t7991+t9207*t8070+t9210*t8123/2.0; double t10245 = t6786+t10214-t10223+t10225+t9203*t8035+t9207*t8123+t9210*t8235/2.0; double newd2Tdbr211 = -t7608-t10182+8.0*t945*t9580-t10186+t9418*t3132+t9203*(-t6686+t6687+t6688-t10191+t10194)+t9425*t3160+t9207*(t10198-t10199-t10205+t10207)+t9428*t3252/2.0+t9210*(t6786+t10214-t10223+t10225)/2.0+t9203*t10233+t9207*t10239+t9210*t10245/2.0; double newd2Tdbr212 = 0.0; double newd2Tdbr213 = 0.0; double newd2Tdbr214 = 0.0; double newd2Tdbr215 = 0.0; double t10249 = 4.0*t416; double t10250 = -4.0*t258-t10249-t1634; double t10251 = t92*t10250; double t10253 = 6.0*t532; double t10254 = 6.0*t536; double t10255 = 2.0*t546; double t10256 = 2.0*t535; double t10262 = -t10253-t10254+t10255+t10256-t1642+t1643-8.0*t550+4.0*t554-t1640-4.0*t548-t1638+t1702-4.0*t538+t1639+4.0*t556-t1709; double t10263 = t10262*t246; double t10286 = 240.0*t23*t380-120.0*t30*bi+24.0*t23*t16*bi-120.0*t380*t6-12.0*t9181*bi+72.0*t38*bi+144.0*t24*bi-12.0*t9188*bi+72.0*t41*bi; double t10289 = 72.0*t388-72.0*t258+6.0*t960*t10286; double t10290 = t953*t10289; double t10291 = t10290/18.0; double t10292 = bi*t81; double t10293 = 4.0*t10292; double t10294 = t993*t10289; double t10295 = 2.0*t10294; double t10296 = t10291-t10293+t10295; double t10300 = -t10290/36.0+2.0*t10292-t10294; double t10303 = t88*(t10291+t10293-t10295); double newdTdbi0 = -t10251*t115+t120*t10263+t10296*t1058+t10300*t1128+t10303*t1330/2.0; double newdTdbi1 = -t8380+t8384+t10296*t1393+t10300*t1452+t10303*t1631/2.0; double t10311 = t1+t9289+t95+t97-t9-3.0*t15-t14+t23+t896+t6; double t10312 = t92*t10311; double t10313 = t10312*t115; double t10314 = t9296-t9298+t9299+t9300-t9301-t1020-t1029-t900+t901-t1076-t903-t904; double t10315 = -t905-t906-t907+t1077+t909-t910+t911+t914+t916-t918-t919+t922; double t10319 = -3.0*t923-t924+t925+t926+t928-t1078-t932-t934+3.0*t935+t936+t938-t1021; double t10321 = t10314+t10315+t10319+t9310; double t10322 = t10321*t246; double t10323 = t120*t10322; double newdTdbi2 = t10313-t10323+t10296*t1689+t10300*t1753+t10303*t1972/2.0; double t10328 = t1991*bi; double t10329 = t10328*R2; double newdTdbi3 = -t9321+t9327+t8399-2.0*t565*t10329+t10296*t2017+t10300*t2042+t10303*t2107/2.0; double t10336 = -t8342; double t10337 = t92*t10336; double t10339 = -t8353; double t10340 = t10339*t246; double newdTdbi4 = t10337*t115-t120*t10340+t10296*t2126+t10300*t2142+t10303*t2158/2.0; double newdTdbi5 = t10296*t2186+t10300*t2215+t10303*t2283/2.0; double newdTdbi6 = -t9336+t9341+t10296*t2341+t10300*t2405+t10303*t2621/2.0; double t10354 = -t9245; double t10356 = t119*t10354*t246; double newdTdbi7 = t9243-t531*t10356+t9249+2.0*t808*t10329+t10296*t2660+t10300*t2684+t10303*t2749/2.0; double newdTdbi8 = -t10313+t10323+t10296*t2773+t10300*t2792+t10303*t2816/2.0; double newdTdbi9 = t9220-t9238+t10296*t2840+t10300*t2859+t10303*t2883/2.0; double t10373 = -t8290-t10249-4.0*t388; double t10374 = t92*t10373; double t10381 = -t10253-t10254+t10255+t10256-8.0*t540+4.0*t542-t8299+t1655-4.0*t547-t1653-4.0*t544+t1702-t8295+4.0*t543+t8296-t1709; double t10382 = t10381*t246; double newdTdbi10 = -t10374*t115+t120*t10382+t10296*t2938+t10300*t2968+t10303*t3074/2.0; double t10389 = t119*t9485*t246; double newdTdbi11 = -t2019-t531*t10389-2.0*t945*t10329+t10296*t3132+t10300*t3160+t10303*t3252/2.0; double newdTdbi12 = 0.0; double newdTdbi13 = 0.0; double newdTdbi14 = 0.0; double newdTdbi15 = 0.0; double t10397 = t10289*t10289; double t10398 = t3256*t10397; double t10399 = t10398/27.0; double t10400 = t10286*t10286; double t10413 = t9384-t9385+48.0*t23*t15+t9389-t9390-24.0*t1*t15-t9393+t9394+288.0*t9*t15+t9397-24.0*t15*t6-t9400+288.0*t16*t15+t9403; double t10416 = t9379-t9380-3.0*t3263*t10400+6.0*t960*t10413; double t10417 = t953*t10416; double t10418 = t10417/18.0; double t10419 = bi*t992; double t10420 = t10419*t10289; double t10421 = 8.0/3.0*t10420; double t10422 = t3288*t10397; double t10423 = 8.0/3.0*t10422; double t10424 = t993*t10416; double t10425 = 2.0*t10424; double t10426 = -t10399+t10418-t9410+t10421-t10423+t10425; double t10430 = t997*t10250*t109*t114; double t10431 = t10251*t1002; double t10432 = t10251*t1009; double t10435 = t120*(t2026+t8637-t2027-t8636+t4609-t4610)*t246; double t10436 = t10262*t1052; double t10438 = t120*t10436*t1055; double t10439 = -t10430+t10431+t10432+t10435-t10438; double t10445 = t10398/54.0-t10417/36.0+t9422-4.0/3.0*t10420+4.0/3.0*t10422-t10424; double t10447 = 4.0*t4504; double t10448 = t10251*t1068; double t10451 = t1070*t119*t10262*t246; double t10452 = 12.0*t1979; double t10453 = 6.0*t1983; double t10454 = 6.0*t1982; double t10460 = t120*(-t10452-t10453+t10454-t4532-8.0*t2006+t4531+8.0*t2004-t4533-4.0*t2029-t4738)*t246; double t10462 = t120*t10436*t1125; double t10463 = t10447+t10448+t10451+t10460-t10462; double t10466 = t88*(-t10399+t10418+t9410-t10421+t10423-t10425); double t10470 = 2.0*t10251*t1137; double t10471 = t1141*t10263; double t10475 = 6.0*t2061; double t10476 = 6.0*t2064; double t10477 = 12.0*t2071; double t10478 = t4546-t4547-t4548-4.0*t2053+8.0*t2055-4.0*t2059-t10475+t4828+t10476-t4549+t4550-t4551-t10477; double t10480 = 2.0*t2078; double t10481 = 2.0*t2079; double t10484 = 6.0*t2090; double t10485 = 6.0*t2094; double t10488 = -8.0*t2073+t10480-t10481-8.0*t2080+4.0*t2084+t4553-t4554+t10484-t4839-t10485-4.0*t2096+4.0*t2097-t4843; double t10491 = t120*(t10478+t10488)*t246; double t10493 = t120*t10436*t1327; double t10494 = t10470-t10471+t10491-t10493; double newd2Tdbi20 = -t9723+t9729+t10426*t1058+t10296*t10439+t10445*t1128+t10300*t10463+t10466*t1330/2.0+t10303*t10494/2.0+t10296*(-t10430+t10431+t10432+t10435-t10438+t10296*t3413+t10300*t3472+t10303*t3579/2.0)+t10300*(t10447+t10448+t10451+t10460-t10462+t10296*t3472+t10300*t3632+t10303*t3740/2.0)+t10303*(t10470-t10471+t10491-t10493+t10296*t3579+t10300*t3740+t10303*t3928/2.0)/2.0; double t10517 = -t9032; double t10520 = -t9044; double t10524 = -t9058; double newd2Tdbi21 = t4182+t9454+t10426*t1393+t10296*t10517+t10445*t1452+t10300*t10520+t10466*t1631/2.0+t10303*t10524/2.0+t10296*(-t9023+t9024+t9025+t9028-t9031+t10296*t4031+t10300*t4081+t10303*t4175/2.0)+t10300*(-t5994+t9035+t9038+t9041-t9043+t10296*t4081+t10300*t4219+t10303*t4316/2.0)+t10303*(t9049-t9050+t9055-t9057+t10296*t4175+t10300*t4316+t10303*t4498/2.0)/2.0; double t10546 = 6.0*t4504; double t10549 = t120*(-t4750-t10452+t4745-t10453+t10454)*t246; double t10553 = t997*t10311*t109*t114; double t10554 = t10312*t1002; double t10555 = t10312*t1009; double t10558 = t3383-t3381+t3116-t3113-t3389+t3387+t3120-t3115-t3122+3.0*t3119+t3124-3.0*t3114; double t10561 = t120*(t9826+t10558)*t246; double t10562 = t10321*t1052; double t10564 = t120*t10562*t1055; double t10565 = t10553-t10554-t10555-t10561+t10564; double t10568 = t10312*t1068; double t10571 = t1070*t119*t10321*t246; double t10572 = t9847-t9848+t9849-t3146+t3153+t3138-t3149+t3137+t3602+t3151-t3148-t3601-t3145+t3147-t3152; double t10574 = t3136+t3143-3.0*t3139-t3140+t3141+t3142+t3433+t3382-t3384-t3438-t3388+t3390+t3439-t3441+t3444+t3611; double t10577 = t120*(t10572+t10574)*t246; double t10579 = t120*t10562*t1125; double t10580 = t9842-t10568-t10571-t10577+t10579; double t10585 = 2.0*t10312*t1137; double t10586 = t1141*t10322; double t10588 = t9866-t9868+t9870+t9872-t9873-t3169-t3171+t3172+t3173+t3176-3.0*t3177-t3178+t3179+t3180-t3183+t3649+t3188+t3190+t3192+t3193; double t10589 = -t3650-t3195-t3196-t3197-t3198+t3199+t3651+t3201-t3204+t3205+t3207-t3209+t3211+t3213-t3214-t3215+t3217-t3652-t3221-t3224; double t10593 = 3.0*t3225+t3226-t3228+t3230-t3653-t3234-t3236+t3239-3.0*t3240-t3241+t3243-t3512+t3517-t3519+t3522-t3527+t3531-t3536+t3538+t3541; double t10597 = t120*(t10588+t10589+t10593+t9891)*t246; double t10599 = t120*t10562*t1327; double t10600 = t7446-t10585+t10586-t10597+t10599; double newd2Tdbi22 = -t10546-t10549+t10426*t1689+t10296*t10565+t10445*t1753+t10300*t10580+t10466*t1972/2.0+t10303*t10600/2.0+t10296*(t10553-t10554-t10555-t10561+t10564+t10296*t4593+t10300*t4636+t10303*t4718/2.0)+t10300*(t9842-t10568-t10571-t10577+t10579+t10296*t4636+t10300*t4763+t10303*t4864/2.0)+t10303*(t7446-t10585+t10586-t10597+t10599+t10296*t4718+t10300*t4864+t10303*t5081/2.0)/2.0; double t10622 = t2*t10328; double t10625 = t5094*t15*t1; double t10629 = -t9941; double t10632 = -t9955; double t10636 = -t9986; double newd2Tdbi23 = -4.0*t10622+8.0*t565*t10625-t9585+t10426*t2017+t10296*t10629+t10445*t2042+t10300*t10632+t10466*t2107/2.0+t10303*t10636/2.0+t10296*(-t9928+t9929+t9931+t9937-t9940+t10296*t5207+t10300*t5243+t10303*t5287/2.0)+t10300*(-t7608+t9944+t9945+t9952-t9954+t10296*t5243+t10300*t5321+t10303*t5369/2.0)+t10303*(t9960-t9963+t9983-t9985+t10296*t5287+t10300*t5369+t10303*t5454/2.0)/2.0; double t10661 = t997*t10336*t109*t114; double t10662 = t10337*t1002; double t10663 = t10337*t1009; double t10666 = -t120*t8855*t246; double t10667 = t10339*t1052; double t10669 = t120*t10667*t1055; double t10670 = t10661-t10662-t10663-t10666+t10669; double t10673 = t10337*t1068; double t10676 = t1070*t119*t10339*t246; double t10679 = -t120*t8872*t246; double t10681 = t120*t10667*t1125; double t10682 = -t5994-t10673-t10676-t10679+t10681; double t10687 = 2.0*t10337*t1137; double t10688 = t1141*t10340; double t10691 = -t120*t8896*t246; double t10693 = t120*t10667*t1327; double t10694 = -t10687+t10688-t10691+t10693; double newd2Tdbi24 = -t4182-t9454+t10426*t2126+t10296*t10670+t10445*t2142+t10300*t10682+t10466*t2158/2.0+t10303*t10694/2.0+t10296*(t10661-t10662-t10663-t10666+t10669+t10296*t5520+t10300*t5549+t10303*t5573/2.0)+t10300*(-t5994-t10673-t10676-t10679+t10681+t10296*t5549+t10300*t5601+t10303*t5633/2.0)+t10303*(-t10687+t10688-t10691+t10693+t10296*t5573+t10300*t5633+t10303*t5673/2.0)/2.0; double newd2Tdbi25 = t10426*t2186+t10445*t2215+t10466*t2283/2.0+t10296*(t10296*t5747+t10300*t5781+t10303*t5820/2.0)+t10300*(t10296*t5781+t10300*t5852+t10303*t5902/2.0)+t10303*(t10296*t5820+t10300*t5902+t10303*t5987/2.0)/2.0; double t10740 = t120*t9366*t246; double newd2Tdbi26 = t5994+t10740+t10426*t2341+t10296*t10020+t10445*t2405+t10300*t10032+t10466*t2621/2.0+t10303*t10046/2.0+t10296*(-t10011+t10012+t10013+t10016-t10019+t10296*t6082+t10300*t6124+t10303*t6206/2.0)+t10300*(-t4182+t10023+t10026+t10029-t10031+t10296*t6124+t10300*t6251+t10303*t6352/2.0)+t10303*(t10037-t10038+t10043-t10045+t10296*t6206+t10300*t6352+t10303*t6566/2.0)/2.0; double t10768 = t392*t10329; double t10776 = -t531*t119*t9593*t246; double t10777 = t10354*t1052; double t10779 = t2013*t10777*t1055; double t10780 = t9587-t9588-t9590-t10776+t10779; double t10783 = t2021*t10356; double t10787 = -t531*t119*t9608*t246; double t10789 = t2013*t10777*t1125; double t10790 = -t9603-t10783-t10787+t10789; double t10796 = t531*t1140*t10354*t246; double t10800 = -t531*t119*t9634*t246; double t10802 = t2013*t10777*t1327; double t10803 = -t9619+t10796-t10800+t10802; double newd2Tdbi27 = -4.0*t10768-8.0*t808*t10625+t9925+t10426*t2660+t10296*t10780+t10445*t2684+t10300*t10790+t10466*t2749/2.0+t10303*t10803/2.0+t10296*(t9587-t9588-t9590-t10776+t10779+t10296*t6684+t10300*t6714+t10303*t6752/2.0)+t10300*(-t9603-t10783-t10787+t10789+t10296*t6714+t10300*t6784+t10303*t6828/2.0)+t10303*(-t9619+t10796-t10800+t10802+t10296*t6752+t10300*t6828+t10303*t6913/2.0)/2.0; double t10826 = -t10565; double t10829 = -t10580; double t10833 = -t10600; double newd2Tdbi28 = t10546+t10549+t10426*t2773+t10296*t10826+t10445*t2792+t10300*t10829+t10466*t2816/2.0+t10303*t10833/2.0+t10296*(-t10553+t10554+t10555+t10561-t10564+t10296*t6989+t10300*t7018+t10303*t7046/2.0)+t10300*(-t9842+t10568+t10571+t10577-t10579+t10296*t7018+t10300*t7074+t10303*t7106/2.0)+t10303*(-t7446+t10585-t10586+t10597-t10599+t10296*t7046+t10300*t7106+t10303*t7145/2.0)/2.0; double newd2Tdbi29 = -t5994-t10740+t10426*t2840+t10296*t9504+t10445*t2859+t10300*t9520+t10466*t2883/2.0+t10303*t9555/2.0+t10296*(t9491-t9492-t9493-t9500+t9503+t10296*t7221+t10300*t7250+t10303*t7277/2.0)+t10300*(-t4182-t9507-t9510-t9517+t9519+t10296*t7250+t10300*t7305+t10303*t7337/2.0)+t10303*(-t9525+t9526-t9552+t9554+t10296*t7277+t10300*t7337+t10303*t7377/2.0)/2.0; double t10885 = t997*t10373*t109*t114; double t10886 = t10374*t1002; double t10887 = t10374*t1009; double t10890 = t120*(t4532+t2031-t4531-t2033+t4609-t4610)*t246; double t10891 = t10381*t1052; double t10893 = t120*t10891*t1055; double t10894 = -t10885+t10886+t10887+t10890-t10893; double t10897 = t10374*t1068; double t10900 = t1070*t119*t10381*t246; double t10906 = t120*(-t10452-t10453+t10454-8.0*t2002-t8637+8.0*t2003+t8636-4.0*t2028-t4618-t4738)*t246; double t10908 = t120*t10891*t1125; double t10909 = t10447+t10897+t10900+t10906-t10908; double t10914 = 2.0*t10374*t1137; double t10915 = t1141*t10382; double t10922 = 8.0*t2049-4.0*t2051-4.0*t2052-t4692+t8650-t4694-t10475+t4828+t10476-8.0*t2066+4.0*t2068-8.0*t2069-t10477; double t10925 = -t8652+t10480-t10481-t8655+t4697+4.0*t2087-4.0*t2088+t10484-t4839-t10485-t8658+t8659-t4843; double t10928 = t120*(t10922+t10925)*t246; double t10930 = t120*t10891*t1327; double t10931 = t10914-t10915+t10928-t10930; double newd2Tdbi210 = -t10101+t10107+t10426*t2938+t10296*t10894+t10445*t2968+t10300*t10909+t10466*t3074/2.0+t10303*t10931/2.0+t10296*(-t10885+t10886+t10887+t10890-t10893+t10296*t7521+t10300*t7551+t10303*t7600/2.0)+t10300*(t10447+t10897+t10900+t10906-t10908+t10296*t7551+t10300*t7634+t10303*t7686/2.0)+t10303*(t10914-t10915+t10928-t10930+t10296*t7600+t10300*t7686+t10303*t7814/2.0)/2.0; double t10959 = -t531*t119*t5193*t246; double t10960 = t9485*t1052; double t10962 = t2013*t10960*t1055; double t10963 = -t5209+t5210+t5211-t10959+t10962; double t10966 = 2.0*t5123; double t10967 = t2021*t10389; double t10973 = t531*t119*(-t5227-4.0*t5110+4.0*t5111)*t246; double t10975 = t2013*t10960*t1125; double t10976 = t10966-t10967-t10973+t10975; double t10982 = t531*t1140*t9485*t246; double t10991 = t531*t119*(-4.0*t5153+t5268-4.0*t5157-2.0*t5159+2.0*t5156-t5271+4.0*t5160-t5261)*t246; double t10993 = t2013*t10960*t1327; double t10994 = t5323+t10982-t10991+t10993; double newd2Tdbi211 = -t7608-t10182+8.0*t945*t10625-t10186+t10426*t3132+t10296*t10963+t10445*t3160+t10300*t10976+t10466*t3252/2.0+t10303*t10994/2.0+t10296*(-t5209+t5210+t5211-t10959+t10962+t10296*t7966+t10300*t7991+t10303*t8035/2.0)+t10300*(t10966-t10967-t10973+t10975+t10296*t7991+t10300*t8070+t10303*t8123/2.0)+t10303*(t5323+t10982-t10991+t10993+t10296*t8035+t10300*t8123+t10303*t8235/2.0)/2.0; double newd2Tdbi212 = 0.0; double newd2Tdbi213 = 0.0; double newd2Tdbi214 = 0.0; double newd2Tdbi215 = 0.0; double t11017 = t3256*t9196*t10289; double t11018 = t11017/27.0; double t11024 = t375*br; double t11035 = -3.0*t3263*t9193*t10286+6.0*t960*(48.0*t23*t261-24.0*t11024+288.0*t380*br-24.0*t394*br+288.0*t9176*bi); double t11036 = t953*t11035; double t11037 = t11036/18.0; double t11038 = t9411*t10289; double t11039 = 4.0/3.0*t11038; double t11040 = t10419*t9196; double t11041 = 4.0/3.0*t11040; double t11043 = t3288*t9196*t10289; double t11044 = 8.0/3.0*t11043; double t11045 = t993*t11035; double t11046 = 2.0*t11045; double t11047 = -t11018+t11037+t11039+t11041-t11044+t11046; double t11055 = t11017/54.0-t11036/36.0-2.0/3.0*t11038-2.0/3.0*t11040+4.0/3.0*t11043-t11045; double t11059 = t88*(-t11018+t11037-t11039-t11041+t11044-t11046); double newd2Tdbrbi0 = t11047*t1058+t9203*t10439+t11055*t1128+t9207*t10463+t11059*t1330/2.0+t9210*t10494/2.0+t10296*t9435+t10300*t9441+t10303*t9447/2.0; double t11068 = t10098+t7420+R1; double t11071 = -t170+t3085+t3092+t3392-t3386-t173+t9823+t3095-t3098+t3096+t3394-t9822-t3090+t9323-t3088+t3093; double newd2Tdbrbi1 = -t92*t11068*t115+t120*t11071*t246+t11047*t1393+t9203*t10517+t11055*t1452+t9207*t10520+t11059*t1631/2.0+t9210*t10524/2.0+t10296*t9470+t10300*t9476+t10303*t9482/2.0; double newd2Tdbrbi2 = -t5994-t10740+t11047*t1689+t9203*t10565+t11055*t1753+t9207*t10580+t11059*t1972/2.0+t9210*t10600/2.0+t10296*t9562+t10300*t9568+t10303*t9574/2.0; double newd2Tdbrbi3 = -2.0*t10768-2.0*t9920+8.0*t565*t5094*t11024+t11047*t2017+t9203*t10629+t11055*t2042+t9207*t10632+t11059*t2107/2.0+t9210*t10636/2.0+t10296*t9647+t10300*t9653+t10303*t9659/2.0; double newd2Tdbrbi4 = -t92*t11068*t115+t120*t11071*t246+t11047*t2126+t9203*t10670+t11055*t2142+t9207*t10682+t11059*t2158/2.0+t9210*t10694/2.0+t10296*t9705+t10300*t9711+t10303*t9717/2.0; double newd2Tdbrbi5 = t11047*t2186+t11055*t2215+t11059*t2283/2.0+t10296*t9797+t10300*t9803+t10303*t9809/2.0; double newd2Tdbrbi6 = t4505+t9487+t11047*t2341+t10021+t11055*t2405+t10033+t11059*t2621/2.0+t10048+t10296*t9905+t10300*t9911+t10303*t9917/2.0; double newd2Tdbrbi7 = 2.0*t10622-2.0*t9577-8.0*t808*t5094*t11024+t11047*t2660+t9203*t10780+t11055*t2684+t9207*t10790+t11059*t2749/2.0+t9210*t10803/2.0+t10296*t9993+t10300*t9999+t10303*t10005/2.0; double newd2Tdbrbi8 = t5994+t10740+t11047*t2773+t9203*t10826+t11055*t2792+t9207*t10829+t11059*t2816/2.0+t9210*t10833/2.0+t10296*t10053+t10300*t10059+t10303*t10065/2.0; double newd2Tdbrbi9 = -t4505-t9487+t11047*t2840+t9505+t11055*t2859+t9521+t11059*t2883/2.0+t9557+t10296*t10083+t10300*t10089+t10303*t10095/2.0; double newd2Tdbrbi10 = t11047*t2938+t9203*t10894+t11055*t2968+t9207*t10909+t11059*t3074/2.0+t9210*t10931/2.0+t10296*t10164+t10300*t10170+t10303*t10176/2.0; double newd2Tdbrbi11 = 8.0*t945*t5094*t11024+t11047*t3132+t9203*t10963+t11055*t3160+t9207*t10976+t11059*t3252/2.0+t9210*t10994/2.0+t10296*t10233+t10300*t10239+t10303*t10245/2.0; double newd2Tdbrbi12 = 0.0; double newd2Tdbrbi13 = 0.0; double newd2Tdbrbi14 = 0.0; double newd2Tdbrbi15 = 0.0; ptr[0] = newT0; ptr[1] = newT1; ptr[2] = newT2; ptr[3] = newT3; ptr[4] = newT4; ptr[5] = newT5; ptr[6] = newT6; ptr[7] = newT7; ptr[8] = newT8; ptr[9] = newT9; ptr[10] = newT10; ptr[11] = newT11; ptr[12] = newT12; ptr[13] = newT13; ptr[14] = newT14; ptr[15] = newT15; ptr[16] = newdTdbr0; ptr[17] = newdTdbr1; ptr[18] = newdTdbr2; ptr[19] = newdTdbr3; ptr[20] = newdTdbr4; ptr[21] = newdTdbr5; ptr[22] = newdTdbr6; ptr[23] = newdTdbr7; ptr[24] = newdTdbr8; ptr[25] = newdTdbr9; ptr[26] = newdTdbr10; ptr[27] = newdTdbr11; ptr[28] = newdTdbr12; ptr[29] = newdTdbr13; ptr[30] = newdTdbr14; ptr[31] = newdTdbr15; ptr[32] = newdTdbi0; ptr[33] = newdTdbi1; ptr[34] = newdTdbi2; ptr[35] = newdTdbi3; ptr[36] = newdTdbi4; ptr[37] = newdTdbi5; ptr[38] = newdTdbi6; ptr[39] = newdTdbi7; ptr[40] = newdTdbi8; ptr[41] = newdTdbi9; ptr[42] = newdTdbi10; ptr[43] = newdTdbi11; ptr[44] = newdTdbi12; ptr[45] = newdTdbi13; ptr[46] = newdTdbi14; ptr[47] = newdTdbi15; ptr[48] = newd2Tdbr20; ptr[49] = newd2Tdbr21; ptr[50] = newd2Tdbr22; ptr[51] = newd2Tdbr23; ptr[52] = newd2Tdbr24; ptr[53] = newd2Tdbr25; ptr[54] = newd2Tdbr26; ptr[55] = newd2Tdbr27; ptr[56] = newd2Tdbr28; ptr[57] = newd2Tdbr29; ptr[58] = newd2Tdbr210; ptr[59] = newd2Tdbr211; ptr[60] = newd2Tdbr212; ptr[61] = newd2Tdbr213; ptr[62] = newd2Tdbr214; ptr[63] = newd2Tdbr215; ptr[64] = newd2Tdbi20; ptr[65] = newd2Tdbi21; ptr[66] = newd2Tdbi22; ptr[67] = newd2Tdbi23; ptr[68] = newd2Tdbi24; ptr[69] = newd2Tdbi25; ptr[70] = newd2Tdbi26; ptr[71] = newd2Tdbi27; ptr[72] = newd2Tdbi28; ptr[73] = newd2Tdbi29; ptr[74] = newd2Tdbi210; ptr[75] = newd2Tdbi211; ptr[76] = newd2Tdbi212; ptr[77] = newd2Tdbi213; ptr[78] = newd2Tdbi214; ptr[79] = newd2Tdbi215; ptr[80] = newd2Tdbrbi0; ptr[81] = newd2Tdbrbi1; ptr[82] = newd2Tdbrbi2; ptr[83] = newd2Tdbrbi3; ptr[84] = newd2Tdbrbi4; ptr[85] = newd2Tdbrbi5; ptr[86] = newd2Tdbrbi6; ptr[87] = newd2Tdbrbi7; ptr[88] = newd2Tdbrbi8; ptr[89] = newd2Tdbrbi9; ptr[90] = newd2Tdbrbi10; ptr[91] = newd2Tdbrbi11; ptr[92] = newd2Tdbrbi12; ptr[93] = newd2Tdbrbi13; ptr[94] = newd2Tdbrbi14; ptr[95] = newd2Tdbrbi15; ptr[96] = newdTdR10; ptr[97] = newdTdR11; ptr[98] = newdTdR12; ptr[99] = newdTdR13; ptr[100] = newdTdR14; ptr[101] = newdTdR15; ptr[102] = newdTdR16; ptr[103] = newdTdR17; ptr[104] = newdTdR18; ptr[105] = newdTdR19; ptr[106] = newdTdR110; ptr[107] = newdTdR111; ptr[108] = newdTdR112; ptr[109] = newdTdR113; ptr[110] = newdTdR114; ptr[111] = newdTdR115; ptr[112] = newdTdR20; ptr[113] = newdTdR21; ptr[114] = newdTdR22; ptr[115] = newdTdR23; ptr[116] = newdTdR24; ptr[117] = newdTdR25; ptr[118] = newdTdR26; ptr[119] = newdTdR27; ptr[120] = newdTdR28; ptr[121] = newdTdR29; ptr[122] = newdTdR210; ptr[123] = newdTdR211; ptr[124] = newdTdR212; ptr[125] = newdTdR213; ptr[126] = newdTdR214; ptr[127] = newdTdR215; ptr[128] = newd2TdR120; ptr[129] = newd2TdR121; ptr[130] = newd2TdR122; ptr[131] = newd2TdR123; ptr[132] = newd2TdR124; ptr[133] = newd2TdR125; ptr[134] = newd2TdR126; ptr[135] = newd2TdR127; ptr[136] = newd2TdR128; ptr[137] = newd2TdR129; ptr[138] = newd2TdR1210; ptr[139] = newd2TdR1211; ptr[140] = newd2TdR1212; ptr[141] = newd2TdR1213; ptr[142] = newd2TdR1214; ptr[143] = newd2TdR1215; ptr[144] = newd2TdR220; ptr[145] = newd2TdR221; ptr[146] = newd2TdR222; ptr[147] = newd2TdR223; ptr[148] = newd2TdR224; ptr[149] = newd2TdR225; ptr[150] = newd2TdR226; ptr[151] = newd2TdR227; ptr[152] = newd2TdR228; ptr[153] = newd2TdR229; ptr[154] = newd2TdR2210; ptr[155] = newd2TdR2211; ptr[156] = newd2TdR2212; ptr[157] = newd2TdR2213; ptr[158] = newd2TdR2214; ptr[159] = newd2TdR2215; return; }