ieee30.c

一种求解目标函数最小化的MATLAB仿真程序.

      t218 = t217*t180;      t219 = x[9];      t220 = x[10];      t221 = t182-t220;      t222 = sin(t221);      t223 = t219*t222;      t224 = t218*t223;      t225 = cos(t221);      t226 = t225*t219;      t227 = data[143]; 
      t228 = t180*t227;      t229 = t226*t228;      t230 = x[48];      t231 = -t182+t230;      t232 = sin(t231);      t233 = x[47];      t234 = t232*t233;      t235 = data[106];      t236 = t180*t235;      t237 = t234*t236; 
      t238 = data[218];      t239 = t238*t180;      t240 = cos(t231);      t241 = t233*t240;      t242 = t239*t241;      f[7] = -t209+t213+t214*t215+t224+t229-t237+t242-param[7];      t244 = data[29];      t245 = t244*t219;      t246 = t180*t222;      t247 = t245*t246; 
      t248 = t225*t180;      t249 = data[141];      t250 = t219*t249;      t251 = t248*t250;      t252 = t219*t219;      t253 = data[144];      t255 = data[35];      t256 = t255*t219;      t257 = x[11];      t259 = t220-x[12]; 
      t260 = sin(t259);      t261 = t257*t260;      t262 = t256*t261;      t263 = cos(t259);      t264 = t263*t257;      t265 = data[147];      t266 = t219*t265;      t267 = t264*t266;      t268 = data[37];      t269 = t268*t219; 
      t270 = x[13];      t271 = x[14];      t272 = t220-t271;      t273 = sin(t272);      t274 = t270*t273;      t275 = t269*t274;      t276 = cos(t272);      t277 = t276*t270;      t278 = data[149];      t279 = t219*t278; 
      t280 = t277*t279;      f[8] = -t247+t251+t252*t253+t262+t267+t275+t280-param[8];      t282 = data[33];      t283 = t282*t257;      t284 = t219*t260;      t285 = t283*t284;      t286 = t263*t219;      t287 = data[145];      t288 = t257*t287;      t289 = t286*t288; 
      t290 = t257*t257;      t291 = data[148];      f[9] = -t285+t289+t290*t291-param[9];      t294 = data[34];      t295 = t294*t270;      t296 = t219*t273;      t297 = t295*t296;      t298 = t276*t219;      t299 = data[146];      t300 = t270*t299; 
      t301 = t298*t300;      t302 = t270*t270;      t303 = data[150];      t305 = data[42];      t306 = t305*t270;      t307 = x[15];      t308 = x[16];      t309 = t271-t308;      t310 = sin(t309);      t311 = t307*t310; 
      t312 = t306*t311;      t313 = cos(t309);      t314 = t313*t307;      t315 = data[154];      t316 = t270*t315;      t317 = t314*t316;      t318 = x[30];      t319 = -t271+t318;      t320 = sin(t319);      t321 = x[29]; 
      t322 = t320*t321;      t323 = data[68];      t324 = t270*t323;      t325 = t322*t324;      t326 = data[180];      t327 = t326*t270;      t328 = cos(t319);      t329 = t321*t328;      t330 = t327*t329;      t331 = data[89]; 
      t332 = t331*t270;      t333 = t76-t271;      t334 = sin(t333);      t335 = t74*t334;      t336 = t332*t335;      t337 = cos(t333);      t338 = t337*t74;      t339 = data[201];      t340 = t270*t339;      t341 = t338*t340; 
      f[10] = -t297+t301+t302*t303+t312+t317-t325+t330-t336+t341-param[10];      t343 = data[39];      t344 = t343*t307;      t345 = t270*t310;      t346 = t344*t345;      t347 = t313*t270;      t348 = data[151];      t349 = t307*t348;      t350 = t347*t349;      t351 = t307*t307; 
      t352 = data[155];      t354 = -t308+t318;      t355 = sin(t354);      t356 = t355*t321;      t357 = data[69];      t358 = t307*t357;      t359 = t356*t358;      t360 = data[181];      t361 = t360*t307;      t362 = cos(t354); 
      t363 = t321*t362;      t364 = t361*t363;      f[11] = -t346+t350+t351*t352-t359+t364-param[11];      t366 = x[17];      t367 = t366*t366;      t368 = data[157];      t370 = data[48];      t371 = t370*t366;      t372 = x[19];      t373 = x[18]; 
      t374 = x[20];      t375 = t373-t374;      t376 = sin(t375);      t377 = t372*t376;      t378 = t371*t377;      t379 = cos(t375);      t380 = t379*t372;      t381 = data[160];      t382 = t366*t381;      t383 = t380*t382; 
      t384 = x[32];      t385 = -t373+t384;      t386 = sin(t385);      t387 = x[31];      t388 = t386*t387;      t389 = data[71];      t390 = t366*t389;      t391 = t388*t390;      t392 = data[183];      t393 = t392*t366; 
      t394 = cos(t385);      t395 = t387*t394;      t396 = t393*t395;      f[12] = t367*t368+t378+t383-t391+t396-param[12];      t398 = data[46];      t399 = t398*t372;      t400 = t366*t376;      t401 = t399*t400;      t402 = t379*t366;      t403 = data[158]; 
      t404 = t372*t403;      t405 = t402*t404;      t406 = t372*t372;      t407 = data[161];      t409 = data[51];      t410 = t409*t372;      t411 = x[21];      t412 = x[22];      t413 = t374-t412;      t414 = sin(t413); 
      t415 = t411*t414;      t416 = t410*t415;      t417 = cos(t413);      t418 = t417*t411;      t419 = data[163];      t420 = t372*t419;      t421 = t418*t420;      f[13] = -t401+t405+t406*t407+t416+t421-param[13];      t423 = data[50];      t424 = t423*t411; 
      t425 = t372*t414;      t426 = t424*t425;      t427 = t417*t372;      t428 = data[162];      t429 = t411*t428;      t430 = t427*t429;      t431 = t411*t411;      t432 = data[164];      t434 = -t195+t412;      t435 = sin(t434); 
      t436 = t435*t194;      t437 = data[55];      t438 = t411*t437;      t439 = t436*t438;      t440 = data[167];      t441 = t440*t411;      t442 = cos(t434);      t443 = t194*t442;      t444 = t441*t443;      f[14] = -t426+t430+t431*t432+t439+t444-param[14]; 
      t446 = data[26];      t447 = t446*t194;      t448 = t174*t197;      t449 = t447*t448;      t450 = t200*t174;      t451 = data[138];      t452 = t194*t451;      t453 = t450*t452;      t454 = t435*t411;      t455 = data[53]; 
      t456 = t194*t455;      t457 = t454*t456;      t458 = data[165];      t459 = t458*t194;      t460 = t411*t442;      t461 = t459*t460;      t462 = t194*t194;      t463 = data[168];      t465 = -t38+t195;      t466 = sin(t465); 
      t467 = t466*t36;      t468 = data[60];      t469 = t194*t468;      t470 = t467*t469;      t471 = data[172];      t472 = t471*t194;      t473 = cos(t465);      t474 = t36*t473;      t475 = t472*t474;      t476 = x[28]; 
      t477 = -t195+t476;      t478 = sin(t477);      t479 = x[27];      t480 = t478*t479;      t481 = data[65];      t482 = t194*t481;      t483 = t480*t482;      t484 = data[177];      t485 = t484*t194;      t486 = cos(t477); 
      t487 = t479*t486;      t488 = t485*t487;      f[15] = -t449+t453-t457+t461+t462*t463+t470+t475-t483+t488-param[15];      t490 = data[10];      t491 = t490*t36;      t492 = t30*t40;      t493 = t491*t492;      t494 = t43*t30;      t495 = data[122];      t496 = t36*t495; 
      t497 = t494*t496;      t498 = t466*t194;      t499 = data[57];      t500 = t36*t499;      t501 = t498*t500;      t502 = data[169];      t503 = t502*t36;      t504 = t194*t473;      t505 = t503*t504;      t506 = t36*t36; 
      t507 = data[173];      t509 = -t38+t476;      t510 = sin(t509);      t511 = t510*t479;      t512 = data[66];      t513 = t36*t512;      t514 = t511*t513;      t515 = data[178];      t516 = t515*t36;      t517 = cos(t509); 
      t518 = t479*t517;      t519 = t516*t518;      t520 = x[36];      t521 = -t38+t520;      t522 = sin(t521);      t523 = x[35];      t524 = t522*t523;      t525 = data[81];      t526 = t36*t525;      t527 = t524*t526; 
      t528 = data[193];      t529 = t528*t36;      t530 = cos(t521);      t531 = t523*t530;      t532 = t529*t531;      t533 = -t38+t163;      t534 = sin(t533);      t535 = t534*t162;      t536 = data[111];      t537 = t36*t536; 
      t538 = t535*t537;      t539 = data[223];      t540 = t539*t36;      t541 = cos(t533);      t542 = t162*t541;      t543 = t540*t542;      f[16] = -t493+t497-t501+t505+t506*t507-t514+t519-t527+t532-t538+t543-param[16];      t545 = t478*t194;      t546 = data[58];      t547 = t479*t546; 
      t548 = t545*t547;      t549 = data[170];      t550 = t549*t479;      t551 = t194*t486;      t552 = t550*t551;      t553 = t510*t36;      t554 = data[62];      t555 = t479*t554;      t556 = t553*t555;      t557 = data[174]; 
      t558 = t557*t479;      t559 = t36*t517;      t560 = t558*t559;      t561 = t479*t479;      t562 = data[179];      f[17] = t548+t552+t556+t560+t561*t562-param[17];      t565 = t320*t270;      t566 = data[40];      t567 = t321*t566;      t568 = t565*t567; 
      t569 = data[152];      t570 = t569*t321;      t571 = t270*t328;      t572 = t570*t571;      t573 = t355*t307;      t574 = data[44];      t575 = t321*t574;      t576 = t573*t575;      t577 = data[156];      t578 = t577*t321; 
      t579 = t307*t362;      t580 = t578*t579;      t581 = t321*t321;      t582 = data[182];      f[18] = t568+t572+t576+t580+t581*t582-param[18];      t585 = t386*t366;      t586 = data[47];      t587 = t387*t586;      t588 = t585*t587;      t589 = data[159]; 
      t590 = t589*t387;      t591 = t366*t394;      t592 = t590*t591;      t593 = t387*t387;      t594 = data[184];      t596 = data[78];      t597 = t596*t387;      t598 = x[33];      t599 = x[34];      t600 = t384-t599; 
      t601 = sin(t600);      t602 = t598*t601;      t603 = t597*t602;      t604 = cos(t600);      t605 = t604*t598;      t606 = data[190];      t607 = t387*t606;      t608 = t605*t607;      t609 = -t57+t384;      t610 = sin(t609); 
      t611 = t610*t55;      t612 = data[85];      t613 = t387*t612;      t614 = t611*t613;      t615 = data[197];      t616 = t615*t387;      t617 = cos(t609);      t618 = t55*t617;      t619 = t616*t618;      t620 = data[92]; 
      t621 = t620*t387;      t622 = x[41];      t623 = x[42];      t624 = t384-t623;      t625 = sin(t624);      t626 = t622*t625;      t627 = t621*t626;      t628 = cos(t624);      t629 = t628*t622;      t630 = data[204]; 
      t631 = t387*t630;      t632 = t629*t631;      t633 = -t89+t384;      t634 = sin(t633);      t635 = t634*t88;      t636 = data[100];      t637 = t387*t636;      t638 = t635*t637;      t639 = data[212];      t640 = t639*t387; 
      t641 = cos(t633);      t642 = t88*t641;      t643 = t640*t642;      t644 = -t230+t384;      t645 = sin(t644);      t646 = t645*t233;      t647 = data[107];      t648 = t387*t647;      t649 = t646*t648;      t650 = data[219]; 
      t651 = t650*t387;      t652 = cos(t644);      t653 = t233*t652;      t654 = t651*t653;      f[19] = t588+t592+t593*t594+t603+t608+t614+t619+t627+t632+t638+t643+t649+t654-param[19];      t656 = data[73];      t657 = t656*t598;      t658 = t387*t601;      t659 = t657*t658;      t660 = t604*t387; 
      t661 = data[185];      t662 = t598*t661;      t663 = t660*t662;      t664 = t598*t598;      t665 = data[191];      t667 = -t520+t599;      t668 = sin(t667);      t669 = t668*t523;      t670 = data[82];      t671 = t598*t670; 
      t672 = t669*t671;      t673 = data[194];      t674 = t673*t598;      t675 = cos(t667);      t676 = t523*t675;      t677 = t674*t676;      f[20] = -t659+t663+t664*t665+t672+t677-param[20];      t679 = t522*t36;      t680 = data[63];      t681 = t523*t680; 
      t682 = t679*t681;      t683 = data[175];      t684 = t683*t523;      t685 = t36*t530;      t686 = t684*t685;      t687 = t668*t598;      t688 = data[80];      t689 = t523*t688;      t690 = t687*t689;      t691 = data[192]; 
      t692 = t691*t523;      t693 = t598*t675;      t694 = t692*t693;      t695 = t523*t523;      t696 = data[195];      f[21] = t682+t686-t690+t694+t695*t696-param[21];      t699 = t59*t49;      t701 = t55*data[12];      t702 = t699*t701;      t704 = data[124]*t55; 
      t705 = t49*t62;      t706 = t704*t705;      t707 = t610*t387;      t708 = data[74];      t709 = t55*t708;      t710 = t707*t709;      t711 = data[186];      t712 = t711*t55;      t713 = t387*t617;      t714 = t712*t713; 
      t715 = t55*t55;      t719 = data[101]*t55;      t720 = t57-t89;      t721 = sin(t720);      t722 = t88*t721;      t724 = cos(t720);      t725 = t724*t88;      t727 = t55*data[213];      f[22] = t702+t706-t710+t714+t715*data[198]+t719*t722+t725*t727-param[22];      t730 = t78*t68; 
      t732 = t74*data[14];      t733 = t730*t732;      t735 = data[126]*t74;      t736 = t68*t81;      t737 = t735*t736;      t738 = data[41];      t739 = t738*t74;      t740 = t270*t334;      t741 = t739*t740;      t742 = t337*t270; 
      t743 = data[153];      t744 = t74*t743;      t745 = t742*t744;      t746 = t74*t74;      t750 = data[102]*t74;      t751 = t76-t89;      t752 = sin(t751);      t753 = t88*t752;      t755 = cos(t751);      t756 = t755*t88; 
      t758 = t74*data[214];      f[23] = t733+t737+t741+t745+t746*data[202]+t750*t753+t756*t758-param[23];      t761 = data[75];      t762 = t761*t622;      t763 = t387*t625;      t764 = t762*t763;      t765 = t628*t387;      t766 = data[187];      t767 = t622*t766;      t768 = t765*t767; 
      t769 = t622*t622;      t772 = -t230+t623;      t773 = sin(t772);      t774 = t773*t233;      t776 = t622*data[108];      t779 = data[220]*t622;      t780 = cos(t772);      t781 = t233*t780;      f[24] = -t764+t768+t769*data[205]+t774*t776+t779*t781-param[24];      t784 = t121*t100; 
      t786 = t118*data[18];      t787 = t784*t786;      t789 = data[130]*t118;      t790 = t100*t124;      t791 = t789*t790;      t792 = t118*t118;      t795 = -t89+t119;      t796 = sin(t795);      t797 = t796*t88;      t799 = t118*data[103]; 
      t802 = data[215]*t118;      t803 = cos(t795);      t804 = t88*t803;      f[25] = t787+t791+t792*data[208]+t797*t799+t802*t804-param[25];      t807 = t91*t68;      t809 = t88*data[15];      t810 = t807*t809;      t812 = data[127]*t88;      t813 = t68*t94;      t814 = t812*t813; 
      t815 = t152*t7;      t817 = t88*data[22];      t818 = t815*t817;      t820 = data[134]*t88;      t821 = t7*t155;      t822 = t820*t821;      t823 = t634*t387;      t824 = data[76];      t825 = t88*t824;      t826 = t823*t825; 
      t827 = data[188];      t828 = t827*t88;      t829 = t387*t641;      t830 = t828*t829;      t832 = data[87]*t88;      t833 = t55*t721;      t835 = t724*t55;      t837 = t88*data[199];      t840 = data[91]*t88;      t841 = t74*t752; 
      t843 = t755*t74;      t845 = t88*data[203];      t847 = t796*t118;      t849 = t88*data[97];      t852 = data[209]*t88;      t853 = t118*t803;      t855 = t88*t88;      t859 = data[112]*t88;      t860 = t89-t163;      t861 = sin(t860); 
      t862 = t162*t861;      t864 = cos(t860);      t865 = t864*t162;      t867 = t88*data[224];      f[26] = t810+t814+t818+t822-t826+t830-t832*t833+t835*t837-t840*t841+t843*t845-t847*t849+t852*t853+t855*data[216]+t859*t862+t865*t867-param[26];      t870 = t232*t180;      t871 = data[30];      t872 = t233*t871;      t873 = t870*t872;      t874 = data[142]; 
      t875 = t874*t233;      t876 = t180*t240;      t877 = t875*t876;      t878 = t645*t387;      t879 = data[77];      t880 = t233*t879;      t881 = t878*t880;      t882 = data[189];      t883 = t882*t233;      t884 = t387*t652; 
      t885 = t883*t884;      t886 = t773*t622;      t888 = t233*data[94];      t891 = data[206]*t233;      t892 = t622*t780;      t894 = t233*t233;      f[27] = t873+t877-t881+t885-t886*t888+t891*t892+t894*data[221]-param[27];      t898 = t165*t7;      t900 = t162*data[23];      t901 = t898*t900; 
      t903 = data[135]*t162;      t904 = t7*t168;      t905 = t903*t904;      t906 = t534*t36;      t907 = data[64];      t908 = t162*t907;      t909 = t906*t908;      t910 = data[176];      t911 = t910*t162;      t912 = t36*t541; 
      t913 = t911*t912;      t915 = data[105]*t162;      t916 = t88*t861;      t918 = t864*t88;      t920 = t162*data[217];      t922 = t162*t162;      t925 = -t20+t163;      t926 = sin(t925);      t927 = t926*t19;      t929 = t162*data[116]; 
      t932 = data[228]*t162;      t933 = cos(t925);      t934 = t19*t933;      f[28] = t901+t905+t909+t913-t915*t916+t918*t920+t922*data[225]+t927*t929+t932*t934-param[28];      t938 = data[8]*t19;      t939 = t1*t21;      t941 = t24*t1;      t943 = t19*data[120];      t945 = t926*t162;      t947 = t19*data[114]; 
      t950 = data[226]*t19;      t951 = t162*t933;      t953 = t19*t19;      f[29] = t938*t939+t941*t943-t945*t947+t950*t951+t953*data[229]-param[29];      t957 = data[24];      t959 = t190*t185;      t960 = t188*t179;      t961 = t203*t198;      t962 = t201*t193;      f[30] = -t175*t957+t959-t960+t961-t962-param[30]; 
      t964 = t212*t208;      t965 = t210*t207;      t966 = data[28];      t968 = t228*t223;      t969 = t226*t218;      t970 = t234*t239;      t971 = t236*t241;      f[31] = -t964-t965-t214*t966+t968-t969-t970-t971-param[31];      t973 = t250*t246;      t974 = t248*t245; 
      t975 = data[32];      t977 = t266*t261;      t978 = t264*t256;      t979 = t279*t274;      t980 = t277*t269;      f[32] = -t973-t974-t252*t975+t977-t978+t979-t980-param[32];      t982 = t288*t284;      t983 = t286*t283;      t984 = data[36];      f[33] = -t982-t983-t290*t984-param[33]; 
      t987 = t300*t296;      t988 = t298*t295;      t989 = data[38];      t991 = t316*t311;      t992 = t314*t306;      t993 = t322*t327;      t994 = t324*t329;      t995 = t340*t335;      t996 = t338*t332;      f[34] = -t987-t988-t302*t989+t991-t992-t993-t994-t995-t996-param[34]; 
      t998 = t349*t345;      t999 = t347*t344;      t1000 = data[43];      t1002 = t356*t361;      t1003 = t358*t363;      f[35] = -t998-t999-t351*t1000-t1002-t1003-param[35];      t1005 = data[45];      t1007 = t382*t377;      t1008 = t380*t371;      t1009 = t388*t393; 
      t1010 = t390*t395;      f[36] = -t367*t1005+t1007-t1008-t1009-t1010-param[36];      t1012 = t404*t400;      t1013 = t402*t399;      t1014 = data[49];      t1016 = t420*t415;      t1017 = t418*t410;      f[37] = -t1012-t1013-t406*t1014+t1016-t1017-param[37];      t1019 = t429*t425;      t1020 = t427*t424; 
      t1021 = data[52];      t1023 = t436*t441;      t1024 = t438*t443;      f[38] = -t1019-t1020-t431*t1021+t1023-t1024-param[38];      t1026 = t452*t448;      t1027 = t450*t447;      t1028 = t454*t459;      t1029 = t456*t460;      t1030 = data[56];      t1032 = t467*t472; 
      t1033 = t469*t474;      t1034 = t480*t485;      t1035 = t482*t487;      f[39] = -t1026-t1027-t1028-t1029-t462*t1030+t1032-t1033-t1034-t1035-param[39];      t1037 = t496*t492;      t1038 = t494*t491;      t1039 = t498*t503;      t1040 = t500*t504;      t1041 = data[61];      t1043 = t511*t516; 
      t1044 = t513*t518;      t1045 = t524*t529;      t1046 = t526*t531;      t1047 = t535*t540;      t1048 = t537*t542;      f[40] = -t1037-t1038-t1039-t1040-t506*t1041-t1043-t1044-t1045-t1046-t1047-t1048-param[40];      t1050 = t545*t550;      t1051 = t547*t551;      t1052 = t553*t558;      t1053 = t555*t559; 
      t1054 = data[67];      f[41] = t1050-t1051+t1052-t1053-t561*t1054-param[41];      t1057 = t565*t570;      t1058 = t567*t571;      t1059 = t573*t578;      t1060 = t575*t579;      t1061 = data[70];      f[42] = t1057-t1058+t1059-t1060-t581*t1061-param[42];      t1064 = t585*t590;      t1065 = t587*t591; 
      t1066 = data[72];      t1068 = t607*t602;      t1069 = t605*t597;      t1070 = t611*t616;      t1071 = t613*t618;      t1072 = t631*t626;      t1073 = t629*t621;      t1074 = t635*t640;      t1075 = t637*t642;      t1076 = t646*t651; 
      t1077 = t648*t653;      f[43] = t1064-t1065-t593*t1066+t1068-t1069+t1070-t1071+t1072-t1073+t1074-t1075+t1076-t1077-param[43];      t1079 = t662*t658;      t1080 = t660*t657;      t1081 = data[79];      t1083 = t669*t674;      t1084 = t671*t676;      f[44] = -t1079-t1080-t664*t1081+t1083-t1084-param[44];      t1086 = t679*t684;      t1087 = t681*t685; 
      t1088 = t687*t692;      t1089 = t689*t693;      t1090 = data[83];      f[45] = t1086-t1087-t1088-t1089-t695*t1090-param[45];      t1093 = t699*t704;      t1094 = t701*t705;      t1095 = t707*t712;      t1096 = t709*t713;      f[46] = t1093-t1094-t1095-t1096-t715*data[86]+t727*t722-t725*t719-param[46];      t1102 = t730*t735; 
      t1103 = t732*t736;      t1104 = t744*t740;      t1105 = t742*t739;      f[47] = t1102-t1103+t1104-t1105-t746*data[90]+t758*t753-t756*t750-param[47];      t1111 = t767*t763;      t1112 = t765*t762;      f[48] = -t1111-t1112-t769*data[93]+t774*t779-t776*t781-param[48];      t1118 = t784*t789;      t1119 = t786*t790;      f[49] = t1118-t1119-t792*data[96]+t797*t802-t799*t804-param[49]; 
      t1125 = t807*t812;      t1126 = t809*t813;      t1127 = t815*t820;      t1128 = t817*t821;      t1129 = t823*t828;      t1130 = t825*t829;      f[50] = t1125-t1126+t1127-t1128-t1129-t1130-t837*t833-t835*t832-t845*t841-t843*t840-t847*t852-t849*t853-t855*data[104]+t867*t862-t865*t859-param[50];      t1142 = t870*t875;      t1143 = t872*t876;      t1144 = t878*t883; 
      t1145 = t880*t884;      f[51] = t1142-t1143-t1144-t1145-t886*t891-t888*t892-t894*data[109]-param[51];      t1151 = t898*t903;      t1152 = t900*t904;      t1153 = t906*t911;      t1154 = t908*t912;      f[52] = t1151-t1152+t1153-t1154-t920*t916-t918*t915-t922*data[113]+t927*t932-t929*t934-param[52];      f[53] = t943*t939-t941*t938-t945*t950-t947*t951-t953*data[117]-param[53];      J[0] = 0.0;      J[1] = t35*t44-t41*t46; 
      J[2] = 0.0;      J[3] = 0.0;      J[4] = 0.0;      J[5] = 0.0;      J[6] = 0.0;      J[7] = 0.0;      J[8] = 0.0;      J[9] = 0.0;      J[10] = 0.0;      J[11] = 0.0; 
      J[12] = 0.0;      J[13] = 0.0;      J[14] = 0.0;      J[15] = 0.0;      J[16] = -t1038-t1037;      J[17] = 0.0;      J[18] = 0.0;      J[19] = 0.0;      J[20] = 0.0;      J[21] = 0.0; 
      J[22] = 0.0;      J[23] = 0.0;      J[24] = 0.0;      J[25] = 0.0;      J[26] = 0.0;      J[27] = 0.0;      J[28] = 0.0;      J[29] = 0.0;      J[30] = 0.0;      J[31] = 0.0; 
      J[32] = 0.0;      J[33] = 0.0;      J[34] = 0.0;      J[35] = 0.0;      J[36] = 0.0;      J[37] = 0.0;      J[38] = 0.0;      J[39] = 0.0;      J[40] = -t497+t493;      J[41] = 0.0; 
      J[42] = 0.0;      J[43] = 0.0;      J[44] = 0.0;      J[45] = 0.0;      J[46] = 0.0;      J[47] = 0.0;      J[48] = 0.0;      J[49] = 0.0;      J[50] = 0.0;      J[51] = 0.0; 
      J[52] = 0.0;      J[53] = 0.0;      J[54] = 0.0;      J[55] = 0.0;      J[56] = t54*t63+t60*t65;      J[57] = 0.0;      J[58] = 0.0;      J[59] = 0.0;      J[60] = 0.0;      J[61] = 0.0; 
      J[62] = 0.0;      J[63] = 0.0;      J[64] = 0.0;      J[65] = 0.0;      J[66] = 0.0;      J[67] = 0.0;      J[68] = 0.0;      J[69] = 0.0;      J[70] = 0.0;      J[71] = 0.0; 
      J[72] = 0.0;      J[73] = 0.0;      J[74] = 0.0;      J[75] = 0.0;      J[76] = -t1094+t1093;      J[77] = 0.0;      J[78] = 0.0;      J[79] = 0.0;      J[80] = 0.0;      J[81] = 0.0; 
      J[82] = 0.0;      J[83] = 0.0;      J[84] = 0.0;      J[85] = 0.0;      J[86] = 0.0;      J[87] = 0.0;      J[88] = 0.0;      J[89] = 0.0;      J[90] = 0.0;      J[91] = 0.0; 
      J[92] = 0.0;      J[93] = 0.0;      J[94] = 0.0;      J[95] = 0.0;      J[96] = 0.0;      J[97] = 0.0;      J[98] = 0.0;      J[99] = 0.0;      J[100] = -t706-t702;      J[101] = 0.0; 
      J[102] = 0.0;      J[103] = 0.0;      J[104] = 0.0;      J[105] = 0.0;      J[106] = 0.0;      J[107] = 0.0;      J[108] = 0.0;      J[109] = 0.0;      J[110] = 0.0;      J[111] = t73*t82+t79*t84+t87*t95+t92*t97; 
      J[112] = 0.0;      J[113] = 0.0;      J[114] = 0.0;      J[115] = 0.0;      J[116] = 0.0;      J[117] = 0.0;      J[118] = 0.0;      J[119] = 0.0;      J[120] = 0.0;      J[121] = 0.0;