(*************************************************************
* AceGen    5.101 Windows (28 May 13)                        *
*           Co. J. Korelc  2007            19 Mar 14 10:38:43*
**************************************************************
User     : Full professional version
Notebook : BP_yield_function.nb
Evaluation time                 : 39 s    Mode  : Optimal
Number of formulae              : 873     Method: Automatic
Module                          : BPYieldFunction size : 15006
Total size of Mathematica  code : 15006 subexpressions     *)
(*********************** M O D U L E **************************)
SetAttributes[BPYieldFunction,HoldAll];
BPYieldFunction[sigma$$_,data$$_,F$$_,DF$$_,DDF$$_
     ,dorder$$_,iter$$_]:=
Module[{i01,i02},
$VV[1121]=0.707106781186547524400844362104849039284835937688474036588340*10^0*sigma$$[[6]];
$VV[1039]=-(data$$[[5]]*Pi)/6;
$VV[1038]=(-sigma$$[[1]]-sigma$$[[2]]-sigma$$[[3]])/3;
$VV[1037]=data$$[[8]]^2;
$VV[1035]=data$$[[7]];
$VV[1036]=2*$VV[1035];
$VV[1034]=data$$[[6]];
$VV[1086]=$VV[1034]^3;
$VV[1033]=data$$[[4]];
$VV[1032]=data$$[[3]];
$VV[1031]=data$$[[2]];
$VV[1030]=data$$[[1]];
$VV[1029]=sigma$$[[6]]^2;
$VV[1104]=-$VV[1029]/2;
$VV[1028]=sigma$$[[5]]*$VV[1121];
$VV[1027]=sigma$$[[5]]^2;
$VV[1103]=-$VV[1027]/2;
$VV[1026]=sigma$$[[4]]^2;
$VV[96]=2*$VV[1030];
$VV[39]=$VV[1030]^2;
$VV[1077]=$VV[39]*$VV[1035];
$VV[37]=$VV[1030]+$VV[1031];
$VV[279]=-2+$VV[1032];
$VV[50]=-1+$VV[1032];
$VV[45]=1-$VV[1033];
$VV[1040]=2*$VV[45];
$VV[234]=$VV[1034]^2;
$VV[264]=$VV[39]*$VV[1036];
$VV[46]=$VV[1035]^2;
$VV[1071]=$VV[46]*$VV[1030];
$VV[1041]=-($VV[39]*$VV[46]);
$VV[280]=$VV[1040]*$VV[1041];
$VV[100]=$VV[96]*$VV[1037];
$VV[17]=sigma$$[[1]]+$VV[1038];
$VV[18]=sigma$$[[2]]+$VV[1038];
$VV[1105]=$VV[17]*$VV[18]-$VV[1026]/2;
$VV[19]=sigma$$[[3]]+$VV[1038];
$VV[20]=($VV[17]^2+$VV[18]^2+$VV[19]^2+$VV[1026]+$VV[1027]+$VV[1029])/2+$VV[39]*$VV[1037];
$VV[1106]=Sqrt[$VV[20]];
$VV[449]=$VV[1106]^(-3);
$VV[439]=0.259807621135331594029116951225880855041420788071557094208371*10^1*$VV[449];
$VV[437]=3*$VV[20];
$VV[24]=sigma$$[[4]]*$VV[1028]+$VV[17]*$VV[1103]+$VV[18]*$VV[1104]+$VV[19]*$VV[1105];
$VV[25]=Sqrt[$VV[437]];
$VV[1081]=$VV[25]^2;
$VV[26]=$VV[37]/2;
$VV[27]=$VV[26]-$VV[1031];
$VV[31]=-$VV[27]+$VV[1038];
$VV[133]=2*$VV[31];
$VV[74]=$VV[31]^2;
$VV[185]=$VV[74]+$VV[1081];
$VV[28]=Sqrt[$VV[74]+$VV[437]];
$VV[29]=$VV[24]*$VV[439];
$VV[1102]=$VV[29]^3;
$VV[1072]=$VV[29]*$VV[1034];
$VV[242]=$VV[29]^2;
$VV[1091]=-($VV[234]*$VV[242]);
$VV[232]=1+$VV[1091];
$VV[168]=1/Sqrt[$VV[232]];
$VV[1090]=(2*$VV[168])/3;
$VV[82]=ArcCos[$VV[1072]]/3+$VV[1039];
$VV[178]=Tan[$VV[82]];
$VV[30]=Sec[$VV[82]];
$VV[236]=$VV[30]^(-2);
$VV[1044]=2*$VV[236];
$VV[32]=ArcTan[$VV[31], $VV[25]];
$VV[43]=Sin[$VV[32]];
$VV[1045]=$VV[43]^2*$VV[1044];
$VV[41]=Cos[$VV[32]];
$VV[42]=$VV[41]/$VV[37];
$VV[57]=$VV[42]*$VV[1040];
$VV[33]=$VV[26];
Do[
 $VV[1054]=$VV[33]*$VV[41];
 $VV[71]=$VV[33];
 $VV[76]=$VV[27]+$VV[1031]+$VV[1054];
 $VV[36]=$VV[33]*$VV[43];
 $VV[307]=(2*Pi*$VV[36])/3;
 $VV[295]=(4*$VV[36]*$VV[168])/3;
 $VV[181]=$VV[178]*$VV[295];
 $VV[83]=$VV[36]^2;
 $VV[69]=$VV[36]*$VV[1044];
 $VV[38]=$VV[76]/$VV[37];
 $VV[1042]=2*$VV[38];
 $VV[151]=1-$VV[1042];
 $VV[152]=$VV[151]*$VV[1041];
 $VV[149]=$VV[45]*$VV[1042];
 $VV[53]=Sign[$VV[38]];
 $VV[1063]=$VV[38]*$VV[53];
 $VV[67]=-($VV[50]*$VV[1063]);
 $VV[54]=$VV[42]*$VV[53];
 $VV[49]=Abs[$VV[38]];
 $VV[278]=$VV[49]^(-3+$VV[1032]);
 $VV[147]=$VV[49]^$VV[279];
 $VV[1048]=$VV[54]*$VV[147];
 $VV[146]=Log[$VV[49]];
 $VV[136]=$VV[67]*$VV[278]*$VV[279];
 $VV[56]=$VV[50]*$VV[1048];
 $VV[48]=$VV[49]^$VV[50];
 $VV[1043]=-1+$VV[48];
 $VV[281]=-($VV[38]*$VV[56])-$VV[42]*$VV[1043];
 $VV[85]=-($VV[38]*$VV[1043]);
 $VV[58]=$VV[281]*$VV[1041];
 $VV[47]=$VV[149]+$VV[1033];
 $VV[66]=$VV[47]*$VV[1041];
 $VV[1049]=$VV[42]*$VV[66];
 $VV[44]=$VV[85]*$VV[1041];
 $VV[40]=$VV[44]*$VV[47]+$VV[83]*$VV[236];
 $VV[52]=$VV[44]*$VV[57]+$VV[47]*$VV[58]+$VV[43]*$VV[69];
 $VV[63]=2*$VV[57]*$VV[58]+$VV[1045]+(-2*$VV[56]+$VV[54]*$VV[136])*$VV[1049];
 $VV[64]=-($VV[40]/$VV[52]);
 $VV[33]=$VV[33]+$VV[64];
 If[Abs[$VV[64]] < 1/10000000000 && Abs[$VV[40]] < 1/100000000,
  $VV[1097]=$VV[38]*$VV[66];
  $VV[1079]=-($VV[43]/$VV[37]);
  $VV[1078]=-2*($VV[57]*$VV[85]+$VV[47]*$VV[281]);
  $VV[1075]=-2*$VV[44];
  $VV[1074]=$VV[31]/$VV[185];
  $VV[1073]=2*$VV[47];
  $VV[1068]=$VV[41]*$VV[69];
  $VV[1064]=$VV[37]^(-3);
  $VV[1062]=$VV[48]*$VV[146];
  $VV[1061]=$VV[50]*$VV[147];
  $VV[1067]=$VV[66]*($VV[136]-2*$VV[1061]);
  $VV[1059]=$VV[41]*$VV[1074];
  $VV[1058]=$VV[25]/$VV[185];
  $VV[1057]=-($VV[67]*$VV[147])+$VV[1043];
  $VV[1055]=$VV[236]*$VV[1054];
  $VV[1056]=$VV[181]*$VV[1055];
  $VV[1053]=$VV[185]^(-2);
  $VV[1052]=$VV[232]^(-3/2);
  $VV[1050]=Sin[$VV[82]];
  $VV[1047]=$VV[37]^(-2);
  $VV[1046]=Cos[$VV[82]];
  $VV[1051]=$VV[1046]*$VV[1050];
  $VV[275]=$VV[85]*$VV[280]-$VV[66]*$VV[1057];
  $VV[287]=$VV[275]/$VV[37];
  $VV[272]=-($VV[149]*$VV[1041]);
  $VV[273]=$VV[42]*(-$VV[66]+$VV[272]);
  $VV[284]=-($VV[56]*$VV[66])+$VV[280]*$VV[281]-$VV[57]*$VV[1041]*$VV[1043]+$VV[53]*
   ($VV[136]*$VV[1049]+$VV[273]*$VV[1061]);
  $VV[285]=$VV[284]/$VV[37];
  $VV[288]=-($VV[43]*($VV[71]*$VV[285]+$VV[287]))+2*$VV[1068];
  $VV[293]=$VV[288]*$VV[1058];
  $VV[1080]=2*$VV[293];
  $VV[290]=$VV[285]+$VV[293];
  $VV[292]=($VV[290]-2*($VV[41]*$VV[275]+$VV[76]*$VV[284])*$VV[1047])/2;
  $VV[268]=(Pi*$VV[83]*$VV[168])/9;
  $VV[253]=-($VV[85]*$VV[1071]);
  $VV[249]=4*$VV[45]*$VV[253];
  $VV[243]=(2*$VV[83])/(9*$VV[232]);
  $VV[306]=$VV[43]*$VV[1051];
  $VV[1076]=$VV[295]*$VV[306];
  $VV[238]=$VV[1050]^2;
  $VV[1088]=-$VV[236]+$VV[238];
  $VV[231]=$VV[83]*$VV[1051];
  $VV[241]=(2*$VV[231]*$VV[1052])/3;
  $VV[183]=$VV[29]*$VV[1056];
  $VV[180]=$VV[178]*$VV[307]*$VV[1055];
  $VV[170]=$VV[1034]*$VV[1056];
  $VV[166]=$VV[1044]*$VV[1054];
  $VV[156]=$VV[264]*(-($VV[85]*$VV[1040])+$VV[47]*$VV[1057]);
  $VV[164]=$VV[156]/$VV[37];
  $VV[184]=-($VV[36]*$VV[164]);
  $VV[153]=-($VV[152]*$VV[1057])+$VV[1075];
  $VV[163]=$VV[153]/$VV[37];
  $VV[177]=-($VV[36]*$VV[163]);
  $VV[138]=-($VV[280]*$VV[1057]);
  $VV[1066]=2*$VV[138];
  $VV[251]=$VV[38]*$VV[1062];
  $VV[121]=-($VV[76]*$VV[1047]);
  $VV[104]=$VV[1058]/2;
  $VV[105]=-($VV[41]*$VV[1058]);
  $VV[107]=$VV[41]*$VV[104];
  $VV[1065]=$VV[71]*$VV[107];
  $VV[108]=$VV[43]*$VV[1058];
  $VV[109]=-($VV[43]*$VV[104]);
  $VV[1060]=$VV[71]*$VV[109];
  $VV[173]=$VV[69]*$VV[1060];
  $VV[111]=$VV[71]*$VV[105];
  $VV[112]=1/2+$VV[1060];
  $VV[114]=1/2-$VV[1060];
  $VV[174]=$VV[166]*$VV[1065];
  $VV[117]=($VV[71]*$VV[108])/$VV[37];
  $VV[118]=$VV[111]/$VV[37];
  $VV[120]=$VV[112]/$VV[37]+$VV[121];
  $VV[122]=$VV[114]/$VV[37]+$VV[121];
  $VV[123]=$VV[53]*$VV[117];
  $VV[124]=$VV[53]*$VV[118];
  $VV[125]=$VV[53]*$VV[120];
  $VV[126]=$VV[53]*$VV[122];
  $VV[129]=$VV[125]*$VV[1061];
  $VV[246]=-($VV[38]*$VV[129])-$VV[120]*$VV[1043];
  $VV[142]=$VV[66]*(-2*$VV[129]+$VV[125]*$VV[136])-$VV[46]*($VV[85]*$VV[96]+$VV[39]*$VV[246]
   )*$VV[1040]-(-($VV[46]*$VV[47]*$VV[96])+$VV[120]*$VV[280])*$VV[1057];
  $VV[144]=$VV[122]*$VV[1066]+$VV[126]*$VV[1067];
  $VV[256]=$VV[144]/$VV[37];
  $VV[150]=$VV[272]*$VV[1062]-$VV[66]*($VV[1062]+$VV[147]*(-($VV[67]*$VV[146])+$VV[1063]));
  $VV[162]=$VV[150]/$VV[37];
  $VV[176]=-($VV[36]*$VV[162]);
  $VV[94]=$VV[85]*$VV[1073];
  $VV[90]=-($VV[231]/$VV[52]);
  $VV[92]=$VV[90]*$VV[1090];
  $VV[206]=$VV[184]*$VV[1058];
  $VV[207]=$VV[164]+$VV[206];
  $VV[218]=$VV[121]*$VV[156]+$VV[207]/2;
  $VV[205]=$VV[183]*$VV[1058];
  $VV[217]=$VV[205]/2;
  $VV[204]=$VV[180]*$VV[1058];
  $VV[216]=$VV[204]/2;
  $VV[202]=$VV[177]*$VV[1058];
  $VV[203]=$VV[163]+$VV[202];
  $VV[215]=$VV[121]*$VV[153]+$VV[203]/2;
  $VV[200]=$VV[176]*$VV[1058];
  $VV[201]=$VV[162]+$VV[200];
  $VV[214]=$VV[121]*$VV[150]+$VV[201]/2;
  $VV[194]=$VV[170]*$VV[1058];
  $VV[210]=$VV[194]/2;
  $VV[212]=2*$VV[76]*$VV[275]*$VV[1064];
  $VV[160]=-($VV[275]*$VV[1047]);
  $VV[161]=$VV[160]+$VV[256];
  $VV[159]=$VV[142]/$VV[37]+$VV[160];
  $VV[172]=-($VV[287]*$VV[1065]);
  $VV[175]=-($VV[36]*$VV[161])-$VV[172]-$VV[173]-$VV[174];
  $VV[171]=-($VV[36]*$VV[159])+$VV[172]+$VV[173]+$VV[174];
  $VV[167]=$VV[71]*($VV[69]*$VV[105]+($VV[166]-$VV[287])*$VV[1059]+($VV[118]*$VV[1066]
   +$VV[124]*$VV[1067])*$VV[1079]);
  $VV[72]=$VV[71]*(-($VV[43]*$VV[287])+$VV[1068]);
  $VV[1069]=$VV[72]*$VV[1053];
  $VV[1070]=$VV[25]*$VV[1069];
  $VV[224]=$VV[74]*$VV[1069];
  $VV[223]=-$VV[72]/(2*$VV[185]);
  $VV[1085]=$VV[223]+$VV[224];
  $VV[219]=-($VV[133]*$VV[1070]);
  $VV[197]=$VV[31]*$VV[1070];
  $VV[198]=-$VV[197]+$VV[175]*$VV[1058];
  $VV[199]=$VV[161]+$VV[198];
  $VV[213]=$VV[199]/2+$VV[212]-($VV[76]*$VV[144]+$VV[114]*$VV[275])*$VV[1047];
  $VV[195]=$VV[197]+$VV[171]*$VV[1058];
  $VV[78]=-2*$VV[25]*$VV[223];
  $VV[75]=$VV[78]+$VV[287];
  $VV[77]=$VV[75]/2+$VV[76]*$VV[160];
  $VV[79]=$VV[78]/$VV[52];
  $VV[1082]=-($VV[63]*$VV[79]);
  $VV[1083]=$VV[293]+$VV[1082];
  $VV[81]=($VV[133]*$VV[223])/$VV[52];
  $VV[1084]=$VV[63]*$VV[81];
  $VV[84]=$VV[92]*$VV[1034];
  $VV[1087]=$VV[63]*$VV[84];
  $VV[86]=(-$VV[77]+$VV[94]*$VV[1071])/$VV[52];
  $VV[1093]=$VV[63]*$VV[86];
  $VV[87]=-((-$VV[75]+$VV[77]+$VV[287])/$VV[52]);
  $VV[1095]=$VV[63]*$VV[87];
  $VV[88]=($VV[66]*$VV[251])/$VV[52];
  $VV[1098]=$VV[63]*$VV[88];
  $VV[89]=-(($VV[44]*$VV[151])/$VV[52]);
  $VV[1099]=$VV[63]*$VV[89];
  $VV[91]=(Pi*$VV[90])/3;
  $VV[1101]=$VV[63]*$VV[91];
  $VV[93]=$VV[29]*$VV[92];
  $VV[95]=($VV[94]*$VV[1077])/$VV[52];
  $VV[235]=$VV[234]*$VV[243];
  $VV[239]=$VV[268]*$VV[1034];
  $VV[244]=$VV[243]*$VV[1072];
  $VV[247]=-($VV[46]*$VV[1073]);
  $VV[1094]=-($VV[247]*$VV[1030]);
  $VV[266]=0.548311355616075478824138388882008396406316633735599479245186*10^0*$VV[83];
  $VV[294]=$VV[288]*$VV[1074];
  $VV[297]=$VV[1034]*$VV[1076];
  $VV[1089]=2*$VV[297];
  $VV[1092]=-$VV[1087]-$VV[1089];
  $VV[300]=$VV[292]+$VV[1071]*$VV[1078];
  $VV[301]=$VV[285]-$VV[290]+$VV[292];
  $VV[1096]=-$VV[301]-$VV[1095];
  $VV[304]=$VV[273]*$VV[1062]+(-($VV[56]*$VV[146])-$VV[1048])*$VV[1097];
  $VV[305]=$VV[58]*$VV[151]+$VV[42]*$VV[1075];
  $VV[308]=$VV[306]*$VV[307];
  $VV[1100]=-2*$VV[308];
  $VV[309]=$VV[29]*$VV[1076];
  $VV[310]=$VV[1077]*$VV[1078];
  $VV[311]=(-($VV[63]*$VV[79]^2)+$VV[219]+$VV[1058]*($VV[111]*$VV[166]+$VV[71]*($VV[69]*$VV[108]
   -$VV[105]*$VV[287]+($VV[117]*$VV[1066]+$VV[123]*$VV[1067])*$VV[1079]))+$VV[79]*$VV[1080])
   /$VV[52];
  $VV[313]=($VV[167]*$VV[1058]+$VV[72]*($VV[185]^(-1)-2*$VV[1053]*$VV[1081])+$VV[81]*($VV[1080]
   +$VV[1082]))/$VV[52];
  $VV[314]=($VV[194]-$VV[79]*$VV[297]+$VV[84]*$VV[1083])/$VV[52];
  $VV[315]=($VV[195]-$VV[79]*$VV[300]+$VV[86]*$VV[1083])/$VV[52];
  $VV[316]=($VV[198]-$VV[79]*$VV[301]+$VV[87]*$VV[1083])/$VV[52];
  $VV[317]=($VV[200]-$VV[79]*$VV[304]+$VV[88]*$VV[1083])/$VV[52];
  $VV[318]=($VV[202]-$VV[79]*$VV[305]+$VV[89]*$VV[1083])/$VV[52];
  $VV[319]=($VV[204]-$VV[79]*$VV[308]+$VV[91]*$VV[1083])/$VV[52];
  $VV[320]=($VV[205]-$VV[79]*$VV[309]+$VV[93]*$VV[1083])/$VV[52];
  $VV[321]=($VV[206]-$VV[79]*$VV[310]+$VV[95]*$VV[1083])/$VV[52];
  $VV[322]=$VV[313];
  $VV[323]=-(($VV[63]*$VV[81]^2+$VV[219]+2*$VV[81]*$VV[294]+$VV[167]*$VV[1074])/$VV[52]);
  $VV[324]=-(($VV[84]*$VV[294]+$VV[81]*$VV[297]+$VV[170]*$VV[1074]+$VV[84]*$VV[1084])/$VV[52]);
  $VV[325]=-(($VV[31]*$VV[171]+$VV[185]*($VV[86]*$VV[294]+$VV[81]*$VV[300]+$VV[86]*$VV[1084]
   +$VV[1085]))/($VV[52]*$VV[185]));
  $VV[326]=(-($VV[81]*$VV[301])-$VV[175]*$VV[1074]+$VV[87]*(-$VV[294]-$VV[1084])+$VV[1085])
   /$VV[52];
  $VV[327]=-(($VV[88]*$VV[294]+$VV[81]*$VV[304]+$VV[176]*$VV[1074]+$VV[88]*$VV[1084])/$VV[52]);
  $VV[328]=-(($VV[89]*$VV[294]+$VV[81]*$VV[305]+$VV[177]*$VV[1074]+$VV[89]*$VV[1084])/$VV[52]);
  $VV[329]=-(($VV[91]*$VV[294]+$VV[81]*$VV[308]+$VV[180]*$VV[1074]+$VV[91]*$VV[1084])/$VV[52]);
  $VV[330]=-(($VV[93]*$VV[294]+$VV[81]*$VV[309]+$VV[183]*$VV[1074]+$VV[93]*$VV[1084])/$VV[52]);
  $VV[331]=-(($VV[95]*$VV[294]+$VV[81]*$VV[310]+$VV[184]*$VV[1074]+$VV[95]*$VV[1084])/$VV[52]);
  $VV[332]=$VV[314];
  $VV[333]=$VV[324];
  $VV[334]=-(($VV[63]*$VV[84]^2+$VV[29]*$VV[241]*$VV[1086]+$VV[235]*$VV[1088]+$VV[84]*$VV[1089])
   /$VV[52]);
  $VV[335]=-(($VV[210]+$VV[86]*$VV[297]+$VV[84]*$VV[300]+$VV[86]*$VV[1087])/$VV[52]);
  $VV[336]=($VV[210]-$VV[84]*$VV[301]+$VV[87]*(-$VV[297]-$VV[1087]))/$VV[52];
  $VV[337]=-(($VV[88]*$VV[297]+$VV[84]*$VV[304]+$VV[88]*$VV[1087])/$VV[52]);
  $VV[338]=-(($VV[89]*$VV[297]+$VV[84]*$VV[305]+$VV[89]*$VV[1087])/$VV[52]);
  $VV[340]=(-($VV[239]*$VV[1088])+$VV[91]*$VV[1092])/$VV[52];
  $VV[342]=(-($VV[244]*$VV[1088])-$VV[231]*$VV[1090]+$VV[241]*$VV[1091]+$VV[93]*$VV[1092])/$VV[52];
  $VV[343]=-(($VV[95]*$VV[297]+$VV[84]*$VV[310]+$VV[95]*$VV[1087])/$VV[52]);
  $VV[344]=$VV[315];
  $VV[345]=$VV[325];
  $VV[346]=$VV[335];
  $VV[347]=-(2*$VV[63]*$VV[86]^2+2*$VV[121]*$VV[142]+$VV[159]+2*$VV[112]*$VV[160]+$VV[195]
   +2*$VV[212]+2*$VV[85]*$VV[247]+$VV[96]*$VV[246]*$VV[247]+2*$VV[120]*$VV[249]+4*$VV[86]*$VV[300])/
   (2*$VV[52]);
  $VV[348]=-(($VV[213]+$VV[122]*$VV[249]+$VV[87]*$VV[300]+$VV[86]*$VV[301]+$VV[87]*$VV[1093]
   +$VV[122]*$VV[1057]*$VV[1094])/$VV[52]);
  $VV[349]=-(($VV[214]+$VV[88]*$VV[300]+$VV[86]*$VV[304]+$VV[88]*$VV[1093]+$VV[251]*$VV[1094])
   /$VV[52]);
  $VV[350]=-(($VV[215]+2*$VV[151]*$VV[253]+$VV[89]*$VV[300]+$VV[86]*$VV[305]+$VV[89]*$VV[1093])
   /$VV[52]);
  $VV[351]=-(($VV[216]+$VV[91]*$VV[300]+$VV[86]*$VV[308]+$VV[91]*$VV[1093])/$VV[52]);
  $VV[352]=-(($VV[217]+$VV[93]*$VV[300]+$VV[86]*$VV[309]+$VV[93]*$VV[1093])/$VV[52]);
  $VV[353]=-(($VV[218]+$VV[95]*$VV[300]+$VV[86]*$VV[310]-4*$VV[47]*$VV[85]*$VV[1030]*$VV[1035]
   +$VV[95]*$VV[1093])/$VV[52]);
  $VV[354]=$VV[316];
  $VV[355]=$VV[326];
  $VV[356]=$VV[336];
  $VV[357]=$VV[348];
  $VV[358]=-(($VV[63]*$VV[87]^2+$VV[161]-$VV[199]+$VV[213]+2*$VV[87]*$VV[301])/$VV[52]);
  $VV[359]=-(($VV[162]-$VV[201]+$VV[214]+$VV[88]*$VV[301]+$VV[87]*$VV[304]+$VV[88]*$VV[1095])
   /$VV[52]);
  $VV[360]=-(($VV[163]-$VV[203]+$VV[215]+$VV[89]*$VV[301]+$VV[87]*$VV[305]+$VV[89]*$VV[1095])
   /$VV[52]);
  $VV[361]=($VV[216]-$VV[87]*$VV[308]+$VV[91]*$VV[1096])/$VV[52];
  $VV[362]=($VV[217]-$VV[87]*$VV[309]+$VV[93]*$VV[1096])/$VV[52];
  $VV[363]=-(($VV[164]-$VV[207]+$VV[218]+$VV[95]*$VV[301]+$VV[87]*$VV[310]+$VV[95]*$VV[1095])
   /$VV[52]);
  $VV[364]=$VV[317];
  $VV[365]=$VV[327];
  $VV[366]=$VV[337];
  $VV[367]=$VV[349];
  $VV[368]=$VV[359];
  $VV[369]=(-($VV[63]*$VV[88]^2)-2*$VV[88]*$VV[304]+$VV[48]*$VV[146]^2*$VV[1097])/$VV[52];
  $VV[370]=($VV[152]*$VV[251]-$VV[88]*$VV[305]+$VV[89]*(-$VV[304]-$VV[1098]))/$VV[52];
  $VV[371]=-(($VV[91]*$VV[304]+$VV[88]*$VV[308]+$VV[91]*$VV[1098])/$VV[52]);
  $VV[372]=-(($VV[93]*$VV[304]+$VV[88]*$VV[309]+$VV[93]*$VV[1098])/$VV[52]);
  $VV[373]=-(($VV[47]*$VV[251]*$VV[264]+$VV[95]*$VV[304]+$VV[88]*$VV[310]+$VV[95]*$VV[1098])
   /$VV[52]);
  $VV[374]=$VV[318];
  $VV[375]=$VV[328];
  $VV[376]=$VV[338];
  $VV[377]=$VV[350];
  $VV[378]=$VV[360];
  $VV[379]=$VV[370];
  $VV[380]=-(($VV[89]*(2*$VV[305]+$VV[1099]))/$VV[52]);
  $VV[381]=-(($VV[91]*$VV[305]+$VV[89]*$VV[308]+$VV[91]*$VV[1099])/$VV[52]);
  $VV[382]=-(($VV[93]*$VV[305]+$VV[89]*$VV[309]+$VV[93]*$VV[1099])/$VV[52]);
  $VV[383]=($VV[85]*$VV[151]*$VV[264]-$VV[89]*$VV[310]+$VV[95]*(-$VV[305]-$VV[1099]))/$VV[52];
  $VV[384]=$VV[319];
  $VV[385]=$VV[329];
  $VV[386]=$VV[340];
  $VV[387]=$VV[351];
  $VV[388]=$VV[361];
  $VV[389]=$VV[371];
  $VV[390]=$VV[381];
  $VV[391]=(-($VV[63]*$VV[91]^2)-$VV[266]*$VV[1088]+$VV[91]*$VV[1100])/$VV[52];
  $VV[393]=(-($VV[29]*$VV[268]*$VV[1088])+$VV[93]*($VV[1100]-$VV[1101]))/$VV[52];
  $VV[394]=-(($VV[95]*$VV[308]+$VV[91]*$VV[310]+$VV[95]*$VV[1101])/$VV[52]);
  $VV[395]=$VV[320];
  $VV[396]=$VV[330];
  $VV[397]=$VV[342];
  $VV[398]=$VV[352];
  $VV[399]=$VV[362];
  $VV[400]=$VV[372];
  $VV[401]=$VV[382];
  $VV[402]=$VV[393];
  $VV[403]=(-($VV[63]*$VV[93]^2)-2*$VV[93]*$VV[309]-$VV[242]*$VV[243]*$VV[1088]
   -$VV[241]*$VV[1034]*$VV[1102])/$VV[52];
  $VV[404]=-(($VV[63]*$VV[93]*$VV[95]+$VV[95]*$VV[309]+$VV[93]*$VV[310])/$VV[52]);
  $VV[405]=$VV[321];
  $VV[406]=$VV[331];
  $VV[407]=$VV[343];
  $VV[408]=$VV[353];
  $VV[409]=$VV[363];
  $VV[410]=$VV[373];
  $VV[411]=$VV[383];
  $VV[412]=$VV[394];
  $VV[413]=$VV[404];
  $VV[414]=($VV[39]*$VV[94]-$VV[63]*$VV[95]^2-2*$VV[95]*$VV[310])/$VV[52];
  iter$$=$VV[34];
  Break[];
 ]; (* endif *)
 If[$VV[34]==15,
  iter$$=-1;
  Break[];
 ]; (* endif *)
,{$VV[34],1,15,1}]; (*EndDo*)
$VV[420]=$VV[79];
$VV[421]=$VV[81];
$VV[422]=$VV[84];
$VV[423]=$VV[86];
$VV[424]=$VV[87];
$VV[425]=$VV[88];
$VV[426]=$VV[89];
$VV[427]=$VV[91];
$VV[428]=$VV[93];
$VV[429]=$VV[95];
$VV[430]=$VV[33];
F$$=-1+$VV[28]/$VV[430];
If[dorder$$ >= 1,
 $VV[1123]=3/(2*$VV[25]);
 $VV[1122]=sigma$$[[4]]*sigma$$[[5]];
 $VV[1114]=2*sigma$$[[6]];
 $VV[1113]=2*sigma$$[[5]];
 $VV[1112]=2*sigma$$[[4]];
 $VV[1111]=$VV[17]*$VV[19];
 $VV[1110]=1/(2*$VV[28]);
 $VV[1108]=1/($VV[28]*$VV[430]);
 $VV[802]=$VV[18]*$VV[19]+$VV[1103];
 $VV[785]=$VV[1104]+$VV[1111];
 $VV[736]=-($VV[28]*$VV[1123]);
 $VV[735]=$VV[421]*$VV[736];
 $VV[477]=$VV[20]^(-2);
 $VV[734]=(-0.389711431702997391043675426838821282562131182107335641312557*10^1*$VV[477])
  /$VV[1106];
 $VV[733]=$VV[24]*$VV[734];
 $VV[529]=$VV[31]*$VV[1110];
 $VV[458]=-($VV[529]/$VV[430]);
 $VV[436]=$VV[430]^(-2);
 $VV[1109]=$VV[28]*$VV[436];
 $VV[434]=-($VV[422]*$VV[1109]);
 $VV[1107]=$VV[434]*$VV[439];
 $VV[705]=-0.129903810567665797014558475612940427520710394035778547104186*10^1*$VV[434];
 $VV[690]=0.183711730708738357364796305602941854397446061049250259632452*10^1*$VV[434];
 $VV[455]=$VV[449]*$VV[690];
 $VV[452]=$VV[449]*$VV[705];
 $VV[451]=sigma$$[[6]]*$VV[455];
 $VV[438]=$VV[434]*$VV[733]+$VV[436]*$VV[735]+(3*$VV[1108])/2;
 $VV[453]=$VV[438]/2;
 $VV[906]=$VV[18]*$VV[452]+$VV[453];
 $VV[891]=$VV[17]*$VV[452]+$VV[453];
 $VV[876]=$VV[19]*$VV[452]+$VV[453];
 $VV[440]=$VV[19]*$VV[438]+$VV[1105]*$VV[1107];
 $VV[441]=$VV[18]*$VV[438]+$VV[785]*$VV[1107];
 $VV[442]=$VV[17]*$VV[438]+$VV[802]*$VV[1107];
 $VV[446]=(-$VV[440]-$VV[441]-$VV[442]-$VV[31]*$VV[1108]+$VV[420]*$VV[1109])/3;
 DF$$[[1]]=$VV[442]+$VV[446];
 DF$$[[2]]=$VV[441]+$VV[446];
 DF$$[[3]]=$VV[440]+$VV[446];
 DF$$[[4]]=sigma$$[[5]]*$VV[451]+$VV[876]*$VV[1112];
 DF$$[[5]]=sigma$$[[4]]*$VV[451]+$VV[891]*$VV[1113];
 DF$$[[6]]=$VV[906]*$VV[1114]+$VV[455]*$VV[1122];
 DF$$[[7]]=$VV[100]*$VV[438]+$VV[458]-$VV[423]*$VV[1109];
 DF$$[[8]]=-$VV[458]-$VV[424]*$VV[1109];
 DF$$[[9]]=-($VV[425]*$VV[1109]);
 DF$$[[10]]=-($VV[426]*$VV[1109]);
 DF$$[[11]]=-($VV[427]*$VV[1109]);
 DF$$[[12]]=-($VV[428]*$VV[1109]);
 DF$$[[13]]=-($VV[429]*$VV[1109]);
 If[dorder$$==2,
  $VV[1160]=-($VV[28]*$VV[429]);
  $VV[1151]=-($VV[436]*$VV[529]);
  $VV[1150]=-($VV[31]/$VV[28]);
  $VV[1142]=$VV[439]*$VV[802];
  $VV[1141]=$VV[439]*$VV[785];
  $VV[1133]=$VV[439]*$VV[1105];
  $VV[1131]=$VV[434]*$VV[734];
  $VV[1130]=3/(2*$VV[430]);
  $VV[1129]=3/(2*$VV[28]);
  $VV[1117]=3*sigma$$[[6]];
  $VV[1116]=3*sigma$$[[5]];
  $VV[1115]=3*sigma$$[[4]];
  $VV[851]=(2*$VV[452])/3;
  $VV[836]=-$VV[452]/3;
  $VV[824]=$VV[1110]/$VV[430];
  $VV[817]=$VV[1108]/3;
  $VV[789]=-$VV[19]/3;
  $VV[787]=(2*$VV[438])/3;
  $VV[773]=-$VV[18]/3;
  $VV[772]=-$VV[17]/3;
  $VV[770]=-$VV[438]/3;
  $VV[741]=(3*$VV[28])/(4*$VV[437]);
  $VV[740]=(45*$VV[434])/(8*$VV[20]^3);
  $VV[739]=(0.173205080756887729352744634150587236694280525381038062805581*10^1*$VV[24])
   /$VV[1106];
  $VV[1132]=$VV[739]*$VV[740];
  $VV[707]=-0.129903810567665797014558475612940427520710394035778547104186*10^1*$VV[449];
  $VV[692]=0.183711730708738357364796305602941854397446061049250259632452*10^1*$VV[449];
  $VV[664]=$VV[430]^(-3);
  $VV[1124]=-2*$VV[664];
  $VV[656]=$VV[1108]/4;
  $VV[649]=-$VV[31]/(2*$VV[430]);
  $VV[648]=$VV[1108]/6;
  $VV[639]=$VV[28]^(-2);
  $VV[618]=-$VV[420]/3;
  $VV[610]=-$VV[405]/3;
  $VV[602]=-$VV[395]/3;
  $VV[594]=-$VV[384]/3;
  $VV[586]=-$VV[374]/3;
  $VV[578]=-$VV[364]/3;
  $VV[570]=-$VV[354]/3;
  $VV[562]=-$VV[344]/3;
  $VV[554]=-$VV[332]/3;
  $VV[546]=-$VV[322]/3;
  $VV[538]=-$VV[311]/3;
  $VV[522]=(-2*$VV[31])/3;
  $VV[507]=$VV[1029]/6;
  $VV[506]=$VV[1027]/6;
  $VV[505]=$VV[19]*$VV[773];
  $VV[1119]=$VV[505]+$VV[506];
  $VV[504]=-$VV[1111]/3;
  $VV[1120]=$VV[504]+$VV[507];
  $VV[502]=$VV[1026]/6;
  $VV[501]=$VV[18]*$VV[772];
  $VV[1118]=$VV[501]+$VV[502];
  $VV[479]=0.384900179459750509672765853667971637098401167513417917345735*10^0*$VV[734];
  $VV[474]=(-2*$VV[18])/3;
  $VV[473]=(-2*$VV[17])/3;
  $VV[471]=(-2*$VV[19])/3;
  $VV[478]=$VV[17]*$VV[479];
  $VV[480]=$VV[18]*$VV[479];
  $VV[481]=$VV[19]*$VV[479];
  $VV[482]=sigma$$[[4]]*$VV[479];
  $VV[483]=sigma$$[[5]]*$VV[479];
  $VV[484]=sigma$$[[6]]*$VV[479];
  $VV[485]=$VV[100]*$VV[479];
  $VV[486]=0.259807621135331594029116951225880855041420788071557094208371*10^1*$VV[478];
  $VV[487]=0.259807621135331594029116951225880855041420788071557094208371*10^1*$VV[480];
  $VV[488]=0.259807621135331594029116951225880855041420788071557094208371*10^1*$VV[481];
  $VV[489]=0.259807621135331594029116951225880855041420788071557094208371*10^1*$VV[482];
  $VV[490]=0.259807621135331594029116951225880855041420788071557094208371*10^1*$VV[483];
  $VV[491]=0.259807621135331594029116951225880855041420788071557094208371*10^1*$VV[484];
  $VV[492]=0.259807621135331594029116951225880855041420788071557094208371*10^1*$VV[485];
  $VV[493]=3*$VV[17];
  $VV[494]=3*$VV[18];
  $VV[495]=3*$VV[19];
  $VV[499]=3*$VV[100];
  $VV[500]=-($VV[18]*$VV[471])-$VV[1027]/3+$VV[1118]+$VV[1120];
  $VV[503]=-($VV[17]*$VV[471])-$VV[1029]/3+$VV[1118]+$VV[1119];
  $VV[508]=-($VV[18]*$VV[473])-$VV[1026]/3+$VV[1119]+$VV[1120];
  $VV[510]=$VV[1028]-($VV[19]*$VV[1112])/2;
  $VV[511]=-($VV[17]*$VV[1113])/2+sigma$$[[4]]*$VV[1121];
  $VV[512]=-($VV[18]*$VV[1114])/2
   +0.707106781186547524400844362104849039284835937688474036588340*10^0*$VV[1122];
  $VV[514]=$VV[17]*$VV[1123];
  $VV[515]=$VV[18]*$VV[1123];
  $VV[516]=$VV[19]*$VV[1123];
  $VV[517]=sigma$$[[4]]*$VV[1123];
  $VV[518]=sigma$$[[5]]*$VV[1123];
  $VV[519]=sigma$$[[6]]*$VV[1123];
  $VV[520]=$VV[100]*$VV[1123];
  $VV[521]=($VV[493]+$VV[522])*$VV[1110];
  $VV[523]=($VV[494]+$VV[522])*$VV[1110];
  $VV[524]=($VV[495]+$VV[522])*$VV[1110];
  $VV[525]=$VV[1110]*$VV[1115];
  $VV[526]=$VV[1110]*$VV[1116];
  $VV[527]=$VV[1110]*$VV[1117];
  $VV[528]=(-$VV[31]+$VV[499])*$VV[1110];
  $VV[530]=$VV[24]*$VV[486]+$VV[439]*$VV[500];
  $VV[531]=$VV[24]*$VV[487]+$VV[439]*$VV[503];
  $VV[532]=$VV[24]*$VV[488]+$VV[439]*$VV[508];
  $VV[533]=$VV[24]*$VV[489]+$VV[439]*$VV[510];
  $VV[534]=$VV[24]*$VV[490]+$VV[439]*$VV[511];
  $VV[535]=$VV[24]*$VV[491]+$VV[439]*$VV[512];
  $VV[536]=$VV[24]*$VV[492];
  $VV[537]=$VV[313]*$VV[514]+$VV[314]*$VV[530]+$VV[538];
  $VV[539]=$VV[313]*$VV[515]+$VV[314]*$VV[531]+$VV[538];
  $VV[540]=$VV[313]*$VV[516]+$VV[314]*$VV[532]+$VV[538];
  $VV[541]=$VV[313]*$VV[517]+$VV[314]*$VV[533];
  $VV[542]=$VV[313]*$VV[518]+$VV[314]*$VV[534];
  $VV[543]=$VV[313]*$VV[519]+$VV[314]*$VV[535];
  $VV[544]=$VV[315]+$VV[313]*$VV[520]+$VV[314]*$VV[536];
  $VV[545]=$VV[323]*$VV[514]+$VV[324]*$VV[530]+$VV[546];
  $VV[547]=$VV[323]*$VV[515]+$VV[324]*$VV[531]+$VV[546];
  $VV[548]=$VV[323]*$VV[516]+$VV[324]*$VV[532]+$VV[546];
  $VV[549]=$VV[323]*$VV[517]+$VV[324]*$VV[533];
  $VV[550]=$VV[323]*$VV[518]+$VV[324]*$VV[534];
  $VV[551]=$VV[323]*$VV[519]+$VV[324]*$VV[535];
  $VV[552]=$VV[325]+$VV[323]*$VV[520]+$VV[324]*$VV[536];
  $VV[553]=$VV[333]*$VV[514]+$VV[334]*$VV[530]+$VV[554];
  $VV[555]=$VV[333]*$VV[515]+$VV[334]*$VV[531]+$VV[554];
  $VV[556]=$VV[333]*$VV[516]+$VV[334]*$VV[532]+$VV[554];
  $VV[557]=$VV[333]*$VV[517]+$VV[334]*$VV[533];
  $VV[558]=$VV[333]*$VV[518]+$VV[334]*$VV[534];
  $VV[559]=$VV[333]*$VV[519]+$VV[334]*$VV[535];
  $VV[560]=$VV[335]+$VV[333]*$VV[520]+$VV[334]*$VV[536];
  $VV[561]=$VV[345]*$VV[514]+$VV[346]*$VV[530]+$VV[562];
  $VV[563]=$VV[345]*$VV[515]+$VV[346]*$VV[531]+$VV[562];
  $VV[564]=$VV[345]*$VV[516]+$VV[346]*$VV[532]+$VV[562];
  $VV[565]=$VV[345]*$VV[517]+$VV[346]*$VV[533];
  $VV[566]=$VV[345]*$VV[518]+$VV[346]*$VV[534];
  $VV[567]=$VV[345]*$VV[519]+$VV[346]*$VV[535];
  $VV[568]=$VV[347]+$VV[345]*$VV[520]+$VV[346]*$VV[536];
  $VV[569]=$VV[355]*$VV[514]+$VV[356]*$VV[530]+$VV[570];
  $VV[571]=$VV[355]*$VV[515]+$VV[356]*$VV[531]+$VV[570];
  $VV[572]=$VV[355]*$VV[516]+$VV[356]*$VV[532]+$VV[570];
  $VV[573]=$VV[355]*$VV[517]+$VV[356]*$VV[533];
  $VV[574]=$VV[355]*$VV[518]+$VV[356]*$VV[534];
  $VV[575]=$VV[355]*$VV[519]+$VV[356]*$VV[535];
  $VV[576]=$VV[357]+$VV[355]*$VV[520]+$VV[356]*$VV[536];
  $VV[577]=$VV[365]*$VV[514]+$VV[366]*$VV[530]+$VV[578];
  $VV[579]=$VV[365]*$VV[515]+$VV[366]*$VV[531]+$VV[578];
  $VV[580]=$VV[365]*$VV[516]+$VV[366]*$VV[532]+$VV[578];
  $VV[581]=$VV[365]*$VV[517]+$VV[366]*$VV[533];
  $VV[582]=$VV[365]*$VV[518]+$VV[366]*$VV[534];
  $VV[583]=$VV[365]*$VV[519]+$VV[366]*$VV[535];
  $VV[584]=$VV[367]+$VV[365]*$VV[520]+$VV[366]*$VV[536];
  $VV[585]=$VV[375]*$VV[514]+$VV[376]*$VV[530]+$VV[586];
  $VV[587]=$VV[375]*$VV[515]+$VV[376]*$VV[531]+$VV[586];
  $VV[588]=$VV[375]*$VV[516]+$VV[376]*$VV[532]+$VV[586];
  $VV[589]=$VV[375]*$VV[517]+$VV[376]*$VV[533];
  $VV[590]=$VV[375]*$VV[518]+$VV[376]*$VV[534];
  $VV[591]=$VV[375]*$VV[519]+$VV[376]*$VV[535];
  $VV[592]=$VV[377]+$VV[375]*$VV[520]+$VV[376]*$VV[536];
  $VV[593]=$VV[385]*$VV[514]+$VV[386]*$VV[530]+$VV[594];
  $VV[595]=$VV[385]*$VV[515]+$VV[386]*$VV[531]+$VV[594];
  $VV[596]=$VV[385]*$VV[516]+$VV[386]*$VV[532]+$VV[594];
  $VV[597]=$VV[385]*$VV[517]+$VV[386]*$VV[533];
  $VV[598]=$VV[385]*$VV[518]+$VV[386]*$VV[534];
  $VV[599]=$VV[385]*$VV[519]+$VV[386]*$VV[535];
  $VV[600]=$VV[387]+$VV[385]*$VV[520]+$VV[386]*$VV[536];
  $VV[601]=$VV[396]*$VV[514]+$VV[397]*$VV[530]+$VV[602];
  $VV[603]=$VV[396]*$VV[515]+$VV[397]*$VV[531]+$VV[602];
  $VV[604]=$VV[396]*$VV[516]+$VV[397]*$VV[532]+$VV[602];
  $VV[605]=$VV[396]*$VV[517]+$VV[397]*$VV[533];
  $VV[606]=$VV[396]*$VV[518]+$VV[397]*$VV[534];
  $VV[607]=$VV[396]*$VV[519]+$VV[397]*$VV[535];
  $VV[608]=$VV[398]+$VV[396]*$VV[520]+$VV[397]*$VV[536];
  $VV[609]=$VV[406]*$VV[514]+$VV[407]*$VV[530]+$VV[610];
  $VV[611]=$VV[406]*$VV[515]+$VV[407]*$VV[531]+$VV[610];
  $VV[612]=$VV[406]*$VV[516]+$VV[407]*$VV[532]+$VV[610];
  $VV[613]=$VV[406]*$VV[517]+$VV[407]*$VV[533];
  $VV[614]=$VV[406]*$VV[518]+$VV[407]*$VV[534];
  $VV[615]=$VV[406]*$VV[519]+$VV[407]*$VV[535];
  $VV[616]=$VV[408]+$VV[406]*$VV[520]+$VV[407]*$VV[536];
  $VV[617]=$VV[421]*$VV[514]+$VV[422]*$VV[530]+$VV[618];
  $VV[619]=$VV[421]*$VV[515]+$VV[422]*$VV[531]+$VV[618];
  $VV[620]=$VV[421]*$VV[516]+$VV[422]*$VV[532]+$VV[618];
  $VV[621]=$VV[421]*$VV[517]+$VV[422]*$VV[533];
  $VV[622]=$VV[421]*$VV[518]+$VV[422]*$VV[534];
  $VV[623]=$VV[421]*$VV[519]+$VV[422]*$VV[535];
  $VV[624]=$VV[423]+$VV[421]*$VV[520]+$VV[422]*$VV[536];
  $VV[625]=-($VV[436]*$VV[617]);
  $VV[626]=-($VV[436]*$VV[619]);
  $VV[627]=-($VV[436]*$VV[620]);
  $VV[628]=-($VV[436]*$VV[621]);
  $VV[629]=-($VV[436]*$VV[622]);
  $VV[630]=-($VV[436]*$VV[623]);
  $VV[631]=-($VV[436]*$VV[624]);
  $VV[632]=-($VV[424]*$VV[436]);
  $VV[935]=-($VV[529]*$VV[632]);
  $VV[633]=-($VV[425]*$VV[436]);
  $VV[634]=-($VV[426]*$VV[436]);
  $VV[635]=-($VV[427]*$VV[436]);
  $VV[636]=-($VV[428]*$VV[436]);
  $VV[637]=-($VV[429]*$VV[436]);
  $VV[638]=-($VV[521]*$VV[639]);
  $VV[640]=-($VV[523]*$VV[639]);
  $VV[641]=-($VV[524]*$VV[639]);
  $VV[642]=-($VV[525]*$VV[639]);
  $VV[643]=-($VV[526]*$VV[639]);
  $VV[644]=-($VV[527]*$VV[639]);
  $VV[645]=-($VV[528]*$VV[639]);
  $VV[646]=-($VV[529]*$VV[639]);
  $VV[647]=-($VV[529]*$VV[625])+$VV[648]+$VV[638]*$VV[649];
  $VV[650]=-($VV[529]*$VV[626])+$VV[648]+$VV[640]*$VV[649];
  $VV[651]=-($VV[529]*$VV[627])+$VV[648]+$VV[641]*$VV[649];
  $VV[652]=-($VV[529]*$VV[628])+$VV[642]*$VV[649];
  $VV[653]=-($VV[529]*$VV[629])+$VV[643]*$VV[649];
  $VV[654]=-($VV[529]*$VV[630])+$VV[644]*$VV[649];
  $VV[655]=-($VV[529]*$VV[631])+$VV[645]*$VV[649]+$VV[656];
  $VV[657]=$VV[646]*$VV[649]-$VV[656]+$VV[935];
  $VV[658]=-($VV[529]*$VV[633]);
  $VV[659]=-($VV[529]*$VV[634]);
  $VV[660]=-($VV[529]*$VV[635]);
  $VV[661]=-($VV[529]*$VV[636]);
  $VV[662]=-($VV[529]*$VV[637]);
  $VV[663]=$VV[617]*$VV[1124];
  $VV[1143]=$VV[28]*$VV[663];
  $VV[665]=$VV[619]*$VV[1124];
  $VV[1144]=$VV[28]*$VV[665];
  $VV[666]=$VV[620]*$VV[1124];
  $VV[1145]=$VV[28]*$VV[666];
  $VV[667]=$VV[621]*$VV[1124];
  $VV[1146]=$VV[28]*$VV[667];
  $VV[668]=$VV[622]*$VV[1124];
  $VV[1147]=$VV[28]*$VV[668];
  $VV[669]=$VV[623]*$VV[1124];
  $VV[1148]=$VV[28]*$VV[669];
  $VV[670]=$VV[624]*$VV[1124];
  $VV[1149]=$VV[28]*$VV[670];
  $VV[671]=$VV[424]*$VV[1124];
  $VV[1125]=-($VV[28]*$VV[671]);
  $VV[1011]=$VV[429]*$VV[1125];
  $VV[1156]=-$VV[662]+$VV[1011];
  $VV[994]=$VV[428]*$VV[1125];
  $VV[1155]=-$VV[661]+$VV[994];
  $VV[978]=$VV[427]*$VV[1125];
  $VV[1154]=-$VV[660]+$VV[978];
  $VV[963]=$VV[426]*$VV[1125];
  $VV[1153]=-$VV[659]+$VV[963];
  $VV[949]=$VV[425]*$VV[1125];
  $VV[1152]=-$VV[658]+$VV[949];
  $VV[672]=$VV[425]*$VV[1124];
  $VV[1126]=-($VV[28]*$VV[672]);
  $VV[1013]=$VV[429]*$VV[1126];
  $VV[996]=$VV[428]*$VV[1126];
  $VV[980]=$VV[427]*$VV[1126];
  $VV[965]=$VV[426]*$VV[1126];
  $VV[673]=$VV[426]*$VV[1124];
  $VV[1127]=-($VV[28]*$VV[673]);
  $VV[1015]=$VV[429]*$VV[1127];
  $VV[998]=$VV[428]*$VV[1127];
  $VV[982]=$VV[427]*$VV[1127];
  $VV[674]=$VV[427]*$VV[1124];
  $VV[1128]=-($VV[28]*$VV[674]);
  $VV[1017]=$VV[429]*$VV[1128];
  $VV[1000]=$VV[428]*$VV[1128];
  $VV[675]=$VV[428]*$VV[1124];
  $VV[1019]=$VV[675]*$VV[1160];
  $VV[676]=$VV[429]*$VV[1124];
  $VV[677]=-($VV[553]*$VV[1109])-$VV[422]*($VV[436]*$VV[521]+$VV[1143]);
  $VV[1134]=$VV[434]*$VV[486]+$VV[439]*$VV[677];
  $VV[678]=-($VV[555]*$VV[1109])-$VV[422]*($VV[436]*$VV[523]+$VV[1144]);
  $VV[1135]=$VV[434]*$VV[487]+$VV[439]*$VV[678];
  $VV[679]=-($VV[556]*$VV[1109])-$VV[422]*($VV[436]*$VV[524]+$VV[1145]);
  $VV[1136]=$VV[434]*$VV[488]+$VV[439]*$VV[679];
  $VV[680]=-($VV[557]*$VV[1109])-$VV[422]*($VV[436]*$VV[525]+$VV[1146]);
  $VV[1137]=$VV[434]*$VV[489]+$VV[439]*$VV[680];
  $VV[681]=-($VV[558]*$VV[1109])-$VV[422]*($VV[436]*$VV[526]+$VV[1147]);
  $VV[1138]=$VV[434]*$VV[490]+$VV[439]*$VV[681];
  $VV[682]=-($VV[559]*$VV[1109])-$VV[422]*($VV[436]*$VV[527]+$VV[1148]);
  $VV[1139]=$VV[434]*$VV[491]+$VV[439]*$VV[682];
  $VV[683]=-($VV[560]*$VV[1109])-$VV[422]*($VV[436]*$VV[528]+$VV[1149]);
  $VV[1140]=$VV[434]*$VV[492]+$VV[439]*$VV[683];
  $VV[684]=-($VV[28]*($VV[336]*$VV[436]+$VV[422]*$VV[671]))+$VV[422]*$VV[1151];
  $VV[685]=-($VV[28]*($VV[337]*$VV[436]+$VV[422]*$VV[672]));
  $VV[686]=-($VV[28]*($VV[338]*$VV[436]+$VV[422]*$VV[673]));
  $VV[687]=-($VV[28]*($VV[340]*$VV[436]+$VV[422]*$VV[674]));
  $VV[688]=-($VV[28]*($VV[342]*$VV[436]+$VV[422]*$VV[675]));
  $VV[689]=-($VV[28]*($VV[343]*$VV[436]+$VV[422]*$VV[676]));
  $VV[691]=$VV[478]*$VV[690]+$VV[677]*$VV[692];
  $VV[693]=$VV[480]*$VV[690]+$VV[678]*$VV[692];
  $VV[694]=$VV[481]*$VV[690]+$VV[679]*$VV[692];
  $VV[695]=$VV[482]*$VV[690]+$VV[680]*$VV[692];
  $VV[696]=$VV[483]*$VV[690]+$VV[681]*$VV[692];
  $VV[697]=$VV[484]*$VV[690]+$VV[682]*$VV[692];
  $VV[698]=$VV[485]*$VV[690]+$VV[683]*$VV[692];
  $VV[699]=$VV[684]*$VV[692];
  $VV[700]=$VV[685]*$VV[692];
  $VV[701]=$VV[686]*$VV[692];
  $VV[702]=$VV[687]*$VV[692];
  $VV[703]=$VV[688]*$VV[692];
  $VV[704]=$VV[689]*$VV[692];
  $VV[706]=$VV[478]*$VV[705]+$VV[677]*$VV[707];
  $VV[708]=$VV[480]*$VV[705]+$VV[678]*$VV[707];
  $VV[709]=$VV[481]*$VV[705]+$VV[679]*$VV[707];
  $VV[710]=$VV[482]*$VV[705]+$VV[680]*$VV[707];
  $VV[711]=$VV[483]*$VV[705]+$VV[681]*$VV[707];
  $VV[712]=$VV[484]*$VV[705]+$VV[682]*$VV[707];
  $VV[713]=$VV[485]*$VV[705]+$VV[683]*$VV[707];
  $VV[714]=$VV[684]*$VV[707];
  $VV[715]=$VV[685]*$VV[707];
  $VV[716]=$VV[686]*$VV[707];
  $VV[717]=$VV[687]*$VV[707];
  $VV[718]=$VV[688]*$VV[707];
  $VV[719]=$VV[689]*$VV[707];
  $VV[720]=sigma$$[[6]]*$VV[691];
  $VV[721]=sigma$$[[6]]*$VV[693];
  $VV[722]=sigma$$[[6]]*$VV[694];
  $VV[723]=sigma$$[[6]]*$VV[695];
  $VV[724]=sigma$$[[6]]*$VV[696];
  $VV[725]=$VV[455]+sigma$$[[6]]*$VV[697];
  $VV[726]=sigma$$[[6]]*$VV[698];
  $VV[727]=sigma$$[[6]]*$VV[699];
  $VV[728]=sigma$$[[6]]*$VV[700];
  $VV[729]=sigma$$[[6]]*$VV[701];
  $VV[730]=sigma$$[[6]]*$VV[702];
  $VV[731]=sigma$$[[6]]*$VV[703];
  $VV[732]=sigma$$[[6]]*$VV[704];
  $VV[737]=($VV[421]*$VV[436])/$VV[25];
  $VV[738]=$VV[677]*$VV[733]+$VV[663]*$VV[735]+$VV[436]*$VV[545]*$VV[736]+$VV[737]*((-3*$VV[521])/2
   +$VV[493]*$VV[741])+$VV[625]*$VV[1129]+$VV[638]*$VV[1130]+$VV[500]*$VV[1131]+$VV[17]*$VV[1132];
  $VV[742]=$VV[678]*$VV[733]+($VV[436]*$VV[547]+$VV[421]*$VV[665])*$VV[736]+$VV[737]*((-3*$VV[523])
   /2+$VV[494]*$VV[741])+$VV[626]*$VV[1129]+$VV[640]*$VV[1130]+$VV[503]*$VV[1131]
   +$VV[18]*$VV[1132];
  $VV[744]=$VV[679]*$VV[733]+($VV[436]*$VV[548]+$VV[421]*$VV[666])*$VV[736]+$VV[737]*((-3*$VV[524])
   /2+$VV[495]*$VV[741])+$VV[627]*$VV[1129]+$VV[641]*$VV[1130]+$VV[508]*$VV[1131]
   +$VV[19]*$VV[1132];
  $VV[745]=$VV[680]*$VV[733]+($VV[436]*$VV[549]+$VV[421]*$VV[667])*$VV[736]+$VV[737]*((-3*$VV[525])
   /2+$VV[741]*$VV[1115])+$VV[628]*$VV[1129]+$VV[642]*$VV[1130]+$VV[510]*$VV[1131]
   +sigma$$[[4]]*$VV[1132];
  $VV[746]=$VV[681]*$VV[733]+($VV[436]*$VV[550]+$VV[421]*$VV[668])*$VV[736]+$VV[737]*((-3*$VV[526])
   /2+$VV[741]*$VV[1116])+$VV[629]*$VV[1129]+$VV[643]*$VV[1130]+$VV[511]*$VV[1131]
   +sigma$$[[5]]*$VV[1132];
  $VV[747]=$VV[682]*$VV[733]+($VV[436]*$VV[551]+$VV[421]*$VV[669])*$VV[736]+$VV[737]*((-3*$VV[527])
   /2+$VV[741]*$VV[1117])+$VV[630]*$VV[1129]+$VV[644]*$VV[1130]+$VV[512]*$VV[1131]
   +sigma$$[[6]]*$VV[1132];
  $VV[748]=$VV[683]*$VV[733]+($VV[436]*$VV[552]+$VV[421]*$VV[670])*$VV[736]+$VV[737]*((-3*$VV[528])
   /2+$VV[499]*$VV[741])+$VV[631]*$VV[1129]+$VV[645]*$VV[1130]+$VV[100]*$VV[1132];
  $VV[749]=$VV[684]*$VV[733]+($VV[326]*$VV[436]+$VV[421]*$VV[671])*$VV[736]-(3*$VV[529]*$VV[737])/2
   +$VV[632]*$VV[1129]+$VV[646]*$VV[1130];
  $VV[750]=$VV[685]*$VV[733]+($VV[327]*$VV[436]+$VV[421]*$VV[672])*$VV[736]+$VV[633]*$VV[1129];
  $VV[751]=$VV[686]*$VV[733]+($VV[328]*$VV[436]+$VV[421]*$VV[673])*$VV[736]+$VV[634]*$VV[1129];
  $VV[752]=$VV[687]*$VV[733]+($VV[329]*$VV[436]+$VV[421]*$VV[674])*$VV[736]+$VV[635]*$VV[1129];
  $VV[753]=$VV[688]*$VV[733]+($VV[330]*$VV[436]+$VV[421]*$VV[675])*$VV[736]+$VV[636]*$VV[1129];
  $VV[754]=$VV[689]*$VV[733]+($VV[331]*$VV[436]+$VV[421]*$VV[676])*$VV[736]+$VV[637]*$VV[1129];
  $VV[755]=$VV[738]/2;
  $VV[1157]=$VV[755]+$VV[836];
  $VV[756]=$VV[742]/2;
  $VV[1158]=$VV[756]+$VV[836];
  $VV[757]=$VV[744]/2;
  $VV[1159]=$VV[757]+$VV[836];
  $VV[758]=$VV[745]/2;
  $VV[759]=$VV[746]/2;
  $VV[760]=$VV[747]/2;
  $VV[761]=$VV[748]/2;
  $VV[762]=$VV[749]/2;
  $VV[763]=$VV[750]/2;
  $VV[764]=$VV[751]/2;
  $VV[765]=$VV[752]/2;
  $VV[766]=$VV[753]/2;
  $VV[767]=$VV[754]/2;
  $VV[769]=$VV[19]*$VV[738]+$VV[770]+(-$VV[474]+$VV[772])*$VV[1107]+$VV[1105]*$VV[1134];
  $VV[771]=$VV[19]*$VV[742]+$VV[770]+(-$VV[473]+$VV[773])*$VV[1107]+$VV[1105]*$VV[1135];
  $VV[774]=$VV[19]*$VV[744]+$VV[787]-$VV[789]*$VV[1107]+$VV[1105]*$VV[1136];
  $VV[775]=$VV[19]*$VV[745]+$VV[452]*$VV[1112]+$VV[1105]*$VV[1137];
  $VV[776]=$VV[19]*$VV[746]+$VV[1105]*$VV[1138];
  $VV[777]=$VV[19]*$VV[747]+$VV[1105]*$VV[1139];
  $VV[778]=$VV[19]*$VV[748]+$VV[1105]*$VV[1140];
  $VV[779]=$VV[19]*$VV[749]+$VV[684]*$VV[1133];
  $VV[780]=$VV[19]*$VV[750]+$VV[685]*$VV[1133];
  $VV[781]=$VV[19]*$VV[751]+$VV[686]*$VV[1133];
  $VV[782]=$VV[19]*$VV[752]+$VV[687]*$VV[1133];
  $VV[783]=$VV[19]*$VV[753]+$VV[688]*$VV[1133];
  $VV[784]=$VV[19]*$VV[754]+$VV[689]*$VV[1133];
  $VV[786]=$VV[18]*$VV[738]+$VV[770]+(-$VV[471]+$VV[772])*$VV[1107]+$VV[785]*$VV[1134];
  $VV[788]=$VV[18]*$VV[742]+$VV[787]-$VV[773]*$VV[1107]+$VV[785]*$VV[1135];
  $VV[790]=$VV[18]*$VV[744]+$VV[770]+(-$VV[473]+$VV[789])*$VV[1107]+$VV[785]*$VV[1136];
  $VV[791]=$VV[18]*$VV[745]+$VV[785]*$VV[1137];
  $VV[792]=$VV[18]*$VV[746]+$VV[785]*$VV[1138];
  $VV[794]=$VV[18]*$VV[747]+$VV[452]*$VV[1114]+$VV[785]*$VV[1139];
  $VV[795]=$VV[18]*$VV[748]+$VV[785]*$VV[1140];
  $VV[796]=$VV[18]*$VV[749]+$VV[684]*$VV[1141];
  $VV[797]=$VV[18]*$VV[750]+$VV[685]*$VV[1141];
  $VV[798]=$VV[18]*$VV[751]+$VV[686]*$VV[1141];
  $VV[799]=$VV[18]*$VV[752]+$VV[687]*$VV[1141];
  $VV[800]=$VV[18]*$VV[753]+$VV[688]*$VV[1141];
  $VV[801]=$VV[18]*$VV[754]+$VV[689]*$VV[1141];
  $VV[803]=$VV[17]*$VV[738]+$VV[787]-$VV[772]*$VV[1107]+$VV[802]*$VV[1134];
  $VV[804]=$VV[17]*$VV[742]+$VV[770]+(-$VV[471]+$VV[773])*$VV[1107]+$VV[802]*$VV[1135];
  $VV[805]=$VV[17]*$VV[744]+$VV[770]+(-$VV[474]+$VV[789])*$VV[1107]+$VV[802]*$VV[1136];
  $VV[806]=$VV[17]*$VV[745]+$VV[802]*$VV[1137];
  $VV[807]=$VV[17]*$VV[746]+$VV[452]*$VV[1113]+$VV[802]*$VV[1138];
  $VV[808]=$VV[17]*$VV[747]+$VV[802]*$VV[1139];
  $VV[809]=$VV[17]*$VV[748]+$VV[802]*$VV[1140];
  $VV[810]=$VV[17]*$VV[749]+$VV[684]*$VV[1142];
  $VV[811]=$VV[17]*$VV[750]+$VV[685]*$VV[1142];
  $VV[812]=$VV[17]*$VV[751]+$VV[686]*$VV[1142];
  $VV[813]=$VV[17]*$VV[752]+$VV[687]*$VV[1142];
  $VV[814]=$VV[17]*$VV[753]+$VV[688]*$VV[1142];
  $VV[815]=$VV[17]*$VV[754]+$VV[689]*$VV[1142];
  $VV[816]=($VV[436]*($VV[420]*$VV[521]+$VV[28]*$VV[537])+$VV[31]*(-($VV[625]/$VV[28])-$VV[638]
   /$VV[430])-$VV[769]-$VV[786]-$VV[803]+$VV[817]+$VV[420]*$VV[1143])/3;
  $VV[818]=($VV[436]*($VV[420]*$VV[523]+$VV[28]*$VV[539])+$VV[31]*(-($VV[626]/$VV[28])-$VV[640]
   /$VV[430])-$VV[771]-$VV[788]-$VV[804]+$VV[817]+$VV[420]*$VV[1144])/3;
  $VV[819]=($VV[436]*($VV[420]*$VV[524]+$VV[28]*$VV[540])+$VV[31]*(-($VV[627]/$VV[28])-$VV[641]
   /$VV[430])-$VV[774]-$VV[790]-$VV[805]+$VV[817]+$VV[420]*$VV[1145])/3;
  $VV[820]=($VV[436]*($VV[420]*$VV[525]+$VV[28]*$VV[541])+$VV[31]*(-($VV[628]/$VV[28])-$VV[642]
   /$VV[430])-$VV[775]-$VV[791]-$VV[806]+$VV[420]*$VV[1146])/3;
  $VV[821]=($VV[436]*($VV[420]*$VV[526]+$VV[28]*$VV[542])+$VV[31]*(-($VV[629]/$VV[28])-$VV[643]
   /$VV[430])-$VV[776]-$VV[792]-$VV[807]+$VV[420]*$VV[1147])/3;
  $VV[822]=($VV[436]*($VV[420]*$VV[527]+$VV[28]*$VV[543])+$VV[31]*(-($VV[630]/$VV[28])-$VV[644]
   /$VV[430])-$VV[777]-$VV[794]-$VV[808]+$VV[420]*$VV[1148])/3;
  $VV[823]=($VV[436]*($VV[420]*$VV[528]+$VV[28]*$VV[544])+$VV[31]*(-($VV[631]/$VV[28])-$VV[645]
   /$VV[430])-$VV[778]-$VV[795]-$VV[809]+$VV[824]+$VV[420]*$VV[1149])/3;
  $VV[825]=($VV[436]*($VV[28]*$VV[316]+$VV[420]*$VV[529])+$VV[31]*(-($VV[632]/$VV[28])-$VV[646]
   /$VV[430])-$VV[779]-$VV[796]-$VV[810]-$VV[824]-$VV[420]*$VV[1125])/3;
  $VV[826]=($VV[28]*($VV[317]*$VV[436]+$VV[420]*$VV[672])-$VV[780]-$VV[797]-$VV[811]
   +$VV[633]*$VV[1150])/3;
  $VV[827]=($VV[28]*($VV[318]*$VV[436]+$VV[420]*$VV[673])-$VV[781]-$VV[798]-$VV[812]
   +$VV[634]*$VV[1150])/3;
  $VV[828]=($VV[28]*($VV[319]*$VV[436]+$VV[420]*$VV[674])-$VV[782]-$VV[799]-$VV[813]
   +$VV[635]*$VV[1150])/3;
  $VV[829]=($VV[28]*($VV[320]*$VV[436]+$VV[420]*$VV[675])-$VV[783]-$VV[800]-$VV[814]
   +$VV[636]*$VV[1150])/3;
  $VV[830]=($VV[28]*($VV[321]*$VV[436]+$VV[420]*$VV[676])-$VV[784]-$VV[801]-$VV[815]
   +$VV[637]*$VV[1150])/3;
  $VV[934]=$VV[657]-$VV[28]*($VV[348]*$VV[436]+$VV[423]*$VV[671])+$VV[100]*$VV[749]
   +$VV[423]*$VV[1151];
  $VV[936]=-$VV[657]-$VV[28]*($VV[358]*$VV[436]+$VV[424]*$VV[671])-$VV[935];
  $VV[937]=-($VV[368]*$VV[1109])+$VV[1152];
  $VV[938]=-($VV[378]*$VV[1109])+$VV[1153];
  $VV[939]=-($VV[388]*$VV[1109])+$VV[1154];
  $VV[940]=-($VV[399]*$VV[1109])+$VV[1155];
  $VV[941]=-($VV[409]*$VV[1109])+$VV[1156];
  $VV[948]=$VV[658]-$VV[28]*($VV[349]*$VV[436]+$VV[423]*$VV[672])+$VV[100]*$VV[750];
  $VV[950]=-($VV[359]*$VV[1109])+$VV[1152];
  $VV[951]=-($VV[28]*($VV[369]*$VV[436]+$VV[425]*$VV[672]));
  $VV[952]=$VV[965]-$VV[379]*$VV[1109];
  $VV[953]=$VV[980]-$VV[389]*$VV[1109];
  $VV[954]=$VV[996]-$VV[400]*$VV[1109];
  $VV[955]=$VV[1013]-$VV[410]*$VV[1109];
  $VV[962]=$VV[659]-$VV[28]*($VV[350]*$VV[436]+$VV[423]*$VV[673])+$VV[100]*$VV[751];
  $VV[964]=-($VV[360]*$VV[1109])+$VV[1153];
  $VV[966]=$VV[965]-$VV[370]*$VV[1109];
  $VV[967]=-($VV[28]*($VV[380]*$VV[436]+$VV[426]*$VV[673]));
  $VV[968]=$VV[982]-$VV[390]*$VV[1109];
  $VV[969]=$VV[998]-$VV[401]*$VV[1109];
  $VV[970]=$VV[1015]-$VV[411]*$VV[1109];
  $VV[977]=$VV[660]-$VV[28]*($VV[351]*$VV[436]+$VV[423]*$VV[674])+$VV[100]*$VV[752];
  $VV[979]=-($VV[361]*$VV[1109])+$VV[1154];
  $VV[981]=$VV[980]-$VV[371]*$VV[1109];
  $VV[983]=$VV[982]-$VV[381]*$VV[1109];
  $VV[984]=-($VV[28]*($VV[391]*$VV[436]+$VV[427]*$VV[674]));
  $VV[985]=$VV[1000]-$VV[402]*$VV[1109];
  $VV[986]=$VV[1017]-$VV[412]*$VV[1109];
  $VV[993]=$VV[661]-$VV[28]*($VV[352]*$VV[436]+$VV[423]*$VV[675])+$VV[100]*$VV[753];
  $VV[995]=-($VV[362]*$VV[1109])+$VV[1155];
  $VV[997]=$VV[996]-$VV[372]*$VV[1109];
  $VV[999]=$VV[998]-$VV[382]*$VV[1109];
  $VV[1001]=$VV[1000]-$VV[393]*$VV[1109];
  $VV[1002]=-($VV[28]*($VV[403]*$VV[436]+$VV[428]*$VV[675]));
  $VV[1003]=$VV[1019]-$VV[413]*$VV[1109];
  $VV[1010]=$VV[662]-$VV[28]*($VV[353]*$VV[436]+$VV[423]*$VV[676])+$VV[100]*$VV[754];
  $VV[1012]=-($VV[363]*$VV[1109])+$VV[1156];
  $VV[1014]=$VV[1013]-$VV[373]*$VV[1109];
  $VV[1016]=$VV[1015]-$VV[383]*$VV[1109];
  $VV[1018]=$VV[1017]-$VV[394]*$VV[1109];
  $VV[1020]=$VV[1019]-$VV[404]*$VV[1109];
  $VV[1021]=-($VV[28]*($VV[414]*$VV[436]+$VV[429]*$VV[676]));
  DDF$$[[1,1]]=$VV[803]+$VV[816];
  DDF$$[[1,2]]=$VV[804]+$VV[818];
  DDF$$[[1,3]]=$VV[805]+$VV[819];
  DDF$$[[1,4]]=$VV[806]+$VV[820];
  DDF$$[[1,5]]=$VV[807]+$VV[821];
  DDF$$[[1,6]]=$VV[808]+$VV[822];
  DDF$$[[1,7]]=$VV[809]+$VV[823];
  DDF$$[[1,8]]=$VV[810]+$VV[825];
  DDF$$[[1,9]]=$VV[811]+$VV[826];
  DDF$$[[1,10]]=$VV[812]+$VV[827];
  DDF$$[[1,11]]=$VV[813]+$VV[828];
  DDF$$[[1,12]]=$VV[814]+$VV[829];
  DDF$$[[1,13]]=$VV[815]+$VV[830];
  DDF$$[[2,1]]=$VV[786]+$VV[816];
  DDF$$[[2,2]]=$VV[788]+$VV[818];
  DDF$$[[2,3]]=$VV[790]+$VV[819];
  DDF$$[[2,4]]=$VV[791]+$VV[820];
  DDF$$[[2,5]]=$VV[792]+$VV[821];
  DDF$$[[2,6]]=$VV[794]+$VV[822];
  DDF$$[[2,7]]=$VV[795]+$VV[823];
  DDF$$[[2,8]]=$VV[796]+$VV[825];
  DDF$$[[2,9]]=$VV[797]+$VV[826];
  DDF$$[[2,10]]=$VV[798]+$VV[827];
  DDF$$[[2,11]]=$VV[799]+$VV[828];
  DDF$$[[2,12]]=$VV[800]+$VV[829];
  DDF$$[[2,13]]=$VV[801]+$VV[830];
  DDF$$[[3,1]]=$VV[769]+$VV[816];
  DDF$$[[3,2]]=$VV[771]+$VV[818];
  DDF$$[[3,3]]=$VV[774]+$VV[819];
  DDF$$[[3,4]]=$VV[775]+$VV[820];
  DDF$$[[3,5]]=$VV[776]+$VV[821];
  DDF$$[[3,6]]=$VV[777]+$VV[822];
  DDF$$[[3,7]]=$VV[778]+$VV[823];
  DDF$$[[3,8]]=$VV[779]+$VV[825];
  DDF$$[[3,9]]=$VV[780]+$VV[826];
  DDF$$[[3,10]]=$VV[781]+$VV[827];
  DDF$$[[3,11]]=$VV[782]+$VV[828];
  DDF$$[[3,12]]=$VV[783]+$VV[829];
  DDF$$[[3,13]]=$VV[784]+$VV[830];
  DDF$$[[4,1]]=sigma$$[[5]]*$VV[720]+$VV[1112]*($VV[19]*$VV[706]+$VV[1157]);
  DDF$$[[4,2]]=sigma$$[[5]]*$VV[721]+$VV[1112]*($VV[19]*$VV[708]+$VV[1158]);
  DDF$$[[4,3]]=sigma$$[[5]]*$VV[722]+($VV[19]*$VV[709]+$VV[757]+$VV[851])*$VV[1112];
  DDF$$[[4,4]]=sigma$$[[5]]*$VV[723]+2*$VV[876]+($VV[19]*$VV[710]+$VV[758])*$VV[1112];
  DDF$$[[4,5]]=$VV[451]+sigma$$[[5]]*$VV[724]+($VV[19]*$VV[711]+$VV[759])*$VV[1112];
  DDF$$[[4,6]]=sigma$$[[5]]*$VV[725]+($VV[19]*$VV[712]+$VV[760])*$VV[1112];
  DDF$$[[4,7]]=sigma$$[[5]]*$VV[726]+($VV[19]*$VV[713]+$VV[761])*$VV[1112];
  DDF$$[[4,8]]=sigma$$[[5]]*$VV[727]+($VV[19]*$VV[714]+$VV[762])*$VV[1112];
  DDF$$[[4,9]]=sigma$$[[5]]*$VV[728]+($VV[19]*$VV[715]+$VV[763])*$VV[1112];
  DDF$$[[4,10]]=sigma$$[[5]]*$VV[729]+($VV[19]*$VV[716]+$VV[764])*$VV[1112];
  DDF$$[[4,11]]=sigma$$[[5]]*$VV[730]+($VV[19]*$VV[717]+$VV[765])*$VV[1112];
  DDF$$[[4,12]]=sigma$$[[5]]*$VV[731]+($VV[19]*$VV[718]+$VV[766])*$VV[1112];
  DDF$$[[4,13]]=sigma$$[[5]]*$VV[732]+($VV[19]*$VV[719]+$VV[767])*$VV[1112];
  DDF$$[[5,1]]=sigma$$[[4]]*$VV[720]+($VV[17]*$VV[706]+$VV[755]+$VV[851])*$VV[1113];
  DDF$$[[5,2]]=sigma$$[[4]]*$VV[721]+$VV[1113]*($VV[17]*$VV[708]+$VV[1158]);
  DDF$$[[5,3]]=sigma$$[[4]]*$VV[722]+$VV[1113]*($VV[17]*$VV[709]+$VV[1159]);
  DDF$$[[5,4]]=$VV[451]+sigma$$[[4]]*$VV[723]+($VV[17]*$VV[710]+$VV[758])*$VV[1113];
  DDF$$[[5,5]]=sigma$$[[4]]*$VV[724]+2*$VV[891]+($VV[17]*$VV[711]+$VV[759])*$VV[1113];
  DDF$$[[5,6]]=sigma$$[[4]]*$VV[725]+($VV[17]*$VV[712]+$VV[760])*$VV[1113];
  DDF$$[[5,7]]=sigma$$[[4]]*$VV[726]+($VV[17]*$VV[713]+$VV[761])*$VV[1113];
  DDF$$[[5,8]]=sigma$$[[4]]*$VV[727]+($VV[17]*$VV[714]+$VV[762])*$VV[1113];
  DDF$$[[5,9]]=sigma$$[[4]]*$VV[728]+($VV[17]*$VV[715]+$VV[763])*$VV[1113];
  DDF$$[[5,10]]=sigma$$[[4]]*$VV[729]+($VV[17]*$VV[716]+$VV[764])*$VV[1113];
  DDF$$[[5,11]]=sigma$$[[4]]*$VV[730]+($VV[17]*$VV[717]+$VV[765])*$VV[1113];
  DDF$$[[5,12]]=sigma$$[[4]]*$VV[731]+($VV[17]*$VV[718]+$VV[766])*$VV[1113];
  DDF$$[[5,13]]=sigma$$[[4]]*$VV[732]+($VV[17]*$VV[719]+$VV[767])*$VV[1113];
  DDF$$[[6,1]]=$VV[691]*$VV[1122]+$VV[1114]*($VV[18]*$VV[706]+$VV[1157]);
  DDF$$[[6,2]]=($VV[18]*$VV[708]+$VV[756]+$VV[851])*$VV[1114]+$VV[693]*$VV[1122];
  DDF$$[[6,3]]=$VV[694]*$VV[1122]+$VV[1114]*($VV[18]*$VV[709]+$VV[1159]);
  DDF$$[[6,4]]=sigma$$[[5]]*($VV[455]+sigma$$[[4]]*$VV[695])+($VV[18]*$VV[710]+$VV[758]
   )*$VV[1114];
  DDF$$[[6,5]]=sigma$$[[4]]*($VV[455]+sigma$$[[5]]*$VV[696])+($VV[18]*$VV[711]+$VV[759]
   )*$VV[1114];
  DDF$$[[6,6]]=2*$VV[906]+($VV[18]*$VV[712]+$VV[760])*$VV[1114]+$VV[697]*$VV[1122];
  DDF$$[[6,7]]=($VV[18]*$VV[713]+$VV[761])*$VV[1114]+$VV[698]*$VV[1122];
  DDF$$[[6,8]]=($VV[18]*$VV[714]+$VV[762])*$VV[1114]+$VV[699]*$VV[1122];
  DDF$$[[6,9]]=($VV[18]*$VV[715]+$VV[763])*$VV[1114]+$VV[700]*$VV[1122];
  DDF$$[[6,10]]=($VV[18]*$VV[716]+$VV[764])*$VV[1114]+$VV[701]*$VV[1122];
  DDF$$[[6,11]]=($VV[18]*$VV[717]+$VV[765])*$VV[1114]+$VV[702]*$VV[1122];
  DDF$$[[6,12]]=($VV[18]*$VV[718]+$VV[766])*$VV[1114]+$VV[703]*$VV[1122];
  DDF$$[[6,13]]=($VV[18]*$VV[719]+$VV[767])*$VV[1114]+$VV[704]*$VV[1122];
  DDF$$[[7,1]]=$VV[436]*(-($VV[423]*$VV[521])-$VV[28]*$VV[561])+$VV[647]+$VV[100]*$VV[738]
   -$VV[423]*$VV[1143];
  DDF$$[[7,2]]=$VV[436]*(-($VV[423]*$VV[523])-$VV[28]*$VV[563])+$VV[650]+$VV[100]*$VV[742]
   -$VV[423]*$VV[1144];
  DDF$$[[7,3]]=$VV[436]*(-($VV[423]*$VV[524])-$VV[28]*$VV[564])+$VV[651]+$VV[100]*$VV[744]
   -$VV[423]*$VV[1145];
  DDF$$[[7,4]]=$VV[436]*(-($VV[423]*$VV[525])-$VV[28]*$VV[565])+$VV[652]+$VV[100]*$VV[745]
   -$VV[423]*$VV[1146];
  DDF$$[[7,5]]=$VV[436]*(-($VV[423]*$VV[526])-$VV[28]*$VV[566])+$VV[653]+$VV[100]*$VV[746]
   -$VV[423]*$VV[1147];
  DDF$$[[7,6]]=$VV[436]*(-($VV[423]*$VV[527])-$VV[28]*$VV[567])+$VV[654]+$VV[100]*$VV[747]
   -$VV[423]*$VV[1148];
  DDF$$[[7,7]]=$VV[436]*(-($VV[423]*$VV[528])-$VV[28]*$VV[568])+$VV[655]+$VV[100]*$VV[748]
   +2*$VV[438]*$VV[1037]-$VV[423]*$VV[1149];
  DDF$$[[7,8]]=$VV[934];
  DDF$$[[7,9]]=$VV[948];
  DDF$$[[7,10]]=$VV[962];
  DDF$$[[7,11]]=$VV[977];
  DDF$$[[7,12]]=$VV[993];
  DDF$$[[7,13]]=$VV[1010];
  DDF$$[[8,1]]=$VV[436]*(-($VV[424]*$VV[521])-$VV[28]*$VV[569])-$VV[647]-$VV[424]*$VV[1143];
  DDF$$[[8,2]]=$VV[436]*(-($VV[424]*$VV[523])-$VV[28]*$VV[571])-$VV[650]-$VV[424]*$VV[1144];
  DDF$$[[8,3]]=$VV[436]*(-($VV[424]*$VV[524])-$VV[28]*$VV[572])-$VV[651]-$VV[424]*$VV[1145];
  DDF$$[[8,4]]=$VV[436]*(-($VV[424]*$VV[525])-$VV[28]*$VV[573])-$VV[652]-$VV[424]*$VV[1146];
  DDF$$[[8,5]]=$VV[436]*(-($VV[424]*$VV[526])-$VV[28]*$VV[574])-$VV[653]-$VV[424]*$VV[1147];
  DDF$$[[8,6]]=$VV[436]*(-($VV[424]*$VV[527])-$VV[28]*$VV[575])-$VV[654]-$VV[424]*$VV[1148];
  DDF$$[[8,7]]=$VV[436]*(-($VV[424]*$VV[528])-$VV[28]*$VV[576])-$VV[655]-$VV[424]*$VV[1149];
  DDF$$[[8,8]]=$VV[936];
  DDF$$[[8,9]]=$VV[950];
  DDF$$[[8,10]]=$VV[964];
  DDF$$[[8,11]]=$VV[979];
  DDF$$[[8,12]]=$VV[995];
  DDF$$[[8,13]]=$VV[1012];
  DDF$$[[9,1]]=$VV[436]*(-($VV[425]*$VV[521])-$VV[28]*$VV[577])-$VV[425]*$VV[1143];
  DDF$$[[9,2]]=$VV[436]*(-($VV[425]*$VV[523])-$VV[28]*$VV[579])-$VV[425]*$VV[1144];
  DDF$$[[9,3]]=$VV[436]*(-($VV[425]*$VV[524])-$VV[28]*$VV[580])-$VV[425]*$VV[1145];
  DDF$$[[9,4]]=$VV[436]*(-($VV[425]*$VV[525])-$VV[28]*$VV[581])-$VV[425]*$VV[1146];
  DDF$$[[9,5]]=$VV[436]*(-($VV[425]*$VV[526])-$VV[28]*$VV[582])-$VV[425]*$VV[1147];
  DDF$$[[9,6]]=$VV[436]*(-($VV[425]*$VV[527])-$VV[28]*$VV[583])-$VV[425]*$VV[1148];
  DDF$$[[9,7]]=$VV[436]*(-($VV[425]*$VV[528])-$VV[28]*$VV[584])-$VV[425]*$VV[1149];
  DDF$$[[9,8]]=$VV[937];
  DDF$$[[9,9]]=$VV[951];
  DDF$$[[9,10]]=$VV[966];
  DDF$$[[9,11]]=$VV[981];
  DDF$$[[9,12]]=$VV[997];
  DDF$$[[9,13]]=$VV[1014];
  DDF$$[[10,1]]=$VV[436]*(-($VV[426]*$VV[521])-$VV[28]*$VV[585])-$VV[426]*$VV[1143];
  DDF$$[[10,2]]=$VV[436]*(-($VV[426]*$VV[523])-$VV[28]*$VV[587])-$VV[426]*$VV[1144];
  DDF$$[[10,3]]=$VV[436]*(-($VV[426]*$VV[524])-$VV[28]*$VV[588])-$VV[426]*$VV[1145];
  DDF$$[[10,4]]=$VV[436]*(-($VV[426]*$VV[525])-$VV[28]*$VV[589])-$VV[426]*$VV[1146];
  DDF$$[[10,5]]=$VV[436]*(-($VV[426]*$VV[526])-$VV[28]*$VV[590])-$VV[426]*$VV[1147];
  DDF$$[[10,6]]=$VV[436]*(-($VV[426]*$VV[527])-$VV[28]*$VV[591])-$VV[426]*$VV[1148];
  DDF$$[[10,7]]=$VV[436]*(-($VV[426]*$VV[528])-$VV[28]*$VV[592])-$VV[426]*$VV[1149];
  DDF$$[[10,8]]=$VV[938];
  DDF$$[[10,9]]=$VV[952];
  DDF$$[[10,10]]=$VV[967];
  DDF$$[[10,11]]=$VV[983];
  DDF$$[[10,12]]=$VV[999];
  DDF$$[[10,13]]=$VV[1016];
  DDF$$[[11,1]]=$VV[436]*(-($VV[427]*$VV[521])-$VV[28]*$VV[593])-$VV[427]*$VV[1143];
  DDF$$[[11,2]]=$VV[436]*(-($VV[427]*$VV[523])-$VV[28]*$VV[595])-$VV[427]*$VV[1144];
  DDF$$[[11,3]]=$VV[436]*(-($VV[427]*$VV[524])-$VV[28]*$VV[596])-$VV[427]*$VV[1145];
  DDF$$[[11,4]]=$VV[436]*(-($VV[427]*$VV[525])-$VV[28]*$VV[597])-$VV[427]*$VV[1146];
  DDF$$[[11,5]]=$VV[436]*(-($VV[427]*$VV[526])-$VV[28]*$VV[598])-$VV[427]*$VV[1147];
  DDF$$[[11,6]]=$VV[436]*(-($VV[427]*$VV[527])-$VV[28]*$VV[599])-$VV[427]*$VV[1148];
  DDF$$[[11,7]]=$VV[436]*(-($VV[427]*$VV[528])-$VV[28]*$VV[600])-$VV[427]*$VV[1149];
  DDF$$[[11,8]]=$VV[939];
  DDF$$[[11,9]]=$VV[953];
  DDF$$[[11,10]]=$VV[968];
  DDF$$[[11,11]]=$VV[984];
  DDF$$[[11,12]]=$VV[1001];
  DDF$$[[11,13]]=$VV[1018];
  DDF$$[[12,1]]=$VV[436]*(-($VV[428]*$VV[521])-$VV[28]*$VV[601])-$VV[428]*$VV[1143];
  DDF$$[[12,2]]=$VV[436]*(-($VV[428]*$VV[523])-$VV[28]*$VV[603])-$VV[428]*$VV[1144];
  DDF$$[[12,3]]=$VV[436]*(-($VV[428]*$VV[524])-$VV[28]*$VV[604])-$VV[428]*$VV[1145];
  DDF$$[[12,4]]=$VV[436]*(-($VV[428]*$VV[525])-$VV[28]*$VV[605])-$VV[428]*$VV[1146];
  DDF$$[[12,5]]=$VV[436]*(-($VV[428]*$VV[526])-$VV[28]*$VV[606])-$VV[428]*$VV[1147];
  DDF$$[[12,6]]=$VV[436]*(-($VV[428]*$VV[527])-$VV[28]*$VV[607])-$VV[428]*$VV[1148];
  DDF$$[[12,7]]=$VV[436]*(-($VV[428]*$VV[528])-$VV[28]*$VV[608])-$VV[428]*$VV[1149];
  DDF$$[[12,8]]=$VV[940];
  DDF$$[[12,9]]=$VV[954];
  DDF$$[[12,10]]=$VV[969];
  DDF$$[[12,11]]=$VV[985];
  DDF$$[[12,12]]=$VV[1002];
  DDF$$[[12,13]]=$VV[1020];
  DDF$$[[13,1]]=$VV[436]*(-($VV[429]*$VV[521])-$VV[28]*$VV[609])+$VV[663]*$VV[1160];
  DDF$$[[13,2]]=$VV[436]*(-($VV[429]*$VV[523])-$VV[28]*$VV[611])-$VV[429]*$VV[1144];
  DDF$$[[13,3]]=$VV[436]*(-($VV[429]*$VV[524])-$VV[28]*$VV[612])-$VV[429]*$VV[1145];
  DDF$$[[13,4]]=$VV[436]*(-($VV[429]*$VV[525])-$VV[28]*$VV[613])-$VV[429]*$VV[1146];
  DDF$$[[13,5]]=$VV[436]*(-($VV[429]*$VV[526])-$VV[28]*$VV[614])-$VV[429]*$VV[1147];
  DDF$$[[13,6]]=$VV[436]*(-($VV[429]*$VV[527])-$VV[28]*$VV[615])-$VV[429]*$VV[1148];
  DDF$$[[13,7]]=$VV[436]*(-($VV[429]*$VV[528])-$VV[28]*$VV[616])-$VV[429]*$VV[1149];
  DDF$$[[13,8]]=$VV[941];
  DDF$$[[13,9]]=$VV[955];
  DDF$$[[13,10]]=$VV[970];
  DDF$$[[13,11]]=$VV[986];
  DDF$$[[13,12]]=$VV[1003];
  DDF$$[[13,13]]=$VV[1021];
 , (* else *)
  DDF$$[[1,1]]=0;
  DDF$$[[1,2]]=0;
  DDF$$[[1,3]]=0;
  DDF$$[[1,4]]=0;
  DDF$$[[1,5]]=0;
  DDF$$[[1,6]]=0;
  DDF$$[[1,7]]=0;
  DDF$$[[1,8]]=0;
  DDF$$[[1,9]]=0;
  DDF$$[[1,10]]=0;
  DDF$$[[1,11]]=0;
  DDF$$[[1,12]]=0;
  DDF$$[[1,13]]=0;
  DDF$$[[2,2]]=0;
  DDF$$[[2,3]]=0;
  DDF$$[[2,4]]=0;
  DDF$$[[2,5]]=0;
  DDF$$[[2,6]]=0;
  DDF$$[[2,7]]=0;
  DDF$$[[2,8]]=0;
  DDF$$[[2,9]]=0;
  DDF$$[[2,10]]=0;
  DDF$$[[2,11]]=0;
  DDF$$[[2,12]]=0;
  DDF$$[[2,13]]=0;
  DDF$$[[3,3]]=0;
  DDF$$[[3,4]]=0;
  DDF$$[[3,5]]=0;
  DDF$$[[3,6]]=0;
  DDF$$[[3,7]]=0;
  DDF$$[[3,8]]=0;
  DDF$$[[3,9]]=0;
  DDF$$[[3,10]]=0;
  DDF$$[[3,11]]=0;
  DDF$$[[3,12]]=0;
  DDF$$[[3,13]]=0;
  DDF$$[[4,4]]=0;
  DDF$$[[4,5]]=0;
  DDF$$[[4,6]]=0;
  DDF$$[[4,7]]=0;
  DDF$$[[4,8]]=0;
  DDF$$[[4,9]]=0;
  DDF$$[[4,10]]=0;
  DDF$$[[4,11]]=0;
  DDF$$[[4,12]]=0;
  DDF$$[[4,13]]=0;
  DDF$$[[5,5]]=0;
  DDF$$[[5,6]]=0;
  DDF$$[[5,7]]=0;
  DDF$$[[5,8]]=0;
  DDF$$[[5,9]]=0;
  DDF$$[[5,10]]=0;
  DDF$$[[5,11]]=0;
  DDF$$[[5,12]]=0;
  DDF$$[[5,13]]=0;
  DDF$$[[6,6]]=0;
  DDF$$[[6,7]]=0;
  DDF$$[[6,8]]=0;
  DDF$$[[6,9]]=0;
  DDF$$[[6,10]]=0;
  DDF$$[[6,11]]=0;
  DDF$$[[6,12]]=0;
  DDF$$[[6,13]]=0;
  DDF$$[[7,7]]=0;
  DDF$$[[7,8]]=0;
  DDF$$[[7,9]]=0;
  DDF$$[[7,10]]=0;
  DDF$$[[7,11]]=0;
  DDF$$[[7,12]]=0;
  DDF$$[[7,13]]=0;
  DDF$$[[8,8]]=0;
  DDF$$[[8,9]]=0;
  DDF$$[[8,10]]=0;
  DDF$$[[8,11]]=0;
  DDF$$[[8,12]]=0;
  DDF$$[[8,13]]=0;
  DDF$$[[9,9]]=0;
  DDF$$[[9,10]]=0;
  DDF$$[[9,11]]=0;
  DDF$$[[9,12]]=0;
  DDF$$[[9,13]]=0;
  DDF$$[[10,10]]=0;
  DDF$$[[10,11]]=0;
  DDF$$[[10,12]]=0;
  DDF$$[[10,13]]=0;
  DDF$$[[11,11]]=0;
  DDF$$[[11,12]]=0;
  DDF$$[[11,13]]=0;
  DDF$$[[12,12]]=0;
  DDF$$[[12,13]]=0;
  DDF$$[[13,13]]=0;
  Do[DDF$$[[i01,i02]]=DDF$$[[i02,i01]]
  ,{i01,2,13},{i02,1,i01-1}];
 ]; (* endif *)
, (* else *)
 DF$$[[1]]=0;
 DF$$[[2]]=0;
 DF$$[[3]]=0;
 DF$$[[4]]=0;
 DF$$[[5]]=0;
 DF$$[[6]]=0;
 DF$$[[7]]=0;
 DF$$[[8]]=0;
 DF$$[[9]]=0;
 DF$$[[10]]=0;
 DF$$[[11]]=0;
 DF$$[[12]]=0;
 DF$$[[13]]=0;
]; (* endif *)
];
