(************** Content-type: application/mathematica ************** Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 161041, 3510]*) (*NotebookOutlinePosition[ 161872, 3539]*) (* CellTagsIndexPosition[ 161828, 3535]*) (*WindowFrame->Normal*) Notebook[{ Cell["Bell Matrices and Continuous Iteration", "Title"], Cell[TextData[{ "The purpose of this ", StyleBox["Mathematica", FontSlant->"Italic"], " notebook is to demonstrate that Schroeder ", "summation", "s produce results consistent with the work of Aldrovandi and Freitas ", StyleBox["[1]", FontWeight->"Bold"], ". The variables ", StyleBox["B", FontWeight->"Bold"], ", ", StyleBox["b", FontWeight->"Bold"], ", ", StyleBox["m", FontWeight->"Bold"], ", ", StyleBox["Z", FontWeight->"Bold"], " and the function ", StyleBox["R", FontWeight->"Bold"], " reflect their nomenclature from ", StyleBox["Continuous iteration of dynamical maps ", FontSlant->"Italic"], StyleBox["[1].\nLimitations:", FontWeight->"Bold"], " Only tested on ", StyleBox["Mathematica", FontSlant->"Italic"], " 4.1. Uses the ", StyleBox["Iterate", FontWeight->"Bold"], StyleBox[".m", "Input"], " file." }], "Text"], Cell[TextData[{ StyleBox["[1]", FontWeight->"Bold"], " R.Aldrovandi and L.P.Freitas, ", StyleBox["Continuous iteration of dynamical maps", FontSlant->"Italic"], ", J.Math.Phys.39,5324 (1998)\nhttp://arxiv.org/abs/physics/9712026" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{\(<< Iterate`\), "\[IndentingNewLine]", \( (*\ Calculate\ the\ first\ five\ derivatives\ *) \)}], "\ \[IndentingNewLine]", RowBox[{\(size = 5;\), "\[IndentingNewLine]", "\[IndentingNewLine]", \( (*\ Schroeder\ summation\ *) \)}], "\[IndentingNewLine]", RowBox[{\(schroeder = Iterate[f, n, x, p, size, Verbose \[Rule] False];\), "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(bell[0] = f[g[x]];\), "\n", RowBox[{\(bell[i_Integer /; i > 0] := \(bell[i] = D[bell[i - 1], x]\);\), "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{\(R[k_] := \ \ Sum[\ 1/\(j!\)*\ Z[\([k, 1, j, 1]\)]*\ x^j, {j, size}];\), "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(B = IdentityMatrix[size];\), "\[IndentingNewLine]", \(poly = Table[\(\(\(bell[i] /. z \[Rule] x\)\ /. g[x] \[Rule] x\)\ /. \(\(Derivative[_]\)[f]\)[x]\ \[Rule] 1\)\ /. g \[Rule] f\ \ , {i, size}];\), "\[IndentingNewLine]", \(poly = Collect[poly\ /. \(\(Derivative[a_]\)[f]\)[x] \[Rule] \ p\ \(\(Derivative[a]\)[f]\)[x], p];\), "\[IndentingNewLine]", \(Do[\[IndentingNewLine]\(Do[\ \[IndentingNewLine]term = Cases[poly[\([j]\)], Times[int___Integer, p^k, f__], {0, \[Infinity]}]; \[IndentingNewLine]If[ Length[term] > 0, \[IndentingNewLine]\(B[\([j, k]\)] = term[\([1]\)]\ /. p \[Rule] 1;\)\[IndentingNewLine]];\[IndentingNewLine], {k, size}\[IndentingNewLine]];\)\[IndentingNewLine], {j, size}\[IndentingNewLine]];\), "\[IndentingNewLine]", \(b = Array[\(({MatrixPower[B, #]})\) &, size];\), "\[IndentingNewLine]", \(m = Table[\(\(Derivative[1]\)[f]\)[x]^\((j*k)\)\ , {j, size}, {k, size}];\), "\[IndentingNewLine]", \(Z = Inverse[m]\ . \ b\ // Simplify\ ;\), "\[IndentingNewLine]", RowBox[{\(If[ size < 5, \[IndentingNewLine]Print["\", B // MatrixForm]; \[IndentingNewLine]Print["\", b // MatrixForm]; \[IndentingNewLine]Print["\", m // MatrixForm]; \[IndentingNewLine]Print["\", Z // MatrixForm];\[IndentingNewLine]];\), "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"matrix", "=", RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "^", \((i*n)\)}], "*", \(R[i]\)}], ",", \({i, size}\)}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", \( (*\ Bell\ Matrix\ solution\ *) \)}], "\[IndentingNewLine]", RowBox[{\(matrix = matrix /. \(\(Derivative[a_]\)[f]\)[ x] \[Rule] \(\(Derivative[a]\)[f]\)[p]\), " ", "\[IndentingNewLine]", "\[IndentingNewLine]", \( (*\ Schroeder\ summation\ solution\ *) \)}], "\[IndentingNewLine]", RowBox[{\(schroeder = \(schroeder /. \(\(Derivative[1]\)[f]\)[ p] \[Rule] \[Lambda]\) /. \[Lambda] \[Rule] \(\(Derivative[ 1]\)[f]\)[p]\), "\[IndentingNewLine]", "\[IndentingNewLine]", \( (*\ This\ shows\ that\ the\ two\ solutions\ are\ identical\ *) \)}], "\ \[IndentingNewLine]", \(\((matrix - schroeder)\) /. p \[Rule] 0 // Simplify\)}], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(3\ n\)], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{\(x\^3\), " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}]}], ")"}]}], RowBox[{"6", " ", SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}]}]], "-", FractionBox[ RowBox[{\(x\^4\), " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}]}], ")"}]}], RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}]}]], "-", RowBox[{ RowBox[{"(", RowBox[{\(x\^5\), " ", RowBox[{"(", RowBox[{ RowBox[{\(-9\), " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"4", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}], "2"]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"24", " ", SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "4"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(2\ n\)], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{\(x\^2\), " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}]}]], "-", FractionBox[ RowBox[{\(x\^3\), " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}]], "+", FractionBox[ RowBox[{\(x\^4\), " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}]}], ")"}]}], RowBox[{"24", " ", SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}]}]], "-", RowBox[{ RowBox[{"(", RowBox[{\(x\^5\), " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{"7", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], "-", RowBox[{"6", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"24", " ", SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "4"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(4\ n\)], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{\(x\^4\), " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"(", RowBox[{"5", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{"(", RowBox[{\(-5\), "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"24", " ", SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{\(x\^5\), " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"(", RowBox[{"5", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{"(", RowBox[{\(-5\), "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "4"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{\(x\^5\), " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-4\) + 5\ n\)], " ", RowBox[{"(", RowBox[{ RowBox[{"15", " ", RowBox[{"(", RowBox[{"7", "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{"(", RowBox[{\(-21\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], "+", RowBox[{"11", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{"5", " ", SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}], "2"]}], "+", RowBox[{ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{"(", RowBox[{\(-1\), "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((5)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"120", " ", SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"]}], ")"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"], " ", RowBox[{"(", RowBox[{"x", "+", FractionBox[ RowBox[{\(x\^2\), " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}]}]], "+", FractionBox[ RowBox[{\(x\^3\), " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}]}], ")"}]}], RowBox[{"6", " ", SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}]}]], "+", RowBox[{ RowBox[{"(", RowBox[{\(x\^4\), " ", RowBox[{"(", RowBox[{ RowBox[{\(-3\), " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"5", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{"(", RowBox[{\(-2\), "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{"5", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"24", " ", SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{\(x\^5\), " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{"15", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "-", RowBox[{ SuperscriptBox["f", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"]}], "+", RowBox[{"5", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{"10", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["f", TagBox[\((5)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}], "2"]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "-", RowBox[{ SuperscriptBox["f", TagBox[\((5)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], ")"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "7"], " ", RowBox[{ SuperscriptBox["f", TagBox[\((5)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "5"], " ", RowBox[{"(", RowBox[{ RowBox[{\(-105\), " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}], "2"]}], "-", RowBox[{"10", " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{ SuperscriptBox["f", TagBox[\((5)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"45", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"]}], "+", RowBox[{"15", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{ SuperscriptBox["f", TagBox[\((5)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}], "2"]}], "+", RowBox[{"15", " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], "+", RowBox[{ SuperscriptBox["f", TagBox[\((5)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"120", " ", SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "4"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"]}], ")"}]}], ")"}]}]}], ")"}]}]}]], "Output"], Cell[BoxData[ RowBox[{"p", "+", RowBox[{\((\(-p\) + x)\), " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], "+", FractionBox[ RowBox[{\(\((\(-p\) + x)\)\^2\), " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-1\) + n\)], " ", RowBox[{"(", RowBox[{\(-1\), "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}]}]], "+", RowBox[{\(1\/6\), " ", \(\((\(-p\) + x)\)\^3\), " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-2\) + n\)], " ", RowBox[{"(", RowBox[{\(-1\), "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-1\) + n\)], " ", RowBox[{"(", RowBox[{\(-1\), "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], RowBox[{ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}]}]]}], ")"}]}], "+", RowBox[{\(1\/24\), " ", \(\((\(-p\) + x)\)\^4\), " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"12", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-3\) + n\)], " ", RowBox[{"(", RowBox[{\(-1\), "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}]}]], "+", FractionBox[ RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-3\) + n\)], " ", RowBox[{"(", RowBox[{\(-1\), "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{\(-1\), "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(1 + n\)]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}]}]], "+", FractionBox[ RowBox[{"4", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-2\) + n\)], " ", RowBox[{"(", RowBox[{\(-1\), "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}]}]], "+", FractionBox[ RowBox[{"6", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-2\) + n\)], " ", RowBox[{"(", RowBox[{\(-1\), "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(1 + n\)]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-1\) + n\)], " ", RowBox[{"(", RowBox[{\(-1\), "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(2\ n\)]}], ")"}], " ", RowBox[{ SuperscriptBox["f", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], RowBox[{ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}]}]]}], ")"}]}], "+", RowBox[{\(1\/120\), " ", \(\((\(-p\) + x)\)\^5\), " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}]}]], RowBox[{"(", RowBox[{"30", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-8\) + 2\ n\)], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(3\ n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-4\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"]]}]], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(1 + 2\ n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-3\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]]}]], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(2 + 2\ n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-3\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(2 + n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-2\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]]}]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(3 + n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-2\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]]}]], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(-n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"60", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-8\) + 2\ n\)], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(3\ n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-4\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"]]}]], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(1 + 2\ n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-3\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]]}]], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(2 + 2\ n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-3\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]]}]], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(3 + 2\ n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-3\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(3 + n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-2\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(4 + n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-2\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(5 + n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-2\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]]}]], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "6"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(-n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"]}], ")"}], "/", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"15", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-8\) + 2\ n\)], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(3\ n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-4\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(1 + 3\ n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-4\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"]]}]], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(1 + 2\ n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-3\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]]}]], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(2 + 2\ n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-3\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]]}]], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(3 + 2\ n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-3\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(2 + n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-2\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]]}]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(3 + n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-2\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]]}]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(4 + n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-2\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(5 + n\)], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-2\)\ n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]]}]], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(-n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]]}]], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "6"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(-n\)]}], ")"}]}], RowBox[{"1", "-", FractionBox["1", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"]}], ")"}], "/", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"30", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-3\) + n\)], " ", RowBox[{"(", RowBox[{\(-1\), "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(1 + n\)], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(2 + n\)]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"10", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-3\) + n\)], " ", RowBox[{"(", RowBox[{\(-1\), "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{\(-1\), "-", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"], "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "4"], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(2\ n\)], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(1 + n\)], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(2 + n\)], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(1 + 2\ n\)], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(2 + 2\ n\)]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "p", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{\(-1\), "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"15", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], \(\(-3\) + n\)], " ", RowBox[{"(", RowBox[{\(-1\), "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "2"], "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "3"], "-", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "p", "]"}], "n"], "+", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]",