(* 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[ 12347, 419] NotebookOptionsPosition[ 11152, 374] NotebookOutlinePosition[ 11501, 389] CellTagsIndexPosition[ 11458, 386] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"the", " ", "original", " ", "expression"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{ FractionBox[ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "xp"}], ")"}], "2"]}], RowBox[{"4", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}]}]], "-", RowBox[{ FractionBox["1", "4"], FractionBox[ SuperscriptBox["s", "2"], RowBox[{ SuperscriptBox["st", "2"], "tp"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"xp", "-", "m"}], ")"}], "2"]}]}]}]}]], "Input", CellChangeTimes->{{3.521892592830619*^9, 3.521892684488042*^9}, { 3.5219692507033796`*^9, 3.52196925464093*^9}, {3.5219701078668385`*^9, 3.521970115944977*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "xp"}], ")"}], "2"], RowBox[{"4", " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}]}]]}], "-", FractionBox[ RowBox[{ SuperscriptBox["s", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "m"}], "+", "xp"}], ")"}], "2"]}], RowBox[{"4", " ", SuperscriptBox["st", "2"], " ", "tp"}]]}]], "Output", CellChangeTimes->{3.5218926867224455`*^9, 3.521969256453453*^9, 3.521970116632486*^9, 3.521970218242534*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Expand", "[", "v", "]"}]], "Input", CellChangeTimes->{{3.521892689425605*^9, 3.521892691675634*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["m", "2"], " ", SuperscriptBox["s", "2"]}], RowBox[{"4", " ", SuperscriptBox["st", "2"], " ", "tp"}]]}], "-", FractionBox[ SuperscriptBox["x", "2"], RowBox[{"4", " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}]}]], "+", FractionBox[ RowBox[{"m", " ", SuperscriptBox["s", "2"], " ", "xp"}], RowBox[{"2", " ", SuperscriptBox["st", "2"], " ", "tp"}]], "+", 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"}]]}]], "Output", CellChangeTimes->{3.5218926922850165`*^9, 3.5219692606878824`*^9, 3.5219701199450283`*^9, 3.5219702202269344`*^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[{ RowBox[{"-", "a"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "'"}], ")"}], "2"]}], "+", RowBox[{"bTilde", " ", RowBox[{"x", "'"}]}], "+", "cTilde"}]}]}]], "Text", CellChangeTimes->{{3.521969650894927*^9, 3.52196967142635*^9}, { 3.5219697106140833`*^9, 3.521969718051678*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", 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[{"a", " ", 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}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"4", " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}]}]]}], "-", FractionBox[ SuperscriptBox["s", "2"], RowBox[{"4", " ", SuperscriptBox["st", "2"], " ", "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}], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"m", " ", SuperscriptBox["s", "2"]}], RowBox[{"2", " ", SuperscriptBox["st", "2"], " ", "tp"}]], "+", 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}], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["m", "2"], " ", SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "t"}], "+", "tp"}], ")"}]}], "-", RowBox[{ SuperscriptBox["st", "2"], " ", "tp", " ", SuperscriptBox["x", "2"]}]}], RowBox[{"4", " ", SuperscriptBox["st", "2"], " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}], " ", "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}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Next", " ", "write", " ", "the", " ", "exponent", " ", "as"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "'"}], ")"}], "2"], "+", RowBox[{ FractionBox["bTilde", "a"], RowBox[{"x", "'"}]}]}], ")"}]}], "+", "cTilde"}]}], "Text", CellChangeTimes->{{3.5219697387861395`*^9, 3.521969771645756*^9}, { 3.5219703720717325`*^9, 3.5219703783686876`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["bTilde", "a"]], "Input", CellChangeTimes->{{3.521892719863495*^9, 3.521892740645011*^9}, { 3.521969801567835*^9, 3.5219698039897404`*^9}}], Cell[BoxData[ FractionBox[ RowBox[{ FractionBox[ RowBox[{"m", " ", SuperscriptBox["s", "2"]}], RowBox[{"2", " ", SuperscriptBox["st", "2"], " ", "tp"}]], "+", 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"}]]}]]], "Output", CellChangeTimes->{3.5218927412543936`*^9, 3.5219025405673227`*^9, 3.521969338392002*^9, 3.5219698056616373`*^9, 3.5219703816655154`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"a", RowBox[{"(", RowBox[{ SuperscriptBox["xp", "2"], "+", RowBox[{ FractionBox["bTilde", "a"], "xp"}]}], ")"}]}], "+", "cTilde", "-", "v"}], "//", "Simplify", " ", RowBox[{"(*", " ", RowBox[{"we", " ", "have", " ", "everythign", " ", "correct"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.521970140788895*^9, 3.5219701552265406`*^9}, { 3.521970277992941*^9, 3.521970278727325*^9}, {3.521970383978045*^9, 3.5219704003844156`*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.521970155585888*^9, {3.521970270227306*^9, 3.521970279289832*^9}, 3.521970388181224*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"To", " ", "write", " ", "this", " ", "as"}], " "}], "\[IndentingNewLine]", RowBox[{"a", SuperscriptBox[ RowBox[{"(", " ", RowBox[{ RowBox[{"x", "'"}], " ", "+", " ", FractionBox["bTilde", RowBox[{"2", " ", "a"}]]}], ")"}], "2"]}], "\[IndentingNewLine]", RowBox[{"we", " ", "need", " ", "to", " ", "subtract"}], "\[IndentingNewLine]", RowBox[{ FractionBox[ SuperscriptBox["bTilde", "2"], RowBox[{"4", "a"}]], "from", " ", "cTilde", " "}]}], "Text", CellChangeTimes->{{3.521969814786664*^9, 3.521969822114883*^9}, { 3.52196992203741*^9, 3.521969971506524*^9}, {3.5219704049938498`*^9, 3.5219704241033792`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c", "=", RowBox[{ RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["bTilde", "2"], RowBox[{"4", " ", "a"}]]}], "+", "cTilde"}], "//", "Simplify"}]}]], "Input", CellChangeTimes->{{3.5219699889285326`*^9, 3.5219700407413373`*^9}, 3.5219704309315023`*^9}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["s", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", "x"}], ")"}], "2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"t", "-", "tp"}], ")"}]}], "+", RowBox[{ SuperscriptBox["st", "2"], " ", "tp"}]}], ")"}]}]]}]], "Output", CellChangeTimes->{{3.5219699989129457`*^9, 3.5219700412100935`*^9}, 3.5219704319940157`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"a", SuperscriptBox[ RowBox[{"(", RowBox[{"xp", "+", FractionBox["bTilde", RowBox[{"2", " ", "a"}]]}], ")"}], "2"]}], "+", "c", "-", "v"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.5219700733353252`*^9, 3.521970099147977*^9}, { 3.5219704362753205`*^9, 3.52197043819722*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.521970088819809*^9, 3.5219700994448557`*^9}, 3.5219704453690977`*^9}] }, Open ]] }, WindowSize->{616, 1068}, WindowMargins->{{Automatic, -1942}, {26, Automatic}}, 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[CellGroupData[{ Cell[567, 22, 815, 26, 73, "Input"], Cell[1385, 50, 598, 20, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2020, 75, 125, 2, 31, "Input"], Cell[2148, 79, 1063, 36, 52, "Output"] }, Open ]], Cell[3226, 118, 643, 17, 68, "Text"], Cell[CellGroupData[{ Cell[3894, 139, 915, 22, 74, "Input"], Cell[4812, 163, 622, 16, 52, "Output"], Cell[5437, 181, 625, 16, 52, "Output"], Cell[6065, 199, 784, 21, 52, "Output"] }, Open ]], Cell[6864, 223, 516, 15, 65, "Text"], Cell[CellGroupData[{ Cell[7405, 242, 169, 3, 47, "Input"], Cell[7577, 247, 710, 23, 78, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8324, 275, 532, 15, 68, "Input"], Cell[8859, 292, 145, 3, 30, "Output"] }, Open ]], Cell[9019, 298, 700, 19, 127, "Text"], Cell[CellGroupData[{ Cell[9744, 321, 315, 10, 51, "Input"], Cell[10062, 333, 540, 18, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10639, 356, 370, 11, 48, "Input"], Cell[11012, 369, 124, 2, 30, "Output"] }, Open ]] } ] *) (* End of internal cache information *)