Order-Conditions-ThDTSRK.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    220365,       5394]
NotebookOptionsPosition[    213232,       5306]
NotebookOutlinePosition[    213676,       5324]
CellTagsIndexPosition[    213633,       5321]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"ClearAll", "[", "\"\<\[Epsilon]*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"ClearAll", "[", "\"\<c*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"ClearAll", "[", "\"\<A*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"ClearAll", "[", "\"\<\[Tau]*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearAll", "[", "\"\<\[Sigma]*\>\"", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nn", "=", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Tau]", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "nn"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1"}], "}"}]}], "]"}]}], ";", "     ", 
  RowBox[{"(*", 
   SuperscriptBox["\[Tau]", "n"], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[Tau]", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      SuperscriptBox["c", "2"], 
      RowBox[{"2", "!"}]], "-", 
     RowBox[{"A", "*", "c"}], "-", 
     RowBox[{
      OverscriptBox["A", "^"], "*", "e"}]}], ")"}]}], ";", " ", 
  RowBox[{
   RowBox[{"\[Tau]", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "1"}], "]"}], "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      SuperscriptBox["c", "3"], 
      RowBox[{"3", "!"}]], "-", 
     FractionBox[
      RowBox[{"A", "*", 
       SuperscriptBox["c", "2"]}], "2"], "-", 
     RowBox[{
      OverscriptBox["A", "^"], "*", "c"}], "-", 
     RowBox[{
      OverscriptBox["A", "_"], "*", "e"}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Tau]", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        SuperscriptBox["c", "i"], 
        RowBox[{"i", "!"}]], "-", 
       FractionBox[
        RowBox[{"A", "*", 
         SuperscriptBox["c", 
          RowBox[{"i", "-", "1"}]]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "-", "1"}], ")"}], "!"}]], "-", 
       FractionBox[
        RowBox[{
         OverscriptBox["A", "^"], "*", 
         SuperscriptBox["c", 
          RowBox[{"i", "-", "2"}]]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "-", "2"}], ")"}], "!"}]], "-", 
       FractionBox[
        RowBox[{
         OverscriptBox["A", "_"], "*", 
         SuperscriptBox["c", 
          RowBox[{"i", "-", "3"}]]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "-", "3"}], ")"}], "!"}]]}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "4", ",", "nn"}], "}"}]}], " ", "]"}], ";", "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    SuperscriptBox["dt", "i"], "*"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Tau]2:  \>\"", ",", 
    RowBox[{
     RowBox[{"\[Tau]", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "1"}], "]"}], "]"}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Tau]3:  \>\"", ",", 
    RowBox[{
     RowBox[{"\[Tau]", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "1"}], "]"}], "]"}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Tau]4:  \>\"", ",", 
    RowBox[{
     RowBox[{"\[Tau]", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "1"}], "]"}], "]"}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Tau]5:  \>\"", ",", 
    RowBox[{
     RowBox[{"\[Tau]", "[", 
      RowBox[{"[", 
       RowBox[{"5", ",", "1"}], "]"}], "]"}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Tau]6:  \>\"", ",", 
    RowBox[{
     RowBox[{"\[Tau]", "[", 
      RowBox[{"[", 
       RowBox[{"6", ",", "1"}], "]"}], "]"}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\"\< \[Tau]7:  \>\"", ",", 
     RowBox[{
      RowBox[{"\[Tau]", "[", 
       RowBox[{"[", 
        RowBox[{"7", ",", "1"}], "]"}], "]"}], "//", "Expand"}]}], "  ", 
    "]"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"\[Tau]2", ":", "  ", 
    RowBox[{
     FractionBox[
      SuperscriptBox["c", "2"], "2"], "-", 
     RowBox[{"A", " ", "c"}], "-", " ", 
     OverscriptBox["c", "^"]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Tau]f", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "nn"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1"}], "}"}]}], "]"}]}], ";", "    ", 
   RowBox[{"(*", 
    SuperscriptBox["\[Tau]", 
     RowBox[{"n", "-", "1"}]], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Tau]f", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", 
    RowBox[{"\[Tau]", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ";", "   ", 
   RowBox[{
    RowBox[{"\[Tau]f", "[", 
     RowBox[{"[", 
      RowBox[{"3", ",", "1"}], "]"}], "]"}], "=", 
    RowBox[{
     RowBox[{"\[Tau]", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "1"}], "]"}], "]"}], "-", 
     RowBox[{"\[Tau]", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Tau]f", "[", 
     RowBox[{"[", 
      RowBox[{"4", ",", "1"}], "]"}], "]"}], "=", 
    RowBox[{
     RowBox[{"\[Tau]", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "1"}], "]"}], "]"}], "-", 
     RowBox[{"\[Tau]", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", 
     RowBox[{
      RowBox[{"\[Tau]", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1"}], "]"}], "]"}], "/", "2"}]}]}], ";"}], "  ", 
  "\[IndentingNewLine]", " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Tau]1", "=", 
   RowBox[{"Table", "[", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Theta]", "-", 
       RowBox[{"v", "*", "e"}], "-", 
       RowBox[{"w", "*", "e"}]}], ")"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "nn"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1"}], "}"}]}], "]"}]}], ";", "     ", 
  RowBox[{"(*", 
   SuperscriptBox["\[Tau]", 
    RowBox[{"n", "+", "1"}]], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[Tau]1", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"1", "-", "\[Theta]"}], 
      RowBox[{"2", "!"}]], "-", 
     RowBox[{"v", "*", "c"}], "-", 
     RowBox[{"w", "*", 
      RowBox[{"(", "ce", ")"}]}], "-", 
     RowBox[{
      OverscriptBox["v", "^"], "*", "e"}], "-", 
     RowBox[{
      OverscriptBox["w", "^"], "*", "e"}]}], ")"}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"ce", "=", 
    RowBox[{"c", "-", "e"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[Tau]1", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "1"}], "]"}], "]"}], "=", 
   RowBox[{"2", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"1", "+", "\[Theta]"}], 
       RowBox[{"3", "!"}]], "-", 
      FractionBox[
       RowBox[{"v", "*", 
        SuperscriptBox["c", "2"]}], 
       RowBox[{"2", "!"}]], "-", 
      FractionBox[
       RowBox[{"w", "*", 
        RowBox[{"(", 
         SuperscriptBox["ce", "2"], ")"}]}], 
       RowBox[{"2", "!"}]], "-", 
      RowBox[{
       OverscriptBox["v", "^"], "*", "c"}], "-", 
      RowBox[{
       OverscriptBox["w", "^"], "*", "ce"}], "-", 
      RowBox[{
       OverscriptBox["v", "_"], "*", "e"}], "-", " ", 
      RowBox[{
       OverscriptBox["w", "_"], "*", "e"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Do", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Tau]1", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "-", "1"}], ")"}], "!"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"1", "-", 
           RowBox[{"\[Theta]", "*", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], "i"]}]}], 
          RowBox[{"i", "!"}]], "-", 
         FractionBox[
          RowBox[{"v", "*", 
           SuperscriptBox["c", 
            RowBox[{"i", "-", "1"}]]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"i", "-", "1"}], ")"}], "!"}]], "-", 
         FractionBox[
          RowBox[{"w", "*", 
           SuperscriptBox[
            RowBox[{"(", "ce", ")"}], 
            RowBox[{"i", "-", "1"}]]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"i", "-", "1"}], ")"}], "!"}]], "-", 
         FractionBox[
          RowBox[{
           OverscriptBox["v", "^"], "*", 
           SuperscriptBox["c", 
            RowBox[{"i", "-", "2"}]]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"i", "-", "2"}], ")"}], "!"}]], "-", 
         FractionBox[
          RowBox[{
           OverscriptBox["w", "^"], "*", 
           SuperscriptBox[
            RowBox[{"(", "ce", ")"}], 
            RowBox[{"i", "-", "2"}]]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"i", "-", "2"}], ")"}], "!"}]], "-", 
         FractionBox[
          RowBox[{
           OverscriptBox["v", "_"], "*", 
           SuperscriptBox["c", 
            RowBox[{"i", "-", "3"}]]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"i", "-", "3"}], ")"}], "!"}]], "-", 
         FractionBox[
          RowBox[{
           OverscriptBox["w", "_"], "*", 
           SuperscriptBox[
            RowBox[{"(", "ce", ")"}], 
            RowBox[{"i", "-", "3"}]]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"i", "-", "3"}], ")"}], "!"}]]}], ")"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "4", ",", "nn"}], "}"}]}], " ", "]"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    SuperscriptBox["dt", "i"], "   ", "\:90fd\:5728tn", " ", 
    "\:6cf0\:52d2\:5c55\:5f00"}], "**)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"2", "   ", 
    RowBox[{"Order", ":"}]}], "  ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Delta]1", "=", "0"}], ";", "   ", 
   RowBox[{"\[Sigma]0", "=", "0"}], ";"}], "   "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Delta]f1", "=", "0"}], ";", "    ", 
   RowBox[{"\[Sigma]f0", "=", "0"}], ";"}], "  ", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"3", "   ", 
    RowBox[{"Order", ":"}]}], "  ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Epsilon]2", "=", 
    RowBox[{"-", "\[Tau]2"}]}], ";", "  ", 
   RowBox[{"\[Delta]2", "=", "\[Epsilon]2"}], ";", "  ", 
   RowBox[{"\[Sigma]1", "=", "0"}], ";"}], "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Epsilon]f2", "=", 
    RowBox[{"-", "\[Tau]f2"}]}], ";", "  ", 
   RowBox[{"\[Delta]f2", "=", "\[Epsilon]f2"}], ";", "  ", 
   RowBox[{"\[Sigma]f1", "=", "0"}], ";"}], " ", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"4", "   ", 
    RowBox[{"Order", ":"}]}], "  ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]3", "=", 
   RowBox[{
    RowBox[{"A", "*", "\[Delta]2"}], "-", "\[Tau]3"}]}], ";", "  ", 
  RowBox[{"\[Delta]3", "=", 
   RowBox[{"\[Epsilon]3", "+", 
    RowBox[{"C", "*", "\[Epsilon]2"}]}]}], ";", "   ", 
  RowBox[{"\[Sigma]2", "=", "\[Delta]2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Epsilon]f3", "=", 
    RowBox[{
     RowBox[{"A", "*", "\[Delta]f2"}], "-", "\[Tau]f3"}]}], ";", "  ", 
   RowBox[{"\[Delta]f3", "=", 
    RowBox[{"\[Epsilon]f3", "+", 
     RowBox[{"Ce", "*", "\[Epsilon]f2"}]}]}], ";", "   ", 
   RowBox[{"\[Sigma]f2", "=", "\[Delta]f2"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"5", "   ", 
     RowBox[{"Order", ":", "  ", 
      StyleBox[
       RowBox[{
        StyleBox["\[Tau]",
         FontWeight->"Bold"], "2"}]]}]}], "=", "0"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Epsilon]4", "=", 
     RowBox[{
      RowBox[{"A", "*", "\[Delta]3"}], "+", 
      RowBox[{
       OverscriptBox["A", "^"], "*", "\[Sigma]2"}], "-", "\[Tau]4"}]}], ";", 
    "  ", 
    RowBox[{"\[Delta]4", "=", 
     RowBox[{"\[Epsilon]4", "+", 
      RowBox[{"C", "*", "\[Epsilon]3"}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], "*", "\[Epsilon]2"}], "+", 
      SuperscriptBox["\[Epsilon]2", "2"]}]}], ";", "   ", 
    RowBox[{"\[Sigma]3", "=", "\[Delta]3"}], ";", "  ", 
    RowBox[{"\[Eta]2", " ", "=", "\[Delta]2"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Epsilon]f4", "=", 
     RowBox[{
      RowBox[{"A", "*", "\[Delta]f3"}], "+", 
      RowBox[{
       OverscriptBox["A", "^"], "*", "\[Sigma]f2"}], "-", "\[Tau]f4"}]}], ";",
     "  ", 
    RowBox[{"\[Delta]f4", "=", 
     RowBox[{"\[Epsilon]f4", "+", 
      RowBox[{"Ce", "*", "\[Epsilon]f3"}], "+", 
      RowBox[{
       SuperscriptBox["Ce", "2"], "*", "\[Epsilon]f2"}], "+", 
      SuperscriptBox["\[Epsilon]f2", "2"]}]}], ";", "   ", 
    RowBox[{"\[Sigma]f3", "=", "\[Delta]f3"}], ";", " ", 
    RowBox[{"\[Eta]f2", " ", "=", "\[Delta]f2"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]4", "=", 
   RowBox[{
    RowBox[{"A", "*", "\[Delta]3"}], "-", "\[Tau]4"}]}], ";", "  ", 
  RowBox[{"\[Delta]4", "=", 
   RowBox[{"\[Epsilon]4", "+", 
    RowBox[{"C", "*", "\[Epsilon]3"}]}]}], ";", "   ", 
  RowBox[{"\[Sigma]3", "=", "\[Delta]3"}], ";", "  ", 
  RowBox[{"\[Eta]2", " ", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Epsilon]f4", "=", 
    RowBox[{
     RowBox[{"A", "*", "\[Delta]f3"}], "-", "\[Tau]f4"}]}], ";", "  ", 
   RowBox[{"\[Delta]f4", "=", 
    RowBox[{"\[Epsilon]f4", "+", 
     RowBox[{"Ce", "*", "\[Epsilon]f3"}]}]}], ";", "   ", 
   RowBox[{"\[Sigma]f3", "=", "\[Delta]f3"}], ";", " ", 
   RowBox[{"\[Eta]f2", " ", "=", "0"}], ";"}], "\[IndentingNewLine]", 
  StyleBox[
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"6", "   ", 
      RowBox[{"Order", ":", "  ", 
       StyleBox[
        RowBox[{
         StyleBox["\[Tau]",
          FontWeight->"Bold"], "2"}]]}]}], "=", "0"}], "*)"}],
   FontWeight->"Plain"]}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{
   RowBox[{"\[Epsilon]5", "=", 
    RowBox[{
     RowBox[{"A", "*", "\[Delta]4"}], "+", 
     RowBox[{
      OverscriptBox["A", "^"], "*", "\[Sigma]3"}], "+", 
     RowBox[{
      OverscriptBox["A", "_"], "*", "\[Eta]2"}], "-", "\[Tau]5"}]}], ";", 
   "  ", 
   RowBox[{"\[Delta]5", "=", 
    RowBox[{"\[Epsilon]5", "+", 
     RowBox[{"C", "*", "\[Epsilon]4"}], "+", 
     RowBox[{
      SuperscriptBox["C", "2"], "*", "\[Epsilon]3"}]}]}], ";", "   ", 
   RowBox[{"\[Sigma]4", "=", "\[Delta]4"}], ";", " ", 
   RowBox[{"\[Eta]3", "=", "\[Delta]3"}], ";"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Epsilon]f5", "=", 
    RowBox[{
     RowBox[{"A", "*", "\[Delta]f4"}], "+", 
     RowBox[{
      OverscriptBox["A", "^"], "*", "\[Sigma]f3"}], "+", 
     RowBox[{
      OverscriptBox["A", "_"], "*", "\[Eta]f2"}], "-", "\[Tau]f5"}]}], ";", 
   "  ", 
   RowBox[{"\[Delta]f5", "=", 
    RowBox[{"\[Epsilon]f5", "+", 
     RowBox[{"Ce", "*", "\[Epsilon]f4"}], "+", 
     RowBox[{
      SuperscriptBox["Ce", "2"], "*", "\[Epsilon]f3"}]}]}], ";", "   ", 
   RowBox[{"\[Sigma]f4", "=", "\[Delta]f4"}], ";", " ", 
   RowBox[{"\[Eta]f3", " ", "=", "\[Delta]f3"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"7", "   ", 
     RowBox[{"Order", ":", "  ", 
      StyleBox[
       RowBox[{
        StyleBox["\[Tau]",
         FontWeight->"Bold"], "2"}]]}]}], "=", 
    RowBox[{
     StyleBox["\[Tau]3",
      FontWeight->"Bold"], "=", "0"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]6", "=", 
   RowBox[{
    RowBox[{"A", "*", "\[Delta]5"}], "+", 
    RowBox[{
     OverscriptBox["A", "^"], "*", "\[Sigma]4"}], "+", 
    RowBox[{
     OverscriptBox["A", "_"], "*", "\[Eta]3"}], "-", "\[Tau]6"}]}], ";", "  ", 
  RowBox[{"\[Delta]6", "=", 
   RowBox[{"\[Epsilon]6", "+", 
    RowBox[{"C", "*", "\[Epsilon]5"}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], "*", "\[Epsilon]4"}]}]}], ";", "  ", 
  RowBox[{"\[Sigma]5", "=", "\[Delta]5"}], ";", "  ", 
  RowBox[{"\[Eta]4", "=", "\[Delta]4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Epsilon]f6", "=", 
    RowBox[{
     RowBox[{"A", "*", "\[Delta]f5"}], "+", 
     RowBox[{
      OverscriptBox["A", "^"], "*", "\[Sigma]f4"}], "+", 
     RowBox[{
      OverscriptBox["A", "_"], "*", "\[Eta]f3"}], "-", "\[Tau]f6"}]}], ";", 
   "   ", 
   RowBox[{"\[Delta]f6", "=", 
    RowBox[{"\[Epsilon]f6", "+", 
     RowBox[{"Ce", "*", "\[Epsilon]f5"}], "+", 
     RowBox[{
      SuperscriptBox["Ce", "2"], "*", "\[Epsilon]f4"}]}]}], ";", " ", 
   RowBox[{"\[Sigma]f5", "=", "\[Delta]f5"}], ";", " ", 
   RowBox[{"\[Eta]f4", " ", "=", "\[Delta]f4"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"8", "   ", 
     RowBox[{"Order", ":", "  ", 
      StyleBox[
       RowBox[{
        StyleBox["\[Tau]",
         FontWeight->"Bold"], "2"}]]}]}], "=", 
    RowBox[{
     StyleBox["\[Tau]3",
      FontWeight->"Bold"], "=", "0"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]7", "=", 
   RowBox[{
    RowBox[{"A", "*", "\[Delta]6"}], "+", 
    RowBox[{
     OverscriptBox["A", "^"], "*", "\[Sigma]5"}], "+", 
    RowBox[{
     OverscriptBox["A", "_"], "*", "\[Eta]4"}], "-", "\[Tau]7"}]}], ";", "  ", 
  RowBox[{"\[Delta]7", "=", 
   RowBox[{"\[Epsilon]7", "+", 
    RowBox[{"C", "*", "\[Epsilon]6"}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], "*", "\[Epsilon]5"}], "+", 
    RowBox[{
     SuperscriptBox["C", "3"], "*", "\[Epsilon]4"}]}]}], ";", "  ", 
  RowBox[{"\[Sigma]6", "=", "\[Delta]6"}], ";", "  ", 
  RowBox[{"\[Eta]5", "=", "\[Delta]5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Epsilon]f7", "=", 
    RowBox[{
     RowBox[{"A", "*", "\[Delta]f6"}], "+", 
     RowBox[{
      OverscriptBox["A", "^"], "*", "\[Sigma]f5"}], "+", 
     RowBox[{
      OverscriptBox["A", "_"], "*", "\[Eta]f4"}], "-", "\[Tau]f7"}]}], ";", 
   " ", 
   RowBox[{"\[Delta]f7", "=", 
    RowBox[{"\[Epsilon]f7", "+", 
     RowBox[{"Ce", "*", "\[Epsilon]f6"}], "+", 
     RowBox[{
      SuperscriptBox["Ce", "2"], "*", "\[Epsilon]f5"}], "+", 
     RowBox[{
      SuperscriptBox["Ce", "3"], "*", "\[Epsilon]f4"}]}]}], ";", " ", 
   RowBox[{"\[Sigma]f6", "=", "\[Delta]f6"}], ";", "  ", 
   RowBox[{"\[Eta]f5", " ", "=", "\[Delta]f5"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"9", "   ", 
    RowBox[{"Order", ":"}]}], "  ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]8", "=", 
   RowBox[{
    RowBox[{"A", "*", "\[Delta]7"}], "+", 
    RowBox[{
     OverscriptBox["A", "^"], "*", "\[Sigma]6"}], "+", 
    RowBox[{
     OverscriptBox["A", "_"], "*", "\[Eta]5"}], "-", "\[Tau]8"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{
   RowBox[{"\[Epsilon]f8", "=", 
    RowBox[{
     RowBox[{"A", "*", "\[Delta]f7"}], "+", 
     RowBox[{
      OverscriptBox["A", "^"], "*", "\[Sigma]f6"}], "+", 
     RowBox[{
      OverscriptBox["A", "_"], "*", "\[Eta]f5"}], "-", "\[Tau]f8"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"1", "\:9636"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\< \!\(\*SuperscriptBox[\(order1_\[Tau]\), \(n + 1\)]\):  \>\"", ",", 
     RowBox[{
      RowBox[{"\[Tau]1", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}], "//", "Expand"}]}], "  ", 
    "]"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"2", "\:9636"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\< \!\(\*SuperscriptBox[\(order2_\[Tau]\), \(n + 1\)]\):  \>\"", ",", 
    RowBox[{
     RowBox[{"\[Tau]1", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "1"}], "]"}], "]"}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"order2", "=", 
   RowBox[{
    RowBox[{"v", "*", "\[Delta]1"}], " ", "+", 
    RowBox[{"w", "*", "\[Delta]f1"}]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\"\< order2_cond:  \>\"", ",", 
     RowBox[{
      RowBox[{"-", "order2"}], "//", "Expand"}]}], "  ", "]"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"3", "\:9636"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\< \!\(\*SuperscriptBox[\(order3_\[Tau]\), \(n + 1\)]\):  \>\"", ",", 
    RowBox[{
     RowBox[{"\[Tau]1", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "1"}], "]"}], "]"}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"order3", "=", 
   RowBox[{
    RowBox[{"v", "*", "\[Delta]2"}], "+", 
    RowBox[{"w", "*", "\[Delta]f2"}], "+", 
    RowBox[{
     OverscriptBox["v", "^"], "*", "\[Sigma]1"}], "+", 
    RowBox[{
     OverscriptBox["w", "^"], "*", "\[Sigma]1"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< order3_cond:  \>\"", ",", 
    RowBox[{
     RowBox[{"-", "order3"}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\"\< order3_cond:  \>\"", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "order3"}], "/.", 
       RowBox[{"\[Tau]f2", "\[Rule]", "\[Tau]2"}]}], "//", "Expand"}]}], "  ",
     "]"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"4", "\:9636"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\< \!\(\*SuperscriptBox[\(order4_\[Tau]\), \(n + 1\)]\):  \>\"", ",", 
    RowBox[{
     RowBox[{"\[Tau]1", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "1"}], "]"}], "]"}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"order4", "=", 
   RowBox[{
    RowBox[{"v", "*", "\[Delta]3"}], "+", 
    RowBox[{
     OverscriptBox["v", "^"], "*", "\[Sigma]2"}], "+", 
    RowBox[{"w", "*", "\[Delta]f3"}], "+", 
    RowBox[{
     OverscriptBox["w", "^"], "*", "\[Sigma]f2"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< order4_cond:  \>\"", ",", 
    RowBox[{
     RowBox[{"-", "order4"}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\"\< order4_cond:  \>\"", ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"-", "order4"}], "/.", 
        RowBox[{"\[Tau]f2", "\[Rule]", "\[Tau]2"}]}], "/.", 
       RowBox[{"\[Tau]f3", "\[Rule]", 
        RowBox[{"\[Tau]3", "-", "\[Tau]2"}]}]}], "//", "Expand"}]}], "  ", 
    "]"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"5", "\:9636", "   ", 
     StyleBox[
      RowBox[{
       StyleBox["\[Tau]",
        FontWeight->"Bold"], "2"}]]}], "=", "0"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\< \!\(\*SuperscriptBox[\(order5_\[Tau]\), \(n + 1\)]\):  \>\"", ",", 
    RowBox[{
     RowBox[{"\[Tau]1", "[", 
      RowBox[{"[", 
       RowBox[{"5", ",", "1"}], "]"}], "]"}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"order5", "=", 
   RowBox[{
    RowBox[{"v", "*", "\[Delta]4"}], "+", 
    RowBox[{
     OverscriptBox["v", "^"], "*", "\[Sigma]3"}], "+", 
    RowBox[{
     OverscriptBox["v", "_"], "*", "\[Eta]2"}], " ", "+", 
    RowBox[{"w", "*", "\[Delta]f4"}], "+", 
    RowBox[{
     OverscriptBox["w", "^"], "*", "\[Sigma]f3"}], "+", 
    RowBox[{
     OverscriptBox["w", "_"], "*", "\[Eta]f2"}]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< order5_cond:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "order5"}], "/.", 
       RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
      RowBox[{"\[Tau]f2", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\"\< order5_cond:  \>\"", ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "order5"}], "/.", 
          RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
         RowBox[{"\[Tau]f2", "\[Rule]", "0"}]}], "/.", 
        RowBox[{"\[Tau]f3", "\[Rule]", 
         RowBox[{"\[Tau]3", "-", "\[Tau]2"}]}]}], "/.", 
       RowBox[{"\[Tau]f4", "\[Rule]", 
        RowBox[{"\[Tau]4", "-", "\[Tau]3", "+", 
         RowBox[{"\[Tau]2", "/", "2"}]}]}]}], "//", "Expand"}]}], "  ", "]"}],
    ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"6", "\:9636", " ", 
     StyleBox[
      RowBox[{
       StyleBox["\[Tau]",
        FontWeight->"Bold"], "2"}]]}], "=", "0"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\< \!\(\*SuperscriptBox[\(order6_\[Tau]\), \(n + 1\)]\):  \>\"", ",", 
    RowBox[{
     RowBox[{"\[Tau]1", "[", 
      RowBox[{"[", 
       RowBox[{"6", ",", "1"}], "]"}], "]"}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"order6", "=", 
   RowBox[{
    RowBox[{"v", "*", "\[Delta]5"}], "+", 
    RowBox[{
     OverscriptBox["v", "^"], "*", "\[Sigma]4"}], "+", 
    RowBox[{
     OverscriptBox["v", "_"], "*", "\[Eta]3"}], "+", 
    RowBox[{"w", "*", "\[Delta]f5"}], "+", 
    RowBox[{
     OverscriptBox["w", "^"], "*", "\[Sigma]f4"}], "+", 
    RowBox[{
     OverscriptBox["w", "_"], "*", "\[Eta]f3"}]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< order6_cond:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "order6"}], "/.", 
       RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
      RowBox[{"\[Tau]f2", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\"\< order6_cond:  \>\"", ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "order6"}], "/.", 
           RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
          RowBox[{"\[Tau]f2", "\[Rule]", "0"}]}], "/.", 
         RowBox[{"\[Tau]f3", "\[Rule]", 
          RowBox[{"\[Tau]3", "-", "\[Tau]2"}]}]}], "/.", 
        RowBox[{"\[Tau]f4", "\[Rule]", 
         RowBox[{"\[Tau]4", "-", "\[Tau]3", "+", 
          RowBox[{"\[Tau]2", "/", "2"}]}]}]}], "/.", 
       RowBox[{"\[Tau]f5", "\[Rule]", 
        RowBox[{"\[Tau]5", "-", "\[Tau]4", "+", 
         RowBox[{"\[Tau]3", "/", "2"}], "-", 
         RowBox[{"\[Tau]2", "/", "6"}]}]}]}], "//", "Expand"}]}], "  ", "]"}],
    ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"7", "\:9636", "  ", 
     StyleBox[
      RowBox[{
       StyleBox["\[Tau]",
        FontWeight->"Bold"], "2"}]]}], "=", 
    RowBox[{
     StyleBox["\[Tau]3",
      FontWeight->"Bold"], "=", "0"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\< \!\(\*SuperscriptBox[\(order7_\[Tau]\), \(n + 1\)]\):  \>\"", ",", 
    RowBox[{
     RowBox[{"\[Tau]1", "[", 
      RowBox[{"[", 
       RowBox[{"7", ",", "1"}], "]"}], "]"}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"order7", "=", 
   RowBox[{
    RowBox[{"v", "*", "\[Delta]6"}], "+", 
    RowBox[{
     OverscriptBox["v", "^"], "*", "\[Sigma]5"}], "+", 
    RowBox[{
     OverscriptBox["v", "_"], "*", "\[Eta]4"}], "+", 
    RowBox[{"w", "*", "\[Delta]f6"}], "+", 
    RowBox[{
     OverscriptBox["w", "^"], "*", "\[Sigma]f5"}], "+", 
    RowBox[{
     OverscriptBox["w", "_"], "*", "\[Eta]f4"}]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< order7_cond:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "order7"}], "/.", 
         RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
        RowBox[{"\[Tau]f2", "\[Rule]", "0"}]}], "/.", 
       RowBox[{"\[Tau]3", "\[Rule]", "0"}]}], "/.", 
      RowBox[{"\[Tau]f3", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\"\< order7_cond:  \>\"", ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"-", "order7"}], "/.", 
             RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"\[Tau]f2", "\[Rule]", "0"}]}], "/.", 
           RowBox[{"\[Tau]3", "\[Rule]", "0"}]}], "/.", 
          RowBox[{"\[Tau]f3", "\[Rule]", "0"}]}], "/.", 
         RowBox[{"\[Tau]f4", "\[Rule]", "\[Tau]4"}]}], "/.", 
        RowBox[{"\[Tau]f5", "\[Rule]", 
         RowBox[{"\[Tau]5", "-", "\[Tau]4"}]}]}], "/.", 
       RowBox[{"\[Tau]f6", "\[Rule]", 
        RowBox[{"\[Tau]6", "-", "\[Tau]5", "+", 
         FractionBox["\[Tau]4", "2"]}]}]}], "//", "Expand"}]}], "  ", "]"}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"8", "\:9636", "  ", 
     StyleBox[
      RowBox[{
       StyleBox["\[Tau]",
        FontWeight->"Bold"], "2"}]]}], "=", 
    RowBox[{
     StyleBox["\[Tau]3",
      FontWeight->"Bold"], "=", "0"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\< \!\(\*SuperscriptBox[\(order8_\[Tau]\), \(n + 1\)]\):  \>\"", ",", 
    RowBox[{
     RowBox[{"\[Tau]1", "[", 
      RowBox[{"[", 
       RowBox[{"8", ",", "1"}], "]"}], "]"}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"order8", "=", 
   RowBox[{
    RowBox[{"v", "*", "\[Delta]7"}], "+", 
    RowBox[{
     OverscriptBox["v", "^"], "*", "\[Sigma]6"}], "+", 
    RowBox[{
     OverscriptBox["v", "_"], "*", "\[Eta]5"}], "+", 
    RowBox[{"w", "*", "\[Delta]f7"}], "+", 
    RowBox[{
     OverscriptBox["w", "^"], "*", "\[Sigma]f6"}], "+", 
    RowBox[{
     OverscriptBox["w", "_"], "*", "\[Eta]f5"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< order8_cond:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "order8"}], "/.", 
         RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
        RowBox[{"\[Tau]f2", "\[Rule]", "0"}]}], "/.", 
       RowBox[{"\[Tau]3", "\[Rule]", "0"}]}], "/.", 
      RowBox[{"\[Tau]f3", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\"\< order8_cond:  \>\"", ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"-", "order8"}], "/.", 
              RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"\[Tau]f2", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"\[Tau]3", "\[Rule]", "0"}]}], "/.", 
           RowBox[{"\[Tau]f3", "\[Rule]", "0"}]}], "/.", 
          RowBox[{"\[Tau]f4", "\[Rule]", "\[Tau]4"}]}], "/.", 
         RowBox[{"\[Tau]f5", "\[Rule]", 
          RowBox[{"\[Tau]5", "-", "\[Tau]4"}]}]}], "/.", 
        RowBox[{"\[Tau]f6", "\[Rule]", 
         RowBox[{"\[Tau]6", "-", "\[Tau]5", "+", 
          FractionBox["\[Tau]4", "2"]}]}]}], "/.", 
       RowBox[{"\[Tau]f7", "\[Rule]", 
        RowBox[{"\[Tau]7", "-", "\[Tau]6", "+", 
         FractionBox["\[Tau]5", "2"], "-", 
         FractionBox["\[Tau]4", "6"]}]}]}], "//", "Expand"}]}], "  ", "]"}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Tau]f2", "=", "\[Tau]2"}], ";", "   ", 
    RowBox[{"\[Tau]f3", "=", 
     RowBox[{"\[Tau]3", "-", "\[Tau]2"}]}], ";", "    ", 
    RowBox[{"\[Tau]f4", "=", 
     RowBox[{"\[Tau]4", "-", "\[Tau]3", "+", 
      RowBox[{"\[Tau]2", "/", "2"}]}]}], ";", "  ", 
    RowBox[{"\[Tau]f5", "=", 
     RowBox[{"\[Tau]5", "-", "\[Tau]4", "+", 
      RowBox[{"\[Tau]3", "/", "2"}], "-", 
      RowBox[{"\[Tau]2", "/", "6"}]}]}], ";"}], "*)"}], "\[IndentingNewLine]",
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\< 3\:9636 \>\"", " ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Epsilon]2:  \>\"", ",", 
    RowBox[{
     RowBox[{"-", "\[Epsilon]2"}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Delta]2:  \>\"", ",", 
    RowBox[{
     RowBox[{"-", "\[Delta]2"}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Sigma]1:  \>\"", ",", 
    RowBox[{
     RowBox[{"-", "\[Sigma]1"}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\< 4\:9636 \>\"", " ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Epsilon]3:  \>\"", ",", 
    RowBox[{
     RowBox[{"-", "\[Epsilon]3"}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Delta]3:  \>\"", ",", 
    RowBox[{
     RowBox[{"-", "\[Delta]3"}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Sigma]2:  \>\"", ",", 
    RowBox[{
     RowBox[{"-", "\[Sigma]2"}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\< 5\:9636 \!\(\*StyleBox[\"\[Tau]\",FontWeight->\"Bold\"]\)2=0 \>\"", 
   " ", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Epsilon]4:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[Epsilon]4"}], "/.", 
      RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Delta]4:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[Delta]4"}], "/.", 
      RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Sigma]3:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[Sigma]3"}], "/.", 
      RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Eta]2:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[Eta]2"}], "/.", 
      RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\< 6\:9636 \!\(\*StyleBox[\"\[Tau]\",FontWeight->\"Bold\"]\)2=0 \>\"", 
   " ", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Epsilon]5:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[Epsilon]5"}], "/.", 
      RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Delta]5:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[Delta]5"}], "/.", 
      RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Sigma]4:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[Sigma]4"}], "/.", 
      RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Eta]3:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[Eta]3"}], "/.", 
      RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\< 7\:9636 \
\!\(\*StyleBox[\"\[Tau]\",FontWeight->\"Bold\"]\)2=\!\(\*StyleBox[\"\[Tau]3\",\
FontWeight->\"Bold\"]\)=0\>\"", " ", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Epsilon]6:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Epsilon]6"}], "/.", 
       RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
      RowBox[{"\[Tau]3", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Delta]6:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Delta]6"}], "/.", 
       RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
      RowBox[{"\[Tau]3", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Sigma]5:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Sigma]5"}], "/.", 
       RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
      RowBox[{"\[Tau]3", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Eta]4:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Eta]4"}], "/.", 
       RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
      RowBox[{"\[Tau]3", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\< 8\:9636 \
\!\(\*StyleBox[\"\[Tau]\",FontWeight->\"Bold\"]\)2=\!\(\*StyleBox[\"\[Tau]3\",\
FontWeight->\"Bold\"]\)=0\>\"", " ", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Epsilon]7:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Epsilon]7"}], "/.", 
       RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
      RowBox[{"\[Tau]3", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Delta]7:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Delta]7"}], "/.", 
       RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
      RowBox[{"\[Tau]3", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Sigma]6:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Sigma]6"}], "/.", 
       RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
      RowBox[{"\[Tau]3", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\< \[Eta]5:  \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Eta]5"}], "/.", 
       RowBox[{"\[Tau]2", "\[Rule]", "0"}]}], "/.", 
      RowBox[{"\[Tau]3", "\[Rule]", "0"}]}], "//", "Expand"}]}], "  ", "]"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.856319011812361*^9, 3.856319013269246*^9}, {
   3.8563190515594473`*^9, 3.8563191036184015`*^9}, {3.856319142256236*^9, 
   3.8563191426011143`*^9}, {3.8563191861373763`*^9, 3.856319268908747*^9}, {
   3.8563193127244315`*^9, 3.856319337821429*^9}, {3.8563193726810246`*^9, 
   3.8563195277926598`*^9}, {3.8563195650085607`*^9, 3.856319572003746*^9}, {
   3.856319622281913*^9, 3.8563197371130495`*^9}, {3.8563198052238626`*^9, 
   3.8563198247371483`*^9}, {3.8563199098798547`*^9, 
   3.8563199565834537`*^9}, {3.8563210490515823`*^9, 3.856321078911748*^9}, {
   3.8563243668629665`*^9, 3.8563243671795692`*^9}, {3.8563246687242346`*^9, 
   3.8563247067827826`*^9}, {3.8563310666462355`*^9, 3.856331071333603*^9}, {
   3.856334041885008*^9, 3.85633404632204*^9}, {3.856334181718083*^9, 
   3.856334226900877*^9}, {3.856339727130233*^9, 3.856339731142027*^9}, {
   3.8563854310407686`*^9, 3.856385606632943*^9}, 3.85638564459144*^9, {
   3.8563856749521847`*^9, 3.856385694893738*^9}, {3.8563857981690636`*^9, 
   3.856385916731038*^9}, {3.8563862095344076`*^9, 3.8563862790683236`*^9}, {
   3.856386331496614*^9, 3.856386370587726*^9}, 3.8563864044996567`*^9, {
   3.856386518603813*^9, 3.8563865768204656`*^9}, {3.8563866269731145`*^9, 
   3.856386636344077*^9}, {3.856386668472119*^9, 3.856386834704233*^9}, {
   3.8563870060613317`*^9, 3.856387034507909*^9}, 3.85638724951398*^9, 
   3.85638728805343*^9, {3.8584063755698805`*^9, 3.858406385681207*^9}, {
   3.8888865618564253`*^9, 3.888886651574911*^9}, {3.8888870080952396`*^9, 
   3.888887014806981*^9}, 3.8888870538172593`*^9, {3.888887526150543*^9, 
   3.8888875555638075`*^9}, {3.8888875947861032`*^9, 
   3.8888876052805243`*^9}, {3.888887737375901*^9, 3.88888777915664*^9}, 
   3.888887860178392*^9, {3.888887932789914*^9, 3.8888881545498714`*^9}, {
   3.888888186141914*^9, 3.8888882759818974`*^9}, {3.8888883542698116`*^9, 
   3.8888883568125443`*^9}, {3.8888931692474747`*^9, 
   3.8888931699525595`*^9}, {3.888893206047653*^9, 3.888893252630474*^9}, {
   3.8888933344452686`*^9, 3.8888936661188836`*^9}, {3.888894119047851*^9, 
   3.8888941615030766`*^9}, {3.8888942799272895`*^9, 3.88889430268536*^9}, {
   3.8888943363965235`*^9, 3.8888943381396074`*^9}, {3.888894656602433*^9, 
   3.88889465856365*^9}, {3.8889645431806736`*^9, 3.8889645449805164`*^9}, {
   3.888964619373687*^9, 3.8889646567001977`*^9}, {3.888964799498948*^9, 
   3.8889648469607553`*^9}, {3.888964884446682*^9, 3.888964895970233*^9}, {
   3.8889652457804146`*^9, 3.888965246964003*^9}, {3.8889659624212427`*^9, 
   3.8889660075576434`*^9}, {3.888966108992087*^9, 3.8889661174115653`*^9}, {
   3.8889661758105993`*^9, 3.888966224080777*^9}, {3.888966262171996*^9, 
   3.8889663371717606`*^9}, {3.8889664411036367`*^9, 3.888966464300754*^9}, {
   3.8889665269289474`*^9, 3.888966527379359*^9}, {3.888966560811026*^9, 
   3.888966616908533*^9}, {3.8889668108410587`*^9, 3.8889668197611527`*^9}, {
   3.8889674400022063`*^9, 3.8889674650313334`*^9}, 3.888980389861923*^9, 
   3.8889804369259253`*^9, 3.8890460989511185`*^9, {3.8890621889775505`*^9, 
   3.8890622587256474`*^9}, {3.8894991453297677`*^9, 3.889499206040495*^9}, {
   3.8902790881356525`*^9, 3.890279091820263*^9}},
 FontWeight->"Bold",ExpressionUUID->"f10e5cd3-d200-4701-995f-85b454b70b6b"],

Cell[BoxData[
 TemplateBox[{
  "ClearAll", "wrsym", 
   "\"Symbol \\!\\(\\*RowBox[{\\\"AASTriangle\\\"}]\\) is Protected.\"", 2, 
   415, 20, 24363389436478170073, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.856319278107519*^9, 3.856319340266647*^9, {3.856319391855753*^9, 
   3.8563194288930817`*^9}, 3.8563195305155587`*^9, 3.8563195855770016`*^9, 
   3.856319671524976*^9, 3.8563197395188065`*^9, 3.8563198276603584`*^9, 
   3.856321080026794*^9, 3.8563247085638995`*^9, 3.8563310727267*^9, 
   3.8563342298969173`*^9, 3.856339732644214*^9, 3.8563854406599407`*^9, 
   3.8563868507684636`*^9, {3.856387017305182*^9, 3.8563870383499546`*^9}, 
   3.85638725522587*^9, 3.8563872916492977`*^9, 3.888887968292079*^9, 
   3.8889641313907127`*^9, {3.8889665076018047`*^9, 3.888966531571677*^9}, 
   3.888966638150732*^9, 3.888966830261774*^9, 3.888967472243044*^9, 
   3.8889769481630907`*^9, 3.8889770746498814`*^9, 3.8889803914470654`*^9, 
   3.888980440516636*^9, 3.8890622620889063`*^9, {3.8894991826478405`*^9, 
   3.8894992098406916`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"91a893f3-c385-4f2b-\
b364-0b2ec846213e"],

Cell[BoxData[
 TemplateBox[{
  "ClearAll", "wrsym", 
   "\"Symbol \\!\\(\\*RowBox[{\\\"AbelianGroup\\\"}]\\) is Protected.\"", 2, 
   415, 21, 24363389436478170073, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.856319278107519*^9, 3.856319340266647*^9, {3.856319391855753*^9, 
   3.8563194288930817`*^9}, 3.8563195305155587`*^9, 3.8563195855770016`*^9, 
   3.856319671524976*^9, 3.8563197395188065`*^9, 3.8563198276603584`*^9, 
   3.856321080026794*^9, 3.8563247085638995`*^9, 3.8563310727267*^9, 
   3.8563342298969173`*^9, 3.856339732644214*^9, 3.8563854406599407`*^9, 
   3.8563868507684636`*^9, {3.856387017305182*^9, 3.8563870383499546`*^9}, 
   3.85638725522587*^9, 3.8563872916492977`*^9, 3.888887968292079*^9, 
   3.8889641313907127`*^9, {3.8889665076018047`*^9, 3.888966531571677*^9}, 
   3.888966638150732*^9, 3.888966830261774*^9, 3.888967472243044*^9, 
   3.8889769481630907`*^9, 3.8889770746498814`*^9, 3.8889803914470654`*^9, 
   3.888980440516636*^9, 3.8890622620889063`*^9, {3.8894991826478405`*^9, 
   3.889499209849699*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"3df39467-80ac-4808-\
92b3-11f1e319eb1b"],

Cell[BoxData[
 TemplateBox[{
  "ClearAll", "wrsym", 
   "\"Symbol \\!\\(\\*RowBox[{\\\"Abort\\\"}]\\) is Protected.\"", 2, 415, 22,
    24363389436478170073, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.856319278107519*^9, 3.856319340266647*^9, {3.856319391855753*^9, 
   3.8563194288930817`*^9}, 3.8563195305155587`*^9, 3.8563195855770016`*^9, 
   3.856319671524976*^9, 3.8563197395188065`*^9, 3.8563198276603584`*^9, 
   3.856321080026794*^9, 3.8563247085638995`*^9, 3.8563310727267*^9, 
   3.8563342298969173`*^9, 3.856339732644214*^9, 3.8563854406599407`*^9, 
   3.8563868507684636`*^9, {3.856387017305182*^9, 3.8563870383499546`*^9}, 
   3.85638725522587*^9, 3.8563872916492977`*^9, 3.888887968292079*^9, 
   3.8889641313907127`*^9, {3.8889665076018047`*^9, 3.888966531571677*^9}, 
   3.888966638150732*^9, 3.888966830261774*^9, 3.888967472243044*^9, 
   3.8889769481630907`*^9, 3.8889770746498814`*^9, 3.8889803914470654`*^9, 
   3.888980440516636*^9, 3.8890622620889063`*^9, {3.8894991826478405`*^9, 
   3.8894992098537064`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"b69f8ea8-67fa-43e5-\
9573-cfaaba5e162e"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ClearAll\\\", \
\\\"::\\\", \\\"wrsym\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"", 2, 415, 23, 24363389436478170073, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.856319278107519*^9, 3.856319340266647*^9, {3.856319391855753*^9, 
   3.8563194288930817`*^9}, 3.8563195305155587`*^9, 3.8563195855770016`*^9, 
   3.856319671524976*^9, 3.8563197395188065`*^9, 3.8563198276603584`*^9, 
   3.856321080026794*^9, 3.8563247085638995`*^9, 3.8563310727267*^9, 
   3.8563342298969173`*^9, 3.856339732644214*^9, 3.8563854406599407`*^9, 
   3.8563868507684636`*^9, {3.856387017305182*^9, 3.8563870383499546`*^9}, 
   3.85638725522587*^9, 3.8563872916492977`*^9, 3.888887968292079*^9, 
   3.8889641313907127`*^9, {3.8889665076018047`*^9, 3.888966531571677*^9}, 
   3.888966638150732*^9, 3.888966830261774*^9, 3.888967472243044*^9, 
   3.8889769481630907`*^9, 3.8889770746498814`*^9, 3.8889803914470654`*^9, 
   3.888980440516636*^9, 3.8890622620889063`*^9, {3.8894991826478405`*^9, 
   3.889499209857706*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"166eb740-8a2f-4612-\
b0e9-e3a3837d1dae"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Tau]2:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "A"}], " ", "c"}], "+", 
    FractionBox[
     SuperscriptBox["c", "2"], "2"], "-", 
    RowBox[{"e", " ", 
     OverscriptBox["A", "^"]}]}]}],
  SequenceForm[
  " \[Tau]2:  ", -$CellContext`A $CellContext`c + 
   Rational[1, 2] $CellContext`c^2 - $CellContext`e OverHat[$CellContext`A]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992098624096`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"15658cdb-2337-42aa-\
ae61-baccec6989dd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Tau]3:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"A", " ", 
       SuperscriptBox["c", "2"]}], "2"]}], "+", 
    FractionBox[
     SuperscriptBox["c", "3"], "6"], "-", 
    RowBox[{"e", " ", 
     OverscriptBox["A", "_"]}], "-", 
    RowBox[{"c", " ", 
     OverscriptBox["A", "^"]}]}]}],
  SequenceForm[
  " \[Tau]3:  ", Rational[-1, 2] $CellContext`A $CellContext`c^2 + 
   Rational[1, 6] $CellContext`c^3 - $CellContext`e 
   OverBar[$CellContext`A] - $CellContext`c OverHat[$CellContext`A]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992098644094`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"da3e65d5-a0f9-49d1-\
bb5f-8075a47784bf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Tau]4:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"A", " ", 
       SuperscriptBox["c", "3"]}], "6"]}], "+", 
    FractionBox[
     SuperscriptBox["c", "4"], "24"], "-", 
    RowBox[{"c", " ", 
     OverscriptBox["A", "_"]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["c", "2"], " ", 
      OverscriptBox["A", "^"]}], "2"]}]}],
  SequenceForm[
  " \[Tau]4:  ", Rational[-1, 6] $CellContext`A $CellContext`c^3 + 
   Rational[1, 24] $CellContext`c^4 - $CellContext`c OverBar[$CellContext`A] + 
   Rational[-1, 2] $CellContext`c^2 OverHat[$CellContext`A]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992098684096`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"ab734b65-3d97-4526-\
b662-91772437d403"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Tau]5:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"A", " ", 
       SuperscriptBox["c", "4"]}], "24"]}], "+", 
    FractionBox[
     SuperscriptBox["c", "5"], "120"], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["c", "2"], " ", 
      OverscriptBox["A", "_"]}], "2"], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["c", "3"], " ", 
      OverscriptBox["A", "^"]}], "6"]}]}],
  SequenceForm[
  " \[Tau]5:  ", Rational[-1, 24] $CellContext`A $CellContext`c^4 + 
   Rational[1, 120] $CellContext`c^5 + 
   Rational[-1, 2] $CellContext`c^2 OverBar[$CellContext`A] + 
   Rational[-1, 6] $CellContext`c^3 OverHat[$CellContext`A]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992098694096`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"2f001867-c56e-4899-\
b56f-e2f1b4929b16"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Tau]6:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"A", " ", 
       SuperscriptBox["c", "5"]}], "120"]}], "+", 
    FractionBox[
     SuperscriptBox["c", "6"], "720"], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["c", "3"], " ", 
      OverscriptBox["A", "_"]}], "6"], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["c", "4"], " ", 
      OverscriptBox["A", "^"]}], "24"]}]}],
  SequenceForm[
  " \[Tau]6:  ", Rational[-1, 120] $CellContext`A $CellContext`c^5 + 
   Rational[1, 720] $CellContext`c^6 + 
   Rational[-1, 6] $CellContext`c^3 OverBar[$CellContext`A] + 
   Rational[-1, 24] $CellContext`c^4 OverHat[$CellContext`A]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992098705378`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"7ee09644-106b-40d1-\
a00f-7acd657dd192"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Tau]7:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"A", " ", 
       SuperscriptBox["c", "6"]}], "720"]}], "+", 
    FractionBox[
     SuperscriptBox["c", "7"], "5040"], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["c", "4"], " ", 
      OverscriptBox["A", "_"]}], "24"], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["c", "5"], " ", 
      OverscriptBox["A", "^"]}], "120"]}]}],
  SequenceForm[
  " \[Tau]7:  ", Rational[-1, 720] $CellContext`A $CellContext`c^6 + 
   Rational[1, 5040] $CellContext`c^7 + 
   Rational[-1, 24] $CellContext`c^4 OverBar[$CellContext`A] + 
   Rational[-1, 120] $CellContext`c^5 OverHat[$CellContext`A]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992098705378`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"967f5f42-3987-4c49-\
a663-c3fa335593fe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \\!\\(\\*SuperscriptBox[\\(order1_\[Tau]\\), \\(n + 1\\)]\\): \
 \"\>", "\[InvisibleSpace]", 
   RowBox[{"1", "-", 
    RowBox[{"e", " ", "v"}], "-", 
    RowBox[{"e", " ", "w"}], "+", "\[Theta]"}]}],
  SequenceForm[
  " \!\(\*SuperscriptBox[\(order1_\[Tau]\), \(n + 1\)]\):  ", 
   1 - $CellContext`e $CellContext`v - $CellContext`e $CellContext`w + \
$CellContext`\[Theta]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992098705378`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"3dfcc9ac-b720-4689-\
9eb5-052365f51d86"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \\!\\(\\*SuperscriptBox[\\(order2_\[Tau]\\), \\(n + 1\\)]\\): \
 \"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], "-", 
    RowBox[{"c", " ", "v"}], "-", 
    RowBox[{"ce", " ", "w"}], "-", 
    FractionBox["\[Theta]", "2"], "-", 
    RowBox[{"e", " ", 
     OverscriptBox["v", "^"]}], "-", 
    RowBox[{"e", " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " \!\(\*SuperscriptBox[\(order2_\[Tau]\), \(n + 1\)]\):  ", 
   Rational[1, 
     2] - $CellContext`c $CellContext`v - $CellContext`ce $CellContext`w + 
   Rational[-1, 2] $CellContext`\[Theta] - $CellContext`e 
   OverHat[$CellContext`v] - $CellContext`e OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992098705378`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"db2991d1-026a-4976-\
bbbc-fcf14a7c2645"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" order2_cond:  \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[" order2_cond:  ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992098807697`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"81eaddb1-2e3e-4799-\
a409-0aae640f686a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \\!\\(\\*SuperscriptBox[\\(order3_\[Tau]\\), \\(n + 1\\)]\\): \
 \"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "3"], "-", 
    RowBox[{
     SuperscriptBox["c", "2"], " ", "v"}], "-", 
    RowBox[{
     SuperscriptBox["ce", "2"], " ", "w"}], "+", 
    FractionBox["\[Theta]", "3"], "-", 
    RowBox[{"2", " ", "e", " ", 
     OverscriptBox["v", "_"]}], "-", 
    RowBox[{"2", " ", "e", " ", 
     OverscriptBox["w", "_"]}], "-", 
    RowBox[{"2", " ", "c", " ", 
     OverscriptBox["v", "^"]}], "-", 
    RowBox[{"2", " ", "ce", " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " \!\(\*SuperscriptBox[\(order3_\[Tau]\), \(n + 1\)]\):  ", 
   Rational[1, 
     3] - $CellContext`c^2 $CellContext`v - $CellContext`ce^2 $CellContext`w + 
   Rational[1, 3] $CellContext`\[Theta] - 2 $CellContext`e 
   OverBar[$CellContext`v] - 2 $CellContext`e OverBar[$CellContext`w] - 
   2 $CellContext`c OverHat[$CellContext`v] - 2 $CellContext`ce 
   OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209881482*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"e04e2e5f-fe4e-43f7-\
8970-33c7057481c6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" order3_cond:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"v", " ", "\[Tau]2"}], "+", 
    RowBox[{"w", " ", "\[Tau]f2"}]}]}],
  SequenceForm[
  " order3_cond:  ", $CellContext`v $CellContext`\[Tau]2 + $CellContext`w \
$CellContext`\[Tau]f2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209881482*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"ade007d1-f309-4ed9-\
8a12-f896b8825d74"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" order3_cond:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"v", " ", "\[Tau]2"}], "+", 
    RowBox[{"w", " ", "\[Tau]2"}]}]}],
  SequenceForm[
  " order3_cond:  ", $CellContext`v $CellContext`\[Tau]2 + $CellContext`w \
$CellContext`\[Tau]2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209881482*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"619d2099-6038-4cf1-\
b326-f20566e9539c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \\!\\(\\*SuperscriptBox[\\(order4_\[Tau]\\), \\(n + 1\\)]\\): \
 \"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "4"], "-", 
    RowBox[{
     SuperscriptBox["c", "3"], " ", "v"}], "-", 
    RowBox[{
     SuperscriptBox["ce", "3"], " ", "w"}], "-", 
    FractionBox["\[Theta]", "4"], "-", 
    RowBox[{"6", " ", "c", " ", 
     OverscriptBox["v", "_"]}], "-", 
    RowBox[{"6", " ", "ce", " ", 
     OverscriptBox["w", "_"]}], "-", 
    RowBox[{"3", " ", 
     SuperscriptBox["c", "2"], " ", 
     OverscriptBox["v", "^"]}], "-", 
    RowBox[{"3", " ", 
     SuperscriptBox["ce", "2"], " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " \!\(\*SuperscriptBox[\(order4_\[Tau]\), \(n + 1\)]\):  ", 
   Rational[1, 
     4] - $CellContext`c^3 $CellContext`v - $CellContext`ce^3 $CellContext`w + 
   Rational[-1, 4] $CellContext`\[Theta] - 6 $CellContext`c 
   OverBar[$CellContext`v] - 6 $CellContext`ce OverBar[$CellContext`w] - 
   3 $CellContext`c^2 OverHat[$CellContext`v] - 3 $CellContext`ce^2 
   OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209881482*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"85e0a52a-8fe6-40af-\
ae26-4eefe766ade5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" order4_cond:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"A", " ", "v", " ", "\[Tau]2"}], "+", 
    RowBox[{"C", " ", "v", " ", "\[Tau]2"}], "+", 
    RowBox[{"v", " ", "\[Tau]3"}], "+", 
    RowBox[{"A", " ", "w", " ", "\[Tau]f2"}], "+", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]f2"}], "+", 
    RowBox[{"w", " ", "\[Tau]f3"}], "+", 
    RowBox[{"\[Tau]2", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"\[Tau]f2", " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " order4_cond:  ", $CellContext`A $CellContext`v $CellContext`\[Tau]2 + 
   C $CellContext`v $CellContext`\[Tau]2 + $CellContext`v \
$CellContext`\[Tau]3 + $CellContext`A $CellContext`w $CellContext`\[Tau]f2 + \
$CellContext`Ce $CellContext`w $CellContext`\[Tau]f2 + $CellContext`w \
$CellContext`\[Tau]f3 + $CellContext`\[Tau]2 
    OverHat[$CellContext`v] + $CellContext`\[Tau]f2 OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209890587*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"d65685ca-ff4c-426c-\
82c4-7a8cafe2d47a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" order4_cond:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"A", " ", "v", " ", "\[Tau]2"}], "+", 
    RowBox[{"C", " ", "v", " ", "\[Tau]2"}], "-", 
    RowBox[{"w", " ", "\[Tau]2"}], "+", 
    RowBox[{"A", " ", "w", " ", "\[Tau]2"}], "+", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]2"}], "+", 
    RowBox[{"v", " ", "\[Tau]3"}], "+", 
    RowBox[{"w", " ", "\[Tau]3"}], "+", 
    RowBox[{"\[Tau]2", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"\[Tau]2", " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " order4_cond:  ", $CellContext`A $CellContext`v $CellContext`\[Tau]2 + 
   C $CellContext`v $CellContext`\[Tau]2 - $CellContext`w \
$CellContext`\[Tau]2 + $CellContext`A $CellContext`w $CellContext`\[Tau]2 + \
$CellContext`Ce $CellContext`w $CellContext`\[Tau]2 + $CellContext`v \
$CellContext`\[Tau]3 + $CellContext`w $CellContext`\[Tau]3 + $CellContext`\
\[Tau]2 OverHat[$CellContext`v] + $CellContext`\[Tau]2 
    OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209890587*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"df0fd341-2ae7-4de6-\
9a70-c47cede63165"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \\!\\(\\*SuperscriptBox[\\(order5_\[Tau]\\), \\(n + 1\\)]\\): \
 \"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "5"], "-", 
    RowBox[{
     SuperscriptBox["c", "4"], " ", "v"}], "-", 
    RowBox[{
     SuperscriptBox["ce", "4"], " ", "w"}], "+", 
    FractionBox["\[Theta]", "5"], "-", 
    RowBox[{"12", " ", 
     SuperscriptBox["c", "2"], " ", 
     OverscriptBox["v", "_"]}], "-", 
    RowBox[{"12", " ", 
     SuperscriptBox["ce", "2"], " ", 
     OverscriptBox["w", "_"]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["c", "3"], " ", 
     OverscriptBox["v", "^"]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["ce", "3"], " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " \!\(\*SuperscriptBox[\(order5_\[Tau]\), \(n + 1\)]\):  ", 
   Rational[1, 
     5] - $CellContext`c^4 $CellContext`v - $CellContext`ce^4 $CellContext`w + 
   Rational[1, 5] $CellContext`\[Theta] - 12 $CellContext`c^2 
   OverBar[$CellContext`v] - 12 $CellContext`ce^2 OverBar[$CellContext`w] - 
   4 $CellContext`c^3 OverHat[$CellContext`v] - 4 $CellContext`ce^3 
   OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209890587*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"3c266f9b-114a-478d-\
b4dc-1cb564f62d0f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" order5_cond:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"A", " ", "v", " ", "\[Tau]3"}], "+", 
    RowBox[{"C", " ", "v", " ", "\[Tau]3"}], "+", 
    RowBox[{"v", " ", "\[Tau]4"}], "+", 
    RowBox[{"A", " ", "w", " ", "\[Tau]f3"}], "+", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]f3"}], "+", 
    RowBox[{"w", " ", "\[Tau]f4"}], "+", 
    RowBox[{"\[Tau]3", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"\[Tau]f3", " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " order5_cond:  ", $CellContext`A $CellContext`v $CellContext`\[Tau]3 + 
   C $CellContext`v $CellContext`\[Tau]3 + $CellContext`v \
$CellContext`\[Tau]4 + $CellContext`A $CellContext`w $CellContext`\[Tau]f3 + \
$CellContext`Ce $CellContext`w $CellContext`\[Tau]f3 + $CellContext`w \
$CellContext`\[Tau]f4 + $CellContext`\[Tau]3 
    OverHat[$CellContext`v] + $CellContext`\[Tau]f3 OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209890587*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"727efc52-4812-4362-\
b6d3-743898525346"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" order5_cond:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox[
     RowBox[{"w", " ", "\[Tau]2"}], "2"], "-", 
    RowBox[{"A", " ", "w", " ", "\[Tau]2"}], "-", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]2"}], "+", 
    RowBox[{"A", " ", "v", " ", "\[Tau]3"}], "+", 
    RowBox[{"C", " ", "v", " ", "\[Tau]3"}], "-", 
    RowBox[{"w", " ", "\[Tau]3"}], "+", 
    RowBox[{"A", " ", "w", " ", "\[Tau]3"}], "+", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]3"}], "+", 
    RowBox[{"v", " ", "\[Tau]4"}], "+", 
    RowBox[{"w", " ", "\[Tau]4"}], "+", 
    RowBox[{"\[Tau]3", " ", 
     OverscriptBox["v", "^"]}], "-", 
    RowBox[{"\[Tau]2", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"\[Tau]3", " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " order5_cond:  ", 
   Rational[1, 
      2] $CellContext`w $CellContext`\[Tau]2 - $CellContext`A $CellContext`w \
$CellContext`\[Tau]2 - $CellContext`Ce $CellContext`w $CellContext`\[Tau]2 + \
$CellContext`A $CellContext`v $CellContext`\[Tau]3 + 
   C $CellContext`v $CellContext`\[Tau]3 - $CellContext`w \
$CellContext`\[Tau]3 + $CellContext`A $CellContext`w $CellContext`\[Tau]3 + \
$CellContext`Ce $CellContext`w $CellContext`\[Tau]3 + $CellContext`v \
$CellContext`\[Tau]4 + $CellContext`w $CellContext`\[Tau]4 + $CellContext`\
\[Tau]3 OverHat[$CellContext`v] - $CellContext`\[Tau]2 
   OverHat[$CellContext`w] + $CellContext`\[Tau]3 OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209890587*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"ae140a53-1b4b-46ca-\
870f-5ab16a0315c5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \\!\\(\\*SuperscriptBox[\\(order6_\[Tau]\\), \\(n + 1\\)]\\): \
 \"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "6"], "-", 
    RowBox[{
     SuperscriptBox["c", "5"], " ", "v"}], "-", 
    RowBox[{
     SuperscriptBox["ce", "5"], " ", "w"}], "-", 
    FractionBox["\[Theta]", "6"], "-", 
    RowBox[{"20", " ", 
     SuperscriptBox["c", "3"], " ", 
     OverscriptBox["v", "_"]}], "-", 
    RowBox[{"20", " ", 
     SuperscriptBox["ce", "3"], " ", 
     OverscriptBox["w", "_"]}], "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["c", "4"], " ", 
     OverscriptBox["v", "^"]}], "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["ce", "4"], " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " \!\(\*SuperscriptBox[\(order6_\[Tau]\), \(n + 1\)]\):  ", 
   Rational[1, 
     6] - $CellContext`c^5 $CellContext`v - $CellContext`ce^5 $CellContext`w + 
   Rational[-1, 6] $CellContext`\[Theta] - 20 $CellContext`c^3 
   OverBar[$CellContext`v] - 20 $CellContext`ce^3 OverBar[$CellContext`w] - 
   5 $CellContext`c^4 OverHat[$CellContext`v] - 5 $CellContext`ce^4 
   OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992099012976`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"d54de3d4-0614-4d11-\
9663-7c67ccd9cfae"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" order6_cond:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["A", "2"], " ", "v", " ", "\[Tau]3"}], "+", 
    RowBox[{"2", " ", "A", " ", "C", " ", "v", " ", "\[Tau]3"}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", "v", " ", "\[Tau]3"}], "+", 
    RowBox[{"A", " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{"C", " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{"v", " ", "\[Tau]5"}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "w", " ", "\[Tau]f3"}], "+", 
    RowBox[{"2", " ", "A", " ", "Ce", " ", "w", " ", "\[Tau]f3"}], "+", 
    RowBox[{
     SuperscriptBox["Ce", "2"], " ", "w", " ", "\[Tau]f3"}], "+", 
    RowBox[{"A", " ", "w", " ", "\[Tau]f4"}], "+", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]f4"}], "+", 
    RowBox[{"w", " ", "\[Tau]f5"}], "+", 
    RowBox[{"\[Tau]3", " ", 
     OverscriptBox["v", "_"]}], "+", 
    RowBox[{"\[Tau]f3", " ", 
     OverscriptBox["w", "_"]}], "+", 
    RowBox[{"v", " ", "\[Tau]3", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"w", " ", "\[Tau]f3", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]3", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"C", " ", "\[Tau]3", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]f3", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"Ce", " ", "\[Tau]f3", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"\[Tau]f4", " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " order6_cond:  ", $CellContext`A^2 $CellContext`v $CellContext`\[Tau]3 + 
   2 $CellContext`A C $CellContext`v $CellContext`\[Tau]3 + 
   C^2 $CellContext`v $CellContext`\[Tau]3 + $CellContext`A $CellContext`v \
$CellContext`\[Tau]4 + 
   C $CellContext`v $CellContext`\[Tau]4 + $CellContext`v \
$CellContext`\[Tau]5 + $CellContext`A^2 $CellContext`w $CellContext`\[Tau]f3 + 
   2 $CellContext`A $CellContext`Ce $CellContext`w $CellContext`\[Tau]f3 + \
$CellContext`Ce^2 $CellContext`w $CellContext`\[Tau]f3 + $CellContext`A \
$CellContext`w $CellContext`\[Tau]f4 + $CellContext`Ce $CellContext`w \
$CellContext`\[Tau]f4 + $CellContext`w $CellContext`\[Tau]f5 + $CellContext`\
\[Tau]3 OverBar[$CellContext`v] + $CellContext`\[Tau]f3 
    OverBar[$CellContext`w] + $CellContext`v $CellContext`\[Tau]3 
    OverHat[$CellContext`A] + $CellContext`w $CellContext`\[Tau]f3 
    OverHat[$CellContext`A] + $CellContext`A $CellContext`\[Tau]3 
    OverHat[$CellContext`v] + 
   C $CellContext`\[Tau]3 OverHat[$CellContext`v] + $CellContext`\[Tau]4 
    OverHat[$CellContext`v] + $CellContext`A $CellContext`\[Tau]f3 
    OverHat[$CellContext`w] + $CellContext`Ce $CellContext`\[Tau]f3 
    OverHat[$CellContext`w] + $CellContext`\[Tau]f4 OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992099012976`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"0643b4ec-80ac-4709-\
bf8e-1b4375a7b689"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" order6_cond:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"w", " ", "\[Tau]2"}], "6"]}], "+", 
    FractionBox[
     RowBox[{"A", " ", "w", " ", "\[Tau]2"}], "2"], "-", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "w", " ", "\[Tau]2"}], "+", 
    FractionBox[
     RowBox[{"Ce", " ", "w", " ", "\[Tau]2"}], "2"], "-", 
    RowBox[{"2", " ", "A", " ", "Ce", " ", "w", " ", "\[Tau]2"}], "-", 
    RowBox[{
     SuperscriptBox["Ce", "2"], " ", "w", " ", "\[Tau]2"}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "v", " ", "\[Tau]3"}], "+", 
    RowBox[{"2", " ", "A", " ", "C", " ", "v", " ", "\[Tau]3"}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", "v", " ", "\[Tau]3"}], "+", 
    FractionBox[
     RowBox[{"w", " ", "\[Tau]3"}], "2"], "-", 
    RowBox[{"A", " ", "w", " ", "\[Tau]3"}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "w", " ", "\[Tau]3"}], "-", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]3"}], "+", 
    RowBox[{"2", " ", "A", " ", "Ce", " ", "w", " ", "\[Tau]3"}], "+", 
    RowBox[{
     SuperscriptBox["Ce", "2"], " ", "w", " ", "\[Tau]3"}], "+", 
    RowBox[{"A", " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{"C", " ", "v", " ", "\[Tau]4"}], "-", 
    RowBox[{"w", " ", "\[Tau]4"}], "+", 
    RowBox[{"A", " ", "w", " ", "\[Tau]4"}], "+", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]4"}], "+", 
    RowBox[{"v", " ", "\[Tau]5"}], "+", 
    RowBox[{"w", " ", "\[Tau]5"}], "+", 
    RowBox[{"\[Tau]3", " ", 
     OverscriptBox["v", "_"]}], "-", 
    RowBox[{"\[Tau]2", " ", 
     OverscriptBox["w", "_"]}], "+", 
    RowBox[{"\[Tau]3", " ", 
     OverscriptBox["w", "_"]}], "-", 
    RowBox[{"w", " ", "\[Tau]2", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"v", " ", "\[Tau]3", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"w", " ", "\[Tau]3", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]3", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"C", " ", "\[Tau]3", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["v", "^"]}], "+", 
    FractionBox[
     RowBox[{"\[Tau]2", " ", 
      OverscriptBox["w", "^"]}], "2"], "-", 
    RowBox[{"A", " ", "\[Tau]2", " ", 
     OverscriptBox["w", "^"]}], "-", 
    RowBox[{"Ce", " ", "\[Tau]2", " ", 
     OverscriptBox["w", "^"]}], "-", 
    RowBox[{"\[Tau]3", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]3", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"Ce", " ", "\[Tau]3", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " order6_cond:  ", Rational[-1, 6] $CellContext`w $CellContext`\[Tau]2 + 
   Rational[1, 
      2] $CellContext`A $CellContext`w $CellContext`\[Tau]2 - \
$CellContext`A^2 $CellContext`w $CellContext`\[Tau]2 + 
   Rational[1, 2] $CellContext`Ce $CellContext`w $CellContext`\[Tau]2 - 
   2 $CellContext`A $CellContext`Ce $CellContext`w $CellContext`\[Tau]2 - \
$CellContext`Ce^2 $CellContext`w $CellContext`\[Tau]2 + $CellContext`A^2 \
$CellContext`v $CellContext`\[Tau]3 + 
   2 $CellContext`A C $CellContext`v $CellContext`\[Tau]3 + 
   C^2 $CellContext`v $CellContext`\[Tau]3 + 
   Rational[1, 
      2] $CellContext`w $CellContext`\[Tau]3 - $CellContext`A $CellContext`w \
$CellContext`\[Tau]3 + $CellContext`A^2 $CellContext`w $CellContext`\[Tau]3 - \
$CellContext`Ce $CellContext`w $CellContext`\[Tau]3 + 
   2 $CellContext`A $CellContext`Ce $CellContext`w $CellContext`\[Tau]3 + \
$CellContext`Ce^2 $CellContext`w $CellContext`\[Tau]3 + $CellContext`A \
$CellContext`v $CellContext`\[Tau]4 + 
   C $CellContext`v $CellContext`\[Tau]4 - $CellContext`w \
$CellContext`\[Tau]4 + $CellContext`A $CellContext`w $CellContext`\[Tau]4 + \
$CellContext`Ce $CellContext`w $CellContext`\[Tau]4 + $CellContext`v \
$CellContext`\[Tau]5 + $CellContext`w $CellContext`\[Tau]5 + $CellContext`\
\[Tau]3 OverBar[$CellContext`v] - $CellContext`\[Tau]2 
   OverBar[$CellContext`w] + $CellContext`\[Tau]3 
    OverBar[$CellContext`w] - $CellContext`w $CellContext`\[Tau]2 
   OverHat[$CellContext`A] + $CellContext`v $CellContext`\[Tau]3 
    OverHat[$CellContext`A] + $CellContext`w $CellContext`\[Tau]3 
    OverHat[$CellContext`A] + $CellContext`A $CellContext`\[Tau]3 
    OverHat[$CellContext`v] + 
   C $CellContext`\[Tau]3 OverHat[$CellContext`v] + $CellContext`\[Tau]4 
    OverHat[$CellContext`v] + 
   Rational[1, 2] $CellContext`\[Tau]2 
    OverHat[$CellContext`w] - $CellContext`A $CellContext`\[Tau]2 
   OverHat[$CellContext`w] - $CellContext`Ce $CellContext`\[Tau]2 
   OverHat[$CellContext`w] - $CellContext`\[Tau]3 
   OverHat[$CellContext`w] + $CellContext`A $CellContext`\[Tau]3 
    OverHat[$CellContext`w] + $CellContext`Ce $CellContext`\[Tau]3 
    OverHat[$CellContext`w] + $CellContext`\[Tau]4 OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992099012976`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"a859f5f2-a274-4ed3-\
9cc1-e62b599bda15"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \\!\\(\\*SuperscriptBox[\\(order7_\[Tau]\\), \\(n + 1\\)]\\): \
 \"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "7"], "-", 
    RowBox[{
     SuperscriptBox["c", "6"], " ", "v"}], "-", 
    RowBox[{
     SuperscriptBox["ce", "6"], " ", "w"}], "+", 
    FractionBox["\[Theta]", "7"], "-", 
    RowBox[{"30", " ", 
     SuperscriptBox["c", "4"], " ", 
     OverscriptBox["v", "_"]}], "-", 
    RowBox[{"30", " ", 
     SuperscriptBox["ce", "4"], " ", 
     OverscriptBox["w", "_"]}], "-", 
    RowBox[{"6", " ", 
     SuperscriptBox["c", "5"], " ", 
     OverscriptBox["v", "^"]}], "-", 
    RowBox[{"6", " ", 
     SuperscriptBox["ce", "5"], " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " \!\(\*SuperscriptBox[\(order7_\[Tau]\), \(n + 1\)]\):  ", 
   Rational[1, 
     7] - $CellContext`c^6 $CellContext`v - $CellContext`ce^6 $CellContext`w + 
   Rational[1, 7] $CellContext`\[Theta] - 30 $CellContext`c^4 
   OverBar[$CellContext`v] - 30 $CellContext`ce^4 OverBar[$CellContext`w] - 
   6 $CellContext`c^5 OverHat[$CellContext`v] - 6 $CellContext`ce^5 
   OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209910386*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"c76dee36-e9c2-4cfb-\
ab22-49b65e9b0998"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" order7_cond:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["A", "2"], " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{"2", " ", "A", " ", "C", " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{"A", " ", "v", " ", "\[Tau]5"}], "+", 
    RowBox[{"C", " ", "v", " ", "\[Tau]5"}], "+", 
    RowBox[{"v", " ", "\[Tau]6"}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "w", " ", "\[Tau]f4"}], "+", 
    RowBox[{"2", " ", "A", " ", "Ce", " ", "w", " ", "\[Tau]f4"}], "+", 
    RowBox[{
     SuperscriptBox["Ce", "2"], " ", "w", " ", "\[Tau]f4"}], "+", 
    RowBox[{"A", " ", "w", " ", "\[Tau]f5"}], "+", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]f5"}], "+", 
    RowBox[{"w", " ", "\[Tau]f6"}], "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["v", "_"]}], "+", 
    RowBox[{"\[Tau]f4", " ", 
     OverscriptBox["w", "_"]}], "+", 
    RowBox[{"v", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"w", " ", "\[Tau]f4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]4", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"C", " ", "\[Tau]4", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"\[Tau]5", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]f4", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"Ce", " ", "\[Tau]f4", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"\[Tau]f5", " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " order7_cond:  ", $CellContext`A^2 $CellContext`v $CellContext`\[Tau]4 + 
   2 $CellContext`A C $CellContext`v $CellContext`\[Tau]4 + 
   C^2 $CellContext`v $CellContext`\[Tau]4 + $CellContext`A $CellContext`v \
$CellContext`\[Tau]5 + 
   C $CellContext`v $CellContext`\[Tau]5 + $CellContext`v \
$CellContext`\[Tau]6 + $CellContext`A^2 $CellContext`w $CellContext`\[Tau]f4 + 
   2 $CellContext`A $CellContext`Ce $CellContext`w $CellContext`\[Tau]f4 + \
$CellContext`Ce^2 $CellContext`w $CellContext`\[Tau]f4 + $CellContext`A \
$CellContext`w $CellContext`\[Tau]f5 + $CellContext`Ce $CellContext`w \
$CellContext`\[Tau]f5 + $CellContext`w $CellContext`\[Tau]f6 + $CellContext`\
\[Tau]4 OverBar[$CellContext`v] + $CellContext`\[Tau]f4 
    OverBar[$CellContext`w] + $CellContext`v $CellContext`\[Tau]4 
    OverHat[$CellContext`A] + $CellContext`w $CellContext`\[Tau]f4 
    OverHat[$CellContext`A] + $CellContext`A $CellContext`\[Tau]4 
    OverHat[$CellContext`v] + 
   C $CellContext`\[Tau]4 OverHat[$CellContext`v] + $CellContext`\[Tau]5 
    OverHat[$CellContext`v] + $CellContext`A $CellContext`\[Tau]f4 
    OverHat[$CellContext`w] + $CellContext`Ce $CellContext`\[Tau]f4 
    OverHat[$CellContext`w] + $CellContext`\[Tau]f5 OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209910386*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"7fb0b901-5fbb-4c0d-\
9bf9-16069b027411"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" order7_cond:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["A", "2"], " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{"2", " ", "A", " ", "C", " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", "v", " ", "\[Tau]4"}], "+", 
    FractionBox[
     RowBox[{"w", " ", "\[Tau]4"}], "2"], "-", 
    RowBox[{"A", " ", "w", " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "w", " ", "\[Tau]4"}], "-", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]4"}], "+", 
    RowBox[{"2", " ", "A", " ", "Ce", " ", "w", " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["Ce", "2"], " ", "w", " ", "\[Tau]4"}], "+", 
    RowBox[{"A", " ", "v", " ", "\[Tau]5"}], "+", 
    RowBox[{"C", " ", "v", " ", "\[Tau]5"}], "-", 
    RowBox[{"w", " ", "\[Tau]5"}], "+", 
    RowBox[{"A", " ", "w", " ", "\[Tau]5"}], "+", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]5"}], "+", 
    RowBox[{"v", " ", "\[Tau]6"}], "+", 
    RowBox[{"w", " ", "\[Tau]6"}], "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["v", "_"]}], "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["w", "_"]}], "+", 
    RowBox[{"v", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"w", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]4", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"C", " ", "\[Tau]4", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"\[Tau]5", " ", 
     OverscriptBox["v", "^"]}], "-", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]4", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"Ce", " ", "\[Tau]4", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"\[Tau]5", " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " order7_cond:  ", $CellContext`A^2 $CellContext`v $CellContext`\[Tau]4 + 
   2 $CellContext`A C $CellContext`v $CellContext`\[Tau]4 + 
   C^2 $CellContext`v $CellContext`\[Tau]4 + 
   Rational[1, 
      2] $CellContext`w $CellContext`\[Tau]4 - $CellContext`A $CellContext`w \
$CellContext`\[Tau]4 + $CellContext`A^2 $CellContext`w $CellContext`\[Tau]4 - \
$CellContext`Ce $CellContext`w $CellContext`\[Tau]4 + 
   2 $CellContext`A $CellContext`Ce $CellContext`w $CellContext`\[Tau]4 + \
$CellContext`Ce^2 $CellContext`w $CellContext`\[Tau]4 + $CellContext`A \
$CellContext`v $CellContext`\[Tau]5 + 
   C $CellContext`v $CellContext`\[Tau]5 - $CellContext`w \
$CellContext`\[Tau]5 + $CellContext`A $CellContext`w $CellContext`\[Tau]5 + \
$CellContext`Ce $CellContext`w $CellContext`\[Tau]5 + $CellContext`v \
$CellContext`\[Tau]6 + $CellContext`w $CellContext`\[Tau]6 + $CellContext`\
\[Tau]4 OverBar[$CellContext`v] + $CellContext`\[Tau]4 
    OverBar[$CellContext`w] + $CellContext`v $CellContext`\[Tau]4 
    OverHat[$CellContext`A] + $CellContext`w $CellContext`\[Tau]4 
    OverHat[$CellContext`A] + $CellContext`A $CellContext`\[Tau]4 
    OverHat[$CellContext`v] + 
   C $CellContext`\[Tau]4 OverHat[$CellContext`v] + $CellContext`\[Tau]5 
    OverHat[$CellContext`v] - $CellContext`\[Tau]4 
   OverHat[$CellContext`w] + $CellContext`A $CellContext`\[Tau]4 
    OverHat[$CellContext`w] + $CellContext`Ce $CellContext`\[Tau]4 
    OverHat[$CellContext`w] + $CellContext`\[Tau]5 OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992099149113`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"8f733a6d-d029-41e4-\
8aac-7f441b310475"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \\!\\(\\*SuperscriptBox[\\(order8_\[Tau]\\), \\(n + 1\\)]\\): \
 \"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], "-", 
    RowBox[{
     SuperscriptBox["c", "7"], " ", "v"}], "-", 
    RowBox[{
     SuperscriptBox["ce", "7"], " ", "w"}], "-", 
    FractionBox["\[Theta]", "8"], "-", 
    RowBox[{"42", " ", 
     SuperscriptBox["c", "5"], " ", 
     OverscriptBox["v", "_"]}], "-", 
    RowBox[{"42", " ", 
     SuperscriptBox["ce", "5"], " ", 
     OverscriptBox["w", "_"]}], "-", 
    RowBox[{"7", " ", 
     SuperscriptBox["c", "6"], " ", 
     OverscriptBox["v", "^"]}], "-", 
    RowBox[{"7", " ", 
     SuperscriptBox["ce", "6"], " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " \!\(\*SuperscriptBox[\(order8_\[Tau]\), \(n + 1\)]\):  ", 
   Rational[1, 
     8] - $CellContext`c^7 $CellContext`v - $CellContext`ce^7 $CellContext`w + 
   Rational[-1, 8] $CellContext`\[Theta] - 42 $CellContext`c^5 
   OverBar[$CellContext`v] - 42 $CellContext`ce^5 OverBar[$CellContext`w] - 
   7 $CellContext`c^6 OverHat[$CellContext`v] - 7 $CellContext`ce^6 
   OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992099149113`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"12e073cf-0390-43b0-\
bebb-d087d237a434"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" order8_cond:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["A", "3"], " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["A", "2"], " ", "C", " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{"3", " ", "A", " ", 
     SuperscriptBox["C", "2"], " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["C", "3"], " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "v", " ", "\[Tau]5"}], "+", 
    RowBox[{"2", " ", "A", " ", "C", " ", "v", " ", "\[Tau]5"}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", "v", " ", "\[Tau]5"}], "+", 
    RowBox[{"A", " ", "v", " ", "\[Tau]6"}], "+", 
    RowBox[{"C", " ", "v", " ", "\[Tau]6"}], "+", 
    RowBox[{"v", " ", "\[Tau]7"}], "+", 
    RowBox[{
     SuperscriptBox["A", "3"], " ", "w", " ", "\[Tau]f4"}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["A", "2"], " ", "Ce", " ", "w", " ", "\[Tau]f4"}], "+", 
    RowBox[{"3", " ", "A", " ", 
     SuperscriptBox["Ce", "2"], " ", "w", " ", "\[Tau]f4"}], "+", 
    RowBox[{
     SuperscriptBox["Ce", "3"], " ", "w", " ", "\[Tau]f4"}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "w", " ", "\[Tau]f5"}], "+", 
    RowBox[{"2", " ", "A", " ", "Ce", " ", "w", " ", "\[Tau]f5"}], "+", 
    RowBox[{
     SuperscriptBox["Ce", "2"], " ", "w", " ", "\[Tau]f5"}], "+", 
    RowBox[{"A", " ", "w", " ", "\[Tau]f6"}], "+", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]f6"}], "+", 
    RowBox[{"w", " ", "\[Tau]f7"}], "+", 
    RowBox[{"v", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "_"]}], "+", 
    RowBox[{"w", " ", "\[Tau]f4", " ", 
     OverscriptBox["A", "_"]}], "+", 
    RowBox[{"A", " ", "\[Tau]4", " ", 
     OverscriptBox["v", "_"]}], "+", 
    RowBox[{"C", " ", "\[Tau]4", " ", 
     OverscriptBox["v", "_"]}], "+", 
    RowBox[{"\[Tau]5", " ", 
     OverscriptBox["v", "_"]}], "+", 
    RowBox[{"A", " ", "\[Tau]f4", " ", 
     OverscriptBox["w", "_"]}], "+", 
    RowBox[{"Ce", " ", "\[Tau]f4", " ", 
     OverscriptBox["w", "_"]}], "+", 
    RowBox[{"\[Tau]f5", " ", 
     OverscriptBox["w", "_"]}], "+", 
    RowBox[{"2", " ", "A", " ", "v", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"2", " ", "C", " ", "v", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"v", " ", "\[Tau]5", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"2", " ", "A", " ", "w", " ", "\[Tau]f4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"2", " ", "Ce", " ", "w", " ", "\[Tau]f4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"w", " ", "\[Tau]f5", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "\[Tau]4", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"2", " ", "A", " ", "C", " ", "\[Tau]4", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", "\[Tau]4", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]5", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"C", " ", "\[Tau]5", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"\[Tau]6", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["A", "^"], " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "\[Tau]f4", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"2", " ", "A", " ", "Ce", " ", "\[Tau]f4", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{
     SuperscriptBox["Ce", "2"], " ", "\[Tau]f4", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]f5", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"Ce", " ", "\[Tau]f5", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"\[Tau]f6", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"\[Tau]f4", " ", 
     OverscriptBox["A", "^"], " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " order8_cond:  ", $CellContext`A^3 $CellContext`v $CellContext`\[Tau]4 + 
   3 $CellContext`A^2 C $CellContext`v $CellContext`\[Tau]4 + 
   3 $CellContext`A C^2 $CellContext`v $CellContext`\[Tau]4 + 
   C^3 $CellContext`v $CellContext`\[Tau]4 + $CellContext`A^2 $CellContext`v \
$CellContext`\[Tau]5 + 2 $CellContext`A C $CellContext`v $CellContext`\[Tau]5 + 
   C^2 $CellContext`v $CellContext`\[Tau]5 + $CellContext`A $CellContext`v \
$CellContext`\[Tau]6 + 
   C $CellContext`v $CellContext`\[Tau]6 + $CellContext`v \
$CellContext`\[Tau]7 + $CellContext`A^3 $CellContext`w $CellContext`\[Tau]f4 + 
   3 $CellContext`A^2 $CellContext`Ce $CellContext`w $CellContext`\[Tau]f4 + 
   3 $CellContext`A $CellContext`Ce^2 $CellContext`w $CellContext`\[Tau]f4 + \
$CellContext`Ce^3 $CellContext`w $CellContext`\[Tau]f4 + $CellContext`A^2 \
$CellContext`w $CellContext`\[Tau]f5 + 
   2 $CellContext`A $CellContext`Ce $CellContext`w $CellContext`\[Tau]f5 + \
$CellContext`Ce^2 $CellContext`w $CellContext`\[Tau]f5 + $CellContext`A \
$CellContext`w $CellContext`\[Tau]f6 + $CellContext`Ce $CellContext`w \
$CellContext`\[Tau]f6 + $CellContext`w $CellContext`\[Tau]f7 + $CellContext`v \
$CellContext`\[Tau]4 
    OverBar[$CellContext`A] + $CellContext`w $CellContext`\[Tau]f4 
    OverBar[$CellContext`A] + $CellContext`A $CellContext`\[Tau]4 
    OverBar[$CellContext`v] + 
   C $CellContext`\[Tau]4 OverBar[$CellContext`v] + $CellContext`\[Tau]5 
    OverBar[$CellContext`v] + $CellContext`A $CellContext`\[Tau]f4 
    OverBar[$CellContext`w] + $CellContext`Ce $CellContext`\[Tau]f4 
    OverBar[$CellContext`w] + $CellContext`\[Tau]f5 OverBar[$CellContext`w] + 
   2 $CellContext`A $CellContext`v $CellContext`\[Tau]4 
    OverHat[$CellContext`A] + 
   2 C $CellContext`v $CellContext`\[Tau]4 
    OverHat[$CellContext`A] + $CellContext`v $CellContext`\[Tau]5 
    OverHat[$CellContext`A] + 
   2 $CellContext`A $CellContext`w $CellContext`\[Tau]f4 
    OverHat[$CellContext`A] + 
   2 $CellContext`Ce $CellContext`w $CellContext`\[Tau]f4 
    OverHat[$CellContext`A] + $CellContext`w $CellContext`\[Tau]f5 
    OverHat[$CellContext`A] + $CellContext`A^2 $CellContext`\[Tau]4 
    OverHat[$CellContext`v] + 
   2 $CellContext`A C $CellContext`\[Tau]4 OverHat[$CellContext`v] + 
   C^2 $CellContext`\[Tau]4 
    OverHat[$CellContext`v] + $CellContext`A $CellContext`\[Tau]5 
    OverHat[$CellContext`v] + 
   C $CellContext`\[Tau]5 OverHat[$CellContext`v] + $CellContext`\[Tau]6 
    OverHat[$CellContext`v] + $CellContext`\[Tau]4 OverHat[$CellContext`A] 
    OverHat[$CellContext`v] + $CellContext`A^2 $CellContext`\[Tau]f4 
    OverHat[$CellContext`w] + 
   2 $CellContext`A $CellContext`Ce $CellContext`\[Tau]f4 
    OverHat[$CellContext`w] + $CellContext`Ce^2 $CellContext`\[Tau]f4 
    OverHat[$CellContext`w] + $CellContext`A $CellContext`\[Tau]f5 
    OverHat[$CellContext`w] + $CellContext`Ce $CellContext`\[Tau]f5 
    OverHat[$CellContext`w] + $CellContext`\[Tau]f6 
    OverHat[$CellContext`w] + $CellContext`\[Tau]f4 OverHat[$CellContext`A] 
    OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992099212646`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"2c3ea174-63c7-44e8-\
8736-891b7b93ee47"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" order8_cond:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["A", "3"], " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["A", "2"], " ", "C", " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{"3", " ", "A", " ", 
     SuperscriptBox["C", "2"], " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["C", "3"], " ", "v", " ", "\[Tau]4"}], "-", 
    FractionBox[
     RowBox[{"w", " ", "\[Tau]4"}], "6"], "+", 
    FractionBox[
     RowBox[{"A", " ", "w", " ", "\[Tau]4"}], "2"], "-", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "w", " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["A", "3"], " ", "w", " ", "\[Tau]4"}], "+", 
    FractionBox[
     RowBox[{"Ce", " ", "w", " ", "\[Tau]4"}], "2"], "-", 
    RowBox[{"2", " ", "A", " ", "Ce", " ", "w", " ", "\[Tau]4"}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["A", "2"], " ", "Ce", " ", "w", " ", "\[Tau]4"}], "-", 
    RowBox[{
     SuperscriptBox["Ce", "2"], " ", "w", " ", "\[Tau]4"}], "+", 
    RowBox[{"3", " ", "A", " ", 
     SuperscriptBox["Ce", "2"], " ", "w", " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["Ce", "3"], " ", "w", " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "v", " ", "\[Tau]5"}], "+", 
    RowBox[{"2", " ", "A", " ", "C", " ", "v", " ", "\[Tau]5"}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", "v", " ", "\[Tau]5"}], "+", 
    FractionBox[
     RowBox[{"w", " ", "\[Tau]5"}], "2"], "-", 
    RowBox[{"A", " ", "w", " ", "\[Tau]5"}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "w", " ", "\[Tau]5"}], "-", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]5"}], "+", 
    RowBox[{"2", " ", "A", " ", "Ce", " ", "w", " ", "\[Tau]5"}], "+", 
    RowBox[{
     SuperscriptBox["Ce", "2"], " ", "w", " ", "\[Tau]5"}], "+", 
    RowBox[{"A", " ", "v", " ", "\[Tau]6"}], "+", 
    RowBox[{"C", " ", "v", " ", "\[Tau]6"}], "-", 
    RowBox[{"w", " ", "\[Tau]6"}], "+", 
    RowBox[{"A", " ", "w", " ", "\[Tau]6"}], "+", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]6"}], "+", 
    RowBox[{"v", " ", "\[Tau]7"}], "+", 
    RowBox[{"w", " ", "\[Tau]7"}], "+", 
    RowBox[{"v", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "_"]}], "+", 
    RowBox[{"w", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "_"]}], "+", 
    RowBox[{"A", " ", "\[Tau]4", " ", 
     OverscriptBox["v", "_"]}], "+", 
    RowBox[{"C", " ", "\[Tau]4", " ", 
     OverscriptBox["v", "_"]}], "+", 
    RowBox[{"\[Tau]5", " ", 
     OverscriptBox["v", "_"]}], "-", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["w", "_"]}], "+", 
    RowBox[{"A", " ", "\[Tau]4", " ", 
     OverscriptBox["w", "_"]}], "+", 
    RowBox[{"Ce", " ", "\[Tau]4", " ", 
     OverscriptBox["w", "_"]}], "+", 
    RowBox[{"\[Tau]5", " ", 
     OverscriptBox["w", "_"]}], "+", 
    RowBox[{"2", " ", "A", " ", "v", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"2", " ", "C", " ", "v", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "^"]}], "-", 
    RowBox[{"w", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"2", " ", "A", " ", "w", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"2", " ", "Ce", " ", "w", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"v", " ", "\[Tau]5", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"w", " ", "\[Tau]5", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "\[Tau]4", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"2", " ", "A", " ", "C", " ", "\[Tau]4", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", "\[Tau]4", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]5", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"C", " ", "\[Tau]5", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"\[Tau]6", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["A", "^"], " ", 
     OverscriptBox["v", "^"]}], "+", 
    FractionBox[
     RowBox[{"\[Tau]4", " ", 
      OverscriptBox["w", "^"]}], "2"], "-", 
    RowBox[{"A", " ", "\[Tau]4", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "\[Tau]4", " ", 
     OverscriptBox["w", "^"]}], "-", 
    RowBox[{"Ce", " ", "\[Tau]4", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"2", " ", "A", " ", "Ce", " ", "\[Tau]4", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{
     SuperscriptBox["Ce", "2"], " ", "\[Tau]4", " ", 
     OverscriptBox["w", "^"]}], "-", 
    RowBox[{"\[Tau]5", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]5", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"Ce", " ", "\[Tau]5", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"\[Tau]6", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["A", "^"], " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " order8_cond:  ", $CellContext`A^3 $CellContext`v $CellContext`\[Tau]4 + 
   3 $CellContext`A^2 C $CellContext`v $CellContext`\[Tau]4 + 
   3 $CellContext`A C^2 $CellContext`v $CellContext`\[Tau]4 + 
   C^3 $CellContext`v $CellContext`\[Tau]4 + 
   Rational[-1, 6] $CellContext`w $CellContext`\[Tau]4 + 
   Rational[1, 
      2] $CellContext`A $CellContext`w $CellContext`\[Tau]4 - \
$CellContext`A^2 $CellContext`w $CellContext`\[Tau]4 + $CellContext`A^3 \
$CellContext`w $CellContext`\[Tau]4 + 
   Rational[1, 2] $CellContext`Ce $CellContext`w $CellContext`\[Tau]4 - 
   2 $CellContext`A $CellContext`Ce $CellContext`w $CellContext`\[Tau]4 + 
   3 $CellContext`A^2 $CellContext`Ce $CellContext`w $CellContext`\[Tau]4 - \
$CellContext`Ce^2 $CellContext`w $CellContext`\[Tau]4 + 
   3 $CellContext`A $CellContext`Ce^2 $CellContext`w $CellContext`\[Tau]4 + \
$CellContext`Ce^3 $CellContext`w $CellContext`\[Tau]4 + $CellContext`A^2 \
$CellContext`v $CellContext`\[Tau]5 + 
   2 $CellContext`A C $CellContext`v $CellContext`\[Tau]5 + 
   C^2 $CellContext`v $CellContext`\[Tau]5 + 
   Rational[1, 
      2] $CellContext`w $CellContext`\[Tau]5 - $CellContext`A $CellContext`w \
$CellContext`\[Tau]5 + $CellContext`A^2 $CellContext`w $CellContext`\[Tau]5 - \
$CellContext`Ce $CellContext`w $CellContext`\[Tau]5 + 
   2 $CellContext`A $CellContext`Ce $CellContext`w $CellContext`\[Tau]5 + \
$CellContext`Ce^2 $CellContext`w $CellContext`\[Tau]5 + $CellContext`A \
$CellContext`v $CellContext`\[Tau]6 + 
   C $CellContext`v $CellContext`\[Tau]6 - $CellContext`w \
$CellContext`\[Tau]6 + $CellContext`A $CellContext`w $CellContext`\[Tau]6 + \
$CellContext`Ce $CellContext`w $CellContext`\[Tau]6 + $CellContext`v \
$CellContext`\[Tau]7 + $CellContext`w $CellContext`\[Tau]7 + $CellContext`v \
$CellContext`\[Tau]4 
    OverBar[$CellContext`A] + $CellContext`w $CellContext`\[Tau]4 
    OverBar[$CellContext`A] + $CellContext`A $CellContext`\[Tau]4 
    OverBar[$CellContext`v] + 
   C $CellContext`\[Tau]4 OverBar[$CellContext`v] + $CellContext`\[Tau]5 
    OverBar[$CellContext`v] - $CellContext`\[Tau]4 
   OverBar[$CellContext`w] + $CellContext`A $CellContext`\[Tau]4 
    OverBar[$CellContext`w] + $CellContext`Ce $CellContext`\[Tau]4 
    OverBar[$CellContext`w] + $CellContext`\[Tau]5 OverBar[$CellContext`w] + 
   2 $CellContext`A $CellContext`v $CellContext`\[Tau]4 
    OverHat[$CellContext`A] + 
   2 C $CellContext`v $CellContext`\[Tau]4 
    OverHat[$CellContext`A] - $CellContext`w $CellContext`\[Tau]4 
   OverHat[$CellContext`A] + 
   2 $CellContext`A $CellContext`w $CellContext`\[Tau]4 
    OverHat[$CellContext`A] + 
   2 $CellContext`Ce $CellContext`w $CellContext`\[Tau]4 
    OverHat[$CellContext`A] + $CellContext`v $CellContext`\[Tau]5 
    OverHat[$CellContext`A] + $CellContext`w $CellContext`\[Tau]5 
    OverHat[$CellContext`A] + $CellContext`A^2 $CellContext`\[Tau]4 
    OverHat[$CellContext`v] + 
   2 $CellContext`A C $CellContext`\[Tau]4 OverHat[$CellContext`v] + 
   C^2 $CellContext`\[Tau]4 
    OverHat[$CellContext`v] + $CellContext`A $CellContext`\[Tau]5 
    OverHat[$CellContext`v] + 
   C $CellContext`\[Tau]5 OverHat[$CellContext`v] + $CellContext`\[Tau]6 
    OverHat[$CellContext`v] + $CellContext`\[Tau]4 OverHat[$CellContext`A] 
    OverHat[$CellContext`v] + 
   Rational[1, 2] $CellContext`\[Tau]4 
    OverHat[$CellContext`w] - $CellContext`A $CellContext`\[Tau]4 
   OverHat[$CellContext`w] + $CellContext`A^2 $CellContext`\[Tau]4 
    OverHat[$CellContext`w] - $CellContext`Ce $CellContext`\[Tau]4 
   OverHat[$CellContext`w] + 
   2 $CellContext`A $CellContext`Ce $CellContext`\[Tau]4 
    OverHat[$CellContext`w] + $CellContext`Ce^2 $CellContext`\[Tau]4 
    OverHat[$CellContext`w] - $CellContext`\[Tau]5 
   OverHat[$CellContext`w] + $CellContext`A $CellContext`\[Tau]5 
    OverHat[$CellContext`w] + $CellContext`Ce $CellContext`\[Tau]5 
    OverHat[$CellContext`w] + $CellContext`\[Tau]6 
    OverHat[$CellContext`w] + $CellContext`\[Tau]4 OverHat[$CellContext`A] 
    OverHat[$CellContext`w]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992099212646`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"0ff4ca79-db28-4a26-\
84fc-c10081cc09a0"],

Cell[BoxData["\<\" 3\:9636 \"\>"], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992099212646`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"98bf6f76-dd8e-4ccc-\
ac7e-6a5ac2e0bb21"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Epsilon]2:  \"\>", "\[InvisibleSpace]", "\[Tau]2"}],
  SequenceForm[" \[Epsilon]2:  ", $CellContext`\[Tau]2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992099298697`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"f7da97c3-7c54-4696-\
a430-791bcd452598"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Delta]2:  \"\>", "\[InvisibleSpace]", "\[Tau]2"}],
  SequenceForm[" \[Delta]2:  ", $CellContext`\[Tau]2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209930382*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"8e414b18-4d08-4c9b-\
95ab-b9f611dbf07e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Sigma]1:  \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[" \[Sigma]1:  ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209930382*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"dfc15de4-381e-49f2-\
b81c-17c99c8fec05"],

Cell[BoxData["\<\" 4\:9636 \"\>"], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209930382*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"cfb4f754-8a08-446d-\
a889-fb5d6b2eb5d0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Epsilon]3:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"A", " ", "\[Tau]2"}], "+", "\[Tau]3"}]}],
  SequenceForm[
  " \[Epsilon]3:  ", $CellContext`A $CellContext`\[Tau]2 + \
$CellContext`\[Tau]3],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209930382*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"d2491d5e-31ed-40d5-\
8182-375fa39df0fd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Delta]3:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"A", " ", "\[Tau]2"}], "+", 
    RowBox[{"C", " ", "\[Tau]2"}], "+", "\[Tau]3"}]}],
  SequenceForm[
  " \[Delta]3:  ", $CellContext`A $CellContext`\[Tau]2 + 
   C $CellContext`\[Tau]2 + $CellContext`\[Tau]3],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209930382*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"8b6bd4a6-913e-401a-\
aea9-2d7c18226a6f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Sigma]2:  \"\>", "\[InvisibleSpace]", "\[Tau]2"}],
  SequenceForm[" \[Sigma]2:  ", $CellContext`\[Tau]2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209930382*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"52528478-1d66-441b-\
9240-f263b1f73f95"],

Cell[BoxData["\<\" 5\:9636 \
\\!\\(\\*StyleBox[\\\"\[Tau]\\\",FontWeight->\\\"Bold\\\"]\\)2=0 \"\>"], \
"Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209930382*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"5fcfc6b5-bcec-4be2-\
b2c8-f8c8bdf84415"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Epsilon]4:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"A", " ", "\[Tau]3"}], "+", "\[Tau]4"}]}],
  SequenceForm[
  " \[Epsilon]4:  ", $CellContext`A $CellContext`\[Tau]3 + \
$CellContext`\[Tau]4],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209940832*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"4090ed01-4d85-4403-\
91f4-f5a1087bd3e9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Delta]4:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"A", " ", "\[Tau]3"}], "+", 
    RowBox[{"C", " ", "\[Tau]3"}], "+", "\[Tau]4"}]}],
  SequenceForm[
  " \[Delta]4:  ", $CellContext`A $CellContext`\[Tau]3 + 
   C $CellContext`\[Tau]3 + $CellContext`\[Tau]4],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209940832*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"1d8de260-61c1-4501-\
b6c6-a461b3ec5a94"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Sigma]3:  \"\>", "\[InvisibleSpace]", "\[Tau]3"}],
  SequenceForm[" \[Sigma]3:  ", $CellContext`\[Tau]3],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209940832*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"e272fa41-8774-4007-\
977c-7c505bf99a45"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Eta]2:  \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[" \[Eta]2:  ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209944837*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"2d2a4c7e-c0c8-48fa-\
b658-fc102e54f063"],

Cell[BoxData["\<\" 6\:9636 \
\\!\\(\\*StyleBox[\\\"\[Tau]\\\",FontWeight->\\\"Bold\\\"]\\)2=0 \"\>"], \
"Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209944837*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"4d74dc3f-81d6-4356-\
b220-bde59eec68ab"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Epsilon]5:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["A", "2"], " ", "\[Tau]3"}], "+", 
    RowBox[{"A", " ", "C", " ", "\[Tau]3"}], "+", 
    RowBox[{"A", " ", "\[Tau]4"}], "+", "\[Tau]5", "+", 
    RowBox[{"\[Tau]3", " ", 
     OverscriptBox["A", "^"]}]}]}],
  SequenceForm[
  " \[Epsilon]5:  ", $CellContext`A^2 $CellContext`\[Tau]3 + $CellContext`A 
    C $CellContext`\[Tau]3 + $CellContext`A $CellContext`\[Tau]4 + \
$CellContext`\[Tau]5 + $CellContext`\[Tau]3 OverHat[$CellContext`A]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209944837*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"61693f18-3b53-4870-\
89db-7e48aa9bd2e1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Delta]5:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["A", "2"], " ", "\[Tau]3"}], "+", 
    RowBox[{"2", " ", "A", " ", "C", " ", "\[Tau]3"}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", "\[Tau]3"}], "+", 
    RowBox[{"A", " ", "\[Tau]4"}], "+", 
    RowBox[{"C", " ", "\[Tau]4"}], "+", "\[Tau]5", "+", 
    RowBox[{"\[Tau]3", " ", 
     OverscriptBox["A", "^"]}]}]}],
  SequenceForm[
  " \[Delta]5:  ", $CellContext`A^2 $CellContext`\[Tau]3 + 
   2 $CellContext`A C $CellContext`\[Tau]3 + 
   C^2 $CellContext`\[Tau]3 + $CellContext`A $CellContext`\[Tau]4 + 
   C $CellContext`\[Tau]4 + $CellContext`\[Tau]5 + $CellContext`\[Tau]3 
    OverHat[$CellContext`A]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209951191*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"9f0dbac9-e02b-4af0-\
afe2-1f3199a0cf05"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Sigma]4:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"A", " ", "\[Tau]3"}], "+", 
    RowBox[{"C", " ", "\[Tau]3"}], "+", "\[Tau]4"}]}],
  SequenceForm[
  " \[Sigma]4:  ", $CellContext`A $CellContext`\[Tau]3 + 
   C $CellContext`\[Tau]3 + $CellContext`\[Tau]4],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209951191*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"0544194d-3d20-4f9e-\
9277-c1c374db0278"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Eta]3:  \"\>", "\[InvisibleSpace]", "\[Tau]3"}],
  SequenceForm[" \[Eta]3:  ", $CellContext`\[Tau]3],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209951191*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"e5e4bc7e-e2db-4279-\
ae9e-720ccff5d32a"],

Cell[BoxData["\<\" 7\:9636 \
\\!\\(\\*StyleBox[\\\"\[Tau]\\\",FontWeight->\\\"Bold\\\"]\\)2=\\!\\(\\*\
StyleBox[\\\"\[Tau]3\\\",FontWeight->\\\"Bold\\\"]\\)=0\"\>"], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209951191*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"ac3dffb4-18a6-4376-\
9ba5-8c0261bed022"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Epsilon]6:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["A", "2"], " ", "\[Tau]4"}], "+", 
    RowBox[{"A", " ", "C", " ", "\[Tau]4"}], "+", 
    RowBox[{"A", " ", "\[Tau]5"}], "+", "\[Tau]6", "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["A", "^"]}]}]}],
  SequenceForm[
  " \[Epsilon]6:  ", $CellContext`A^2 $CellContext`\[Tau]4 + $CellContext`A 
    C $CellContext`\[Tau]4 + $CellContext`A $CellContext`\[Tau]5 + \
$CellContext`\[Tau]6 + $CellContext`\[Tau]4 OverHat[$CellContext`A]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209951191*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"62fb7706-ee72-4f11-\
bdb8-b985bb1fdb92"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Delta]6:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["A", "2"], " ", "\[Tau]4"}], "+", 
    RowBox[{"2", " ", "A", " ", "C", " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", "\[Tau]4"}], "+", 
    RowBox[{"A", " ", "\[Tau]5"}], "+", 
    RowBox[{"C", " ", "\[Tau]5"}], "+", "\[Tau]6", "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["A", "^"]}]}]}],
  SequenceForm[
  " \[Delta]6:  ", $CellContext`A^2 $CellContext`\[Tau]4 + 
   2 $CellContext`A C $CellContext`\[Tau]4 + 
   C^2 $CellContext`\[Tau]4 + $CellContext`A $CellContext`\[Tau]5 + 
   C $CellContext`\[Tau]5 + $CellContext`\[Tau]6 + $CellContext`\[Tau]4 
    OverHat[$CellContext`A]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.889499209951191*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"39640d82-e528-4fd6-\
ae39-aec936448d7b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Sigma]5:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"A", " ", "\[Tau]4"}], "+", 
    RowBox[{"C", " ", "\[Tau]4"}], "+", "\[Tau]5"}]}],
  SequenceForm[
  " \[Sigma]5:  ", $CellContext`A $CellContext`\[Tau]4 + 
   C $CellContext`\[Tau]4 + $CellContext`\[Tau]5],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992099607916`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"d0fe21a0-9595-4007-\
81ac-72a26bb4f94a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Eta]4:  \"\>", "\[InvisibleSpace]", "\[Tau]4"}],
  SequenceForm[" \[Eta]4:  ", $CellContext`\[Tau]4],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992099607916`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"4f93ed98-4459-4e63-\
b6d1-40cc6ef1cb0a"],

Cell[BoxData["\<\" 8\:9636 \
\\!\\(\\*StyleBox[\\\"\[Tau]\\\",FontWeight->\\\"Bold\\\"]\\)2=\\!\\(\\*\
StyleBox[\\\"\[Tau]3\\\",FontWeight->\\\"Bold\\\"]\\)=0\"\>"], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992099607916`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"421600f5-2856-46ca-\
8697-ef040225986f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Epsilon]7:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["A", "3"], " ", "\[Tau]4"}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["A", "2"], " ", "C", " ", "\[Tau]4"}], "+", 
    RowBox[{"A", " ", 
     SuperscriptBox["C", "2"], " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "\[Tau]5"}], "+", 
    RowBox[{"A", " ", "C", " ", "\[Tau]5"}], "+", 
    RowBox[{"A", " ", "\[Tau]6"}], "+", "\[Tau]7", "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["A", "_"]}], "+", 
    RowBox[{"2", " ", "A", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"C", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"\[Tau]5", " ", 
     OverscriptBox["A", "^"]}]}]}],
  SequenceForm[
  " \[Epsilon]7:  ", $CellContext`A^3 $CellContext`\[Tau]4 + 
   2 $CellContext`A^2 C $CellContext`\[Tau]4 + $CellContext`A 
    C^2 $CellContext`\[Tau]4 + $CellContext`A^2 $CellContext`\[Tau]5 + \
$CellContext`A 
    C $CellContext`\[Tau]5 + $CellContext`A $CellContext`\[Tau]6 + \
$CellContext`\[Tau]7 + $CellContext`\[Tau]4 OverBar[$CellContext`A] + 
   2 $CellContext`A $CellContext`\[Tau]4 OverHat[$CellContext`A] + 
   C $CellContext`\[Tau]4 OverHat[$CellContext`A] + $CellContext`\[Tau]5 
    OverHat[$CellContext`A]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992099647975`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"c47f112c-8184-4da1-\
aca0-6948fbfcc2ed"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Delta]7:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["A", "3"], " ", "\[Tau]4"}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["A", "2"], " ", "C", " ", "\[Tau]4"}], "+", 
    RowBox[{"3", " ", "A", " ", 
     SuperscriptBox["C", "2"], " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["C", "3"], " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "\[Tau]5"}], "+", 
    RowBox[{"2", " ", "A", " ", "C", " ", "\[Tau]5"}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", "\[Tau]5"}], "+", 
    RowBox[{"A", " ", "\[Tau]6"}], "+", 
    RowBox[{"C", " ", "\[Tau]6"}], "+", "\[Tau]7", "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["A", "_"]}], "+", 
    RowBox[{"2", " ", "A", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"2", " ", "C", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"\[Tau]5", " ", 
     OverscriptBox["A", "^"]}]}]}],
  SequenceForm[
  " \[Delta]7:  ", $CellContext`A^3 $CellContext`\[Tau]4 + 
   3 $CellContext`A^2 C $CellContext`\[Tau]4 + 
   3 $CellContext`A C^2 $CellContext`\[Tau]4 + 
   C^3 $CellContext`\[Tau]4 + $CellContext`A^2 $CellContext`\[Tau]5 + 
   2 $CellContext`A C $CellContext`\[Tau]5 + 
   C^2 $CellContext`\[Tau]5 + $CellContext`A $CellContext`\[Tau]6 + 
   C $CellContext`\[Tau]6 + $CellContext`\[Tau]7 + $CellContext`\[Tau]4 
    OverBar[$CellContext`A] + 
   2 $CellContext`A $CellContext`\[Tau]4 OverHat[$CellContext`A] + 
   2 C $CellContext`\[Tau]4 OverHat[$CellContext`A] + $CellContext`\[Tau]5 
    OverHat[$CellContext`A]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992099647975`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"879d4dc4-86c3-43ba-\
b5ee-8295e9b2601e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Sigma]6:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["A", "2"], " ", "\[Tau]4"}], "+", 
    RowBox[{"2", " ", "A", " ", "C", " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", "\[Tau]4"}], "+", 
    RowBox[{"A", " ", "\[Tau]5"}], "+", 
    RowBox[{"C", " ", "\[Tau]5"}], "+", "\[Tau]6", "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["A", "^"]}]}]}],
  SequenceForm[
  " \[Sigma]6:  ", $CellContext`A^2 $CellContext`\[Tau]4 + 
   2 $CellContext`A C $CellContext`\[Tau]4 + 
   C^2 $CellContext`\[Tau]4 + $CellContext`A $CellContext`\[Tau]5 + 
   C $CellContext`\[Tau]5 + $CellContext`\[Tau]6 + $CellContext`\[Tau]4 
    OverHat[$CellContext`A]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.8894992099647975`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"2c5bbb65-6b32-4fe5-\
be52-0e70c1f4869f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Eta]5:  \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"A", " ", "\[Tau]4"}], "+", 
    RowBox[{"C", " ", "\[Tau]4"}], "+", "\[Tau]5"}]}],
  SequenceForm[
  " \[Eta]5:  ", $CellContext`A $CellContext`\[Tau]4 + 
   C $CellContext`\[Tau]4 + $CellContext`\[Tau]5],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8563192781773314`*^9, 3.856319340324492*^9, {3.8563193919115753`*^9, 
   3.8563194289479356`*^9}, 3.856319530598337*^9, 3.8563195856557627`*^9, 
   3.8563196716067266`*^9, 3.856319739600588*^9, 3.8563198277461324`*^9, 
   3.8563210801095448`*^9, 3.8563247087223067`*^9, 3.856331072889265*^9, 
   3.856334230059481*^9, 3.8563397328133264`*^9, 3.8563854408992977`*^9, 
   3.8563868509390087`*^9, {3.856387017472734*^9, 3.8563870385000715`*^9}, 
   3.856387255397809*^9, 3.8563872917779255`*^9, 3.888887968365079*^9, 
   3.888964131460723*^9, {3.8889665076817713`*^9, 3.8889665316216335`*^9}, 
   3.8889666382407637`*^9, 3.8889668303418036`*^9, 3.888967472323042*^9, 
   3.8889769482404375`*^9, 3.888977074755743*^9, 3.8889803915400705`*^9, 
   3.8889804405726657`*^9, 3.889062262110928*^9, {3.889499182692047*^9, 
   3.88949920997116*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[411]:=",ExpressionUUID->"59742fb9-ddb9-4e03-\
9f3a-5124f9d77a79"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[{
 InterpretationBox[
  RowBox[{"\"\< order3_cond:  \>\"", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"v", " ", "\[Tau]2"}], "+", 
    RowBox[{"w", " ", "\[Tau]f2"}]}]}],
  SequenceForm[
  " order3_cond:  ", $CellContext`v $CellContext`\[Tau]2 + $CellContext`w \
$CellContext`\[Tau]f2],
  Editable->False], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Tau]2", "=", 
    RowBox[{
     FractionBox[
      SuperscriptBox["c", "2"], "2"], "-", 
     RowBox[{"A", " ", "c"}], "-", " ", 
     RowBox[{
      OverscriptBox["A", "^"], "e"}]}]}], ";", "   ", 
   RowBox[{"\[Tau]f2", "=", "\[Tau]2"}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"v", "+", "w"}], ")"}], "\[Tau]2"}], "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"v", "+", "w"}], ")"}], 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      SuperscriptBox["c", "2"], "2"], "-", 
     RowBox[{"A", " ", "c"}], "-", " ", 
     RowBox[{
      OverscriptBox["A", "^"], "e"}]}], 
    ")"}]}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8890614856984015`*^9, 3.889061498943142*^9}, 
   3.889061539835603*^9, {3.8890619358765273`*^9, 3.8890620228890457`*^9}, 
   3.889062288756713*^9},ExpressionUUID->"500c10d2-3b8f-4037-9f23-\
5b7521c96c25"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\"\< order4_cond:  \>\"", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"A", " ", "v", " ", "\[Tau]2"}], "+", 
    RowBox[{"C", " ", "v", " ", "\[Tau]2"}], "+", 
    RowBox[{"v", " ", "\[Tau]3"}], "+", 
    RowBox[{"A", " ", "w", " ", "\[Tau]f2"}], "+", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]f2"}], "+", 
    RowBox[{"w", " ", "\[Tau]f3"}], "+", 
    RowBox[{"\[Tau]2", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"\[Tau]f2", " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " order4_cond:  ", $CellContext`A $CellContext`v $CellContext`\[Tau]2 + 
   C $CellContext`v $CellContext`\[Tau]2 + $CellContext`v \
$CellContext`\[Tau]3 + $CellContext`A $CellContext`w $CellContext`\[Tau]f2 + \
$CellContext`Ce $CellContext`w $CellContext`\[Tau]f2 + $CellContext`w \
$CellContext`\[Tau]f3 + $CellContext`\[Tau]2 
    OverHat[$CellContext`v] + $CellContext`\[Tau]f2 OverHat[$CellContext`w]],
  Editable->False]], "Input",
 CellChangeTimes->{
  3.88906235190201*^9},ExpressionUUID->"c3441053-ac28-4c2e-ba5b-50dbb8c94920"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Tau]3", "=", 
   RowBox[{
    FractionBox[
     SuperscriptBox["c", "3"], "6"], "-", 
    FractionBox[
     RowBox[{"A", " ", 
      SuperscriptBox["c", "2"]}], "2"], "-", " ", 
    RowBox[{
     OverscriptBox["A", "^"], "c"}], "-", " ", 
    RowBox[{
     OverscriptBox["A", "_"], "e"}]}]}], ";", "  ", 
  RowBox[{"\[Tau]f3", "=", 
   RowBox[{"\[Tau]3", "-", "\[Tau]2"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vC", " ", "\[Tau]2"}], "+", " ", 
   RowBox[{"wCe", " ", "\[Tau]f2"}]}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"vC", " ", "+", " ", "wCe"}], ")"}], "\[Tau]2"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"vC", " ", "+", " ", "wCe"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       SuperscriptBox["c", "2"], "2"], "-", 
      RowBox[{"A", " ", "c"}], "-", " ", 
      RowBox[{
       OverscriptBox["A", "^"], "e"}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"v", "\[InvisibleSpace]", "A", " ", "\[Tau]2"}], "+", 
   RowBox[{"wA", " ", "\[Tau]f2"}]}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"v", "\[InvisibleSpace]", "A"}], " ", "+", "wA"}], " ", ")"}], 
    "\[Tau]2"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"v", "\[InvisibleSpace]", "A"}], " ", "+", "wA"}], " ", ")"}], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       SuperscriptBox["c", "2"], "2"], "-", 
      RowBox[{"A", " ", "c"}], "-", " ", 
      RowBox[{
       OverscriptBox["A", "^"], "e"}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    OverscriptBox["v", "^"], "\[Tau]2"}], " ", "+", " ", 
   RowBox[{
    OverscriptBox["w", "^"], "\[Tau]f2"}]}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      OverscriptBox["v", "^"], "+", " ", 
      OverscriptBox["w", "^"]}], ")"}], "\[Tau]2"}], " ", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      OverscriptBox["v", "^"], "+", " ", 
      OverscriptBox["w", "^"]}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       SuperscriptBox["c", "2"], "2"], "-", 
      RowBox[{"A", " ", "c"}], "-", " ", 
      RowBox[{
       OverscriptBox["A", "^"], "e"}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"v", " ", "\[Tau]3"}], "+", 
   RowBox[{"w", " ", "\[Tau]f3"}]}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"v", "+", "w"}], ")"}], "\[Tau]3"}], "-", 
    RowBox[{"w", " ", "\[Tau]2"}]}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"v", "+", "w"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        SuperscriptBox["c", "3"], "6"], "-", 
       FractionBox[
        RowBox[{"A", " ", 
         SuperscriptBox["c", "2"]}], "2"], "-", " ", 
       RowBox[{
        OverscriptBox["A", "^"], "c"}], "-", " ", 
       RowBox[{
        OverscriptBox["A", "_"], "e"}]}], ")"}]}], "-", 
    RowBox[{"w", " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        SuperscriptBox["c", "2"], "2"], "-", 
       RowBox[{"A", " ", "c"}], "-", " ", 
       RowBox[{
        OverscriptBox["A", "^"], "e"}]}], 
      ")"}]}]}]}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{
  3.8890623640635405`*^9, {3.8890624179376063`*^9, 3.889062554380032*^9}, {
   3.889062586945855*^9, 3.8890626492244096`*^9}, {3.8890627784786882`*^9, 
   3.889062899458294*^9}, {3.8890629422317395`*^9, 3.8890629720849752`*^9}, {
   3.8890630069732947`*^9, 3.889063070230915*^9}, 
   3.889064177914774*^9},ExpressionUUID->"f0cd2e24-94be-4541-9eee-\
2a9df7964ca9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\"\< order5_cond:  \>\"", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"A", " ", "v", " ", "\[Tau]3"}], "+", 
    RowBox[{"C", " ", "v", " ", "\[Tau]3"}], "+", 
    RowBox[{"v", " ", "\[Tau]4"}], "+", 
    RowBox[{"A", " ", "w", " ", "\[Tau]f3"}], "+", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]f3"}], "+", 
    RowBox[{"w", " ", "\[Tau]f4"}], "+", 
    RowBox[{"\[Tau]3", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"\[Tau]f3", " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " order5_cond:  ", $CellContext`A $CellContext`v $CellContext`\[Tau]3 + 
   C $CellContext`v $CellContext`\[Tau]3 + $CellContext`v \
$CellContext`\[Tau]4 + $CellContext`A $CellContext`w $CellContext`\[Tau]f3 + \
$CellContext`Ce $CellContext`w $CellContext`\[Tau]f3 + $CellContext`w \
$CellContext`\[Tau]f4 + $CellContext`\[Tau]3 
    OverHat[$CellContext`v] + $CellContext`\[Tau]f3 OverHat[$CellContext`w]],
  Editable->False]], "Input",ExpressionUUID->"b7be9b3e-2a97-4bad-8396-\
e15993c3243f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Tau]2", "=", "0"}], ";", 
  RowBox[{"\[Tau]3", "=", 
   RowBox[{
    FractionBox[
     SuperscriptBox["c", "3"], "6"], "-", 
    FractionBox[
     RowBox[{"A", " ", 
      SuperscriptBox["c", "2"]}], "2"], "-", " ", 
    RowBox[{
     OverscriptBox["A", "^"], "c"}], "-", " ", 
    RowBox[{
     OverscriptBox["A", "_"], "e"}]}]}], ";", "  ", 
  RowBox[{"\[Tau]f3", "=", "\[Tau]3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Tau]4", "=", 
   RowBox[{
    FractionBox[
     SuperscriptBox["c", "4"], "24"], "-", 
    FractionBox[
     RowBox[{"A", " ", 
      SuperscriptBox["c", "3"]}], "6"], "-", 
    FractionBox[
     RowBox[{" ", 
      RowBox[{
       OverscriptBox["A", "^"], 
       SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
    RowBox[{
     OverscriptBox["A", "_"], "c"}]}]}], ";", "  ", 
  RowBox[{"\[Tau]f4", "=", 
   RowBox[{"\[Tau]4", "-", "\[Tau]3", "+", 
    RowBox[{"\[Tau]2", "/", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    FractionBox[
     SuperscriptBox["c", "2"], "2"], "-", 
    RowBox[{"A", " ", "c"}], "-", " ", 
    RowBox[{
     OverscriptBox["A", "^"], "e"}]}], ")"}], "=", 
  "0"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"vC", "  ", "\[Tau]3"}], "+", 
    RowBox[{"wCe", "  ", "\[Tau]f3"}]}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"vC", " ", "+", "wCe"}], "  ", ")"}], "\[Tau]3"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"vC", " ", "+", "wCe"}], "  ", ")"}], 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        SuperscriptBox["c", "3"], "6"], "-", 
       FractionBox[
        RowBox[{"A", " ", 
         SuperscriptBox["c", "2"]}], "2"], "-", " ", 
       RowBox[{
        OverscriptBox["A", "^"], "c"}], "-", " ", 
       RowBox[{
        OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"vA", "  ", "\[Tau]3"}], "+", 
    RowBox[{"wA", "  ", "\[Tau]f3"}]}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"vA", " ", "+", "wA"}], ")"}], "  ", "\[Tau]3"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"vA", " ", "+", "wA"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        SuperscriptBox["c", "3"], "6"], "-", 
       FractionBox[
        RowBox[{"A", " ", 
         SuperscriptBox["c", "2"]}], "2"], "-", " ", 
       RowBox[{
        OverscriptBox["A", "^"], "c"}], "-", " ", 
       RowBox[{
        OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      OverscriptBox["v", "^"], "\[Tau]3"}], "+", " ", 
     RowBox[{
      OverscriptBox["w", "^"], "\[Tau]f3"}]}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["v", "^"], " ", "+", " ", 
        OverscriptBox["w", "^"]}], ")"}], "\[Tau]3"}], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["v", "^"], " ", "+", " ", 
        OverscriptBox["w", "^"]}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         SuperscriptBox["c", "3"], "6"], "-", 
        FractionBox[
         RowBox[{"A", " ", 
          SuperscriptBox["c", "2"]}], "2"], "-", " ", 
        RowBox[{
         OverscriptBox["A", "^"], "c"}], "-", " ", 
        RowBox[{
         OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}], 
   ";"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"v", " ", "\[Tau]4"}], "+", 
     RowBox[{"w", " ", "\[Tau]f4"}]}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"v", "+", "w"}], ")"}], "  ", "\[Tau]4"}], "-", 
      RowBox[{"w", " ", "\[Tau]3"}]}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"v", "+", "w"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["c", "4"], "24"], "-", 
         FractionBox[
          RowBox[{"A", " ", 
           SuperscriptBox["c", "3"]}], "6"], "-", 
         FractionBox[
          RowBox[{" ", 
           RowBox[{
            OverscriptBox["A", "^"], 
            SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
         RowBox[{
          OverscriptBox["A", "_"], "c"}]}], ")"}]}], "-", 
      RowBox[{"w", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["c", "3"], "6"], "-", 
         FractionBox[
          RowBox[{"A", " ", 
           SuperscriptBox["c", "2"]}], "2"], "-", " ", 
         RowBox[{
          OverscriptBox["A", "^"], "c"}], "-", " ", 
         RowBox[{
          OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8890642479073095`*^9, 3.889064263386208*^9}, {
  3.889064337719657*^9, 3.889064383837807*^9}, {3.889064422026285*^9, 
  3.889064424844286*^9}, {3.8890644553743362`*^9, 3.8890645078162117`*^9}, {
  3.8890645659736385`*^9, 3.8890648002718325`*^9}, {3.8890649432164216`*^9, 
  3.889064944806265*^9}},ExpressionUUID->"d5627323-7379-4994-a01e-\
4d406872e7b1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\"\< order6_cond:  \>\"", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["A", "2"], " ", "v", " ", "\[Tau]3"}], "+", 
    RowBox[{"2", " ", "A", " ", "C", " ", "v", " ", "\[Tau]3"}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", "v", " ", "\[Tau]3"}], "+", 
    RowBox[{"A", " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{"C", " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{"v", " ", "\[Tau]5"}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "w", " ", "\[Tau]f3"}], "+", 
    RowBox[{"2", " ", "A", " ", "Ce", " ", "w", " ", "\[Tau]f3"}], "+", 
    RowBox[{
     SuperscriptBox["Ce", "2"], " ", "w", " ", "\[Tau]f3"}], "+", 
    RowBox[{"A", " ", "w", " ", "\[Tau]f4"}], "+", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]f4"}], "+", 
    RowBox[{"w", " ", "\[Tau]f5"}], "+", 
    RowBox[{"\[Tau]3", " ", 
     OverscriptBox["v", "_"]}], "+", 
    RowBox[{"\[Tau]f3", " ", 
     OverscriptBox["w", "_"]}], "+", 
    RowBox[{"v", " ", "\[Tau]3", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"w", " ", "\[Tau]f3", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]3", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"C", " ", "\[Tau]3", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]f3", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"Ce", " ", "\[Tau]f3", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"\[Tau]f4", " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " order6_cond:  ", $CellContext`A^2 $CellContext`v $CellContext`\[Tau]3 + 
   2 $CellContext`A C $CellContext`v $CellContext`\[Tau]3 + 
   C^2 $CellContext`v $CellContext`\[Tau]3 + $CellContext`A $CellContext`v \
$CellContext`\[Tau]4 + 
   C $CellContext`v $CellContext`\[Tau]4 + $CellContext`v \
$CellContext`\[Tau]5 + $CellContext`A^2 $CellContext`w $CellContext`\[Tau]f3 + 
   2 $CellContext`A $CellContext`Ce $CellContext`w $CellContext`\[Tau]f3 + \
$CellContext`Ce^2 $CellContext`w $CellContext`\[Tau]f3 + $CellContext`A \
$CellContext`w $CellContext`\[Tau]f4 + $CellContext`Ce $CellContext`w \
$CellContext`\[Tau]f4 + $CellContext`w $CellContext`\[Tau]f5 + $CellContext`\
\[Tau]3 OverBar[$CellContext`v] + $CellContext`\[Tau]f3 
    OverBar[$CellContext`w] + $CellContext`v $CellContext`\[Tau]3 
    OverHat[$CellContext`A] + $CellContext`w $CellContext`\[Tau]f3 
    OverHat[$CellContext`A] + $CellContext`A $CellContext`\[Tau]3 
    OverHat[$CellContext`v] + 
   C $CellContext`\[Tau]3 OverHat[$CellContext`v] + $CellContext`\[Tau]4 
    OverHat[$CellContext`v] + $CellContext`A $CellContext`\[Tau]f3 
    OverHat[$CellContext`w] + $CellContext`Ce $CellContext`\[Tau]f3 
    OverHat[$CellContext`w] + $CellContext`\[Tau]f4 OverHat[$CellContext`w]],
  Editable->False]], "Input",ExpressionUUID->"7ca234ca-9f84-4489-a52f-\
2f7e629ae13f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Tau]2", "=", "0"}], ";", 
  RowBox[{"\[Tau]3", "=", 
   RowBox[{
    FractionBox[
     SuperscriptBox["c", "3"], "6"], "-", 
    FractionBox[
     RowBox[{"A", " ", 
      SuperscriptBox["c", "2"]}], "2"], "-", " ", 
    RowBox[{
     OverscriptBox["A", "^"], "c"}], "-", " ", 
    RowBox[{
     OverscriptBox["A", "_"], "e"}]}]}], ";", "  ", 
  RowBox[{"\[Tau]f3", "=", "\[Tau]3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Tau]4", "=", 
   RowBox[{
    FractionBox[
     SuperscriptBox["c", "4"], "24"], "-", 
    FractionBox[
     RowBox[{"A", " ", 
      SuperscriptBox["c", "3"]}], "6"], "-", 
    FractionBox[
     RowBox[{" ", 
      RowBox[{
       OverscriptBox["A", "^"], 
       SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
    RowBox[{
     OverscriptBox["A", "_"], "c"}]}]}], ";", "  ", 
  RowBox[{"\[Tau]f4", "=", 
   RowBox[{"\[Tau]4", "-", "\[Tau]3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Tau]5", "=", 
    RowBox[{
     FractionBox[
      SuperscriptBox["c", "5"], "120"], "-", 
     FractionBox[
      RowBox[{"A", " ", 
       SuperscriptBox["c", "4"]}], "24"], "-", 
     FractionBox[
      RowBox[{" ", 
       RowBox[{
        OverscriptBox["A", "^"], 
        SuperscriptBox["c", "3"]}]}], "6"], "-", 
     FractionBox[
      RowBox[{" ", 
       RowBox[{
        OverscriptBox["A", "_"], 
        SuperscriptBox["c", "2"]}]}], "2"]}]}], ";", " ", 
   RowBox[{"\[Tau]f5", "=", 
    RowBox[{"\[Tau]5", "-", "\[Tau]4", "+", 
     RowBox[{"\[Tau]3", "/", "2"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["vA", "2"], "  ", "\[Tau]3"}], "+", 
    RowBox[{
     SuperscriptBox["wA", "2"], " ", "\[Tau]f3"}]}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["vA", "2"], "+", 
       SuperscriptBox["wA", "2"]}], " ", ")"}], "\[Tau]3"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["vA", "2"], "+", 
       SuperscriptBox["wA", "2"]}], " ", ")"}], 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        SuperscriptBox["c", "3"], "6"], "-", 
       FractionBox[
        RowBox[{"A", " ", 
         SuperscriptBox["c", "2"]}], "2"], "-", " ", 
       RowBox[{
        OverscriptBox["A", "^"], "c"}], "-", " ", 
       RowBox[{
        OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"vCA", " ", "\[Tau]3"}], "+", 
    RowBox[{"wCeA", " ", "\[Tau]f3"}]}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"vCA", "  ", "+", "wCeA"}], ")"}], "\[Tau]3"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"vCA", "  ", "+", "wCeA"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        SuperscriptBox["c", "3"], "6"], "-", 
       FractionBox[
        RowBox[{"A", " ", 
         SuperscriptBox["c", "2"]}], "2"], "-", " ", 
       RowBox[{
        OverscriptBox["A", "^"], "c"}], "-", " ", 
       RowBox[{
        OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"vAC", " ", "\[Tau]3"}], "+", 
    RowBox[{"wACe", " ", "\[Tau]f3"}]}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"vAC", " ", "+", "wACe"}], " ", ")"}], "\[Tau]3"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"vAC", " ", "+", "wACe"}], " ", ")"}], 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        SuperscriptBox["c", "3"], "6"], "-", 
       FractionBox[
        RowBox[{"A", " ", 
         SuperscriptBox["c", "2"]}], "2"], "-", " ", 
       RowBox[{
        OverscriptBox["A", "^"], "c"}], "-", " ", 
       RowBox[{
        OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["vC", "2"], " ", "\[Tau]3"}], "+", " ", 
    RowBox[{
     SuperscriptBox["wCe", "2"], " ", "\[Tau]f3"}]}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["vC", "2"], "  ", "+", " ", 
       SuperscriptBox["wCe", "2"]}], " ", ")"}], "\[Tau]3"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["vC", "2"], "  ", "+", " ", 
       SuperscriptBox["wCe", "2"]}], " ", ")"}], 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        SuperscriptBox["c", "3"], "6"], "-", 
       FractionBox[
        RowBox[{"A", " ", 
         SuperscriptBox["c", "2"]}], "2"], "-", " ", 
       RowBox[{
        OverscriptBox["A", "^"], "c"}], "-", " ", 
       RowBox[{
        OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"v", 
     OverscriptBox["A", "^"], " ", "\[Tau]3"}], " ", "+", 
    RowBox[{"w", 
     OverscriptBox["A", "^"], " ", "\[Tau]f3"}]}], " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"v", 
        OverscriptBox["A", "^"]}], " ", " ", "+", " ", 
       RowBox[{"w", 
        OverscriptBox["A", "^"]}]}], " ", ")"}], "\[Tau]3"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"v", 
        OverscriptBox["A", "^"]}], " ", " ", "+", " ", 
       RowBox[{"w", 
        OverscriptBox["A", "^"]}]}], " ", ")"}], 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        SuperscriptBox["c", "3"], "6"], "-", 
       FractionBox[
        RowBox[{"A", " ", 
         SuperscriptBox["c", "2"]}], "2"], "-", " ", 
       RowBox[{
        OverscriptBox["A", "^"], "c"}], "-", " ", 
       RowBox[{
        OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     OverscriptBox["v", "^"], "A", " ", "\[Tau]3"}], " ", "+", 
    RowBox[{
     OverscriptBox["w", "^"], "A", " ", "\[Tau]f3"}]}], " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        OverscriptBox["v", "^"], "A"}], "  ", "+", " ", 
       RowBox[{
        OverscriptBox["w", "^"], "A"}]}], " ", ")"}], "\[Tau]3"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        OverscriptBox["v", "^"], "A"}], "  ", "+", " ", 
       RowBox[{
        OverscriptBox["w", "^"], "A"}]}], " ", ")"}], 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        SuperscriptBox["c", "3"], "6"], "-", 
       FractionBox[
        RowBox[{"A", " ", 
         SuperscriptBox["c", "2"]}], "2"], "-", " ", 
       RowBox[{
        OverscriptBox["A", "^"], "c"}], "-", " ", 
       RowBox[{
        OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     OverscriptBox["v", "^"], "C", " ", "\[Tau]3"}], " ", "+", 
    RowBox[{
     OverscriptBox["w", "^"], "Ce", " ", "\[Tau]f3"}]}], " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        OverscriptBox["v", "^"], "C"}], " ", " ", "+", " ", 
       RowBox[{
        OverscriptBox["w", "^"], "Ce"}]}], " ", ")"}], "\[Tau]3"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        OverscriptBox["v", "^"], "C"}], " ", " ", "+", " ", 
       RowBox[{
        OverscriptBox["w", "^"], "Ce"}]}], " ", ")"}], 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        SuperscriptBox["c", "3"], "6"], "-", 
       FractionBox[
        RowBox[{"A", " ", 
         SuperscriptBox["c", "2"]}], "2"], "-", " ", 
       RowBox[{
        OverscriptBox["A", "^"], "c"}], "-", " ", 
       RowBox[{
        OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     OverscriptBox["v", "_"], "\[Tau]3"}], " ", "+", 
    RowBox[{
     OverscriptBox["w", "_"], "\[Tau]f3"}]}], " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["v", "_"], "  ", "+", " ", 
       OverscriptBox["w", "_"]}], " ", ")"}], "\[Tau]3"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["v", "_"], "  ", "+", " ", 
       OverscriptBox["w", "_"]}], " ", ")"}], 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        SuperscriptBox["c", "3"], "6"], "-", 
       FractionBox[
        RowBox[{"A", " ", 
         SuperscriptBox["c", "2"]}], "2"], "-", " ", 
       RowBox[{
        OverscriptBox["A", "^"], "c"}], "-", " ", 
       RowBox[{
        OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"vC", " ", "\[Tau]4"}], "+", 
    RowBox[{"wCe", " ", "\[Tau]f4"}]}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"vC", " ", "+", "wCe"}], "  ", ")"}], "\[Tau]4"}], "-", 
     RowBox[{"wCe", " ", "\[Tau]3"}]}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"vC", " ", "+", "wCe"}], "  ", ")"}], 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         SuperscriptBox["c", "4"], "24"], "-", 
        FractionBox[
         RowBox[{"A", " ", 
          SuperscriptBox["c", "3"]}], "6"], "-", 
        FractionBox[
         RowBox[{" ", 
          RowBox[{
           OverscriptBox["A", "^"], 
           SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
        RowBox[{
         OverscriptBox["A", "_"], "c"}]}], ")"}]}], "-", 
     RowBox[{"wCe", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         SuperscriptBox["c", "3"], "6"], "-", 
        FractionBox[
         RowBox[{"A", " ", 
          SuperscriptBox["c", "2"]}], "2"], "-", " ", 
        RowBox[{
         OverscriptBox["A", "^"], "c"}], "-", " ", 
        RowBox[{
         OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"vA", "  ", "\[Tau]4"}], "+", 
    RowBox[{"wA", "  ", "\[Tau]f4"}]}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"vA", " ", "+", "wA"}], "  ", ")"}], "\[Tau]4"}], "-", 
     RowBox[{"wA", " ", "\[Tau]3"}]}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"vA", " ", "+", "wA"}], "  ", ")"}], 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         SuperscriptBox["c", "4"], "24"], "-", 
        FractionBox[
         RowBox[{"A", " ", 
          SuperscriptBox["c", "3"]}], "6"], "-", 
        FractionBox[
         RowBox[{" ", 
          RowBox[{
           OverscriptBox["A", "^"], 
           SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
        RowBox[{
         OverscriptBox["A", "_"], "c"}]}], ")"}]}], "-", 
     RowBox[{"wA", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         SuperscriptBox["c", "3"], "6"], "-", 
        FractionBox[
         RowBox[{"A", " ", 
          SuperscriptBox["c", "2"]}], "2"], "-", " ", 
        RowBox[{
         OverscriptBox["A", "^"], "c"}], "-", " ", 
        RowBox[{
         OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     OverscriptBox["v", "^"], "\[Tau]4"}], " ", "+", " ", 
    RowBox[{
     OverscriptBox["w", "^"], "\[Tau]f4"}]}], " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["v", "^"], " ", "+", 
        OverscriptBox["w", "^"]}], " ", ")"}], "\[Tau]4"}], "-", 
     RowBox[{
      OverscriptBox["w", "^"], " ", "\[Tau]3"}]}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["v", "^"], " ", "+", 
        OverscriptBox["w", "^"]}], " ", ")"}], 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         SuperscriptBox["c", "4"], "24"], "-", 
        FractionBox[
         RowBox[{"A", " ", 
          SuperscriptBox["c", "3"]}], "6"], "-", 
        FractionBox[
         RowBox[{" ", 
          RowBox[{
           OverscriptBox["A", "^"], 
           SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
        RowBox[{
         OverscriptBox["A", "_"], "c"}]}], ")"}]}], "-", 
     RowBox[{
      OverscriptBox["w", "^"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         SuperscriptBox["c", "3"], "6"], "-", 
        FractionBox[
         RowBox[{"A", " ", 
          SuperscriptBox["c", "2"]}], "2"], "-", " ", 
        RowBox[{
         OverscriptBox["A", "^"], "c"}], "-", " ", 
        RowBox[{
         OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"v", " ", "\[Tau]5"}], "+", 
     RowBox[{"w", " ", "\[Tau]f5"}]}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"v", "+", "w"}], " ", ")"}], "\[Tau]5"}], "-", " ", 
      RowBox[{"w", " ", "\[Tau]4"}], "+", 
      RowBox[{"w", " ", 
       RowBox[{"\[Tau]3", "/", "2"}]}]}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"v", "+", "w"}], " ", ")"}], 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["c", "5"], "120"], "-", 
         FractionBox[
          RowBox[{"A", " ", 
           SuperscriptBox["c", "4"]}], "24"], "-", 
         FractionBox[
          RowBox[{" ", 
           RowBox[{
            OverscriptBox["A", "^"], 
            SuperscriptBox["c", "3"]}]}], "6"], "-", 
         FractionBox[
          RowBox[{" ", 
           RowBox[{
            OverscriptBox["A", "_"], 
            SuperscriptBox["c", "2"]}]}], "2"]}], ")"}]}], "-", " ", 
      RowBox[{"w", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["c", "4"], "24"], "-", 
         FractionBox[
          RowBox[{"A", " ", 
           SuperscriptBox["c", "3"]}], "6"], "-", 
         FractionBox[
          RowBox[{" ", 
           RowBox[{
            OverscriptBox["A", "^"], 
            SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
         RowBox[{
          OverscriptBox["A", "_"], "c"}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["1", "2"], "w", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["c", "3"], "6"], "-", 
         FractionBox[
          RowBox[{"A", " ", 
           SuperscriptBox["c", "2"]}], "2"], "-", " ", 
         RowBox[{
          OverscriptBox["A", "^"], "c"}], "-", " ", 
         RowBox[{
          OverscriptBox["A", "_"], "e"}]}], ")"}]}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8890670636218967`*^9, 3.8890672933769913`*^9}, {
   3.8890673674027653`*^9, 3.8890676611995115`*^9}, {3.8890677118188667`*^9, 
   3.88906792624971*^9}, {3.8890679636462555`*^9, 3.8890679759688945`*^9}, {
   3.889072728081688*^9, 3.889072840747967*^9}, {3.8890728932747965`*^9, 
   3.8890730563937235`*^9}, {3.889073087891839*^9, 3.8890731435268917`*^9}, 
   3.889073399152413*^9, 3.889132111477124*^9, {3.8891336110101323`*^9, 
   3.889133665850995*^9}},ExpressionUUID->"0d712d41-11fa-4f79-b30a-\
54146de0b343"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\"\< order7_cond:  \>\"", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["A", "2"], " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{"2", " ", "A", " ", "C", " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", "v", " ", "\[Tau]4"}], "+", 
    RowBox[{"A", " ", "v", " ", "\[Tau]5"}], "+", 
    RowBox[{"C", " ", "v", " ", "\[Tau]5"}], "+", 
    RowBox[{"v", " ", "\[Tau]6"}], "+", 
    RowBox[{
     SuperscriptBox["A", "2"], " ", "w", " ", "\[Tau]f4"}], "+", 
    RowBox[{"2", " ", "A", " ", "Ce", " ", "w", " ", "\[Tau]f4"}], "+", 
    RowBox[{
     SuperscriptBox["Ce", "2"], " ", "w", " ", "\[Tau]f4"}], "+", 
    RowBox[{"A", " ", "w", " ", "\[Tau]f5"}], "+", 
    RowBox[{"Ce", " ", "w", " ", "\[Tau]f5"}], "+", 
    RowBox[{"w", " ", "\[Tau]f6"}], "+", 
    RowBox[{"\[Tau]4", " ", 
     OverscriptBox["v", "_"]}], "+", 
    RowBox[{"\[Tau]f4", " ", 
     OverscriptBox["w", "_"]}], "+", 
    RowBox[{"v", " ", "\[Tau]4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"w", " ", "\[Tau]f4", " ", 
     OverscriptBox["A", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]4", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"C", " ", "\[Tau]4", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"\[Tau]5", " ", 
     OverscriptBox["v", "^"]}], "+", 
    RowBox[{"A", " ", "\[Tau]f4", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"Ce", " ", "\[Tau]f4", " ", 
     OverscriptBox["w", "^"]}], "+", 
    RowBox[{"\[Tau]f5", " ", 
     OverscriptBox["w", "^"]}]}]}],
  SequenceForm[
  " order7_cond:  ", $CellContext`A^2 $CellContext`v $CellContext`\[Tau]4 + 
   2 $CellContext`A C $CellContext`v $CellContext`\[Tau]4 + 
   C^2 $CellContext`v $CellContext`\[Tau]4 + $CellContext`A $CellContext`v \
$CellContext`\[Tau]5 + 
   C $CellContext`v $CellContext`\[Tau]5 + $CellContext`v \
$CellContext`\[Tau]6 + $CellContext`A^2 $CellContext`w $CellContext`\[Tau]f4 + 
   2 $CellContext`A $CellContext`Ce $CellContext`w $CellContext`\[Tau]f4 + \
$CellContext`Ce^2 $CellContext`w $CellContext`\[Tau]f4 + $CellContext`A \
$CellContext`w $CellContext`\[Tau]f5 + $CellContext`Ce $CellContext`w \
$CellContext`\[Tau]f5 + $CellContext`w $CellContext`\[Tau]f6 + $CellContext`\
\[Tau]4 OverBar[$CellContext`v] + $CellContext`\[Tau]f4 
    OverBar[$CellContext`w] + $CellContext`v $CellContext`\[Tau]4 
    OverHat[$CellContext`A] + $CellContext`w $CellContext`\[Tau]f4 
    OverHat[$CellContext`A] + $CellContext`A $CellContext`\[Tau]4 
    OverHat[$CellContext`v] + 
   C $CellContext`\[Tau]4 OverHat[$CellContext`v] + $CellContext`\[Tau]5 
    OverHat[$CellContext`v] + $CellContext`A $CellContext`\[Tau]f4 
    OverHat[$CellContext`w] + $CellContext`Ce $CellContext`\[Tau]f4 
    OverHat[$CellContext`w] + $CellContext`\[Tau]f5 OverHat[$CellContext`w]],
  Editable->False]], "Input",ExpressionUUID->"c6e21468-5c21-4388-8bfb-\
578a10136ea3"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Tau]3", "=", 
     RowBox[{"\[Tau]2", "=", "0"}]}], ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Tau]4", "=", 
     RowBox[{
      FractionBox[
       SuperscriptBox["c", "4"], "24"], "-", 
      FractionBox[
       RowBox[{"A", " ", 
        SuperscriptBox["c", "3"]}], "6"], "-", 
      FractionBox[
       RowBox[{" ", 
        RowBox[{
         OverscriptBox["A", "^"], 
         SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
      RowBox[{
       OverscriptBox["A", "_"], "c"}]}]}], ";", "  ", 
    RowBox[{"\[Tau]f4", "=", "\[Tau]4"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Tau]5", "=", 
     RowBox[{
      FractionBox[
       SuperscriptBox["c", "5"], "120"], "-", 
      FractionBox[
       RowBox[{"A", " ", 
        SuperscriptBox["c", "4"]}], "24"], "-", 
      FractionBox[
       RowBox[{" ", 
        RowBox[{
         OverscriptBox["A", "^"], 
         SuperscriptBox["c", "3"]}]}], "6"], "-", 
      FractionBox[
       RowBox[{" ", 
        RowBox[{
         OverscriptBox["A", "_"], 
         SuperscriptBox["c", "2"]}]}], "2"]}]}], ";", " ", 
    RowBox[{"\[Tau]f5", "=", 
     RowBox[{"\[Tau]5", "-", "\[Tau]4"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Tau]6", "=", 
     RowBox[{
      FractionBox[
       SuperscriptBox["c", "6"], "720"], "-", 
      FractionBox[
       RowBox[{"A", " ", 
        SuperscriptBox["c", "5"]}], "120"], "-", 
      FractionBox[
       RowBox[{" ", 
        RowBox[{
         OverscriptBox["A", "^"], 
         SuperscriptBox["c", "4"]}]}], "24"], "-", 
      FractionBox[
       RowBox[{" ", 
        RowBox[{
         OverscriptBox["A", "_"], 
         SuperscriptBox["c", "3"]}]}], "6"]}]}], ";", " ", 
    RowBox[{"\[Tau]f6", "=", 
     RowBox[{"\[Tau]6", "-", "\[Tau]5", "+", 
      FractionBox["\[Tau]4", "2"]}]}], ";"}], "\[IndentingNewLine]", 
   "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"v", " ", 
       SuperscriptBox["A", "2"], " ", "\[Tau]4"}], "+", 
      RowBox[{
       SuperscriptBox["wA", "2"], " ", "\[Tau]f4"}]}], "=", 
     "\[InvisibleSpace]", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"v", " ", 
          SuperscriptBox["A", "2"]}], " ", "+", 
         SuperscriptBox["wA", "2"]}], " ", ")"}], "\[Tau]4"}], "=", 
      "\[InvisibleSpace]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"v", " ", 
          SuperscriptBox["A", "2"]}], " ", "+", 
         SuperscriptBox["wA", "2"]}], " ", ")"}], 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["c", "4"], "24"], "-", 
         FractionBox[
          RowBox[{"A", " ", 
           SuperscriptBox["c", "3"]}], "6"], "-", 
         FractionBox[
          RowBox[{" ", 
           RowBox[{
            OverscriptBox["A", "^"], 
            SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
         RowBox[{
          OverscriptBox["A", "_"], "c"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"v", "  ", "A", " ", "C", " ", "\[Tau]4"}], "+", 
      RowBox[{"w", " ", "A", " ", "Ce", " ", "\[Tau]f4"}]}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"v", "  ", "A", " ", "C"}], " ", "+", 
         RowBox[{"w", " ", "A", " ", "Ce"}]}], ")"}], " ", "\[Tau]4"}], "=", 
      "\[InvisibleSpace] ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"v", "  ", "A", " ", "C"}], " ", "+", 
         RowBox[{"w", " ", "A", " ", "Ce"}]}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["c", "4"], "24"], "-", 
         FractionBox[
          RowBox[{"A", " ", 
           SuperscriptBox["c", "3"]}], "6"], "-", 
         FractionBox[
          RowBox[{" ", 
           RowBox[{
            OverscriptBox["A", "^"], 
            SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
         RowBox[{
          OverscriptBox["A", "_"], "c"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"vCA", " ", "\[Tau]4"}], "+", 
      RowBox[{"wCe", " ", "A", "  ", "\[Tau]f4"}]}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"vCA", " ", "+", 
         RowBox[{"wCe", " ", "A"}]}], " ", " ", ")"}], " ", "\[Tau]4"}], "=", 
      "\[InvisibleSpace] ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"vCA", " ", "+", 
         RowBox[{"wCe", " ", "A"}]}], " ", " ", ")"}], 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["c", "4"], "24"], "-", 
         FractionBox[
          RowBox[{"A", " ", 
           SuperscriptBox["c", "3"]}], "6"], "-", 
         FractionBox[
          RowBox[{" ", 
           RowBox[{
            OverscriptBox["A", "^"], 
            SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
         RowBox[{
          OverscriptBox["A", "_"], "c"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"v", " ", 
       SuperscriptBox["C", "2"], " ", "\[Tau]4"}], "+", 
      RowBox[{"w", " ", 
       SuperscriptBox["Ce", "2"], " ", "\[Tau]f4"}]}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"v", " ", 
          SuperscriptBox["C", "2"]}], " ", "+", 
         RowBox[{"w", " ", 
          SuperscriptBox["Ce", "2"]}]}], " ", ")"}], " ", "\[Tau]4"}], "=", 
      "\[InvisibleSpace] ", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"v", " ", 
          SuperscriptBox["C", "2"]}], " ", "+", 
         RowBox[{"w", " ", 
          SuperscriptBox["Ce", "2"]}]}], " ", ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["c", "4"], "24"], "-", 
         FractionBox[
          RowBox[{"A", " ", 
           SuperscriptBox["c", "3"]}], "6"], "-", 
         FractionBox[
          RowBox[{" ", 
           RowBox[{
            OverscriptBox["A", "^"], 
            SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
         RowBox[{
          OverscriptBox["A", "_"], "c"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"v", " ", 
       OverscriptBox["A", "^"], " ", "\[Tau]4"}], "+", 
      RowBox[{"w", " ", 
       OverscriptBox["A", "^"], "\[Tau]f4"}]}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"v", " ", 
          OverscriptBox["A", "^"]}], " ", "+", 
         RowBox[{"w", " ", 
          OverscriptBox["A", "^"]}]}], " ", ")"}], " ", "\[Tau]4"}], "=", 
      "\[InvisibleSpace] ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"v", " ", 
          OverscriptBox["A", "^"]}], " ", "+", 
         RowBox[{"w", " ", 
          OverscriptBox["A", "^"]}]}], " ", ")"}], 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["c", "4"], "24"], "-", 
         FractionBox[
          RowBox[{"A", " ", 
           SuperscriptBox["c", "3"]}], "6"], "-", 
         FractionBox[
          RowBox[{" ", 
           RowBox[{
            OverscriptBox["A", "^"], 
            SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
         RowBox[{
          OverscriptBox["A", "_"], "c"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       OverscriptBox["v", "^"], "A", " ", "\[Tau]4"}], " ", "+", 
      RowBox[{
       OverscriptBox["w", "^"], "A", " ", "\[Tau]f4"}]}], " ", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          OverscriptBox["v", "^"], "A"}], "  ", "+", 
         RowBox[{
          OverscriptBox["w", "^"], "A"}]}], "   ", ")"}], " ", "\[Tau]4"}], 
      "=", "\[InvisibleSpace] ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          OverscriptBox["v", "^"], "A"}], "  ", "+", 
         RowBox[{
          OverscriptBox["w", "^"], "A"}]}], "   ", ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["c", "4"], "24"], "-", 
         FractionBox[
          RowBox[{"A", " ", 
           SuperscriptBox["c", "3"]}], "6"], "-", 
         FractionBox[
          RowBox[{" ", 
           RowBox[{
            OverscriptBox["A", "^"], 
            SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
         RowBox[{
          OverscriptBox["A", "_"], "c"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       OverscriptBox["v", "^"], "C", " ", "\[Tau]4"}], " ", "+", " ", 
      RowBox[{
       OverscriptBox["w", "^"], "Ce", " ", "\[Tau]f4"}]}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          OverscriptBox["v", "^"], "C"}], "  ", "+", " ", 
         RowBox[{
          OverscriptBox["w", "^"], "Ce"}]}], " ", " ", ")"}], " ", 
       "\[Tau]4"}], "=", "\[InvisibleSpace] ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          OverscriptBox["v", "^"], "C"}], "  ", "+", " ", 
         RowBox[{
          OverscriptBox["w", "^"], "Ce"}]}], "  ", ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["c", "4"], "24"], "-", 
         FractionBox[
          RowBox[{"A", " ", 
           SuperscriptBox["c", "3"]}], "6"], "-", 
         FractionBox[
          RowBox[{" ", 
           RowBox[{
            OverscriptBox["A", "^"], 
            SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
         RowBox[{
          OverscriptBox["A", "_"], "c"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       OverscriptBox["v", "_"], "\[Tau]4"}], " ", "+", 
      RowBox[{
       OverscriptBox["w", "_"], "\[Tau]f4"}]}], " ", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{
         OverscriptBox["v", "_"], " ", "+", 
         OverscriptBox["w", "_"]}], ")"}], " ", "\[Tau]4"}], "=", 
      "\[InvisibleSpace] ", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{
         OverscriptBox["v", "_"], " ", "+", 
         OverscriptBox["w", "_"]}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["c", "4"], "24"], "-", 
         FractionBox[
          RowBox[{"A", " ", 
           SuperscriptBox["c", "3"]}], "6"], "-", 
         FractionBox[
          RowBox[{" ", 
           RowBox[{
            OverscriptBox["A", "^"], 
            SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
         RowBox[{
          OverscriptBox["A", "_"], "c"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"v", " ", "A", " ", "\[Tau]5"}], "+", 
      RowBox[{"wA", " ", "\[Tau]f5"}]}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"v", " ", "A"}], "  ", "+", "wA"}], " ", ")"}], "\[Tau]5"}],
        "-", 
       RowBox[{"wA", " ", "\[Tau]4"}]}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"v", " ", "A"}], "  ", "+", "wA"}], " ", ")"}], 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox["c", "5"], "120"], "-", 
          FractionBox[
           RowBox[{"A", " ", 
            SuperscriptBox["c", "4"]}], "24"], "-", 
          FractionBox[
           RowBox[{" ", 
            RowBox[{
             OverscriptBox["A", "^"], 
             SuperscriptBox["c", "3"]}]}], "6"], "-", 
          FractionBox[
           RowBox[{" ", 
            RowBox[{
             OverscriptBox["A", "_"], 
             SuperscriptBox["c", "2"]}]}], "2"]}], ")"}]}], "-", 
       RowBox[{"wA", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox["c", "4"], "24"], "-", 
          FractionBox[
           RowBox[{"A", " ", 
            SuperscriptBox["c", "3"]}], "6"], "-", 
          FractionBox[
           RowBox[{" ", 
            RowBox[{
             OverscriptBox["A", "^"], 
             SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
          RowBox[{
           OverscriptBox["A", "_"], "c"}]}], ")"}]}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"vC", "  ", "\[Tau]5"}], "+", 
      RowBox[{"w", " ", "Ce", " ", "\[Tau]f5"}]}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"vC", "  ", "+", 
          RowBox[{"w", " ", "Ce"}]}], " ", ")"}], "\[Tau]5"}], "-", 
       RowBox[{"w", " ", "Ce\[Tau]4"}]}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"vC", "  ", "+", 
          RowBox[{"w", " ", "Ce"}]}], " ", ")"}], 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox["c", "5"], "120"], "-", 
          FractionBox[
           RowBox[{"A", " ", 
            SuperscriptBox["c", "4"]}], "24"], "-", 
          FractionBox[
           RowBox[{" ", 
            RowBox[{
             OverscriptBox["A", "^"], 
             SuperscriptBox["c", "3"]}]}], "6"], "-", 
          FractionBox[
           RowBox[{" ", 
            RowBox[{
             OverscriptBox["A", "_"], 
             SuperscriptBox["c", "2"]}]}], "2"]}], ")"}]}], "-", 
       RowBox[{"w", " ", "Ce", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox["c", "4"], "24"], "-", 
          FractionBox[
           RowBox[{"A", " ", 
            SuperscriptBox["c", "3"]}], "6"], "-", 
          FractionBox[
           RowBox[{" ", 
            RowBox[{
             OverscriptBox["A", "^"], 
             SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
          RowBox[{
           OverscriptBox["A", "_"], "c"}]}], ")"}]}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       OverscriptBox["v", "^"], "\[Tau]5"}], " ", "+", 
      RowBox[{
       OverscriptBox["w", "^"], "\[Tau]f5"}]}], " ", "=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["v", "^"], "+", 
          OverscriptBox["w", "^"]}], ")"}], "\[Tau]5"}], "-", 
       RowBox[{
        OverscriptBox["w", "^"], "\[Tau]4"}]}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["v", "^"], "+", 
          OverscriptBox["w", "^"]}], ")"}], 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox["c", "5"], "120"], "-", 
          FractionBox[
           RowBox[{"A", " ", 
            SuperscriptBox["c", "4"]}], "24"], "-", 
          FractionBox[
           RowBox[{" ", 
            RowBox[{
             OverscriptBox["A", "^"], 
             SuperscriptBox["c", "3"]}]}], "6"], "-", 
          FractionBox[
           RowBox[{" ", 
            RowBox[{
             OverscriptBox["A", "_"], 
             SuperscriptBox["c", "2"]}]}], "2"]}], ")"}]}], "-", 
       RowBox[{
        OverscriptBox["w", "^"], 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox["c", "4"], "24"], "-", 
          FractionBox[
           RowBox[{"A", " ", 
            SuperscriptBox["c", "3"]}], "6"], "-", 
          FractionBox[
           RowBox[{" ", 
            RowBox[{
             OverscriptBox["A", "^"], 
             SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
          RowBox[{
           OverscriptBox["A", "_"], "c"}]}], ")"}]}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"v", " ", "\[Tau]6"}], "+", " ", 
      RowBox[{"w", " ", "\[Tau]f6"}]}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"v", " ", "+", " ", "w"}], " ", ")"}], "\[Tau]6"}], "-", 
       RowBox[{"w", " ", "\[Tau]5"}], "+", 
       FractionBox[
        RowBox[{"w", " ", "\[Tau]4"}], "2"]}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"v", " ", "+", " ", "w"}], " ", ")"}], 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox["c", "6"], "720"], "-", 
          FractionBox[
           RowBox[{"A", " ", 
            SuperscriptBox["c", "5"]}], "120"], "-", 
          FractionBox[
           RowBox[{" ", 
            RowBox[{
             OverscriptBox["A", "^"], 
             SuperscriptBox["c", "4"]}]}], "24"], "-", 
          FractionBox[
           RowBox[{" ", 
            RowBox[{
             OverscriptBox["A", "_"], 
             SuperscriptBox["c", "3"]}]}], "6"]}], ")"}]}], "-", 
       RowBox[{"w", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox["c", "5"], "120"], "-", 
          FractionBox[
           RowBox[{"A", " ", 
            SuperscriptBox["c", "4"]}], "24"], "-", 
          FractionBox[
           RowBox[{" ", 
            RowBox[{
             OverscriptBox["A", "^"], 
             SuperscriptBox["c", "3"]}]}], "6"], "-", 
          FractionBox[
           RowBox[{" ", 
            RowBox[{
             OverscriptBox["A", "_"], 
             SuperscriptBox["c", "2"]}]}], "2"]}], ")"}]}], "+", 
       RowBox[{
        FractionBox[
         RowBox[{"w", " "}], "2"], 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox["c", "4"], "24"], "-", 
          FractionBox[
           RowBox[{"A", " ", 
            SuperscriptBox["c", "3"]}], "6"], "-", 
          FractionBox[
           RowBox[{" ", 
            RowBox[{
             OverscriptBox["A", "^"], 
             SuperscriptBox["c", "2"]}]}], "2"], "-", " ", 
          RowBox[{
           OverscriptBox["A", "_"], "c"}]}], ")"}]}]}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.8891321352511187`*^9, 3.889132135996845*^9}, {
   3.8891322040063453`*^9, 3.889132205139785*^9}, {3.8891322479192495`*^9, 
   3.8891322589402113`*^9}, {3.889132298538268*^9, 3.8891323731969275`*^9}, {
   3.8891324340967474`*^9, 3.889132646048498*^9}, {3.8891327575226974`*^9, 
   3.889132970124993*^9}, {3.8891330006094184`*^9, 3.889133040600498*^9}, 
   3.889133106079749*^9, {3.889133547103266*^9, 3.8891335797456493`*^9}, {
   3.8891337426887617`*^9, 3.8891339410763884`*^9}, {3.8891341877311773`*^9, 
   3.8891342422912345`*^9}, {3.8891342769912186`*^9, 
   3.8891343612584567`*^9}},ExpressionUUID->"22e95860-d06e-46b6-a3e9-\
4349d9143f81"]
},
WindowSize->{1562, 981},
WindowMargins->{{147, Automatic}, {Automatic, 26}},
Magnification:>1.5 Inherited,
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (2021\:5e746\:670819\
\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"896a19b1-84e6-4c95-934d-3093f1e73204"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 43041, 1243, 5725, "Input",ExpressionUUID->"f10e5cd3-d200-4701-995f-85b454b70b6b"],
Cell[43624, 1267, 1181, 21, 41, "Message",ExpressionUUID->"91a893f3-c385-4f2b-b364-0b2ec846213e"],
Cell[44808, 1290, 1180, 21, 41, "Message",ExpressionUUID->"3df39467-80ac-4808-92b3-11f1e319eb1b"],
Cell[45991, 1313, 1175, 21, 41, "Message",ExpressionUUID->"b69f8ea8-67fa-43e5-9573-cfaaba5e162e"],
Cell[47169, 1336, 1273, 22, 41, "Message",ExpressionUUID->"166eb740-8a2f-4612-b0e9-e3a3837d1dae"],
Cell[CellGroupData[{
Cell[48467, 1362, 1424, 29, 58, "Print",ExpressionUUID->"15658cdb-2337-42aa-ae61-baccec6989dd"],
Cell[49894, 1393, 1601, 34, 59, "Print",ExpressionUUID->"da3e65d5-a0f9-49d1-bb5f-8075a47784bf"],
Cell[51498, 1429, 1674, 36, 60, "Print",ExpressionUUID->"ab734b65-3d97-4526-b662-91772437d403"],
Cell[53175, 1467, 1753, 39, 60, "Print",ExpressionUUID->"2f001867-c56e-4899-b56f-e2f1b4929b16"],
Cell[54931, 1508, 1757, 39, 60, "Print",ExpressionUUID->"7ee09644-106b-40d1-a00f-7acd657dd192"],
Cell[56691, 1549, 1763, 39, 60, "Print",ExpressionUUID->"967f5f42-3987-4c49-a663-c3fa335593fe"],
Cell[58457, 1590, 1430, 27, 35, "Print",ExpressionUUID->"3dfcc9ac-b720-4689-9eb5-052365f51d86"],
Cell[59890, 1619, 1723, 35, 53, "Print",ExpressionUUID->"db2991d1-026a-4976-bbbc-fcf14a7c2645"],
Cell[61616, 1656, 1140, 20, 34, "Print",ExpressionUUID->"81eaddb1-2e3e-4799-a409-0aae640f686a"],
Cell[62759, 1678, 2040, 43, 54, "Print",ExpressionUUID->"e04e2e5f-fe4e-43f7-8970-33c7057481c6"],
Cell[64802, 1723, 1303, 25, 34, "Print",ExpressionUUID->"ade007d1-f309-4ed9-8a12-f896b8825d74"],
Cell[66108, 1750, 1301, 25, 34, "Print",ExpressionUUID->"619d2099-6038-4cf1-b326-f20566e9539c"],
Cell[67412, 1777, 2101, 45, 53, "Print",ExpressionUUID->"85e0a52a-8fe6-40af-ae26-4eefe766ade5"],
Cell[69516, 1824, 1955, 37, 34, "Print",ExpressionUUID->"d65685ca-ff4c-426c-82c4-7a8cafe2d47a"],
Cell[71474, 1863, 2028, 39, 34, "Print",ExpressionUUID->"df0fd341-2ae7-4de6-9a70-c47cede63165"],
Cell[73505, 1904, 2162, 47, 54, "Print",ExpressionUUID->"3c266f9b-114a-478d-b4dc-1cb564f62d0f"],
Cell[75670, 1953, 1955, 37, 34, "Print",ExpressionUUID->"727efc52-4812-4362-b6d3-743898525346"],
Cell[77628, 1992, 2484, 49, 53, "Print",ExpressionUUID->"ae140a53-1b4b-46ca-870f-5ab16a0315c5"],
Cell[80115, 2043, 2165, 47, 54, "Print",ExpressionUUID->"d54de3d4-0614-4d11-9663-7c67ccd9cfae"],
Cell[82283, 2092, 3866, 76, 65, "Print",ExpressionUUID->"0643b4ec-80ac-4709-bf8e-1b4375a7b689"],
Cell[86152, 2170, 5961, 124, 135, "Print",ExpressionUUID->"a859f5f2-a274-4ed3-9cc1-e62b599bda15"],
Cell[92116, 2296, 2162, 47, 53, "Print",ExpressionUUID->"c76dee36-e9c2-4cfb-ab22-49b65e9b0998"],
Cell[94281, 2345, 3864, 76, 65, "Print",ExpressionUUID->"7fb0b901-5fbb-4c0d-9bf9-16069b027411"],
Cell[98148, 2423, 4384, 88, 84, "Print",ExpressionUUID->"8f733a6d-d029-41e4-8aac-7f441b310475"],
Cell[102535, 2513, 2165, 47, 54, "Print",ExpressionUUID->"12e073cf-0390-43b0-bebb-d087d237a434"],
Cell[104703, 2562, 8076, 166, 121, "Print",ExpressionUUID->"2c3ea174-63c7-44e8-8736-891b7b93ee47"],
Cell[112782, 2730, 10129, 214, 182, "Print",ExpressionUUID->"0ff4ca79-db28-4a26-84fc-c10081cc09a0"],
Cell[122914, 2946, 1017, 16, 34, "Print",ExpressionUUID->"98bf6f76-dd8e-4ccc-ac7e-6a5ac2e0bb21"],
Cell[123934, 2964, 1165, 20, 34, "Print",ExpressionUUID->"f7da97c3-7c54-4696-a430-791bcd452598"],
Cell[125102, 2986, 1159, 20, 34, "Print",ExpressionUUID->"8e414b18-4d08-4c9b-95ab-b9f611dbf07e"],
Cell[126264, 3008, 1134, 20, 34, "Print",ExpressionUUID->"dfc15de4-381e-49f2-b81c-17c99c8fec05"],
Cell[127401, 3030, 1015, 16, 34, "Print",ExpressionUUID->"cfb4f754-8a08-446d-a889-fb5d6b2eb5d0"],
Cell[128419, 3048, 1261, 24, 34, "Print",ExpressionUUID->"d2491d5e-31ed-40d5-8182-375fa39df0fd"],
Cell[129683, 3074, 1325, 25, 34, "Print",ExpressionUUID->"8b6bd4a6-913e-401a-aea9-2d7c18226a6f"],
Cell[131011, 3101, 1159, 20, 34, "Print",ExpressionUUID->"52528478-1d66-441b-9240-f263b1f73f95"],
Cell[132173, 3123, 1084, 18, 34, "Print",ExpressionUUID->"5fcfc6b5-bcec-4be2-b2c8-f8c8bdf84415"],
Cell[133260, 3143, 1261, 24, 34, "Print",ExpressionUUID->"4090ed01-4d85-4403-91f4-f5a1087bd3e9"],
Cell[134524, 3169, 1325, 25, 34, "Print",ExpressionUUID->"1d8de260-61c1-4501-b6c6-a461b3ec5a94"],
Cell[135852, 3196, 1159, 20, 34, "Print",ExpressionUUID->"e272fa41-8774-4007-977c-7c505bf99a45"],
Cell[137014, 3218, 1130, 20, 34, "Print",ExpressionUUID->"2d2a4c7e-c0c8-48fa-b658-fc102e54f063"],
Cell[138147, 3240, 1084, 18, 34, "Print",ExpressionUUID->"4d74dc3f-81d6-4356-b220-bde59eec68ab"],
Cell[139234, 3260, 1579, 30, 36, "Print",ExpressionUUID->"61693f18-3b53-4870-89db-7e48aa9bd2e1"],
Cell[140816, 3292, 1758, 35, 36, "Print",ExpressionUUID->"9f0dbac9-e02b-4af0-afe2-1f3199a0cf05"],
Cell[142577, 3329, 1325, 25, 34, "Print",ExpressionUUID->"0544194d-3d20-4f9e-9277-c1c374db0278"],
Cell[143905, 3356, 1155, 20, 34, "Print",ExpressionUUID->"e5e4bc7e-e2db-4279-ae9e-720ccff5d32a"],
Cell[145063, 3378, 1146, 18, 34, "Print",ExpressionUUID->"ac3dffb4-18a6-4376-9ba5-8c0261bed022"],
Cell[146212, 3398, 1579, 30, 36, "Print",ExpressionUUID->"62fb7706-ee72-4f11-bdb8-b985bb1fdb92"],
Cell[147794, 3430, 1758, 35, 36, "Print",ExpressionUUID->"39640d82-e528-4fd6-ae39-aec936448d7b"],
Cell[149555, 3467, 1327, 25, 34, "Print",ExpressionUUID->"d0fe21a0-9595-4007-81ac-72a26bb4f94a"],
Cell[150885, 3494, 1157, 20, 34, "Print",ExpressionUUID->"4f93ed98-4459-4e63-b6d1-40cc6ef1cb0a"],
Cell[152045, 3516, 1148, 18, 34, "Print",ExpressionUUID->"421600f5-2856-46ca-8697-ef040225986f"],
Cell[153196, 3536, 2356, 48, 36, "Print",ExpressionUUID->"c47f112c-8184-4da1-aca0-6948fbfcc2ed"],
Cell[155555, 3586, 2655, 55, 36, "Print",ExpressionUUID->"879d4dc4-86c3-43ba-b5ee-8295e9b2601e"],
Cell[158213, 3643, 1760, 35, 36, "Print",ExpressionUUID->"2c5bbb65-6b32-4fe5-be52-0e70c1f4869f"],
Cell[159976, 3680, 1320, 25, 34, "Print",ExpressionUUID->"59742fb9-ddb9-4e03-9f3a-5124f9d77a79"]
}, Open  ]]
}, Open  ]],
Cell[161323, 3709, 1281, 38, 203, "Input",ExpressionUUID->"500c10d2-3b8f-4037-9f23-5b7521c96c25"],
Cell[162607, 3749, 1082, 23, 66, "Input",ExpressionUUID->"c3441053-ac28-4c2e-ba5b-50dbb8c94920"],
Cell[163692, 3774, 3632, 118, 381, "Input",ExpressionUUID->"f0cd2e24-94be-4541-9eee-2a9df7964ca9"],
Cell[167327, 3894, 1040, 22, 66, "Input",ExpressionUUID->"b7be9b3e-2a97-4bad-8396-e15993c3243f"],
Cell[168370, 3918, 5190, 169, 552, "Input",ExpressionUUID->"d5627323-7379-4994-a01e-4d406872e7b1"],
Cell[173563, 4089, 2949, 61, 123, "Input",ExpressionUUID->"7ca234ca-9f84-4489-a52f-2f7e629ae13f"],
Cell[176515, 4152, 15027, 500, 1176, "Input",ExpressionUUID->"0d712d41-11fa-4f79-b30a-54146de0b343"],
Cell[191545, 4654, 2949, 61, 123, "Input",ExpressionUUID->"c6e21468-5c21-4388-8bfb-578a10136ea3"],
Cell[194497, 4717, 18731, 587, 1408, "Input",ExpressionUUID->"22e95860-d06e-46b6-a3e9-4349d9143f81"]
}
]
*)