(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 26001, 816] NotebookOptionsPosition[ 24706, 770] NotebookOutlinePosition[ 25051, 785] CellTagsIndexPosition[ 25008, 782] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "the", " ", "original", " ", "argument", " ", "of", " ", "the", " ", RowBox[{"exponent", ".", " ", "The"}], " ", "expression", " ", "for", " ", "G", " ", "is", " ", "mu"}], " ", "-", " ", RowBox[{"0.5", " ", SuperscriptBox["s", "2"]}], "-", "r", "+", RowBox[{"0.5", " ", SuperscriptBox["st", "2"], " ", "and", " ", "given", " ", "the", " ", "definition", " ", "of", " ", "alpha", " ", "in", " ", "the", " ", "appendix", " ", "equals", " ", "G"}]}], " ", "=", " ", RowBox[{ FractionBox["2", SuperscriptBox["s", "2"]], "alpha"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"d2", "=", RowBox[{ FractionBox["s", "st"], FractionBox[ RowBox[{"(", RowBox[{"xp", "-", RowBox[{"G", " ", "tp"}]}], ")"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "tp"}], "]"}]]}]}], ";"}], RowBox[{"(*", " ", RowBox[{"d_", "2", RowBox[{"(", RowBox[{ RowBox[{"x", " ", "prime"}], ",", " ", RowBox[{"tau", " ", "prime"}]}], ")"}], " ", "G", " ", "is", " ", "a", " ", "constant"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["s", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"xp", "-", RowBox[{"G", " ", "tpp"}]}], ")"}], "2"]}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], "tpp"}]}], ")"}]}]]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"c", RowBox[{"(", RowBox[{ RowBox[{"x", " ", "primt"}], ",", " ", RowBox[{"tau", " ", "prime", " ", "prime"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v", "=", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], SuperscriptBox["d2", "2"]}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "xp"}], ")"}], "2"], RowBox[{"4", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}]}]], "+", "c"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"everything", " ", "combined"}], " ", "*)"}]}]}]], "Input", CellChangeTimes->{{3.521892592830619*^9, 3.521892684488042*^9}, { 3.5219692507033796`*^9, 3.52196925464093*^9}, {3.5219701078668385`*^9, 3.521970115944977*^9}, {3.5266447585456963`*^9, 3.5266447714052362`*^9}, { 3.526644821765256*^9, 3.5266449574544926`*^9}, {3.526645020377173*^9, 3.52664505489324*^9}, {3.5266451294879446`*^9, 3.5266452762710733`*^9}, { 3.5267233722552414`*^9, 3.5267234170526896`*^9}, {3.5267264532165523`*^9, 3.5267264989515123`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Expand", "[", "v", "]"}]], "Input", CellChangeTimes->{{3.521892689425605*^9, 3.521892691675634*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["G", "2"], " ", SuperscriptBox["s", "2"], " ", "tp"}], RowBox[{"4", " ", SuperscriptBox["st", "2"]}]]}], "-", FractionBox[ RowBox[{ SuperscriptBox["G", "2"], " ", SuperscriptBox["s", "2"], " ", SuperscriptBox["tpp", "2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tpp"}]}], ")"}]}]], "-", FractionBox[ SuperscriptBox["x", "2"], RowBox[{"4", " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}]}]], "+", FractionBox[ RowBox[{"G", " ", SuperscriptBox["s", "2"], " ", "xp"}], RowBox[{"2", " ", SuperscriptBox["st", "2"]}]], "+", FractionBox[ RowBox[{"G", " ", SuperscriptBox["s", "2"], " ", "tpp", " ", "xp"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tpp"}]}], ")"}]}]], "+", FractionBox[ RowBox[{"x", " ", "xp"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}]}]], "-", FractionBox[ SuperscriptBox["xp", "2"], RowBox[{"4", " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["s", "2"], " ", SuperscriptBox["xp", "2"]}], RowBox[{"4", " ", SuperscriptBox["st", "2"], " ", "tp"}]], "-", FractionBox[ RowBox[{ SuperscriptBox["s", "2"], " ", SuperscriptBox["xp", "2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tpp"}]}], ")"}]}]]}]], "Output", CellChangeTimes->{3.5218926922850165`*^9, 3.5219692606878824`*^9, 3.5219701199450283`*^9, 3.5219702202269344`*^9, 3.5266451944106503`*^9, 3.5266452651615562`*^9, 3.5269799067648287`*^9, 3.526980531757204*^9}] }, Open ]], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ "Extract", " ", "the", " ", "coefficients", " ", "of", " ", "each", " ", "power", " ", "of", " ", "xprime"}], "\[IndentingNewLine]", RowBox[{"This", " ", "writes", " ", "the", " ", "exponent", " ", "as"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "'"}], ")"}], "2"]}], "+", RowBox[{"bTilde", " ", RowBox[{"x", "'"}]}], "+", "cTilde"}]}]}]], "Text", CellChangeTimes->{{3.521969650894927*^9, 3.52196967142635*^9}, { 3.5219697106140833`*^9, 3.521969718051678*^9}, 3.5266457709265237`*^9, 3.5267234285840874`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"d", "=", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{"Expand", "[", "v", "]"}], ",", SuperscriptBox["xp", "2"]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"bTilde", "=", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{"Expand", "[", "v", "]"}], ",", "xp"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"cTilde", "=", RowBox[{ RowBox[{ RowBox[{"Expand", "[", "v", "]"}], "-", RowBox[{"bTilde", " ", "xp"}], "-", RowBox[{"d", " ", SuperscriptBox["xp", "2"]}]}], "//", "Simplify"}]}]}], "Input", CellChangeTimes->{{3.521892706972705*^9, 3.521892714738429*^9}, { 3.52190249930117*^9, 3.52190253562976*^9}, {3.5219693440639496`*^9, 3.5219693814238033`*^9}, {3.521969566863139*^9, 3.521969594285186*^9}, { 3.5219696774419627`*^9, 3.5219697289579782`*^9}, {3.5219702327582555`*^9, 3.5219702420083737`*^9}, 3.521970367915429*^9, {3.5266457780203648`*^9, 3.526645788270496*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"4", " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}]}]]}], "-", FractionBox[ SuperscriptBox["s", "2"], RowBox[{"4", " ", SuperscriptBox["st", "2"], " ", "tp"}]], "-", FractionBox[ SuperscriptBox["s", "2"], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tpp"}]}], ")"}]}]]}]], "Output", CellChangeTimes->{ 3.521892715097809*^9, {3.521902527989037*^9, 3.5219025360047646`*^9}, 3.5219692634847937`*^9, {3.521969368954893*^9, 3.521969382267564*^9}, { 3.5219695691600437`*^9, 3.521969595347699*^9}, 3.5219696905983377`*^9, 3.521970127257532*^9, {3.521970224320737*^9, 3.5219702423677535`*^9}, 3.5219703687279396`*^9, 3.5266456801441116`*^9, {3.5266457805985227`*^9, 3.526645789286134*^9}, 3.526645885193611*^9, 3.5267235607264037`*^9, 3.5269805340072327`*^9}], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"G", " ", SuperscriptBox["s", "2"]}], RowBox[{"2", " ", SuperscriptBox["st", "2"]}]], "+", FractionBox[ RowBox[{"G", " ", SuperscriptBox["s", "2"], " ", "tpp"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tpp"}]}], ")"}]}]], "+", FractionBox["x", RowBox[{"2", " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}]}]]}]], "Output", CellChangeTimes->{ 3.521892715097809*^9, {3.521902527989037*^9, 3.5219025360047646`*^9}, 3.5219692634847937`*^9, {3.521969368954893*^9, 3.521969382267564*^9}, { 3.5219695691600437`*^9, 3.521969595347699*^9}, 3.5219696905983377`*^9, 3.521970127257532*^9, {3.521970224320737*^9, 3.5219702423677535`*^9}, 3.5219703687279396`*^9, 3.5266456801441116`*^9, {3.5266457805985227`*^9, 3.526645789286134*^9}, 3.526645885193611*^9, 3.5267235607264037`*^9, 3.5269805340228577`*^9}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["G", "2"], " ", SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", "tp", " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tpp", " ", RowBox[{"(", RowBox[{"tp", "+", "tpp"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tpp"}]}], ")"}], " ", SuperscriptBox["x", "2"]}]}], RowBox[{"4", " ", SuperscriptBox["st", "2"], " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tpp"}]}], ")"}]}]]}]], "Output", CellChangeTimes->{ 3.521892715097809*^9, {3.521902527989037*^9, 3.5219025360047646`*^9}, 3.5219692634847937`*^9, {3.521969368954893*^9, 3.521969382267564*^9}, { 3.5219695691600437`*^9, 3.521969595347699*^9}, 3.5219696905983377`*^9, 3.521970127257532*^9, {3.521970224320737*^9, 3.5219702423677535`*^9}, 3.5219703687279396`*^9, 3.5266456801441116`*^9, {3.5266457805985227`*^9, 3.526645789286134*^9}, 3.526645885193611*^9, 3.5267235607264037`*^9, 3.526980534194735*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Next", " ", "write", " ", "the", " ", "exponent", " ", "as"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "'"}], ")"}], "2"], "+", RowBox[{ FractionBox["bTilde", "d"], RowBox[{"x", "'"}]}]}], ")"}]}], "+", "cTilde"}]}], "Text", CellChangeTimes->{{3.5219697387861395`*^9, 3.521969771645756*^9}, { 3.5219703720717325`*^9, 3.5219703783686876`*^9}, {3.526645798426876*^9, 3.5266458019894214`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["bTilde", "d"]], "Input", CellChangeTimes->{{3.521892719863495*^9, 3.521892740645011*^9}, { 3.521969801567835*^9, 3.5219698039897404`*^9}, 3.526645806395728*^9}], Cell[BoxData[ FractionBox[ RowBox[{ FractionBox[ RowBox[{"G", " ", SuperscriptBox["s", "2"]}], RowBox[{"2", " ", SuperscriptBox["st", "2"]}]], "+", FractionBox[ RowBox[{"G", " ", SuperscriptBox["s", "2"], " ", "tpp"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tpp"}]}], ")"}]}]], "+", FractionBox["x", RowBox[{"2", " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}]}]]}], RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"4", " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}]}]]}], "-", FractionBox[ SuperscriptBox["s", "2"], RowBox[{"4", " ", SuperscriptBox["st", "2"], " ", "tp"}]], "-", FractionBox[ SuperscriptBox["s", "2"], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tpp"}]}], ")"}]}]]}]]], "Output", CellChangeTimes->{3.5218927412543936`*^9, 3.5219025405673227`*^9, 3.521969338392002*^9, 3.5219698056616373`*^9, 3.5219703816655154`*^9, 3.526645810473905*^9, 3.5266458879123964`*^9, 3.526723581757923*^9, 3.52698060449251*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"To", " ", "write", " ", "this", " ", "as"}], " "}], "\[IndentingNewLine]", RowBox[{"d", SuperscriptBox[ RowBox[{"(", " ", RowBox[{ RowBox[{"x", "'"}], " ", "+", " ", FractionBox["bTilde", RowBox[{"2", " ", "d"}]]}], ")"}], "2"]}], "\[IndentingNewLine]", RowBox[{"we", " ", "need", " ", "to", " ", "subtract"}], "\[IndentingNewLine]", RowBox[{ FractionBox[ SuperscriptBox["bTilde", "2"], RowBox[{"4", "d"}]], "from", " ", "cTilde", " "}]}], "Text", CellChangeTimes->{{3.521969814786664*^9, 3.521969822114883*^9}, { 3.52196992203741*^9, 3.521969971506524*^9}, {3.5219704049938498`*^9, 3.5219704241033792`*^9}, 3.526645852271315*^9, {3.5266458955531187`*^9, 3.526645904693861*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"g", "=", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["bTilde", "2"], RowBox[{"4", " ", "d"}]]}], "+", "cTilde"}]}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", "g", "]"}]}], "Input", CellChangeTimes->{{3.5219699889285326`*^9, 3.5219700407413373`*^9}, 3.5219704309315023`*^9, 3.526645913678351*^9, {3.5267236055082273`*^9, 3.5267236115864296`*^9}, {3.5267243228924093`*^9, 3.526724325673695*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"G", " ", SuperscriptBox["s", "2"]}], RowBox[{"2", " ", SuperscriptBox["st", "2"]}]], "+", FractionBox[ RowBox[{"G", " ", SuperscriptBox["s", "2"], " ", "tpp"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tpp"}]}], ")"}]}]], "+", FractionBox["x", RowBox[{"2", " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}]}]]}], ")"}], "2"], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"4", " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}]}]]}], "-", FractionBox[ SuperscriptBox["s", "2"], RowBox[{"4", " ", SuperscriptBox["st", "2"], " ", "tp"}]], "-", FractionBox[ SuperscriptBox["s", "2"], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tpp"}]}], ")"}]}]]}], ")"}]}]]}], "-", FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["G", "2"], " ", SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", "tp", " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tpp", " ", RowBox[{"(", RowBox[{"tp", "+", "tpp"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tpp"}]}], ")"}], " ", SuperscriptBox["x", "2"]}]}], RowBox[{"4", " ", SuperscriptBox["st", "2"], " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tpp"}]}], ")"}]}]]}]], "Output", CellChangeTimes->{{3.5219699989129457`*^9, 3.5219700412100935`*^9}, 3.5219704319940157`*^9, 3.52664591045956*^9, {3.526646317277267*^9, 3.526646344011984*^9}, {3.5267236068832445`*^9, 3.5267236120239353`*^9}, 3.5267243260487*^9, 3.526980606617537*^9}], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["G", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["st", "2"], " ", "tp", " ", "tpp", " ", RowBox[{"(", RowBox[{"tp", "+", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"t", " ", "tp"}], "-", RowBox[{"t", " ", "tpp"}], "+", RowBox[{"tp", " ", "tpp"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "G", " ", "tp", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["st", "2"], " ", "tpp"}]}], ")"}], " ", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", RowBox[{"(", RowBox[{"tp", "+", "tpp"}], ")"}]}]}], ")"}], " ", SuperscriptBox["x", "2"]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "4"], " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}], " ", RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "4"], " ", "tp", " ", "tpp"}], "+", RowBox[{ SuperscriptBox["s", "2"], " ", SuperscriptBox["st", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "tp", " ", "tpp"}], "+", RowBox[{"t", " ", RowBox[{"(", RowBox[{"tp", "+", "tpp"}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]}]], "Output", CellChangeTimes->{{3.5219699989129457`*^9, 3.5219700412100935`*^9}, 3.5219704319940157`*^9, 3.52664591045956*^9, {3.526646317277267*^9, 3.526646344011984*^9}, {3.5267236068832445`*^9, 3.5267236120239353`*^9}, 3.5267243260487*^9, 3.5269806067112885`*^9}] }, Open ]], Cell["Lets check our algebra upto this point", "Text", CellChangeTimes->{{3.526723627008502*^9, 3.526723633086705*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"d", SuperscriptBox[ RowBox[{"(", RowBox[{"xp", "+", FractionBox["bTilde", RowBox[{"2", " ", "d"}]]}], ")"}], "2"]}], "+", "g", "-", "v"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.5219700733353252`*^9, 3.521970099147977*^9}, { 3.5219704362753205`*^9, 3.52197043819722*^9}, {3.5266463278555274`*^9, 3.526646346840145*^9}, 3.5267236232115784`*^9}], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.521970088819809*^9, 3.5219700994448557`*^9}, 3.5219704453690977`*^9, {3.526646324214856*^9, 3.5266463475120287`*^9}, 3.5269836338750353`*^9}] }, Open ]], Cell["Lets check this result with what the book claims", "Text", CellChangeTimes->{{3.526724815461214*^9, 3.52672482100816*^9}, { 3.5267250696363425`*^9, 3.5267250706363554`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", RowBox[{ FractionBox[ SuperscriptBox["s", "2"], "2"], "G"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"booksg", "=", RowBox[{ RowBox[{ FractionBox[ RowBox[{"-", SuperscriptBox["s", "2"]}], RowBox[{"4", " ", SuperscriptBox["st", "2"], "tp"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", RowBox[{"2", " ", "a", " ", FractionBox["tp", SuperscriptBox["s", "2"]]}]}], ")"}], "2"]}], "-", RowBox[{ FractionBox[ SuperscriptBox["s", "2"], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], "tpp"}]}], ")"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", RowBox[{"2", " ", "a", " ", FractionBox["tpp", SuperscriptBox["s", "2"]]}]}], ")"}], "2"]}], "+", RowBox[{ FractionBox["1", "4"], FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["s", "2"], RowBox[{ SuperscriptBox["st", "2"], "tp"}]], RowBox[{"(", RowBox[{"x", "-", RowBox[{"2", "a", " ", FractionBox["tp", SuperscriptBox["s", "2"]]}]}], ")"}]}], "+", RowBox[{ FractionBox[ SuperscriptBox["s", "2"], RowBox[{ RowBox[{ SuperscriptBox["s", "2"], RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], "tpp"}]}]], RowBox[{"(", RowBox[{"x", "-", RowBox[{"2", "a", " ", FractionBox["tpp", SuperscriptBox["s", "2"]]}]}], ")"}]}]}], ")"}], "2"], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["s", "2"], SuperscriptBox["st", "2"]], FractionBox["1", "tp"]}], "+", FractionBox["1", RowBox[{"t", "-", "tp"}]], "+", FractionBox[ SuperscriptBox["s", "2"], RowBox[{ RowBox[{ SuperscriptBox["s", "2"], RowBox[{"(", RowBox[{"tp", "-", "tpp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], "tpp"}]}]]}], ")"}]]}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.526724835305218*^9, 3.526724995666646*^9}, { 3.526725026229537*^9, 3.5267250461047916`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"g", "-", "booksg"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.5267250094168215`*^9, 3.526725017557551*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.5267250133074965`*^9, 3.5267250184481874`*^9}, 3.526725048792326*^9, 3.5269836410470023`*^9}] }, Open ]] }, WindowSize->{970, 1256}, WindowMargins->{{11, Automatic}, {Automatic, 2}}, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 3019, 85, 206, "Input"], Cell[CellGroupData[{ Cell[3589, 109, 125, 2, 31, "Input"], Cell[3717, 113, 2256, 76, 102, "Output"] }, Open ]], Cell[5988, 192, 675, 17, 68, "Text"], Cell[CellGroupData[{ Cell[6688, 213, 967, 23, 74, "Input"], Cell[7658, 238, 1078, 29, 55, "Output"], Cell[8739, 269, 1107, 30, 55, "Output"], Cell[9849, 301, 1726, 49, 56, "Output"] }, Open ]], Cell[11590, 353, 567, 16, 65, "Text"], Cell[CellGroupData[{ Cell[12182, 373, 192, 3, 47, "Input"], Cell[12377, 378, 1466, 48, 84, "Output"] }, Open ]], Cell[13858, 429, 776, 20, 127, "Text"], Cell[CellGroupData[{ Cell[14659, 453, 463, 10, 73, "Input"], Cell[15125, 465, 3003, 95, 88, "Output"], Cell[18131, 562, 2488, 72, 55, "Output"] }, Open ]], Cell[20634, 637, 120, 1, 29, "Text"], Cell[CellGroupData[{ Cell[20779, 642, 447, 12, 48, "Input"], Cell[21229, 656, 200, 3, 30, "Output"] }, Open ]], Cell[21444, 662, 182, 2, 29, "Text"], Cell[21629, 666, 2732, 90, 123, "Input"], Cell[CellGroupData[{ Cell[24386, 760, 153, 3, 31, "Input"], Cell[24542, 765, 148, 2, 30, "Output"] }, Open ]] } ] *) (* End of internal cache information *)