home *** CD-ROM | disk | FTP | other *** search
/ ftp.zoology.ubc.ca / ftp.zoology.ubc.ca.tar / ftp.zoology.ubc.ca / pub / otto / PhillipsEtAl.nb < prev    next >
Text File  |  1999-02-09  |  435KB  |  9,115 lines
  1. (***********************************************************************
  2.  
  3.                     Mathematica-Compatible Notebook
  4.  
  5. This notebook can be used on any computer system with Mathematica 3.0,
  6. MathReader 3.0, or any compatible application. The data for the notebook 
  7. starts with the line of stars above.
  8.  
  9. To get the notebook into a Mathematica-compatible application, do one of 
  10. the following:
  11.  
  12. * Save the data starting with the line of stars above into a file
  13.   with a name ending in .nb, then open the file inside the application;
  14.  
  15. * Copy the data starting with the line of stars above to the
  16.   clipboard, then use the Paste menu command inside the application.
  17.  
  18. Data for notebooks contains only printable 7-bit ASCII and can be
  19. sent directly in email or through ftp in text mode.  Newlines can be
  20. CR, LF or CRLF (Unix, Macintosh or MS-DOS style).
  21.  
  22. NOTE: If you modify the data for this notebook not in a Mathematica-
  23. compatible application, you must delete the line below containing the 
  24. word CacheID, otherwise Mathematica-compatible applications may try to 
  25. use invalid cache data.
  26.  
  27. For more information on notebooks and Mathematica-compatible 
  28. applications, contact Wolfram Research:
  29.   web: http://www.wolfram.com
  30.   email: info@wolfram.com
  31.   phone: +1-217-398-0700 (U.S.)
  32.  
  33. Notebook reader applications are available free of charge from 
  34. Wolfram Research.
  35. ***********************************************************************)
  36.  
  37. (*CacheID: 232*)
  38.  
  39.  
  40. (*NotebookFileLineBreakTest
  41. NotebookFileLineBreakTest*)
  42. (*NotebookOptionsPosition[    428245,       8845]*)
  43. (*NotebookOutlinePosition[    429096,       8875]*)
  44. (*  CellTagsIndexPosition[    429052,       8871]*)
  45. (*WindowFrame->Normal*)
  46.  
  47.  
  48.  
  49. Notebook[{
  50.  
  51. Cell[CellGroupData[{
  52. Cell["Mean fitness in the two-locus haploid selection model", "Subtitle",
  53.   Evaluatable->False,
  54.   AspectRatioFixed->True],
  55.  
  56. Cell[TextData[{
  57.   "In this ",
  58.   StyleBox["Mathematica",
  59.     FontSlant->"Italic"],
  60.   " file, we determine the relationship between mean fitness and epistasis in \
  61. a two-locus model with mutation.  The method is based on a Taylor Series \
  62. approximation for the mean fitness, keeping terms to order epistasis and \
  63. epistasis^2.\n\nWith several pairs of interacting loci, the epistasis^2 term \
  64. can be used to predict how variability in the genetic interactions between \
  65. different pairs of loci will affect mean fitness. "
  66. }], "Subsubtitle"],
  67.  
  68. Cell[CellGroupData[{
  69.  
  70. Cell["The recursions", "Section",
  71.   Evaluatable->False,
  72.   AspectRatioFixed->True],
  73.  
  74. Cell[BoxData[
  75.     \(Off[General::"\<spell1\>"]\)], "Input"],
  76.  
  77. Cell["\<\
  78.  
  79. (ORDER OF EVENTS:  Selection, Recombination, Mutation)\
  80. \>", "Text"],
  81.  
  82. Cell["\<\
  83.  
  84. For two selected loci:
  85.  
  86. Frequencey\tGenotype\tFitness
  87. x1\t\tAB\t\tw11 = 1
  88. x2\t\tAb\t\tw12 = 1+s2
  89. x3\t\taB\t\tw21 = 1+s1
  90. x4\t\tab\t\tw22 = (1+s1)(1+s2)+eps\
  91. \>", "Text"],
  92.  
  93. Cell["Selection:", "Text"],
  94.  
  95. Cell[BoxData[{
  96.     \(jx1\  := \ w11*x1\), 
  97.     \(jx2\  := \ w12*x2\), 
  98.     \(jx3\  := \ w21*x3\), 
  99.     \(jx4\  := \ w22*x4\)}], "Input"],
  100.  
  101. Cell["Fitness:=(jx1+jx2+jx3+jx4);", "Input",
  102.   AspectRatioFixed->True],
  103.  
  104. Cell[BoxData[{
  105.     \(sx1\  := \ 1/Fitness*jx1\), 
  106.     \(sx2\  := \ 1/Fitness*jx2\), 
  107.     \(sx3\  := \ 1/Fitness*jx3\), 
  108.     \(sx4\  := \ 1/Fitness*jx4\)}], "Input"],
  109.  
  110. Cell["Recombination", "Text"],
  111.  
  112. Cell[BoxData[
  113.     \(nx1\  := \ \((sx1 - r*\((sx1*sx4 - sx2*sx3)\))\); \n
  114.     nx2\  := \ \((sx2 + r*\((sx1*sx4 - sx2*sx3)\))\); \n
  115.     nx3\  := \ \((sx3 + r*\((sx1*sx4 - sx2*sx3)\))\); \n
  116.     nx4\  := \ \((sx4 - r*\((sx1*sx4 - sx2*sx3)\))\); \)], "Input"],
  117.  
  118. Cell["Mutation:", "Text"],
  119.  
  120. Cell["\<\
  121. newx1 := (1-mu1)*(1-mu2)*nx1
  122. newx2 := (mu2*(1-mu1)*nx1+(1-mu1)*nx2)
  123. newx3 := (mu1*(1-mu2)*nx1+(1-mu2)*nx3)
  124. newx4 := (mu1*mu2*nx1+mu1*nx2+mu2*nx3+nx4)\
  125. \>", "Input",
  126.   AspectRatioFixed->True],
  127.  
  128. Cell["Factor[newx1+newx2+newx3+newx4]", "Text"],
  129.  
  130. Cell["1", "Text"],
  131.  
  132. Cell["\<\
  133. Transformation to allele frequencies and disequilibria from \
  134. chromosome frequencies:\
  135. \>", "Text"],
  136.  
  137. Cell[BoxData[
  138.     \(\(subtwoloci = {x1 -> \((1 - p1)\)*\((1 - p2)\) + dis, 
  139.         x2 -> \((1 - p1)\)*p2 - dis, x3 -> p1*\((1 - p2)\) - dis, 
  140.         x4 -> p1*p2 + dis}; \)\)], "Input"],
  141.  
  142. Cell["\<\
  143. Fitness definitions for haploid selection model (s will be assumed \
  144. to be negative):\
  145. \>", "Text"],
  146.  
  147. Cell[BoxData[
  148.     \(\(subfit = {w11 -> 1, w12 -> 1 + s2, w21 -> 1 + s1, 
  149.         w22 -> \((1 + s1)\) \((1 + s2)\) + eps}; \)\)], "Input"]
  150. }, Closed]],
  151.  
  152. Cell[CellGroupData[{
  153.  
  154. Cell["Two locus analysis", "Section",
  155.   Evaluatable->False,
  156.   AspectRatioFixed->True],
  157.  
  158. Cell["\<\
  159. In the following, we will get approximations for the \
  160. disequilibrium, allele frequency, 
  161. and mean fitness to order (eps)^2.\
  162. \>", "Text"],
  163.  
  164. Cell["\<\
  165. From the following equation (which equals zero at equilibrium), we \
  166. get an
  167. equation for the disequilibrium at equilibrium:\
  168. \>", "Text",
  169.   Evaluatable->False,
  170.   AspectRatioFixed->True],
  171.  
  172. Cell[CellGroupData[{
  173.  
  174. Cell["Factor[(newx1+newx2)-(x1+x2)/.subtwoloci/.subfit]", "Input",
  175.   AspectRatioFixed->True],
  176.  
  177. Cell[BoxData[
  178.     \(\((\(-dis\)\ eps - mu1 + dis\ eps\ p1 + mu1\ p1 - eps\ p1\ p2 + 
  179.           eps\ p1\^2\ p2 - p1\ s1 + p1\^2\ s1 - dis\ s2 + dis\ mu1\ s2 - 
  180.           mu1\ p2\ s2 + mu1\ p1\ p2\ s2 - dis\ s1\ s2 + dis\ p1\ s1\ s2 - 
  181.           p1\ p2\ s1\ s2 + p1\^2\ p2\ s1\ s2)\)/
  182.       \((1 + dis\ eps + eps\ p1\ p2 + p1\ s1 + p2\ s2 + dis\ s1\ s2 + 
  183.           p1\ p2\ s1\ s2)\)\)], "Output"]
  184. }, Open  ]],
  185.  
  186. Cell[CellGroupData[{
  187.  
  188. Cell["Factor[dis/.Solve[%==0,dis]]", "Input",
  189.   AspectRatioFixed->True],
  190.  
  191. Cell[BoxData[
  192.     \({\(-
  193.         \(\(\((\(-1\) + p1)\)\ 
  194.               \((mu1 + eps\ p1\ p2 + p1\ s1 + mu1\ p2\ s2 + p1\ p2\ s1\ s2)
  195.                 \)\)\/\(\(-eps\) + eps\ p1 - s2 + mu1\ s2 - s1\ s2 + 
  196.               p1\ s1\ s2\)\)\)}\)], "Output"]
  197. }, Open  ]],
  198.  
  199. Cell[BoxData[
  200.     \(\(DsSolve = 
  201.       \(\((1 - p1)\)\ 
  202.           \((mu1 + eps\ p1\ p2 + p1\ s1 + mu1\ p2\ s2 + p1\ p2\ s1\ s2)
  203.             \)\)\/\(\(-eps\) + eps\ p1 - s2 + mu1\ s2 - s1\ s2 + 
  204.           p1\ s1\ s2\); \)\)], "Input"],
  205.  
  206. Cell["\<\
  207. From the following equations (which equal zero at equilibrium), we \
  208. get
  209. two equations for the two unknown allele frequencies at equilibrium:\
  210. \>", 
  211.   "Text",
  212.   Evaluatable->False,
  213.   AspectRatioFixed->True],
  214.  
  215. Cell[CellGroupData[{
  216.  
  217. Cell[BoxData[
  218.     \(Factor[
  219.       \(\(\((newx1 + newx3)\) - \((x1 + x3)\) /. subtwoloci\) /. subfit\) /. 
  220.         dis -> DsSolve]\)], "Input"],
  221.  
  222. Cell[BoxData[
  223.     \(\((eps\ mu1 - eps\ mu2 - eps\ mu1\ p1 + eps\ mu2\ p1 - eps\ mu1\ p2 + 
  224.           eps\ mu2\ p2 + eps\ mu1\ p1\ p2 - eps\ mu2\ p1\ p2 + mu1\ s1 - 
  225.           mu1\ mu2\ s1 + eps\ p1\ s1 - mu1\ p1\ s1 - eps\ mu2\ p1\ s1 + 
  226.           mu1\ mu2\ p1\ s1 - eps\ p1\^2\ s1 + eps\ mu2\ p1\^2\ s1 + 
  227.           p1\ s1\^2 - mu2\ p1\ s1\^2 - p1\^2\ s1\^2 + mu2\ p1\^2\ s1\^2 - 
  228.           mu2\ s2 + mu1\ mu2\ s2 - eps\ p2\ s2 + eps\ mu1\ p2\ s2 + 
  229.           mu2\ p2\ s2 - mu1\ mu2\ p2\ s2 + eps\ p2\^2\ s2 - 
  230.           eps\ mu1\ p2\^2\ s2 + mu1\ s1\ s2 - mu2\ s1\ s2 - mu1\ p1\ s1\ s2 + 
  231.           mu1\ mu2\ p1\ s1\ s2 + mu2\ p2\ s1\ s2 - mu1\ mu2\ p2\ s1\ s2 + 
  232.           p1\ s1\^2\ s2 - mu2\ p1\ s1\^2\ s2 - p1\^2\ s1\^2\ s2 + 
  233.           mu2\ p1\^2\ s1\^2\ s2 - p2\ s2\^2 + mu1\ p2\ s2\^2 + p2\^2\ s2\^2 - 
  234.           mu1\ p2\^2\ s2\^2 - p2\ s1\ s2\^2 + mu1\ p2\ s1\ s2\^2 + 
  235.           p2\^2\ s1\ s2\^2 - mu1\ p2\^2\ s1\ s2\^2)\)/
  236.       \((\((\(-1\) + mu1)\)\ 
  237.           \((\(-eps\) + eps\ p1 - s2 - eps\ p2\ s2 - s1\ s2 - p2\ s2\^2 - 
  238.               p2\ s1\ s2\^2)\))\)\)], "Output"]
  239. }, Closed]],
  240.  
  241. Cell[CellGroupData[{
  242.  
  243. Cell[BoxData[
  244.     \(Factor[\(\(newx1 - x1 /. subtwoloci\) /. subfit\) /. dis -> DsSolve]
  245.       \)], "Input"],
  246.  
  247. Cell[BoxData[
  248.     \(\(-\(\((
  249.           \((\(-1\) + p1)\)\ 
  250.             \((eps\^2\ mu2 - eps\ mu1\ mu2 - eps\^2\ mu1\ mu2 + 
  251.                 eps\ mu1\^2\ mu2 - 2\ eps\^2\ mu2\ p1 + eps\ mu1\ mu2\ p1 + 
  252.                 2\ eps\^2\ mu1\ mu2\ p1 - eps\ mu1\^2\ mu2\ p1 + 
  253.                 eps\^2\ mu2\ p1\^2 - eps\^2\ mu1\ mu2\ p1\^2 - 
  254.                 eps\^2\ mu2\ p2 + eps\^2\ mu1\ mu2\ p2 + 
  255.                 eps\^2\ mu2\ p1\ p2 - eps\^2\ mu1\ mu2\ p1\ p2 - 
  256.                 eps\ mu1\ r - eps\^2\ mu1\ r + eps\ mu1\^2\ r + 
  257.                 eps\ mu1\ mu2\ r + eps\^2\ mu1\ mu2\ r - 
  258.                 eps\ mu1\^2\ mu2\ r + eps\ mu1\ p1\ r + 
  259.                 2\ eps\^2\ mu1\ p1\ r - eps\ mu1\^2\ p1\ r - 
  260.                 eps\ mu1\ mu2\ p1\ r - 2\ eps\^2\ mu1\ mu2\ p1\ r + 
  261.                 eps\ mu1\^2\ mu2\ p1\ r - eps\^2\ mu1\ p1\^2\ r + 
  262.                 eps\^2\ mu1\ mu2\ p1\^2\ r + eps\^2\ mu1\ p2\ r - 
  263.                 eps\^2\ mu1\ mu2\ p2\ r - eps\^2\ p1\ p2\ r - 
  264.                 eps\^2\ mu1\ p1\ p2\ r + eps\^2\ mu2\ p1\ p2\ r + 
  265.                 eps\^2\ mu1\ mu2\ p1\ p2\ r + eps\^2\ p1\^2\ p2\ r - 
  266.                 eps\^2\ mu2\ p1\^2\ p2\ r - eps\ mu2\ p1\ s1 + 
  267.                 eps\ mu1\ mu2\ p1\ s1 + eps\ mu2\ p1\^2\ s1 - 
  268.                 eps\ mu1\ mu2\ p1\^2\ s1 - eps\ mu1\ r\ s1 + 
  269.                 eps\ mu1\ mu2\ r\ s1 - eps\ p1\ r\ s1 - eps\^2\ p1\ r\ s1 + 
  270.                 3\ eps\ mu1\ p1\ r\ s1 + eps\ mu2\ p1\ r\ s1 + 
  271.                 eps\^2\ mu2\ p1\ r\ s1 - 3\ eps\ mu1\ mu2\ p1\ r\ s1 + 
  272.                 eps\ p1\^2\ r\ s1 + 2\ eps\^2\ p1\^2\ r\ s1 - 
  273.                 2\ eps\ mu1\ p1\^2\ r\ s1 - eps\ mu2\ p1\^2\ r\ s1 - 
  274.                 2\ eps\^2\ mu2\ p1\^2\ r\ s1 + 
  275.                 2\ eps\ mu1\ mu2\ p1\^2\ r\ s1 - eps\^2\ p1\^3\ r\ s1 + 
  276.                 eps\^2\ mu2\ p1\^3\ r\ s1 - eps\ p1\ r\ s1\^2 + 
  277.                 eps\ mu2\ p1\ r\ s1\^2 + 2\ eps\ p1\^2\ r\ s1\^2 - 
  278.                 2\ eps\ mu2\ p1\^2\ r\ s1\^2 - eps\ p1\^3\ r\ s1\^2 + 
  279.                 eps\ mu2\ p1\^3\ r\ s1\^2 + eps\ mu1\ s2 - mu1\^2\ s2 - 
  280.                 eps\ mu1\^2\ s2 + mu1\^3\ s2 + 2\ eps\ mu2\ s2 - 
  281.                 mu1\ mu2\ s2 - 4\ eps\ mu1\ mu2\ s2 + 2\ mu1\^2\ mu2\ s2 + 
  282.                 2\ eps\ mu1\^2\ mu2\ s2 - mu1\^3\ mu2\ s2 - 
  283.                 eps\ mu1\ p1\ s2 + eps\ mu1\^2\ p1\ s2 - 
  284.                 2\ eps\ mu2\ p1\ s2 + 4\ eps\ mu1\ mu2\ p1\ s2 - 
  285.                 2\ eps\ mu1\^2\ mu2\ p1\ s2 + eps\^2\ p2\ s2 - 
  286.                 2\ eps\ mu1\ p2\ s2 - eps\^2\ mu1\ p2\ s2 + 
  287.                 2\ eps\ mu1\^2\ p2\ s2 - 2\ eps\ mu2\ p2\ s2 + 
  288.                 3\ eps\ mu1\ mu2\ p2\ s2 - eps\ mu1\^2\ mu2\ p2\ s2 - 
  289.                 eps\^2\ p1\ p2\ s2 + eps\^2\ mu1\ p1\ p2\ s2 + 
  290.                 eps\ mu2\ p1\ p2\ s2 - eps\ mu1\ mu2\ p1\ p2\ s2 - 
  291.                 eps\^2\ p2\^2\ s2 + eps\^2\ mu1\ p2\^2\ s2 - mu1\ r\ s2 - 
  292.                 2\ eps\ mu1\ r\ s2 + 2\ mu1\^2\ r\ s2 + 
  293.                 2\ eps\ mu1\^2\ r\ s2 - mu1\^3\ r\ s2 + mu1\ mu2\ r\ s2 + 
  294.                 2\ eps\ mu1\ mu2\ r\ s2 - 2\ mu1\^2\ mu2\ r\ s2 - 
  295.                 2\ eps\ mu1\^2\ mu2\ r\ s2 + mu1\^3\ mu2\ r\ s2 + 
  296.                 2\ eps\ mu1\ p1\ r\ s2 - 2\ eps\ mu1\^2\ p1\ r\ s2 - 
  297.                 2\ eps\ mu1\ mu2\ p1\ r\ s2 + 
  298.                 2\ eps\ mu1\^2\ mu2\ p1\ r\ s2 + eps\ mu1\ p2\ r\ s2 - 
  299.                 eps\ mu1\^2\ p2\ r\ s2 - eps\ mu1\ mu2\ p2\ r\ s2 + 
  300.                 eps\ mu1\^2\ mu2\ p2\ r\ s2 - eps\ p1\ p2\ r\ s2 + 
  301.                 eps\ mu1\ p1\ p2\ r\ s2 + eps\ mu2\ p1\ p2\ r\ s2 - 
  302.                 eps\ mu1\ mu2\ p1\ p2\ r\ s2 + 2\ eps\ mu2\ s1\ s2 - 
  303.                 mu1\ mu2\ s1\ s2 - 2\ eps\ mu1\ mu2\ s1\ s2 + 
  304.                 mu1\^2\ mu2\ s1\ s2 + eps\ p1\ s1\ s2 - 2\ mu1\ p1\ s1\ s2 - 
  305.                 eps\ mu1\ p1\ s1\ s2 + 2\ mu1\^2\ p1\ s1\ s2 - 
  306.                 mu2\ p1\ s1\ s2 - 4\ eps\ mu2\ p1\ s1\ s2 + 
  307.                 3\ mu1\ mu2\ p1\ s1\ s2 + 4\ eps\ mu1\ mu2\ p1\ s1\ s2 - 
  308.                 2\ mu1\^2\ mu2\ p1\ s1\ s2 - eps\ p1\^2\ s1\ s2 + 
  309.                 eps\ mu1\ p1\^2\ s1\ s2 + 2\ eps\ mu2\ p1\^2\ s1\ s2 - 
  310.                 2\ eps\ mu1\ mu2\ p1\^2\ s1\ s2 - 2\ eps\ mu2\ p2\ s1\ s2 + 
  311.                 2\ eps\ mu1\ mu2\ p2\ s1\ s2 - 2\ eps\ p1\ p2\ s1\ s2 + 
  312.                 2\ eps\ mu1\ p1\ p2\ s1\ s2 + 2\ eps\ mu2\ p1\ p2\ s1\ s2 - 
  313.                 2\ eps\ mu1\ mu2\ p1\ p2\ s1\ s2 - 2\ mu1\ r\ s1\ s2 - 
  314.                 2\ eps\ mu1\ r\ s1\ s2 + 2\ mu1\^2\ r\ s1\ s2 + 
  315.                 2\ mu1\ mu2\ r\ s1\ s2 + 2\ eps\ mu1\ mu2\ r\ s1\ s2 - 
  316.                 2\ mu1\^2\ mu2\ r\ s1\ s2 - p1\ r\ s1\ s2 - 
  317.                 2\ eps\ p1\ r\ s1\ s2 + 4\ mu1\ p1\ r\ s1\ s2 + 
  318.                 6\ eps\ mu1\ p1\ r\ s1\ s2 - 3\ mu1\^2\ p1\ r\ s1\ s2 + 
  319.                 mu2\ p1\ r\ s1\ s2 + 2\ eps\ mu2\ p1\ r\ s1\ s2 - 
  320.                 4\ mu1\ mu2\ p1\ r\ s1\ s2 - 
  321.                 6\ eps\ mu1\ mu2\ p1\ r\ s1\ s2 + 
  322.                 3\ mu1\^2\ mu2\ p1\ r\ s1\ s2 + 2\ eps\ p1\^2\ r\ s1\ s2 - 
  323.                 4\ eps\ mu1\ p1\^2\ r\ s1\ s2 - 
  324.                 2\ eps\ mu2\ p1\^2\ r\ s1\ s2 + 
  325.                 4\ eps\ mu1\ mu2\ p1\^2\ r\ s1\ s2 + 
  326.                 eps\ mu1\ p2\ r\ s1\ s2 - eps\ mu1\ mu2\ p2\ r\ s1\ s2 - 
  327.                 eps\ p1\ p2\ r\ s1\ s2 - eps\ mu1\ p1\ p2\ r\ s1\ s2 + 
  328.                 eps\ mu2\ p1\ p2\ r\ s1\ s2 + 
  329.                 eps\ mu1\ mu2\ p1\ p2\ r\ s1\ s2 + 
  330.                 eps\ p1\^2\ p2\ r\ s1\ s2 - eps\ mu2\ p1\^2\ p2\ r\ s1\ s2 - 
  331.                 mu2\ p1\ s1\^2\ s2 + mu1\ mu2\ p1\ s1\^2\ s2 - 
  332.                 p1\^2\ s1\^2\ s2 + mu1\ p1\^2\ s1\^2\ s2 + 
  333.                 mu2\ p1\^2\ s1\^2\ s2 - mu1\ mu2\ p1\^2\ s1\^2\ s2 - 
  334.                 mu1\ r\ s1\^2\ s2 + mu1\ mu2\ r\ s1\^2\ s2 - 
  335.                 2\ p1\ r\ s1\^2\ s2 - 2\ eps\ p1\ r\ s1\^2\ s2 + 
  336.                 4\ mu1\ p1\ r\ s1\^2\ s2 + 2\ mu2\ p1\ r\ s1\^2\ s2 + 
  337.                 2\ eps\ mu2\ p1\ r\ s1\^2\ s2 - 
  338.                 4\ mu1\ mu2\ p1\ r\ s1\^2\ s2 + 2\ p1\^2\ r\ s1\^2\ s2 + 
  339.                 4\ eps\ p1\^2\ r\ s1\^2\ s2 - 3\ mu1\ p1\^2\ r\ s1\^2\ s2 - 
  340.                 2\ mu2\ p1\^2\ r\ s1\^2\ s2 - 
  341.                 4\ eps\ mu2\ p1\^2\ r\ s1\^2\ s2 + 
  342.                 3\ mu1\ mu2\ p1\^2\ r\ s1\^2\ s2 - 
  343.                 2\ eps\ p1\^3\ r\ s1\^2\ s2 + 
  344.                 2\ eps\ mu2\ p1\^3\ r\ s1\^2\ s2 - p1\ r\ s1\^3\ s2 + 
  345.                 mu2\ p1\ r\ s1\^3\ s2 + 2\ p1\^2\ r\ s1\^3\ s2 - 
  346.                 2\ mu2\ p1\^2\ r\ s1\^3\ s2 - p1\^3\ r\ s1\^3\ s2 + 
  347.                 mu2\ p1\^3\ r\ s1\^3\ s2 + mu1\ s2\^2 - 2\ mu1\^2\ s2\^2 + 
  348.                 mu1\^3\ s2\^2 + mu2\ s2\^2 - 3\ mu1\ mu2\ s2\^2 + 
  349.                 3\ mu1\^2\ mu2\ s2\^2 - mu1\^3\ mu2\ s2\^2 + 
  350.                 2\ eps\ p2\ s2\^2 - 2\ mu1\ p2\ s2\^2 - 
  351.                 3\ eps\ mu1\ p2\ s2\^2 + 2\ mu1\^2\ p2\ s2\^2 + 
  352.                 eps\ mu1\^2\ p2\ s2\^2 - mu2\ p2\ s2\^2 + 
  353.                 2\ mu1\ mu2\ p2\ s2\^2 - mu1\^2\ mu2\ p2\ s2\^2 - 
  354.                 eps\ p1\ p2\ s2\^2 + eps\ mu1\ p1\ p2\ s2\^2 - 
  355.                 2\ eps\ p2\^2\ s2\^2 + 2\ eps\ mu1\ p2\^2\ s2\^2 - 
  356.                 mu1\ r\ s2\^2 + 2\ mu1\^2\ r\ s2\^2 - mu1\^3\ r\ s2\^2 + 
  357.                 mu1\ mu2\ r\ s2\^2 - 2\ mu1\^2\ mu2\ r\ s2\^2 + 
  358.                 mu1\^3\ mu2\ r\ s2\^2 + mu1\ s1\ s2\^2 - mu1\^2\ s1\ s2\^2 + 
  359.                 2\ mu2\ s1\ s2\^2 - 4\ mu1\ mu2\ s1\ s2\^2 + 
  360.                 2\ mu1\^2\ mu2\ s1\ s2\^2 + p1\ s1\ s2\^2 - 
  361.                 3\ mu1\ p1\ s1\ s2\^2 + 2\ mu1\^2\ p1\ s1\ s2\^2 - 
  362.                 2\ mu2\ p1\ s1\ s2\^2 + 4\ mu1\ mu2\ p1\ s1\ s2\^2 - 
  363.                 2\ mu1\^2\ mu2\ p1\ s1\ s2\^2 + 2\ eps\ p2\ s1\ s2\^2 - 
  364.                 2\ mu1\ p2\ s1\ s2\^2 - 2\ eps\ mu1\ p2\ s1\ s2\^2 + 
  365.                 2\ mu1\^2\ p2\ s1\ s2\^2 - 2\ mu2\ p2\ s1\ s2\^2 + 
  366.                 3\ mu1\ mu2\ p2\ s1\ s2\^2 - mu1\^2\ mu2\ p2\ s1\ s2\^2 - 
  367.                 2\ p1\ p2\ s1\ s2\^2 - 2\ eps\ p1\ p2\ s1\ s2\^2 + 
  368.                 2\ mu1\ p1\ p2\ s1\ s2\^2 + 2\ eps\ mu1\ p1\ p2\ s1\ s2\^2 + 
  369.                 mu2\ p1\ p2\ s1\ s2\^2 - mu1\ mu2\ p1\ p2\ s1\ s2\^2 - 
  370.                 2\ eps\ p2\^2\ s1\ s2\^2 + 2\ eps\ mu1\ p2\^2\ s1\ s2\^2 - 
  371.                 2\ mu1\ r\ s1\ s2\^2 + 2\ mu1\^2\ r\ s1\ s2\^2 + 
  372.                 2\ mu1\ mu2\ r\ s1\ s2\^2 - 2\ mu1\^2\ mu2\ r\ s1\ s2\^2 - 
  373.                 p1\ r\ s1\ s2\^2 + 4\ mu1\ p1\ r\ s1\ s2\^2 - 
  374.                 3\ mu1\^2\ p1\ r\ s1\ s2\^2 + mu2\ p1\ r\ s1\ s2\^2 - 
  375.                 4\ mu1\ mu2\ p1\ r\ s1\ s2\^2 + 
  376.                 3\ mu1\^2\ mu2\ p1\ r\ s1\ s2\^2 + mu2\ s1\^2\ s2\^2 - 
  377.                 mu1\ mu2\ s1\^2\ s2\^2 + p1\ s1\^2\ s2\^2 - 
  378.                 mu1\ p1\ s1\^2\ s2\^2 - 2\ mu2\ p1\ s1\^2\ s2\^2 + 
  379.                 2\ mu1\ mu2\ p1\ s1\^2\ s2\^2 - p1\^2\ s1\^2\ s2\^2 + 
  380.                 mu1\ p1\^2\ s1\^2\ s2\^2 + mu2\ p1\^2\ s1\^2\ s2\^2 - 
  381.                 mu1\ mu2\ p1\^2\ s1\^2\ s2\^2 - mu2\ p2\ s1\^2\ s2\^2 + 
  382.                 mu1\ mu2\ p2\ s1\^2\ s2\^2 - 2\ p1\ p2\ s1\^2\ s2\^2 + 
  383.                 2\ mu1\ p1\ p2\ s1\^2\ s2\^2 + mu2\ p1\ p2\ s1\^2\ s2\^2 - 
  384.                 mu1\ mu2\ p1\ p2\ s1\^2\ s2\^2 - mu1\ r\ s1\^2\ s2\^2 + 
  385.                 mu1\ mu2\ r\ s1\^2\ s2\^2 - 2\ p1\ r\ s1\^2\ s2\^2 + 
  386.                 4\ mu1\ p1\ r\ s1\^2\ s2\^2 + 2\ mu2\ p1\ r\ s1\^2\ s2\^2 - 
  387.                 4\ mu1\ mu2\ p1\ r\ s1\^2\ s2\^2 + 
  388.                 2\ p1\^2\ r\ s1\^2\ s2\^2 - 3\ mu1\ p1\^2\ r\ s1\^2\ s2\^2 - 
  389.                 2\ mu2\ p1\^2\ r\ s1\^2\ s2\^2 + 
  390.                 3\ mu1\ mu2\ p1\^2\ r\ s1\^2\ s2\^2 - p1\ r\ s1\^3\ s2\^2 + 
  391.                 mu2\ p1\ r\ s1\^3\ s2\^2 + 2\ p1\^2\ r\ s1\^3\ s2\^2 - 
  392.                 2\ mu2\ p1\^2\ r\ s1\^3\ s2\^2 - p1\^3\ r\ s1\^3\ s2\^2 + 
  393.                 mu2\ p1\^3\ r\ s1\^3\ s2\^2 + p2\ s2\^3 - 2\ mu1\ p2\ s2\^3 + 
  394.                 mu1\^2\ p2\ s2\^3 - p2\^2\ s2\^3 + mu1\ p2\^2\ s2\^3 + 
  395.                 2\ p2\ s1\ s2\^3 - 3\ mu1\ p2\ s1\ s2\^3 + 
  396.                 mu1\^2\ p2\ s1\ s2\^3 - p1\ p2\ s1\ s2\^3 + 
  397.                 mu1\ p1\ p2\ s1\ s2\^3 - 2\ p2\^2\ s1\ s2\^3 + 
  398.                 2\ mu1\ p2\^2\ s1\ s2\^3 + p2\ s1\^2\ s2\^3 - 
  399.                 mu1\ p2\ s1\^2\ s2\^3 - p1\ p2\ s1\^2\ s2\^3 + 
  400.                 mu1\ p1\ p2\ s1\^2\ s2\^3 - p2\^2\ s1\^2\ s2\^3 + 
  401.                 mu1\ p2\^2\ s1\^2\ s2\^3)\))\)/
  402.         \((\((\(-1\) + mu1)\)\ 
  403.             \((\(-eps\) + eps\ p1 - s2 + mu1\ s2 - s1\ s2 + p1\ s1\ s2)\)\ 
  404.             \((\(-eps\) + eps\ p1 - s2 - eps\ p2\ s2 - s1\ s2 - p2\ s2\^2 - 
  405.                 p2\ s1\ s2\^2)\))\)\)\)\)], "Output"]
  406. }, Closed]],
  407.  
  408. Cell["\<\
  409. These two equations equal zero.  We can drop the denominators to \
  410. make the calculations simpler:\
  411. \>", "Text"],
  412.  
  413. Cell[BoxData[
  414.     \(\(eqn1[p1_, p2_, eps_] = 
  415.       \((eps\ mu1 - eps\ mu2 - eps\ mu1\ p1 + eps\ mu2\ p1 - eps\ mu1\ p2 + 
  416.           eps\ mu2\ p2 + eps\ mu1\ p1\ p2 - eps\ mu2\ p1\ p2 + mu1\ s1 - 
  417.           mu1\ mu2\ s1 + eps\ p1\ s1 - mu1\ p1\ s1 - eps\ mu2\ p1\ s1 + 
  418.           mu1\ mu2\ p1\ s1 - eps\ p1\^2\ s1 + eps\ mu2\ p1\^2\ s1 + 
  419.           p1\ s1\^2 - mu2\ p1\ s1\^2 - p1\^2\ s1\^2 + mu2\ p1\^2\ s1\^2 - 
  420.           mu2\ s2 + mu1\ mu2\ s2 - eps\ p2\ s2 + eps\ mu1\ p2\ s2 + 
  421.           mu2\ p2\ s2 - mu1\ mu2\ p2\ s2 + eps\ p2\^2\ s2 - 
  422.           eps\ mu1\ p2\^2\ s2 + mu1\ s1\ s2 - mu2\ s1\ s2 - mu1\ p1\ s1\ s2 + 
  423.           mu1\ mu2\ p1\ s1\ s2 + mu2\ p2\ s1\ s2 - mu1\ mu2\ p2\ s1\ s2 + 
  424.           p1\ s1\^2\ s2 - mu2\ p1\ s1\^2\ s2 - p1\^2\ s1\^2\ s2 + 
  425.           mu2\ p1\^2\ s1\^2\ s2 - p2\ s2\^2 + mu1\ p2\ s2\^2 + p2\^2\ s2\^2 - 
  426.           mu1\ p2\^2\ s2\^2 - p2\ s1\ s2\^2 + mu1\ p2\ s1\ s2\^2 + 
  427.           p2\^2\ s1\ s2\^2 - mu1\ p2\^2\ s1\ s2\^2)\); \)\)], "Input"],
  428.  
  429. Cell[BoxData[
  430.     \(\(eqn2[p1_, p2_, eps_] = \ 
  431.       \((eps\^2\ mu2 - eps\ mu1\ mu2 - eps\^2\ mu1\ mu2 + eps\ mu1\^2\ mu2 - 
  432.           2\ eps\^2\ mu2\ p1 + eps\ mu1\ mu2\ p1 + 2\ eps\^2\ mu1\ mu2\ p1 - 
  433.           eps\ mu1\^2\ mu2\ p1 + eps\^2\ mu2\ p1\^2 - 
  434.           eps\^2\ mu1\ mu2\ p1\^2 - eps\^2\ mu2\ p2 + eps\^2\ mu1\ mu2\ p2 + 
  435.           eps\^2\ mu2\ p1\ p2 - eps\^2\ mu1\ mu2\ p1\ p2 - eps\ mu1\ r - 
  436.           eps\^2\ mu1\ r + eps\ mu1\^2\ r + eps\ mu1\ mu2\ r + 
  437.           eps\^2\ mu1\ mu2\ r - eps\ mu1\^2\ mu2\ r + eps\ mu1\ p1\ r + 
  438.           2\ eps\^2\ mu1\ p1\ r - eps\ mu1\^2\ p1\ r - eps\ mu1\ mu2\ p1\ r - 
  439.           2\ eps\^2\ mu1\ mu2\ p1\ r + eps\ mu1\^2\ mu2\ p1\ r - 
  440.           eps\^2\ mu1\ p1\^2\ r + eps\^2\ mu1\ mu2\ p1\^2\ r + 
  441.           eps\^2\ mu1\ p2\ r - eps\^2\ mu1\ mu2\ p2\ r - eps\^2\ p1\ p2\ r - 
  442.           eps\^2\ mu1\ p1\ p2\ r + eps\^2\ mu2\ p1\ p2\ r + 
  443.           eps\^2\ mu1\ mu2\ p1\ p2\ r + eps\^2\ p1\^2\ p2\ r - 
  444.           eps\^2\ mu2\ p1\^2\ p2\ r - eps\ mu2\ p1\ s1 + 
  445.           eps\ mu1\ mu2\ p1\ s1 + eps\ mu2\ p1\^2\ s1 - 
  446.           eps\ mu1\ mu2\ p1\^2\ s1 - eps\ mu1\ r\ s1 + eps\ mu1\ mu2\ r\ s1 - 
  447.           eps\ p1\ r\ s1 - eps\^2\ p1\ r\ s1 + 3\ eps\ mu1\ p1\ r\ s1 + 
  448.           eps\ mu2\ p1\ r\ s1 + eps\^2\ mu2\ p1\ r\ s1 - 
  449.           3\ eps\ mu1\ mu2\ p1\ r\ s1 + eps\ p1\^2\ r\ s1 + 
  450.           2\ eps\^2\ p1\^2\ r\ s1 - 2\ eps\ mu1\ p1\^2\ r\ s1 - 
  451.           eps\ mu2\ p1\^2\ r\ s1 - 2\ eps\^2\ mu2\ p1\^2\ r\ s1 + 
  452.           2\ eps\ mu1\ mu2\ p1\^2\ r\ s1 - eps\^2\ p1\^3\ r\ s1 + 
  453.           eps\^2\ mu2\ p1\^3\ r\ s1 - eps\ p1\ r\ s1\^2 + 
  454.           eps\ mu2\ p1\ r\ s1\^2 + 2\ eps\ p1\^2\ r\ s1\^2 - 
  455.           2\ eps\ mu2\ p1\^2\ r\ s1\^2 - eps\ p1\^3\ r\ s1\^2 + 
  456.           eps\ mu2\ p1\^3\ r\ s1\^2 + eps\ mu1\ s2 - mu1\^2\ s2 - 
  457.           eps\ mu1\^2\ s2 + mu1\^3\ s2 + 2\ eps\ mu2\ s2 - mu1\ mu2\ s2 - 
  458.           4\ eps\ mu1\ mu2\ s2 + 2\ mu1\^2\ mu2\ s2 + 
  459.           2\ eps\ mu1\^2\ mu2\ s2 - mu1\^3\ mu2\ s2 - eps\ mu1\ p1\ s2 + 
  460.           eps\ mu1\^2\ p1\ s2 - 2\ eps\ mu2\ p1\ s2 + 
  461.           4\ eps\ mu1\ mu2\ p1\ s2 - 2\ eps\ mu1\^2\ mu2\ p1\ s2 + 
  462.           eps\^2\ p2\ s2 - 2\ eps\ mu1\ p2\ s2 - eps\^2\ mu1\ p2\ s2 + 
  463.           2\ eps\ mu1\^2\ p2\ s2 - 2\ eps\ mu2\ p2\ s2 + 
  464.           3\ eps\ mu1\ mu2\ p2\ s2 - eps\ mu1\^2\ mu2\ p2\ s2 - 
  465.           eps\^2\ p1\ p2\ s2 + eps\^2\ mu1\ p1\ p2\ s2 + 
  466.           eps\ mu2\ p1\ p2\ s2 - eps\ mu1\ mu2\ p1\ p2\ s2 - 
  467.           eps\^2\ p2\^2\ s2 + eps\^2\ mu1\ p2\^2\ s2 - mu1\ r\ s2 - 
  468.           2\ eps\ mu1\ r\ s2 + 2\ mu1\^2\ r\ s2 + 2\ eps\ mu1\^2\ r\ s2 - 
  469.           mu1\^3\ r\ s2 + mu1\ mu2\ r\ s2 + 2\ eps\ mu1\ mu2\ r\ s2 - 
  470.           2\ mu1\^2\ mu2\ r\ s2 - 2\ eps\ mu1\^2\ mu2\ r\ s2 + 
  471.           mu1\^3\ mu2\ r\ s2 + 2\ eps\ mu1\ p1\ r\ s2 - 
  472.           2\ eps\ mu1\^2\ p1\ r\ s2 - 2\ eps\ mu1\ mu2\ p1\ r\ s2 + 
  473.           2\ eps\ mu1\^2\ mu2\ p1\ r\ s2 + eps\ mu1\ p2\ r\ s2 - 
  474.           eps\ mu1\^2\ p2\ r\ s2 - eps\ mu1\ mu2\ p2\ r\ s2 + 
  475.           eps\ mu1\^2\ mu2\ p2\ r\ s2 - eps\ p1\ p2\ r\ s2 + 
  476.           eps\ mu1\ p1\ p2\ r\ s2 + eps\ mu2\ p1\ p2\ r\ s2 - 
  477.           eps\ mu1\ mu2\ p1\ p2\ r\ s2 + 2\ eps\ mu2\ s1\ s2 - 
  478.           mu1\ mu2\ s1\ s2 - 2\ eps\ mu1\ mu2\ s1\ s2 + mu1\^2\ mu2\ s1\ s2 + 
  479.           eps\ p1\ s1\ s2 - 2\ mu1\ p1\ s1\ s2 - eps\ mu1\ p1\ s1\ s2 + 
  480.           2\ mu1\^2\ p1\ s1\ s2 - mu2\ p1\ s1\ s2 - 4\ eps\ mu2\ p1\ s1\ s2 + 
  481.           3\ mu1\ mu2\ p1\ s1\ s2 + 4\ eps\ mu1\ mu2\ p1\ s1\ s2 - 
  482.           2\ mu1\^2\ mu2\ p1\ s1\ s2 - eps\ p1\^2\ s1\ s2 + 
  483.           eps\ mu1\ p1\^2\ s1\ s2 + 2\ eps\ mu2\ p1\^2\ s1\ s2 - 
  484.           2\ eps\ mu1\ mu2\ p1\^2\ s1\ s2 - 2\ eps\ mu2\ p2\ s1\ s2 + 
  485.           2\ eps\ mu1\ mu2\ p2\ s1\ s2 - 2\ eps\ p1\ p2\ s1\ s2 + 
  486.           2\ eps\ mu1\ p1\ p2\ s1\ s2 + 2\ eps\ mu2\ p1\ p2\ s1\ s2 - 
  487.           2\ eps\ mu1\ mu2\ p1\ p2\ s1\ s2 - 2\ mu1\ r\ s1\ s2 - 
  488.           2\ eps\ mu1\ r\ s1\ s2 + 2\ mu1\^2\ r\ s1\ s2 + 
  489.           2\ mu1\ mu2\ r\ s1\ s2 + 2\ eps\ mu1\ mu2\ r\ s1\ s2 - 
  490.           2\ mu1\^2\ mu2\ r\ s1\ s2 - p1\ r\ s1\ s2 - 2\ eps\ p1\ r\ s1\ s2 + 
  491.           4\ mu1\ p1\ r\ s1\ s2 + 6\ eps\ mu1\ p1\ r\ s1\ s2 - 
  492.           3\ mu1\^2\ p1\ r\ s1\ s2 + mu2\ p1\ r\ s1\ s2 + 
  493.           2\ eps\ mu2\ p1\ r\ s1\ s2 - 4\ mu1\ mu2\ p1\ r\ s1\ s2 - 
  494.           6\ eps\ mu1\ mu2\ p1\ r\ s1\ s2 + 3\ mu1\^2\ mu2\ p1\ r\ s1\ s2 + 
  495.           2\ eps\ p1\^2\ r\ s1\ s2 - 4\ eps\ mu1\ p1\^2\ r\ s1\ s2 - 
  496.           2\ eps\ mu2\ p1\^2\ r\ s1\ s2 + 
  497.           4\ eps\ mu1\ mu2\ p1\^2\ r\ s1\ s2 + eps\ mu1\ p2\ r\ s1\ s2 - 
  498.           eps\ mu1\ mu2\ p2\ r\ s1\ s2 - eps\ p1\ p2\ r\ s1\ s2 - 
  499.           eps\ mu1\ p1\ p2\ r\ s1\ s2 + eps\ mu2\ p1\ p2\ r\ s1\ s2 + 
  500.           eps\ mu1\ mu2\ p1\ p2\ r\ s1\ s2 + eps\ p1\^2\ p2\ r\ s1\ s2 - 
  501.           eps\ mu2\ p1\^2\ p2\ r\ s1\ s2 - mu2\ p1\ s1\^2\ s2 + 
  502.           mu1\ mu2\ p1\ s1\^2\ s2 - p1\^2\ s1\^2\ s2 + 
  503.           mu1\ p1\^2\ s1\^2\ s2 + mu2\ p1\^2\ s1\^2\ s2 - 
  504.           mu1\ mu2\ p1\^2\ s1\^2\ s2 - mu1\ r\ s1\^2\ s2 + 
  505.           mu1\ mu2\ r\ s1\^2\ s2 - 2\ p1\ r\ s1\^2\ s2 - 
  506.           2\ eps\ p1\ r\ s1\^2\ s2 + 4\ mu1\ p1\ r\ s1\^2\ s2 + 
  507.           2\ mu2\ p1\ r\ s1\^2\ s2 + 2\ eps\ mu2\ p1\ r\ s1\^2\ s2 - 
  508.           4\ mu1\ mu2\ p1\ r\ s1\^2\ s2 + 2\ p1\^2\ r\ s1\^2\ s2 + 
  509.           4\ eps\ p1\^2\ r\ s1\^2\ s2 - 3\ mu1\ p1\^2\ r\ s1\^2\ s2 - 
  510.           2\ mu2\ p1\^2\ r\ s1\^2\ s2 - 4\ eps\ mu2\ p1\^2\ r\ s1\^2\ s2 + 
  511.           3\ mu1\ mu2\ p1\^2\ r\ s1\^2\ s2 - 2\ eps\ p1\^3\ r\ s1\^2\ s2 + 
  512.           2\ eps\ mu2\ p1\^3\ r\ s1\^2\ s2 - p1\ r\ s1\^3\ s2 + 
  513.           mu2\ p1\ r\ s1\^3\ s2 + 2\ p1\^2\ r\ s1\^3\ s2 - 
  514.           2\ mu2\ p1\^2\ r\ s1\^3\ s2 - p1\^3\ r\ s1\^3\ s2 + 
  515.           mu2\ p1\^3\ r\ s1\^3\ s2 + mu1\ s2\^2 - 2\ mu1\^2\ s2\^2 + 
  516.           mu1\^3\ s2\^2 + mu2\ s2\^2 - 3\ mu1\ mu2\ s2\^2 + 
  517.           3\ mu1\^2\ mu2\ s2\^2 - mu1\^3\ mu2\ s2\^2 + 2\ eps\ p2\ s2\^2 - 
  518.           2\ mu1\ p2\ s2\^2 - 3\ eps\ mu1\ p2\ s2\^2 + 2\ mu1\^2\ p2\ s2\^2 + 
  519.           eps\ mu1\^2\ p2\ s2\^2 - mu2\ p2\ s2\^2 + 2\ mu1\ mu2\ p2\ s2\^2 - 
  520.           mu1\^2\ mu2\ p2\ s2\^2 - eps\ p1\ p2\ s2\^2 + 
  521.           eps\ mu1\ p1\ p2\ s2\^2 - 2\ eps\ p2\^2\ s2\^2 + 
  522.           2\ eps\ mu1\ p2\^2\ s2\^2 - mu1\ r\ s2\^2 + 2\ mu1\^2\ r\ s2\^2 - 
  523.           mu1\^3\ r\ s2\^2 + mu1\ mu2\ r\ s2\^2 - 2\ mu1\^2\ mu2\ r\ s2\^2 + 
  524.           mu1\^3\ mu2\ r\ s2\^2 + mu1\ s1\ s2\^2 - mu1\^2\ s1\ s2\^2 + 
  525.           2\ mu2\ s1\ s2\^2 - 4\ mu1\ mu2\ s1\ s2\^2 + 
  526.           2\ mu1\^2\ mu2\ s1\ s2\^2 + p1\ s1\ s2\^2 - 3\ mu1\ p1\ s1\ s2\^2 + 
  527.           2\ mu1\^2\ p1\ s1\ s2\^2 - 2\ mu2\ p1\ s1\ s2\^2 + 
  528.           4\ mu1\ mu2\ p1\ s1\ s2\^2 - 2\ mu1\^2\ mu2\ p1\ s1\ s2\^2 + 
  529.           2\ eps\ p2\ s1\ s2\^2 - 2\ mu1\ p2\ s1\ s2\^2 - 
  530.           2\ eps\ mu1\ p2\ s1\ s2\^2 + 2\ mu1\^2\ p2\ s1\ s2\^2 - 
  531.           2\ mu2\ p2\ s1\ s2\^2 + 3\ mu1\ mu2\ p2\ s1\ s2\^2 - 
  532.           mu1\^2\ mu2\ p2\ s1\ s2\^2 - 2\ p1\ p2\ s1\ s2\^2 - 
  533.           2\ eps\ p1\ p2\ s1\ s2\^2 + 2\ mu1\ p1\ p2\ s1\ s2\^2 + 
  534.           2\ eps\ mu1\ p1\ p2\ s1\ s2\^2 + mu2\ p1\ p2\ s1\ s2\^2 - 
  535.           mu1\ mu2\ p1\ p2\ s1\ s2\^2 - 2\ eps\ p2\^2\ s1\ s2\^2 + 
  536.           2\ eps\ mu1\ p2\^2\ s1\ s2\^2 - 2\ mu1\ r\ s1\ s2\^2 + 
  537.           2\ mu1\^2\ r\ s1\ s2\^2 + 2\ mu1\ mu2\ r\ s1\ s2\^2 - 
  538.           2\ mu1\^2\ mu2\ r\ s1\ s2\^2 - p1\ r\ s1\ s2\^2 + 
  539.           4\ mu1\ p1\ r\ s1\ s2\^2 - 3\ mu1\^2\ p1\ r\ s1\ s2\^2 + 
  540.           mu2\ p1\ r\ s1\ s2\^2 - 4\ mu1\ mu2\ p1\ r\ s1\ s2\^2 + 
  541.           3\ mu1\^2\ mu2\ p1\ r\ s1\ s2\^2 + mu2\ s1\^2\ s2\^2 - 
  542.           mu1\ mu2\ s1\^2\ s2\^2 + p1\ s1\^2\ s2\^2 - mu1\ p1\ s1\^2\ s2\^2 - 
  543.           2\ mu2\ p1\ s1\^2\ s2\^2 + 2\ mu1\ mu2\ p1\ s1\^2\ s2\^2 - 
  544.           p1\^2\ s1\^2\ s2\^2 + mu1\ p1\^2\ s1\^2\ s2\^2 + 
  545.           mu2\ p1\^2\ s1\^2\ s2\^2 - mu1\ mu2\ p1\^2\ s1\^2\ s2\^2 - 
  546.           mu2\ p2\ s1\^2\ s2\^2 + mu1\ mu2\ p2\ s1\^2\ s2\^2 - 
  547.           2\ p1\ p2\ s1\^2\ s2\^2 + 2\ mu1\ p1\ p2\ s1\^2\ s2\^2 + 
  548.           mu2\ p1\ p2\ s1\^2\ s2\^2 - mu1\ mu2\ p1\ p2\ s1\^2\ s2\^2 - 
  549.           mu1\ r\ s1\^2\ s2\^2 + mu1\ mu2\ r\ s1\^2\ s2\^2 - 
  550.           2\ p1\ r\ s1\^2\ s2\^2 + 4\ mu1\ p1\ r\ s1\^2\ s2\^2 + 
  551.           2\ mu2\ p1\ r\ s1\^2\ s2\^2 - 4\ mu1\ mu2\ p1\ r\ s1\^2\ s2\^2 + 
  552.           2\ p1\^2\ r\ s1\^2\ s2\^2 - 3\ mu1\ p1\^2\ r\ s1\^2\ s2\^2 - 
  553.           2\ mu2\ p1\^2\ r\ s1\^2\ s2\^2 + 
  554.           3\ mu1\ mu2\ p1\^2\ r\ s1\^2\ s2\^2 - p1\ r\ s1\^3\ s2\^2 + 
  555.           mu2\ p1\ r\ s1\^3\ s2\^2 + 2\ p1\^2\ r\ s1\^3\ s2\^2 - 
  556.           2\ mu2\ p1\^2\ r\ s1\^3\ s2\^2 - p1\^3\ r\ s1\^3\ s2\^2 + 
  557.           mu2\ p1\^3\ r\ s1\^3\ s2\^2 + p2\ s2\^3 - 2\ mu1\ p2\ s2\^3 + 
  558.           mu1\^2\ p2\ s2\^3 - p2\^2\ s2\^3 + mu1\ p2\^2\ s2\^3 + 
  559.           2\ p2\ s1\ s2\^3 - 3\ mu1\ p2\ s1\ s2\^3 + mu1\^2\ p2\ s1\ s2\^3 - 
  560.           p1\ p2\ s1\ s2\^3 + mu1\ p1\ p2\ s1\ s2\^3 - 2\ p2\^2\ s1\ s2\^3 + 
  561.           2\ mu1\ p2\^2\ s1\ s2\^3 + p2\ s1\^2\ s2\^3 - 
  562.           mu1\ p2\ s1\^2\ s2\^3 - p1\ p2\ s1\^2\ s2\^3 + 
  563.           mu1\ p1\ p2\ s1\^2\ s2\^3 - p2\^2\ s1\^2\ s2\^3 + 
  564.           mu1\ p2\^2\ s1\^2\ s2\^3)\); \)\)], "Input"],
  565.  
  566. Cell["\<\
  567. These are both  solved in the absence of epistasis by setting \
  568. p1=-mu1/s1 and p2=-mu2/s2
  569. [RECALL that selection is assumed to be negative.]:\
  570. \>", "Text"],
  571.  
  572. Cell[CellGroupData[{
  573.  
  574. Cell[BoxData[
  575.     \(Factor[
  576.       \(\(DsSolve /. p1 -> \(-mu1\)/s1\) /. p2 -> \(-mu2\)/s2\) /. eps -> 0]
  577.       \)], "Input"],
  578.  
  579. Cell[BoxData[
  580.     \(0\)], "Output"]
  581. }, Open  ]],
  582.  
  583. Cell[CellGroupData[{
  584.  
  585. Cell[BoxData[
  586.     \(Factor[eqn1[\(-mu1\)/s1, \(-mu2\)/s2, 0]]\)], "Input"],
  587.  
  588. Cell[BoxData[
  589.     \(0\)], "Output"]
  590. }, Open  ]],
  591.  
  592. Cell[CellGroupData[{
  593.  
  594. Cell[BoxData[
  595.     \(Factor[eqn2[\(-mu1\)/s1, \(-mu2\)/s2, 0]]\)], "Input"],
  596.  
  597. Cell[BoxData[
  598.     \(0\)], "Output"]
  599. }, Open  ]],
  600.  
  601. Cell["The mean fitness of the population is:", "Text"],
  602.  
  603. Cell[CellGroupData[{
  604.  
  605. Cell[BoxData[
  606.     \(Factor[Fitness]\)], "Input"],
  607.  
  608. Cell[BoxData[
  609.     \(w11\ x1 + w12\ x2 + w21\ x3 + w22\ x4\)], "Output"]
  610. }, Open  ]],
  611.  
  612. Cell[CellGroupData[{
  613.  
  614. Cell[BoxData[
  615.     \(Simplify[\(Fitness /. subfit\) /. subtwoloci]\)], "Input"],
  616.  
  617. Cell[BoxData[
  618.     \(eps\ p1\ p2 + \((1 + p1\ s1)\)\ \((1 + p2\ s2)\) + 
  619.       dis\ \((eps + s1\ s2)\)\)], "Output"]
  620. }, Open  ]],
  621.  
  622. Cell[CellGroupData[{
  623.  
  624. Cell[BoxData[
  625.     \(eqn3[p1_, p2_, eps_] = 
  626.       Factor[\(\(Fitness /. subtwoloci\) /. subfit\) /. dis -> DsSolve]\)], 
  627.   "Input"],
  628.  
  629. Cell[BoxData[
  630.     \(\(-\(\(\((\(-1\) + mu1)\)\ 
  631.             \((\(-eps\) + eps\ p1 - s2 - eps\ p2\ s2 - s1\ s2 - p2\ s2\^2 - 
  632.                 p2\ s1\ s2\^2)\)\)\/\(\(-eps\) + eps\ p1 - s2 + mu1\ s2 - 
  633.             s1\ s2 + p1\ s1\ s2\)\)\)\)], "Output"]
  634. }, Open  ]],
  635.  
  636. Cell["\<\
  637. We will do a Taylor Series of this equation for the mean fitness \
  638. around eps=0,
  639. keeping linear and quadratic terms in eps:\
  640. \>", "Text"],
  641.  
  642. Cell[CellGroupData[{
  643.  
  644. Cell[BoxData[
  645.     \(Simplify[Normal[Series[eqn3[p1[eps], p2[eps], eps], {eps, 0, 2}]]]\)], 
  646.   "Input"],
  647.  
  648. Cell[BoxData[
  649.     RowBox[{
  650.       RowBox[{"(", 
  651.         RowBox[{\((\(-1\) + mu1)\), " ", 
  652.           RowBox[{"(", 
  653.             RowBox[{
  654.             \(\((1 + s1)\)\ \((\(-1\) + mu1 + s1\ \((\(-1\) + p1[0])\))\)\ 
  655.                 \((1 + s2\ p2[0])\)\), "+", 
  656.               RowBox[{\(1\/s2\^2\), 
  657.                 RowBox[{"(", 
  658.                   RowBox[{"eps", " ", 
  659.                     RowBox[{"(", 
  660.                       RowBox[{
  661.                         RowBox[{
  662.                         \(-\((1 + s1)\)\), " ", "s2", " ", 
  663.                           \((1 + s2\ p2[0])\), " ", 
  664.                           RowBox[{"(", 
  665.                             RowBox[{\(-1\), "+", \(p1[0]\), "+", 
  666.                               RowBox[{"s1", " ", "s2", " ", 
  667.                                 RowBox[{
  668.                                   SuperscriptBox["p1", "\[Prime]",
  669.                                     MultilineFunction->None], "[", "0", 
  670.                                   "]"}]}]}], ")"}]}], "+", 
  671.                         RowBox[{
  672.                         "s2", " ", 
  673.                           \((\(-1\) + mu1 + s1\ \((\(-1\) + p1[0])\))\), 
  674.                           " ", 
  675.                           RowBox[{"(", 
  676.                             RowBox[{
  677.                             "1", "-", \(p1[0]\), "+", \(s2\ p2[0]\), "+", 
  678.                               RowBox[{\(s2\^2\), " ", 
  679.                                 RowBox[{
  680.                                   SuperscriptBox["p2", "\[Prime]",
  681.                                     MultilineFunction->None], "[", "0", 
  682.                                   "]"}]}], "+", 
  683.                               RowBox[{"s1", " ", \(s2\^2\), " ", 
  684.                                 RowBox[{
  685.                                   SuperscriptBox["p2", "\[Prime]",
  686.                                     MultilineFunction->None], "[", "0", 
  687.                                   "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], 
  688.               "+", 
  689.               RowBox[{\(1\/s2\^2\), 
  690.                 RowBox[{"(", 
  691.                   RowBox[{\(eps\^2\), " ", 
  692.                     RowBox[{"(", 
  693.                       RowBox[{
  694.                         RowBox[{
  695.                           RowBox[{"(", 
  696.                             RowBox[{\(-1\), "+", \(p1[0]\), "+", 
  697.                               RowBox[{"s1", " ", "s2", " ", 
  698.                                 RowBox[{
  699.                                   SuperscriptBox["p1", "\[Prime]",
  700.                                     MultilineFunction->None], "[", "0", 
  701.                                   "]"}]}]}], ")"}], " ", 
  702.                           RowBox[{"(", 
  703.                             RowBox[{
  704.                             \(-1\), "+", \(p1[0]\), "-", \(s2\ p2[0]\), "-", 
  705.                               RowBox[{\(s2\^2\), " ", 
  706.                                 RowBox[{
  707.                                   SuperscriptBox["p2", "\[Prime]",
  708.                                     MultilineFunction->None], "[", "0", 
  709.                                   "]"}]}], "-", 
  710.                               RowBox[{"s1", " ", \(s2\^2\), " ", 
  711.                                 RowBox[{
  712.                                   SuperscriptBox["p2", "\[Prime]",
  713.                                     MultilineFunction->None], "[", "0", 
  714.                                   "]"}]}]}], ")"}]}], "-", 
  715.                         RowBox[{
  716.                           RowBox[{"(", 
  717.                             RowBox[{
  718.                             \((1 + s1)\), " ", \((1 + s2\ p2[0])\), " ", 
  719.                               RowBox[{"(", 
  720.                                 RowBox[{\(-2\), "-", \(2\ p1[0]\^2\), "+", 
  721.                                   RowBox[{
  722.                                   "2", " ", \((\(-1\) + mu1 + s1)\), " ", 
  723.                                     "s2", " ", 
  724.                                     RowBox[{
  725.                                       SuperscriptBox["p1", "\[Prime]",
  726.                                         MultilineFunction->None], "[", "0", 
  727.                                       "]"}]}], "-", 
  728.                                   RowBox[{"s1", " ", \(s2\^2\), " ", 
  729.                                     RowBox[{"(", 
  730.                                       RowBox[{
  731.                                         RowBox[{"2", " ", "s1", " ", 
  732.                                         SuperscriptBox[
  733.                                         RowBox[{
  734.                                         SuperscriptBox["p1", "\[Prime]",
  735.                                         MultilineFunction->None], "[", "0", 
  736.                                         "]"}], "2"]}], "+", 
  737.                                         RowBox[{
  738.                                         
  739.                                         SuperscriptBox["p1", 
  740.                                         "\[DoublePrime]",
  741.                                         MultilineFunction->None], "[", "0", 
  742.                                         "]"}], "-", 
  743.                                         RowBox[{"mu1", " ", 
  744.                                         RowBox[{
  745.                                         
  746.                                         SuperscriptBox["p1", 
  747.                                         "\[DoublePrime]",
  748.                                         MultilineFunction->None], "[", "0", 
  749.                                         "]"}]}], "+", 
  750.                                         RowBox[{"s1", " ", 
  751.                                         RowBox[{
  752.                                         
  753.                                         SuperscriptBox["p1", 
  754.                                         "\[DoublePrime]",
  755.                                         MultilineFunction->None], "[", "0", 
  756.                                         "]"}]}]}], ")"}]}], "+", 
  757.                                   RowBox[{\(p1[0]\), " ", 
  758.                                     RowBox[{"(", 
  759.                                       RowBox[{"4", "-", 
  760.                                         RowBox[{
  761.                                         "2", " ", "s1", " ", "s2", " ", 
  762.                                         RowBox[{
  763.                                         SuperscriptBox["p1", "\[Prime]",
  764.                                         MultilineFunction->None], "[", "0", 
  765.                                         "]"}]}], "+", 
  766.                                         RowBox[{
  767.                                         \(s1\^2\), " ", \(s2\^2\), " ", 
  768.                                         RowBox[{
  769.                                         
  770.                                         SuperscriptBox["p1", 
  771.                                         "\[DoublePrime]",
  772.                                         MultilineFunction->None], "[", "0", 
  773.                                         "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], 
  774.                           "/", \((
  775.                             2\ \((\(-1\) + mu1 + s1\ \((\(-1\) + p1[0])\))\))
  776.                             \)}], "+", 
  777.                         RowBox[{
  778.                         \(1\/2\), " ", "s2", " ", 
  779.                           \((\(-1\) + mu1 + s1\ \((\(-1\) + p1[0])\))\), 
  780.                           " ", 
  781.                           RowBox[{"(", 
  782.                             RowBox[{
  783.                               RowBox[{\(-2\), " ", 
  784.                                 RowBox[{
  785.                                   SuperscriptBox["p1", "\[Prime]",
  786.                                     MultilineFunction->None], "[", "0", 
  787.                                   "]"}]}], "+", 
  788.                               RowBox[{"s2", " ", 
  789.                                 RowBox[{"(", 
  790.                                   RowBox[{
  791.                                     RowBox[{"2", " ", 
  792.                                       RowBox[{
  793.                                         SuperscriptBox["p2", "\[Prime]",
  794.                                         MultilineFunction->None], "[", "0", 
  795.                                         "]"}]}], "+", 
  796.                                     RowBox[{\((1 + s1)\), " ", "s2", " ", 
  797.                                       RowBox[{
  798.                                         
  799.                                         SuperscriptBox["p2", 
  800.                                         "\[DoublePrime]",
  801.                                         MultilineFunction->None], "[", "0", 
  802.                                         "]"}]}]}], ")"}]}]}], ")"}]}]}], 
  803.                       ")"}]}], ")"}]}]}], ")"}]}], ")"}], "/", 
  804.       \(\((\(-1\) + mu1 + s1\ \((\(-1\) + p1[0])\))\)\^2\)}]], "Output"]
  805. }, Open  ]],
  806.  
  807. Cell["\<\
  808. This Taylor Series depends on terms like p1'[0] and p1''[0], the \
  809. first and second
  810. derivative with respect to eps of the allele frequency functions.  These can \
  811. be
  812. determined by differentiation of the two equations (eqn1 and eqn2) giving p1 \
  813. and p2 implicitly.\
  814. \>", "Text"],
  815.  
  816. Cell["The first derivatives with respect to eps:", "Text"],
  817.  
  818. Cell[CellGroupData[{
  819.  
  820. Cell[BoxData[
  821.     \(a1 = 
  822.       Factor[\(D[eqn1[p1[eps], p2[eps], eps], eps] /. eps -> 0\) /. {
  823.             p1[0] -> \(-mu1\)/s1, p2[0] -> \(-mu2\)/s2}]\)], "Input"],
  824.  
  825. Cell[BoxData[
  826.     RowBox[{\(1\/\(s1\ s2\)\), 
  827.       RowBox[{"(", 
  828.         RowBox[{
  829.         \(mu1\^2\ mu2\), "-", \(mu1\ mu2\^2\), "+", \(mu1\ mu2\ s1\), "-", 
  830.           \(mu1\ mu2\^2\ s1\), "-", \(mu1\ mu2\ s2\), "+", 
  831.           \(mu1\^2\ mu2\ s2\), "+", 
  832.           RowBox[{"mu1", " ", \(s1\^2\), " ", "s2", " ", 
  833.             RowBox[{
  834.               SuperscriptBox["p1", "\[Prime]",
  835.                 MultilineFunction->None], "[", "0", "]"}]}], "-", 
  836.           RowBox[{"mu1", " ", "mu2", " ", \(s1\^2\), " ", "s2", " ", 
  837.             RowBox[{
  838.               SuperscriptBox["p1", "\[Prime]",
  839.                 MultilineFunction->None], "[", "0", "]"}]}], "+", 
  840.           RowBox[{\(s1\^3\), " ", "s2", " ", 
  841.             RowBox[{
  842.               SuperscriptBox["p1", "\[Prime]",
  843.                 MultilineFunction->None], "[", "0", "]"}]}], "-", 
  844.           RowBox[{"mu2", " ", \(s1\^3\), " ", "s2", " ", 
  845.             RowBox[{
  846.               SuperscriptBox["p1", "\[Prime]",
  847.                 MultilineFunction->None], "[", "0", "]"}]}], "+", 
  848.           RowBox[{"mu1", " ", \(s1\^2\), " ", \(s2\^2\), " ", 
  849.             RowBox[{
  850.               SuperscriptBox["p1", "\[Prime]",
  851.                 MultilineFunction->None], "[", "0", "]"}]}], "-", 
  852.           RowBox[{"mu1", " ", "mu2", " ", \(s1\^2\), " ", \(s2\^2\), " ", 
  853.             RowBox[{
  854.               SuperscriptBox["p1", "\[Prime]",
  855.                 MultilineFunction->None], "[", "0", "]"}]}], "+", 
  856.           RowBox[{\(s1\^3\), " ", \(s2\^2\), " ", 
  857.             RowBox[{
  858.               SuperscriptBox["p1", "\[Prime]",
  859.                 MultilineFunction->None], "[", "0", "]"}]}], "-", 
  860.           RowBox[{"mu2", " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  861.             RowBox[{
  862.               SuperscriptBox["p1", "\[Prime]",
  863.                 MultilineFunction->None], "[", "0", "]"}]}], "-", 
  864.           RowBox[{"mu2", " ", "s1", " ", \(s2\^2\), " ", 
  865.             RowBox[{
  866.               SuperscriptBox["p2", "\[Prime]",
  867.                 MultilineFunction->None], "[", "0", "]"}]}], "+", 
  868.           RowBox[{"mu1", " ", "mu2", " ", "s1", " ", \(s2\^2\), " ", 
  869.             RowBox[{
  870.               SuperscriptBox["p2", "\[Prime]",
  871.                 MultilineFunction->None], "[", "0", "]"}]}], "-", 
  872.           RowBox[{"mu2", " ", \(s1\^2\), " ", \(s2\^2\), " ", 
  873.             RowBox[{
  874.               SuperscriptBox["p2", "\[Prime]",
  875.                 MultilineFunction->None], "[", "0", "]"}]}], "+", 
  876.           RowBox[{"mu1", " ", "mu2", " ", \(s1\^2\), " ", \(s2\^2\), " ", 
  877.             RowBox[{
  878.               SuperscriptBox["p2", "\[Prime]",
  879.                 MultilineFunction->None], "[", "0", "]"}]}], "-", 
  880.           RowBox[{"s1", " ", \(s2\^3\), " ", 
  881.             RowBox[{
  882.               SuperscriptBox["p2", "\[Prime]",
  883.                 MultilineFunction->None], "[", "0", "]"}]}], "+", 
  884.           RowBox[{"mu1", " ", "s1", " ", \(s2\^3\), " ", 
  885.             RowBox[{
  886.               SuperscriptBox["p2", "\[Prime]",
  887.                 MultilineFunction->None], "[", "0", "]"}]}], "-", 
  888.           RowBox[{\(s1\^2\), " ", \(s2\^3\), " ", 
  889.             RowBox[{
  890.               SuperscriptBox["p2", "\[Prime]",
  891.                 MultilineFunction->None], "[", "0", "]"}]}], "+", 
  892.           RowBox[{"mu1", " ", \(s1\^2\), " ", \(s2\^3\), " ", 
  893.             RowBox[{
  894.               SuperscriptBox["p2", "\[Prime]",
  895.                 MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}]], 
  896.   "Output"]
  897. }, Closed]],
  898.  
  899. Cell[CellGroupData[{
  900.  
  901. Cell[BoxData[
  902.     \(a2 = 
  903.       Factor[\(D[eqn2[p1[eps], p2[eps], eps], eps] /. eps -> 0\) /. {
  904.             p1[0] -> \(-mu1\)/s1, p2[0] -> \(-mu2\)/s2}]\)], "Input"],
  905.  
  906. Cell[BoxData[
  907.     RowBox[{"-", 
  908.       RowBox[{\(1\/s1\), 
  909.         RowBox[{"(", 
  910.           RowBox[{\((1 + s1)\), " ", 
  911.             RowBox[{"(", 
  912.               RowBox[{
  913.               \(\(-mu1\)\ mu2\^2\), "+", \(mu1\^2\ mu2\^2\), "+", 
  914.                 \(mu1\ mu2\ r\), "-", \(mu1\ mu2\^2\ r\), "+", 
  915.                 \(mu1\ mu2\ r\ s1\), "-", \(mu1\ mu2\^2\ r\ s1\), "-", 
  916.                 \(mu1\ mu2\ s2\), "+", \(mu1\^2\ mu2\ s2\), "-", 
  917.                 RowBox[{"mu2", " ", \(s1\^2\), " ", "s2", " ", 
  918.                   RowBox[{
  919.                     SuperscriptBox["p1", "\[Prime]",
  920.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  921.                 RowBox[{"mu1", " ", "mu2", " ", \(s1\^2\), " ", "s2", " ", 
  922.                   RowBox[{
  923.                     SuperscriptBox["p1", "\[Prime]",
  924.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  925.                 RowBox[{\(mu2\^2\), " ", \(s1\^2\), " ", "s2", " ", 
  926.                   RowBox[{
  927.                     SuperscriptBox["p1", "\[Prime]",
  928.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  929.                 RowBox[{
  930.                 "mu1", " ", \(mu2\^2\), " ", \(s1\^2\), " ", "s2", " ", 
  931.                   RowBox[{
  932.                     SuperscriptBox["p1", "\[Prime]",
  933.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  934.                 RowBox[{"r", " ", \(s1\^2\), " ", "s2", " ", 
  935.                   RowBox[{
  936.                     SuperscriptBox["p1", "\[Prime]",
  937.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  938.                 RowBox[{"mu2", " ", "r", " ", \(s1\^2\), " ", "s2", " ", 
  939.                   RowBox[{
  940.                     SuperscriptBox["p1", "\[Prime]",
  941.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  942.                 RowBox[{"r", " ", \(s1\^3\), " ", "s2", " ", 
  943.                   RowBox[{
  944.                     SuperscriptBox["p1", "\[Prime]",
  945.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  946.                 RowBox[{"mu2", " ", "r", " ", \(s1\^3\), " ", "s2", " ", 
  947.                   RowBox[{
  948.                     SuperscriptBox["p1", "\[Prime]",
  949.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  950.                 RowBox[{\(s1\^2\), " ", \(s2\^2\), " ", 
  951.                   RowBox[{
  952.                     SuperscriptBox["p1", "\[Prime]",
  953.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  954.                 RowBox[{"mu1", " ", \(s1\^2\), " ", \(s2\^2\), " ", 
  955.                   RowBox[{
  956.                     SuperscriptBox["p1", "\[Prime]",
  957.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  958.                 RowBox[{"mu2", " ", \(s1\^2\), " ", \(s2\^2\), " ", 
  959.                   RowBox[{
  960.                     SuperscriptBox["p1", "\[Prime]",
  961.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  962.                 RowBox[{
  963.                 "mu1", " ", "mu2", " ", \(s1\^2\), " ", \(s2\^2\), " ", 
  964.                   RowBox[{
  965.                     SuperscriptBox["p1", "\[Prime]",
  966.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  967.                 RowBox[{"r", " ", \(s1\^2\), " ", \(s2\^2\), " ", 
  968.                   RowBox[{
  969.                     SuperscriptBox["p1", "\[Prime]",
  970.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  971.                 RowBox[{
  972.                 "mu2", " ", "r", " ", \(s1\^2\), " ", \(s2\^2\), " ", 
  973.                   RowBox[{
  974.                     SuperscriptBox["p1", "\[Prime]",
  975.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  976.                 RowBox[{"r", " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  977.                   RowBox[{
  978.                     SuperscriptBox["p1", "\[Prime]",
  979.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  980.                 RowBox[{
  981.                 "mu2", " ", "r", " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  982.                   RowBox[{
  983.                     SuperscriptBox["p1", "\[Prime]",
  984.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  985.                 RowBox[{"mu2", " ", "s1", " ", \(s2\^2\), " ", 
  986.                   RowBox[{
  987.                     SuperscriptBox["p2", "\[Prime]",
  988.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  989.                 RowBox[{"mu1", " ", "mu2", " ", "s1", " ", \(s2\^2\), " ", 
  990.                   RowBox[{
  991.                     SuperscriptBox["p2", "\[Prime]",
  992.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  993.                 RowBox[{"mu2", " ", \(s1\^2\), " ", \(s2\^2\), " ", 
  994.                   RowBox[{
  995.                     SuperscriptBox["p2", "\[Prime]",
  996.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  997.                 RowBox[{
  998.                 "mu1", " ", "mu2", " ", \(s1\^2\), " ", \(s2\^2\), " ", 
  999.                   RowBox[{
  1000.                     SuperscriptBox["p2", "\[Prime]",
  1001.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1002.                 RowBox[{"s1", " ", \(s2\^3\), " ", 
  1003.                   RowBox[{
  1004.                     SuperscriptBox["p2", "\[Prime]",
  1005.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1006.                 RowBox[{"mu1", " ", "s1", " ", \(s2\^3\), " ", 
  1007.                   RowBox[{
  1008.                     SuperscriptBox["p2", "\[Prime]",
  1009.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1010.                 RowBox[{\(s1\^2\), " ", \(s2\^3\), " ", 
  1011.                   RowBox[{
  1012.                     SuperscriptBox["p2", "\[Prime]",
  1013.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1014.                 RowBox[{"mu1", " ", \(s1\^2\), " ", \(s2\^3\), " ", 
  1015.                   RowBox[{
  1016.                     SuperscriptBox["p2", "\[Prime]",
  1017.                       MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], 
  1018.           ")"}]}]}]], "Output"]
  1019. }, Closed]],
  1020.  
  1021. Cell[TextData[{
  1022.   "Since eqn1 and eqn2 equal zero, their derivatives give us functions thac \
  1023. can be solved\nfor ",
  1024.   Cell[BoxData[
  1025.       RowBox[{
  1026.         RowBox[{
  1027.           SuperscriptBox["p1", "\[Prime]",
  1028.             MultilineFunction->None], "[", "0", "]"}], " ", "and", " ", 
  1029.         RowBox[{
  1030.           SuperscriptBox["p2", "\[Prime]",
  1031.             MultilineFunction->None], "[", "0", "]"}]}]]],
  1032.   ":"
  1033. }], "Text"],
  1034.  
  1035. Cell[CellGroupData[{
  1036.  
  1037. Cell[BoxData[
  1038.     RowBox[{"Simplify", "[", 
  1039.       RowBox[{"Solve", "[", 
  1040.         RowBox[{\({a1 == 0, a2 == 0}\), ",", 
  1041.           RowBox[{"{", 
  1042.             RowBox[{
  1043.               RowBox[{
  1044.                 SuperscriptBox["p1", "\[Prime]",
  1045.                   MultilineFunction->None], "[", "0", "]"}], ",", 
  1046.               RowBox[{
  1047.                 SuperscriptBox["p2", "\[Prime]",
  1048.                   MultilineFunction->None], "[", "0", "]"}]}], "}"}]}], 
  1049.         "]"}], "]"}]], "Input"],
  1050.  
  1051. Cell[BoxData[
  1052.     RowBox[{"{", 
  1053.       RowBox[{"{", 
  1054.         RowBox[{
  1055.           RowBox[{
  1056.             RowBox[{
  1057.               SuperscriptBox["p1", "\[Prime]",
  1058.                 MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
  1059.             \(\(mu1\ mu2\ \((mu1 + s1 - r\ \((1 + s1)\))\)\)\/\(s1\^2\ s2\ 
  1060.                   \((mu1\ \((\(-1\) + mu2)\) - mu2 + r - s1 + r\ s1 - s2 + 
  1061.                       r\ s2 - s1\ s2 + r\ s1\ s2)\)\)\)}], ",", 
  1062.           RowBox[{
  1063.             RowBox[{
  1064.               SuperscriptBox["p2", "\[Prime]",
  1065.                 MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
  1066.             \(\(mu1\ mu2\ \((mu2 + s2 - r\ \((1 + s2)\))\)\)\/\(s1\ s2\^2\ 
  1067.                   \((mu1\ \((\(-1\) + mu2)\) - mu2 + r - s1 + r\ s1 - s2 + 
  1068.                       r\ s2 - s1\ s2 + r\ s1\ s2)\)\)\)}]}], "}"}], "}"}]], 
  1069.   "Output"]
  1070. }, Open  ]],
  1071.  
  1072. Cell[BoxData[
  1073.     RowBox[{
  1074.       RowBox[{"subepszero", "=", 
  1075.         RowBox[{"{", 
  1076.           RowBox[{
  1077.           \(p1[0] -> \(-mu1\)/s1\), ",", \(p2[0] -> \(-mu2\)/s2\), ",", "\n", 
  1078.             "\t\t", 
  1079.             RowBox[{
  1080.               RowBox[{
  1081.                 SuperscriptBox["p1", "\[Prime]",
  1082.                   MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
  1083.               \(\(mu1\ mu2\ \((mu1 + s1 - r\ \((1 + s1)\))\)\)\/\(s1\^2\ s2\ 
  1084.                     \((mu1\ \((\(-1\) + mu2)\) - mu2 + r - s1 + r\ s1 - s2 + 
  1085.                         r\ s2 - s1\ s2 + r\ s1\ s2)\)\)\)}], ",", 
  1086.             RowBox[{
  1087.               RowBox[{
  1088.                 SuperscriptBox["p2", "\[Prime]",
  1089.                   MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
  1090.               \(\(mu1\ mu2\ \((mu2 + s2 - r\ \((1 + s2)\))\)\)\/\(s1\ s2\^2\ 
  1091.                     \((mu1\ \((\(-1\) + mu2)\) - mu2 + r - s1 + r\ s1 - s2 + 
  1092.                         r\ s2 - s1\ s2 + r\ s1\ s2)\)\)\)}]}], "}"}]}], 
  1093.       ";"}]], "Input"],
  1094.  
  1095. Cell["Next we find the double derivatives with respect to eps:", "Text"],
  1096.  
  1097. Cell[CellGroupData[{
  1098.  
  1099. Cell[BoxData[
  1100.     \(a3 = 
  1101.       Factor[\(D[eqn1[p1[eps], p2[eps], eps], eps, eps] /. eps -> 0\) /. 
  1102.           subepszero]\)], "Input"],
  1103.  
  1104. Cell[BoxData[
  1105.     RowBox[{"-", 
  1106.       RowBox[{
  1107.         RowBox[{"(", 
  1108.           RowBox[{
  1109.           \(\(-2\)\ mu1\^4\ mu2\^2\), "+", \(2\ mu1\^4\ mu2\^3\), "+", 
  1110.             \(2\ mu1\^2\ mu2\^4\), "-", \(2\ mu1\^3\ mu2\^4\), "+", 
  1111.             \(2\ mu1\^4\ mu2\ r\), "+", \(2\ mu1\^3\ mu2\^2\ r\), "-", 
  1112.             \(2\ mu1\^4\ mu2\^2\ r\), "-", \(2\ mu1\^2\ mu2\^3\ r\), "-", 
  1113.             \(2\ mu1\ mu2\^4\ r\), "+", \(2\ mu1\^2\ mu2\^4\ r\), "-", 
  1114.             \(2\ mu1\^3\ mu2\ r\^2\), "+", \(2\ mu1\^3\ mu2\^2\ r\^2\), "+", 
  1115.             \(2\ mu1\ mu2\^3\ r\^2\), "-", \(2\ mu1\^2\ mu2\^3\ r\^2\), "-", 
  1116.             \(4\ mu1\^3\ mu2\^2\ s1\), "+", \(4\ mu1\^3\ mu2\^3\ s1\), "+", 
  1117.             \(2\ mu1\^2\ mu2\^4\ s1\), "-", \(2\ mu1\^3\ mu2\^4\ s1\), "+", 
  1118.             \(4\ mu1\^3\ mu2\ r\ s1\), "+", \(4\ mu1\^2\ mu2\^2\ r\ s1\), 
  1119.             "-", \(4\ mu1\^3\ mu2\^2\ r\ s1\), "-", 
  1120.             \(6\ mu1\^2\ mu2\^3\ r\ s1\), "+", \(2\ mu1\^3\ mu2\^3\ r\ s1\), 
  1121.             "-", \(2\ mu1\ mu2\^4\ r\ s1\), "+", 
  1122.             \(2\ mu1\^2\ mu2\^4\ r\ s1\), "-", \(2\ mu1\^2\ mu2\ r\^2\ s1\), 
  1123.             "-", \(2\ mu1\^3\ mu2\ r\^2\ s1\), "-", 
  1124.             \(2\ mu1\ mu2\^2\ r\^2\ s1\), "+", 
  1125.             \(4\ mu1\^2\ mu2\^2\ r\^2\ s1\), "+", 
  1126.             \(2\ mu1\^3\ mu2\^2\ r\^2\ s1\), "+", 
  1127.             \(4\ mu1\ mu2\^3\ r\^2\ s1\), "-", 
  1128.             \(4\ mu1\^2\ mu2\^3\ r\^2\ s1\), "-", 
  1129.             \(2\ mu1\^2\ mu2\^2\ s1\^2\), "+", \(2\ mu1\^2\ mu2\^3\ s1\^2\), 
  1130.             "+", \(2\ mu1\^2\ mu2\ r\ s1\^2\), "+", 
  1131.             \(2\ mu1\ mu2\^2\ r\ s1\^2\), "-", 
  1132.             \(2\ mu1\^2\ mu2\^2\ r\ s1\^2\), "-", 
  1133.             \(2\ mu1\ mu2\^3\ r\ s1\^2\), "-", 
  1134.             \(2\ mu1\^2\ mu2\ r\^2\ s1\^2\), "-", 
  1135.             \(2\ mu1\ mu2\^2\ r\^2\ s1\^2\), "+", 
  1136.             \(4\ mu1\^2\ mu2\^2\ r\^2\ s1\^2\), "+", 
  1137.             \(2\ mu1\ mu2\^3\ r\^2\ s1\^2\), "-", 
  1138.             \(2\ mu1\^2\ mu2\^3\ r\^2\ s1\^2\), "-", 
  1139.             \(2\ mu1\^4\ mu2\^2\ s2\), "+", \(4\ mu1\^2\ mu2\^3\ s2\), "-", 
  1140.             \(4\ mu1\^3\ mu2\^3\ s2\), "+", \(2\ mu1\^4\ mu2\^3\ s2\), "+", 
  1141.             \(2\ mu1\^4\ mu2\ r\ s2\), "-", \(4\ mu1\^2\ mu2\^2\ r\ s2\), 
  1142.             "+", \(6\ mu1\^3\ mu2\^2\ r\ s2\), "-", 
  1143.             \(2\ mu1\^4\ mu2\^2\ r\ s2\), "-", \(4\ mu1\ mu2\^3\ r\ s2\), 
  1144.             "+", \(4\ mu1\^2\ mu2\^3\ r\ s2\), "-", 
  1145.             \(2\ mu1\^3\ mu2\^3\ r\ s2\), "+", \(2\ mu1\^2\ mu2\ r\^2\ s2\), 
  1146.             "-", \(4\ mu1\^3\ mu2\ r\^2\ s2\), "+", 
  1147.             \(2\ mu1\ mu2\^2\ r\^2\ s2\), "-", 
  1148.             \(4\ mu1\^2\ mu2\^2\ r\^2\ s2\), "+", 
  1149.             \(4\ mu1\^3\ mu2\^2\ r\^2\ s2\), "+", 
  1150.             \(2\ mu1\ mu2\^3\ r\^2\ s2\), "-", 
  1151.             \(2\ mu1\^2\ mu2\^3\ r\^2\ s2\), "+", \(2\ mu1\^3\ mu2\ s1\ s2\), 
  1152.             "-", \(6\ mu1\^3\ mu2\^2\ s1\ s2\), "-", 
  1153.             \(2\ mu1\ mu2\^3\ s1\ s2\), "+", \(6\ mu1\^2\ mu2\^3\ s1\ s2\), 
  1154.             "-", \(2\ mu1\^2\ mu2\ r\ s1\ s2\), "+", 
  1155.             \(2\ mu1\^3\ mu2\ r\ s1\ s2\), "+", 
  1156.             \(2\ mu1\ mu2\^2\ r\ s1\ s2\), "+", 
  1157.             \(2\ mu1\^3\ mu2\^2\ r\ s1\ s2\), "-", 
  1158.             \(2\ mu1\ mu2\^3\ r\ s1\ s2\), "-", 
  1159.             \(2\ mu1\^2\ mu2\^3\ r\ s1\ s2\), "+", 
  1160.             \(2\ mu1\^2\ mu2\ r\^2\ s1\ s2\), "-", 
  1161.             \(4\ mu1\^3\ mu2\ r\^2\ s1\ s2\), "-", 
  1162.             \(2\ mu1\ mu2\^2\ r\^2\ s1\ s2\), "+", 
  1163.             \(4\ mu1\^3\ mu2\^2\ r\^2\ s1\ s2\), "+", 
  1164.             \(4\ mu1\ mu2\^3\ r\^2\ s1\ s2\), "-", 
  1165.             \(4\ mu1\^2\ mu2\^3\ r\^2\ s1\ s2\), "+", 
  1166.             \(4\ mu1\^2\ mu2\ s1\^2\ s2\), "-", 
  1167.             \(6\ mu1\^2\ mu2\^2\ s1\^2\ s2\), "-", 
  1168.             \(2\ mu1\ mu2\^3\ s1\^2\ s2\), "+", 
  1169.             \(4\ mu1\^2\ mu2\^3\ s1\^2\ s2\), "-", 
  1170.             \(2\ mu1\ mu2\ r\ s1\^2\ s2\), "-", 
  1171.             \(4\ mu1\^2\ mu2\ r\ s1\^2\ s2\), "+", 
  1172.             \(6\ mu1\ mu2\^2\ r\ s1\^2\ s2\), "+", 
  1173.             \(2\ mu1\^2\ mu2\^2\ r\ s1\^2\ s2\), "-", 
  1174.             \(2\ mu1\^2\ mu2\^3\ r\ s1\^2\ s2\), "+", 
  1175.             \(2\ mu1\ mu2\ r\^2\ s1\^2\ s2\), "-", 
  1176.             \(6\ mu1\ mu2\^2\ r\^2\ s1\^2\ s2\), "+", 
  1177.             \(4\ mu1\^2\ mu2\^2\ r\^2\ s1\^2\ s2\), "+", 
  1178.             \(2\ mu1\ mu2\^3\ r\^2\ s1\^2\ s2\), "-", 
  1179.             \(2\ mu1\^2\ mu2\^3\ r\^2\ s1\^2\ s2\), "+", 
  1180.             \(2\ mu1\ mu2\ s1\^3\ s2\), "-", \(2\ mu1\ mu2\^2\ s1\^3\ s2\), 
  1181.             "-", \(4\ mu1\ mu2\ r\ s1\^3\ s2\), "+", 
  1182.             \(4\ mu1\ mu2\^2\ r\ s1\^3\ s2\), "+", 
  1183.             \(2\ mu1\ mu2\ r\^2\ s1\^3\ s2\), "-", 
  1184.             \(2\ mu1\ mu2\^2\ r\^2\ s1\^3\ s2\), "+", 
  1185.             \(2\ mu1\^2\ mu2\^2\ s2\^2\), "-", \(2\ mu1\^3\ mu2\^2\ s2\^2\), 
  1186.             "-", \(2\ mu1\^2\ mu2\ r\ s2\^2\), "+", 
  1187.             \(2\ mu1\^3\ mu2\ r\ s2\^2\), "-", \(2\ mu1\ mu2\^2\ r\ s2\^2\), 
  1188.             "+", \(2\ mu1\^2\ mu2\^2\ r\ s2\^2\), "+", 
  1189.             \(2\ mu1\^2\ mu2\ r\^2\ s2\^2\), "-", 
  1190.             \(2\ mu1\^3\ mu2\ r\^2\ s2\^2\), "+", 
  1191.             \(2\ mu1\ mu2\^2\ r\^2\ s2\^2\), "-", 
  1192.             \(4\ mu1\^2\ mu2\^2\ r\^2\ s2\^2\), "+", 
  1193.             \(2\ mu1\^3\ mu2\^2\ r\^2\ s2\^2\), "+", 
  1194.             \(2\ mu1\^3\ mu2\ s1\ s2\^2\), "-", 
  1195.             \(4\ mu1\ mu2\^2\ s1\ s2\^2\), "+", 
  1196.             \(6\ mu1\^2\ mu2\^2\ s1\ s2\^2\), "-", 
  1197.             \(4\ mu1\^3\ mu2\^2\ s1\ s2\^2\), "+", 
  1198.             \(2\ mu1\ mu2\ r\ s1\ s2\^2\), "-", 
  1199.             \(6\ mu1\^2\ mu2\ r\ s1\ s2\^2\), "+", 
  1200.             \(4\ mu1\ mu2\^2\ r\ s1\ s2\^2\), "-", 
  1201.             \(2\ mu1\^2\ mu2\^2\ r\ s1\ s2\^2\), "+", 
  1202.             \(2\ mu1\^3\ mu2\^2\ r\ s1\ s2\^2\), "-", 
  1203.             \(2\ mu1\ mu2\ r\^2\ s1\ s2\^2\), "+", 
  1204.             \(6\ mu1\^2\ mu2\ r\^2\ s1\ s2\^2\), "-", 
  1205.             \(2\ mu1\^3\ mu2\ r\^2\ s1\ s2\^2\), "-", 
  1206.             \(4\ mu1\^2\ mu2\^2\ r\^2\ s1\ s2\^2\), "+", 
  1207.             \(2\ mu1\^3\ mu2\^2\ r\^2\ s1\ s2\^2\), "+", 
  1208.             \(4\ mu1\^2\ mu2\ s1\^2\ s2\^2\), "-", 
  1209.             \(4\ mu1\ mu2\^2\ s1\^2\ s2\^2\), "-", 
  1210.             \(8\ mu1\^2\ mu2\ r\ s1\^2\ s2\^2\), "+", 
  1211.             \(8\ mu1\ mu2\^2\ r\ s1\^2\ s2\^2\), "+", 
  1212.             \(4\ mu1\^2\ mu2\ r\^2\ s1\^2\ s2\^2\), "-", 
  1213.             \(4\ mu1\ mu2\^2\ r\^2\ s1\^2\ s2\^2\), "+", 
  1214.             \(2\ mu1\ mu2\ s1\^3\ s2\^2\), "-", 
  1215.             \(2\ mu1\ mu2\^2\ s1\^3\ s2\^2\), "-", 
  1216.             \(4\ mu1\ mu2\ r\ s1\^3\ s2\^2\), "+", 
  1217.             \(4\ mu1\ mu2\^2\ r\ s1\^3\ s2\^2\), "+", 
  1218.             \(2\ mu1\ mu2\ r\^2\ s1\^3\ s2\^2\), "-", 
  1219.             \(2\ mu1\ mu2\^2\ r\^2\ s1\^3\ s2\^2\), "-", 
  1220.             \(2\ mu1\ mu2\ s1\ s2\^3\), "+", \(2\ mu1\^2\ mu2\ s1\ s2\^3\), 
  1221.             "+", \(4\ mu1\ mu2\ r\ s1\ s2\^3\), "-", 
  1222.             \(4\ mu1\^2\ mu2\ r\ s1\ s2\^3\), "-", 
  1223.             \(2\ mu1\ mu2\ r\^2\ s1\ s2\^3\), "+", 
  1224.             \(2\ mu1\^2\ mu2\ r\^2\ s1\ s2\^3\), "-", 
  1225.             \(2\ mu1\ mu2\ s1\^2\ s2\^3\), "+", 
  1226.             \(2\ mu1\^2\ mu2\ s1\^2\ s2\^3\), "+", 
  1227.             \(4\ mu1\ mu2\ r\ s1\^2\ s2\^3\), "-", 
  1228.             \(4\ mu1\^2\ mu2\ r\ s1\^2\ s2\^3\), "-", 
  1229.             \(2\ mu1\ mu2\ r\^2\ s1\^2\ s2\^3\), "+", 
  1230.             \(2\ mu1\^2\ mu2\ r\^2\ s1\^2\ s2\^3\), "-", 
  1231.             RowBox[{\(mu1\^3\), " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  1232.               RowBox[{
  1233.                 SuperscriptBox["p1", "\[DoublePrime]",
  1234.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1235.             RowBox[{
  1236.             "2", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", \(s2\^2\), 
  1237.               " ", 
  1238.               RowBox[{
  1239.                 SuperscriptBox["p1", "\[DoublePrime]",
  1240.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1241.             RowBox[{
  1242.             "3", " ", \(mu1\^3\), " ", "mu2", " ", \(s1\^3\), " ", \(s2\^2\), 
  1243.               " ", 
  1244.               RowBox[{
  1245.                 SuperscriptBox["p1", "\[DoublePrime]",
  1246.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1247.             RowBox[{
  1248.             "mu1", " ", \(mu2\^2\), " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  1249.               RowBox[{
  1250.                 SuperscriptBox["p1", "\[DoublePrime]",
  1251.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1252.             RowBox[{
  1253.             "4", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  1254.               \(s2\^2\), " ", 
  1255.               RowBox[{
  1256.                 SuperscriptBox["p1", "\[DoublePrime]",
  1257.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1258.             RowBox[{
  1259.             "3", " ", \(mu1\^3\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  1260.               \(s2\^2\), " ", 
  1261.               RowBox[{
  1262.                 SuperscriptBox["p1", "\[DoublePrime]",
  1263.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1264.             RowBox[{
  1265.             "mu1", " ", \(mu2\^3\), " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  1266.               RowBox[{
  1267.                 SuperscriptBox["p1", "\[DoublePrime]",
  1268.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1269.             RowBox[{
  1270.             "2", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", \(s1\^3\), " ", 
  1271.               \(s2\^2\), " ", 
  1272.               RowBox[{
  1273.                 SuperscriptBox["p1", "\[DoublePrime]",
  1274.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1275.             RowBox[{
  1276.             \(mu1\^3\), " ", \(mu2\^3\), " ", \(s1\^3\), " ", \(s2\^2\), 
  1277.               " ", 
  1278.               RowBox[{
  1279.                 SuperscriptBox["p1", "\[DoublePrime]",
  1280.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1281.             RowBox[{
  1282.             "2", " ", \(mu1\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^2\), 
  1283.               " ", 
  1284.               RowBox[{
  1285.                 SuperscriptBox["p1", "\[DoublePrime]",
  1286.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1287.             RowBox[{
  1288.             "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  1289.               \(s2\^2\), " ", 
  1290.               RowBox[{
  1291.                 SuperscriptBox["p1", "\[DoublePrime]",
  1292.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1293.             RowBox[{
  1294.             "4", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  1295.               \(s2\^2\), " ", 
  1296.               RowBox[{
  1297.                 SuperscriptBox["p1", "\[DoublePrime]",
  1298.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1299.             RowBox[{
  1300.             "2", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", 
  1301.               \(s2\^2\), " ", 
  1302.               RowBox[{
  1303.                 SuperscriptBox["p1", "\[DoublePrime]",
  1304.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1305.             RowBox[{
  1306.             "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), 
  1307.               " ", \(s2\^2\), " ", 
  1308.               RowBox[{
  1309.                 SuperscriptBox["p1", "\[DoublePrime]",
  1310.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1311.             RowBox[{
  1312.             "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  1313.               RowBox[{
  1314.                 SuperscriptBox["p1", "\[DoublePrime]",
  1315.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1316.             RowBox[{
  1317.             "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^2\), 
  1318.               " ", 
  1319.               RowBox[{
  1320.                 SuperscriptBox["p1", "\[DoublePrime]",
  1321.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1322.             RowBox[{
  1323.             "3", " ", \(mu1\^2\), " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  1324.               RowBox[{
  1325.                 SuperscriptBox["p1", "\[DoublePrime]",
  1326.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1327.             RowBox[{
  1328.             "4", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^2\), 
  1329.               " ", 
  1330.               RowBox[{
  1331.                 SuperscriptBox["p1", "\[DoublePrime]",
  1332.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1333.             RowBox[{
  1334.             "7", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^4\), " ", \(s2\^2\), 
  1335.               " ", 
  1336.               RowBox[{
  1337.                 SuperscriptBox["p1", "\[DoublePrime]",
  1338.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1339.             RowBox[{\(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  1340.               RowBox[{
  1341.                 SuperscriptBox["p1", "\[DoublePrime]",
  1342.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1343.             RowBox[{
  1344.             "6", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^2\), 
  1345.               " ", 
  1346.               RowBox[{
  1347.                 SuperscriptBox["p1", "\[DoublePrime]",
  1348.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1349.             RowBox[{
  1350.             "5", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  1351.               \(s2\^2\), " ", 
  1352.               RowBox[{
  1353.                 SuperscriptBox["p1", "\[DoublePrime]",
  1354.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1355.             RowBox[{\(mu2\^3\), " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  1356.               RowBox[{
  1357.                 SuperscriptBox["p1", "\[DoublePrime]",
  1358.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1359.             RowBox[{
  1360.             "2", " ", "mu1", " ", \(mu2\^3\), " ", \(s1\^4\), " ", \(s2\^2\), 
  1361.               " ", 
  1362.               RowBox[{
  1363.                 SuperscriptBox["p1", "\[DoublePrime]",
  1364.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1365.             RowBox[{
  1366.             \(mu1\^2\), " ", \(mu2\^3\), " ", \(s1\^4\), " ", \(s2\^2\), 
  1367.               " ", 
  1368.               RowBox[{
  1369.                 SuperscriptBox["p1", "\[DoublePrime]",
  1370.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1371.             RowBox[{
  1372.             "4", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  1373.               RowBox[{
  1374.                 SuperscriptBox["p1", "\[DoublePrime]",
  1375.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1376.             RowBox[{
  1377.             "2", " ", \(mu1\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^2\), 
  1378.               " ", 
  1379.               RowBox[{
  1380.                 SuperscriptBox["p1", "\[DoublePrime]",
  1381.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1382.             RowBox[{
  1383.             "2", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  1384.               RowBox[{
  1385.                 SuperscriptBox["p1", "\[DoublePrime]",
  1386.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1387.             RowBox[{
  1388.             "4", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  1389.               \(s2\^2\), " ", 
  1390.               RowBox[{
  1391.                 SuperscriptBox["p1", "\[DoublePrime]",
  1392.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1393.             RowBox[{
  1394.             "4", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  1395.               \(s2\^2\), " ", 
  1396.               RowBox[{
  1397.                 SuperscriptBox["p1", "\[DoublePrime]",
  1398.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1399.             RowBox[{
  1400.             "2", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^2\), 
  1401.               " ", 
  1402.               RowBox[{
  1403.                 SuperscriptBox["p1", "\[DoublePrime]",
  1404.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1405.             RowBox[{
  1406.             "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), 
  1407.               " ", \(s2\^2\), " ", 
  1408.               RowBox[{
  1409.                 SuperscriptBox["p1", "\[DoublePrime]",
  1410.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1411.             RowBox[{\(r\^2\), " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  1412.               RowBox[{
  1413.                 SuperscriptBox["p1", "\[DoublePrime]",
  1414.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1415.             RowBox[{
  1416.             "2", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^2\), 
  1417.               " ", 
  1418.               RowBox[{
  1419.                 SuperscriptBox["p1", "\[DoublePrime]",
  1420.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1421.             RowBox[{
  1422.             "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  1423.               RowBox[{
  1424.                 SuperscriptBox["p1", "\[DoublePrime]",
  1425.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1426.             RowBox[{
  1427.             "2", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  1428.               \(s2\^2\), " ", 
  1429.               RowBox[{
  1430.                 SuperscriptBox["p1", "\[DoublePrime]",
  1431.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1432.             RowBox[{"3", " ", "mu1", " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  1433.               RowBox[{
  1434.                 SuperscriptBox["p1", "\[DoublePrime]",
  1435.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1436.             RowBox[{"2", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  1437.               RowBox[{
  1438.                 SuperscriptBox["p1", "\[DoublePrime]",
  1439.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1440.             RowBox[{
  1441.             "5", " ", "mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^2\), 
  1442.               " ", 
  1443.               RowBox[{
  1444.                 SuperscriptBox["p1", "\[DoublePrime]",
  1445.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1446.             RowBox[{
  1447.             "2", " ", \(mu2\^2\), " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  1448.               RowBox[{
  1449.                 SuperscriptBox["p1", "\[DoublePrime]",
  1450.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1451.             RowBox[{
  1452.             "2", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^5\), " ", \(s2\^2\), 
  1453.               " ", 
  1454.               RowBox[{
  1455.                 SuperscriptBox["p1", "\[DoublePrime]",
  1456.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1457.             RowBox[{"2", " ", "r", " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  1458.               RowBox[{
  1459.                 SuperscriptBox["p1", "\[DoublePrime]",
  1460.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1461.             RowBox[{
  1462.             "4", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  1463.               RowBox[{
  1464.                 SuperscriptBox["p1", "\[DoublePrime]",
  1465.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1466.             RowBox[{
  1467.             "6", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  1468.               \(s2\^2\), " ", 
  1469.               RowBox[{
  1470.                 SuperscriptBox["p1", "\[DoublePrime]",
  1471.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1472.             RowBox[{
  1473.             "2", " ", \(mu2\^2\), " ", "r", " ", \(s1\^5\), " ", \(s2\^2\), 
  1474.               " ", 
  1475.               RowBox[{
  1476.                 SuperscriptBox["p1", "\[DoublePrime]",
  1477.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1478.             RowBox[{
  1479.             "2", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^5\), " ", 
  1480.               \(s2\^2\), " ", 
  1481.               RowBox[{
  1482.                 SuperscriptBox["p1", "\[DoublePrime]",
  1483.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1484.             RowBox[{"2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  1485.               RowBox[{
  1486.                 SuperscriptBox["p1", "\[DoublePrime]",
  1487.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1488.             RowBox[{
  1489.             "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  1490.               RowBox[{
  1491.                 SuperscriptBox["p1", "\[DoublePrime]",
  1492.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1493.             RowBox[{
  1494.             "2", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^2\), 
  1495.               " ", 
  1496.               RowBox[{
  1497.                 SuperscriptBox["p1", "\[DoublePrime]",
  1498.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1499.             RowBox[{
  1500.             "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^2\), 
  1501.               " ", 
  1502.               RowBox[{
  1503.                 SuperscriptBox["p1", "\[DoublePrime]",
  1504.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1505.             RowBox[{\(s1\^6\), " ", \(s2\^2\), " ", 
  1506.               RowBox[{
  1507.                 SuperscriptBox["p1", "\[DoublePrime]",
  1508.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1509.             RowBox[{"mu2", " ", \(s1\^6\), " ", \(s2\^2\), " ", 
  1510.               RowBox[{
  1511.                 SuperscriptBox["p1", "\[DoublePrime]",
  1512.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1513.             RowBox[{"2", " ", "r", " ", \(s1\^6\), " ", \(s2\^2\), " ", 
  1514.               RowBox[{
  1515.                 SuperscriptBox["p1", "\[DoublePrime]",
  1516.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1517.             RowBox[{
  1518.             "2", " ", "mu2", " ", "r", " ", \(s1\^6\), " ", \(s2\^2\), " ", 
  1519.               RowBox[{
  1520.                 SuperscriptBox["p1", "\[DoublePrime]",
  1521.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1522.             RowBox[{\(r\^2\), " ", \(s1\^6\), " ", \(s2\^2\), " ", 
  1523.               RowBox[{
  1524.                 SuperscriptBox["p1", "\[DoublePrime]",
  1525.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1526.             RowBox[{
  1527.             "mu2", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^2\), " ", 
  1528.               RowBox[{
  1529.                 SuperscriptBox["p1", "\[DoublePrime]",
  1530.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1531.             RowBox[{
  1532.             "2", " ", \(mu1\^2\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  1533.               RowBox[{
  1534.                 SuperscriptBox["p1", "\[DoublePrime]",
  1535.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1536.             RowBox[{\(mu1\^3\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  1537.               RowBox[{
  1538.                 SuperscriptBox["p1", "\[DoublePrime]",
  1539.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1540.             RowBox[{
  1541.             "2", " ", "mu1", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^3\), 
  1542.               " ", 
  1543.               RowBox[{
  1544.                 SuperscriptBox["p1", "\[DoublePrime]",
  1545.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1546.             RowBox[{
  1547.             "2", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", \(s2\^3\), 
  1548.               " ", 
  1549.               RowBox[{
  1550.                 SuperscriptBox["p1", "\[DoublePrime]",
  1551.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1552.             RowBox[{
  1553.             "3", " ", \(mu1\^3\), " ", "mu2", " ", \(s1\^3\), " ", \(s2\^3\), 
  1554.               " ", 
  1555.               RowBox[{
  1556.                 SuperscriptBox["p1", "\[DoublePrime]",
  1557.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1558.             RowBox[{
  1559.             "mu1", " ", \(mu2\^2\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  1560.               RowBox[{
  1561.                 SuperscriptBox["p1", "\[DoublePrime]",
  1562.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1563.             RowBox[{
  1564.             "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  1565.               \(s2\^3\), " ", 
  1566.               RowBox[{
  1567.                 SuperscriptBox["p1", "\[DoublePrime]",
  1568.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1569.             RowBox[{
  1570.             "3", " ", \(mu1\^3\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  1571.               \(s2\^3\), " ", 
  1572.               RowBox[{
  1573.                 SuperscriptBox["p1", "\[DoublePrime]",
  1574.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1575.             RowBox[{
  1576.             "mu1", " ", \(mu2\^3\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  1577.               RowBox[{
  1578.                 SuperscriptBox["p1", "\[DoublePrime]",
  1579.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1580.             RowBox[{
  1581.             "2", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", \(s1\^3\), " ", 
  1582.               \(s2\^3\), " ", 
  1583.               RowBox[{
  1584.                 SuperscriptBox["p1", "\[DoublePrime]",
  1585.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1586.             RowBox[{
  1587.             \(mu1\^3\), " ", \(mu2\^3\), " ", \(s1\^3\), " ", \(s2\^3\), 
  1588.               " ", 
  1589.               RowBox[{
  1590.                 SuperscriptBox["p1", "\[DoublePrime]",
  1591.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1592.             RowBox[{
  1593.             "2", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  1594.               RowBox[{
  1595.                 SuperscriptBox["p1", "\[DoublePrime]",
  1596.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1597.             RowBox[{
  1598.             "4", " ", \(mu1\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^3\), 
  1599.               " ", 
  1600.               RowBox[{
  1601.                 SuperscriptBox["p1", "\[DoublePrime]",
  1602.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1603.             RowBox[{
  1604.             "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  1605.               \(s2\^3\), " ", 
  1606.               RowBox[{
  1607.                 SuperscriptBox["p1", "\[DoublePrime]",
  1608.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1609.             RowBox[{
  1610.             "8", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  1611.               \(s2\^3\), " ", 
  1612.               RowBox[{
  1613.                 SuperscriptBox["p1", "\[DoublePrime]",
  1614.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1615.             RowBox[{
  1616.             "4", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", 
  1617.               \(s2\^3\), " ", 
  1618.               RowBox[{
  1619.                 SuperscriptBox["p1", "\[DoublePrime]",
  1620.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1621.             RowBox[{
  1622.             "4", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), 
  1623.               " ", \(s2\^3\), " ", 
  1624.               RowBox[{
  1625.                 SuperscriptBox["p1", "\[DoublePrime]",
  1626.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1627.             RowBox[{
  1628.             "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^3\), 
  1629.               " ", 
  1630.               RowBox[{
  1631.                 SuperscriptBox["p1", "\[DoublePrime]",
  1632.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1633.             RowBox[{
  1634.             "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  1635.               \(s2\^3\), " ", 
  1636.               RowBox[{
  1637.                 SuperscriptBox["p1", "\[DoublePrime]",
  1638.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1639.             RowBox[{"4", " ", "mu1", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  1640.               RowBox[{
  1641.                 SuperscriptBox["p1", "\[DoublePrime]",
  1642.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1643.             RowBox[{
  1644.             "5", " ", \(mu1\^2\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  1645.               RowBox[{
  1646.                 SuperscriptBox["p1", "\[DoublePrime]",
  1647.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1648.             RowBox[{"2", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  1649.               RowBox[{
  1650.                 SuperscriptBox["p1", "\[DoublePrime]",
  1651.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1652.             RowBox[{
  1653.             "11", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^4\), " ", 
  1654.               \(s2\^3\), " ", 
  1655.               RowBox[{
  1656.                 SuperscriptBox["p1", "\[DoublePrime]",
  1657.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1658.             RowBox[{\(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  1659.               RowBox[{
  1660.                 SuperscriptBox["p1", "\[DoublePrime]",
  1661.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1662.             RowBox[{
  1663.             "6", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^3\), 
  1664.               " ", 
  1665.               RowBox[{
  1666.                 SuperscriptBox["p1", "\[DoublePrime]",
  1667.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1668.             RowBox[{
  1669.             "7", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  1670.               \(s2\^3\), " ", 
  1671.               RowBox[{
  1672.                 SuperscriptBox["p1", "\[DoublePrime]",
  1673.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1674.             RowBox[{\(mu2\^3\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  1675.               RowBox[{
  1676.                 SuperscriptBox["p1", "\[DoublePrime]",
  1677.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1678.             RowBox[{
  1679.             "2", " ", "mu1", " ", \(mu2\^3\), " ", \(s1\^4\), " ", \(s2\^3\), 
  1680.               " ", 
  1681.               RowBox[{
  1682.                 SuperscriptBox["p1", "\[DoublePrime]",
  1683.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1684.             RowBox[{
  1685.             \(mu1\^2\), " ", \(mu2\^3\), " ", \(s1\^4\), " ", \(s2\^3\), 
  1686.               " ", 
  1687.               RowBox[{
  1688.                 SuperscriptBox["p1", "\[DoublePrime]",
  1689.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1690.             RowBox[{"2", " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  1691.               RowBox[{
  1692.                 SuperscriptBox["p1", "\[DoublePrime]",
  1693.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1694.             RowBox[{
  1695.             "12", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  1696.               RowBox[{
  1697.                 SuperscriptBox["p1", "\[DoublePrime]",
  1698.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1699.             RowBox[{
  1700.             "4", " ", \(mu1\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), 
  1701.               " ", 
  1702.               RowBox[{
  1703.                 SuperscriptBox["p1", "\[DoublePrime]",
  1704.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1705.             RowBox[{
  1706.             "2", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  1707.               RowBox[{
  1708.                 SuperscriptBox["p1", "\[DoublePrime]",
  1709.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1710.             RowBox[{
  1711.             "12", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  1712.               \(s2\^3\), " ", 
  1713.               RowBox[{
  1714.                 SuperscriptBox["p1", "\[DoublePrime]",
  1715.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1716.             RowBox[{
  1717.             "8", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  1718.               \(s2\^3\), " ", 
  1719.               RowBox[{
  1720.                 SuperscriptBox["p1", "\[DoublePrime]",
  1721.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1722.             RowBox[{
  1723.             "4", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), 
  1724.               " ", 
  1725.               RowBox[{
  1726.                 SuperscriptBox["p1", "\[DoublePrime]",
  1727.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1728.             RowBox[{
  1729.             "4", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), 
  1730.               " ", \(s2\^3\), " ", 
  1731.               RowBox[{
  1732.                 SuperscriptBox["p1", "\[DoublePrime]",
  1733.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1734.             RowBox[{"3", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  1735.               RowBox[{
  1736.                 SuperscriptBox["p1", "\[DoublePrime]",
  1737.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1738.             RowBox[{
  1739.             "6", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^3\), 
  1740.               " ", 
  1741.               RowBox[{
  1742.                 SuperscriptBox["p1", "\[DoublePrime]",
  1743.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1744.             RowBox[{
  1745.             "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^3\), 
  1746.               " ", 
  1747.               RowBox[{
  1748.                 SuperscriptBox["p1", "\[DoublePrime]",
  1749.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1750.             RowBox[{
  1751.             "6", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  1752.               \(s2\^3\), " ", 
  1753.               RowBox[{
  1754.                 SuperscriptBox["p1", "\[DoublePrime]",
  1755.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1756.             RowBox[{"2", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  1757.               RowBox[{
  1758.                 SuperscriptBox["p1", "\[DoublePrime]",
  1759.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1760.             RowBox[{"7", " ", "mu1", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  1761.               RowBox[{
  1762.                 SuperscriptBox["p1", "\[DoublePrime]",
  1763.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1764.             RowBox[{"2", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  1765.               RowBox[{
  1766.                 SuperscriptBox["p1", "\[DoublePrime]",
  1767.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1768.             RowBox[{
  1769.             "11", " ", "mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^3\), 
  1770.               " ", 
  1771.               RowBox[{
  1772.                 SuperscriptBox["p1", "\[DoublePrime]",
  1773.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1774.             RowBox[{
  1775.             "4", " ", \(mu2\^2\), " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  1776.               RowBox[{
  1777.                 SuperscriptBox["p1", "\[DoublePrime]",
  1778.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1779.             RowBox[{
  1780.             "4", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^5\), " ", \(s2\^3\), 
  1781.               " ", 
  1782.               RowBox[{
  1783.                 SuperscriptBox["p1", "\[DoublePrime]",
  1784.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1785.             RowBox[{"8", " ", "r", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  1786.               RowBox[{
  1787.                 SuperscriptBox["p1", "\[DoublePrime]",
  1788.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1789.             RowBox[{
  1790.             "10", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  1791.               RowBox[{
  1792.                 SuperscriptBox["p1", "\[DoublePrime]",
  1793.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1794.             RowBox[{
  1795.             "4", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  1796.               RowBox[{
  1797.                 SuperscriptBox["p1", "\[DoublePrime]",
  1798.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1799.             RowBox[{
  1800.             "14", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  1801.               \(s2\^3\), " ", 
  1802.               RowBox[{
  1803.                 SuperscriptBox["p1", "\[DoublePrime]",
  1804.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1805.             RowBox[{
  1806.             "4", " ", \(mu2\^2\), " ", "r", " ", \(s1\^5\), " ", \(s2\^3\), 
  1807.               " ", 
  1808.               RowBox[{
  1809.                 SuperscriptBox["p1", "\[DoublePrime]",
  1810.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1811.             RowBox[{
  1812.             "4", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^5\), " ", 
  1813.               \(s2\^3\), " ", 
  1814.               RowBox[{
  1815.                 SuperscriptBox["p1", "\[DoublePrime]",
  1816.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1817.             RowBox[{"6", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  1818.               RowBox[{
  1819.                 SuperscriptBox["p1", "\[DoublePrime]",
  1820.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1821.             RowBox[{
  1822.             "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^3\), 
  1823.               " ", 
  1824.               RowBox[{
  1825.                 SuperscriptBox["p1", "\[DoublePrime]",
  1826.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1827.             RowBox[{
  1828.             "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^3\), 
  1829.               " ", 
  1830.               RowBox[{
  1831.                 SuperscriptBox["p1", "\[DoublePrime]",
  1832.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1833.             RowBox[{
  1834.             "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", 
  1835.               \(s2\^3\), " ", 
  1836.               RowBox[{
  1837.                 SuperscriptBox["p1", "\[DoublePrime]",
  1838.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1839.             RowBox[{"3", " ", \(s1\^6\), " ", \(s2\^3\), " ", 
  1840.               RowBox[{
  1841.                 SuperscriptBox["p1", "\[DoublePrime]",
  1842.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1843.             RowBox[{"3", " ", "mu2", " ", \(s1\^6\), " ", \(s2\^3\), " ", 
  1844.               RowBox[{
  1845.                 SuperscriptBox["p1", "\[DoublePrime]",
  1846.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1847.             RowBox[{"6", " ", "r", " ", \(s1\^6\), " ", \(s2\^3\), " ", 
  1848.               RowBox[{
  1849.                 SuperscriptBox["p1", "\[DoublePrime]",
  1850.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1851.             RowBox[{
  1852.             "6", " ", "mu2", " ", "r", " ", \(s1\^6\), " ", \(s2\^3\), " ", 
  1853.               RowBox[{
  1854.                 SuperscriptBox["p1", "\[DoublePrime]",
  1855.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1856.             RowBox[{"3", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^3\), " ", 
  1857.               RowBox[{
  1858.                 SuperscriptBox["p1", "\[DoublePrime]",
  1859.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1860.             RowBox[{
  1861.             "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^3\), 
  1862.               " ", 
  1863.               RowBox[{
  1864.                 SuperscriptBox["p1", "\[DoublePrime]",
  1865.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1866.             RowBox[{"mu1", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  1867.               RowBox[{
  1868.                 SuperscriptBox["p1", "\[DoublePrime]",
  1869.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1870.             RowBox[{
  1871.             "2", " ", \(mu1\^2\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  1872.               RowBox[{
  1873.                 SuperscriptBox["p1", "\[DoublePrime]",
  1874.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1875.             RowBox[{"mu1", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  1876.               RowBox[{
  1877.                 SuperscriptBox["p1", "\[DoublePrime]",
  1878.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1879.             RowBox[{
  1880.             "4", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", \(s2\^4\), 
  1881.               " ", 
  1882.               RowBox[{
  1883.                 SuperscriptBox["p1", "\[DoublePrime]",
  1884.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1885.             RowBox[{
  1886.             "2", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^3\), " ", \(s2\^4\), 
  1887.               " ", 
  1888.               RowBox[{
  1889.                 SuperscriptBox["p1", "\[DoublePrime]",
  1890.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1891.             RowBox[{
  1892.             "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  1893.               \(s2\^4\), " ", 
  1894.               RowBox[{
  1895.                 SuperscriptBox["p1", "\[DoublePrime]",
  1896.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1897.             RowBox[{
  1898.             "4", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  1899.               RowBox[{
  1900.                 SuperscriptBox["p1", "\[DoublePrime]",
  1901.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1902.             RowBox[{
  1903.             "2", " ", \(mu1\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), 
  1904.               " ", 
  1905.               RowBox[{
  1906.                 SuperscriptBox["p1", "\[DoublePrime]",
  1907.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1908.             RowBox[{
  1909.             "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  1910.               \(s2\^4\), " ", 
  1911.               RowBox[{
  1912.                 SuperscriptBox["p1", "\[DoublePrime]",
  1913.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1914.             RowBox[{
  1915.             "4", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  1916.               \(s2\^4\), " ", 
  1917.               RowBox[{
  1918.                 SuperscriptBox["p1", "\[DoublePrime]",
  1919.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1920.             RowBox[{
  1921.             "2", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", 
  1922.               \(s2\^4\), " ", 
  1923.               RowBox[{
  1924.                 SuperscriptBox["p1", "\[DoublePrime]",
  1925.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1926.             RowBox[{
  1927.             "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), 
  1928.               " ", \(s2\^4\), " ", 
  1929.               RowBox[{
  1930.                 SuperscriptBox["p1", "\[DoublePrime]",
  1931.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1932.             RowBox[{
  1933.             "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^4\), 
  1934.               " ", 
  1935.               RowBox[{
  1936.                 SuperscriptBox["p1", "\[DoublePrime]",
  1937.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1938.             RowBox[{
  1939.             "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  1940.               \(s2\^4\), " ", 
  1941.               RowBox[{
  1942.                 SuperscriptBox["p1", "\[DoublePrime]",
  1943.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1944.             RowBox[{\(s1\^4\), " ", \(s2\^4\), " ", 
  1945.               RowBox[{
  1946.                 SuperscriptBox["p1", "\[DoublePrime]",
  1947.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1948.             RowBox[{"6", " ", "mu1", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  1949.               RowBox[{
  1950.                 SuperscriptBox["p1", "\[DoublePrime]",
  1951.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1952.             RowBox[{
  1953.             "2", " ", \(mu1\^2\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  1954.               RowBox[{
  1955.                 SuperscriptBox["p1", "\[DoublePrime]",
  1956.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1957.             RowBox[{"mu2", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  1958.               RowBox[{
  1959.                 SuperscriptBox["p1", "\[DoublePrime]",
  1960.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1961.             RowBox[{
  1962.             "6", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^4\), 
  1963.               " ", 
  1964.               RowBox[{
  1965.                 SuperscriptBox["p1", "\[DoublePrime]",
  1966.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1967.             RowBox[{
  1968.             "4", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^4\), " ", \(s2\^4\), 
  1969.               " ", 
  1970.               RowBox[{
  1971.                 SuperscriptBox["p1", "\[DoublePrime]",
  1972.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1973.             RowBox[{
  1974.             "2", " ", \(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  1975.               RowBox[{
  1976.                 SuperscriptBox["p1", "\[DoublePrime]",
  1977.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1978.             RowBox[{
  1979.             "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  1980.               \(s2\^4\), " ", 
  1981.               RowBox[{
  1982.                 SuperscriptBox["p1", "\[DoublePrime]",
  1983.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1984.             RowBox[{"4", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  1985.               RowBox[{
  1986.                 SuperscriptBox["p1", "\[DoublePrime]",
  1987.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1988.             RowBox[{
  1989.             "12", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  1990.               RowBox[{
  1991.                 SuperscriptBox["p1", "\[DoublePrime]",
  1992.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  1993.             RowBox[{
  1994.             "2", " ", \(mu1\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), 
  1995.               " ", 
  1996.               RowBox[{
  1997.                 SuperscriptBox["p1", "\[DoublePrime]",
  1998.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  1999.             RowBox[{
  2000.             "2", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  2001.               RowBox[{
  2002.                 SuperscriptBox["p1", "\[DoublePrime]",
  2003.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2004.             RowBox[{
  2005.             "12", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  2006.               \(s2\^4\), " ", 
  2007.               RowBox[{
  2008.                 SuperscriptBox["p1", "\[DoublePrime]",
  2009.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2010.             RowBox[{
  2011.             "4", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  2012.               \(s2\^4\), " ", 
  2013.               RowBox[{
  2014.                 SuperscriptBox["p1", "\[DoublePrime]",
  2015.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2016.             RowBox[{
  2017.             "2", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), 
  2018.               " ", 
  2019.               RowBox[{
  2020.                 SuperscriptBox["p1", "\[DoublePrime]",
  2021.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2022.             RowBox[{
  2023.             "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), 
  2024.               " ", \(s2\^4\), " ", 
  2025.               RowBox[{
  2026.                 SuperscriptBox["p1", "\[DoublePrime]",
  2027.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2028.             RowBox[{"3", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  2029.               RowBox[{
  2030.                 SuperscriptBox["p1", "\[DoublePrime]",
  2031.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2032.             RowBox[{
  2033.             "6", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^4\), 
  2034.               " ", 
  2035.               RowBox[{
  2036.                 SuperscriptBox["p1", "\[DoublePrime]",
  2037.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2038.             RowBox[{
  2039.             "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^4\), 
  2040.               " ", 
  2041.               RowBox[{
  2042.                 SuperscriptBox["p1", "\[DoublePrime]",
  2043.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2044.             RowBox[{
  2045.             "6", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  2046.               \(s2\^4\), " ", 
  2047.               RowBox[{
  2048.                 SuperscriptBox["p1", "\[DoublePrime]",
  2049.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2050.             RowBox[{"4", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  2051.               RowBox[{
  2052.                 SuperscriptBox["p1", "\[DoublePrime]",
  2053.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2054.             RowBox[{"5", " ", "mu1", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  2055.               RowBox[{
  2056.                 SuperscriptBox["p1", "\[DoublePrime]",
  2057.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2058.             RowBox[{"2", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  2059.               RowBox[{
  2060.                 SuperscriptBox["p1", "\[DoublePrime]",
  2061.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2062.             RowBox[{
  2063.             "7", " ", "mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^4\), 
  2064.               " ", 
  2065.               RowBox[{
  2066.                 SuperscriptBox["p1", "\[DoublePrime]",
  2067.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2068.             RowBox[{
  2069.             "2", " ", \(mu2\^2\), " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  2070.               RowBox[{
  2071.                 SuperscriptBox["p1", "\[DoublePrime]",
  2072.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2073.             RowBox[{
  2074.             "2", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^5\), " ", \(s2\^4\), 
  2075.               " ", 
  2076.               RowBox[{
  2077.                 SuperscriptBox["p1", "\[DoublePrime]",
  2078.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2079.             RowBox[{"10", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  2080.               RowBox[{
  2081.                 SuperscriptBox["p1", "\[DoublePrime]",
  2082.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2083.             RowBox[{
  2084.             "8", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  2085.               RowBox[{
  2086.                 SuperscriptBox["p1", "\[DoublePrime]",
  2087.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2088.             RowBox[{
  2089.             "8", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  2090.               RowBox[{
  2091.                 SuperscriptBox["p1", "\[DoublePrime]",
  2092.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2093.             RowBox[{
  2094.             "10", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  2095.               \(s2\^4\), " ", 
  2096.               RowBox[{
  2097.                 SuperscriptBox["p1", "\[DoublePrime]",
  2098.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2099.             RowBox[{
  2100.             "2", " ", \(mu2\^2\), " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), 
  2101.               " ", 
  2102.               RowBox[{
  2103.                 SuperscriptBox["p1", "\[DoublePrime]",
  2104.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2105.             RowBox[{
  2106.             "2", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^5\), " ", 
  2107.               \(s2\^4\), " ", 
  2108.               RowBox[{
  2109.                 SuperscriptBox["p1", "\[DoublePrime]",
  2110.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2111.             RowBox[{"6", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  2112.               RowBox[{
  2113.                 SuperscriptBox["p1", "\[DoublePrime]",
  2114.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2115.             RowBox[{
  2116.             "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^4\), 
  2117.               " ", 
  2118.               RowBox[{
  2119.                 SuperscriptBox["p1", "\[DoublePrime]",
  2120.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2121.             RowBox[{
  2122.             "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^4\), 
  2123.               " ", 
  2124.               RowBox[{
  2125.                 SuperscriptBox["p1", "\[DoublePrime]",
  2126.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2127.             RowBox[{
  2128.             "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", 
  2129.               \(s2\^4\), " ", 
  2130.               RowBox[{
  2131.                 SuperscriptBox["p1", "\[DoublePrime]",
  2132.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2133.             RowBox[{"3", " ", \(s1\^6\), " ", \(s2\^4\), " ", 
  2134.               RowBox[{
  2135.                 SuperscriptBox["p1", "\[DoublePrime]",
  2136.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2137.             RowBox[{"3", " ", "mu2", " ", \(s1\^6\), " ", \(s2\^4\), " ", 
  2138.               RowBox[{
  2139.                 SuperscriptBox["p1", "\[DoublePrime]",
  2140.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2141.             RowBox[{"6", " ", "r", " ", \(s1\^6\), " ", \(s2\^4\), " ", 
  2142.               RowBox[{
  2143.                 SuperscriptBox["p1", "\[DoublePrime]",
  2144.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2145.             RowBox[{
  2146.             "6", " ", "mu2", " ", "r", " ", \(s1\^6\), " ", \(s2\^4\), " ", 
  2147.               RowBox[{
  2148.                 SuperscriptBox["p1", "\[DoublePrime]",
  2149.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2150.             RowBox[{"3", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^4\), " ", 
  2151.               RowBox[{
  2152.                 SuperscriptBox["p1", "\[DoublePrime]",
  2153.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2154.             RowBox[{
  2155.             "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^4\), 
  2156.               " ", 
  2157.               RowBox[{
  2158.                 SuperscriptBox["p1", "\[DoublePrime]",
  2159.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2160.             RowBox[{"mu1", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  2161.               RowBox[{
  2162.                 SuperscriptBox["p1", "\[DoublePrime]",
  2163.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2164.             RowBox[{"mu1", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  2165.               RowBox[{
  2166.                 SuperscriptBox["p1", "\[DoublePrime]",
  2167.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2168.             RowBox[{
  2169.             "2", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  2170.               RowBox[{
  2171.                 SuperscriptBox["p1", "\[DoublePrime]",
  2172.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2173.             RowBox[{
  2174.             "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  2175.               \(s2\^5\), " ", 
  2176.               RowBox[{
  2177.                 SuperscriptBox["p1", "\[DoublePrime]",
  2178.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2179.             RowBox[{
  2180.             "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  2181.               RowBox[{
  2182.                 SuperscriptBox["p1", "\[DoublePrime]",
  2183.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2184.             RowBox[{
  2185.             "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^5\), 
  2186.               " ", 
  2187.               RowBox[{
  2188.                 SuperscriptBox["p1", "\[DoublePrime]",
  2189.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2190.             RowBox[{\(s1\^4\), " ", \(s2\^5\), " ", 
  2191.               RowBox[{
  2192.                 SuperscriptBox["p1", "\[DoublePrime]",
  2193.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2194.             RowBox[{"2", " ", "mu1", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  2195.               RowBox[{
  2196.                 SuperscriptBox["p1", "\[DoublePrime]",
  2197.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2198.             RowBox[{"mu2", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  2199.               RowBox[{
  2200.                 SuperscriptBox["p1", "\[DoublePrime]",
  2201.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2202.             RowBox[{
  2203.             "2", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^5\), 
  2204.               " ", 
  2205.               RowBox[{
  2206.                 SuperscriptBox["p1", "\[DoublePrime]",
  2207.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2208.             RowBox[{"2", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  2209.               RowBox[{
  2210.                 SuperscriptBox["p1", "\[DoublePrime]",
  2211.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2212.             RowBox[{
  2213.             "4", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  2214.               RowBox[{
  2215.                 SuperscriptBox["p1", "\[DoublePrime]",
  2216.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2217.             RowBox[{
  2218.             "2", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  2219.               RowBox[{
  2220.                 SuperscriptBox["p1", "\[DoublePrime]",
  2221.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2222.             RowBox[{
  2223.             "4", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  2224.               \(s2\^5\), " ", 
  2225.               RowBox[{
  2226.                 SuperscriptBox["p1", "\[DoublePrime]",
  2227.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2228.             RowBox[{\(r\^2\), " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  2229.               RowBox[{
  2230.                 SuperscriptBox["p1", "\[DoublePrime]",
  2231.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2232.             RowBox[{
  2233.             "2", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^5\), 
  2234.               " ", 
  2235.               RowBox[{
  2236.                 SuperscriptBox["p1", "\[DoublePrime]",
  2237.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2238.             RowBox[{
  2239.             "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  2240.               RowBox[{
  2241.                 SuperscriptBox["p1", "\[DoublePrime]",
  2242.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2243.             RowBox[{
  2244.             "2", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  2245.               \(s2\^5\), " ", 
  2246.               RowBox[{
  2247.                 SuperscriptBox["p1", "\[DoublePrime]",
  2248.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2249.             RowBox[{"2", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  2250.               RowBox[{
  2251.                 SuperscriptBox["p1", "\[DoublePrime]",
  2252.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2253.             RowBox[{"mu1", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  2254.               RowBox[{
  2255.                 SuperscriptBox["p1", "\[DoublePrime]",
  2256.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2257.             RowBox[{"2", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  2258.               RowBox[{
  2259.                 SuperscriptBox["p1", "\[DoublePrime]",
  2260.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2261.             RowBox[{"mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  2262.               RowBox[{
  2263.                 SuperscriptBox["p1", "\[DoublePrime]",
  2264.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2265.             RowBox[{"4", " ", "r", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  2266.               RowBox[{
  2267.                 SuperscriptBox["p1", "\[DoublePrime]",
  2268.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2269.             RowBox[{
  2270.             "2", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  2271.               RowBox[{
  2272.                 SuperscriptBox["p1", "\[DoublePrime]",
  2273.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2274.             RowBox[{
  2275.             "4", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  2276.               RowBox[{
  2277.                 SuperscriptBox["p1", "\[DoublePrime]",
  2278.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2279.             RowBox[{
  2280.             "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  2281.               \(s2\^5\), " ", 
  2282.               RowBox[{
  2283.                 SuperscriptBox["p1", "\[DoublePrime]",
  2284.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2285.             RowBox[{"2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  2286.               RowBox[{
  2287.                 SuperscriptBox["p1", "\[DoublePrime]",
  2288.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2289.             RowBox[{
  2290.             "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  2291.               RowBox[{
  2292.                 SuperscriptBox["p1", "\[DoublePrime]",
  2293.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2294.             RowBox[{
  2295.             "2", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), 
  2296.               " ", 
  2297.               RowBox[{
  2298.                 SuperscriptBox["p1", "\[DoublePrime]",
  2299.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2300.             RowBox[{
  2301.             "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), 
  2302.               " ", 
  2303.               RowBox[{
  2304.                 SuperscriptBox["p1", "\[DoublePrime]",
  2305.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2306.             RowBox[{\(s1\^6\), " ", \(s2\^5\), " ", 
  2307.               RowBox[{
  2308.                 SuperscriptBox["p1", "\[DoublePrime]",
  2309.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2310.             RowBox[{"mu2", " ", \(s1\^6\), " ", \(s2\^5\), " ", 
  2311.               RowBox[{
  2312.                 SuperscriptBox["p1", "\[DoublePrime]",
  2313.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2314.             RowBox[{"2", " ", "r", " ", \(s1\^6\), " ", \(s2\^5\), " ", 
  2315.               RowBox[{
  2316.                 SuperscriptBox["p1", "\[DoublePrime]",
  2317.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2318.             RowBox[{
  2319.             "2", " ", "mu2", " ", "r", " ", \(s1\^6\), " ", \(s2\^5\), " ", 
  2320.               RowBox[{
  2321.                 SuperscriptBox["p1", "\[DoublePrime]",
  2322.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2323.             RowBox[{\(r\^2\), " ", \(s1\^6\), " ", \(s2\^5\), " ", 
  2324.               RowBox[{
  2325.                 SuperscriptBox["p1", "\[DoublePrime]",
  2326.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2327.             RowBox[{
  2328.             "mu2", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^5\), " ", 
  2329.               RowBox[{
  2330.                 SuperscriptBox["p1", "\[DoublePrime]",
  2331.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2332.             RowBox[{
  2333.             \(mu1\^2\), " ", "mu2", " ", \(s1\^2\), " ", \(s2\^3\), " ", 
  2334.               RowBox[{
  2335.                 SuperscriptBox["p2", "\[DoublePrime]",
  2336.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2337.             RowBox[{
  2338.             \(mu1\^3\), " ", "mu2", " ", \(s1\^2\), " ", \(s2\^3\), " ", 
  2339.               RowBox[{
  2340.                 SuperscriptBox["p2", "\[DoublePrime]",
  2341.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2342.             RowBox[{
  2343.             "2", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^2\), " ", \(s2\^3\), 
  2344.               " ", 
  2345.               RowBox[{
  2346.                 SuperscriptBox["p2", "\[DoublePrime]",
  2347.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2348.             RowBox[{
  2349.             "4", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^2\), " ", 
  2350.               \(s2\^3\), " ", 
  2351.               RowBox[{
  2352.                 SuperscriptBox["p2", "\[DoublePrime]",
  2353.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2354.             RowBox[{
  2355.             "2", " ", \(mu1\^3\), " ", \(mu2\^2\), " ", \(s1\^2\), " ", 
  2356.               \(s2\^3\), " ", 
  2357.               RowBox[{
  2358.                 SuperscriptBox["p2", "\[DoublePrime]",
  2359.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2360.             RowBox[{\(mu2\^3\), " ", \(s1\^2\), " ", \(s2\^3\), " ", 
  2361.               RowBox[{
  2362.                 SuperscriptBox["p2", "\[DoublePrime]",
  2363.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2364.             RowBox[{
  2365.             "3", " ", "mu1", " ", \(mu2\^3\), " ", \(s1\^2\), " ", \(s2\^3\), 
  2366.               " ", 
  2367.               RowBox[{
  2368.                 SuperscriptBox["p2", "\[DoublePrime]",
  2369.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2370.             RowBox[{
  2371.             "3", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", \(s1\^2\), " ", 
  2372.               \(s2\^3\), " ", 
  2373.               RowBox[{
  2374.                 SuperscriptBox["p2", "\[DoublePrime]",
  2375.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2376.             RowBox[{
  2377.             \(mu1\^3\), " ", \(mu2\^3\), " ", \(s1\^2\), " ", \(s2\^3\), 
  2378.               " ", 
  2379.               RowBox[{
  2380.                 SuperscriptBox["p2", "\[DoublePrime]",
  2381.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2382.             RowBox[{
  2383.             "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^2\), " ", 
  2384.               \(s2\^3\), " ", 
  2385.               RowBox[{
  2386.                 SuperscriptBox["p2", "\[DoublePrime]",
  2387.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2388.             RowBox[{
  2389.             "2", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^2\), " ", 
  2390.               \(s2\^3\), " ", 
  2391.               RowBox[{
  2392.                 SuperscriptBox["p2", "\[DoublePrime]",
  2393.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2394.             RowBox[{
  2395.             "2", " ", \(mu2\^2\), " ", "r", " ", \(s1\^2\), " ", \(s2\^3\), 
  2396.               " ", 
  2397.               RowBox[{
  2398.                 SuperscriptBox["p2", "\[DoublePrime]",
  2399.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2400.             RowBox[{
  2401.             "4", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^2\), " ", 
  2402.               \(s2\^3\), " ", 
  2403.               RowBox[{
  2404.                 SuperscriptBox["p2", "\[DoublePrime]",
  2405.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2406.             RowBox[{
  2407.             "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", \(s1\^2\), 
  2408.               " ", \(s2\^3\), " ", 
  2409.               RowBox[{
  2410.                 SuperscriptBox["p2", "\[DoublePrime]",
  2411.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2412.             RowBox[{
  2413.             "mu2", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^3\), " ", 
  2414.               RowBox[{
  2415.                 SuperscriptBox["p2", "\[DoublePrime]",
  2416.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2417.             RowBox[{
  2418.             "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^3\), 
  2419.               " ", 
  2420.               RowBox[{
  2421.                 SuperscriptBox["p2", "\[DoublePrime]",
  2422.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2423.             RowBox[{
  2424.             "2", " ", "mu1", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^3\), 
  2425.               " ", 
  2426.               RowBox[{
  2427.                 SuperscriptBox["p2", "\[DoublePrime]",
  2428.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2429.             RowBox[{
  2430.             \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  2431.               RowBox[{
  2432.                 SuperscriptBox["p2", "\[DoublePrime]",
  2433.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2434.             RowBox[{
  2435.             \(mu1\^3\), " ", "mu2", " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  2436.               RowBox[{
  2437.                 SuperscriptBox["p2", "\[DoublePrime]",
  2438.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2439.             RowBox[{
  2440.             "2", " ", \(mu2\^2\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  2441.               RowBox[{
  2442.                 SuperscriptBox["p2", "\[DoublePrime]",
  2443.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2444.             RowBox[{
  2445.             "2", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^3\), " ", \(s2\^3\), 
  2446.               " ", 
  2447.               RowBox[{
  2448.                 SuperscriptBox["p2", "\[DoublePrime]",
  2449.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2450.             RowBox[{
  2451.             "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  2452.               \(s2\^3\), " ", 
  2453.               RowBox[{
  2454.                 SuperscriptBox["p2", "\[DoublePrime]",
  2455.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2456.             RowBox[{
  2457.             "2", " ", \(mu1\^3\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  2458.               \(s2\^3\), " ", 
  2459.               RowBox[{
  2460.                 SuperscriptBox["p2", "\[DoublePrime]",
  2461.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2462.             RowBox[{\(mu2\^3\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  2463.               RowBox[{
  2464.                 SuperscriptBox["p2", "\[DoublePrime]",
  2465.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2466.             RowBox[{
  2467.             "3", " ", "mu1", " ", \(mu2\^3\), " ", \(s1\^3\), " ", \(s2\^3\), 
  2468.               " ", 
  2469.               RowBox[{
  2470.                 SuperscriptBox["p2", "\[DoublePrime]",
  2471.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2472.             RowBox[{
  2473.             "3", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", \(s1\^3\), " ", 
  2474.               \(s2\^3\), " ", 
  2475.               RowBox[{
  2476.                 SuperscriptBox["p2", "\[DoublePrime]",
  2477.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2478.             RowBox[{
  2479.             \(mu1\^3\), " ", \(mu2\^3\), " ", \(s1\^3\), " ", \(s2\^3\), 
  2480.               " ", 
  2481.               RowBox[{
  2482.                 SuperscriptBox["p2", "\[DoublePrime]",
  2483.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2484.             RowBox[{
  2485.             "2", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  2486.               RowBox[{
  2487.                 SuperscriptBox["p2", "\[DoublePrime]",
  2488.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2489.             RowBox[{
  2490.             "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  2491.               \(s2\^3\), " ", 
  2492.               RowBox[{
  2493.                 SuperscriptBox["p2", "\[DoublePrime]",
  2494.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2495.             RowBox[{
  2496.             "4", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  2497.               \(s2\^3\), " ", 
  2498.               RowBox[{
  2499.                 SuperscriptBox["p2", "\[DoublePrime]",
  2500.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2501.             RowBox[{
  2502.             "4", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^3\), 
  2503.               " ", 
  2504.               RowBox[{
  2505.                 SuperscriptBox["p2", "\[DoublePrime]",
  2506.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2507.             RowBox[{
  2508.             "8", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", 
  2509.               \(s2\^3\), " ", 
  2510.               RowBox[{
  2511.                 SuperscriptBox["p2", "\[DoublePrime]",
  2512.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2513.             RowBox[{
  2514.             "4", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), 
  2515.               " ", \(s2\^3\), " ", 
  2516.               RowBox[{
  2517.                 SuperscriptBox["p2", "\[DoublePrime]",
  2518.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2519.             RowBox[{
  2520.             "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^3\), 
  2521.               " ", 
  2522.               RowBox[{
  2523.                 SuperscriptBox["p2", "\[DoublePrime]",
  2524.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2525.             RowBox[{
  2526.             "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  2527.               \(s2\^3\), " ", 
  2528.               RowBox[{
  2529.                 SuperscriptBox["p2", "\[DoublePrime]",
  2530.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2531.             RowBox[{"mu2", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  2532.               RowBox[{
  2533.                 SuperscriptBox["p2", "\[DoublePrime]",
  2534.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2535.             RowBox[{"mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  2536.               RowBox[{
  2537.                 SuperscriptBox["p2", "\[DoublePrime]",
  2538.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2539.             RowBox[{
  2540.             "2", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^4\), " ", \(s2\^3\), 
  2541.               " ", 
  2542.               RowBox[{
  2543.                 SuperscriptBox["p2", "\[DoublePrime]",
  2544.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2545.             RowBox[{
  2546.             "2", " ", \(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  2547.               RowBox[{
  2548.                 SuperscriptBox["p2", "\[DoublePrime]",
  2549.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2550.             RowBox[{
  2551.             "4", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^3\), 
  2552.               " ", 
  2553.               RowBox[{
  2554.                 SuperscriptBox["p2", "\[DoublePrime]",
  2555.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2556.             RowBox[{
  2557.             "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  2558.               \(s2\^3\), " ", 
  2559.               RowBox[{
  2560.                 SuperscriptBox["p2", "\[DoublePrime]",
  2561.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2562.             RowBox[{
  2563.             "4", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  2564.               RowBox[{
  2565.                 SuperscriptBox["p2", "\[DoublePrime]",
  2566.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2567.             RowBox[{
  2568.             "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  2569.               \(s2\^3\), " ", 
  2570.               RowBox[{
  2571.                 SuperscriptBox["p2", "\[DoublePrime]",
  2572.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2573.             RowBox[{
  2574.             "2", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  2575.               \(s2\^3\), " ", 
  2576.               RowBox[{
  2577.                 SuperscriptBox["p2", "\[DoublePrime]",
  2578.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2579.             RowBox[{
  2580.             "2", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), 
  2581.               " ", 
  2582.               RowBox[{
  2583.                 SuperscriptBox["p2", "\[DoublePrime]",
  2584.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2585.             RowBox[{
  2586.             "4", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), " ", 
  2587.               \(s2\^3\), " ", 
  2588.               RowBox[{
  2589.                 SuperscriptBox["p2", "\[DoublePrime]",
  2590.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2591.             RowBox[{
  2592.             "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), 
  2593.               " ", \(s2\^3\), " ", 
  2594.               RowBox[{
  2595.                 SuperscriptBox["p2", "\[DoublePrime]",
  2596.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2597.             RowBox[{
  2598.             "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^3\), 
  2599.               " ", 
  2600.               RowBox[{
  2601.                 SuperscriptBox["p2", "\[DoublePrime]",
  2602.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2603.             RowBox[{
  2604.             "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  2605.               \(s2\^3\), " ", 
  2606.               RowBox[{
  2607.                 SuperscriptBox["p2", "\[DoublePrime]",
  2608.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2609.             RowBox[{"mu2", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  2610.               RowBox[{
  2611.                 SuperscriptBox["p2", "\[DoublePrime]",
  2612.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2613.             RowBox[{"mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  2614.               RowBox[{
  2615.                 SuperscriptBox["p2", "\[DoublePrime]",
  2616.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2617.             RowBox[{
  2618.             "2", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  2619.               RowBox[{
  2620.                 SuperscriptBox["p2", "\[DoublePrime]",
  2621.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2622.             RowBox[{
  2623.             "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  2624.               \(s2\^3\), " ", 
  2625.               RowBox[{
  2626.                 SuperscriptBox["p2", "\[DoublePrime]",
  2627.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2628.             RowBox[{
  2629.             "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  2630.               RowBox[{
  2631.                 SuperscriptBox["p2", "\[DoublePrime]",
  2632.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2633.             RowBox[{
  2634.             "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^3\), 
  2635.               " ", 
  2636.               RowBox[{
  2637.                 SuperscriptBox["p2", "\[DoublePrime]",
  2638.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2639.             RowBox[{\(mu1\^2\), " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  2640.               RowBox[{
  2641.                 SuperscriptBox["p2", "\[DoublePrime]",
  2642.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2643.             RowBox[{\(mu1\^3\), " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  2644.               RowBox[{
  2645.                 SuperscriptBox["p2", "\[DoublePrime]",
  2646.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2647.             RowBox[{
  2648.             "4", " ", "mu1", " ", "mu2", " ", \(s1\^2\), " ", \(s2\^4\), 
  2649.               " ", 
  2650.               RowBox[{
  2651.                 SuperscriptBox["p2", "\[DoublePrime]",
  2652.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2653.             RowBox[{
  2654.             "6", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^2\), " ", \(s2\^4\), 
  2655.               " ", 
  2656.               RowBox[{
  2657.                 SuperscriptBox["p2", "\[DoublePrime]",
  2658.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2659.             RowBox[{
  2660.             "2", " ", \(mu1\^3\), " ", "mu2", " ", \(s1\^2\), " ", \(s2\^4\), 
  2661.               " ", 
  2662.               RowBox[{
  2663.                 SuperscriptBox["p2", "\[DoublePrime]",
  2664.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2665.             RowBox[{
  2666.             "3", " ", \(mu2\^2\), " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  2667.               RowBox[{
  2668.                 SuperscriptBox["p2", "\[DoublePrime]",
  2669.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2670.             RowBox[{
  2671.             "7", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^2\), " ", \(s2\^4\), 
  2672.               " ", 
  2673.               RowBox[{
  2674.                 SuperscriptBox["p2", "\[DoublePrime]",
  2675.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2676.             RowBox[{
  2677.             "5", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^2\), " ", 
  2678.               \(s2\^4\), " ", 
  2679.               RowBox[{
  2680.                 SuperscriptBox["p2", "\[DoublePrime]",
  2681.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2682.             RowBox[{
  2683.             \(mu1\^3\), " ", \(mu2\^2\), " ", \(s1\^2\), " ", \(s2\^4\), 
  2684.               " ", 
  2685.               RowBox[{
  2686.                 SuperscriptBox["p2", "\[DoublePrime]",
  2687.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2688.             RowBox[{
  2689.             "2", " ", "mu1", " ", "r", " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  2690.               RowBox[{
  2691.                 SuperscriptBox["p2", "\[DoublePrime]",
  2692.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2693.             RowBox[{
  2694.             "2", " ", \(mu1\^2\), " ", "r", " ", \(s1\^2\), " ", \(s2\^4\), 
  2695.               " ", 
  2696.               RowBox[{
  2697.                 SuperscriptBox["p2", "\[DoublePrime]",
  2698.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2699.             RowBox[{
  2700.             "4", " ", "mu2", " ", "r", " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  2701.               RowBox[{
  2702.                 SuperscriptBox["p2", "\[DoublePrime]",
  2703.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2704.             RowBox[{
  2705.             "4", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^2\), " ", 
  2706.               \(s2\^4\), " ", 
  2707.               RowBox[{
  2708.                 SuperscriptBox["p2", "\[DoublePrime]",
  2709.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2710.             RowBox[{
  2711.             "2", " ", \(mu2\^2\), " ", "r", " ", \(s1\^2\), " ", \(s2\^4\), 
  2712.               " ", 
  2713.               RowBox[{
  2714.                 SuperscriptBox["p2", "\[DoublePrime]",
  2715.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2716.             RowBox[{
  2717.             "4", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^2\), " ", 
  2718.               \(s2\^4\), " ", 
  2719.               RowBox[{
  2720.                 SuperscriptBox["p2", "\[DoublePrime]",
  2721.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2722.             RowBox[{
  2723.             "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", \(s1\^2\), 
  2724.               " ", \(s2\^4\), " ", 
  2725.               RowBox[{
  2726.                 SuperscriptBox["p2", "\[DoublePrime]",
  2727.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2728.             RowBox[{\(r\^2\), " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  2729.               RowBox[{
  2730.                 SuperscriptBox["p2", "\[DoublePrime]",
  2731.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2732.             RowBox[{
  2733.             "mu1", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  2734.               RowBox[{
  2735.                 SuperscriptBox["p2", "\[DoublePrime]",
  2736.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2737.             RowBox[{
  2738.             "2", " ", "mu2", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^4\), 
  2739.               " ", 
  2740.               RowBox[{
  2741.                 SuperscriptBox["p2", "\[DoublePrime]",
  2742.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2743.             RowBox[{
  2744.             "2", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^2\), " ", 
  2745.               \(s2\^4\), " ", 
  2746.               RowBox[{
  2747.                 SuperscriptBox["p2", "\[DoublePrime]",
  2748.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2749.             RowBox[{"2", " ", "mu1", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  2750.               RowBox[{
  2751.                 SuperscriptBox["p2", "\[DoublePrime]",
  2752.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2753.             RowBox[{\(mu1\^2\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  2754.               RowBox[{
  2755.                 SuperscriptBox["p2", "\[DoublePrime]",
  2756.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2757.             RowBox[{\(mu1\^3\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  2758.               RowBox[{
  2759.                 SuperscriptBox["p2", "\[DoublePrime]",
  2760.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2761.             RowBox[{"4", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  2762.               RowBox[{
  2763.                 SuperscriptBox["p2", "\[DoublePrime]",
  2764.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2765.             RowBox[{
  2766.             "6", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", \(s2\^4\), 
  2767.               " ", 
  2768.               RowBox[{
  2769.                 SuperscriptBox["p2", "\[DoublePrime]",
  2770.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2771.             RowBox[{
  2772.             "2", " ", \(mu1\^3\), " ", "mu2", " ", \(s1\^3\), " ", \(s2\^4\), 
  2773.               " ", 
  2774.               RowBox[{
  2775.                 SuperscriptBox["p2", "\[DoublePrime]",
  2776.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2777.             RowBox[{
  2778.             "5", " ", \(mu2\^2\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  2779.               RowBox[{
  2780.                 SuperscriptBox["p2", "\[DoublePrime]",
  2781.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2782.             RowBox[{
  2783.             "11", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  2784.               \(s2\^4\), " ", 
  2785.               RowBox[{
  2786.                 SuperscriptBox["p2", "\[DoublePrime]",
  2787.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2788.             RowBox[{
  2789.             "7", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  2790.               \(s2\^4\), " ", 
  2791.               RowBox[{
  2792.                 SuperscriptBox["p2", "\[DoublePrime]",
  2793.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2794.             RowBox[{
  2795.             \(mu1\^3\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", \(s2\^4\), 
  2796.               " ", 
  2797.               RowBox[{
  2798.                 SuperscriptBox["p2", "\[DoublePrime]",
  2799.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2800.             RowBox[{"2", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  2801.               RowBox[{
  2802.                 SuperscriptBox["p2", "\[DoublePrime]",
  2803.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2804.             RowBox[{
  2805.             "2", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  2806.               RowBox[{
  2807.                 SuperscriptBox["p2", "\[DoublePrime]",
  2808.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2809.             RowBox[{
  2810.             "4", " ", \(mu1\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), 
  2811.               " ", 
  2812.               RowBox[{
  2813.                 SuperscriptBox["p2", "\[DoublePrime]",
  2814.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2815.             RowBox[{
  2816.             "12", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  2817.               RowBox[{
  2818.                 SuperscriptBox["p2", "\[DoublePrime]",
  2819.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2820.             RowBox[{
  2821.             "12", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  2822.               \(s2\^4\), " ", 
  2823.               RowBox[{
  2824.                 SuperscriptBox["p2", "\[DoublePrime]",
  2825.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2826.             RowBox[{
  2827.             "4", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), 
  2828.               " ", 
  2829.               RowBox[{
  2830.                 SuperscriptBox["p2", "\[DoublePrime]",
  2831.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2832.             RowBox[{
  2833.             "8", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", 
  2834.               \(s2\^4\), " ", 
  2835.               RowBox[{
  2836.                 SuperscriptBox["p2", "\[DoublePrime]",
  2837.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2838.             RowBox[{
  2839.             "4", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), 
  2840.               " ", \(s2\^4\), " ", 
  2841.               RowBox[{
  2842.                 SuperscriptBox["p2", "\[DoublePrime]",
  2843.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2844.             RowBox[{"3", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  2845.               RowBox[{
  2846.                 SuperscriptBox["p2", "\[DoublePrime]",
  2847.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2848.             RowBox[{
  2849.             "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^4\), 
  2850.               " ", 
  2851.               RowBox[{
  2852.                 SuperscriptBox["p2", "\[DoublePrime]",
  2853.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2854.             RowBox[{
  2855.             "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^4\), 
  2856.               " ", 
  2857.               RowBox[{
  2858.                 SuperscriptBox["p2", "\[DoublePrime]",
  2859.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2860.             RowBox[{
  2861.             "6", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  2862.               \(s2\^4\), " ", 
  2863.               RowBox[{
  2864.                 SuperscriptBox["p2", "\[DoublePrime]",
  2865.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2866.             RowBox[{\(s1\^4\), " ", \(s2\^4\), " ", 
  2867.               RowBox[{
  2868.                 SuperscriptBox["p2", "\[DoublePrime]",
  2869.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2870.             RowBox[{"mu1", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  2871.               RowBox[{
  2872.                 SuperscriptBox["p2", "\[DoublePrime]",
  2873.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2874.             RowBox[{
  2875.             "2", " ", \(mu1\^2\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  2876.               RowBox[{
  2877.                 SuperscriptBox["p2", "\[DoublePrime]",
  2878.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2879.             RowBox[{"6", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  2880.               RowBox[{
  2881.                 SuperscriptBox["p2", "\[DoublePrime]",
  2882.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2883.             RowBox[{
  2884.             "6", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^4\), 
  2885.               " ", 
  2886.               RowBox[{
  2887.                 SuperscriptBox["p2", "\[DoublePrime]",
  2888.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2889.             RowBox[{
  2890.             "2", " ", \(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  2891.               RowBox[{
  2892.                 SuperscriptBox["p2", "\[DoublePrime]",
  2893.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2894.             RowBox[{
  2895.             "4", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^4\), 
  2896.               " ", 
  2897.               RowBox[{
  2898.                 SuperscriptBox["p2", "\[DoublePrime]",
  2899.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2900.             RowBox[{
  2901.             "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  2902.               \(s2\^4\), " ", 
  2903.               RowBox[{
  2904.                 SuperscriptBox["p2", "\[DoublePrime]",
  2905.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2906.             RowBox[{"4", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  2907.               RowBox[{
  2908.                 SuperscriptBox["p2", "\[DoublePrime]",
  2909.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2910.             RowBox[{
  2911.             "2", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  2912.               RowBox[{
  2913.                 SuperscriptBox["p2", "\[DoublePrime]",
  2914.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2915.             RowBox[{
  2916.             "2", " ", \(mu1\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), 
  2917.               " ", 
  2918.               RowBox[{
  2919.                 SuperscriptBox["p2", "\[DoublePrime]",
  2920.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2921.             RowBox[{
  2922.             "12", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  2923.               RowBox[{
  2924.                 SuperscriptBox["p2", "\[DoublePrime]",
  2925.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2926.             RowBox[{
  2927.             "12", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  2928.               \(s2\^4\), " ", 
  2929.               RowBox[{
  2930.                 SuperscriptBox["p2", "\[DoublePrime]",
  2931.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2932.             RowBox[{
  2933.             "2", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), 
  2934.               " ", 
  2935.               RowBox[{
  2936.                 SuperscriptBox["p2", "\[DoublePrime]",
  2937.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2938.             RowBox[{
  2939.             "4", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), " ", 
  2940.               \(s2\^4\), " ", 
  2941.               RowBox[{
  2942.                 SuperscriptBox["p2", "\[DoublePrime]",
  2943.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2944.             RowBox[{
  2945.             "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), 
  2946.               " ", \(s2\^4\), " ", 
  2947.               RowBox[{
  2948.                 SuperscriptBox["p2", "\[DoublePrime]",
  2949.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2950.             RowBox[{"3", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  2951.               RowBox[{
  2952.                 SuperscriptBox["p2", "\[DoublePrime]",
  2953.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2954.             RowBox[{
  2955.             "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^4\), 
  2956.               " ", 
  2957.               RowBox[{
  2958.                 SuperscriptBox["p2", "\[DoublePrime]",
  2959.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2960.             RowBox[{
  2961.             "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^4\), 
  2962.               " ", 
  2963.               RowBox[{
  2964.                 SuperscriptBox["p2", "\[DoublePrime]",
  2965.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2966.             RowBox[{
  2967.             "6", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  2968.               \(s2\^4\), " ", 
  2969.               RowBox[{
  2970.                 SuperscriptBox["p2", "\[DoublePrime]",
  2971.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2972.             RowBox[{\(s1\^5\), " ", \(s2\^4\), " ", 
  2973.               RowBox[{
  2974.                 SuperscriptBox["p2", "\[DoublePrime]",
  2975.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2976.             RowBox[{"mu1", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  2977.               RowBox[{
  2978.                 SuperscriptBox["p2", "\[DoublePrime]",
  2979.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2980.             RowBox[{"2", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  2981.               RowBox[{
  2982.                 SuperscriptBox["p2", "\[DoublePrime]",
  2983.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2984.             RowBox[{
  2985.             "2", " ", "mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^4\), 
  2986.               " ", 
  2987.               RowBox[{
  2988.                 SuperscriptBox["p2", "\[DoublePrime]",
  2989.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2990.             RowBox[{"2", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  2991.               RowBox[{
  2992.                 SuperscriptBox["p2", "\[DoublePrime]",
  2993.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  2994.             RowBox[{
  2995.             "2", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  2996.               RowBox[{
  2997.                 SuperscriptBox["p2", "\[DoublePrime]",
  2998.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  2999.             RowBox[{
  3000.             "4", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  3001.               RowBox[{
  3002.                 SuperscriptBox["p2", "\[DoublePrime]",
  3003.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3004.             RowBox[{
  3005.             "4", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  3006.               \(s2\^4\), " ", 
  3007.               RowBox[{
  3008.                 SuperscriptBox["p2", "\[DoublePrime]",
  3009.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3010.             RowBox[{\(r\^2\), " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  3011.               RowBox[{
  3012.                 SuperscriptBox["p2", "\[DoublePrime]",
  3013.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3014.             RowBox[{
  3015.             "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  3016.               RowBox[{
  3017.                 SuperscriptBox["p2", "\[DoublePrime]",
  3018.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3019.             RowBox[{
  3020.             "2", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^4\), 
  3021.               " ", 
  3022.               RowBox[{
  3023.                 SuperscriptBox["p2", "\[DoublePrime]",
  3024.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3025.             RowBox[{
  3026.             "2", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", 
  3027.               \(s2\^4\), " ", 
  3028.               RowBox[{
  3029.                 SuperscriptBox["p2", "\[DoublePrime]",
  3030.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3031.             RowBox[{"2", " ", "mu1", " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  3032.               RowBox[{
  3033.                 SuperscriptBox["p2", "\[DoublePrime]",
  3034.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3035.             RowBox[{
  3036.             "2", " ", \(mu1\^2\), " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  3037.               RowBox[{
  3038.                 SuperscriptBox["p2", "\[DoublePrime]",
  3039.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3040.             RowBox[{"3", " ", "mu2", " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  3041.               RowBox[{
  3042.                 SuperscriptBox["p2", "\[DoublePrime]",
  3043.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3044.             RowBox[{
  3045.             "5", " ", "mu1", " ", "mu2", " ", \(s1\^2\), " ", \(s2\^5\), 
  3046.               " ", 
  3047.               RowBox[{
  3048.                 SuperscriptBox["p2", "\[DoublePrime]",
  3049.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3050.             RowBox[{
  3051.             "2", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^2\), " ", \(s2\^5\), 
  3052.               " ", 
  3053.               RowBox[{
  3054.                 SuperscriptBox["p2", "\[DoublePrime]",
  3055.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3056.             RowBox[{"2", " ", "r", " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  3057.               RowBox[{
  3058.                 SuperscriptBox["p2", "\[DoublePrime]",
  3059.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3060.             RowBox[{
  3061.             "2", " ", \(mu1\^2\), " ", "r", " ", \(s1\^2\), " ", \(s2\^5\), 
  3062.               " ", 
  3063.               RowBox[{
  3064.                 SuperscriptBox["p2", "\[DoublePrime]",
  3065.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3066.             RowBox[{
  3067.             "4", " ", "mu2", " ", "r", " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  3068.               RowBox[{
  3069.                 SuperscriptBox["p2", "\[DoublePrime]",
  3070.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3071.             RowBox[{
  3072.             "6", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^2\), " ", 
  3073.               \(s2\^5\), " ", 
  3074.               RowBox[{
  3075.                 SuperscriptBox["p2", "\[DoublePrime]",
  3076.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3077.             RowBox[{
  3078.             "2", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^2\), " ", 
  3079.               \(s2\^5\), " ", 
  3080.               RowBox[{
  3081.                 SuperscriptBox["p2", "\[DoublePrime]",
  3082.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3083.             RowBox[{"2", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  3084.               RowBox[{
  3085.                 SuperscriptBox["p2", "\[DoublePrime]",
  3086.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3087.             RowBox[{
  3088.             "2", " ", "mu1", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^5\), 
  3089.               " ", 
  3090.               RowBox[{
  3091.                 SuperscriptBox["p2", "\[DoublePrime]",
  3092.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3093.             RowBox[{
  3094.             "mu2", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  3095.               RowBox[{
  3096.                 SuperscriptBox["p2", "\[DoublePrime]",
  3097.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3098.             RowBox[{
  3099.             "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^5\), 
  3100.               " ", 
  3101.               RowBox[{
  3102.                 SuperscriptBox["p2", "\[DoublePrime]",
  3103.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3104.             RowBox[{"2", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  3105.               RowBox[{
  3106.                 SuperscriptBox["p2", "\[DoublePrime]",
  3107.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3108.             RowBox[{"2", " ", "mu1", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  3109.               RowBox[{
  3110.                 SuperscriptBox["p2", "\[DoublePrime]",
  3111.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3112.             RowBox[{
  3113.             "4", " ", \(mu1\^2\), " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  3114.               RowBox[{
  3115.                 SuperscriptBox["p2", "\[DoublePrime]",
  3116.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3117.             RowBox[{"7", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  3118.               RowBox[{
  3119.                 SuperscriptBox["p2", "\[DoublePrime]",
  3120.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3121.             RowBox[{
  3122.             "11", " ", "mu1", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^5\), 
  3123.               " ", 
  3124.               RowBox[{
  3125.                 SuperscriptBox["p2", "\[DoublePrime]",
  3126.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3127.             RowBox[{
  3128.             "4", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", \(s2\^5\), 
  3129.               " ", 
  3130.               RowBox[{
  3131.                 SuperscriptBox["p2", "\[DoublePrime]",
  3132.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3133.             RowBox[{"8", " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  3134.               RowBox[{
  3135.                 SuperscriptBox["p2", "\[DoublePrime]",
  3136.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3137.             RowBox[{
  3138.             "4", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  3139.               RowBox[{
  3140.                 SuperscriptBox["p2", "\[DoublePrime]",
  3141.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3142.             RowBox[{
  3143.             "4", " ", \(mu1\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), 
  3144.               " ", 
  3145.               RowBox[{
  3146.                 SuperscriptBox["p2", "\[DoublePrime]",
  3147.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3148.             RowBox[{
  3149.             "10", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  3150.               RowBox[{
  3151.                 SuperscriptBox["p2", "\[DoublePrime]",
  3152.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3153.             RowBox[{
  3154.             "14", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  3155.               \(s2\^5\), " ", 
  3156.               RowBox[{
  3157.                 SuperscriptBox["p2", "\[DoublePrime]",
  3158.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3159.             RowBox[{
  3160.             "4", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  3161.               \(s2\^5\), " ", 
  3162.               RowBox[{
  3163.                 SuperscriptBox["p2", "\[DoublePrime]",
  3164.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3165.             RowBox[{"6", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  3166.               RowBox[{
  3167.                 SuperscriptBox["p2", "\[DoublePrime]",
  3168.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3169.             RowBox[{
  3170.             "6", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^5\), 
  3171.               " ", 
  3172.               RowBox[{
  3173.                 SuperscriptBox["p2", "\[DoublePrime]",
  3174.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3175.             RowBox[{
  3176.             "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^5\), 
  3177.               " ", 
  3178.               RowBox[{
  3179.                 SuperscriptBox["p2", "\[DoublePrime]",
  3180.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3181.             RowBox[{
  3182.             "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  3183.               \(s2\^5\), " ", 
  3184.               RowBox[{
  3185.                 SuperscriptBox["p2", "\[DoublePrime]",
  3186.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3187.             RowBox[{"4", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  3188.               RowBox[{
  3189.                 SuperscriptBox["p2", "\[DoublePrime]",
  3190.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3191.             RowBox[{"2", " ", "mu1", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  3192.               RowBox[{
  3193.                 SuperscriptBox["p2", "\[DoublePrime]",
  3194.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3195.             RowBox[{
  3196.             "2", " ", \(mu1\^2\), " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  3197.               RowBox[{
  3198.                 SuperscriptBox["p2", "\[DoublePrime]",
  3199.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3200.             RowBox[{"5", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  3201.               RowBox[{
  3202.                 SuperscriptBox["p2", "\[DoublePrime]",
  3203.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3204.             RowBox[{
  3205.             "7", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^5\), 
  3206.               " ", 
  3207.               RowBox[{
  3208.                 SuperscriptBox["p2", "\[DoublePrime]",
  3209.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3210.             RowBox[{
  3211.             "2", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^4\), " ", \(s2\^5\), 
  3212.               " ", 
  3213.               RowBox[{
  3214.                 SuperscriptBox["p2", "\[DoublePrime]",
  3215.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3216.             RowBox[{"10", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  3217.               RowBox[{
  3218.                 SuperscriptBox["p2", "\[DoublePrime]",
  3219.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3220.             RowBox[{
  3221.             "8", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  3222.               RowBox[{
  3223.                 SuperscriptBox["p2", "\[DoublePrime]",
  3224.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3225.             RowBox[{
  3226.             "2", " ", \(mu1\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), 
  3227.               " ", 
  3228.               RowBox[{
  3229.                 SuperscriptBox["p2", "\[DoublePrime]",
  3230.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3231.             RowBox[{
  3232.             "8", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  3233.               RowBox[{
  3234.                 SuperscriptBox["p2", "\[DoublePrime]",
  3235.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3236.             RowBox[{
  3237.             "10", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  3238.               \(s2\^5\), " ", 
  3239.               RowBox[{
  3240.                 SuperscriptBox["p2", "\[DoublePrime]",
  3241.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3242.             RowBox[{
  3243.             "2", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  3244.               \(s2\^5\), " ", 
  3245.               RowBox[{
  3246.                 SuperscriptBox["p2", "\[DoublePrime]",
  3247.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3248.             RowBox[{"6", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  3249.               RowBox[{
  3250.                 SuperscriptBox["p2", "\[DoublePrime]",
  3251.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3252.             RowBox[{
  3253.             "6", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^5\), 
  3254.               " ", 
  3255.               RowBox[{
  3256.                 SuperscriptBox["p2", "\[DoublePrime]",
  3257.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3258.             RowBox[{
  3259.             "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^5\), 
  3260.               " ", 
  3261.               RowBox[{
  3262.                 SuperscriptBox["p2", "\[DoublePrime]",
  3263.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3264.             RowBox[{
  3265.             "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  3266.               \(s2\^5\), " ", 
  3267.               RowBox[{
  3268.                 SuperscriptBox["p2", "\[DoublePrime]",
  3269.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3270.             RowBox[{"2", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  3271.               RowBox[{
  3272.                 SuperscriptBox["p2", "\[DoublePrime]",
  3273.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3274.             RowBox[{"2", " ", "mu1", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  3275.               RowBox[{
  3276.                 SuperscriptBox["p2", "\[DoublePrime]",
  3277.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3278.             RowBox[{"mu2", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  3279.               RowBox[{
  3280.                 SuperscriptBox["p2", "\[DoublePrime]",
  3281.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3282.             RowBox[{"mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  3283.               RowBox[{
  3284.                 SuperscriptBox["p2", "\[DoublePrime]",
  3285.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3286.             RowBox[{"4", " ", "r", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  3287.               RowBox[{
  3288.                 SuperscriptBox["p2", "\[DoublePrime]",
  3289.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3290.             RowBox[{
  3291.             "4", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  3292.               RowBox[{
  3293.                 SuperscriptBox["p2", "\[DoublePrime]",
  3294.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3295.             RowBox[{
  3296.             "2", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  3297.               RowBox[{
  3298.                 SuperscriptBox["p2", "\[DoublePrime]",
  3299.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3300.             RowBox[{
  3301.             "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  3302.               \(s2\^5\), " ", 
  3303.               RowBox[{
  3304.                 SuperscriptBox["p2", "\[DoublePrime]",
  3305.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3306.             RowBox[{"2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  3307.               RowBox[{
  3308.                 SuperscriptBox["p2", "\[DoublePrime]",
  3309.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3310.             RowBox[{
  3311.             "2", " ", "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), 
  3312.               " ", 
  3313.               RowBox[{
  3314.                 SuperscriptBox["p2", "\[DoublePrime]",
  3315.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3316.             RowBox[{
  3317.             "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  3318.               RowBox[{
  3319.                 SuperscriptBox["p2", "\[DoublePrime]",
  3320.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3321.             RowBox[{
  3322.             "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), 
  3323.               " ", 
  3324.               RowBox[{
  3325.                 SuperscriptBox["p2", "\[DoublePrime]",
  3326.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3327.             RowBox[{\(s1\^2\), " ", \(s2\^6\), " ", 
  3328.               RowBox[{
  3329.                 SuperscriptBox["p2", "\[DoublePrime]",
  3330.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3331.             RowBox[{"mu1", " ", \(s1\^2\), " ", \(s2\^6\), " ", 
  3332.               RowBox[{
  3333.                 SuperscriptBox["p2", "\[DoublePrime]",
  3334.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3335.             RowBox[{"2", " ", "r", " ", \(s1\^2\), " ", \(s2\^6\), " ", 
  3336.               RowBox[{
  3337.                 SuperscriptBox["p2", "\[DoublePrime]",
  3338.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3339.             RowBox[{
  3340.             "2", " ", "mu1", " ", "r", " ", \(s1\^2\), " ", \(s2\^6\), " ", 
  3341.               RowBox[{
  3342.                 SuperscriptBox["p2", "\[DoublePrime]",
  3343.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3344.             RowBox[{\(r\^2\), " ", \(s1\^2\), " ", \(s2\^6\), " ", 
  3345.               RowBox[{
  3346.                 SuperscriptBox["p2", "\[DoublePrime]",
  3347.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3348.             RowBox[{
  3349.             "mu1", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^6\), " ", 
  3350.               RowBox[{
  3351.                 SuperscriptBox["p2", "\[DoublePrime]",
  3352.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3353.             RowBox[{"3", " ", \(s1\^3\), " ", \(s2\^6\), " ", 
  3354.               RowBox[{
  3355.                 SuperscriptBox["p2", "\[DoublePrime]",
  3356.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3357.             RowBox[{"3", " ", "mu1", " ", \(s1\^3\), " ", \(s2\^6\), " ", 
  3358.               RowBox[{
  3359.                 SuperscriptBox["p2", "\[DoublePrime]",
  3360.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3361.             RowBox[{"6", " ", "r", " ", \(s1\^3\), " ", \(s2\^6\), " ", 
  3362.               RowBox[{
  3363.                 SuperscriptBox["p2", "\[DoublePrime]",
  3364.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3365.             RowBox[{
  3366.             "6", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^6\), " ", 
  3367.               RowBox[{
  3368.                 SuperscriptBox["p2", "\[DoublePrime]",
  3369.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3370.             RowBox[{"3", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^6\), " ", 
  3371.               RowBox[{
  3372.                 SuperscriptBox["p2", "\[DoublePrime]",
  3373.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3374.             RowBox[{
  3375.             "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^6\), 
  3376.               " ", 
  3377.               RowBox[{
  3378.                 SuperscriptBox["p2", "\[DoublePrime]",
  3379.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3380.             RowBox[{"3", " ", \(s1\^4\), " ", \(s2\^6\), " ", 
  3381.               RowBox[{
  3382.                 SuperscriptBox["p2", "\[DoublePrime]",
  3383.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3384.             RowBox[{"3", " ", "mu1", " ", \(s1\^4\), " ", \(s2\^6\), " ", 
  3385.               RowBox[{
  3386.                 SuperscriptBox["p2", "\[DoublePrime]",
  3387.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3388.             RowBox[{"6", " ", "r", " ", \(s1\^4\), " ", \(s2\^6\), " ", 
  3389.               RowBox[{
  3390.                 SuperscriptBox["p2", "\[DoublePrime]",
  3391.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3392.             RowBox[{
  3393.             "6", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^6\), " ", 
  3394.               RowBox[{
  3395.                 SuperscriptBox["p2", "\[DoublePrime]",
  3396.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3397.             RowBox[{"3", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^6\), " ", 
  3398.               RowBox[{
  3399.                 SuperscriptBox["p2", "\[DoublePrime]",
  3400.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3401.             RowBox[{
  3402.             "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^6\), 
  3403.               " ", 
  3404.               RowBox[{
  3405.                 SuperscriptBox["p2", "\[DoublePrime]",
  3406.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3407.             RowBox[{\(s1\^5\), " ", \(s2\^6\), " ", 
  3408.               RowBox[{
  3409.                 SuperscriptBox["p2", "\[DoublePrime]",
  3410.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3411.             RowBox[{"mu1", " ", \(s1\^5\), " ", \(s2\^6\), " ", 
  3412.               RowBox[{
  3413.                 SuperscriptBox["p2", "\[DoublePrime]",
  3414.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3415.             RowBox[{"2", " ", "r", " ", \(s1\^5\), " ", \(s2\^6\), " ", 
  3416.               RowBox[{
  3417.                 SuperscriptBox["p2", "\[DoublePrime]",
  3418.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3419.             RowBox[{
  3420.             "2", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^6\), " ", 
  3421.               RowBox[{
  3422.                 SuperscriptBox["p2", "\[DoublePrime]",
  3423.                   MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3424.             RowBox[{\(r\^2\), " ", \(s1\^5\), " ", \(s2\^6\), " ", 
  3425.               RowBox[{
  3426.                 SuperscriptBox["p2", "\[DoublePrime]",
  3427.                   MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3428.             RowBox[{
  3429.             "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^6\), " ", 
  3430.               RowBox[{
  3431.                 SuperscriptBox["p2", "\[DoublePrime]",
  3432.                   MultilineFunction->None], "[", "0", "]"}]}]}], ")"}], "/", 
  3433.         \((s1\^2\ s2\^2\ 
  3434.             \((\(-mu1\) - mu2 + mu1\ mu2 + r - s1 + r\ s1 - s2 + r\ s2 - 
  3435.                   s1\ s2 + r\ s1\ s2)\)\^2)\)}]}]], "Output"]
  3436. }, Closed]],
  3437.  
  3438. Cell[CellGroupData[{
  3439.  
  3440. Cell[BoxData[
  3441.     \(a4 = 
  3442.       Factor[\(D[eqn2[p1[eps], p2[eps], eps], eps, eps] /. eps -> 0\) /. 
  3443.           subepszero]\)], "Input"],
  3444.  
  3445. Cell[BoxData[
  3446.     RowBox[{
  3447.       RowBox[{"(", 
  3448.         RowBox[{\((1 + s1)\), " ", 
  3449.           RowBox[{"(", 
  3450.             RowBox[{
  3451.             \(2\ mu1\^3\ mu2\^3\), "-", \(2\ mu1\^4\ mu2\^3\), "+", 
  3452.               \(2\ mu1\^2\ mu2\^4\), "-", \(4\ mu1\^3\ mu2\^4\), "+", 
  3453.               \(2\ mu1\^4\ mu2\^4\), "-", \(4\ mu1\^3\ mu2\^2\ r\), "+", 
  3454.               \(2\ mu1\^4\ mu2\^2\ r\), "-", \(8\ mu1\^2\ mu2\^3\ r\), "+", 
  3455.               \(12\ mu1\^3\ mu2\^3\ r\), "-", \(2\ mu1\^4\ mu2\^3\ r\), "-", 
  3456.               \(2\ mu1\ mu2\^4\ r\), "+", \(8\ mu1\^2\ mu2\^4\ r\), "-", 
  3457.               \(6\ mu1\^3\ mu2\^4\ r\), "+", \(2\ mu1\^3\ mu2\ r\^2\), "+", 
  3458.               \(6\ mu1\^2\ mu2\^2\ r\^2\), "-", \(6\ mu1\^3\ mu2\^2\ r\^2\), 
  3459.               "+", \(4\ mu1\ mu2\^3\ r\^2\), "-", 
  3460.               \(8\ mu1\^2\ mu2\^3\ r\^2\), "+", \(2\ mu1\^3\ mu2\^3\ r\^2\), 
  3461.               "-", \(2\ mu1\ mu2\^4\ r\^2\), "+", 
  3462.               \(2\ mu1\^3\ mu2\^4\ r\^2\), "-", \(2\ mu1\^2\ mu2\ r\^3\), 
  3463.               "-", \(2\ mu1\ mu2\^2\ r\^3\), "+", 
  3464.               \(4\ mu1\^2\ mu2\^2\ r\^3\), "+", \(2\ mu1\ mu2\^3\ r\^3\), 
  3465.               "-", \(2\ mu1\^2\ mu2\^3\ r\^3\), "+", 
  3466.               \(2\ mu1\^2\ mu2\^3\ s1\), "-", \(2\ mu1\^3\ mu2\^3\ s1\), "-", 
  3467.               \(4\ mu1\^2\ mu2\^2\ r\ s1\), "-", \(2\ mu1\ mu2\^3\ r\ s1\), 
  3468.               "+", \(6\ mu1\^3\ mu2\^3\ r\ s1\), "+", 
  3469.               \(4\ mu1\^2\ mu2\^4\ r\ s1\), "-", 
  3470.               \(4\ mu1\^3\ mu2\^4\ r\ s1\), "+", 
  3471.               \(2\ mu1\^2\ mu2\ r\^2\ s1\), "+", 
  3472.               \(2\ mu1\^3\ mu2\ r\^2\ s1\), "+", 
  3473.               \(2\ mu1\ mu2\^2\ r\^2\ s1\), "+", 
  3474.               \(4\ mu1\^2\ mu2\^2\ r\^2\ s1\), "-", 
  3475.               \(6\ mu1\^3\ mu2\^2\ r\^2\ s1\), "+", 
  3476.               \(2\ mu1\ mu2\^3\ r\^2\ s1\), "-", 
  3477.               \(8\ mu1\^2\ mu2\^3\ r\^2\ s1\), "+", 
  3478.               \(2\ mu1\^3\ mu2\^3\ r\^2\ s1\), "-", 
  3479.               \(2\ mu1\ mu2\^4\ r\^2\ s1\), "+", 
  3480.               \(2\ mu1\^3\ mu2\^4\ r\^2\ s1\), "-", 
  3481.               \(4\ mu1\^2\ mu2\ r\^3\ s1\), "-", 
  3482.               \(4\ mu1\ mu2\^2\ r\^3\ s1\), "+", 
  3483.               \(8\ mu1\^2\ mu2\^2\ r\^3\ s1\), "+", 
  3484.               \(4\ mu1\ mu2\^3\ r\^3\ s1\), "-", 
  3485.               \(4\ mu1\^2\ mu2\^3\ r\^3\ s1\), "-", 
  3486.               \(2\ mu1\^2\ mu2\^2\ r\ s1\^2\), "+", 
  3487.               \(2\ mu1\^2\ mu2\^3\ r\ s1\^2\), "+", 
  3488.               \(2\ mu1\^2\ mu2\ r\^2\ s1\^2\), "+", 
  3489.               \(2\ mu1\ mu2\^2\ r\^2\ s1\^2\), "-", 
  3490.               \(2\ mu1\^2\ mu2\^2\ r\^2\ s1\^2\), "-", 
  3491.               \(2\ mu1\ mu2\^3\ r\^2\ s1\^2\), "-", 
  3492.               \(2\ mu1\^2\ mu2\ r\^3\ s1\^2\), "-", 
  3493.               \(2\ mu1\ mu2\^2\ r\^3\ s1\^2\), "+", 
  3494.               \(4\ mu1\^2\ mu2\^2\ r\^3\ s1\^2\), "+", 
  3495.               \(2\ mu1\ mu2\^3\ r\^3\ s1\^2\), "-", 
  3496.               \(2\ mu1\^2\ mu2\^3\ r\^3\ s1\^2\), "+", 
  3497.               \(2\ mu1\^3\ mu2\^2\ s2\), "-", \(2\ mu1\^4\ mu2\^2\ s2\), "+", 
  3498.               \(4\ mu1\^2\ mu2\^3\ s2\), "-", \(6\ mu1\^3\ mu2\^3\ s2\), "+", 
  3499.               \(2\ mu1\^4\ mu2\^3\ s2\), "-", \(2\ mu1\^3\ mu2\ r\ s2\), "+", 
  3500.               \(2\ mu1\^4\ mu2\ r\ s2\), "-", \(10\ mu1\^2\ mu2\^2\ r\ s2\), 
  3501.               "+", \(10\ mu1\^3\ mu2\^2\ r\ s2\), "-", 
  3502.               \(2\ mu1\^4\ mu2\^2\ r\ s2\), "-", \(4\ mu1\ mu2\^3\ r\ s2\), 
  3503.               "+", \(10\ mu1\^2\ mu2\^3\ r\ s2\), "-", 
  3504.               \(4\ mu1\^3\ mu2\^3\ r\ s2\), "+", 
  3505.               \(4\ mu1\^2\ mu2\ r\^2\ s2\), "-", 
  3506.               \(2\ mu1\^3\ mu2\ r\^2\ s2\), "+", 
  3507.               \(4\ mu1\ mu2\^2\ r\^2\ s2\), "-", 
  3508.               \(2\ mu1\^2\ mu2\^2\ r\^2\ s2\), "-", 
  3509.               \(2\ mu1\^3\ mu2\^2\ r\^2\ s2\), "-", 
  3510.               \(6\ mu1\^2\ mu2\^3\ r\^2\ s2\), "+", 
  3511.               \(4\ mu1\^3\ mu2\^3\ r\^2\ s2\), "-", 
  3512.               \(2\ mu1\^2\ mu2\ r\^3\ s2\), "-", 
  3513.               \(2\ mu1\ mu2\^2\ r\^3\ s2\), "+", 
  3514.               \(4\ mu1\^2\ mu2\^2\ r\^3\ s2\), "+", 
  3515.               \(2\ mu1\ mu2\^3\ r\^3\ s2\), "-", 
  3516.               \(2\ mu1\^2\ mu2\^3\ r\^3\ s2\), "-", 
  3517.               \(2\ mu1\ mu2\^3\ s1\ s2\), "+", \(6\ mu1\^2\ mu2\^3\ s1\ s2\), 
  3518.               "-", \(4\ mu1\^3\ mu2\^3\ s1\ s2\), "+", 
  3519.               \(2\ mu1\^3\ mu2\ r\ s1\ s2\), "+", 
  3520.               \(2\ mu1\ mu2\^2\ r\ s1\ s2\), "-", 
  3521.               \(10\ mu1\^2\ mu2\^2\ r\ s1\ s2\), "+", 
  3522.               \(2\ mu1\^3\ mu2\^2\ r\ s1\ s2\), "-", 
  3523.               \(2\ mu1\ mu2\^3\ r\ s1\ s2\), "+", 
  3524.               \(6\ mu1\^2\ mu2\^3\ r\ s1\ s2\), "-", 
  3525.               \(2\ mu1\ mu2\ r\^2\ s1\ s2\), "+", 
  3526.               \(4\ mu1\^2\ mu2\ r\^2\ s1\ s2\), "-", 
  3527.               \(2\ mu1\^3\ mu2\ r\^2\ s1\ s2\), "+", 
  3528.               \(4\ mu1\ mu2\^2\ r\^2\ s1\ s2\), "+", 
  3529.               \(2\ mu1\^2\ mu2\^2\ r\^2\ s1\ s2\), "-", 
  3530.               \(2\ mu1\^3\ mu2\^2\ r\^2\ s1\ s2\), "-", 
  3531.               \(8\ mu1\^2\ mu2\^3\ r\^2\ s1\ s2\), "+", 
  3532.               \(4\ mu1\^3\ mu2\^3\ r\^2\ s1\ s2\), "+", 
  3533.               \(2\ mu1\ mu2\ r\^3\ s1\ s2\), "-", 
  3534.               \(4\ mu1\^2\ mu2\ r\^3\ s1\ s2\), "-", 
  3535.               \(6\ mu1\ mu2\^2\ r\^3\ s1\ s2\), "+", 
  3536.               \(8\ mu1\^2\ mu2\^2\ r\^3\ s1\ s2\), "+", 
  3537.               \(4\ mu1\ mu2\^3\ r\^3\ s1\ s2\), "-", 
  3538.               \(4\ mu1\^2\ mu2\^3\ r\^3\ s1\ s2\), "-", 
  3539.               \(2\ mu1\ mu2\^2\ s1\^2\ s2\), "+", 
  3540.               \(2\ mu1\^2\ mu2\^2\ s1\^2\ s2\), "+", 
  3541.               \(2\ mu1\ mu2\ r\ s1\^2\ s2\), "+", 
  3542.               \(2\ mu1\^2\ mu2\ r\ s1\^2\ s2\), "+", 
  3543.               \(4\ mu1\ mu2\^2\ r\ s1\^2\ s2\), "-", 
  3544.               \(10\ mu1\^2\ mu2\^2\ r\ s1\^2\ s2\), "-", 
  3545.               \(2\ mu1\ mu2\^3\ r\ s1\^2\ s2\), "+", 
  3546.               \(4\ mu1\^2\ mu2\^3\ r\ s1\^2\ s2\), "-", 
  3547.               \(6\ mu1\ mu2\ r\^2\ s1\^2\ s2\), "+", 
  3548.               \(4\ mu1\ mu2\^2\ r\^2\ s1\^2\ s2\), "+", 
  3549.               \(4\ mu1\^2\ mu2\^2\ r\^2\ s1\^2\ s2\), "-", 
  3550.               \(2\ mu1\^2\ mu2\^3\ r\^2\ s1\^2\ s2\), "+", 
  3551.               \(4\ mu1\ mu2\ r\^3\ s1\^2\ s2\), "-", 
  3552.               \(2\ mu1\^2\ mu2\ r\^3\ s1\^2\ s2\), "-", 
  3553.               \(6\ mu1\ mu2\^2\ r\^3\ s1\^2\ s2\), "+", 
  3554.               \(4\ mu1\^2\ mu2\^2\ r\^3\ s1\^2\ s2\), "+", 
  3555.               \(2\ mu1\ mu2\^3\ r\^3\ s1\^2\ s2\), "-", 
  3556.               \(2\ mu1\^2\ mu2\^3\ r\^3\ s1\^2\ s2\), "+", 
  3557.               \(2\ mu1\ mu2\ r\ s1\^3\ s2\), "-", 
  3558.               \(2\ mu1\ mu2\^2\ r\ s1\^3\ s2\), "-", 
  3559.               \(4\ mu1\ mu2\ r\^2\ s1\^3\ s2\), "+", 
  3560.               \(4\ mu1\ mu2\^2\ r\^2\ s1\^3\ s2\), "+", 
  3561.               \(2\ mu1\ mu2\ r\^3\ s1\^3\ s2\), "-", 
  3562.               \(2\ mu1\ mu2\^2\ r\^3\ s1\^3\ s2\), "+", 
  3563.               \(2\ mu1\^2\ mu2\^2\ s2\^2\), "-", 
  3564.               \(2\ mu1\^3\ mu2\^2\ s2\^2\), "-", 
  3565.               \(2\ mu1\^2\ mu2\ r\ s2\^2\), "+", 
  3566.               \(2\ mu1\^3\ mu2\ r\ s2\^2\), "-", 
  3567.               \(2\ mu1\ mu2\^2\ r\ s2\^2\), "+", 
  3568.               \(2\ mu1\^2\ mu2\^2\ r\ s2\^2\), "+", 
  3569.               \(2\ mu1\^2\ mu2\ r\^2\ s2\^2\), "-", 
  3570.               \(2\ mu1\^3\ mu2\ r\^2\ s2\^2\), "+", 
  3571.               \(2\ mu1\ mu2\^2\ r\^2\ s2\^2\), "-", 
  3572.               \(4\ mu1\^2\ mu2\^2\ r\^2\ s2\^2\), "+", 
  3573.               \(2\ mu1\^3\ mu2\^2\ r\^2\ s2\^2\), "-", 
  3574.               \(2\ mu1\^2\ mu2\ s1\ s2\^2\), "+", 
  3575.               \(2\ mu1\^3\ mu2\ s1\ s2\^2\), "-", 
  3576.               \(4\ mu1\ mu2\^2\ s1\ s2\^2\), "+", 
  3577.               \(8\ mu1\^2\ mu2\^2\ s1\ s2\^2\), "-", 
  3578.               \(4\ mu1\^3\ mu2\^2\ s1\ s2\^2\), "+", 
  3579.               \(4\ mu1\ mu2\ r\ s1\ s2\^2\), "-", 
  3580.               \(2\ mu1\^2\ mu2\ r\ s1\ s2\^2\), "+", 
  3581.               \(2\ mu1\ mu2\^2\ r\ s1\ s2\^2\), "-", 
  3582.               \(6\ mu1\^2\ mu2\^2\ r\ s1\ s2\^2\), "+", 
  3583.               \(2\ mu1\^3\ mu2\^2\ r\ s1\ s2\^2\), "-", 
  3584.               \(6\ mu1\ mu2\ r\^2\ s1\ s2\^2\), "+", 
  3585.               \(4\ mu1\^2\ mu2\ r\^2\ s1\ s2\^2\), "-", 
  3586.               \(2\ mu1\^3\ mu2\ r\^2\ s1\ s2\^2\), "+", 
  3587.               \(4\ mu1\ mu2\^2\ r\^2\ s1\ s2\^2\), "-", 
  3588.               \(2\ mu1\^2\ mu2\^2\ r\^2\ s1\ s2\^2\), "+", 
  3589.               \(2\ mu1\^3\ mu2\^2\ r\^2\ s1\ s2\^2\), "+", 
  3590.               \(2\ mu1\ mu2\ r\^3\ s1\ s2\^2\), "-", 
  3591.               \(2\ mu1\ mu2\^2\ r\^3\ s1\ s2\^2\), "-", 
  3592.               \(2\ mu1\ mu2\ s1\^2\ s2\^2\), "+", 
  3593.               \(2\ mu1\^2\ mu2\ s1\^2\ s2\^2\), "-", 
  3594.               \(2\ mu1\ mu2\^2\ s1\^2\ s2\^2\), "+", 
  3595.               \(2\ mu1\^2\ mu2\^2\ s1\^2\ s2\^2\), "+", 
  3596.               \(8\ mu1\ mu2\ r\ s1\^2\ s2\^2\), "-", 
  3597.               \(4\ mu1\^2\ mu2\ r\ s1\^2\ s2\^2\), "-", 
  3598.               \(4\ mu1\^2\ mu2\^2\ r\ s1\^2\ s2\^2\), "-", 
  3599.               \(10\ mu1\ mu2\ r\^2\ s1\^2\ s2\^2\), "+", 
  3600.               \(2\ mu1\^2\ mu2\ r\^2\ s1\^2\ s2\^2\), "+", 
  3601.               \(6\ mu1\ mu2\^2\ r\^2\ s1\^2\ s2\^2\), "+", 
  3602.               \(2\ mu1\^2\ mu2\^2\ r\^2\ s1\^2\ s2\^2\), "+", 
  3603.               \(4\ mu1\ mu2\ r\^3\ s1\^2\ s2\^2\), "-", 
  3604.               \(4\ mu1\ mu2\^2\ r\^3\ s1\^2\ s2\^2\), "+", 
  3605.               \(2\ mu1\ mu2\ r\ s1\^3\ s2\^2\), "-", 
  3606.               \(2\ mu1\ mu2\^2\ r\ s1\^3\ s2\^2\), "-", 
  3607.               \(4\ mu1\ mu2\ r\^2\ s1\^3\ s2\^2\), "+", 
  3608.               \(4\ mu1\ mu2\^2\ r\^2\ s1\^3\ s2\^2\), "+", 
  3609.               \(2\ mu1\ mu2\ r\^3\ s1\^3\ s2\^2\), "-", 
  3610.               \(2\ mu1\ mu2\^2\ r\^3\ s1\^3\ s2\^2\), "-", 
  3611.               \(2\ mu1\ mu2\ s1\ s2\^3\), "+", \(2\ mu1\^2\ mu2\ s1\ s2\^3\), 
  3612.               "+", \(4\ mu1\ mu2\ r\ s1\ s2\^3\), "-", 
  3613.               \(4\ mu1\^2\ mu2\ r\ s1\ s2\^3\), "-", 
  3614.               \(2\ mu1\ mu2\ r\^2\ s1\ s2\^3\), "+", 
  3615.               \(2\ mu1\^2\ mu2\ r\^2\ s1\ s2\^3\), "-", 
  3616.               \(2\ mu1\ mu2\ s1\^2\ s2\^3\), "+", 
  3617.               \(2\ mu1\^2\ mu2\ s1\^2\ s2\^3\), "+", 
  3618.               \(4\ mu1\ mu2\ r\ s1\^2\ s2\^3\), "-", 
  3619.               \(4\ mu1\^2\ mu2\ r\ s1\^2\ s2\^3\), "-", 
  3620.               \(2\ mu1\ mu2\ r\^2\ s1\^2\ s2\^3\), "+", 
  3621.               \(2\ mu1\^2\ mu2\ r\^2\ s1\^2\ s2\^3\), "+", 
  3622.               RowBox[{
  3623.               \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  3624.                 RowBox[{
  3625.                   SuperscriptBox["p1", "\[DoublePrime]",
  3626.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3627.               RowBox[{
  3628.               \(mu1\^3\), " ", "mu2", " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  3629.                 RowBox[{
  3630.                   SuperscriptBox["p1", "\[DoublePrime]",
  3631.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3632.               RowBox[{
  3633.               "2", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  3634.                 \(s2\^2\), " ", 
  3635.                 RowBox[{
  3636.                   SuperscriptBox["p1", "\[DoublePrime]",
  3637.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3638.               RowBox[{
  3639.               "5", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  3640.                 \(s2\^2\), " ", 
  3641.                 RowBox[{
  3642.                   SuperscriptBox["p1", "\[DoublePrime]",
  3643.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3644.               RowBox[{
  3645.               "3", " ", \(mu1\^3\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  3646.                 \(s2\^2\), " ", 
  3647.                 RowBox[{
  3648.                   SuperscriptBox["p1", "\[DoublePrime]",
  3649.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3650.               RowBox[{\(mu2\^3\), " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  3651.                 RowBox[{
  3652.                   SuperscriptBox["p1", "\[DoublePrime]",
  3653.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3654.               RowBox[{
  3655.               "5", " ", "mu1", " ", \(mu2\^3\), " ", \(s1\^3\), " ", 
  3656.                 \(s2\^2\), " ", 
  3657.                 RowBox[{
  3658.                   SuperscriptBox["p1", "\[DoublePrime]",
  3659.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3660.               RowBox[{
  3661.               "7", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", \(s1\^3\), " ", 
  3662.                 \(s2\^2\), " ", 
  3663.                 RowBox[{
  3664.                   SuperscriptBox["p1", "\[DoublePrime]",
  3665.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3666.               RowBox[{
  3667.               "3", " ", \(mu1\^3\), " ", \(mu2\^3\), " ", \(s1\^3\), " ", 
  3668.                 \(s2\^2\), " ", 
  3669.                 RowBox[{
  3670.                   SuperscriptBox["p1", "\[DoublePrime]",
  3671.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3672.               RowBox[{\(mu2\^4\), " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  3673.                 RowBox[{
  3674.                   SuperscriptBox["p1", "\[DoublePrime]",
  3675.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3676.               RowBox[{
  3677.               "3", " ", "mu1", " ", \(mu2\^4\), " ", \(s1\^3\), " ", 
  3678.                 \(s2\^2\), " ", 
  3679.                 RowBox[{
  3680.                   SuperscriptBox["p1", "\[DoublePrime]",
  3681.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3682.               RowBox[{
  3683.               "3", " ", \(mu1\^2\), " ", \(mu2\^4\), " ", \(s1\^3\), " ", 
  3684.                 \(s2\^2\), " ", 
  3685.                 RowBox[{
  3686.                   SuperscriptBox["p1", "\[DoublePrime]",
  3687.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3688.               RowBox[{
  3689.               \(mu1\^3\), " ", \(mu2\^4\), " ", \(s1\^3\), " ", \(s2\^2\), 
  3690.                 " ", 
  3691.                 RowBox[{
  3692.                   SuperscriptBox["p1", "\[DoublePrime]",
  3693.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3694.               RowBox[{
  3695.               \(mu1\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  3696.                 RowBox[{
  3697.                   SuperscriptBox["p1", "\[DoublePrime]",
  3698.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3699.               RowBox[{
  3700.               "4", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  3701.                 \(s2\^2\), " ", 
  3702.                 RowBox[{
  3703.                   SuperscriptBox["p1", "\[DoublePrime]",
  3704.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3705.               RowBox[{
  3706.               "5", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^3\), 
  3707.                 " ", \(s2\^2\), " ", 
  3708.                 RowBox[{
  3709.                   SuperscriptBox["p1", "\[DoublePrime]",
  3710.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3711.               RowBox[{
  3712.               "3", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^2\), 
  3713.                 " ", 
  3714.                 RowBox[{
  3715.                   SuperscriptBox["p1", "\[DoublePrime]",
  3716.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3717.               RowBox[{
  3718.               "10", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), 
  3719.                 " ", \(s2\^2\), " ", 
  3720.                 RowBox[{
  3721.                   SuperscriptBox["p1", "\[DoublePrime]",
  3722.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3723.               RowBox[{
  3724.               "7", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  3725.                 \(s1\^3\), " ", \(s2\^2\), " ", 
  3726.                 RowBox[{
  3727.                   SuperscriptBox["p1", "\[DoublePrime]",
  3728.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3729.               RowBox[{
  3730.               "3", " ", \(mu2\^3\), " ", "r", " ", \(s1\^3\), " ", \(s2\^2\), 
  3731.                 " ", 
  3732.                 RowBox[{
  3733.                   SuperscriptBox["p1", "\[DoublePrime]",
  3734.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3735.               RowBox[{
  3736.               "6", " ", "mu1", " ", \(mu2\^3\), " ", "r", " ", \(s1\^3\), 
  3737.                 " ", \(s2\^2\), " ", 
  3738.                 RowBox[{
  3739.                   SuperscriptBox["p1", "\[DoublePrime]",
  3740.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3741.               RowBox[{
  3742.               "3", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", "r", " ", 
  3743.                 \(s1\^3\), " ", \(s2\^2\), " ", 
  3744.                 RowBox[{
  3745.                   SuperscriptBox["p1", "\[DoublePrime]",
  3746.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3747.               RowBox[{
  3748.               "2", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^2\), 
  3749.                 " ", 
  3750.                 RowBox[{
  3751.                   SuperscriptBox["p1", "\[DoublePrime]",
  3752.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3753.               RowBox[{
  3754.               "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^2\), 
  3755.                 " ", 
  3756.                 RowBox[{
  3757.                   SuperscriptBox["p1", "\[DoublePrime]",
  3758.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3759.               RowBox[{
  3760.               "5", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), 
  3761.                 " ", \(s2\^2\), " ", 
  3762.                 RowBox[{
  3763.                   SuperscriptBox["p1", "\[DoublePrime]",
  3764.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3765.               RowBox[{
  3766.               "3", " ", \(mu2\^2\), " ", \(r\^2\), " ", \(s1\^3\), " ", 
  3767.                 \(s2\^2\), " ", 
  3768.                 RowBox[{
  3769.                   SuperscriptBox["p1", "\[DoublePrime]",
  3770.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3771.               RowBox[{
  3772.               "3", " ", "mu1", " ", \(mu2\^2\), " ", \(r\^2\), " ", 
  3773.                 \(s1\^3\), " ", \(s2\^2\), " ", 
  3774.                 RowBox[{
  3775.                   SuperscriptBox["p1", "\[DoublePrime]",
  3776.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3777.               RowBox[{\(r\^3\), " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  3778.                 RowBox[{
  3779.                   SuperscriptBox["p1", "\[DoublePrime]",
  3780.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3781.               RowBox[{
  3782.               "mu2", " ", \(r\^3\), " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  3783.                 RowBox[{
  3784.                   SuperscriptBox["p1", "\[DoublePrime]",
  3785.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3786.               RowBox[{
  3787.               "2", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^2\), 
  3788.                 " ", 
  3789.                 RowBox[{
  3790.                   SuperscriptBox["p1", "\[DoublePrime]",
  3791.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3792.               RowBox[{
  3793.               "2", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^4\), " ", 
  3794.                 \(s2\^2\), " ", 
  3795.                 RowBox[{
  3796.                   SuperscriptBox["p1", "\[DoublePrime]",
  3797.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3798.               RowBox[{
  3799.               "2", " ", \(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  3800.                 RowBox[{
  3801.                   SuperscriptBox["p1", "\[DoublePrime]",
  3802.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3803.               RowBox[{
  3804.               "6", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  3805.                 \(s2\^2\), " ", 
  3806.                 RowBox[{
  3807.                   SuperscriptBox["p1", "\[DoublePrime]",
  3808.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3809.               RowBox[{
  3810.               "4", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  3811.                 \(s2\^2\), " ", 
  3812.                 RowBox[{
  3813.                   SuperscriptBox["p1", "\[DoublePrime]",
  3814.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3815.               RowBox[{
  3816.               "2", " ", \(mu2\^3\), " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  3817.                 RowBox[{
  3818.                   SuperscriptBox["p1", "\[DoublePrime]",
  3819.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3820.               RowBox[{
  3821.               "4", " ", "mu1", " ", \(mu2\^3\), " ", \(s1\^4\), " ", 
  3822.                 \(s2\^2\), " ", 
  3823.                 RowBox[{
  3824.                   SuperscriptBox["p1", "\[DoublePrime]",
  3825.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3826.               RowBox[{
  3827.               "2", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", \(s1\^4\), " ", 
  3828.                 \(s2\^2\), " ", 
  3829.                 RowBox[{
  3830.                   SuperscriptBox["p1", "\[DoublePrime]",
  3831.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3832.               RowBox[{
  3833.               "2", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^2\), 
  3834.                 " ", 
  3835.                 RowBox[{
  3836.                   SuperscriptBox["p1", "\[DoublePrime]",
  3837.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3838.               RowBox[{
  3839.               \(mu1\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  3840.                 RowBox[{
  3841.                   SuperscriptBox["p1", "\[DoublePrime]",
  3842.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3843.               RowBox[{
  3844.               "4", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^2\), 
  3845.                 " ", 
  3846.                 RowBox[{
  3847.                   SuperscriptBox["p1", "\[DoublePrime]",
  3848.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3849.               RowBox[{
  3850.               "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  3851.                 \(s2\^2\), " ", 
  3852.                 RowBox[{
  3853.                   SuperscriptBox["p1", "\[DoublePrime]",
  3854.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3855.               RowBox[{
  3856.               "5", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^4\), 
  3857.                 " ", \(s2\^2\), " ", 
  3858.                 RowBox[{
  3859.                   SuperscriptBox["p1", "\[DoublePrime]",
  3860.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3861.               RowBox[{
  3862.               \(mu2\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  3863.                 RowBox[{
  3864.                   SuperscriptBox["p1", "\[DoublePrime]",
  3865.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3866.               RowBox[{
  3867.               "6", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), 
  3868.                 " ", \(s2\^2\), " ", 
  3869.                 RowBox[{
  3870.                   SuperscriptBox["p1", "\[DoublePrime]",
  3871.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3872.               RowBox[{
  3873.               "7", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  3874.                 \(s1\^4\), " ", \(s2\^2\), " ", 
  3875.                 RowBox[{
  3876.                   SuperscriptBox["p1", "\[DoublePrime]",
  3877.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3878.               RowBox[{
  3879.               "3", " ", \(mu2\^3\), " ", "r", " ", \(s1\^4\), " ", \(s2\^2\), 
  3880.                 " ", 
  3881.                 RowBox[{
  3882.                   SuperscriptBox["p1", "\[DoublePrime]",
  3883.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3884.               RowBox[{
  3885.               "6", " ", "mu1", " ", \(mu2\^3\), " ", "r", " ", \(s1\^4\), 
  3886.                 " ", \(s2\^2\), " ", 
  3887.                 RowBox[{
  3888.                   SuperscriptBox["p1", "\[DoublePrime]",
  3889.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3890.               RowBox[{
  3891.               "3", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", "r", " ", 
  3892.                 \(s1\^4\), " ", \(s2\^2\), " ", 
  3893.                 RowBox[{
  3894.                   SuperscriptBox["p1", "\[DoublePrime]",
  3895.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3896.               RowBox[{
  3897.               "2", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  3898.                 RowBox[{
  3899.                   SuperscriptBox["p1", "\[DoublePrime]",
  3900.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3901.               RowBox[{
  3902.               "4", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^2\), 
  3903.                 " ", 
  3904.                 RowBox[{
  3905.                   SuperscriptBox["p1", "\[DoublePrime]",
  3906.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3907.               RowBox[{
  3908.               "4", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^2\), 
  3909.                 " ", 
  3910.                 RowBox[{
  3911.                   SuperscriptBox["p1", "\[DoublePrime]",
  3912.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3913.               RowBox[{
  3914.               "10", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), 
  3915.                 " ", \(s2\^2\), " ", 
  3916.                 RowBox[{
  3917.                   SuperscriptBox["p1", "\[DoublePrime]",
  3918.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3919.               RowBox[{
  3920.               "6", " ", \(mu2\^2\), " ", \(r\^2\), " ", \(s1\^4\), " ", 
  3921.                 \(s2\^2\), " ", 
  3922.                 RowBox[{
  3923.                   SuperscriptBox["p1", "\[DoublePrime]",
  3924.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3925.               RowBox[{
  3926.               "6", " ", "mu1", " ", \(mu2\^2\), " ", \(r\^2\), " ", 
  3927.                 \(s1\^4\), " ", \(s2\^2\), " ", 
  3928.                 RowBox[{
  3929.                   SuperscriptBox["p1", "\[DoublePrime]",
  3930.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3931.               RowBox[{
  3932.               "3", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  3933.                 RowBox[{
  3934.                   SuperscriptBox["p1", "\[DoublePrime]",
  3935.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3936.               RowBox[{
  3937.               "3", " ", "mu2", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^2\), 
  3938.                 " ", 
  3939.                 RowBox[{
  3940.                   SuperscriptBox["p1", "\[DoublePrime]",
  3941.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3942.               RowBox[{"mu2", " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  3943.                 RowBox[{
  3944.                   SuperscriptBox["p1", "\[DoublePrime]",
  3945.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3946.               RowBox[{
  3947.               "mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  3948.                 RowBox[{
  3949.                   SuperscriptBox["p1", "\[DoublePrime]",
  3950.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3951.               RowBox[{\(mu2\^2\), " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  3952.                 RowBox[{
  3953.                   SuperscriptBox["p1", "\[DoublePrime]",
  3954.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3955.               RowBox[{
  3956.               "mu1", " ", \(mu2\^2\), " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  3957.                 RowBox[{
  3958.                   SuperscriptBox["p1", "\[DoublePrime]",
  3959.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3960.               RowBox[{"r", " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  3961.                 RowBox[{
  3962.                   SuperscriptBox["p1", "\[DoublePrime]",
  3963.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3964.               RowBox[{
  3965.               "2", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^2\), 
  3966.                 " ", 
  3967.                 RowBox[{
  3968.                   SuperscriptBox["p1", "\[DoublePrime]",
  3969.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3970.               RowBox[{
  3971.               "3", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^2\), 
  3972.                 " ", 
  3973.                 RowBox[{
  3974.                   SuperscriptBox["p1", "\[DoublePrime]",
  3975.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3976.               RowBox[{
  3977.               "6", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  3978.                 \(s2\^2\), " ", 
  3979.                 RowBox[{
  3980.                   SuperscriptBox["p1", "\[DoublePrime]",
  3981.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3982.               RowBox[{
  3983.               "4", " ", \(mu2\^2\), " ", "r", " ", \(s1\^5\), " ", \(s2\^2\), 
  3984.                 " ", 
  3985.                 RowBox[{
  3986.                   SuperscriptBox["p1", "\[DoublePrime]",
  3987.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  3988.               RowBox[{
  3989.               "4", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^5\), 
  3990.                 " ", \(s2\^2\), " ", 
  3991.                 RowBox[{
  3992.                   SuperscriptBox["p1", "\[DoublePrime]",
  3993.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3994.               RowBox[{
  3995.               "4", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  3996.                 RowBox[{
  3997.                   SuperscriptBox["p1", "\[DoublePrime]",
  3998.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  3999.               RowBox[{
  4000.               "2", " ", "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^2\), 
  4001.                 " ", 
  4002.                 RowBox[{
  4003.                   SuperscriptBox["p1", "\[DoublePrime]",
  4004.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4005.               RowBox[{
  4006.               "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  4007.                 RowBox[{
  4008.                   SuperscriptBox["p1", "\[DoublePrime]",
  4009.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4010.               RowBox[{
  4011.               "5", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), 
  4012.                 " ", \(s2\^2\), " ", 
  4013.                 RowBox[{
  4014.                   SuperscriptBox["p1", "\[DoublePrime]",
  4015.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4016.               RowBox[{
  4017.               "3", " ", \(mu2\^2\), " ", \(r\^2\), " ", \(s1\^5\), " ", 
  4018.                 \(s2\^2\), " ", 
  4019.                 RowBox[{
  4020.                   SuperscriptBox["p1", "\[DoublePrime]",
  4021.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4022.               RowBox[{
  4023.               "3", " ", "mu1", " ", \(mu2\^2\), " ", \(r\^2\), " ", 
  4024.                 \(s1\^5\), " ", \(s2\^2\), " ", 
  4025.                 RowBox[{
  4026.                   SuperscriptBox["p1", "\[DoublePrime]",
  4027.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4028.               RowBox[{
  4029.               "3", " ", \(r\^3\), " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  4030.                 RowBox[{
  4031.                   SuperscriptBox["p1", "\[DoublePrime]",
  4032.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4033.               RowBox[{
  4034.               "3", " ", "mu2", " ", \(r\^3\), " ", \(s1\^5\), " ", \(s2\^2\), 
  4035.                 " ", 
  4036.                 RowBox[{
  4037.                   SuperscriptBox["p1", "\[DoublePrime]",
  4038.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4039.               RowBox[{"r", " ", \(s1\^6\), " ", \(s2\^2\), " ", 
  4040.                 RowBox[{
  4041.                   SuperscriptBox["p1", "\[DoublePrime]",
  4042.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4043.               RowBox[{"mu2", " ", "r", " ", \(s1\^6\), " ", \(s2\^2\), " ", 
  4044.                 RowBox[{
  4045.                   SuperscriptBox["p1", "\[DoublePrime]",
  4046.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4047.               RowBox[{
  4048.               "2", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^2\), " ", 
  4049.                 RowBox[{
  4050.                   SuperscriptBox["p1", "\[DoublePrime]",
  4051.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4052.               RowBox[{
  4053.               "2", " ", "mu2", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^2\), 
  4054.                 " ", 
  4055.                 RowBox[{
  4056.                   SuperscriptBox["p1", "\[DoublePrime]",
  4057.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4058.               RowBox[{\(r\^3\), " ", \(s1\^6\), " ", \(s2\^2\), " ", 
  4059.                 RowBox[{
  4060.                   SuperscriptBox["p1", "\[DoublePrime]",
  4061.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4062.               RowBox[{
  4063.               "mu2", " ", \(r\^3\), " ", \(s1\^6\), " ", \(s2\^2\), " ", 
  4064.                 RowBox[{
  4065.                   SuperscriptBox["p1", "\[DoublePrime]",
  4066.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4067.               RowBox[{\(mu1\^2\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  4068.                 RowBox[{
  4069.                   SuperscriptBox["p1", "\[DoublePrime]",
  4070.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4071.               RowBox[{\(mu1\^3\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  4072.                 RowBox[{
  4073.                   SuperscriptBox["p1", "\[DoublePrime]",
  4074.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4075.               RowBox[{
  4076.               "4", " ", "mu1", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^3\), 
  4077.                 " ", 
  4078.                 RowBox[{
  4079.                   SuperscriptBox["p1", "\[DoublePrime]",
  4080.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4081.               RowBox[{
  4082.               "7", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", 
  4083.                 \(s2\^3\), " ", 
  4084.                 RowBox[{
  4085.                   SuperscriptBox["p1", "\[DoublePrime]",
  4086.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4087.               RowBox[{
  4088.               "3", " ", \(mu1\^3\), " ", "mu2", " ", \(s1\^3\), " ", 
  4089.                 \(s2\^3\), " ", 
  4090.                 RowBox[{
  4091.                   SuperscriptBox["p1", "\[DoublePrime]",
  4092.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4093.               RowBox[{
  4094.               "3", " ", \(mu2\^2\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  4095.                 RowBox[{
  4096.                   SuperscriptBox["p1", "\[DoublePrime]",
  4097.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4098.               RowBox[{
  4099.               "11", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  4100.                 \(s2\^3\), " ", 
  4101.                 RowBox[{
  4102.                   SuperscriptBox["p1", "\[DoublePrime]",
  4103.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4104.               RowBox[{
  4105.               "11", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  4106.                 \(s2\^3\), " ", 
  4107.                 RowBox[{
  4108.                   SuperscriptBox["p1", "\[DoublePrime]",
  4109.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4110.               RowBox[{
  4111.               "3", " ", \(mu1\^3\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  4112.                 \(s2\^3\), " ", 
  4113.                 RowBox[{
  4114.                   SuperscriptBox["p1", "\[DoublePrime]",
  4115.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4116.               RowBox[{
  4117.               "3", " ", \(mu2\^3\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  4118.                 RowBox[{
  4119.                   SuperscriptBox["p1", "\[DoublePrime]",
  4120.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4121.               RowBox[{
  4122.               "7", " ", "mu1", " ", \(mu2\^3\), " ", \(s1\^3\), " ", 
  4123.                 \(s2\^3\), " ", 
  4124.                 RowBox[{
  4125.                   SuperscriptBox["p1", "\[DoublePrime]",
  4126.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4127.               RowBox[{
  4128.               "5", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", \(s1\^3\), " ", 
  4129.                 \(s2\^3\), " ", 
  4130.                 RowBox[{
  4131.                   SuperscriptBox["p1", "\[DoublePrime]",
  4132.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4133.               RowBox[{
  4134.               \(mu1\^3\), " ", \(mu2\^3\), " ", \(s1\^3\), " ", \(s2\^3\), 
  4135.                 " ", 
  4136.                 RowBox[{
  4137.                   SuperscriptBox["p1", "\[DoublePrime]",
  4138.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4139.               RowBox[{
  4140.               "4", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^3\), 
  4141.                 " ", 
  4142.                 RowBox[{
  4143.                   SuperscriptBox["p1", "\[DoublePrime]",
  4144.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4145.               RowBox[{
  4146.               \(mu1\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  4147.                 RowBox[{
  4148.                   SuperscriptBox["p1", "\[DoublePrime]",
  4149.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4150.               RowBox[{
  4151.               "6", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", \(s2\^3\), 
  4152.                 " ", 
  4153.                 RowBox[{
  4154.                   SuperscriptBox["p1", "\[DoublePrime]",
  4155.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4156.               RowBox[{
  4157.               "8", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  4158.                 \(s2\^3\), " ", 
  4159.                 RowBox[{
  4160.                   SuperscriptBox["p1", "\[DoublePrime]",
  4161.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4162.               RowBox[{
  4163.               \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  4164.                 \(s2\^3\), " ", 
  4165.                 RowBox[{
  4166.                   SuperscriptBox["p1", "\[DoublePrime]",
  4167.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4168.               RowBox[{
  4169.               "3", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^3\), 
  4170.                 " ", 
  4171.                 RowBox[{
  4172.                   SuperscriptBox["p1", "\[DoublePrime]",
  4173.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4174.               RowBox[{
  4175.               "2", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), 
  4176.                 " ", \(s2\^3\), " ", 
  4177.                 RowBox[{
  4178.                   SuperscriptBox["p1", "\[DoublePrime]",
  4179.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4180.               RowBox[{
  4181.               "5", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  4182.                 \(s1\^3\), " ", \(s2\^3\), " ", 
  4183.                 RowBox[{
  4184.                   SuperscriptBox["p1", "\[DoublePrime]",
  4185.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4186.               RowBox[{
  4187.               "3", " ", \(mu2\^3\), " ", "r", " ", \(s1\^3\), " ", \(s2\^3\), 
  4188.                 " ", 
  4189.                 RowBox[{
  4190.                   SuperscriptBox["p1", "\[DoublePrime]",
  4191.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4192.               RowBox[{
  4193.               "6", " ", "mu1", " ", \(mu2\^3\), " ", "r", " ", \(s1\^3\), 
  4194.                 " ", \(s2\^3\), " ", 
  4195.                 RowBox[{
  4196.                   SuperscriptBox["p1", "\[DoublePrime]",
  4197.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4198.               RowBox[{
  4199.               "3", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", "r", " ", 
  4200.                 \(s1\^3\), " ", \(s2\^3\), " ", 
  4201.                 RowBox[{
  4202.                   SuperscriptBox["p1", "\[DoublePrime]",
  4203.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4204.               RowBox[{
  4205.               "3", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  4206.                 RowBox[{
  4207.                   SuperscriptBox["p1", "\[DoublePrime]",
  4208.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4209.               RowBox[{
  4210.               "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^3\), 
  4211.                 " ", 
  4212.                 RowBox[{
  4213.                   SuperscriptBox["p1", "\[DoublePrime]",
  4214.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4215.               RowBox[{
  4216.               "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^3\), 
  4217.                 " ", 
  4218.                 RowBox[{
  4219.                   SuperscriptBox["p1", "\[DoublePrime]",
  4220.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4221.               RowBox[{
  4222.               "9", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), 
  4223.                 " ", \(s2\^3\), " ", 
  4224.                 RowBox[{
  4225.                   SuperscriptBox["p1", "\[DoublePrime]",
  4226.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4227.               RowBox[{
  4228.               "6", " ", \(mu2\^2\), " ", \(r\^2\), " ", \(s1\^3\), " ", 
  4229.                 \(s2\^3\), " ", 
  4230.                 RowBox[{
  4231.                   SuperscriptBox["p1", "\[DoublePrime]",
  4232.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4233.               RowBox[{
  4234.               "6", " ", "mu1", " ", \(mu2\^2\), " ", \(r\^2\), " ", 
  4235.                 \(s1\^3\), " ", \(s2\^3\), " ", 
  4236.                 RowBox[{
  4237.                   SuperscriptBox["p1", "\[DoublePrime]",
  4238.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4239.               RowBox[{
  4240.               "3", " ", \(r\^3\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  4241.                 RowBox[{
  4242.                   SuperscriptBox["p1", "\[DoublePrime]",
  4243.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4244.               RowBox[{
  4245.               "3", " ", "mu2", " ", \(r\^3\), " ", \(s1\^3\), " ", \(s2\^3\), 
  4246.                 " ", 
  4247.                 RowBox[{
  4248.                   SuperscriptBox["p1", "\[DoublePrime]",
  4249.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4250.               RowBox[{"2", " ", "mu1", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  4251.                 RowBox[{
  4252.                   SuperscriptBox["p1", "\[DoublePrime]",
  4253.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4254.               RowBox[{
  4255.               "2", " ", \(mu1\^2\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  4256.                 RowBox[{
  4257.                   SuperscriptBox["p1", "\[DoublePrime]",
  4258.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4259.               RowBox[{"4", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  4260.                 RowBox[{
  4261.                   SuperscriptBox["p1", "\[DoublePrime]",
  4262.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4263.               RowBox[{
  4264.               "6", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^3\), 
  4265.                 " ", 
  4266.                 RowBox[{
  4267.                   SuperscriptBox["p1", "\[DoublePrime]",
  4268.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4269.               RowBox[{
  4270.               "2", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^4\), " ", 
  4271.                 \(s2\^3\), " ", 
  4272.                 RowBox[{
  4273.                   SuperscriptBox["p1", "\[DoublePrime]",
  4274.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4275.               RowBox[{
  4276.               "2", " ", \(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  4277.                 RowBox[{
  4278.                   SuperscriptBox["p1", "\[DoublePrime]",
  4279.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4280.               RowBox[{
  4281.               "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  4282.                 \(s2\^3\), " ", 
  4283.                 RowBox[{
  4284.                   SuperscriptBox["p1", "\[DoublePrime]",
  4285.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4286.               RowBox[{
  4287.               "2", " ", \(mu2\^3\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  4288.                 RowBox[{
  4289.                   SuperscriptBox["p1", "\[DoublePrime]",
  4290.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4291.               RowBox[{
  4292.               "4", " ", "mu1", " ", \(mu2\^3\), " ", \(s1\^4\), " ", 
  4293.                 \(s2\^3\), " ", 
  4294.                 RowBox[{
  4295.                   SuperscriptBox["p1", "\[DoublePrime]",
  4296.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4297.               RowBox[{
  4298.               "2", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", \(s1\^4\), " ", 
  4299.                 \(s2\^3\), " ", 
  4300.                 RowBox[{
  4301.                   SuperscriptBox["p1", "\[DoublePrime]",
  4302.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4303.               RowBox[{"4", " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  4304.                 RowBox[{
  4305.                   SuperscriptBox["p1", "\[DoublePrime]",
  4306.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4307.               RowBox[{
  4308.               "6", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), 
  4309.                 " ", 
  4310.                 RowBox[{
  4311.                   SuperscriptBox["p1", "\[DoublePrime]",
  4312.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4313.               RowBox[{
  4314.               \(mu1\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  4315.                 RowBox[{
  4316.                   SuperscriptBox["p1", "\[DoublePrime]",
  4317.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4318.               RowBox[{
  4319.               "10", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), 
  4320.                 " ", 
  4321.                 RowBox[{
  4322.                   SuperscriptBox["p1", "\[DoublePrime]",
  4323.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4324.               RowBox[{
  4325.               "18", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  4326.                 \(s2\^3\), " ", 
  4327.                 RowBox[{
  4328.                   SuperscriptBox["p1", "\[DoublePrime]",
  4329.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4330.               RowBox[{
  4331.               \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  4332.                 \(s2\^3\), " ", 
  4333.                 RowBox[{
  4334.                   SuperscriptBox["p1", "\[DoublePrime]",
  4335.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4336.               RowBox[{
  4337.               "11", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), " ", 
  4338.                 \(s2\^3\), " ", 
  4339.                 RowBox[{
  4340.                   SuperscriptBox["p1", "\[DoublePrime]",
  4341.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4342.               RowBox[{
  4343.               "6", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), 
  4344.                 " ", \(s2\^3\), " ", 
  4345.                 RowBox[{
  4346.                   SuperscriptBox["p1", "\[DoublePrime]",
  4347.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4348.               RowBox[{
  4349.               "5", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  4350.                 \(s1\^4\), " ", \(s2\^3\), " ", 
  4351.                 RowBox[{
  4352.                   SuperscriptBox["p1", "\[DoublePrime]",
  4353.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4354.               RowBox[{
  4355.               "3", " ", \(mu2\^3\), " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), 
  4356.                 " ", 
  4357.                 RowBox[{
  4358.                   SuperscriptBox["p1", "\[DoublePrime]",
  4359.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4360.               RowBox[{
  4361.               "6", " ", "mu1", " ", \(mu2\^3\), " ", "r", " ", \(s1\^4\), 
  4362.                 " ", \(s2\^3\), " ", 
  4363.                 RowBox[{
  4364.                   SuperscriptBox["p1", "\[DoublePrime]",
  4365.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4366.               RowBox[{
  4367.               "3", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", "r", " ", 
  4368.                 \(s1\^4\), " ", \(s2\^3\), " ", 
  4369.                 RowBox[{
  4370.                   SuperscriptBox["p1", "\[DoublePrime]",
  4371.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4372.               RowBox[{
  4373.               "12", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  4374.                 RowBox[{
  4375.                   SuperscriptBox["p1", "\[DoublePrime]",
  4376.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4377.               RowBox[{
  4378.               "6", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^3\), 
  4379.                 " ", 
  4380.                 RowBox[{
  4381.                   SuperscriptBox["p1", "\[DoublePrime]",
  4382.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4383.               RowBox[{
  4384.               "18", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), 
  4385.                 " ", \(s2\^3\), " ", 
  4386.                 RowBox[{
  4387.                   SuperscriptBox["p1", "\[DoublePrime]",
  4388.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4389.               RowBox[{
  4390.               "12", " ", \(mu2\^2\), " ", \(r\^2\), " ", \(s1\^4\), " ", 
  4391.                 \(s2\^3\), " ", 
  4392.                 RowBox[{
  4393.                   SuperscriptBox["p1", "\[DoublePrime]",
  4394.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4395.               RowBox[{
  4396.               "12", " ", "mu1", " ", \(mu2\^2\), " ", \(r\^2\), " ", 
  4397.                 \(s1\^4\), " ", \(s2\^3\), " ", 
  4398.                 RowBox[{
  4399.                   SuperscriptBox["p1", "\[DoublePrime]",
  4400.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4401.               RowBox[{
  4402.               "9", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  4403.                 RowBox[{
  4404.                   SuperscriptBox["p1", "\[DoublePrime]",
  4405.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4406.               RowBox[{
  4407.               "9", " ", "mu2", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^3\), 
  4408.                 " ", 
  4409.                 RowBox[{
  4410.                   SuperscriptBox["p1", "\[DoublePrime]",
  4411.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4412.               RowBox[{\(s1\^5\), " ", \(s2\^3\), " ", 
  4413.                 RowBox[{
  4414.                   SuperscriptBox["p1", "\[DoublePrime]",
  4415.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4416.               RowBox[{"mu1", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  4417.                 RowBox[{
  4418.                   SuperscriptBox["p1", "\[DoublePrime]",
  4419.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4420.               RowBox[{"mu2", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  4421.                 RowBox[{
  4422.                   SuperscriptBox["p1", "\[DoublePrime]",
  4423.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4424.               RowBox[{
  4425.               "mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  4426.                 RowBox[{
  4427.                   SuperscriptBox["p1", "\[DoublePrime]",
  4428.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4429.               RowBox[{
  4430.               "2", " ", \(mu2\^2\), " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  4431.                 RowBox[{
  4432.                   SuperscriptBox["p1", "\[DoublePrime]",
  4433.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4434.               RowBox[{
  4435.               "2", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^5\), " ", 
  4436.                 \(s2\^3\), " ", 
  4437.                 RowBox[{
  4438.                   SuperscriptBox["p1", "\[DoublePrime]",
  4439.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4440.               RowBox[{"7", " ", "r", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  4441.                 RowBox[{
  4442.                   SuperscriptBox["p1", "\[DoublePrime]",
  4443.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4444.               RowBox[{
  4445.               "2", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^3\), 
  4446.                 " ", 
  4447.                 RowBox[{
  4448.                   SuperscriptBox["p1", "\[DoublePrime]",
  4449.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4450.               RowBox[{"mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  4451.                 RowBox[{
  4452.                   SuperscriptBox["p1", "\[DoublePrime]",
  4453.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4454.               RowBox[{
  4455.               "10", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  4456.                 \(s2\^3\), " ", 
  4457.                 RowBox[{
  4458.                   SuperscriptBox["p1", "\[DoublePrime]",
  4459.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4460.               RowBox[{
  4461.               "8", " ", \(mu2\^2\), " ", "r", " ", \(s1\^5\), " ", \(s2\^3\), 
  4462.                 " ", 
  4463.                 RowBox[{
  4464.                   SuperscriptBox["p1", "\[DoublePrime]",
  4465.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4466.               RowBox[{
  4467.               "8", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^5\), 
  4468.                 " ", \(s2\^3\), " ", 
  4469.                 RowBox[{
  4470.                   SuperscriptBox["p1", "\[DoublePrime]",
  4471.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4472.               RowBox[{
  4473.               "15", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  4474.                 RowBox[{
  4475.                   SuperscriptBox["p1", "\[DoublePrime]",
  4476.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4477.               RowBox[{
  4478.               "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^3\), 
  4479.                 " ", 
  4480.                 RowBox[{
  4481.                   SuperscriptBox["p1", "\[DoublePrime]",
  4482.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4483.               RowBox[{
  4484.               "9", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^3\), 
  4485.                 " ", 
  4486.                 RowBox[{
  4487.                   SuperscriptBox["p1", "\[DoublePrime]",
  4488.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4489.               RowBox[{
  4490.               "9", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), 
  4491.                 " ", \(s2\^3\), " ", 
  4492.                 RowBox[{
  4493.                   SuperscriptBox["p1", "\[DoublePrime]",
  4494.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4495.               RowBox[{
  4496.               "6", " ", \(mu2\^2\), " ", \(r\^2\), " ", \(s1\^5\), " ", 
  4497.                 \(s2\^3\), " ", 
  4498.                 RowBox[{
  4499.                   SuperscriptBox["p1", "\[DoublePrime]",
  4500.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4501.               RowBox[{
  4502.               "6", " ", "mu1", " ", \(mu2\^2\), " ", \(r\^2\), " ", 
  4503.                 \(s1\^5\), " ", \(s2\^3\), " ", 
  4504.                 RowBox[{
  4505.                   SuperscriptBox["p1", "\[DoublePrime]",
  4506.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4507.               RowBox[{
  4508.               "9", " ", \(r\^3\), " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  4509.                 RowBox[{
  4510.                   SuperscriptBox["p1", "\[DoublePrime]",
  4511.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4512.               RowBox[{
  4513.               "9", " ", "mu2", " ", \(r\^3\), " ", \(s1\^5\), " ", \(s2\^3\), 
  4514.                 " ", 
  4515.                 RowBox[{
  4516.                   SuperscriptBox["p1", "\[DoublePrime]",
  4517.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4518.               RowBox[{"3", " ", "r", " ", \(s1\^6\), " ", \(s2\^3\), " ", 
  4519.                 RowBox[{
  4520.                   SuperscriptBox["p1", "\[DoublePrime]",
  4521.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4522.               RowBox[{
  4523.               "3", " ", "mu2", " ", "r", " ", \(s1\^6\), " ", \(s2\^3\), 
  4524.                 " ", 
  4525.                 RowBox[{
  4526.                   SuperscriptBox["p1", "\[DoublePrime]",
  4527.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4528.               RowBox[{
  4529.               "6", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^3\), " ", 
  4530.                 RowBox[{
  4531.                   SuperscriptBox["p1", "\[DoublePrime]",
  4532.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4533.               RowBox[{
  4534.               "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^3\), 
  4535.                 " ", 
  4536.                 RowBox[{
  4537.                   SuperscriptBox["p1", "\[DoublePrime]",
  4538.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4539.               RowBox[{
  4540.               "3", " ", \(r\^3\), " ", \(s1\^6\), " ", \(s2\^3\), " ", 
  4541.                 RowBox[{
  4542.                   SuperscriptBox["p1", "\[DoublePrime]",
  4543.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4544.               RowBox[{
  4545.               "3", " ", "mu2", " ", \(r\^3\), " ", \(s1\^6\), " ", \(s2\^3\), 
  4546.                 " ", 
  4547.                 RowBox[{
  4548.                   SuperscriptBox["p1", "\[DoublePrime]",
  4549.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4550.               RowBox[{"2", " ", "mu1", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  4551.                 RowBox[{
  4552.                   SuperscriptBox["p1", "\[DoublePrime]",
  4553.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4554.               RowBox[{
  4555.               "2", " ", \(mu1\^2\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  4556.                 RowBox[{
  4557.                   SuperscriptBox["p1", "\[DoublePrime]",
  4558.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4559.               RowBox[{"3", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  4560.                 RowBox[{
  4561.                   SuperscriptBox["p1", "\[DoublePrime]",
  4562.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4563.               RowBox[{
  4564.               "7", " ", "mu1", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^4\), 
  4565.                 " ", 
  4566.                 RowBox[{
  4567.                   SuperscriptBox["p1", "\[DoublePrime]",
  4568.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4569.               RowBox[{
  4570.               "4", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", 
  4571.                 \(s2\^4\), " ", 
  4572.                 RowBox[{
  4573.                   SuperscriptBox["p1", "\[DoublePrime]",
  4574.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4575.               RowBox[{
  4576.               "3", " ", \(mu2\^2\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  4577.                 RowBox[{
  4578.                   SuperscriptBox["p1", "\[DoublePrime]",
  4579.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4580.               RowBox[{
  4581.               "5", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  4582.                 \(s2\^4\), " ", 
  4583.                 RowBox[{
  4584.                   SuperscriptBox["p1", "\[DoublePrime]",
  4585.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4586.               RowBox[{
  4587.               "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  4588.                 \(s2\^4\), " ", 
  4589.                 RowBox[{
  4590.                   SuperscriptBox["p1", "\[DoublePrime]",
  4591.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4592.               RowBox[{"3", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  4593.                 RowBox[{
  4594.                   SuperscriptBox["p1", "\[DoublePrime]",
  4595.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4596.               RowBox[{
  4597.               "2", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), 
  4598.                 " ", 
  4599.                 RowBox[{
  4600.                   SuperscriptBox["p1", "\[DoublePrime]",
  4601.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4602.               RowBox[{
  4603.               "2", " ", \(mu1\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), 
  4604.                 " ", 
  4605.                 RowBox[{
  4606.                   SuperscriptBox["p1", "\[DoublePrime]",
  4607.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4608.               RowBox[{
  4609.               "3", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), 
  4610.                 " ", 
  4611.                 RowBox[{
  4612.                   SuperscriptBox["p1", "\[DoublePrime]",
  4613.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4614.               RowBox[{
  4615.               "10", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  4616.                 \(s2\^4\), " ", 
  4617.                 RowBox[{
  4618.                   SuperscriptBox["p1", "\[DoublePrime]",
  4619.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4620.               RowBox[{
  4621.               "4", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^3\), 
  4622.                 " ", \(s2\^4\), " ", 
  4623.                 RowBox[{
  4624.                   SuperscriptBox["p1", "\[DoublePrime]",
  4625.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4626.               RowBox[{
  4627.               "6", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), 
  4628.                 " ", 
  4629.                 RowBox[{
  4630.                   SuperscriptBox["p1", "\[DoublePrime]",
  4631.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4632.               RowBox[{
  4633.               "8", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), 
  4634.                 " ", \(s2\^4\), " ", 
  4635.                 RowBox[{
  4636.                   SuperscriptBox["p1", "\[DoublePrime]",
  4637.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4638.               RowBox[{
  4639.               "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  4640.                 \(s1\^3\), " ", \(s2\^4\), " ", 
  4641.                 RowBox[{
  4642.                   SuperscriptBox["p1", "\[DoublePrime]",
  4643.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4644.               RowBox[{
  4645.               "6", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  4646.                 RowBox[{
  4647.                   SuperscriptBox["p1", "\[DoublePrime]",
  4648.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4649.               RowBox[{
  4650.               "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^4\), 
  4651.                 " ", 
  4652.                 RowBox[{
  4653.                   SuperscriptBox["p1", "\[DoublePrime]",
  4654.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4655.               RowBox[{
  4656.               "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), 
  4657.                 " ", \(s2\^4\), " ", 
  4658.                 RowBox[{
  4659.                   SuperscriptBox["p1", "\[DoublePrime]",
  4660.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4661.               RowBox[{
  4662.               "3", " ", \(mu2\^2\), " ", \(r\^2\), " ", \(s1\^3\), " ", 
  4663.                 \(s2\^4\), " ", 
  4664.                 RowBox[{
  4665.                   SuperscriptBox["p1", "\[DoublePrime]",
  4666.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4667.               RowBox[{
  4668.               "3", " ", "mu1", " ", \(mu2\^2\), " ", \(r\^2\), " ", 
  4669.                 \(s1\^3\), " ", \(s2\^4\), " ", 
  4670.                 RowBox[{
  4671.                   SuperscriptBox["p1", "\[DoublePrime]",
  4672.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4673.               RowBox[{
  4674.               "3", " ", \(r\^3\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  4675.                 RowBox[{
  4676.                   SuperscriptBox["p1", "\[DoublePrime]",
  4677.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4678.               RowBox[{
  4679.               "3", " ", "mu2", " ", \(r\^3\), " ", \(s1\^3\), " ", \(s2\^4\), 
  4680.                 " ", 
  4681.                 RowBox[{
  4682.                   SuperscriptBox["p1", "\[DoublePrime]",
  4683.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4684.               RowBox[{"2", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  4685.                 RowBox[{
  4686.                   SuperscriptBox["p1", "\[DoublePrime]",
  4687.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4688.               RowBox[{
  4689.               "2", " ", \(mu1\^2\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  4690.                 RowBox[{
  4691.                   SuperscriptBox["p1", "\[DoublePrime]",
  4692.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4693.               RowBox[{"2", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  4694.                 RowBox[{
  4695.                   SuperscriptBox["p1", "\[DoublePrime]",
  4696.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4697.               RowBox[{
  4698.               "6", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^4\), 
  4699.                 " ", 
  4700.                 RowBox[{
  4701.                   SuperscriptBox["p1", "\[DoublePrime]",
  4702.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4703.               RowBox[{
  4704.               "4", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^4\), " ", 
  4705.                 \(s2\^4\), " ", 
  4706.                 RowBox[{
  4707.                   SuperscriptBox["p1", "\[DoublePrime]",
  4708.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4709.               RowBox[{
  4710.               "4", " ", \(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  4711.                 RowBox[{
  4712.                   SuperscriptBox["p1", "\[DoublePrime]",
  4713.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4714.               RowBox[{
  4715.               "6", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  4716.                 \(s2\^4\), " ", 
  4717.                 RowBox[{
  4718.                   SuperscriptBox["p1", "\[DoublePrime]",
  4719.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4720.               RowBox[{
  4721.               "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  4722.                 \(s2\^4\), " ", 
  4723.                 RowBox[{
  4724.                   SuperscriptBox["p1", "\[DoublePrime]",
  4725.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4726.               RowBox[{"11", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  4727.                 RowBox[{
  4728.                   SuperscriptBox["p1", "\[DoublePrime]",
  4729.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4730.               RowBox[{
  4731.               "2", " ", \(mu1\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), 
  4732.                 " ", 
  4733.                 RowBox[{
  4734.                   SuperscriptBox["p1", "\[DoublePrime]",
  4735.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4736.               RowBox[{"mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  4737.                 RowBox[{
  4738.                   SuperscriptBox["p1", "\[DoublePrime]",
  4739.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4740.               RowBox[{
  4741.               "12", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  4742.                 \(s2\^4\), " ", 
  4743.                 RowBox[{
  4744.                   SuperscriptBox["p1", "\[DoublePrime]",
  4745.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4746.               RowBox[{
  4747.               "4", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^4\), 
  4748.                 " ", \(s2\^4\), " ", 
  4749.                 RowBox[{
  4750.                   SuperscriptBox["p1", "\[DoublePrime]",
  4751.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4752.               RowBox[{
  4753.               "10", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), " ", 
  4754.                 \(s2\^4\), " ", 
  4755.                 RowBox[{
  4756.                   SuperscriptBox["p1", "\[DoublePrime]",
  4757.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4758.               RowBox[{
  4759.               "12", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), 
  4760.                 " ", \(s2\^4\), " ", 
  4761.                 RowBox[{
  4762.                   SuperscriptBox["p1", "\[DoublePrime]",
  4763.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4764.               RowBox[{
  4765.               "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  4766.                 \(s1\^4\), " ", \(s2\^4\), " ", 
  4767.                 RowBox[{
  4768.                   SuperscriptBox["p1", "\[DoublePrime]",
  4769.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4770.               RowBox[{
  4771.               "18", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  4772.                 RowBox[{
  4773.                   SuperscriptBox["p1", "\[DoublePrime]",
  4774.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4775.               RowBox[{
  4776.               "12", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  4777.                 \(s2\^4\), " ", 
  4778.                 RowBox[{
  4779.                   SuperscriptBox["p1", "\[DoublePrime]",
  4780.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4781.               RowBox[{
  4782.               "6", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), 
  4783.                 " ", \(s2\^4\), " ", 
  4784.                 RowBox[{
  4785.                   SuperscriptBox["p1", "\[DoublePrime]",
  4786.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4787.               RowBox[{
  4788.               "6", " ", \(mu2\^2\), " ", \(r\^2\), " ", \(s1\^4\), " ", 
  4789.                 \(s2\^4\), " ", 
  4790.                 RowBox[{
  4791.                   SuperscriptBox["p1", "\[DoublePrime]",
  4792.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4793.               RowBox[{
  4794.               "6", " ", "mu1", " ", \(mu2\^2\), " ", \(r\^2\), " ", 
  4795.                 \(s1\^4\), " ", \(s2\^4\), " ", 
  4796.                 RowBox[{
  4797.                   SuperscriptBox["p1", "\[DoublePrime]",
  4798.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4799.               RowBox[{
  4800.               "9", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  4801.                 RowBox[{
  4802.                   SuperscriptBox["p1", "\[DoublePrime]",
  4803.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4804.               RowBox[{
  4805.               "9", " ", "mu2", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^4\), 
  4806.                 " ", 
  4807.                 RowBox[{
  4808.                   SuperscriptBox["p1", "\[DoublePrime]",
  4809.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4810.               RowBox[{"2", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  4811.                 RowBox[{
  4812.                   SuperscriptBox["p1", "\[DoublePrime]",
  4813.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4814.               RowBox[{"2", " ", "mu1", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  4815.                 RowBox[{
  4816.                   SuperscriptBox["p1", "\[DoublePrime]",
  4817.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4818.               RowBox[{"mu2", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  4819.                 RowBox[{
  4820.                   SuperscriptBox["p1", "\[DoublePrime]",
  4821.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4822.               RowBox[{
  4823.               "mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  4824.                 RowBox[{
  4825.                   SuperscriptBox["p1", "\[DoublePrime]",
  4826.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4827.               RowBox[{\(mu2\^2\), " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  4828.                 RowBox[{
  4829.                   SuperscriptBox["p1", "\[DoublePrime]",
  4830.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4831.               RowBox[{
  4832.               "mu1", " ", \(mu2\^2\), " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  4833.                 RowBox[{
  4834.                   SuperscriptBox["p1", "\[DoublePrime]",
  4835.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4836.               RowBox[{"11", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  4837.                 RowBox[{
  4838.                   SuperscriptBox["p1", "\[DoublePrime]",
  4839.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4840.               RowBox[{
  4841.               "2", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), 
  4842.                 " ", 
  4843.                 RowBox[{
  4844.                   SuperscriptBox["p1", "\[DoublePrime]",
  4845.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4846.               RowBox[{
  4847.               "7", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), 
  4848.                 " ", 
  4849.                 RowBox[{
  4850.                   SuperscriptBox["p1", "\[DoublePrime]",
  4851.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4852.               RowBox[{
  4853.               "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  4854.                 \(s2\^4\), " ", 
  4855.                 RowBox[{
  4856.                   SuperscriptBox["p1", "\[DoublePrime]",
  4857.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4858.               RowBox[{
  4859.               "4", " ", \(mu2\^2\), " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), 
  4860.                 " ", 
  4861.                 RowBox[{
  4862.                   SuperscriptBox["p1", "\[DoublePrime]",
  4863.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4864.               RowBox[{
  4865.               "4", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^5\), 
  4866.                 " ", \(s2\^4\), " ", 
  4867.                 RowBox[{
  4868.                   SuperscriptBox["p1", "\[DoublePrime]",
  4869.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4870.               RowBox[{
  4871.               "18", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  4872.                 RowBox[{
  4873.                   SuperscriptBox["p1", "\[DoublePrime]",
  4874.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4875.               RowBox[{
  4876.               "15", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", 
  4877.                 \(s2\^4\), " ", 
  4878.                 RowBox[{
  4879.                   SuperscriptBox["p1", "\[DoublePrime]",
  4880.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4881.               RowBox[{
  4882.               "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), 
  4883.                 " ", \(s2\^4\), " ", 
  4884.                 RowBox[{
  4885.                   SuperscriptBox["p1", "\[DoublePrime]",
  4886.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4887.               RowBox[{
  4888.               "3", " ", \(mu2\^2\), " ", \(r\^2\), " ", \(s1\^5\), " ", 
  4889.                 \(s2\^4\), " ", 
  4890.                 RowBox[{
  4891.                   SuperscriptBox["p1", "\[DoublePrime]",
  4892.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4893.               RowBox[{
  4894.               "3", " ", "mu1", " ", \(mu2\^2\), " ", \(r\^2\), " ", 
  4895.                 \(s1\^5\), " ", \(s2\^4\), " ", 
  4896.                 RowBox[{
  4897.                   SuperscriptBox["p1", "\[DoublePrime]",
  4898.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4899.               RowBox[{
  4900.               "9", " ", \(r\^3\), " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  4901.                 RowBox[{
  4902.                   SuperscriptBox["p1", "\[DoublePrime]",
  4903.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4904.               RowBox[{
  4905.               "9", " ", "mu2", " ", \(r\^3\), " ", \(s1\^5\), " ", \(s2\^4\), 
  4906.                 " ", 
  4907.                 RowBox[{
  4908.                   SuperscriptBox["p1", "\[DoublePrime]",
  4909.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4910.               RowBox[{"3", " ", "r", " ", \(s1\^6\), " ", \(s2\^4\), " ", 
  4911.                 RowBox[{
  4912.                   SuperscriptBox["p1", "\[DoublePrime]",
  4913.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4914.               RowBox[{
  4915.               "3", " ", "mu2", " ", "r", " ", \(s1\^6\), " ", \(s2\^4\), 
  4916.                 " ", 
  4917.                 RowBox[{
  4918.                   SuperscriptBox["p1", "\[DoublePrime]",
  4919.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4920.               RowBox[{
  4921.               "6", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^4\), " ", 
  4922.                 RowBox[{
  4923.                   SuperscriptBox["p1", "\[DoublePrime]",
  4924.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4925.               RowBox[{
  4926.               "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^4\), 
  4927.                 " ", 
  4928.                 RowBox[{
  4929.                   SuperscriptBox["p1", "\[DoublePrime]",
  4930.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4931.               RowBox[{
  4932.               "3", " ", \(r\^3\), " ", \(s1\^6\), " ", \(s2\^4\), " ", 
  4933.                 RowBox[{
  4934.                   SuperscriptBox["p1", "\[DoublePrime]",
  4935.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4936.               RowBox[{
  4937.               "3", " ", "mu2", " ", \(r\^3\), " ", \(s1\^6\), " ", \(s2\^4\), 
  4938.                 " ", 
  4939.                 RowBox[{
  4940.                   SuperscriptBox["p1", "\[DoublePrime]",
  4941.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4942.               RowBox[{\(s1\^3\), " ", \(s2\^5\), " ", 
  4943.                 RowBox[{
  4944.                   SuperscriptBox["p1", "\[DoublePrime]",
  4945.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4946.               RowBox[{"mu1", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  4947.                 RowBox[{
  4948.                   SuperscriptBox["p1", "\[DoublePrime]",
  4949.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4950.               RowBox[{"mu2", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  4951.                 RowBox[{
  4952.                   SuperscriptBox["p1", "\[DoublePrime]",
  4953.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4954.               RowBox[{
  4955.               "mu1", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  4956.                 RowBox[{
  4957.                   SuperscriptBox["p1", "\[DoublePrime]",
  4958.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4959.               RowBox[{"3", " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  4960.                 RowBox[{
  4961.                   SuperscriptBox["p1", "\[DoublePrime]",
  4962.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4963.               RowBox[{
  4964.               "2", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), 
  4965.                 " ", 
  4966.                 RowBox[{
  4967.                   SuperscriptBox["p1", "\[DoublePrime]",
  4968.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4969.               RowBox[{
  4970.               "3", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), 
  4971.                 " ", 
  4972.                 RowBox[{
  4973.                   SuperscriptBox["p1", "\[DoublePrime]",
  4974.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4975.               RowBox[{
  4976.               "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  4977.                 \(s2\^5\), " ", 
  4978.                 RowBox[{
  4979.                   SuperscriptBox["p1", "\[DoublePrime]",
  4980.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4981.               RowBox[{
  4982.               "3", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  4983.                 RowBox[{
  4984.                   SuperscriptBox["p1", "\[DoublePrime]",
  4985.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4986.               RowBox[{
  4987.               "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  4988.                 RowBox[{
  4989.                   SuperscriptBox["p1", "\[DoublePrime]",
  4990.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  4991.               RowBox[{
  4992.               "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^5\), 
  4993.                 " ", 
  4994.                 RowBox[{
  4995.                   SuperscriptBox["p1", "\[DoublePrime]",
  4996.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  4997.               RowBox[{
  4998.               "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  4999.                 \(s2\^5\), " ", 
  5000.                 RowBox[{
  5001.                   SuperscriptBox["p1", "\[DoublePrime]",
  5002.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5003.               RowBox[{\(r\^3\), " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  5004.                 RowBox[{
  5005.                   SuperscriptBox["p1", "\[DoublePrime]",
  5006.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5007.               RowBox[{
  5008.               "mu2", " ", \(r\^3\), " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  5009.                 RowBox[{
  5010.                   SuperscriptBox["p1", "\[DoublePrime]",
  5011.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5012.               RowBox[{"2", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  5013.                 RowBox[{
  5014.                   SuperscriptBox["p1", "\[DoublePrime]",
  5015.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5016.               RowBox[{"2", " ", "mu1", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  5017.                 RowBox[{
  5018.                   SuperscriptBox["p1", "\[DoublePrime]",
  5019.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5020.               RowBox[{"2", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  5021.                 RowBox[{
  5022.                   SuperscriptBox["p1", "\[DoublePrime]",
  5023.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5024.               RowBox[{
  5025.               "2", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^5\), 
  5026.                 " ", 
  5027.                 RowBox[{
  5028.                   SuperscriptBox["p1", "\[DoublePrime]",
  5029.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5030.               RowBox[{"7", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  5031.                 RowBox[{
  5032.                   SuperscriptBox["p1", "\[DoublePrime]",
  5033.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5034.               RowBox[{
  5035.               "4", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), 
  5036.                 " ", 
  5037.                 RowBox[{
  5038.                   SuperscriptBox["p1", "\[DoublePrime]",
  5039.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5040.               RowBox[{
  5041.               "7", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), 
  5042.                 " ", 
  5043.                 RowBox[{
  5044.                   SuperscriptBox["p1", "\[DoublePrime]",
  5045.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5046.               RowBox[{
  5047.               "4", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  5048.                 \(s2\^5\), " ", 
  5049.                 RowBox[{
  5050.                   SuperscriptBox["p1", "\[DoublePrime]",
  5051.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5052.               RowBox[{
  5053.               "8", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  5054.                 RowBox[{
  5055.                   SuperscriptBox["p1", "\[DoublePrime]",
  5056.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5057.               RowBox[{
  5058.               "2", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^5\), 
  5059.                 " ", 
  5060.                 RowBox[{
  5061.                   SuperscriptBox["p1", "\[DoublePrime]",
  5062.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5063.               RowBox[{
  5064.               "8", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^5\), 
  5065.                 " ", 
  5066.                 RowBox[{
  5067.                   SuperscriptBox["p1", "\[DoublePrime]",
  5068.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5069.               RowBox[{
  5070.               "2", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), 
  5071.                 " ", \(s2\^5\), " ", 
  5072.                 RowBox[{
  5073.                   SuperscriptBox["p1", "\[DoublePrime]",
  5074.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5075.               RowBox[{
  5076.               "3", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  5077.                 RowBox[{
  5078.                   SuperscriptBox["p1", "\[DoublePrime]",
  5079.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5080.               RowBox[{
  5081.               "3", " ", "mu2", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^5\), 
  5082.                 " ", 
  5083.                 RowBox[{
  5084.                   SuperscriptBox["p1", "\[DoublePrime]",
  5085.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5086.               RowBox[{\(s1\^5\), " ", \(s2\^5\), " ", 
  5087.                 RowBox[{
  5088.                   SuperscriptBox["p1", "\[DoublePrime]",
  5089.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5090.               RowBox[{"mu1", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  5091.                 RowBox[{
  5092.                   SuperscriptBox["p1", "\[DoublePrime]",
  5093.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5094.               RowBox[{"mu2", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  5095.                 RowBox[{
  5096.                   SuperscriptBox["p1", "\[DoublePrime]",
  5097.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5098.               RowBox[{
  5099.               "mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  5100.                 RowBox[{
  5101.                   SuperscriptBox["p1", "\[DoublePrime]",
  5102.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5103.               RowBox[{"5", " ", "r", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  5104.                 RowBox[{
  5105.                   SuperscriptBox["p1", "\[DoublePrime]",
  5106.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5107.               RowBox[{
  5108.               "2", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^5\), 
  5109.                 " ", 
  5110.                 RowBox[{
  5111.                   SuperscriptBox["p1", "\[DoublePrime]",
  5112.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5113.               RowBox[{
  5114.               "5", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^5\), 
  5115.                 " ", 
  5116.                 RowBox[{
  5117.                   SuperscriptBox["p1", "\[DoublePrime]",
  5118.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5119.               RowBox[{
  5120.               "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  5121.                 \(s2\^5\), " ", 
  5122.                 RowBox[{
  5123.                   SuperscriptBox["p1", "\[DoublePrime]",
  5124.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5125.               RowBox[{
  5126.               "7", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  5127.                 RowBox[{
  5128.                   SuperscriptBox["p1", "\[DoublePrime]",
  5129.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5130.               RowBox[{
  5131.               "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  5132.                 RowBox[{
  5133.                   SuperscriptBox["p1", "\[DoublePrime]",
  5134.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5135.               RowBox[{
  5136.               "7", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), 
  5137.                 " ", 
  5138.                 RowBox[{
  5139.                   SuperscriptBox["p1", "\[DoublePrime]",
  5140.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5141.               RowBox[{
  5142.               "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", 
  5143.                 \(s2\^5\), " ", 
  5144.                 RowBox[{
  5145.                   SuperscriptBox["p1", "\[DoublePrime]",
  5146.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5147.               RowBox[{
  5148.               "3", " ", \(r\^3\), " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  5149.                 RowBox[{
  5150.                   SuperscriptBox["p1", "\[DoublePrime]",
  5151.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5152.               RowBox[{
  5153.               "3", " ", "mu2", " ", \(r\^3\), " ", \(s1\^5\), " ", \(s2\^5\), 
  5154.                 " ", 
  5155.                 RowBox[{
  5156.                   SuperscriptBox["p1", "\[DoublePrime]",
  5157.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5158.               RowBox[{"r", " ", \(s1\^6\), " ", \(s2\^5\), " ", 
  5159.                 RowBox[{
  5160.                   SuperscriptBox["p1", "\[DoublePrime]",
  5161.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5162.               RowBox[{"mu2", " ", "r", " ", \(s1\^6\), " ", \(s2\^5\), " ", 
  5163.                 RowBox[{
  5164.                   SuperscriptBox["p1", "\[DoublePrime]",
  5165.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5166.               RowBox[{
  5167.               "2", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^5\), " ", 
  5168.                 RowBox[{
  5169.                   SuperscriptBox["p1", "\[DoublePrime]",
  5170.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5171.               RowBox[{
  5172.               "2", " ", "mu2", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^5\), 
  5173.                 " ", 
  5174.                 RowBox[{
  5175.                   SuperscriptBox["p1", "\[DoublePrime]",
  5176.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5177.               RowBox[{\(r\^3\), " ", \(s1\^6\), " ", \(s2\^5\), " ", 
  5178.                 RowBox[{
  5179.                   SuperscriptBox["p1", "\[DoublePrime]",
  5180.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5181.               RowBox[{
  5182.               "mu2", " ", \(r\^3\), " ", \(s1\^6\), " ", \(s2\^5\), " ", 
  5183.                 RowBox[{
  5184.                   SuperscriptBox["p1", "\[DoublePrime]",
  5185.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5186.               RowBox[{
  5187.               \(mu1\^2\), " ", "mu2", " ", \(s1\^2\), " ", \(s2\^3\), " ", 
  5188.                 RowBox[{
  5189.                   SuperscriptBox["p2", "\[DoublePrime]",
  5190.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5191.               RowBox[{
  5192.               \(mu1\^3\), " ", "mu2", " ", \(s1\^2\), " ", \(s2\^3\), " ", 
  5193.                 RowBox[{
  5194.                   SuperscriptBox["p2", "\[DoublePrime]",
  5195.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5196.               RowBox[{
  5197.               "2", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^2\), " ", 
  5198.                 \(s2\^3\), " ", 
  5199.                 RowBox[{
  5200.                   SuperscriptBox["p2", "\[DoublePrime]",
  5201.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5202.               RowBox[{
  5203.               "4", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^2\), " ", 
  5204.                 \(s2\^3\), " ", 
  5205.                 RowBox[{
  5206.                   SuperscriptBox["p2", "\[DoublePrime]",
  5207.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5208.               RowBox[{
  5209.               "2", " ", \(mu1\^3\), " ", \(mu2\^2\), " ", \(s1\^2\), " ", 
  5210.                 \(s2\^3\), " ", 
  5211.                 RowBox[{
  5212.                   SuperscriptBox["p2", "\[DoublePrime]",
  5213.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5214.               RowBox[{\(mu2\^3\), " ", \(s1\^2\), " ", \(s2\^3\), " ", 
  5215.                 RowBox[{
  5216.                   SuperscriptBox["p2", "\[DoublePrime]",
  5217.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5218.               RowBox[{
  5219.               "3", " ", "mu1", " ", \(mu2\^3\), " ", \(s1\^2\), " ", 
  5220.                 \(s2\^3\), " ", 
  5221.                 RowBox[{
  5222.                   SuperscriptBox["p2", "\[DoublePrime]",
  5223.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5224.               RowBox[{
  5225.               "3", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", \(s1\^2\), " ", 
  5226.                 \(s2\^3\), " ", 
  5227.                 RowBox[{
  5228.                   SuperscriptBox["p2", "\[DoublePrime]",
  5229.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5230.               RowBox[{
  5231.               \(mu1\^3\), " ", \(mu2\^3\), " ", \(s1\^2\), " ", \(s2\^3\), 
  5232.                 " ", 
  5233.                 RowBox[{
  5234.                   SuperscriptBox["p2", "\[DoublePrime]",
  5235.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5236.               RowBox[{
  5237.               "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^2\), " ", 
  5238.                 \(s2\^3\), " ", 
  5239.                 RowBox[{
  5240.                   SuperscriptBox["p2", "\[DoublePrime]",
  5241.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5242.               RowBox[{
  5243.               "2", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^2\), 
  5244.                 " ", \(s2\^3\), " ", 
  5245.                 RowBox[{
  5246.                   SuperscriptBox["p2", "\[DoublePrime]",
  5247.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5248.               RowBox[{
  5249.               "2", " ", \(mu2\^2\), " ", "r", " ", \(s1\^2\), " ", \(s2\^3\), 
  5250.                 " ", 
  5251.                 RowBox[{
  5252.                   SuperscriptBox["p2", "\[DoublePrime]",
  5253.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5254.               RowBox[{
  5255.               "4", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^2\), 
  5256.                 " ", \(s2\^3\), " ", 
  5257.                 RowBox[{
  5258.                   SuperscriptBox["p2", "\[DoublePrime]",
  5259.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5260.               RowBox[{
  5261.               "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  5262.                 \(s1\^2\), " ", \(s2\^3\), " ", 
  5263.                 RowBox[{
  5264.                   SuperscriptBox["p2", "\[DoublePrime]",
  5265.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5266.               RowBox[{
  5267.               "mu2", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^3\), " ", 
  5268.                 RowBox[{
  5269.                   SuperscriptBox["p2", "\[DoublePrime]",
  5270.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5271.               RowBox[{
  5272.               "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^2\), " ", 
  5273.                 \(s2\^3\), " ", 
  5274.                 RowBox[{
  5275.                   SuperscriptBox["p2", "\[DoublePrime]",
  5276.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5277.               RowBox[{
  5278.               "2", " ", "mu1", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^3\), 
  5279.                 " ", 
  5280.                 RowBox[{
  5281.                   SuperscriptBox["p2", "\[DoublePrime]",
  5282.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5283.               RowBox[{
  5284.               \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  5285.                 RowBox[{
  5286.                   SuperscriptBox["p2", "\[DoublePrime]",
  5287.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5288.               RowBox[{
  5289.               \(mu1\^3\), " ", "mu2", " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  5290.                 RowBox[{
  5291.                   SuperscriptBox["p2", "\[DoublePrime]",
  5292.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5293.               RowBox[{
  5294.               "2", " ", \(mu2\^2\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  5295.                 RowBox[{
  5296.                   SuperscriptBox["p2", "\[DoublePrime]",
  5297.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5298.               RowBox[{
  5299.               "2", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  5300.                 \(s2\^3\), " ", 
  5301.                 RowBox[{
  5302.                   SuperscriptBox["p2", "\[DoublePrime]",
  5303.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5304.               RowBox[{
  5305.               "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  5306.                 \(s2\^3\), " ", 
  5307.                 RowBox[{
  5308.                   SuperscriptBox["p2", "\[DoublePrime]",
  5309.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5310.               RowBox[{
  5311.               "2", " ", \(mu1\^3\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  5312.                 \(s2\^3\), " ", 
  5313.                 RowBox[{
  5314.                   SuperscriptBox["p2", "\[DoublePrime]",
  5315.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5316.               RowBox[{\(mu2\^3\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  5317.                 RowBox[{
  5318.                   SuperscriptBox["p2", "\[DoublePrime]",
  5319.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5320.               RowBox[{
  5321.               "3", " ", "mu1", " ", \(mu2\^3\), " ", \(s1\^3\), " ", 
  5322.                 \(s2\^3\), " ", 
  5323.                 RowBox[{
  5324.                   SuperscriptBox["p2", "\[DoublePrime]",
  5325.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5326.               RowBox[{
  5327.               "3", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", \(s1\^3\), " ", 
  5328.                 \(s2\^3\), " ", 
  5329.                 RowBox[{
  5330.                   SuperscriptBox["p2", "\[DoublePrime]",
  5331.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5332.               RowBox[{
  5333.               \(mu1\^3\), " ", \(mu2\^3\), " ", \(s1\^3\), " ", \(s2\^3\), 
  5334.                 " ", 
  5335.                 RowBox[{
  5336.                   SuperscriptBox["p2", "\[DoublePrime]",
  5337.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5338.               RowBox[{
  5339.               "2", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", \(s2\^3\), 
  5340.                 " ", 
  5341.                 RowBox[{
  5342.                   SuperscriptBox["p2", "\[DoublePrime]",
  5343.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5344.               RowBox[{
  5345.               "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  5346.                 \(s2\^3\), " ", 
  5347.                 RowBox[{
  5348.                   SuperscriptBox["p2", "\[DoublePrime]",
  5349.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5350.               RowBox[{
  5351.               "4", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^3\), 
  5352.                 " ", \(s2\^3\), " ", 
  5353.                 RowBox[{
  5354.                   SuperscriptBox["p2", "\[DoublePrime]",
  5355.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5356.               RowBox[{
  5357.               "4", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^3\), 
  5358.                 " ", 
  5359.                 RowBox[{
  5360.                   SuperscriptBox["p2", "\[DoublePrime]",
  5361.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5362.               RowBox[{
  5363.               "8", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), 
  5364.                 " ", \(s2\^3\), " ", 
  5365.                 RowBox[{
  5366.                   SuperscriptBox["p2", "\[DoublePrime]",
  5367.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5368.               RowBox[{
  5369.               "4", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  5370.                 \(s1\^3\), " ", \(s2\^3\), " ", 
  5371.                 RowBox[{
  5372.                   SuperscriptBox["p2", "\[DoublePrime]",
  5373.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5374.               RowBox[{
  5375.               "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^3\), 
  5376.                 " ", 
  5377.                 RowBox[{
  5378.                   SuperscriptBox["p2", "\[DoublePrime]",
  5379.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5380.               RowBox[{
  5381.               "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), 
  5382.                 " ", \(s2\^3\), " ", 
  5383.                 RowBox[{
  5384.                   SuperscriptBox["p2", "\[DoublePrime]",
  5385.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5386.               RowBox[{"mu2", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  5387.                 RowBox[{
  5388.                   SuperscriptBox["p2", "\[DoublePrime]",
  5389.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5390.               RowBox[{
  5391.               "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  5392.                 RowBox[{
  5393.                   SuperscriptBox["p2", "\[DoublePrime]",
  5394.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5395.               RowBox[{
  5396.               "2", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^4\), " ", 
  5397.                 \(s2\^3\), " ", 
  5398.                 RowBox[{
  5399.                   SuperscriptBox["p2", "\[DoublePrime]",
  5400.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5401.               RowBox[{
  5402.               "2", " ", \(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  5403.                 RowBox[{
  5404.                   SuperscriptBox["p2", "\[DoublePrime]",
  5405.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5406.               RowBox[{
  5407.               "4", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  5408.                 \(s2\^3\), " ", 
  5409.                 RowBox[{
  5410.                   SuperscriptBox["p2", "\[DoublePrime]",
  5411.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5412.               RowBox[{
  5413.               "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  5414.                 \(s2\^3\), " ", 
  5415.                 RowBox[{
  5416.                   SuperscriptBox["p2", "\[DoublePrime]",
  5417.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5418.               RowBox[{
  5419.               "4", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), 
  5420.                 " ", 
  5421.                 RowBox[{
  5422.                   SuperscriptBox["p2", "\[DoublePrime]",
  5423.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5424.               RowBox[{
  5425.               "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  5426.                 \(s2\^3\), " ", 
  5427.                 RowBox[{
  5428.                   SuperscriptBox["p2", "\[DoublePrime]",
  5429.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5430.               RowBox[{
  5431.               "2", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^4\), 
  5432.                 " ", \(s2\^3\), " ", 
  5433.                 RowBox[{
  5434.                   SuperscriptBox["p2", "\[DoublePrime]",
  5435.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5436.               RowBox[{
  5437.               "2", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), 
  5438.                 " ", 
  5439.                 RowBox[{
  5440.                   SuperscriptBox["p2", "\[DoublePrime]",
  5441.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5442.               RowBox[{
  5443.               "4", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), 
  5444.                 " ", \(s2\^3\), " ", 
  5445.                 RowBox[{
  5446.                   SuperscriptBox["p2", "\[DoublePrime]",
  5447.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5448.               RowBox[{
  5449.               "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  5450.                 \(s1\^4\), " ", \(s2\^3\), " ", 
  5451.                 RowBox[{
  5452.                   SuperscriptBox["p2", "\[DoublePrime]",
  5453.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5454.               RowBox[{
  5455.               "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^3\), 
  5456.                 " ", 
  5457.                 RowBox[{
  5458.                   SuperscriptBox["p2", "\[DoublePrime]",
  5459.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5460.               RowBox[{
  5461.               "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), 
  5462.                 " ", \(s2\^3\), " ", 
  5463.                 RowBox[{
  5464.                   SuperscriptBox["p2", "\[DoublePrime]",
  5465.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5466.               RowBox[{"mu2", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  5467.                 RowBox[{
  5468.                   SuperscriptBox["p2", "\[DoublePrime]",
  5469.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5470.               RowBox[{
  5471.               "mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  5472.                 RowBox[{
  5473.                   SuperscriptBox["p2", "\[DoublePrime]",
  5474.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5475.               RowBox[{
  5476.               "2", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^3\), 
  5477.                 " ", 
  5478.                 RowBox[{
  5479.                   SuperscriptBox["p2", "\[DoublePrime]",
  5480.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5481.               RowBox[{
  5482.               "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  5483.                 \(s2\^3\), " ", 
  5484.                 RowBox[{
  5485.                   SuperscriptBox["p2", "\[DoublePrime]",
  5486.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5487.               RowBox[{
  5488.               "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  5489.                 RowBox[{
  5490.                   SuperscriptBox["p2", "\[DoublePrime]",
  5491.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5492.               RowBox[{
  5493.               "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", 
  5494.                 \(s2\^3\), " ", 
  5495.                 RowBox[{
  5496.                   SuperscriptBox["p2", "\[DoublePrime]",
  5497.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5498.               RowBox[{\(mu1\^2\), " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  5499.                 RowBox[{
  5500.                   SuperscriptBox["p2", "\[DoublePrime]",
  5501.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5502.               RowBox[{\(mu1\^3\), " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  5503.                 RowBox[{
  5504.                   SuperscriptBox["p2", "\[DoublePrime]",
  5505.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5506.               RowBox[{
  5507.               "4", " ", "mu1", " ", "mu2", " ", \(s1\^2\), " ", \(s2\^4\), 
  5508.                 " ", 
  5509.                 RowBox[{
  5510.                   SuperscriptBox["p2", "\[DoublePrime]",
  5511.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5512.               RowBox[{
  5513.               "6", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^2\), " ", 
  5514.                 \(s2\^4\), " ", 
  5515.                 RowBox[{
  5516.                   SuperscriptBox["p2", "\[DoublePrime]",
  5517.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5518.               RowBox[{
  5519.               "2", " ", \(mu1\^3\), " ", "mu2", " ", \(s1\^2\), " ", 
  5520.                 \(s2\^4\), " ", 
  5521.                 RowBox[{
  5522.                   SuperscriptBox["p2", "\[DoublePrime]",
  5523.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5524.               RowBox[{
  5525.               "3", " ", \(mu2\^2\), " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  5526.                 RowBox[{
  5527.                   SuperscriptBox["p2", "\[DoublePrime]",
  5528.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5529.               RowBox[{
  5530.               "7", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^2\), " ", 
  5531.                 \(s2\^4\), " ", 
  5532.                 RowBox[{
  5533.                   SuperscriptBox["p2", "\[DoublePrime]",
  5534.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5535.               RowBox[{
  5536.               "5", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^2\), " ", 
  5537.                 \(s2\^4\), " ", 
  5538.                 RowBox[{
  5539.                   SuperscriptBox["p2", "\[DoublePrime]",
  5540.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5541.               RowBox[{
  5542.               \(mu1\^3\), " ", \(mu2\^2\), " ", \(s1\^2\), " ", \(s2\^4\), 
  5543.                 " ", 
  5544.                 RowBox[{
  5545.                   SuperscriptBox["p2", "\[DoublePrime]",
  5546.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5547.               RowBox[{
  5548.               "2", " ", "mu1", " ", "r", " ", \(s1\^2\), " ", \(s2\^4\), 
  5549.                 " ", 
  5550.                 RowBox[{
  5551.                   SuperscriptBox["p2", "\[DoublePrime]",
  5552.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5553.               RowBox[{
  5554.               "2", " ", \(mu1\^2\), " ", "r", " ", \(s1\^2\), " ", \(s2\^4\), 
  5555.                 " ", 
  5556.                 RowBox[{
  5557.                   SuperscriptBox["p2", "\[DoublePrime]",
  5558.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5559.               RowBox[{
  5560.               "4", " ", "mu2", " ", "r", " ", \(s1\^2\), " ", \(s2\^4\), 
  5561.                 " ", 
  5562.                 RowBox[{
  5563.                   SuperscriptBox["p2", "\[DoublePrime]",
  5564.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5565.               RowBox[{
  5566.               "4", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^2\), " ", 
  5567.                 \(s2\^4\), " ", 
  5568.                 RowBox[{
  5569.                   SuperscriptBox["p2", "\[DoublePrime]",
  5570.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5571.               RowBox[{
  5572.               "2", " ", \(mu2\^2\), " ", "r", " ", \(s1\^2\), " ", \(s2\^4\), 
  5573.                 " ", 
  5574.                 RowBox[{
  5575.                   SuperscriptBox["p2", "\[DoublePrime]",
  5576.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5577.               RowBox[{
  5578.               "4", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^2\), 
  5579.                 " ", \(s2\^4\), " ", 
  5580.                 RowBox[{
  5581.                   SuperscriptBox["p2", "\[DoublePrime]",
  5582.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5583.               RowBox[{
  5584.               "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  5585.                 \(s1\^2\), " ", \(s2\^4\), " ", 
  5586.                 RowBox[{
  5587.                   SuperscriptBox["p2", "\[DoublePrime]",
  5588.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5589.               RowBox[{\(r\^2\), " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  5590.                 RowBox[{
  5591.                   SuperscriptBox["p2", "\[DoublePrime]",
  5592.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5593.               RowBox[{
  5594.               "mu1", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  5595.                 RowBox[{
  5596.                   SuperscriptBox["p2", "\[DoublePrime]",
  5597.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5598.               RowBox[{
  5599.               "2", " ", "mu2", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^4\), 
  5600.                 " ", 
  5601.                 RowBox[{
  5602.                   SuperscriptBox["p2", "\[DoublePrime]",
  5603.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5604.               RowBox[{
  5605.               "2", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^2\), 
  5606.                 " ", \(s2\^4\), " ", 
  5607.                 RowBox[{
  5608.                   SuperscriptBox["p2", "\[DoublePrime]",
  5609.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5610.               RowBox[{"2", " ", "mu1", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  5611.                 RowBox[{
  5612.                   SuperscriptBox["p2", "\[DoublePrime]",
  5613.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5614.               RowBox[{\(mu1\^2\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  5615.                 RowBox[{
  5616.                   SuperscriptBox["p2", "\[DoublePrime]",
  5617.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5618.               RowBox[{\(mu1\^3\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  5619.                 RowBox[{
  5620.                   SuperscriptBox["p2", "\[DoublePrime]",
  5621.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5622.               RowBox[{"4", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  5623.                 RowBox[{
  5624.                   SuperscriptBox["p2", "\[DoublePrime]",
  5625.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5626.               RowBox[{
  5627.               "6", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", 
  5628.                 \(s2\^4\), " ", 
  5629.                 RowBox[{
  5630.                   SuperscriptBox["p2", "\[DoublePrime]",
  5631.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5632.               RowBox[{
  5633.               "2", " ", \(mu1\^3\), " ", "mu2", " ", \(s1\^3\), " ", 
  5634.                 \(s2\^4\), " ", 
  5635.                 RowBox[{
  5636.                   SuperscriptBox["p2", "\[DoublePrime]",
  5637.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5638.               RowBox[{
  5639.               "5", " ", \(mu2\^2\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  5640.                 RowBox[{
  5641.                   SuperscriptBox["p2", "\[DoublePrime]",
  5642.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5643.               RowBox[{
  5644.               "11", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  5645.                 \(s2\^4\), " ", 
  5646.                 RowBox[{
  5647.                   SuperscriptBox["p2", "\[DoublePrime]",
  5648.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5649.               RowBox[{
  5650.               "7", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  5651.                 \(s2\^4\), " ", 
  5652.                 RowBox[{
  5653.                   SuperscriptBox["p2", "\[DoublePrime]",
  5654.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5655.               RowBox[{
  5656.               \(mu1\^3\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", \(s2\^4\), 
  5657.                 " ", 
  5658.                 RowBox[{
  5659.                   SuperscriptBox["p2", "\[DoublePrime]",
  5660.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5661.               RowBox[{"2", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  5662.                 RowBox[{
  5663.                   SuperscriptBox["p2", "\[DoublePrime]",
  5664.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5665.               RowBox[{
  5666.               "2", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), 
  5667.                 " ", 
  5668.                 RowBox[{
  5669.                   SuperscriptBox["p2", "\[DoublePrime]",
  5670.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5671.               RowBox[{
  5672.               "4", " ", \(mu1\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), 
  5673.                 " ", 
  5674.                 RowBox[{
  5675.                   SuperscriptBox["p2", "\[DoublePrime]",
  5676.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5677.               RowBox[{
  5678.               "12", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), 
  5679.                 " ", 
  5680.                 RowBox[{
  5681.                   SuperscriptBox["p2", "\[DoublePrime]",
  5682.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5683.               RowBox[{
  5684.               "12", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  5685.                 \(s2\^4\), " ", 
  5686.                 RowBox[{
  5687.                   SuperscriptBox["p2", "\[DoublePrime]",
  5688.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5689.               RowBox[{
  5690.               "4", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), 
  5691.                 " ", 
  5692.                 RowBox[{
  5693.                   SuperscriptBox["p2", "\[DoublePrime]",
  5694.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5695.               RowBox[{
  5696.               "8", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), 
  5697.                 " ", \(s2\^4\), " ", 
  5698.                 RowBox[{
  5699.                   SuperscriptBox["p2", "\[DoublePrime]",
  5700.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5701.               RowBox[{
  5702.               "4", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  5703.                 \(s1\^3\), " ", \(s2\^4\), " ", 
  5704.                 RowBox[{
  5705.                   SuperscriptBox["p2", "\[DoublePrime]",
  5706.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5707.               RowBox[{
  5708.               "3", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  5709.                 RowBox[{
  5710.                   SuperscriptBox["p2", "\[DoublePrime]",
  5711.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5712.               RowBox[{
  5713.               "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^4\), 
  5714.                 " ", 
  5715.                 RowBox[{
  5716.                   SuperscriptBox["p2", "\[DoublePrime]",
  5717.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5718.               RowBox[{
  5719.               "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^4\), 
  5720.                 " ", 
  5721.                 RowBox[{
  5722.                   SuperscriptBox["p2", "\[DoublePrime]",
  5723.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5724.               RowBox[{
  5725.               "6", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), 
  5726.                 " ", \(s2\^4\), " ", 
  5727.                 RowBox[{
  5728.                   SuperscriptBox["p2", "\[DoublePrime]",
  5729.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5730.               RowBox[{\(s1\^4\), " ", \(s2\^4\), " ", 
  5731.                 RowBox[{
  5732.                   SuperscriptBox["p2", "\[DoublePrime]",
  5733.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5734.               RowBox[{"mu1", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  5735.                 RowBox[{
  5736.                   SuperscriptBox["p2", "\[DoublePrime]",
  5737.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5738.               RowBox[{
  5739.               "2", " ", \(mu1\^2\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  5740.                 RowBox[{
  5741.                   SuperscriptBox["p2", "\[DoublePrime]",
  5742.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5743.               RowBox[{"6", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  5744.                 RowBox[{
  5745.                   SuperscriptBox["p2", "\[DoublePrime]",
  5746.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5747.               RowBox[{
  5748.               "6", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^4\), 
  5749.                 " ", 
  5750.                 RowBox[{
  5751.                   SuperscriptBox["p2", "\[DoublePrime]",
  5752.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5753.               RowBox[{
  5754.               "2", " ", \(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  5755.                 RowBox[{
  5756.                   SuperscriptBox["p2", "\[DoublePrime]",
  5757.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5758.               RowBox[{
  5759.               "4", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  5760.                 \(s2\^4\), " ", 
  5761.                 RowBox[{
  5762.                   SuperscriptBox["p2", "\[DoublePrime]",
  5763.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5764.               RowBox[{
  5765.               "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  5766.                 \(s2\^4\), " ", 
  5767.                 RowBox[{
  5768.                   SuperscriptBox["p2", "\[DoublePrime]",
  5769.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5770.               RowBox[{"4", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  5771.                 RowBox[{
  5772.                   SuperscriptBox["p2", "\[DoublePrime]",
  5773.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5774.               RowBox[{
  5775.               "2", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), 
  5776.                 " ", 
  5777.                 RowBox[{
  5778.                   SuperscriptBox["p2", "\[DoublePrime]",
  5779.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5780.               RowBox[{
  5781.               "2", " ", \(mu1\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), 
  5782.                 " ", 
  5783.                 RowBox[{
  5784.                   SuperscriptBox["p2", "\[DoublePrime]",
  5785.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5786.               RowBox[{
  5787.               "12", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), 
  5788.                 " ", 
  5789.                 RowBox[{
  5790.                   SuperscriptBox["p2", "\[DoublePrime]",
  5791.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5792.               RowBox[{
  5793.               "12", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  5794.                 \(s2\^4\), " ", 
  5795.                 RowBox[{
  5796.                   SuperscriptBox["p2", "\[DoublePrime]",
  5797.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5798.               RowBox[{
  5799.               "2", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), 
  5800.                 " ", 
  5801.                 RowBox[{
  5802.                   SuperscriptBox["p2", "\[DoublePrime]",
  5803.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5804.               RowBox[{
  5805.               "4", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), 
  5806.                 " ", \(s2\^4\), " ", 
  5807.                 RowBox[{
  5808.                   SuperscriptBox["p2", "\[DoublePrime]",
  5809.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5810.               RowBox[{
  5811.               "2", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  5812.                 \(s1\^4\), " ", \(s2\^4\), " ", 
  5813.                 RowBox[{
  5814.                   SuperscriptBox["p2", "\[DoublePrime]",
  5815.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5816.               RowBox[{
  5817.               "3", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  5818.                 RowBox[{
  5819.                   SuperscriptBox["p2", "\[DoublePrime]",
  5820.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5821.               RowBox[{
  5822.               "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^4\), 
  5823.                 " ", 
  5824.                 RowBox[{
  5825.                   SuperscriptBox["p2", "\[DoublePrime]",
  5826.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5827.               RowBox[{
  5828.               "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^4\), 
  5829.                 " ", 
  5830.                 RowBox[{
  5831.                   SuperscriptBox["p2", "\[DoublePrime]",
  5832.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5833.               RowBox[{
  5834.               "6", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), 
  5835.                 " ", \(s2\^4\), " ", 
  5836.                 RowBox[{
  5837.                   SuperscriptBox["p2", "\[DoublePrime]",
  5838.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5839.               RowBox[{\(s1\^5\), " ", \(s2\^4\), " ", 
  5840.                 RowBox[{
  5841.                   SuperscriptBox["p2", "\[DoublePrime]",
  5842.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5843.               RowBox[{"mu1", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  5844.                 RowBox[{
  5845.                   SuperscriptBox["p2", "\[DoublePrime]",
  5846.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5847.               RowBox[{"2", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  5848.                 RowBox[{
  5849.                   SuperscriptBox["p2", "\[DoublePrime]",
  5850.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5851.               RowBox[{
  5852.               "2", " ", "mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^4\), 
  5853.                 " ", 
  5854.                 RowBox[{
  5855.                   SuperscriptBox["p2", "\[DoublePrime]",
  5856.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5857.               RowBox[{"2", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  5858.                 RowBox[{
  5859.                   SuperscriptBox["p2", "\[DoublePrime]",
  5860.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5861.               RowBox[{
  5862.               "2", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), 
  5863.                 " ", 
  5864.                 RowBox[{
  5865.                   SuperscriptBox["p2", "\[DoublePrime]",
  5866.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5867.               RowBox[{
  5868.               "4", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), 
  5869.                 " ", 
  5870.                 RowBox[{
  5871.                   SuperscriptBox["p2", "\[DoublePrime]",
  5872.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5873.               RowBox[{
  5874.               "4", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  5875.                 \(s2\^4\), " ", 
  5876.                 RowBox[{
  5877.                   SuperscriptBox["p2", "\[DoublePrime]",
  5878.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5879.               RowBox[{\(r\^2\), " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  5880.                 RowBox[{
  5881.                   SuperscriptBox["p2", "\[DoublePrime]",
  5882.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5883.               RowBox[{
  5884.               "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  5885.                 RowBox[{
  5886.                   SuperscriptBox["p2", "\[DoublePrime]",
  5887.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5888.               RowBox[{
  5889.               "2", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^4\), 
  5890.                 " ", 
  5891.                 RowBox[{
  5892.                   SuperscriptBox["p2", "\[DoublePrime]",
  5893.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5894.               RowBox[{
  5895.               "2", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), 
  5896.                 " ", \(s2\^4\), " ", 
  5897.                 RowBox[{
  5898.                   SuperscriptBox["p2", "\[DoublePrime]",
  5899.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5900.               RowBox[{"2", " ", "mu1", " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  5901.                 RowBox[{
  5902.                   SuperscriptBox["p2", "\[DoublePrime]",
  5903.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5904.               RowBox[{
  5905.               "2", " ", \(mu1\^2\), " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  5906.                 RowBox[{
  5907.                   SuperscriptBox["p2", "\[DoublePrime]",
  5908.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5909.               RowBox[{"3", " ", "mu2", " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  5910.                 RowBox[{
  5911.                   SuperscriptBox["p2", "\[DoublePrime]",
  5912.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5913.               RowBox[{
  5914.               "5", " ", "mu1", " ", "mu2", " ", \(s1\^2\), " ", \(s2\^5\), 
  5915.                 " ", 
  5916.                 RowBox[{
  5917.                   SuperscriptBox["p2", "\[DoublePrime]",
  5918.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5919.               RowBox[{
  5920.               "2", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^2\), " ", 
  5921.                 \(s2\^5\), " ", 
  5922.                 RowBox[{
  5923.                   SuperscriptBox["p2", "\[DoublePrime]",
  5924.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5925.               RowBox[{"2", " ", "r", " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  5926.                 RowBox[{
  5927.                   SuperscriptBox["p2", "\[DoublePrime]",
  5928.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5929.               RowBox[{
  5930.               "2", " ", \(mu1\^2\), " ", "r", " ", \(s1\^2\), " ", \(s2\^5\), 
  5931.                 " ", 
  5932.                 RowBox[{
  5933.                   SuperscriptBox["p2", "\[DoublePrime]",
  5934.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5935.               RowBox[{
  5936.               "4", " ", "mu2", " ", "r", " ", \(s1\^2\), " ", \(s2\^5\), 
  5937.                 " ", 
  5938.                 RowBox[{
  5939.                   SuperscriptBox["p2", "\[DoublePrime]",
  5940.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5941.               RowBox[{
  5942.               "6", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^2\), " ", 
  5943.                 \(s2\^5\), " ", 
  5944.                 RowBox[{
  5945.                   SuperscriptBox["p2", "\[DoublePrime]",
  5946.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5947.               RowBox[{
  5948.               "2", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^2\), 
  5949.                 " ", \(s2\^5\), " ", 
  5950.                 RowBox[{
  5951.                   SuperscriptBox["p2", "\[DoublePrime]",
  5952.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5953.               RowBox[{
  5954.               "2", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  5955.                 RowBox[{
  5956.                   SuperscriptBox["p2", "\[DoublePrime]",
  5957.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5958.               RowBox[{
  5959.               "2", " ", "mu1", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^5\), 
  5960.                 " ", 
  5961.                 RowBox[{
  5962.                   SuperscriptBox["p2", "\[DoublePrime]",
  5963.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5964.               RowBox[{
  5965.               "mu2", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  5966.                 RowBox[{
  5967.                   SuperscriptBox["p2", "\[DoublePrime]",
  5968.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5969.               RowBox[{
  5970.               "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^2\), " ", 
  5971.                 \(s2\^5\), " ", 
  5972.                 RowBox[{
  5973.                   SuperscriptBox["p2", "\[DoublePrime]",
  5974.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5975.               RowBox[{"2", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  5976.                 RowBox[{
  5977.                   SuperscriptBox["p2", "\[DoublePrime]",
  5978.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5979.               RowBox[{"2", " ", "mu1", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  5980.                 RowBox[{
  5981.                   SuperscriptBox["p2", "\[DoublePrime]",
  5982.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5983.               RowBox[{
  5984.               "4", " ", \(mu1\^2\), " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  5985.                 RowBox[{
  5986.                   SuperscriptBox["p2", "\[DoublePrime]",
  5987.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5988.               RowBox[{"7", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  5989.                 RowBox[{
  5990.                   SuperscriptBox["p2", "\[DoublePrime]",
  5991.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  5992.               RowBox[{
  5993.               "11", " ", "mu1", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^5\), 
  5994.                 " ", 
  5995.                 RowBox[{
  5996.                   SuperscriptBox["p2", "\[DoublePrime]",
  5997.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  5998.               RowBox[{
  5999.               "4", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", 
  6000.                 \(s2\^5\), " ", 
  6001.                 RowBox[{
  6002.                   SuperscriptBox["p2", "\[DoublePrime]",
  6003.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6004.               RowBox[{"8", " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  6005.                 RowBox[{
  6006.                   SuperscriptBox["p2", "\[DoublePrime]",
  6007.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6008.               RowBox[{
  6009.               "4", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), 
  6010.                 " ", 
  6011.                 RowBox[{
  6012.                   SuperscriptBox["p2", "\[DoublePrime]",
  6013.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6014.               RowBox[{
  6015.               "4", " ", \(mu1\^2\), " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), 
  6016.                 " ", 
  6017.                 RowBox[{
  6018.                   SuperscriptBox["p2", "\[DoublePrime]",
  6019.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6020.               RowBox[{
  6021.               "10", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), 
  6022.                 " ", 
  6023.                 RowBox[{
  6024.                   SuperscriptBox["p2", "\[DoublePrime]",
  6025.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6026.               RowBox[{
  6027.               "14", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  6028.                 \(s2\^5\), " ", 
  6029.                 RowBox[{
  6030.                   SuperscriptBox["p2", "\[DoublePrime]",
  6031.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6032.               RowBox[{
  6033.               "4", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^3\), 
  6034.                 " ", \(s2\^5\), " ", 
  6035.                 RowBox[{
  6036.                   SuperscriptBox["p2", "\[DoublePrime]",
  6037.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6038.               RowBox[{
  6039.               "6", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  6040.                 RowBox[{
  6041.                   SuperscriptBox["p2", "\[DoublePrime]",
  6042.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6043.               RowBox[{
  6044.               "6", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^5\), 
  6045.                 " ", 
  6046.                 RowBox[{
  6047.                   SuperscriptBox["p2", "\[DoublePrime]",
  6048.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6049.               RowBox[{
  6050.               "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^5\), 
  6051.                 " ", 
  6052.                 RowBox[{
  6053.                   SuperscriptBox["p2", "\[DoublePrime]",
  6054.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6055.               RowBox[{
  6056.               "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), 
  6057.                 " ", \(s2\^5\), " ", 
  6058.                 RowBox[{
  6059.                   SuperscriptBox["p2", "\[DoublePrime]",
  6060.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6061.               RowBox[{"4", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  6062.                 RowBox[{
  6063.                   SuperscriptBox["p2", "\[DoublePrime]",
  6064.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6065.               RowBox[{"2", " ", "mu1", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  6066.                 RowBox[{
  6067.                   SuperscriptBox["p2", "\[DoublePrime]",
  6068.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6069.               RowBox[{
  6070.               "2", " ", \(mu1\^2\), " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  6071.                 RowBox[{
  6072.                   SuperscriptBox["p2", "\[DoublePrime]",
  6073.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6074.               RowBox[{"5", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  6075.                 RowBox[{
  6076.                   SuperscriptBox["p2", "\[DoublePrime]",
  6077.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6078.               RowBox[{
  6079.               "7", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^5\), 
  6080.                 " ", 
  6081.                 RowBox[{
  6082.                   SuperscriptBox["p2", "\[DoublePrime]",
  6083.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6084.               RowBox[{
  6085.               "2", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^4\), " ", 
  6086.                 \(s2\^5\), " ", 
  6087.                 RowBox[{
  6088.                   SuperscriptBox["p2", "\[DoublePrime]",
  6089.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6090.               RowBox[{"10", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  6091.                 RowBox[{
  6092.                   SuperscriptBox["p2", "\[DoublePrime]",
  6093.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6094.               RowBox[{
  6095.               "8", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), 
  6096.                 " ", 
  6097.                 RowBox[{
  6098.                   SuperscriptBox["p2", "\[DoublePrime]",
  6099.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6100.               RowBox[{
  6101.               "2", " ", \(mu1\^2\), " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), 
  6102.                 " ", 
  6103.                 RowBox[{
  6104.                   SuperscriptBox["p2", "\[DoublePrime]",
  6105.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6106.               RowBox[{
  6107.               "8", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), 
  6108.                 " ", 
  6109.                 RowBox[{
  6110.                   SuperscriptBox["p2", "\[DoublePrime]",
  6111.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6112.               RowBox[{
  6113.               "10", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  6114.                 \(s2\^5\), " ", 
  6115.                 RowBox[{
  6116.                   SuperscriptBox["p2", "\[DoublePrime]",
  6117.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6118.               RowBox[{
  6119.               "2", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^4\), 
  6120.                 " ", \(s2\^5\), " ", 
  6121.                 RowBox[{
  6122.                   SuperscriptBox["p2", "\[DoublePrime]",
  6123.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6124.               RowBox[{
  6125.               "6", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  6126.                 RowBox[{
  6127.                   SuperscriptBox["p2", "\[DoublePrime]",
  6128.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6129.               RowBox[{
  6130.               "6", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^5\), 
  6131.                 " ", 
  6132.                 RowBox[{
  6133.                   SuperscriptBox["p2", "\[DoublePrime]",
  6134.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6135.               RowBox[{
  6136.               "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^5\), 
  6137.                 " ", 
  6138.                 RowBox[{
  6139.                   SuperscriptBox["p2", "\[DoublePrime]",
  6140.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6141.               RowBox[{
  6142.               "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), 
  6143.                 " ", \(s2\^5\), " ", 
  6144.                 RowBox[{
  6145.                   SuperscriptBox["p2", "\[DoublePrime]",
  6146.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6147.               RowBox[{"2", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  6148.                 RowBox[{
  6149.                   SuperscriptBox["p2", "\[DoublePrime]",
  6150.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6151.               RowBox[{"2", " ", "mu1", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  6152.                 RowBox[{
  6153.                   SuperscriptBox["p2", "\[DoublePrime]",
  6154.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6155.               RowBox[{"mu2", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  6156.                 RowBox[{
  6157.                   SuperscriptBox["p2", "\[DoublePrime]",
  6158.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6159.               RowBox[{
  6160.               "mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  6161.                 RowBox[{
  6162.                   SuperscriptBox["p2", "\[DoublePrime]",
  6163.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6164.               RowBox[{"4", " ", "r", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  6165.                 RowBox[{
  6166.                   SuperscriptBox["p2", "\[DoublePrime]",
  6167.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6168.               RowBox[{
  6169.               "4", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^5\), 
  6170.                 " ", 
  6171.                 RowBox[{
  6172.                   SuperscriptBox["p2", "\[DoublePrime]",
  6173.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6174.               RowBox[{
  6175.               "2", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^5\), 
  6176.                 " ", 
  6177.                 RowBox[{
  6178.                   SuperscriptBox["p2", "\[DoublePrime]",
  6179.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6180.               RowBox[{
  6181.               "2", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  6182.                 \(s2\^5\), " ", 
  6183.                 RowBox[{
  6184.                   SuperscriptBox["p2", "\[DoublePrime]",
  6185.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6186.               RowBox[{
  6187.               "2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  6188.                 RowBox[{
  6189.                   SuperscriptBox["p2", "\[DoublePrime]",
  6190.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6191.               RowBox[{
  6192.               "2", " ", "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), 
  6193.                 " ", 
  6194.                 RowBox[{
  6195.                   SuperscriptBox["p2", "\[DoublePrime]",
  6196.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6197.               RowBox[{
  6198.               "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  6199.                 RowBox[{
  6200.                   SuperscriptBox["p2", "\[DoublePrime]",
  6201.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6202.               RowBox[{
  6203.               "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", 
  6204.                 \(s2\^5\), " ", 
  6205.                 RowBox[{
  6206.                   SuperscriptBox["p2", "\[DoublePrime]",
  6207.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6208.               RowBox[{\(s1\^2\), " ", \(s2\^6\), " ", 
  6209.                 RowBox[{
  6210.                   SuperscriptBox["p2", "\[DoublePrime]",
  6211.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6212.               RowBox[{"mu1", " ", \(s1\^2\), " ", \(s2\^6\), " ", 
  6213.                 RowBox[{
  6214.                   SuperscriptBox["p2", "\[DoublePrime]",
  6215.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6216.               RowBox[{"2", " ", "r", " ", \(s1\^2\), " ", \(s2\^6\), " ", 
  6217.                 RowBox[{
  6218.                   SuperscriptBox["p2", "\[DoublePrime]",
  6219.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6220.               RowBox[{
  6221.               "2", " ", "mu1", " ", "r", " ", \(s1\^2\), " ", \(s2\^6\), 
  6222.                 " ", 
  6223.                 RowBox[{
  6224.                   SuperscriptBox["p2", "\[DoublePrime]",
  6225.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6226.               RowBox[{\(r\^2\), " ", \(s1\^2\), " ", \(s2\^6\), " ", 
  6227.                 RowBox[{
  6228.                   SuperscriptBox["p2", "\[DoublePrime]",
  6229.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6230.               RowBox[{
  6231.               "mu1", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^6\), " ", 
  6232.                 RowBox[{
  6233.                   SuperscriptBox["p2", "\[DoublePrime]",
  6234.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6235.               RowBox[{"3", " ", \(s1\^3\), " ", \(s2\^6\), " ", 
  6236.                 RowBox[{
  6237.                   SuperscriptBox["p2", "\[DoublePrime]",
  6238.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6239.               RowBox[{"3", " ", "mu1", " ", \(s1\^3\), " ", \(s2\^6\), " ", 
  6240.                 RowBox[{
  6241.                   SuperscriptBox["p2", "\[DoublePrime]",
  6242.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6243.               RowBox[{"6", " ", "r", " ", \(s1\^3\), " ", \(s2\^6\), " ", 
  6244.                 RowBox[{
  6245.                   SuperscriptBox["p2", "\[DoublePrime]",
  6246.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6247.               RowBox[{
  6248.               "6", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^6\), 
  6249.                 " ", 
  6250.                 RowBox[{
  6251.                   SuperscriptBox["p2", "\[DoublePrime]",
  6252.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6253.               RowBox[{
  6254.               "3", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^6\), " ", 
  6255.                 RowBox[{
  6256.                   SuperscriptBox["p2", "\[DoublePrime]",
  6257.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6258.               RowBox[{
  6259.               "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^6\), 
  6260.                 " ", 
  6261.                 RowBox[{
  6262.                   SuperscriptBox["p2", "\[DoublePrime]",
  6263.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6264.               RowBox[{"3", " ", \(s1\^4\), " ", \(s2\^6\), " ", 
  6265.                 RowBox[{
  6266.                   SuperscriptBox["p2", "\[DoublePrime]",
  6267.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6268.               RowBox[{"3", " ", "mu1", " ", \(s1\^4\), " ", \(s2\^6\), " ", 
  6269.                 RowBox[{
  6270.                   SuperscriptBox["p2", "\[DoublePrime]",
  6271.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6272.               RowBox[{"6", " ", "r", " ", \(s1\^4\), " ", \(s2\^6\), " ", 
  6273.                 RowBox[{
  6274.                   SuperscriptBox["p2", "\[DoublePrime]",
  6275.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6276.               RowBox[{
  6277.               "6", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^6\), 
  6278.                 " ", 
  6279.                 RowBox[{
  6280.                   SuperscriptBox["p2", "\[DoublePrime]",
  6281.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6282.               RowBox[{
  6283.               "3", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^6\), " ", 
  6284.                 RowBox[{
  6285.                   SuperscriptBox["p2", "\[DoublePrime]",
  6286.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6287.               RowBox[{
  6288.               "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^6\), 
  6289.                 " ", 
  6290.                 RowBox[{
  6291.                   SuperscriptBox["p2", "\[DoublePrime]",
  6292.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6293.               RowBox[{\(s1\^5\), " ", \(s2\^6\), " ", 
  6294.                 RowBox[{
  6295.                   SuperscriptBox["p2", "\[DoublePrime]",
  6296.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6297.               RowBox[{"mu1", " ", \(s1\^5\), " ", \(s2\^6\), " ", 
  6298.                 RowBox[{
  6299.                   SuperscriptBox["p2", "\[DoublePrime]",
  6300.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6301.               RowBox[{"2", " ", "r", " ", \(s1\^5\), " ", \(s2\^6\), " ", 
  6302.                 RowBox[{
  6303.                   SuperscriptBox["p2", "\[DoublePrime]",
  6304.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6305.               RowBox[{
  6306.               "2", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^6\), 
  6307.                 " ", 
  6308.                 RowBox[{
  6309.                   SuperscriptBox["p2", "\[DoublePrime]",
  6310.                     MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6311.               RowBox[{\(r\^2\), " ", \(s1\^5\), " ", \(s2\^6\), " ", 
  6312.                 RowBox[{
  6313.                   SuperscriptBox["p2", "\[DoublePrime]",
  6314.                     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6315.               RowBox[{
  6316.               "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^6\), " ", 
  6317.                 RowBox[{
  6318.                   SuperscriptBox["p2", "\[DoublePrime]",
  6319.                     MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], 
  6320.         ")"}], "/", 
  6321.       \((s1\^2\ s2\ 
  6322.           \((\(-mu1\) - mu2 + mu1\ mu2 + r - s1 + r\ s1 - s2 + r\ s2 - 
  6323.                 s1\ s2 + r\ s1\ s2)\)\^2)\)}]], "Output"]
  6324. }, Closed]],
  6325.  
  6326. Cell[TextData[{
  6327.   "These give two equations in two unknowns (",
  6328.   Cell[BoxData[
  6329.       RowBox[{
  6330.         SuperscriptBox["p1", "\[DoublePrime]",
  6331.           MultilineFunction->None], "[", "0", "]"}]]],
  6332.   " and ",
  6333.   Cell[BoxData[
  6334.       RowBox[{
  6335.         SuperscriptBox["p2", "\[DoublePrime]",
  6336.           MultilineFunction->None], "[", "0", "]"}]]],
  6337.   "), which can be solved:"
  6338. }], "Text"],
  6339.  
  6340. Cell[BoxData[
  6341.     RowBox[{
  6342.       RowBox[{"a5", "=", 
  6343.         RowBox[{"Solve", "[", 
  6344.           RowBox[{\(a3 == 0\), ",", 
  6345.             RowBox[{
  6346.               SuperscriptBox["p1", "\[DoublePrime]",
  6347.                 MultilineFunction->None], "[", "0", "]"}]}], "]"}]}], ";"}]], 
  6348.   "Input"],
  6349.  
  6350. Cell[CellGroupData[{
  6351.  
  6352. Cell[BoxData[
  6353.     \(Factor[a4 /. %]\)], "Input"],
  6354.  
  6355. Cell[BoxData[
  6356.     RowBox[{"{", 
  6357.       RowBox[{
  6358.         RowBox[{"(", 
  6359.           RowBox[{
  6360.           \((\(-1\) + mu1)\), " ", \(\((1 + s1)\)\^2\), " ", \((mu2 + s2)\), 
  6361.             " ", 
  6362.             RowBox[{"(", 
  6363.               RowBox[{
  6364.               \(\(-2\)\ mu1\^3\ mu2\^3\), "-", \(2\ mu1\^2\ mu2\^4\), "+", 
  6365.                 \(2\ mu1\^3\ mu2\^4\), "+", \(6\ mu1\^3\ mu2\^2\ r\), "+", 
  6366.                 \(6\ mu1\^2\ mu2\^3\ r\), "-", \(6\ mu1\^3\ mu2\^3\ r\), "+", 
  6367.                 \(2\ mu1\ mu2\^4\ r\), "-", \(2\ mu1\^2\ mu2\^4\ r\), "-", 
  6368.                 \(2\ mu1\^3\ mu2\ r\^2\), "-", \(6\ mu1\^2\ mu2\^2\ r\^2\), 
  6369.                 "-", \(4\ mu1\ mu2\^3\ r\^2\), "+", 
  6370.                 \(4\ mu1\^2\ mu2\^3\ r\^2\), "+", 
  6371.                 \(2\ mu1\^3\ mu2\^3\ r\^2\), "+", \(2\ mu1\^2\ mu2\ r\^3\), 
  6372.                 "+", \(2\ mu1\ mu2\^2\ r\^3\), "-", 
  6373.                 \(2\ mu1\^2\ mu2\^2\ r\^3\), "-", \(2\ mu1\^2\ mu2\^3\ s1\), 
  6374.                 "+", \(6\ mu1\^2\ mu2\^2\ r\ s1\), "+", 
  6375.                 \(2\ mu1\ mu2\^3\ r\ s1\), "-", \(2\ mu1\^2\ mu2\^3\ r\ s1\), 
  6376.                 "-", \(2\ mu1\^2\ mu2\ r\^2\ s1\), "-", 
  6377.                 \(2\ mu1\ mu2\^2\ r\^2\ s1\), "-", 
  6378.                 \(4\ mu1\^2\ mu2\^2\ r\^2\ s1\), "-", 
  6379.                 \(2\ mu1\ mu2\^3\ r\^2\ s1\), "+", 
  6380.                 \(4\ mu1\^2\ mu2\^3\ r\^2\ s1\), "+", 
  6381.                 \(2\ mu1\^2\ mu2\ r\^3\ s1\), "+", 
  6382.                 \(2\ mu1\ mu2\^2\ r\^3\ s1\), "-", 
  6383.                 \(2\ mu1\^2\ mu2\^2\ r\^3\ s1\), "-", 
  6384.                 \(2\ mu1\^3\ mu2\^2\ s2\), "-", \(4\ mu1\^2\ mu2\^3\ s2\), 
  6385.                 "+", \(2\ mu1\^3\ mu2\^3\ s2\), "+", 
  6386.                 \(2\ mu1\^3\ mu2\ r\ s2\), "+", \(8\ mu1\^2\ mu2\^2\ r\ s2\), 
  6387.                 "+", \(2\ mu1\^3\ mu2\^2\ r\ s2\), "+", 
  6388.                 \(4\ mu1\ mu2\^3\ r\ s2\), "-", \(4\ mu1\^3\ mu2\^3\ r\ s2\), 
  6389.                 "-", \(4\ mu1\^2\ mu2\ r\^2\ s2\), "-", 
  6390.                 \(2\ mu1\^3\ mu2\ r\^2\ s2\), "-", 
  6391.                 \(4\ mu1\ mu2\^2\ r\^2\ s2\), "-", 
  6392.                 \(4\ mu1\^2\ mu2\^2\ r\^2\ s2\), "-", 
  6393.                 \(4\ mu1\ mu2\^3\ r\^2\ s2\), "+", 
  6394.                 \(4\ mu1\^2\ mu2\^3\ r\^2\ s2\), "+", 
  6395.                 \(2\ mu1\^3\ mu2\^3\ r\^2\ s2\), "+", 
  6396.                 \(4\ mu1\^2\ mu2\ r\^3\ s2\), "+", 
  6397.                 \(4\ mu1\ mu2\^2\ r\^3\ s2\), "-", 
  6398.                 \(4\ mu1\^2\ mu2\^2\ r\^3\ s2\), "+", 
  6399.                 \(2\ mu1\ mu2\^3\ s1\ s2\), "-", 
  6400.                 \(4\ mu1\^2\ mu2\^3\ s1\ s2\), "-", 
  6401.                 \(2\ mu1\ mu2\^2\ r\ s1\ s2\), "+", 
  6402.                 \(8\ mu1\^2\ mu2\^2\ r\ s1\ s2\), "+", 
  6403.                 \(2\ mu1\ mu2\ r\^2\ s1\ s2\), "-", 
  6404.                 \(4\ mu1\^2\ mu2\ r\^2\ s1\ s2\), "-", 
  6405.                 \(2\ mu1\ mu2\^2\ r\^2\ s1\ s2\), "-", 
  6406.                 \(4\ mu1\^2\ mu2\^2\ r\^2\ s1\ s2\), "-", 
  6407.                 \(2\ mu1\ mu2\^3\ r\^2\ s1\ s2\), "+", 
  6408.                 \(4\ mu1\^2\ mu2\^3\ r\^2\ s1\ s2\), "-", 
  6409.                 \(2\ mu1\ mu2\ r\^3\ s1\ s2\), "+", 
  6410.                 \(4\ mu1\^2\ mu2\ r\^3\ s1\ s2\), "+", 
  6411.                 \(4\ mu1\ mu2\^2\ r\^3\ s1\ s2\), "-", 
  6412.                 \(4\ mu1\^2\ mu2\^2\ r\^3\ s1\ s2\), "+", 
  6413.                 \(2\ mu1\ mu2\^2\ s1\^2\ s2\), "-", 
  6414.                 \(2\ mu1\ mu2\ r\ s1\^2\ s2\), "-", 
  6415.                 \(4\ mu1\ mu2\^2\ r\ s1\^2\ s2\), "+", 
  6416.                 \(4\ mu1\ mu2\ r\^2\ s1\^2\ s2\), "+", 
  6417.                 \(2\ mu1\ mu2\^2\ r\^2\ s1\^2\ s2\), "-", 
  6418.                 \(2\ mu1\ mu2\ r\^3\ s1\^2\ s2\), "-", 
  6419.                 \(2\ mu1\^2\ mu2\^2\ s2\^2\), "+", 
  6420.                 \(2\ mu1\^2\ mu2\ r\ s2\^2\), "+", 
  6421.                 \(2\ mu1\ mu2\^2\ r\ s2\^2\), "+", 
  6422.                 \(2\ mu1\^2\ mu2\^2\ r\ s2\^2\), "-", 
  6423.                 \(4\ mu1\^2\ mu2\ r\^2\ s2\^2\), "-", 
  6424.                 \(4\ mu1\ mu2\^2\ r\^2\ s2\^2\), "+", 
  6425.                 \(2\ mu1\^2\ mu2\^2\ r\^2\ s2\^2\), "+", 
  6426.                 \(2\ mu1\^2\ mu2\ r\^3\ s2\^2\), "+", 
  6427.                 \(2\ mu1\ mu2\^2\ r\^3\ s2\^2\), "-", 
  6428.                 \(2\ mu1\^2\ mu2\^2\ r\^3\ s2\^2\), "+", 
  6429.                 \(2\ mu1\^2\ mu2\ s1\ s2\^2\), "+", 
  6430.                 \(4\ mu1\ mu2\^2\ s1\ s2\^2\), "-", 
  6431.                 \(4\ mu1\^2\ mu2\^2\ s1\ s2\^2\), "-", 
  6432.                 \(4\ mu1\ mu2\ r\ s1\ s2\^2\), "-", 
  6433.                 \(2\ mu1\^2\ mu2\ r\ s1\ s2\^2\), "-", 
  6434.                 \(6\ mu1\ mu2\^2\ r\ s1\ s2\^2\), "+", 
  6435.                 \(6\ mu1\^2\ mu2\^2\ r\ s1\ s2\^2\), "+", 
  6436.                 \(8\ mu1\ mu2\ r\^2\ s1\ s2\^2\), "-", 
  6437.                 \(2\ mu1\^2\ mu2\ r\^2\ s1\ s2\^2\), "-", 
  6438.                 \(4\ mu1\ mu2\ r\^3\ s1\ s2\^2\), "+", 
  6439.                 \(2\ mu1\^2\ mu2\ r\^3\ s1\ s2\^2\), "+", 
  6440.                 \(2\ mu1\ mu2\^2\ r\^3\ s1\ s2\^2\), "-", 
  6441.                 \(2\ mu1\^2\ mu2\^2\ r\^3\ s1\ s2\^2\), "+", 
  6442.                 \(2\ mu1\ mu2\ s1\^2\ s2\^2\), "+", 
  6443.                 \(2\ mu1\ mu2\^2\ s1\^2\ s2\^2\), "-", 
  6444.                 \(8\ mu1\ mu2\ r\ s1\^2\ s2\^2\), "-", 
  6445.                 \(4\ mu1\ mu2\^2\ r\ s1\^2\ s2\^2\), "+", 
  6446.                 \(10\ mu1\ mu2\ r\^2\ s1\^2\ s2\^2\), "+", 
  6447.                 \(2\ mu1\ mu2\^2\ r\^2\ s1\^2\ s2\^2\), "-", 
  6448.                 \(4\ mu1\ mu2\ r\^3\ s1\^2\ s2\^2\), "+", 
  6449.                 \(2\ mu1\ mu2\ s1\ s2\^3\), "-", 
  6450.                 \(6\ mu1\ mu2\ r\ s1\ s2\^3\), "+", 
  6451.                 \(6\ mu1\ mu2\ r\^2\ s1\ s2\^3\), "-", 
  6452.                 \(2\ mu1\ mu2\ r\^3\ s1\ s2\^3\), "+", 
  6453.                 \(2\ mu1\ mu2\ s1\^2\ s2\^3\), "-", 
  6454.                 \(6\ mu1\ mu2\ r\ s1\^2\ s2\^3\), "+", 
  6455.                 \(6\ mu1\ mu2\ r\^2\ s1\^2\ s2\^3\), "-", 
  6456.                 \(2\ mu1\ mu2\ r\^3\ s1\^2\ s2\^3\), "-", 
  6457.                 RowBox[{\(mu1\^3\), " ", \(s1\^2\), " ", \(s2\^3\), " ", 
  6458.                   RowBox[{
  6459.                     SuperscriptBox["p2", "\[DoublePrime]",
  6460.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6461.                 RowBox[{
  6462.                 "3", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^2\), " ", 
  6463.                   \(s2\^3\), " ", 
  6464.                   RowBox[{
  6465.                     SuperscriptBox["p2", "\[DoublePrime]",
  6466.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6467.                 RowBox[{
  6468.                 "3", " ", \(mu1\^3\), " ", "mu2", " ", \(s1\^2\), " ", 
  6469.                   \(s2\^3\), " ", 
  6470.                   RowBox[{
  6471.                     SuperscriptBox["p2", "\[DoublePrime]",
  6472.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6473.                 RowBox[{
  6474.                 "3", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^2\), " ", 
  6475.                   \(s2\^3\), " ", 
  6476.                   RowBox[{
  6477.                     SuperscriptBox["p2", "\[DoublePrime]",
  6478.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6479.                 RowBox[{
  6480.                 "6", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^2\), " ", 
  6481.                   \(s2\^3\), " ", 
  6482.                   RowBox[{
  6483.                     SuperscriptBox["p2", "\[DoublePrime]",
  6484.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6485.                 RowBox[{
  6486.                 "3", " ", \(mu1\^3\), " ", \(mu2\^2\), " ", \(s1\^2\), " ", 
  6487.                   \(s2\^3\), " ", 
  6488.                   RowBox[{
  6489.                     SuperscriptBox["p2", "\[DoublePrime]",
  6490.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6491.                 RowBox[{\(mu2\^3\), " ", \(s1\^2\), " ", \(s2\^3\), " ", 
  6492.                   RowBox[{
  6493.                     SuperscriptBox["p2", "\[DoublePrime]",
  6494.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6495.                 RowBox[{
  6496.                 "3", " ", "mu1", " ", \(mu2\^3\), " ", \(s1\^2\), " ", 
  6497.                   \(s2\^3\), " ", 
  6498.                   RowBox[{
  6499.                     SuperscriptBox["p2", "\[DoublePrime]",
  6500.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6501.                 RowBox[{
  6502.                 "3", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", \(s1\^2\), " ", 
  6503.                   \(s2\^3\), " ", 
  6504.                   RowBox[{
  6505.                     SuperscriptBox["p2", "\[DoublePrime]",
  6506.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6507.                 RowBox[{
  6508.                 \(mu1\^3\), " ", \(mu2\^3\), " ", \(s1\^2\), " ", \(s2\^3\), 
  6509.                   " ", 
  6510.                   RowBox[{
  6511.                     SuperscriptBox["p2", "\[DoublePrime]",
  6512.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6513.                 RowBox[{
  6514.                 "3", " ", \(mu1\^2\), " ", "r", " ", \(s1\^2\), " ", 
  6515.                   \(s2\^3\), " ", 
  6516.                   RowBox[{
  6517.                     SuperscriptBox["p2", "\[DoublePrime]",
  6518.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6519.                 RowBox[{
  6520.                 "6", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^2\), " ", 
  6521.                   \(s2\^3\), " ", 
  6522.                   RowBox[{
  6523.                     SuperscriptBox["p2", "\[DoublePrime]",
  6524.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6525.                 RowBox[{
  6526.                 "6", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^2\), 
  6527.                   " ", \(s2\^3\), " ", 
  6528.                   RowBox[{
  6529.                     SuperscriptBox["p2", "\[DoublePrime]",
  6530.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6531.                 RowBox[{
  6532.                 "3", " ", \(mu2\^2\), " ", "r", " ", \(s1\^2\), " ", 
  6533.                   \(s2\^3\), " ", 
  6534.                   RowBox[{
  6535.                     SuperscriptBox["p2", "\[DoublePrime]",
  6536.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6537.                 RowBox[{
  6538.                 "6", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^2\), 
  6539.                   " ", \(s2\^3\), " ", 
  6540.                   RowBox[{
  6541.                     SuperscriptBox["p2", "\[DoublePrime]",
  6542.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6543.                 RowBox[{
  6544.                 "3", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  6545.                   \(s1\^2\), " ", \(s2\^3\), " ", 
  6546.                   RowBox[{
  6547.                     SuperscriptBox["p2", "\[DoublePrime]",
  6548.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6549.                 RowBox[{
  6550.                 "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^2\), " ", 
  6551.                   \(s2\^3\), " ", 
  6552.                   RowBox[{
  6553.                     SuperscriptBox["p2", "\[DoublePrime]",
  6554.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6555.                 RowBox[{
  6556.                 "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^2\), " ", 
  6557.                   \(s2\^3\), " ", 
  6558.                   RowBox[{
  6559.                     SuperscriptBox["p2", "\[DoublePrime]",
  6560.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6561.                 RowBox[{
  6562.                 "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^2\), 
  6563.                   " ", \(s2\^3\), " ", 
  6564.                   RowBox[{
  6565.                     SuperscriptBox["p2", "\[DoublePrime]",
  6566.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6567.                 RowBox[{\(r\^3\), " ", \(s1\^2\), " ", \(s2\^3\), " ", 
  6568.                   RowBox[{
  6569.                     SuperscriptBox["p2", "\[DoublePrime]",
  6570.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6571.                 RowBox[{
  6572.                 "3", " ", \(mu1\^2\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  6573.                   RowBox[{
  6574.                     SuperscriptBox["p2", "\[DoublePrime]",
  6575.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6576.                 RowBox[{
  6577.                 "6", " ", "mu1", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^3\), 
  6578.                   " ", 
  6579.                   RowBox[{
  6580.                     SuperscriptBox["p2", "\[DoublePrime]",
  6581.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6582.                 RowBox[{
  6583.                 "6", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", 
  6584.                   \(s2\^3\), " ", 
  6585.                   RowBox[{
  6586.                     SuperscriptBox["p2", "\[DoublePrime]",
  6587.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6588.                 RowBox[{
  6589.                 "3", " ", \(mu2\^2\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  6590.                   RowBox[{
  6591.                     SuperscriptBox["p2", "\[DoublePrime]",
  6592.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6593.                 RowBox[{
  6594.                 "6", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  6595.                   \(s2\^3\), " ", 
  6596.                   RowBox[{
  6597.                     SuperscriptBox["p2", "\[DoublePrime]",
  6598.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6599.                 RowBox[{
  6600.                 "3", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  6601.                   \(s2\^3\), " ", 
  6602.                   RowBox[{
  6603.                     SuperscriptBox["p2", "\[DoublePrime]",
  6604.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6605.                 RowBox[{
  6606.                 "6", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^3\), 
  6607.                   " ", 
  6608.                   RowBox[{
  6609.                     SuperscriptBox["p2", "\[DoublePrime]",
  6610.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6611.                 RowBox[{
  6612.                 "3", " ", \(mu1\^2\), " ", "r", " ", \(s1\^3\), " ", 
  6613.                   \(s2\^3\), " ", 
  6614.                   RowBox[{
  6615.                     SuperscriptBox["p2", "\[DoublePrime]",
  6616.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6617.                 RowBox[{
  6618.                 "6", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", \(s2\^3\), 
  6619.                   " ", 
  6620.                   RowBox[{
  6621.                     SuperscriptBox["p2", "\[DoublePrime]",
  6622.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6623.                 RowBox[{
  6624.                 "6", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^3\), 
  6625.                   " ", \(s2\^3\), " ", 
  6626.                   RowBox[{
  6627.                     SuperscriptBox["p2", "\[DoublePrime]",
  6628.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6629.                 RowBox[{
  6630.                 "3", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", 
  6631.                   \(s2\^3\), " ", 
  6632.                   RowBox[{
  6633.                     SuperscriptBox["p2", "\[DoublePrime]",
  6634.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6635.                 RowBox[{
  6636.                 "6", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), 
  6637.                   " ", \(s2\^3\), " ", 
  6638.                   RowBox[{
  6639.                     SuperscriptBox["p2", "\[DoublePrime]",
  6640.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6641.                 RowBox[{
  6642.                 "3", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  6643.                   \(s1\^3\), " ", \(s2\^3\), " ", 
  6644.                   RowBox[{
  6645.                     SuperscriptBox["p2", "\[DoublePrime]",
  6646.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6647.                 RowBox[{
  6648.                 "3", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  6649.                   RowBox[{
  6650.                     SuperscriptBox["p2", "\[DoublePrime]",
  6651.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6652.                 RowBox[{
  6653.                 "6", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  6654.                   \(s2\^3\), " ", 
  6655.                   RowBox[{
  6656.                     SuperscriptBox["p2", "\[DoublePrime]",
  6657.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6658.                 RowBox[{
  6659.                 "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  6660.                   \(s2\^3\), " ", 
  6661.                   RowBox[{
  6662.                     SuperscriptBox["p2", "\[DoublePrime]",
  6663.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6664.                 RowBox[{
  6665.                 "6", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), 
  6666.                   " ", \(s2\^3\), " ", 
  6667.                   RowBox[{
  6668.                     SuperscriptBox["p2", "\[DoublePrime]",
  6669.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6670.                 RowBox[{
  6671.                 "3", " ", \(r\^3\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  6672.                   RowBox[{
  6673.                     SuperscriptBox["p2", "\[DoublePrime]",
  6674.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6675.                 RowBox[{
  6676.                 "3", " ", "mu1", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  6677.                   RowBox[{
  6678.                     SuperscriptBox["p2", "\[DoublePrime]",
  6679.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6680.                 RowBox[{
  6681.                 "3", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  6682.                   RowBox[{
  6683.                     SuperscriptBox["p2", "\[DoublePrime]",
  6684.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6685.                 RowBox[{
  6686.                 "3", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^3\), 
  6687.                   " ", 
  6688.                   RowBox[{
  6689.                     SuperscriptBox["p2", "\[DoublePrime]",
  6690.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6691.                 RowBox[{"3", " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  6692.                   RowBox[{
  6693.                     SuperscriptBox["p2", "\[DoublePrime]",
  6694.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6695.                 RowBox[{
  6696.                 "6", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), 
  6697.                   " ", 
  6698.                   RowBox[{
  6699.                     SuperscriptBox["p2", "\[DoublePrime]",
  6700.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6701.                 RowBox[{
  6702.                 "6", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), 
  6703.                   " ", 
  6704.                   RowBox[{
  6705.                     SuperscriptBox["p2", "\[DoublePrime]",
  6706.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6707.                 RowBox[{
  6708.                 "6", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  6709.                   \(s2\^3\), " ", 
  6710.                   RowBox[{
  6711.                     SuperscriptBox["p2", "\[DoublePrime]",
  6712.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6713.                 RowBox[{
  6714.                 "6", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  6715.                   RowBox[{
  6716.                     SuperscriptBox["p2", "\[DoublePrime]",
  6717.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6718.                 RowBox[{
  6719.                 "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  6720.                   \(s2\^3\), " ", 
  6721.                   RowBox[{
  6722.                     SuperscriptBox["p2", "\[DoublePrime]",
  6723.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6724.                 RowBox[{
  6725.                 "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  6726.                   \(s2\^3\), " ", 
  6727.                   RowBox[{
  6728.                     SuperscriptBox["p2", "\[DoublePrime]",
  6729.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6730.                 RowBox[{
  6731.                 "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), 
  6732.                   " ", \(s2\^3\), " ", 
  6733.                   RowBox[{
  6734.                     SuperscriptBox["p2", "\[DoublePrime]",
  6735.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6736.                 RowBox[{
  6737.                 "3", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  6738.                   RowBox[{
  6739.                     SuperscriptBox["p2", "\[DoublePrime]",
  6740.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6741.                 RowBox[{\(s1\^5\), " ", \(s2\^3\), " ", 
  6742.                   RowBox[{
  6743.                     SuperscriptBox["p2", "\[DoublePrime]",
  6744.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6745.                 RowBox[{"3", " ", "r", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  6746.                   RowBox[{
  6747.                     SuperscriptBox["p2", "\[DoublePrime]",
  6748.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6749.                 RowBox[{
  6750.                 "3", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  6751.                   RowBox[{
  6752.                     SuperscriptBox["p2", "\[DoublePrime]",
  6753.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6754.                 RowBox[{\(r\^3\), " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  6755.                   RowBox[{
  6756.                     SuperscriptBox["p2", "\[DoublePrime]",
  6757.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6758.                 RowBox[{
  6759.                 "3", " ", \(mu1\^2\), " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  6760.                   RowBox[{
  6761.                     SuperscriptBox["p2", "\[DoublePrime]",
  6762.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6763.                 RowBox[{
  6764.                 "6", " ", "mu1", " ", "mu2", " ", \(s1\^2\), " ", \(s2\^4\), 
  6765.                   " ", 
  6766.                   RowBox[{
  6767.                     SuperscriptBox["p2", "\[DoublePrime]",
  6768.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6769.                 RowBox[{
  6770.                 "6", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^2\), " ", 
  6771.                   \(s2\^4\), " ", 
  6772.                   RowBox[{
  6773.                     SuperscriptBox["p2", "\[DoublePrime]",
  6774.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6775.                 RowBox[{
  6776.                 "3", " ", \(mu2\^2\), " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  6777.                   RowBox[{
  6778.                     SuperscriptBox["p2", "\[DoublePrime]",
  6779.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6780.                 RowBox[{
  6781.                 "6", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^2\), " ", 
  6782.                   \(s2\^4\), " ", 
  6783.                   RowBox[{
  6784.                     SuperscriptBox["p2", "\[DoublePrime]",
  6785.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6786.                 RowBox[{
  6787.                 "3", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^2\), " ", 
  6788.                   \(s2\^4\), " ", 
  6789.                   RowBox[{
  6790.                     SuperscriptBox["p2", "\[DoublePrime]",
  6791.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6792.                 RowBox[{
  6793.                 "6", " ", "mu1", " ", "r", " ", \(s1\^2\), " ", \(s2\^4\), 
  6794.                   " ", 
  6795.                   RowBox[{
  6796.                     SuperscriptBox["p2", "\[DoublePrime]",
  6797.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6798.                 RowBox[{
  6799.                 "3", " ", \(mu1\^2\), " ", "r", " ", \(s1\^2\), " ", 
  6800.                   \(s2\^4\), " ", 
  6801.                   RowBox[{
  6802.                     SuperscriptBox["p2", "\[DoublePrime]",
  6803.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6804.                 RowBox[{
  6805.                 "6", " ", "mu2", " ", "r", " ", \(s1\^2\), " ", \(s2\^4\), 
  6806.                   " ", 
  6807.                   RowBox[{
  6808.                     SuperscriptBox["p2", "\[DoublePrime]",
  6809.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6810.                 RowBox[{
  6811.                 "6", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^2\), 
  6812.                   " ", \(s2\^4\), " ", 
  6813.                   RowBox[{
  6814.                     SuperscriptBox["p2", "\[DoublePrime]",
  6815.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6816.                 RowBox[{
  6817.                 "3", " ", \(mu2\^2\), " ", "r", " ", \(s1\^2\), " ", 
  6818.                   \(s2\^4\), " ", 
  6819.                   RowBox[{
  6820.                     SuperscriptBox["p2", "\[DoublePrime]",
  6821.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6822.                 RowBox[{
  6823.                 "6", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^2\), 
  6824.                   " ", \(s2\^4\), " ", 
  6825.                   RowBox[{
  6826.                     SuperscriptBox["p2", "\[DoublePrime]",
  6827.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6828.                 RowBox[{
  6829.                 "3", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  6830.                   \(s1\^2\), " ", \(s2\^4\), " ", 
  6831.                   RowBox[{
  6832.                     SuperscriptBox["p2", "\[DoublePrime]",
  6833.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6834.                 RowBox[{
  6835.                 "3", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  6836.                   RowBox[{
  6837.                     SuperscriptBox["p2", "\[DoublePrime]",
  6838.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6839.                 RowBox[{
  6840.                 "6", " ", "mu1", " ", \(r\^2\), " ", \(s1\^2\), " ", 
  6841.                   \(s2\^4\), " ", 
  6842.                   RowBox[{
  6843.                     SuperscriptBox["p2", "\[DoublePrime]",
  6844.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6845.                 RowBox[{
  6846.                 "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^2\), " ", 
  6847.                   \(s2\^4\), " ", 
  6848.                   RowBox[{
  6849.                     SuperscriptBox["p2", "\[DoublePrime]",
  6850.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6851.                 RowBox[{
  6852.                 "6", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^2\), 
  6853.                   " ", \(s2\^4\), " ", 
  6854.                   RowBox[{
  6855.                     SuperscriptBox["p2", "\[DoublePrime]",
  6856.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6857.                 RowBox[{
  6858.                 "3", " ", \(r\^3\), " ", \(s1\^2\), " ", \(s2\^4\), " ", 
  6859.                   RowBox[{
  6860.                     SuperscriptBox["p2", "\[DoublePrime]",
  6861.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6862.                 RowBox[{
  6863.                 "6", " ", "mu1", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  6864.                   RowBox[{
  6865.                     SuperscriptBox["p2", "\[DoublePrime]",
  6866.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6867.                 RowBox[{
  6868.                 "3", " ", \(mu1\^2\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  6869.                   RowBox[{
  6870.                     SuperscriptBox["p2", "\[DoublePrime]",
  6871.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6872.                 RowBox[{
  6873.                 "6", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  6874.                   RowBox[{
  6875.                     SuperscriptBox["p2", "\[DoublePrime]",
  6876.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6877.                 RowBox[{
  6878.                 "6", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", 
  6879.                   \(s2\^4\), " ", 
  6880.                   RowBox[{
  6881.                     SuperscriptBox["p2", "\[DoublePrime]",
  6882.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6883.                 RowBox[{
  6884.                 "3", " ", \(mu2\^2\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  6885.                   RowBox[{
  6886.                     SuperscriptBox["p2", "\[DoublePrime]",
  6887.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6888.                 RowBox[{
  6889.                 "6", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  6890.                   \(s2\^4\), " ", 
  6891.                   RowBox[{
  6892.                     SuperscriptBox["p2", "\[DoublePrime]",
  6893.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6894.                 RowBox[{
  6895.                 "3", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  6896.                   \(s2\^4\), " ", 
  6897.                   RowBox[{
  6898.                     SuperscriptBox["p2", "\[DoublePrime]",
  6899.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6900.                 RowBox[{"6", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  6901.                   RowBox[{
  6902.                     SuperscriptBox["p2", "\[DoublePrime]",
  6903.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6904.                 RowBox[{
  6905.                 "18", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), 
  6906.                   " ", 
  6907.                   RowBox[{
  6908.                     SuperscriptBox["p2", "\[DoublePrime]",
  6909.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6910.                 RowBox[{
  6911.                 "3", " ", \(mu1\^2\), " ", "r", " ", \(s1\^3\), " ", 
  6912.                   \(s2\^4\), " ", 
  6913.                   RowBox[{
  6914.                     SuperscriptBox["p2", "\[DoublePrime]",
  6915.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6916.                 RowBox[{
  6917.                 "18", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), 
  6918.                   " ", 
  6919.                   RowBox[{
  6920.                     SuperscriptBox["p2", "\[DoublePrime]",
  6921.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6922.                 RowBox[{
  6923.                 "12", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  6924.                   \(s2\^4\), " ", 
  6925.                   RowBox[{
  6926.                     SuperscriptBox["p2", "\[DoublePrime]",
  6927.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6928.                 RowBox[{
  6929.                 "6", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^3\), 
  6930.                   " ", \(s2\^4\), " ", 
  6931.                   RowBox[{
  6932.                     SuperscriptBox["p2", "\[DoublePrime]",
  6933.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6934.                 RowBox[{
  6935.                 "3", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", 
  6936.                   \(s2\^4\), " ", 
  6937.                   RowBox[{
  6938.                     SuperscriptBox["p2", "\[DoublePrime]",
  6939.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6940.                 RowBox[{
  6941.                 "6", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), 
  6942.                   " ", \(s2\^4\), " ", 
  6943.                   RowBox[{
  6944.                     SuperscriptBox["p2", "\[DoublePrime]",
  6945.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6946.                 RowBox[{
  6947.                 "3", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  6948.                   \(s1\^3\), " ", \(s2\^4\), " ", 
  6949.                   RowBox[{
  6950.                     SuperscriptBox["p2", "\[DoublePrime]",
  6951.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6952.                 RowBox[{
  6953.                 "15", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  6954.                   RowBox[{
  6955.                     SuperscriptBox["p2", "\[DoublePrime]",
  6956.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6957.                 RowBox[{
  6958.                 "12", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  6959.                   \(s2\^4\), " ", 
  6960.                   RowBox[{
  6961.                     SuperscriptBox["p2", "\[DoublePrime]",
  6962.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6963.                 RowBox[{
  6964.                 "12", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  6965.                   \(s2\^4\), " ", 
  6966.                   RowBox[{
  6967.                     SuperscriptBox["p2", "\[DoublePrime]",
  6968.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6969.                 RowBox[{
  6970.                 "12", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), 
  6971.                   " ", \(s2\^4\), " ", 
  6972.                   RowBox[{
  6973.                     SuperscriptBox["p2", "\[DoublePrime]",
  6974.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6975.                 RowBox[{
  6976.                 "9", " ", \(r\^3\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  6977.                   RowBox[{
  6978.                     SuperscriptBox["p2", "\[DoublePrime]",
  6979.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6980.                 RowBox[{"3", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  6981.                   RowBox[{
  6982.                     SuperscriptBox["p2", "\[DoublePrime]",
  6983.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6984.                 RowBox[{
  6985.                 "6", " ", "mu1", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  6986.                   RowBox[{
  6987.                     SuperscriptBox["p2", "\[DoublePrime]",
  6988.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  6989.                 RowBox[{
  6990.                 "6", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  6991.                   RowBox[{
  6992.                     SuperscriptBox["p2", "\[DoublePrime]",
  6993.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  6994.                 RowBox[{
  6995.                 "6", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^4\), 
  6996.                   " ", 
  6997.                   RowBox[{
  6998.                     SuperscriptBox["p2", "\[DoublePrime]",
  6999.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7000.                 RowBox[{"15", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  7001.                   RowBox[{
  7002.                     SuperscriptBox["p2", "\[DoublePrime]",
  7003.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7004.                 RowBox[{
  7005.                 "12", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), 
  7006.                   " ", 
  7007.                   RowBox[{
  7008.                     SuperscriptBox["p2", "\[DoublePrime]",
  7009.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7010.                 RowBox[{
  7011.                 "12", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), 
  7012.                   " ", 
  7013.                   RowBox[{
  7014.                     SuperscriptBox["p2", "\[DoublePrime]",
  7015.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7016.                 RowBox[{
  7017.                 "12", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  7018.                   \(s2\^4\), " ", 
  7019.                   RowBox[{
  7020.                     SuperscriptBox["p2", "\[DoublePrime]",
  7021.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7022.                 RowBox[{
  7023.                 "21", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  7024.                   RowBox[{
  7025.                     SuperscriptBox["p2", "\[DoublePrime]",
  7026.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7027.                 RowBox[{
  7028.                 "6", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  7029.                   \(s2\^4\), " ", 
  7030.                   RowBox[{
  7031.                     SuperscriptBox["p2", "\[DoublePrime]",
  7032.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7033.                 RowBox[{
  7034.                 "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  7035.                   \(s2\^4\), " ", 
  7036.                   RowBox[{
  7037.                     SuperscriptBox["p2", "\[DoublePrime]",
  7038.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7039.                 RowBox[{
  7040.                 "6", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), 
  7041.                   " ", \(s2\^4\), " ", 
  7042.                   RowBox[{
  7043.                     SuperscriptBox["p2", "\[DoublePrime]",
  7044.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7045.                 RowBox[{
  7046.                 "9", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  7047.                   RowBox[{
  7048.                     SuperscriptBox["p2", "\[DoublePrime]",
  7049.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7050.                 RowBox[{"3", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  7051.                   RowBox[{
  7052.                     SuperscriptBox["p2", "\[DoublePrime]",
  7053.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7054.                 RowBox[{"9", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  7055.                   RowBox[{
  7056.                     SuperscriptBox["p2", "\[DoublePrime]",
  7057.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7058.                 RowBox[{
  7059.                 "9", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  7060.                   RowBox[{
  7061.                     SuperscriptBox["p2", "\[DoublePrime]",
  7062.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7063.                 RowBox[{
  7064.                 "3", " ", \(r\^3\), " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  7065.                   RowBox[{
  7066.                     SuperscriptBox["p2", "\[DoublePrime]",
  7067.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7068.                 RowBox[{
  7069.                 "3", " ", "mu1", " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  7070.                   RowBox[{
  7071.                     SuperscriptBox["p2", "\[DoublePrime]",
  7072.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7073.                 RowBox[{
  7074.                 "3", " ", "mu2", " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  7075.                   RowBox[{
  7076.                     SuperscriptBox["p2", "\[DoublePrime]",
  7077.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7078.                 RowBox[{
  7079.                 "3", " ", "mu1", " ", "mu2", " ", \(s1\^2\), " ", \(s2\^5\), 
  7080.                   " ", 
  7081.                   RowBox[{
  7082.                     SuperscriptBox["p2", "\[DoublePrime]",
  7083.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7084.                 RowBox[{"3", " ", "r", " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  7085.                   RowBox[{
  7086.                     SuperscriptBox["p2", "\[DoublePrime]",
  7087.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7088.                 RowBox[{
  7089.                 "6", " ", "mu1", " ", "r", " ", \(s1\^2\), " ", \(s2\^5\), 
  7090.                   " ", 
  7091.                   RowBox[{
  7092.                     SuperscriptBox["p2", "\[DoublePrime]",
  7093.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7094.                 RowBox[{
  7095.                 "6", " ", "mu2", " ", "r", " ", \(s1\^2\), " ", \(s2\^5\), 
  7096.                   " ", 
  7097.                   RowBox[{
  7098.                     SuperscriptBox["p2", "\[DoublePrime]",
  7099.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7100.                 RowBox[{
  7101.                 "6", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^2\), " ", 
  7102.                   \(s2\^5\), " ", 
  7103.                   RowBox[{
  7104.                     SuperscriptBox["p2", "\[DoublePrime]",
  7105.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7106.                 RowBox[{
  7107.                 "6", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  7108.                   RowBox[{
  7109.                     SuperscriptBox["p2", "\[DoublePrime]",
  7110.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7111.                 RowBox[{
  7112.                 "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^2\), " ", 
  7113.                   \(s2\^5\), " ", 
  7114.                   RowBox[{
  7115.                     SuperscriptBox["p2", "\[DoublePrime]",
  7116.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7117.                 RowBox[{
  7118.                 "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^2\), " ", 
  7119.                   \(s2\^5\), " ", 
  7120.                   RowBox[{
  7121.                     SuperscriptBox["p2", "\[DoublePrime]",
  7122.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7123.                 RowBox[{
  7124.                 "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^2\), 
  7125.                   " ", \(s2\^5\), " ", 
  7126.                   RowBox[{
  7127.                     SuperscriptBox["p2", "\[DoublePrime]",
  7128.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7129.                 RowBox[{
  7130.                 "3", " ", \(r\^3\), " ", \(s1\^2\), " ", \(s2\^5\), " ", 
  7131.                   RowBox[{
  7132.                     SuperscriptBox["p2", "\[DoublePrime]",
  7133.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7134.                 RowBox[{"3", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  7135.                   RowBox[{
  7136.                     SuperscriptBox["p2", "\[DoublePrime]",
  7137.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7138.                 RowBox[{
  7139.                 "6", " ", "mu1", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  7140.                   RowBox[{
  7141.                     SuperscriptBox["p2", "\[DoublePrime]",
  7142.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7143.                 RowBox[{
  7144.                 "6", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  7145.                   RowBox[{
  7146.                     SuperscriptBox["p2", "\[DoublePrime]",
  7147.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7148.                 RowBox[{
  7149.                 "6", " ", "mu1", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^5\), 
  7150.                   " ", 
  7151.                   RowBox[{
  7152.                     SuperscriptBox["p2", "\[DoublePrime]",
  7153.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7154.                 RowBox[{"15", " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  7155.                   RowBox[{
  7156.                     SuperscriptBox["p2", "\[DoublePrime]",
  7157.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7158.                 RowBox[{
  7159.                 "12", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), 
  7160.                   " ", 
  7161.                   RowBox[{
  7162.                     SuperscriptBox["p2", "\[DoublePrime]",
  7163.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7164.                 RowBox[{
  7165.                 "12", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), 
  7166.                   " ", 
  7167.                   RowBox[{
  7168.                     SuperscriptBox["p2", "\[DoublePrime]",
  7169.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7170.                 RowBox[{
  7171.                 "12", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  7172.                   \(s2\^5\), " ", 
  7173.                   RowBox[{
  7174.                     SuperscriptBox["p2", "\[DoublePrime]",
  7175.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7176.                 RowBox[{
  7177.                 "21", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  7178.                   RowBox[{
  7179.                     SuperscriptBox["p2", "\[DoublePrime]",
  7180.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7181.                 RowBox[{
  7182.                 "6", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  7183.                   \(s2\^5\), " ", 
  7184.                   RowBox[{
  7185.                     SuperscriptBox["p2", "\[DoublePrime]",
  7186.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7187.                 RowBox[{
  7188.                 "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  7189.                   \(s2\^5\), " ", 
  7190.                   RowBox[{
  7191.                     SuperscriptBox["p2", "\[DoublePrime]",
  7192.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7193.                 RowBox[{
  7194.                 "6", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), 
  7195.                   " ", \(s2\^5\), " ", 
  7196.                   RowBox[{
  7197.                     SuperscriptBox["p2", "\[DoublePrime]",
  7198.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7199.                 RowBox[{
  7200.                 "9", " ", \(r\^3\), " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  7201.                   RowBox[{
  7202.                     SuperscriptBox["p2", "\[DoublePrime]",
  7203.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7204.                 RowBox[{"6", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  7205.                   RowBox[{
  7206.                     SuperscriptBox["p2", "\[DoublePrime]",
  7207.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7208.                 RowBox[{
  7209.                 "3", " ", "mu1", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  7210.                   RowBox[{
  7211.                     SuperscriptBox["p2", "\[DoublePrime]",
  7212.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7213.                 RowBox[{
  7214.                 "3", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  7215.                   RowBox[{
  7216.                     SuperscriptBox["p2", "\[DoublePrime]",
  7217.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7218.                 RowBox[{
  7219.                 "3", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^5\), 
  7220.                   " ", 
  7221.                   RowBox[{
  7222.                     SuperscriptBox["p2", "\[DoublePrime]",
  7223.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7224.                 RowBox[{"21", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  7225.                   RowBox[{
  7226.                     SuperscriptBox["p2", "\[DoublePrime]",
  7227.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7228.                 RowBox[{
  7229.                 "6", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), 
  7230.                   " ", 
  7231.                   RowBox[{
  7232.                     SuperscriptBox["p2", "\[DoublePrime]",
  7233.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7234.                 RowBox[{
  7235.                 "6", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), 
  7236.                   " ", 
  7237.                   RowBox[{
  7238.                     SuperscriptBox["p2", "\[DoublePrime]",
  7239.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7240.                 RowBox[{
  7241.                 "6", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  7242.                   \(s2\^5\), " ", 
  7243.                   RowBox[{
  7244.                     SuperscriptBox["p2", "\[DoublePrime]",
  7245.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7246.                 RowBox[{
  7247.                 "24", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  7248.                   RowBox[{
  7249.                     SuperscriptBox["p2", "\[DoublePrime]",
  7250.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7251.                 RowBox[{
  7252.                 "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  7253.                   \(s2\^5\), " ", 
  7254.                   RowBox[{
  7255.                     SuperscriptBox["p2", "\[DoublePrime]",
  7256.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7257.                 RowBox[{
  7258.                 "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  7259.                   \(s2\^5\), " ", 
  7260.                   RowBox[{
  7261.                     SuperscriptBox["p2", "\[DoublePrime]",
  7262.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7263.                 RowBox[{
  7264.                 "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), 
  7265.                   " ", \(s2\^5\), " ", 
  7266.                   RowBox[{
  7267.                     SuperscriptBox["p2", "\[DoublePrime]",
  7268.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7269.                 RowBox[{
  7270.                 "9", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  7271.                   RowBox[{
  7272.                     SuperscriptBox["p2", "\[DoublePrime]",
  7273.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7274.                 RowBox[{"3", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  7275.                   RowBox[{
  7276.                     SuperscriptBox["p2", "\[DoublePrime]",
  7277.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7278.                 RowBox[{"9", " ", "r", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  7279.                   RowBox[{
  7280.                     SuperscriptBox["p2", "\[DoublePrime]",
  7281.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7282.                 RowBox[{
  7283.                 "9", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  7284.                   RowBox[{
  7285.                     SuperscriptBox["p2", "\[DoublePrime]",
  7286.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7287.                 RowBox[{
  7288.                 "3", " ", \(r\^3\), " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  7289.                   RowBox[{
  7290.                     SuperscriptBox["p2", "\[DoublePrime]",
  7291.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7292.                 RowBox[{\(s1\^2\), " ", \(s2\^6\), " ", 
  7293.                   RowBox[{
  7294.                     SuperscriptBox["p2", "\[DoublePrime]",
  7295.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7296.                 RowBox[{"3", " ", "r", " ", \(s1\^2\), " ", \(s2\^6\), " ", 
  7297.                   RowBox[{
  7298.                     SuperscriptBox["p2", "\[DoublePrime]",
  7299.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7300.                 RowBox[{
  7301.                 "3", " ", \(r\^2\), " ", \(s1\^2\), " ", \(s2\^6\), " ", 
  7302.                   RowBox[{
  7303.                     SuperscriptBox["p2", "\[DoublePrime]",
  7304.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7305.                 RowBox[{\(r\^3\), " ", \(s1\^2\), " ", \(s2\^6\), " ", 
  7306.                   RowBox[{
  7307.                     SuperscriptBox["p2", "\[DoublePrime]",
  7308.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7309.                 RowBox[{"3", " ", \(s1\^3\), " ", \(s2\^6\), " ", 
  7310.                   RowBox[{
  7311.                     SuperscriptBox["p2", "\[DoublePrime]",
  7312.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7313.                 RowBox[{"9", " ", "r", " ", \(s1\^3\), " ", \(s2\^6\), " ", 
  7314.                   RowBox[{
  7315.                     SuperscriptBox["p2", "\[DoublePrime]",
  7316.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7317.                 RowBox[{
  7318.                 "9", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^6\), " ", 
  7319.                   RowBox[{
  7320.                     SuperscriptBox["p2", "\[DoublePrime]",
  7321.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7322.                 RowBox[{
  7323.                 "3", " ", \(r\^3\), " ", \(s1\^3\), " ", \(s2\^6\), " ", 
  7324.                   RowBox[{
  7325.                     SuperscriptBox["p2", "\[DoublePrime]",
  7326.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7327.                 RowBox[{"3", " ", \(s1\^4\), " ", \(s2\^6\), " ", 
  7328.                   RowBox[{
  7329.                     SuperscriptBox["p2", "\[DoublePrime]",
  7330.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7331.                 RowBox[{"9", " ", "r", " ", \(s1\^4\), " ", \(s2\^6\), " ", 
  7332.                   RowBox[{
  7333.                     SuperscriptBox["p2", "\[DoublePrime]",
  7334.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7335.                 RowBox[{
  7336.                 "9", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^6\), " ", 
  7337.                   RowBox[{
  7338.                     SuperscriptBox["p2", "\[DoublePrime]",
  7339.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7340.                 RowBox[{
  7341.                 "3", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^6\), " ", 
  7342.                   RowBox[{
  7343.                     SuperscriptBox["p2", "\[DoublePrime]",
  7344.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7345.                 RowBox[{\(s1\^5\), " ", \(s2\^6\), " ", 
  7346.                   RowBox[{
  7347.                     SuperscriptBox["p2", "\[DoublePrime]",
  7348.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7349.                 RowBox[{"3", " ", "r", " ", \(s1\^5\), " ", \(s2\^6\), " ", 
  7350.                   RowBox[{
  7351.                     SuperscriptBox["p2", "\[DoublePrime]",
  7352.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7353.                 RowBox[{
  7354.                 "3", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^6\), " ", 
  7355.                   RowBox[{
  7356.                     SuperscriptBox["p2", "\[DoublePrime]",
  7357.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7358.                 RowBox[{\(r\^3\), " ", \(s1\^5\), " ", \(s2\^6\), " ", 
  7359.                   RowBox[{
  7360.                     SuperscriptBox["p2", "\[DoublePrime]",
  7361.                       MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], 
  7362.           ")"}], "/", 
  7363.         \((s1\^2\ \((mu1 + s1)\)\ s2\ \((1 + s2)\)\ 
  7364.             \((\(-mu1\) - mu2 + mu1\ mu2 + r - s1 + r\ s1 - s2 + r\ s2 - 
  7365.                   s1\ s2 + r\ s1\ s2)\)\^2)\)}], "}"}]], "Output"]
  7366. }, Closed]],
  7367.  
  7368. Cell[CellGroupData[{
  7369.  
  7370. Cell[BoxData[
  7371.     RowBox[{"a6", "=", 
  7372.       RowBox[{"Simplify", "[", 
  7373.         RowBox[{"Solve", "[", 
  7374.           RowBox[{\(% == 0\), ",", 
  7375.             RowBox[{
  7376.               SuperscriptBox["p2", "\[DoublePrime]",
  7377.                 MultilineFunction->None], "[", "0", "]"}]}], "]"}], "]"}]}]], 
  7378.   "Input"],
  7379.  
  7380. Cell[BoxData[
  7381.     RowBox[{"{", 
  7382.       RowBox[{"{", 
  7383.         RowBox[{
  7384.           RowBox[{
  7385.             SuperscriptBox["p2", "\[DoublePrime]",
  7386.               MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
  7387.           \(-\(\((2\ mu1\ mu2\ 
  7388.                   \((mu1\^2\ \((\(-1\) + mu2)\)\ 
  7389.                         \((mu2\^2 + r\ \((r - s2 + r\ s2)\) + 
  7390.                             mu2\ \((
  7391.                                 \(-3\)\ r + r\^2 + s2 - 2\ r\ s2 + r\^2\ s2)
  7392.                                 \))\) + 
  7393.                       \((mu2 - r + s2 - r\ s2)\)\ 
  7394.                         \((mu2\^2\ r + 
  7395.                             \((\(-1\) + r)\)\ s1\ s2\ 
  7396.                               \((r - s1 + r\ s1 - s2 + r\ s2 - s1\ s2 + 
  7397.                                   r\ s1\ s2)\) - 
  7398.                             mu2\ \((
  7399.                                 r\^2 - r\ s1 + r\^2\ s1 - r\ s2 + r\^2\ s2 - 
  7400.                                   s1\ s2 + r\^2\ s1\ s2)\))\) - 
  7401.                       mu1\ \((
  7402.                           mu2\^3\ \((1 + r)\) + 
  7403.                             mu2\^2\ 
  7404.                               \((\(-3\)\ r - 2\ r\^2 + s1 + r\ s1 - 
  7405.                                   2\ r\^2\ s1 + 2\ s2 - 2\ r\^2\ s2 + 
  7406.                                   2\ s1\ s2 - 2\ r\^2\ s1\ s2)\) - 
  7407.                             \((r - s2 + r\ s2)\)\ 
  7408.                               \((r\^2 - r\ s1 + r\^2\ s1 - r\ s2 + r\^2\ s2 - 
  7409.                                   s1\ s2 + r\^2\ s1\ s2)\) + 
  7410.                             mu2\ \((
  7411.                                 3\ r\^2 + r\^3 - 3\ r\ s1 + 2\ r\^2\ s1 + 
  7412.                                   r\^3\ s1 - 4\ r\ s2 + 2\ r\^2\ s2 + 
  7413.                                   2\ r\^3\ s2 - 4\ r\ s1\ s2 + 
  7414.                                   2\ r\^2\ s1\ s2 + 2\ r\^3\ s1\ s2 + s2\^2 - 
  7415.                                   r\ s2\^2 - r\^2\ s2\^2 + r\^3\ s2\^2 + 
  7416.                                   2\ s1\ s2\^2 - 3\ r\ s1\ s2\^2 + 
  7417.                                   r\^3\ s1\ s2\^2)\))\))\))\)/
  7418.               \((s1\^2\ s2\^3\ 
  7419.                   \((mu1\ \((\(-1\) + mu2)\) - mu2 + r - s1 + r\ s1 - s2 + 
  7420.                         r\ s2 - s1\ s2 + r\ s1\ s2)\)\^3)\)\)\)}], "}"}], 
  7421.       "}"}]], "Output"]
  7422. }, Open  ]],
  7423.  
  7424. Cell[BoxData[
  7425.     RowBox[{
  7426.       RowBox[{"a7", "=", 
  7427.         RowBox[{"Solve", "[", 
  7428.           RowBox[{\(a4 == 0\), ",", 
  7429.             RowBox[{
  7430.               SuperscriptBox["p2", "\[DoublePrime]",
  7431.                 MultilineFunction->None], "[", "0", "]"}]}], "]"}]}], ";"}]], 
  7432.   "Input"],
  7433.  
  7434. Cell[CellGroupData[{
  7435.  
  7436. Cell[BoxData[
  7437.     \(Factor[a3 /. %]\)], "Input"],
  7438.  
  7439. Cell[BoxData[
  7440.     RowBox[{"{", 
  7441.       RowBox[{
  7442.         RowBox[{"(", 
  7443.           RowBox[{\((\(-1\) + mu2)\), " ", 
  7444.             RowBox[{"(", 
  7445.               RowBox[{
  7446.               \(\(-2\)\ mu1\^4\ mu2\^2\), "-", \(2\ mu1\^3\ mu2\^3\), "+", 
  7447.                 \(2\ mu1\^4\ mu2\^3\), "+", \(2\ mu1\^4\ mu2\ r\), "+", 
  7448.                 \(6\ mu1\^3\ mu2\^2\ r\), "-", \(2\ mu1\^4\ mu2\^2\ r\), "+", 
  7449.                 \(6\ mu1\^2\ mu2\^3\ r\), "-", \(6\ mu1\^3\ mu2\^3\ r\), "-", 
  7450.                 \(4\ mu1\^3\ mu2\ r\^2\), "-", \(6\ mu1\^2\ mu2\^2\ r\^2\), 
  7451.                 "+", \(4\ mu1\^3\ mu2\^2\ r\^2\), "-", 
  7452.                 \(2\ mu1\ mu2\^3\ r\^2\), "+", \(2\ mu1\^3\ mu2\^3\ r\^2\), 
  7453.                 "+", \(2\ mu1\^2\ mu2\ r\^3\), "+", \(2\ mu1\ mu2\^2\ r\^3\), 
  7454.                 "-", \(2\ mu1\^2\ mu2\^2\ r\^3\), "-", 
  7455.                 \(4\ mu1\^3\ mu2\^2\ s1\), "-", \(2\ mu1\^2\ mu2\^3\ s1\), 
  7456.                 "+", \(2\ mu1\^3\ mu2\^3\ s1\), "+", 
  7457.                 \(4\ mu1\^3\ mu2\ r\ s1\), "+", \(8\ mu1\^2\ mu2\^2\ r\ s1\), 
  7458.                 "+", \(2\ mu1\ mu2\^3\ r\ s1\), "+", 
  7459.                 \(2\ mu1\^2\ mu2\^3\ r\ s1\), "-", 
  7460.                 \(4\ mu1\^3\ mu2\^3\ r\ s1\), "-", 
  7461.                 \(4\ mu1\^2\ mu2\ r\^2\ s1\), "-", 
  7462.                 \(4\ mu1\^3\ mu2\ r\^2\ s1\), "-", 
  7463.                 \(4\ mu1\ mu2\^2\ r\^2\ s1\), "-", 
  7464.                 \(4\ mu1\^2\ mu2\^2\ r\^2\ s1\), "+", 
  7465.                 \(4\ mu1\^3\ mu2\^2\ r\^2\ s1\), "-", 
  7466.                 \(2\ mu1\ mu2\^3\ r\^2\ s1\), "+", 
  7467.                 \(2\ mu1\^3\ mu2\^3\ r\^2\ s1\), "+", 
  7468.                 \(4\ mu1\^2\ mu2\ r\^3\ s1\), "+", 
  7469.                 \(4\ mu1\ mu2\^2\ r\^3\ s1\), "-", 
  7470.                 \(4\ mu1\^2\ mu2\^2\ r\^3\ s1\), "-", 
  7471.                 \(2\ mu1\^2\ mu2\^2\ s1\^2\), "+", 
  7472.                 \(2\ mu1\^2\ mu2\ r\ s1\^2\), "+", 
  7473.                 \(2\ mu1\ mu2\^2\ r\ s1\^2\), "+", 
  7474.                 \(2\ mu1\^2\ mu2\^2\ r\ s1\^2\), "-", 
  7475.                 \(4\ mu1\^2\ mu2\ r\^2\ s1\^2\), "-", 
  7476.                 \(4\ mu1\ mu2\^2\ r\^2\ s1\^2\), "+", 
  7477.                 \(2\ mu1\^2\ mu2\^2\ r\^2\ s1\^2\), "+", 
  7478.                 \(2\ mu1\^2\ mu2\ r\^3\ s1\^2\), "+", 
  7479.                 \(2\ mu1\ mu2\^2\ r\^3\ s1\^2\), "-", 
  7480.                 \(2\ mu1\^2\ mu2\^2\ r\^3\ s1\^2\), "-", 
  7481.                 \(2\ mu1\^3\ mu2\^2\ s2\), "+", \(2\ mu1\^3\ mu2\ r\ s2\), 
  7482.                 "+", \(6\ mu1\^2\ mu2\^2\ r\ s2\), "-", 
  7483.                 \(2\ mu1\^3\ mu2\^2\ r\ s2\), "-", 
  7484.                 \(2\ mu1\^2\ mu2\ r\^2\ s2\), "-", 
  7485.                 \(2\ mu1\^3\ mu2\ r\^2\ s2\), "-", 
  7486.                 \(2\ mu1\ mu2\^2\ r\^2\ s2\), "-", 
  7487.                 \(4\ mu1\^2\ mu2\^2\ r\^2\ s2\), "+", 
  7488.                 \(4\ mu1\^3\ mu2\^2\ r\^2\ s2\), "+", 
  7489.                 \(2\ mu1\^2\ mu2\ r\^3\ s2\), "+", 
  7490.                 \(2\ mu1\ mu2\^2\ r\^3\ s2\), "-", 
  7491.                 \(2\ mu1\^2\ mu2\^2\ r\^3\ s2\), "+", 
  7492.                 \(2\ mu1\^3\ mu2\ s1\ s2\), "-", 
  7493.                 \(4\ mu1\^3\ mu2\^2\ s1\ s2\), "-", 
  7494.                 \(2\ mu1\^2\ mu2\ r\ s1\ s2\), "+", 
  7495.                 \(8\ mu1\^2\ mu2\^2\ r\ s1\ s2\), "+", 
  7496.                 \(2\ mu1\ mu2\ r\^2\ s1\ s2\), "-", 
  7497.                 \(2\ mu1\^2\ mu2\ r\^2\ s1\ s2\), "-", 
  7498.                 \(2\ mu1\^3\ mu2\ r\^2\ s1\ s2\), "-", 
  7499.                 \(4\ mu1\ mu2\^2\ r\^2\ s1\ s2\), "-", 
  7500.                 \(4\ mu1\^2\ mu2\^2\ r\^2\ s1\ s2\), "+", 
  7501.                 \(4\ mu1\^3\ mu2\^2\ r\^2\ s1\ s2\), "-", 
  7502.                 \(2\ mu1\ mu2\ r\^3\ s1\ s2\), "+", 
  7503.                 \(4\ mu1\^2\ mu2\ r\^3\ s1\ s2\), "+", 
  7504.                 \(4\ mu1\ mu2\^2\ r\^3\ s1\ s2\), "-", 
  7505.                 \(4\ mu1\^2\ mu2\^2\ r\^3\ s1\ s2\), "+", 
  7506.                 \(4\ mu1\^2\ mu2\ s1\^2\ s2\), "+", 
  7507.                 \(2\ mu1\ mu2\^2\ s1\^2\ s2\), "-", 
  7508.                 \(4\ mu1\^2\ mu2\^2\ s1\^2\ s2\), "-", 
  7509.                 \(4\ mu1\ mu2\ r\ s1\^2\ s2\), "-", 
  7510.                 \(6\ mu1\^2\ mu2\ r\ s1\^2\ s2\), "-", 
  7511.                 \(2\ mu1\ mu2\^2\ r\ s1\^2\ s2\), "+", 
  7512.                 \(6\ mu1\^2\ mu2\^2\ r\ s1\^2\ s2\), "+", 
  7513.                 \(8\ mu1\ mu2\ r\^2\ s1\^2\ s2\), "-", 
  7514.                 \(2\ mu1\ mu2\^2\ r\^2\ s1\^2\ s2\), "-", 
  7515.                 \(4\ mu1\ mu2\ r\^3\ s1\^2\ s2\), "+", 
  7516.                 \(2\ mu1\^2\ mu2\ r\^3\ s1\^2\ s2\), "+", 
  7517.                 \(2\ mu1\ mu2\^2\ r\^3\ s1\^2\ s2\), "-", 
  7518.                 \(2\ mu1\^2\ mu2\^2\ r\^3\ s1\^2\ s2\), "+", 
  7519.                 \(2\ mu1\ mu2\ s1\^3\ s2\), "-", 
  7520.                 \(6\ mu1\ mu2\ r\ s1\^3\ s2\), "+", 
  7521.                 \(6\ mu1\ mu2\ r\^2\ s1\^3\ s2\), "-", 
  7522.                 \(2\ mu1\ mu2\ r\^3\ s1\^3\ s2\), "+", 
  7523.                 \(2\ mu1\^2\ mu2\ s1\ s2\^2\), "-", 
  7524.                 \(2\ mu1\ mu2\ r\ s1\ s2\^2\), "-", 
  7525.                 \(4\ mu1\^2\ mu2\ r\ s1\ s2\^2\), "+", 
  7526.                 \(4\ mu1\ mu2\ r\^2\ s1\ s2\^2\), "+", 
  7527.                 \(2\ mu1\^2\ mu2\ r\^2\ s1\ s2\^2\), "-", 
  7528.                 \(2\ mu1\ mu2\ r\^3\ s1\ s2\^2\), "+", 
  7529.                 \(2\ mu1\ mu2\ s1\^2\ s2\^2\), "+", 
  7530.                 \(2\ mu1\^2\ mu2\ s1\^2\ s2\^2\), "-", 
  7531.                 \(8\ mu1\ mu2\ r\ s1\^2\ s2\^2\), "-", 
  7532.                 \(4\ mu1\^2\ mu2\ r\ s1\^2\ s2\^2\), "+", 
  7533.                 \(10\ mu1\ mu2\ r\^2\ s1\^2\ s2\^2\), "+", 
  7534.                 \(2\ mu1\^2\ mu2\ r\^2\ s1\^2\ s2\^2\), "-", 
  7535.                 \(4\ mu1\ mu2\ r\^3\ s1\^2\ s2\^2\), "+", 
  7536.                 \(2\ mu1\ mu2\ s1\^3\ s2\^2\), "-", 
  7537.                 \(6\ mu1\ mu2\ r\ s1\^3\ s2\^2\), "+", 
  7538.                 \(6\ mu1\ mu2\ r\^2\ s1\^3\ s2\^2\), "-", 
  7539.                 \(2\ mu1\ mu2\ r\^3\ s1\^3\ s2\^2\), "-", 
  7540.                 RowBox[{\(mu1\^3\), " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  7541.                   RowBox[{
  7542.                     SuperscriptBox["p1", "\[DoublePrime]",
  7543.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7544.                 RowBox[{
  7545.                 "3", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", 
  7546.                   \(s2\^2\), " ", 
  7547.                   RowBox[{
  7548.                     SuperscriptBox["p1", "\[DoublePrime]",
  7549.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7550.                 RowBox[{
  7551.                 "3", " ", \(mu1\^3\), " ", "mu2", " ", \(s1\^3\), " ", 
  7552.                   \(s2\^2\), " ", 
  7553.                   RowBox[{
  7554.                     SuperscriptBox["p1", "\[DoublePrime]",
  7555.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7556.                 RowBox[{
  7557.                 "3", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  7558.                   \(s2\^2\), " ", 
  7559.                   RowBox[{
  7560.                     SuperscriptBox["p1", "\[DoublePrime]",
  7561.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7562.                 RowBox[{
  7563.                 "6", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  7564.                   \(s2\^2\), " ", 
  7565.                   RowBox[{
  7566.                     SuperscriptBox["p1", "\[DoublePrime]",
  7567.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7568.                 RowBox[{
  7569.                 "3", " ", \(mu1\^3\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  7570.                   \(s2\^2\), " ", 
  7571.                   RowBox[{
  7572.                     SuperscriptBox["p1", "\[DoublePrime]",
  7573.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7574.                 RowBox[{\(mu2\^3\), " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  7575.                   RowBox[{
  7576.                     SuperscriptBox["p1", "\[DoublePrime]",
  7577.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7578.                 RowBox[{
  7579.                 "3", " ", "mu1", " ", \(mu2\^3\), " ", \(s1\^3\), " ", 
  7580.                   \(s2\^2\), " ", 
  7581.                   RowBox[{
  7582.                     SuperscriptBox["p1", "\[DoublePrime]",
  7583.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7584.                 RowBox[{
  7585.                 "3", " ", \(mu1\^2\), " ", \(mu2\^3\), " ", \(s1\^3\), " ", 
  7586.                   \(s2\^2\), " ", 
  7587.                   RowBox[{
  7588.                     SuperscriptBox["p1", "\[DoublePrime]",
  7589.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7590.                 RowBox[{
  7591.                 \(mu1\^3\), " ", \(mu2\^3\), " ", \(s1\^3\), " ", \(s2\^2\), 
  7592.                   " ", 
  7593.                   RowBox[{
  7594.                     SuperscriptBox["p1", "\[DoublePrime]",
  7595.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7596.                 RowBox[{
  7597.                 "3", " ", \(mu1\^2\), " ", "r", " ", \(s1\^3\), " ", 
  7598.                   \(s2\^2\), " ", 
  7599.                   RowBox[{
  7600.                     SuperscriptBox["p1", "\[DoublePrime]",
  7601.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7602.                 RowBox[{
  7603.                 "6", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  7604.                   \(s2\^2\), " ", 
  7605.                   RowBox[{
  7606.                     SuperscriptBox["p1", "\[DoublePrime]",
  7607.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7608.                 RowBox[{
  7609.                 "6", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^3\), 
  7610.                   " ", \(s2\^2\), " ", 
  7611.                   RowBox[{
  7612.                     SuperscriptBox["p1", "\[DoublePrime]",
  7613.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7614.                 RowBox[{
  7615.                 "3", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", 
  7616.                   \(s2\^2\), " ", 
  7617.                   RowBox[{
  7618.                     SuperscriptBox["p1", "\[DoublePrime]",
  7619.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7620.                 RowBox[{
  7621.                 "6", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), 
  7622.                   " ", \(s2\^2\), " ", 
  7623.                   RowBox[{
  7624.                     SuperscriptBox["p1", "\[DoublePrime]",
  7625.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7626.                 RowBox[{
  7627.                 "3", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  7628.                   \(s1\^3\), " ", \(s2\^2\), " ", 
  7629.                   RowBox[{
  7630.                     SuperscriptBox["p1", "\[DoublePrime]",
  7631.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7632.                 RowBox[{
  7633.                 "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  7634.                   \(s2\^2\), " ", 
  7635.                   RowBox[{
  7636.                     SuperscriptBox["p1", "\[DoublePrime]",
  7637.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7638.                 RowBox[{
  7639.                 "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  7640.                   \(s2\^2\), " ", 
  7641.                   RowBox[{
  7642.                     SuperscriptBox["p1", "\[DoublePrime]",
  7643.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7644.                 RowBox[{
  7645.                 "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), 
  7646.                   " ", \(s2\^2\), " ", 
  7647.                   RowBox[{
  7648.                     SuperscriptBox["p1", "\[DoublePrime]",
  7649.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7650.                 RowBox[{\(r\^3\), " ", \(s1\^3\), " ", \(s2\^2\), " ", 
  7651.                   RowBox[{
  7652.                     SuperscriptBox["p1", "\[DoublePrime]",
  7653.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7654.                 RowBox[{
  7655.                 "3", " ", \(mu1\^2\), " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  7656.                   RowBox[{
  7657.                     SuperscriptBox["p1", "\[DoublePrime]",
  7658.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7659.                 RowBox[{
  7660.                 "6", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^2\), 
  7661.                   " ", 
  7662.                   RowBox[{
  7663.                     SuperscriptBox["p1", "\[DoublePrime]",
  7664.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7665.                 RowBox[{
  7666.                 "6", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^4\), " ", 
  7667.                   \(s2\^2\), " ", 
  7668.                   RowBox[{
  7669.                     SuperscriptBox["p1", "\[DoublePrime]",
  7670.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7671.                 RowBox[{
  7672.                 "3", " ", \(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  7673.                   RowBox[{
  7674.                     SuperscriptBox["p1", "\[DoublePrime]",
  7675.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7676.                 RowBox[{
  7677.                 "6", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  7678.                   \(s2\^2\), " ", 
  7679.                   RowBox[{
  7680.                     SuperscriptBox["p1", "\[DoublePrime]",
  7681.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7682.                 RowBox[{
  7683.                 "3", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  7684.                   \(s2\^2\), " ", 
  7685.                   RowBox[{
  7686.                     SuperscriptBox["p1", "\[DoublePrime]",
  7687.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7688.                 RowBox[{
  7689.                 "6", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^2\), 
  7690.                   " ", 
  7691.                   RowBox[{
  7692.                     SuperscriptBox["p1", "\[DoublePrime]",
  7693.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7694.                 RowBox[{
  7695.                 "3", " ", \(mu1\^2\), " ", "r", " ", \(s1\^4\), " ", 
  7696.                   \(s2\^2\), " ", 
  7697.                   RowBox[{
  7698.                     SuperscriptBox["p1", "\[DoublePrime]",
  7699.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7700.                 RowBox[{
  7701.                 "6", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^2\), 
  7702.                   " ", 
  7703.                   RowBox[{
  7704.                     SuperscriptBox["p1", "\[DoublePrime]",
  7705.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7706.                 RowBox[{
  7707.                 "6", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^4\), 
  7708.                   " ", \(s2\^2\), " ", 
  7709.                   RowBox[{
  7710.                     SuperscriptBox["p1", "\[DoublePrime]",
  7711.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7712.                 RowBox[{
  7713.                 "3", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), " ", 
  7714.                   \(s2\^2\), " ", 
  7715.                   RowBox[{
  7716.                     SuperscriptBox["p1", "\[DoublePrime]",
  7717.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7718.                 RowBox[{
  7719.                 "6", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), 
  7720.                   " ", \(s2\^2\), " ", 
  7721.                   RowBox[{
  7722.                     SuperscriptBox["p1", "\[DoublePrime]",
  7723.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7724.                 RowBox[{
  7725.                 "3", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  7726.                   \(s1\^4\), " ", \(s2\^2\), " ", 
  7727.                   RowBox[{
  7728.                     SuperscriptBox["p1", "\[DoublePrime]",
  7729.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7730.                 RowBox[{
  7731.                 "3", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  7732.                   RowBox[{
  7733.                     SuperscriptBox["p1", "\[DoublePrime]",
  7734.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7735.                 RowBox[{
  7736.                 "6", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  7737.                   \(s2\^2\), " ", 
  7738.                   RowBox[{
  7739.                     SuperscriptBox["p1", "\[DoublePrime]",
  7740.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7741.                 RowBox[{
  7742.                 "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  7743.                   \(s2\^2\), " ", 
  7744.                   RowBox[{
  7745.                     SuperscriptBox["p1", "\[DoublePrime]",
  7746.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7747.                 RowBox[{
  7748.                 "6", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), 
  7749.                   " ", \(s2\^2\), " ", 
  7750.                   RowBox[{
  7751.                     SuperscriptBox["p1", "\[DoublePrime]",
  7752.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7753.                 RowBox[{
  7754.                 "3", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^2\), " ", 
  7755.                   RowBox[{
  7756.                     SuperscriptBox["p1", "\[DoublePrime]",
  7757.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7758.                 RowBox[{
  7759.                 "3", " ", "mu1", " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  7760.                   RowBox[{
  7761.                     SuperscriptBox["p1", "\[DoublePrime]",
  7762.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7763.                 RowBox[{
  7764.                 "3", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  7765.                   RowBox[{
  7766.                     SuperscriptBox["p1", "\[DoublePrime]",
  7767.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7768.                 RowBox[{
  7769.                 "3", " ", "mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^2\), 
  7770.                   " ", 
  7771.                   RowBox[{
  7772.                     SuperscriptBox["p1", "\[DoublePrime]",
  7773.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7774.                 RowBox[{"3", " ", "r", " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  7775.                   RowBox[{
  7776.                     SuperscriptBox["p1", "\[DoublePrime]",
  7777.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7778.                 RowBox[{
  7779.                 "6", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^2\), 
  7780.                   " ", 
  7781.                   RowBox[{
  7782.                     SuperscriptBox["p1", "\[DoublePrime]",
  7783.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7784.                 RowBox[{
  7785.                 "6", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^2\), 
  7786.                   " ", 
  7787.                   RowBox[{
  7788.                     SuperscriptBox["p1", "\[DoublePrime]",
  7789.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7790.                 RowBox[{
  7791.                 "6", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  7792.                   \(s2\^2\), " ", 
  7793.                   RowBox[{
  7794.                     SuperscriptBox["p1", "\[DoublePrime]",
  7795.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7796.                 RowBox[{
  7797.                 "6", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  7798.                   RowBox[{
  7799.                     SuperscriptBox["p1", "\[DoublePrime]",
  7800.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7801.                 RowBox[{
  7802.                 "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", 
  7803.                   \(s2\^2\), " ", 
  7804.                   RowBox[{
  7805.                     SuperscriptBox["p1", "\[DoublePrime]",
  7806.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7807.                 RowBox[{
  7808.                 "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", 
  7809.                   \(s2\^2\), " ", 
  7810.                   RowBox[{
  7811.                     SuperscriptBox["p1", "\[DoublePrime]",
  7812.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7813.                 RowBox[{
  7814.                 "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), 
  7815.                   " ", \(s2\^2\), " ", 
  7816.                   RowBox[{
  7817.                     SuperscriptBox["p1", "\[DoublePrime]",
  7818.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7819.                 RowBox[{
  7820.                 "3", " ", \(r\^3\), " ", \(s1\^5\), " ", \(s2\^2\), " ", 
  7821.                   RowBox[{
  7822.                     SuperscriptBox["p1", "\[DoublePrime]",
  7823.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7824.                 RowBox[{\(s1\^6\), " ", \(s2\^2\), " ", 
  7825.                   RowBox[{
  7826.                     SuperscriptBox["p1", "\[DoublePrime]",
  7827.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7828.                 RowBox[{"3", " ", "r", " ", \(s1\^6\), " ", \(s2\^2\), " ", 
  7829.                   RowBox[{
  7830.                     SuperscriptBox["p1", "\[DoublePrime]",
  7831.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7832.                 RowBox[{
  7833.                 "3", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^2\), " ", 
  7834.                   RowBox[{
  7835.                     SuperscriptBox["p1", "\[DoublePrime]",
  7836.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7837.                 RowBox[{\(r\^3\), " ", \(s1\^6\), " ", \(s2\^2\), " ", 
  7838.                   RowBox[{
  7839.                     SuperscriptBox["p1", "\[DoublePrime]",
  7840.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7841.                 RowBox[{
  7842.                 "3", " ", \(mu1\^2\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  7843.                   RowBox[{
  7844.                     SuperscriptBox["p1", "\[DoublePrime]",
  7845.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7846.                 RowBox[{
  7847.                 "6", " ", "mu1", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^3\), 
  7848.                   " ", 
  7849.                   RowBox[{
  7850.                     SuperscriptBox["p1", "\[DoublePrime]",
  7851.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7852.                 RowBox[{
  7853.                 "6", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^3\), " ", 
  7854.                   \(s2\^3\), " ", 
  7855.                   RowBox[{
  7856.                     SuperscriptBox["p1", "\[DoublePrime]",
  7857.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7858.                 RowBox[{
  7859.                 "3", " ", \(mu2\^2\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  7860.                   RowBox[{
  7861.                     SuperscriptBox["p1", "\[DoublePrime]",
  7862.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7863.                 RowBox[{
  7864.                 "6", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  7865.                   \(s2\^3\), " ", 
  7866.                   RowBox[{
  7867.                     SuperscriptBox["p1", "\[DoublePrime]",
  7868.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7869.                 RowBox[{
  7870.                 "3", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^3\), " ", 
  7871.                   \(s2\^3\), " ", 
  7872.                   RowBox[{
  7873.                     SuperscriptBox["p1", "\[DoublePrime]",
  7874.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7875.                 RowBox[{
  7876.                 "6", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^3\), 
  7877.                   " ", 
  7878.                   RowBox[{
  7879.                     SuperscriptBox["p1", "\[DoublePrime]",
  7880.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7881.                 RowBox[{
  7882.                 "3", " ", \(mu1\^2\), " ", "r", " ", \(s1\^3\), " ", 
  7883.                   \(s2\^3\), " ", 
  7884.                   RowBox[{
  7885.                     SuperscriptBox["p1", "\[DoublePrime]",
  7886.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7887.                 RowBox[{
  7888.                 "6", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", \(s2\^3\), 
  7889.                   " ", 
  7890.                   RowBox[{
  7891.                     SuperscriptBox["p1", "\[DoublePrime]",
  7892.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7893.                 RowBox[{
  7894.                 "6", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^3\), 
  7895.                   " ", \(s2\^3\), " ", 
  7896.                   RowBox[{
  7897.                     SuperscriptBox["p1", "\[DoublePrime]",
  7898.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7899.                 RowBox[{
  7900.                 "3", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), " ", 
  7901.                   \(s2\^3\), " ", 
  7902.                   RowBox[{
  7903.                     SuperscriptBox["p1", "\[DoublePrime]",
  7904.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7905.                 RowBox[{
  7906.                 "6", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^3\), 
  7907.                   " ", \(s2\^3\), " ", 
  7908.                   RowBox[{
  7909.                     SuperscriptBox["p1", "\[DoublePrime]",
  7910.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7911.                 RowBox[{
  7912.                 "3", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  7913.                   \(s1\^3\), " ", \(s2\^3\), " ", 
  7914.                   RowBox[{
  7915.                     SuperscriptBox["p1", "\[DoublePrime]",
  7916.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7917.                 RowBox[{
  7918.                 "3", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  7919.                   RowBox[{
  7920.                     SuperscriptBox["p1", "\[DoublePrime]",
  7921.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7922.                 RowBox[{
  7923.                 "6", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  7924.                   \(s2\^3\), " ", 
  7925.                   RowBox[{
  7926.                     SuperscriptBox["p1", "\[DoublePrime]",
  7927.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7928.                 RowBox[{
  7929.                 "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  7930.                   \(s2\^3\), " ", 
  7931.                   RowBox[{
  7932.                     SuperscriptBox["p1", "\[DoublePrime]",
  7933.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7934.                 RowBox[{
  7935.                 "6", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), 
  7936.                   " ", \(s2\^3\), " ", 
  7937.                   RowBox[{
  7938.                     SuperscriptBox["p1", "\[DoublePrime]",
  7939.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7940.                 RowBox[{
  7941.                 "3", " ", \(r\^3\), " ", \(s1\^3\), " ", \(s2\^3\), " ", 
  7942.                   RowBox[{
  7943.                     SuperscriptBox["p1", "\[DoublePrime]",
  7944.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7945.                 RowBox[{
  7946.                 "6", " ", "mu1", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  7947.                   RowBox[{
  7948.                     SuperscriptBox["p1", "\[DoublePrime]",
  7949.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7950.                 RowBox[{
  7951.                 "3", " ", \(mu1\^2\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  7952.                   RowBox[{
  7953.                     SuperscriptBox["p1", "\[DoublePrime]",
  7954.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7955.                 RowBox[{
  7956.                 "6", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  7957.                   RowBox[{
  7958.                     SuperscriptBox["p1", "\[DoublePrime]",
  7959.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7960.                 RowBox[{
  7961.                 "6", " ", \(mu1\^2\), " ", "mu2", " ", \(s1\^4\), " ", 
  7962.                   \(s2\^3\), " ", 
  7963.                   RowBox[{
  7964.                     SuperscriptBox["p1", "\[DoublePrime]",
  7965.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7966.                 RowBox[{
  7967.                 "3", " ", \(mu2\^2\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  7968.                   RowBox[{
  7969.                     SuperscriptBox["p1", "\[DoublePrime]",
  7970.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7971.                 RowBox[{
  7972.                 "6", " ", "mu1", " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  7973.                   \(s2\^3\), " ", 
  7974.                   RowBox[{
  7975.                     SuperscriptBox["p1", "\[DoublePrime]",
  7976.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  7977.                 RowBox[{
  7978.                 "3", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", \(s1\^4\), " ", 
  7979.                   \(s2\^3\), " ", 
  7980.                   RowBox[{
  7981.                     SuperscriptBox["p1", "\[DoublePrime]",
  7982.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7983.                 RowBox[{"6", " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  7984.                   RowBox[{
  7985.                     SuperscriptBox["p1", "\[DoublePrime]",
  7986.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7987.                 RowBox[{
  7988.                 "18", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), 
  7989.                   " ", 
  7990.                   RowBox[{
  7991.                     SuperscriptBox["p1", "\[DoublePrime]",
  7992.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7993.                 RowBox[{
  7994.                 "3", " ", \(mu1\^2\), " ", "r", " ", \(s1\^4\), " ", 
  7995.                   \(s2\^3\), " ", 
  7996.                   RowBox[{
  7997.                     SuperscriptBox["p1", "\[DoublePrime]",
  7998.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  7999.                 RowBox[{
  8000.                 "18", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^3\), 
  8001.                   " ", 
  8002.                   RowBox[{
  8003.                     SuperscriptBox["p1", "\[DoublePrime]",
  8004.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8005.                 RowBox[{
  8006.                 "12", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  8007.                   \(s2\^3\), " ", 
  8008.                   RowBox[{
  8009.                     SuperscriptBox["p1", "\[DoublePrime]",
  8010.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8011.                 RowBox[{
  8012.                 "6", " ", \(mu1\^2\), " ", "mu2", " ", "r", " ", \(s1\^4\), 
  8013.                   " ", \(s2\^3\), " ", 
  8014.                   RowBox[{
  8015.                     SuperscriptBox["p1", "\[DoublePrime]",
  8016.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8017.                 RowBox[{
  8018.                 "3", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), " ", 
  8019.                   \(s2\^3\), " ", 
  8020.                   RowBox[{
  8021.                     SuperscriptBox["p1", "\[DoublePrime]",
  8022.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8023.                 RowBox[{
  8024.                 "6", " ", "mu1", " ", \(mu2\^2\), " ", "r", " ", \(s1\^4\), 
  8025.                   " ", \(s2\^3\), " ", 
  8026.                   RowBox[{
  8027.                     SuperscriptBox["p1", "\[DoublePrime]",
  8028.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8029.                 RowBox[{
  8030.                 "3", " ", \(mu1\^2\), " ", \(mu2\^2\), " ", "r", " ", 
  8031.                   \(s1\^4\), " ", \(s2\^3\), " ", 
  8032.                   RowBox[{
  8033.                     SuperscriptBox["p1", "\[DoublePrime]",
  8034.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8035.                 RowBox[{
  8036.                 "15", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  8037.                   RowBox[{
  8038.                     SuperscriptBox["p1", "\[DoublePrime]",
  8039.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8040.                 RowBox[{
  8041.                 "12", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  8042.                   \(s2\^3\), " ", 
  8043.                   RowBox[{
  8044.                     SuperscriptBox["p1", "\[DoublePrime]",
  8045.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8046.                 RowBox[{
  8047.                 "12", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  8048.                   \(s2\^3\), " ", 
  8049.                   RowBox[{
  8050.                     SuperscriptBox["p1", "\[DoublePrime]",
  8051.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8052.                 RowBox[{
  8053.                 "12", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), 
  8054.                   " ", \(s2\^3\), " ", 
  8055.                   RowBox[{
  8056.                     SuperscriptBox["p1", "\[DoublePrime]",
  8057.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8058.                 RowBox[{
  8059.                 "9", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^3\), " ", 
  8060.                   RowBox[{
  8061.                     SuperscriptBox["p1", "\[DoublePrime]",
  8062.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8063.                 RowBox[{"3", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  8064.                   RowBox[{
  8065.                     SuperscriptBox["p1", "\[DoublePrime]",
  8066.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8067.                 RowBox[{
  8068.                 "6", " ", "mu1", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  8069.                   RowBox[{
  8070.                     SuperscriptBox["p1", "\[DoublePrime]",
  8071.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8072.                 RowBox[{
  8073.                 "6", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  8074.                   RowBox[{
  8075.                     SuperscriptBox["p1", "\[DoublePrime]",
  8076.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8077.                 RowBox[{
  8078.                 "6", " ", "mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^3\), 
  8079.                   " ", 
  8080.                   RowBox[{
  8081.                     SuperscriptBox["p1", "\[DoublePrime]",
  8082.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8083.                 RowBox[{"15", " ", "r", " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  8084.                   RowBox[{
  8085.                     SuperscriptBox["p1", "\[DoublePrime]",
  8086.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8087.                 RowBox[{
  8088.                 "12", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^3\), 
  8089.                   " ", 
  8090.                   RowBox[{
  8091.                     SuperscriptBox["p1", "\[DoublePrime]",
  8092.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8093.                 RowBox[{
  8094.                 "12", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^3\), 
  8095.                   " ", 
  8096.                   RowBox[{
  8097.                     SuperscriptBox["p1", "\[DoublePrime]",
  8098.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8099.                 RowBox[{
  8100.                 "12", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  8101.                   \(s2\^3\), " ", 
  8102.                   RowBox[{
  8103.                     SuperscriptBox["p1", "\[DoublePrime]",
  8104.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8105.                 RowBox[{
  8106.                 "21", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  8107.                   RowBox[{
  8108.                     SuperscriptBox["p1", "\[DoublePrime]",
  8109.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8110.                 RowBox[{
  8111.                 "6", " ", "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", 
  8112.                   \(s2\^3\), " ", 
  8113.                   RowBox[{
  8114.                     SuperscriptBox["p1", "\[DoublePrime]",
  8115.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8116.                 RowBox[{
  8117.                 "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", 
  8118.                   \(s2\^3\), " ", 
  8119.                   RowBox[{
  8120.                     SuperscriptBox["p1", "\[DoublePrime]",
  8121.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8122.                 RowBox[{
  8123.                 "6", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), 
  8124.                   " ", \(s2\^3\), " ", 
  8125.                   RowBox[{
  8126.                     SuperscriptBox["p1", "\[DoublePrime]",
  8127.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8128.                 RowBox[{
  8129.                 "9", " ", \(r\^3\), " ", \(s1\^5\), " ", \(s2\^3\), " ", 
  8130.                   RowBox[{
  8131.                     SuperscriptBox["p1", "\[DoublePrime]",
  8132.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8133.                 RowBox[{"3", " ", \(s1\^6\), " ", \(s2\^3\), " ", 
  8134.                   RowBox[{
  8135.                     SuperscriptBox["p1", "\[DoublePrime]",
  8136.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8137.                 RowBox[{"9", " ", "r", " ", \(s1\^6\), " ", \(s2\^3\), " ", 
  8138.                   RowBox[{
  8139.                     SuperscriptBox["p1", "\[DoublePrime]",
  8140.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8141.                 RowBox[{
  8142.                 "9", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^3\), " ", 
  8143.                   RowBox[{
  8144.                     SuperscriptBox["p1", "\[DoublePrime]",
  8145.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8146.                 RowBox[{
  8147.                 "3", " ", \(r\^3\), " ", \(s1\^6\), " ", \(s2\^3\), " ", 
  8148.                   RowBox[{
  8149.                     SuperscriptBox["p1", "\[DoublePrime]",
  8150.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8151.                 RowBox[{
  8152.                 "3", " ", "mu1", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  8153.                   RowBox[{
  8154.                     SuperscriptBox["p1", "\[DoublePrime]",
  8155.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8156.                 RowBox[{
  8157.                 "3", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  8158.                   RowBox[{
  8159.                     SuperscriptBox["p1", "\[DoublePrime]",
  8160.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8161.                 RowBox[{
  8162.                 "3", " ", "mu1", " ", "mu2", " ", \(s1\^3\), " ", \(s2\^4\), 
  8163.                   " ", 
  8164.                   RowBox[{
  8165.                     SuperscriptBox["p1", "\[DoublePrime]",
  8166.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8167.                 RowBox[{"3", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  8168.                   RowBox[{
  8169.                     SuperscriptBox["p1", "\[DoublePrime]",
  8170.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8171.                 RowBox[{
  8172.                 "6", " ", "mu1", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), 
  8173.                   " ", 
  8174.                   RowBox[{
  8175.                     SuperscriptBox["p1", "\[DoublePrime]",
  8176.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8177.                 RowBox[{
  8178.                 "6", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", \(s2\^4\), 
  8179.                   " ", 
  8180.                   RowBox[{
  8181.                     SuperscriptBox["p1", "\[DoublePrime]",
  8182.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8183.                 RowBox[{
  8184.                 "6", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^3\), " ", 
  8185.                   \(s2\^4\), " ", 
  8186.                   RowBox[{
  8187.                     SuperscriptBox["p1", "\[DoublePrime]",
  8188.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8189.                 RowBox[{
  8190.                 "6", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  8191.                   RowBox[{
  8192.                     SuperscriptBox["p1", "\[DoublePrime]",
  8193.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8194.                 RowBox[{
  8195.                 "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  8196.                   \(s2\^4\), " ", 
  8197.                   RowBox[{
  8198.                     SuperscriptBox["p1", "\[DoublePrime]",
  8199.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8200.                 RowBox[{
  8201.                 "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), " ", 
  8202.                   \(s2\^4\), " ", 
  8203.                   RowBox[{
  8204.                     SuperscriptBox["p1", "\[DoublePrime]",
  8205.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8206.                 RowBox[{
  8207.                 "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^3\), 
  8208.                   " ", \(s2\^4\), " ", 
  8209.                   RowBox[{
  8210.                     SuperscriptBox["p1", "\[DoublePrime]",
  8211.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8212.                 RowBox[{
  8213.                 "3", " ", \(r\^3\), " ", \(s1\^3\), " ", \(s2\^4\), " ", 
  8214.                   RowBox[{
  8215.                     SuperscriptBox["p1", "\[DoublePrime]",
  8216.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8217.                 RowBox[{"3", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  8218.                   RowBox[{
  8219.                     SuperscriptBox["p1", "\[DoublePrime]",
  8220.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8221.                 RowBox[{
  8222.                 "6", " ", "mu1", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  8223.                   RowBox[{
  8224.                     SuperscriptBox["p1", "\[DoublePrime]",
  8225.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8226.                 RowBox[{
  8227.                 "6", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  8228.                   RowBox[{
  8229.                     SuperscriptBox["p1", "\[DoublePrime]",
  8230.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8231.                 RowBox[{
  8232.                 "6", " ", "mu1", " ", "mu2", " ", \(s1\^4\), " ", \(s2\^4\), 
  8233.                   " ", 
  8234.                   RowBox[{
  8235.                     SuperscriptBox["p1", "\[DoublePrime]",
  8236.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8237.                 RowBox[{"15", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  8238.                   RowBox[{
  8239.                     SuperscriptBox["p1", "\[DoublePrime]",
  8240.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8241.                 RowBox[{
  8242.                 "12", " ", "mu1", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), 
  8243.                   " ", 
  8244.                   RowBox[{
  8245.                     SuperscriptBox["p1", "\[DoublePrime]",
  8246.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8247.                 RowBox[{
  8248.                 "12", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", \(s2\^4\), 
  8249.                   " ", 
  8250.                   RowBox[{
  8251.                     SuperscriptBox["p1", "\[DoublePrime]",
  8252.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8253.                 RowBox[{
  8254.                 "12", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^4\), " ", 
  8255.                   \(s2\^4\), " ", 
  8256.                   RowBox[{
  8257.                     SuperscriptBox["p1", "\[DoublePrime]",
  8258.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8259.                 RowBox[{
  8260.                 "21", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  8261.                   RowBox[{
  8262.                     SuperscriptBox["p1", "\[DoublePrime]",
  8263.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8264.                 RowBox[{
  8265.                 "6", " ", "mu1", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  8266.                   \(s2\^4\), " ", 
  8267.                   RowBox[{
  8268.                     SuperscriptBox["p1", "\[DoublePrime]",
  8269.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8270.                 RowBox[{
  8271.                 "6", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), " ", 
  8272.                   \(s2\^4\), " ", 
  8273.                   RowBox[{
  8274.                     SuperscriptBox["p1", "\[DoublePrime]",
  8275.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8276.                 RowBox[{
  8277.                 "6", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^4\), 
  8278.                   " ", \(s2\^4\), " ", 
  8279.                   RowBox[{
  8280.                     SuperscriptBox["p1", "\[DoublePrime]",
  8281.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8282.                 RowBox[{
  8283.                 "9", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^4\), " ", 
  8284.                   RowBox[{
  8285.                     SuperscriptBox["p1", "\[DoublePrime]",
  8286.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8287.                 RowBox[{"6", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  8288.                   RowBox[{
  8289.                     SuperscriptBox["p1", "\[DoublePrime]",
  8290.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8291.                 RowBox[{
  8292.                 "3", " ", "mu1", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  8293.                   RowBox[{
  8294.                     SuperscriptBox["p1", "\[DoublePrime]",
  8295.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8296.                 RowBox[{
  8297.                 "3", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  8298.                   RowBox[{
  8299.                     SuperscriptBox["p1", "\[DoublePrime]",
  8300.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8301.                 RowBox[{
  8302.                 "3", " ", "mu1", " ", "mu2", " ", \(s1\^5\), " ", \(s2\^4\), 
  8303.                   " ", 
  8304.                   RowBox[{
  8305.                     SuperscriptBox["p1", "\[DoublePrime]",
  8306.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8307.                 RowBox[{"21", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  8308.                   RowBox[{
  8309.                     SuperscriptBox["p1", "\[DoublePrime]",
  8310.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8311.                 RowBox[{
  8312.                 "6", " ", "mu1", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), 
  8313.                   " ", 
  8314.                   RowBox[{
  8315.                     SuperscriptBox["p1", "\[DoublePrime]",
  8316.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8317.                 RowBox[{
  8318.                 "6", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", \(s2\^4\), 
  8319.                   " ", 
  8320.                   RowBox[{
  8321.                     SuperscriptBox["p1", "\[DoublePrime]",
  8322.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8323.                 RowBox[{
  8324.                 "6", " ", "mu1", " ", "mu2", " ", "r", " ", \(s1\^5\), " ", 
  8325.                   \(s2\^4\), " ", 
  8326.                   RowBox[{
  8327.                     SuperscriptBox["p1", "\[DoublePrime]",
  8328.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8329.                 RowBox[{
  8330.                 "24", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  8331.                   RowBox[{
  8332.                     SuperscriptBox["p1", "\[DoublePrime]",
  8333.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8334.                 RowBox[{
  8335.                 "3", " ", "mu1", " ", \(r\^2\), " ", \(s1\^5\), " ", 
  8336.                   \(s2\^4\), " ", 
  8337.                   RowBox[{
  8338.                     SuperscriptBox["p1", "\[DoublePrime]",
  8339.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8340.                 RowBox[{
  8341.                 "3", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), " ", 
  8342.                   \(s2\^4\), " ", 
  8343.                   RowBox[{
  8344.                     SuperscriptBox["p1", "\[DoublePrime]",
  8345.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8346.                 RowBox[{
  8347.                 "3", " ", "mu1", " ", "mu2", " ", \(r\^2\), " ", \(s1\^5\), 
  8348.                   " ", \(s2\^4\), " ", 
  8349.                   RowBox[{
  8350.                     SuperscriptBox["p1", "\[DoublePrime]",
  8351.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8352.                 RowBox[{
  8353.                 "9", " ", \(r\^3\), " ", \(s1\^5\), " ", \(s2\^4\), " ", 
  8354.                   RowBox[{
  8355.                     SuperscriptBox["p1", "\[DoublePrime]",
  8356.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8357.                 RowBox[{"3", " ", \(s1\^6\), " ", \(s2\^4\), " ", 
  8358.                   RowBox[{
  8359.                     SuperscriptBox["p1", "\[DoublePrime]",
  8360.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8361.                 RowBox[{"9", " ", "r", " ", \(s1\^6\), " ", \(s2\^4\), " ", 
  8362.                   RowBox[{
  8363.                     SuperscriptBox["p1", "\[DoublePrime]",
  8364.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8365.                 RowBox[{
  8366.                 "9", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^4\), " ", 
  8367.                   RowBox[{
  8368.                     SuperscriptBox["p1", "\[DoublePrime]",
  8369.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8370.                 RowBox[{
  8371.                 "3", " ", \(r\^3\), " ", \(s1\^6\), " ", \(s2\^4\), " ", 
  8372.                   RowBox[{
  8373.                     SuperscriptBox["p1", "\[DoublePrime]",
  8374.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8375.                 RowBox[{\(s1\^3\), " ", \(s2\^5\), " ", 
  8376.                   RowBox[{
  8377.                     SuperscriptBox["p1", "\[DoublePrime]",
  8378.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8379.                 RowBox[{"3", " ", "r", " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  8380.                   RowBox[{
  8381.                     SuperscriptBox["p1", "\[DoublePrime]",
  8382.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8383.                 RowBox[{
  8384.                 "3", " ", \(r\^2\), " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  8385.                   RowBox[{
  8386.                     SuperscriptBox["p1", "\[DoublePrime]",
  8387.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8388.                 RowBox[{\(r\^3\), " ", \(s1\^3\), " ", \(s2\^5\), " ", 
  8389.                   RowBox[{
  8390.                     SuperscriptBox["p1", "\[DoublePrime]",
  8391.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8392.                 RowBox[{"3", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  8393.                   RowBox[{
  8394.                     SuperscriptBox["p1", "\[DoublePrime]",
  8395.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8396.                 RowBox[{"9", " ", "r", " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  8397.                   RowBox[{
  8398.                     SuperscriptBox["p1", "\[DoublePrime]",
  8399.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8400.                 RowBox[{
  8401.                 "9", " ", \(r\^2\), " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  8402.                   RowBox[{
  8403.                     SuperscriptBox["p1", "\[DoublePrime]",
  8404.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8405.                 RowBox[{
  8406.                 "3", " ", \(r\^3\), " ", \(s1\^4\), " ", \(s2\^5\), " ", 
  8407.                   RowBox[{
  8408.                     SuperscriptBox["p1", "\[DoublePrime]",
  8409.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8410.                 RowBox[{"3", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  8411.                   RowBox[{
  8412.                     SuperscriptBox["p1", "\[DoublePrime]",
  8413.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8414.                 RowBox[{"9", " ", "r", " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  8415.                   RowBox[{
  8416.                     SuperscriptBox["p1", "\[DoublePrime]",
  8417.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8418.                 RowBox[{
  8419.                 "9", " ", \(r\^2\), " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  8420.                   RowBox[{
  8421.                     SuperscriptBox["p1", "\[DoublePrime]",
  8422.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8423.                 RowBox[{
  8424.                 "3", " ", \(r\^3\), " ", \(s1\^5\), " ", \(s2\^5\), " ", 
  8425.                   RowBox[{
  8426.                     SuperscriptBox["p1", "\[DoublePrime]",
  8427.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8428.                 RowBox[{\(s1\^6\), " ", \(s2\^5\), " ", 
  8429.                   RowBox[{
  8430.                     SuperscriptBox["p1", "\[DoublePrime]",
  8431.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8432.                 RowBox[{"3", " ", "r", " ", \(s1\^6\), " ", \(s2\^5\), " ", 
  8433.                   RowBox[{
  8434.                     SuperscriptBox["p1", "\[DoublePrime]",
  8435.                       MultilineFunction->None], "[", "0", "]"}]}], "-", 
  8436.                 RowBox[{
  8437.                 "3", " ", \(r\^2\), " ", \(s1\^6\), " ", \(s2\^5\), " ", 
  8438.                   RowBox[{
  8439.                     SuperscriptBox["p1", "\[DoublePrime]",
  8440.                       MultilineFunction->None], "[", "0", "]"}]}], "+", 
  8441.                 RowBox[{\(r\^3\), " ", \(s1\^6\), " ", \(s2\^5\), " ", 
  8442.                   RowBox[{
  8443.                     SuperscriptBox["p1", "\[DoublePrime]",
  8444.                       MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], 
  8445.           ")"}], "/", 
  8446.         \((s1\^2\ s2\^2\ 
  8447.             \((\(-mu1\) - mu2 + mu1\ mu2 + r - s1 + r\ s1 - s2 + r\ s2 - 
  8448.                   s1\ s2 + r\ s1\ s2)\)\^2)\)}], "}"}]], "Output"]
  8449. }, Closed]],
  8450.  
  8451. Cell[CellGroupData[{
  8452.  
  8453. Cell[BoxData[
  8454.     RowBox[{"a8", "=", 
  8455.       RowBox[{"Simplify", "[", 
  8456.         RowBox[{"Solve", "[", 
  8457.           RowBox[{\(% == 0\), ",", 
  8458.             RowBox[{
  8459.               SuperscriptBox["p1", "\[DoublePrime]",
  8460.                 MultilineFunction->None], "[", "0", "]"}]}], "]"}], "]"}]}]], 
  8461.   "Input"],
  8462.  
  8463. Cell[BoxData[
  8464.     RowBox[{"{", 
  8465.       RowBox[{"{", 
  8466.         RowBox[{
  8467.           RowBox[{
  8468.             SuperscriptBox["p1", "\[DoublePrime]",
  8469.               MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
  8470.           \(-\(\((2\ mu1\ mu2\ 
  8471.                   \((mu1\^3\ \((\(-1\) + mu2)\)\ \((mu2 - r)\) - 
  8472.                       \((r - s1 + r\ s1)\)\ 
  8473.                         \((mu2\^2\ r + 
  8474.                             \((\(-1\) + r)\)\ s1\ s2\ 
  8475.                               \((r - s1 + r\ s1 - s2 + r\ s2 - s1\ s2 + 
  8476.                                   r\ s1\ s2)\) - 
  8477.                             mu2\ \((
  8478.                                 r\^2 - r\ s1 + r\^2\ s1 - r\ s2 + r\^2\ s2 - 
  8479.                                   s1\ s2 + r\^2\ s1\ s2)\))\) + 
  8480.                       mu1\^2\ \((
  8481.                           \(-2\)\ r\^2 + 2\ r\ s1 - 2\ r\^2\ s1 + 
  8482.                             mu2\^2\ 
  8483.                               \((\(-1\) - 3\ r + r\^2 + s1 - 2\ r\ s1 + 
  8484.                                   r\^2\ s1)\) + r\ s2 - r\^2\ s2 + s1\ s2 - 
  8485.                             r\^2\ s1\ s2 + 
  8486.                             mu2\ \((
  8487.                                 3\ r + 2\ r\^2 - 2\ s1 + 2\ r\^2\ s1 - s2 - 
  8488.                                   r\ s2 + 2\ r\^2\ s2 - 2\ s1\ s2 + 
  8489.                                   2\ r\^2\ s1\ s2)\))\) + 
  8490.                       mu1\ \((
  8491.                           r\^3 - 2\ r\^2\ s1 + 2\ r\^3\ s1 + r\ s1\^2 - 
  8492.                             2\ r\^2\ s1\^2 + r\^3\ s1\^2 + 
  8493.                             mu2\^2\ \((3\ r - s1 + r\ s1)\) - r\^2\ s2 + 
  8494.                             r\^3\ s2 - r\ s1\ s2 - r\^2\ s1\ s2 + 
  8495.                             2\ r\^3\ s1\ s2 + 2\ s1\^2\ s2 - 
  8496.                             3\ r\ s1\^2\ s2 + r\^3\ s1\^2\ s2 + s1\ s2\^2 - 
  8497.                             2\ r\ s1\ s2\^2 + r\^2\ s1\ s2\^2 + 
  8498.                             s1\^2\ s2\^2 - 2\ r\ s1\^2\ s2\^2 + 
  8499.                             r\^2\ s1\^2\ s2\^2 - 
  8500.                             mu2\ \((
  8501.                                 3\ r\^2 + r\^3 - 4\ r\ s1 + 2\ r\^2\ s1 + 
  8502.                                   2\ r\^3\ s1 + s1\^2 - r\ s1\^2 - 
  8503.                                   r\^2\ s1\^2 + r\^3\ s1\^2 - 3\ r\ s2 + 
  8504.                                   2\ r\^2\ s2 + r\^3\ s2 - 4\ r\ s1\ s2 + 
  8505.                                   2\ r\^2\ s1\ s2 + 2\ r\^3\ s1\ s2 + 
  8506.                                   2\ s1\^2\ s2 - 3\ r\ s1\^2\ s2 + 
  8507.                                   r\^3\ s1\^2\ s2)\))\))\))\)/
  8508.               \((s1\^3\ s2\^2\ 
  8509.                   \((mu1\ \((\(-1\) + mu2)\) - mu2 + r - s1 + r\ s1 - s2 + 
  8510.                         r\ s2 - s1\ s2 + r\ s1\ s2)\)\^3)\)\)\)}], "}"}], 
  8511.       "}"}]], "Output"]
  8512. }, Open  ]],
  8513.  
  8514. Cell[BoxData[
  8515.     \(Clear[a1, a2, a3, a4, a5, a6, a7, a8]\)], "Input"],
  8516.  
  8517. Cell[BoxData[
  8518.     RowBox[{
  8519.       RowBox[{"subepszero", "=", 
  8520.         RowBox[{"{", 
  8521.           RowBox[{
  8522.           \(p1[0] -> \(-mu1\)/s1\), ",", \(p2[0] -> \(-mu2\)/s2\), ",", "\n", 
  8523.             "\t\t", 
  8524.             RowBox[{
  8525.               RowBox[{
  8526.                 SuperscriptBox["p1", "\[Prime]",
  8527.                   MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
  8528.               \(\(mu1\ mu2\ \((mu1 + s1 - r\ \((1 + s1)\))\)\)\/\(s1\^2\ s2\ 
  8529.                     \((mu1\ \((\(-1\) + mu2)\) - mu2 + r - s1 + r\ s1 - s2 + 
  8530.                         r\ s2 - s1\ s2 + r\ s1\ s2)\)\)\)}], ",", 
  8531.             RowBox[{
  8532.               RowBox[{
  8533.                 SuperscriptBox["p2", "\[Prime]",
  8534.                   MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
  8535.               \(\(mu1\ mu2\ \((mu2 + s2 - r\ \((1 + s2)\))\)\)\/\(s1\ s2\^2\ 
  8536.                     \((mu1\ \((\(-1\) + mu2)\) - mu2 + r - s1 + r\ s1 - s2 + 
  8537.                         r\ s2 - s1\ s2 + r\ s1\ s2)\)\)\)}], ",", "\n", 
  8538.             "\n", 
  8539.             RowBox[{
  8540.               RowBox[{
  8541.                 SuperscriptBox["p1", "\[DoublePrime]",
  8542.                   MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
  8543.               \(\(-\((2\ mu1\ mu2\ 
  8544.                       \((mu1\^3\ \((\(-1\) + mu2)\)\ \((mu2 - r)\) - 
  8545.                           \((r - s1 + r\ s1)\)\ 
  8546.                             \((mu2\^2\ r + 
  8547.                                 \((\(-1\) + r)\)\ s1\ s2\ 
  8548.                                   \((r - s1 + r\ s1 - s2 + r\ s2 - s1\ s2 + 
  8549.                                       r\ s1\ s2)\) - 
  8550.                                 mu2\ \((
  8551.                                     r\^2 - r\ s1 + r\^2\ s1 - r\ s2 + 
  8552.                                       r\^2\ s2 - s1\ s2 + r\^2\ s1\ s2)\))
  8553.                               \) + mu1\^2\ 
  8554.                             \((\(-2\)\ r\^2 + 2\ r\ s1 - 2\ r\^2\ s1 + 
  8555.                                 mu2\^2\ 
  8556.                                   \((\(-1\) - 3\ r + r\^2 + s1 - 2\ r\ s1 + 
  8557.                                       r\^2\ s1)\) + r\ s2 - r\^2\ s2 + 
  8558.                                 s1\ s2 - r\^2\ s1\ s2 + 
  8559.                                 mu2\ \((
  8560.                                     3\ r + 2\ r\^2 - 2\ s1 + 2\ r\^2\ s1 - 
  8561.                                       s2 - r\ s2 + 2\ r\^2\ s2 - 2\ s1\ s2 + 
  8562.                                       2\ r\^2\ s1\ s2)\))\) + 
  8563.                           mu1\ \((
  8564.                               r\^3 - 2\ r\^2\ s1 + 2\ r\^3\ s1 + r\ s1\^2 - 
  8565.                                 2\ r\^2\ s1\^2 + r\^3\ s1\^2 + 
  8566.                                 mu2\^2\ \((3\ r - s1 + r\ s1)\) - r\^2\ s2 + 
  8567.                                 r\^3\ s2 - r\ s1\ s2 - r\^2\ s1\ s2 + 
  8568.                                 2\ r\^3\ s1\ s2 + 2\ s1\^2\ s2 - 
  8569.                                 3\ r\ s1\^2\ s2 + r\^3\ s1\^2\ s2 + 
  8570.                                 s1\ s2\^2 - 2\ r\ s1\ s2\^2 + 
  8571.                                 r\^2\ s1\ s2\^2 + s1\^2\ s2\^2 - 
  8572.                                 2\ r\ s1\^2\ s2\^2 + r\^2\ s1\^2\ s2\^2 - 
  8573.                                 mu2\ 
  8574.                                   \((3\ r\^2 + r\^3 - 4\ r\ s1 + 
  8575.                                       2\ r\^2\ s1 + 2\ r\^3\ s1 + s1\^2 - 
  8576.                                       r\ s1\^2 - r\^2\ s1\^2 + r\^3\ s1\^2 - 
  8577.                                       3\ r\ s2 + 2\ r\^2\ s2 + r\^3\ s2 - 
  8578.                                       4\ r\ s1\ s2 + 2\ r\^2\ s1\ s2 + 
  8579.                                       2\ r\^3\ s1\ s2 + 2\ s1\^2\ s2 - 
  8580.                                       3\ r\ s1\^2\ s2 + r\^3\ s1\^2\ s2)\))\))
  8581.                         \))\)\)/
  8582.                 \((s1\^3\ s2\^2\ 
  8583.                     \((mu1\ \((\(-1\) + mu2)\) - mu2 + r - s1 + r\ s1 - s2 + 
  8584.                           r\ s2 - s1\ s2 + r\ s1\ s2)\)\^3)\)\)}], ",", "\n", 
  8585.             "\t\t", "\n", 
  8586.             RowBox[{
  8587.               RowBox[{
  8588.                 SuperscriptBox["p2", "\[DoublePrime]",
  8589.                   MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
  8590.               \(\(-\((2\ mu1\ mu2\ 
  8591.                       \((mu1\^2\ \((\(-1\) + mu2)\)\ 
  8592.                             \((mu2\^2 + r\ \((r - s2 + r\ s2)\) + 
  8593.                                 mu2\ \((
  8594.                                     \(-3\)\ r + r\^2 + s2 - 2\ r\ s2 + 
  8595.                                       r\^2\ s2)\))\) + 
  8596.                           \((mu2 - r + s2 - r\ s2)\)\ 
  8597.                             \((mu2\^2\ r + 
  8598.                                 \((\(-1\) + r)\)\ s1\ s2\ 
  8599.                                   \((r - s1 + r\ s1 - s2 + r\ s2 - s1\ s2 + 
  8600.                                       r\ s1\ s2)\) - 
  8601.                                 mu2\ \((
  8602.                                     r\^2 - r\ s1 + r\^2\ s1 - r\ s2 + 
  8603.                                       r\^2\ s2 - s1\ s2 + r\^2\ s1\ s2)\))
  8604.                               \) - mu1\ 
  8605.                             \((mu2\^3\ \((1 + r)\) + 
  8606.                                 mu2\^2\ 
  8607.                                   \((\(-3\)\ r - 2\ r\^2 + s1 + r\ s1 - 
  8608.                                       2\ r\^2\ s1 + 2\ s2 - 2\ r\^2\ s2 + 
  8609.                                       2\ s1\ s2 - 2\ r\^2\ s1\ s2)\) - 
  8610.                                 \((r - s2 + r\ s2)\)\ 
  8611.                                   \((r\^2 - r\ s1 + r\^2\ s1 - r\ s2 + 
  8612.                                       r\^2\ s2 - s1\ s2 + r\^2\ s1\ s2)\) + 
  8613.                                 mu2\ \((
  8614.                                     3\ r\^2 + r\^3 - 3\ r\ s1 + 2\ r\^2\ s1 + 
  8615.                                       r\^3\ s1 - 4\ r\ s2 + 2\ r\^2\ s2 + 
  8616.                                       2\ r\^3\ s2 - 4\ r\ s1\ s2 + 
  8617.                                       2\ r\^2\ s1\ s2 + 2\ r\^3\ s1\ s2 + 
  8618.                                       s2\^2 - r\ s2\^2 - r\^2\ s2\^2 + 
  8619.                                       r\^3\ s2\^2 + 2\ s1\ s2\^2 - 
  8620.                                       3\ r\ s1\ s2\^2 + r\^3\ s1\ s2\^2)\))\))
  8621.                         \))\)\)/
  8622.                 \((s1\^2\ s2\^3\ 
  8623.                     \((mu1\ \((\(-1\) + mu2)\) - mu2 + r - s1 + r\ s1 - s2 + 
  8624.                           r\ s2 - s1\ s2 + r\ s1\ s2)\)\^3)\)\)}]}], "}"}]}], 
  8625.       ";"}]], "Input"],
  8626.  
  8627. Cell["To zero order in eps, fitness equals:", "Text"],
  8628.  
  8629. Cell[CellGroupData[{
  8630.  
  8631. Cell[BoxData[
  8632.     \(Factor[\(eqn3[p1[eps], p2[eps], eps] /. eps -> 0\) /. subepszero]\)], 
  8633.   "Input"],
  8634.  
  8635. Cell[BoxData[
  8636.     \(\((\(-1\) + mu1)\)\ \((\(-1\) + mu2)\)\)], "Output"]
  8637. }, Open  ]],
  8638.  
  8639. Cell["The first order term in eps of the mean fitness equals:", "Text"],
  8640.  
  8641. Cell[CellGroupData[{
  8642.  
  8643. Cell[BoxData[
  8644.     \(Factor[
  8645.       \(D[eqn3[p1[eps], p2[eps], eps], eps] /. eps -> 0\) /. subepszero]\)], 
  8646.   "Input"],
  8647.  
  8648. Cell[BoxData[
  8649.     \(\(-\(\(\((\(-1\) + mu1)\)\ mu1\ \((\(-1\) + mu2)\)\ mu2\ r\)\/\(s1\ s2\ 
  8650.             \((\(-mu1\) - mu2 + mu1\ mu2 + r - s1 + r\ s1 - s2 + r\ s2 - 
  8651.                 s1\ s2 + r\ s1\ s2)\)\)\)\)\)], "Output"]
  8652. }, Open  ]],
  8653.  
  8654. Cell["The second order term in eps of the mean fitness equals:", "Text"],
  8655.  
  8656. Cell[CellGroupData[{
  8657.  
  8658. Cell[BoxData[
  8659.     \(Factor[
  8660.       \(D[eqn3[p1[eps], p2[eps], eps], eps, eps] /. eps -> 0\) /. subepszero]
  8661.       \)], "Input"],
  8662.  
  8663. Cell[BoxData[
  8664.     \(\((2\ \((\(-1\) + mu1)\)\ mu1\ \((\(-1\) + mu2)\)\ mu2\ r\ 
  8665.           \((\(-mu1\^2\)\ mu2 - mu1\ mu2\^2 + mu1\^2\ mu2\^2 + mu1\^2\ r + 
  8666.               mu1\ mu2\ r - mu1\^2\ mu2\ r + mu2\^2\ r - mu1\ mu2\^2\ r - 
  8667.               mu1\ r\^2 - mu2\ r\^2 + 2\ mu1\ mu2\ r\^2 - mu1\ mu2\ s1 + 
  8668.               mu1\ r\ s1 + mu2\ r\ s1 - mu1\ mu2\ r\ s1 - mu1\ r\^2\ s1 - 
  8669.               mu2\ r\^2\ s1 + 2\ mu1\ mu2\ r\^2\ s1 - mu1\ mu2\ s2 + 
  8670.               mu1\ r\ s2 + mu2\ r\ s2 - mu1\ mu2\ r\ s2 - mu1\ r\^2\ s2 - 
  8671.               mu2\ r\^2\ s2 + 2\ mu1\ mu2\ r\^2\ s2 + mu1\ s1\ s2 + 
  8672.               mu2\ s1\ s2 - 2\ mu1\ mu2\ s1\ s2 - r\ s1\ s2 + r\^2\ s1\ s2 - 
  8673.               mu1\ r\^2\ s1\ s2 - mu2\ r\^2\ s1\ s2 + 
  8674.               2\ mu1\ mu2\ r\^2\ s1\ s2 + s1\^2\ s2 - 2\ r\ s1\^2\ s2 + 
  8675.               r\^2\ s1\^2\ s2 + s1\ s2\^2 - 2\ r\ s1\ s2\^2 + 
  8676.               r\^2\ s1\ s2\^2 + s1\^2\ s2\^2 - 2\ r\ s1\^2\ s2\^2 + 
  8677.               r\^2\ s1\^2\ s2\^2)\))\)/
  8678.       \((s1\^2\ s2\^2\ 
  8679.           \((\(-mu1\) - mu2 + mu1\ mu2 + r - s1 + r\ s1 - s2 + r\ s2 - 
  8680.                 s1\ s2 + r\ s1\ s2)\)\^3)\)\)], "Output"]
  8681. }, Open  ]],
  8682.  
  8683. Cell[CellGroupData[{
  8684.  
  8685. Cell[BoxData[
  8686.     \(Factor[\(\((%/\((mu1\ mu2)\))\) /. mu1 -> 0\) /. mu2 -> 0]\)], "Input"],
  8687.  
  8688. Cell[BoxData[
  8689.     \(\(2\ \((\(-1\) + r)\)\ r\)\/\(s1\ s2\ 
  8690.         \((r - s1 + r\ s1 - s2 + r\ s2 - s1\ s2 + r\ s1\ s2)\)\^2\)\)], 
  8691.   "Output"]
  8692. }, Open  ]],
  8693.  
  8694. Cell["\<\
  8695. This is always negative and becomes more negative as the \
  8696. variability in epistasis
  8697. increases (contributing to E[eps^2]).
  8698. Thus mean fitness is expected to go down as the variability in epistasis goes \
  8699. up.
  8700.  
  8701. (Note that you need to keep up to O(eps^2)  throughout!
  8702. The sign changes if p1 and p2 are solved only to order eps.)\
  8703. \>", "Text"],
  8704.  
  8705. Cell["\<\
  8706. Finally, let's look at the dependence of the average growth rate, \
  8707. or log(mean fitness), on eps:\
  8708. \>", "Text"],
  8709.  
  8710. Cell[CellGroupData[{
  8711.  
  8712. Cell[BoxData[
  8713.     \(Simplify[\(Log[Fitness] /. subfit\) /. subtwoloci]\)], "Input"],
  8714.  
  8715. Cell[BoxData[
  8716.     \(Log[
  8717.       eps\ p1\ p2 + \((1 + p1\ s1)\)\ \((1 + p2\ s2)\) + 
  8718.         dis\ \((eps + s1\ s2)\)]\)], "Output"]
  8719. }, Open  ]],
  8720.  
  8721. Cell[CellGroupData[{
  8722.  
  8723. Cell[BoxData[
  8724.     \(eqn4[p1_, p2_, eps_] = 
  8725.       Simplify[\(\(Log[Fitness] /. subtwoloci\) /. subfit\) /. dis -> DsSolve]
  8726.         \)], "Input"],
  8727.  
  8728. Cell[BoxData[
  8729.     \(Log[
  8730.       \(-\(\(\((\(-1\) + mu1)\)\ 
  8731.               \((eps\ \((\(-1\) + p1 - p2\ s2)\) - 
  8732.                   \((1 + s1)\)\ s2\ \((1 + p2\ s2)\))\)\)\/\(eps\ 
  8733.                 \((\(-1\) + p1)\) + 
  8734.               \((\(-1\) + mu1 - s1 + p1\ s1)\)\ s2\)\)\)]\)], "Output"]
  8735. }, Open  ]],
  8736.  
  8737. Cell["To zero order in eps, log fitness equals:", "Text"],
  8738.  
  8739. Cell[CellGroupData[{
  8740.  
  8741. Cell[BoxData[
  8742.     \(Simplify[\(eqn4[p1[eps], p2[eps], eps] /. eps -> 0\) /. subepszero]\)], 
  8743.   "Input"],
  8744.  
  8745. Cell[BoxData[
  8746.     \(Log[\((\(-1\) + mu1)\)\ \((\(-1\) + mu2)\)]\)], "Output"]
  8747. }, Open  ]],
  8748.  
  8749. Cell["The first order term in eps of the log mean fitness equals:", "Text"],
  8750.  
  8751. Cell[CellGroupData[{
  8752.  
  8753. Cell[BoxData[
  8754.     \(Simplify[
  8755.       \(D[eqn4[p1[eps], p2[eps], eps], eps] /. eps -> 0\) /. subepszero]\)], 
  8756.   "Input"],
  8757.  
  8758. Cell[BoxData[
  8759.     \(\(-\(\(mu1\ mu2\ r\)\/\(s1\ s2\ 
  8760.             \((mu1\ \((\(-1\) + mu2)\) - mu2 + r - s1 + r\ s1 - s2 + r\ s2 - 
  8761.                 s1\ s2 + r\ s1\ s2)\)\)\)\)\)], "Output"]
  8762. }, Open  ]],
  8763.  
  8764. Cell["To leading order in the mutation rate:", "Text"],
  8765.  
  8766. Cell[CellGroupData[{
  8767.  
  8768. Cell[BoxData[
  8769.     \(\((mu1\ mu2)\)*
  8770.       Simplify[\(\((%/\((mu1\ mu2)\))\) /. mu1 -> 0\) /. mu2 -> 0]\)], "Input"],
  8771.  
  8772. Cell[BoxData[
  8773.     \(\(mu1\ mu2\ r\)\/\(s1\ s2\ 
  8774.         \((s1 + s2 + s1\ s2 - r\ \((1 + s1)\)\ \((1 + s2)\))\)\)\)], "Output"]
  8775. }, Open  ]],
  8776.  
  8777. Cell["The second order term in eps of the log mean fitness equals:", "Text"],
  8778.  
  8779. Cell[CellGroupData[{
  8780.  
  8781. Cell[BoxData[
  8782.     \(Simplify[
  8783.       \(D[eqn4[p1[eps], p2[eps], eps], eps, eps] /. eps -> 0\) /. subepszero]
  8784.       \)], "Input"],
  8785.  
  8786. Cell[BoxData[
  8787.     \(\(-\(\((
  8788.           mu1\ mu2\ r\ 
  8789.             \((mu1\^2\ \((\(-1\) + mu2)\)\ 
  8790.                   \((mu2\ \((\(-2\) + r)\) + 2\ r)\) + 
  8791.                 mu1\ \((
  8792.                     mu2\^2\ \((2 + r)\) + 
  8793.                       mu2\ \((
  8794.                           \(-2\)\ r - 3\ r\^2 + 2\ s1 + r\ s1 - 3\ r\^2\ s1 + 
  8795.                             2\ s2 + r\ s2 - 3\ r\^2\ s2 + 4\ s1\ s2 - 
  8796.                             r\ s1\ s2 - 3\ r\^2\ s1\ s2)\) + 
  8797.                       2\ \((r\^2 - r\ s1 + r\^2\ s1 - r\ s2 + r\^2\ s2 - 
  8798.                             s1\ s2 + r\^2\ s1\ s2)\))\) - 
  8799.                 2\ \((mu2\^2\ r + 
  8800.                       \((\(-1\) + r)\)\ s1\ s2\ 
  8801.                         \((r - s1 + r\ s1 - s2 + r\ s2 - s1\ s2 + r\ s1\ s2)
  8802.                           \) - mu2\ 
  8803.                         \((r\^2 - r\ s1 + r\^2\ s1 - r\ s2 + r\^2\ s2 - 
  8804.                             s1\ s2 + r\^2\ s1\ s2)\))\))\))\)/
  8805.         \((s1\^2\ s2\^2\ 
  8806.             \((mu1\ \((\(-1\) + mu2)\) - mu2 + r - s1 + r\ s1 - s2 + r\ s2 - 
  8807.                   s1\ s2 + r\ s1\ s2)\)\^3)\)\)\)\)], "Output"]
  8808. }, Open  ]],
  8809.  
  8810. Cell["To leading order in the mutation rate:", "Text"],
  8811.  
  8812. Cell[CellGroupData[{
  8813.  
  8814. Cell[BoxData[
  8815.     \(\((mu1\ mu2)\)*
  8816.       Simplify[\(\((%/\((mu1\ mu2)\))\) /. mu1 -> 0\) /. mu2 -> 0]\)], "Input"],
  8817.  
  8818. Cell[BoxData[
  8819.     \(\(2\ mu1\ mu2\ \((\(-1\) + r)\)\ r\)\/\(s1\ s2\ 
  8820.         \((s1 + s2 + s1\ s2 - r\ \((1 + s1)\)\ \((1 + s2)\))\)\^2\)\)], 
  8821.   "Output"]
  8822. }, Open  ]],
  8823.  
  8824. Cell["\<\
  8825. This is always negative.
  8826. Thus log(mean fitness) is expected to go down as variability in epistasis \
  8827. goes up.\
  8828. \>", "Text"],
  8829.  
  8830. Cell["The denominator (phi) can also be written as", "Text"],
  8831.  
  8832. Cell[CellGroupData[{
  8833.  
  8834. Cell[BoxData[
  8835.     \(Simplify[
  8836.       \((1 - \((1 - r)\)*\((1 + s1)\)*\((1 + s2)\))\)/\n\t\t
  8837.         \((\(-s1\) - s2 - s1\ s2 + r\ \((1 + s1)\)\ \((1 + s2)\))\)]\)], 
  8838.   "Input"],
  8839.  
  8840. Cell[BoxData[
  8841.     \(1\)], "Output"]
  8842. }, Open  ]]
  8843. }, Closed]]
  8844. }, Open  ]]
  8845. },
  8846. FrontEndVersion->"NeXT 3.0",
  8847. ScreenRectangle->{{0, 1213}, {0, 1024}},
  8848. WindowToolbars->{},
  8849. WindowSize->{976, 908},
  8850. WindowMargins->{{Automatic, 70}, {Automatic, 19}},
  8851. PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}},
  8852. ShowCellLabel->True,
  8853. ShowCellTags->False,
  8854. RenderingOptions->{"ObjectDithering"->True,
  8855. "RasterDithering"->False},
  8856. Magnification->1.25
  8857. ]
  8858.  
  8859.  
  8860. (***********************************************************************
  8861. Cached data follows.  If you edit this Notebook file directly, not using
  8862. Mathematica, you must remove the line containing CacheID at the top of 
  8863. the file.  The cache data will then be recreated when you save this file 
  8864. from within Mathematica.
  8865. ***********************************************************************)
  8866.  
  8867. (*CellTagsOutline
  8868. CellTagsIndex->{}
  8869. *)
  8870.  
  8871. (*CellTagsIndex
  8872. CellTagsIndex->{}
  8873. *)
  8874.  
  8875. (*NotebookFileOutline
  8876. Notebook[{
  8877.  
  8878. Cell[CellGroupData[{
  8879. Cell[1731, 51, 121, 2, 76, "Subtitle",
  8880.   Evaluatable->False],
  8881. Cell[1855, 55, 538, 10, 157, "Subsubtitle"],
  8882.  
  8883. Cell[CellGroupData[{
  8884. Cell[2418, 69, 81, 2, 64, "Section",
  8885.   Evaluatable->False],
  8886. Cell[2502, 73, 59, 1, 31, "Input"],
  8887. Cell[2564, 76, 79, 3, 59, "Text"],
  8888. Cell[2646, 81, 179, 9, 185, "Text"],
  8889. Cell[2828, 92, 26, 0, 38, "Text"],
  8890. Cell[2857, 94, 136, 4, 82, "Input"],
  8891. Cell[2996, 100, 70, 1, 32, "Input"],
  8892. Cell[3069, 103, 164, 4, 82, "Input"],
  8893. Cell[3236, 109, 29, 0, 38, "Text"],
  8894. Cell[3268, 111, 254, 4, 82, "Input"],
  8895. Cell[3525, 117, 25, 0, 38, "Text"],
  8896. Cell[3553, 119, 200, 6, 83, "Input"],
  8897. Cell[3756, 127, 47, 0, 38, "Text"],
  8898. Cell[3806, 129, 17, 0, 38, "Text"],
  8899. Cell[3826, 131, 109, 3, 38, "Text"],
  8900. Cell[3938, 136, 186, 3, 48, "Input"],
  8901. Cell[4127, 141, 109, 3, 38, "Text"],
  8902. Cell[4239, 146, 137, 2, 31, "Input"]
  8903. }, Closed]],
  8904.  
  8905. Cell[CellGroupData[{
  8906. Cell[4413, 153, 85, 2, 38, "Section",
  8907.   Evaluatable->False],
  8908. Cell[4501, 157, 148, 4, 59, "Text"],
  8909. Cell[4652, 163, 195, 6, 59, "Text",
  8910.   Evaluatable->False],
  8911.  
  8912. Cell[CellGroupData[{
  8913. Cell[4872, 173, 92, 1, 32, "Input"],
  8914. Cell[4967, 176, 395, 6, 71, "Output"]
  8915. }, Open  ]],
  8916.  
  8917. Cell[CellGroupData[{
  8918. Cell[5399, 187, 71, 1, 32, "Input"],
  8919. Cell[5473, 190, 248, 5, 50, "Output"]
  8920. }, Open  ]],
  8921. Cell[5736, 198, 233, 5, 57, "Input"],
  8922. Cell[5972, 205, 216, 7, 59, "Text",
  8923.   Evaluatable->False],
  8924.  
  8925. Cell[CellGroupData[{
  8926. Cell[6213, 216, 142, 3, 31, "Input"],
  8927. Cell[6358, 221, 1087, 16, 146, "Output"]
  8928. }, Closed]],
  8929.  
  8930. Cell[CellGroupData[{
  8931. Cell[7482, 242, 108, 2, 26, "Input"],
  8932. Cell[7593, 246, 10356, 158, 925, "Output"]
  8933. }, Closed]],
  8934. Cell[17964, 407, 121, 3, 33, "Text"],
  8935. Cell[18088, 412, 982, 14, 130, "Input"],
  8936. Cell[19073, 428, 9009, 135, 1082, "Input"],
  8937. Cell[28085, 565, 165, 4, 59, "Text"],
  8938.  
  8939. Cell[CellGroupData[{
  8940. Cell[28275, 573, 124, 3, 31, "Input"],
  8941. Cell[28402, 578, 35, 1, 32, "Output"]
  8942. }, Open  ]],
  8943.  
  8944. Cell[CellGroupData[{
  8945. Cell[28474, 584, 74, 1, 31, "Input"],
  8946. Cell[28551, 587, 35, 1, 32, "Output"]
  8947. }, Open  ]],
  8948.  
  8949. Cell[CellGroupData[{
  8950. Cell[28623, 593, 74, 1, 31, "Input"],
  8951. Cell[28700, 596, 35, 1, 32, "Output"]
  8952. }, Open  ]],
  8953. Cell[28750, 600, 54, 0, 38, "Text"],
  8954.  
  8955. Cell[CellGroupData[{
  8956. Cell[28829, 604, 48, 1, 31, "Input"],
  8957. Cell[28880, 607, 71, 1, 32, "Output"]
  8958. }, Open  ]],
  8959.  
  8960. Cell[CellGroupData[{
  8961. Cell[28988, 613, 78, 1, 31, "Input"],
  8962. Cell[29069, 616, 115, 2, 32, "Output"]
  8963. }, Open  ]],
  8964.  
  8965. Cell[CellGroupData[{
  8966. Cell[29221, 623, 131, 3, 31, "Input"],
  8967. Cell[29355, 628, 251, 4, 53, "Output"]
  8968. }, Open  ]],
  8969. Cell[29621, 635, 147, 4, 59, "Text"],
  8970.  
  8971. Cell[CellGroupData[{
  8972. Cell[29793, 643, 102, 2, 31, "Input"],
  8973. Cell[29898, 647, 8469, 156, 272, "Output"]
  8974. }, Open  ]],
  8975. Cell[38382, 806, 287, 7, 80, "Text"],
  8976. Cell[38672, 815, 58, 0, 38, "Text"],
  8977.  
  8978. Cell[CellGroupData[{
  8979. Cell[38755, 819, 165, 3, 31, "Input"],
  8980. Cell[38923, 824, 3402, 71, 109, "Output"]
  8981. }, Closed]],
  8982.  
  8983. Cell[CellGroupData[{
  8984. Cell[42362, 900, 165, 3, 26, "Input"],
  8985. Cell[42530, 905, 5892, 112, 169, "Output"]
  8986. }, Closed]],
  8987. Cell[48437, 1020, 416, 12, 54, "Text"],
  8988.  
  8989. Cell[CellGroupData[{
  8990. Cell[48878, 1036, 479, 12, 31, "Input"],
  8991. Cell[49360, 1050, 842, 18, 92, "Output"]
  8992. }, Open  ]],
  8993. Cell[50217, 1071, 1008, 21, 135, "Input"],
  8994. Cell[51228, 1094, 72, 0, 38, "Text"],
  8995.  
  8996. Cell[CellGroupData[{
  8997. Cell[51325, 1098, 134, 3, 31, "Input"],
  8998. Cell[51462, 1103, 112399, 2331, 2854, "Output"]
  8999. }, Closed]],
  9000.  
  9001. Cell[CellGroupData[{
  9002. Cell[163898, 3439, 134, 3, 26, "Input"],
  9003. Cell[164035, 3444, 141376, 2878, 3574, "Output"]
  9004. }, Closed]],
  9005. Cell[305426, 6325, 380, 12, 33, "Text"],
  9006. Cell[305809, 6339, 284, 8, 31, "Input"],
  9007.  
  9008. Cell[CellGroupData[{
  9009. Cell[306118, 6351, 48, 1, 31, "Input"],
  9010. Cell[306169, 6354, 51576, 1010, 1334, "Output"]
  9011. }, Closed]],
  9012.  
  9013. Cell[CellGroupData[{
  9014. Cell[357782, 7369, 300, 8, 26, "Input"],
  9015. Cell[358085, 7379, 2211, 41, 174, "Output"]
  9016. }, Open  ]],
  9017. Cell[360311, 7423, 284, 8, 31, "Input"],
  9018.  
  9019. Cell[CellGroupData[{
  9020. Cell[360620, 7435, 48, 1, 31, "Input"],
  9021. Cell[360671, 7438, 51495, 1009, 1354, "Output"]
  9022. }, Closed]],
  9023.  
  9024. Cell[CellGroupData[{
  9025. Cell[412203, 8452, 300, 8, 26, "Input"],
  9026. Cell[412506, 8462, 2684, 48, 234, "Output"]
  9027. }, Open  ]],
  9028. Cell[415205, 8513, 70, 1, 31, "Input"],
  9029. Cell[415278, 8516, 6181, 108, 553, "Input"],
  9030. Cell[421462, 8626, 53, 0, 38, "Text"],
  9031.  
  9032. Cell[CellGroupData[{
  9033. Cell[421540, 8630, 101, 2, 31, "Input"],
  9034. Cell[421644, 8634, 72, 1, 32, "Output"]
  9035. }, Open  ]],
  9036. Cell[421731, 8638, 71, 0, 38, "Text"],
  9037.  
  9038. Cell[CellGroupData[{
  9039. Cell[421827, 8642, 116, 3, 31, "Input"],
  9040. Cell[421946, 8647, 224, 3, 51, "Output"]
  9041. }, Open  ]],
  9042. Cell[422185, 8653, 72, 0, 38, "Text"],
  9043.  
  9044. Cell[CellGroupData[{
  9045. Cell[422282, 8657, 125, 3, 31, "Input"],
  9046. Cell[422410, 8662, 1125, 17, 154, "Output"]
  9047. }, Open  ]],
  9048.  
  9049. Cell[CellGroupData[{
  9050. Cell[423572, 8684, 91, 1, 31, "Input"],
  9051. Cell[423666, 8687, 143, 3, 51, "Output"]
  9052. }, Open  ]],
  9053. Cell[423824, 8693, 347, 9, 143, "Text"],
  9054. Cell[424174, 8704, 121, 3, 38, "Text"],
  9055.  
  9056. Cell[CellGroupData[{
  9057. Cell[424320, 8711, 83, 1, 31, "Input"],
  9058. Cell[424406, 8714, 129, 3, 32, "Output"]
  9059. }, Open  ]],
  9060.  
  9061. Cell[CellGroupData[{
  9062. Cell[424572, 8722, 144, 3, 31, "Input"],
  9063. Cell[424719, 8727, 286, 6, 51, "Output"]
  9064. }, Open  ]],
  9065. Cell[425020, 8736, 57, 0, 38, "Text"],
  9066.  
  9067. Cell[CellGroupData[{
  9068. Cell[425102, 8740, 103, 2, 31, "Input"],
  9069. Cell[425208, 8744, 77, 1, 32, "Output"]
  9070. }, Open  ]],
  9071. Cell[425300, 8748, 75, 0, 38, "Text"],
  9072.  
  9073. Cell[CellGroupData[{
  9074. Cell[425400, 8752, 118, 3, 31, "Input"],
  9075. Cell[425521, 8757, 188, 3, 51, "Output"]
  9076. }, Open  ]],
  9077. Cell[425724, 8763, 54, 0, 38, "Text"],
  9078.  
  9079. Cell[CellGroupData[{
  9080. Cell[425803, 8767, 115, 2, 31, "Input"],
  9081. Cell[425921, 8771, 126, 2, 51, "Output"]
  9082. }, Open  ]],
  9083. Cell[426062, 8776, 76, 0, 38, "Text"],
  9084.  
  9085. Cell[CellGroupData[{
  9086. Cell[426163, 8780, 127, 3, 31, "Input"],
  9087. Cell[426293, 8785, 1098, 21, 134, "Output"]
  9088. }, Open  ]],
  9089. Cell[427406, 8809, 54, 0, 38, "Text"],
  9090.  
  9091. Cell[CellGroupData[{
  9092. Cell[427485, 8813, 115, 2, 31, "Input"],
  9093. Cell[427603, 8817, 153, 3, 51, "Output"]
  9094. }, Open  ]],
  9095. Cell[427771, 8823, 133, 4, 59, "Text"],
  9096. Cell[427907, 8829, 60, 0, 38, "Text"],
  9097.  
  9098. Cell[CellGroupData[{
  9099. Cell[427992, 8833, 175, 4, 48, "Input"],
  9100. Cell[428170, 8839, 35, 1, 32, "Output"]
  9101. }, Open  ]]
  9102. }, Closed]]
  9103. }, Open  ]]
  9104. }
  9105. ]
  9106. *)
  9107.  
  9108.  
  9109.  
  9110.  
  9111. (***********************************************************************
  9112. End of Mathematica Notebook file.
  9113. ***********************************************************************)
  9114.  
  9115.