(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 41606, 1061] NotebookOptionsPosition[ 40688, 1027] NotebookOutlinePosition[ 41032, 1042] CellTagsIndexPosition[ 40989, 1039] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"n", "=", "4"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "L", "]"}], "\[IndentingNewLine]", RowBox[{"$Assumptions", "=", RowBox[{"{", RowBox[{"L", ">", "0"}], "}"}]}], "\[IndentingNewLine]", RowBox[{"R", "=", FractionBox["L", RowBox[{"2", " ", RowBox[{"Sin", "[", RowBox[{"\[Pi]", "/", "n"}], "]"}]}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vg", "[", RowBox[{"x1_", ",", "x2_", ",", "L_", ",", "k_"}], "]"}], ":=", RowBox[{ FractionBox["k", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"x2", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"x2", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "2"]}], ")"}], RowBox[{"1", "/", "2"}]], "-", "L"}], ")"}], "2"]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"VL", "[", RowBox[{"x1_", ",", "x2_"}], "]"}], ":=", RowBox[{"Vg", "[", RowBox[{"x1", ",", "x2", ",", "L", ",", RowBox[{"2", "k"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"VS", "[", RowBox[{"x1_", ",", "x2_"}], "]"}], ":=", RowBox[{"Vg", "[", RowBox[{"x1", ",", "x2", ",", "R", ",", "k"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x0", "[", "i_", "]"}], ":=", RowBox[{"R", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", "\[Pi]", " ", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "/", "n"}]}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"2", "\[Pi]", " ", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "/", "n"}]}], "]"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "V", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"V", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"VL", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"x", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "n"}], "]"}], "+", "1"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"VS", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"VS", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"2", RowBox[{"x0", "[", "i", "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xtab", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"x0", "[", "i", "]"}], "+", RowBox[{"\[Epsilon]", RowBox[{"{", RowBox[{ SubscriptBox["x", "i"], ",", SubscriptBox["x", RowBox[{"n", "+", "i"}]]}], "}"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ytab", "=", RowBox[{"\[Epsilon]", RowBox[{"{", RowBox[{ SubscriptBox["x", "0"], ",", SubscriptBox["x", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ser", "=", RowBox[{"Series", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"xtab", ",", "ytab"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Epsilon]", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"poly", "=", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{"Normal", "[", "ser", "]"}], ",", "\[Epsilon]", ",", "2"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"M", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Coefficient", "[", RowBox[{"poly", ",", RowBox[{ SubscriptBox["x", "i"], SubscriptBox["x", "j"]}]}], "]"}], RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", "j"}], ",", "1", ",", RowBox[{"1", "/", "2"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "M", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"eigenvalues", ",", "eigenvectors"}], "}"}], "=", RowBox[{"Eigensystem", "[", "M", "]"}]}]}], "Input", CellChangeTimes->{{3.663011286652955*^9, 3.663011305411028*^9}, { 3.6630114716095343`*^9, 3.663011555926357*^9}, {3.663011656058084*^9, 3.6630116922041516`*^9}, {3.663011732052431*^9, 3.6630119663158298`*^9}, { 3.66301201509562*^9, 3.663012091624997*^9}, {3.6630121540055647`*^9, 3.6630122170091686`*^9}, {3.6630122491550074`*^9, 3.6630123165698633`*^9}, {3.6630123533009644`*^9, 3.6630123607543907`*^9}, 3.6630124831723924`*^9, {3.663012514816202*^9, 3.663012516774314*^9}, { 3.6630125688362923`*^9, 3.6630126632316914`*^9}, {3.6630127756561213`*^9, 3.6630127920910616`*^9}, {3.663012831140295*^9, 3.663012886042435*^9}, { 3.663012919918373*^9, 3.663013085111821*^9}, {3.6630131529287004`*^9, 3.6630131531637135`*^9}, {3.6630131911908884`*^9, 3.663013206543767*^9}, { 3.663013303143292*^9, 3.6630133614576273`*^9}, {3.663013394675527*^9, 3.6630134200789804`*^9}, {3.663013459669245*^9, 3.663013530967323*^9}, { 3.663013561719082*^9, 3.6630136056045914`*^9}, {3.663014014646988*^9, 3.6630141754801865`*^9}, 3.663014323822672*^9, {3.6630144508149347`*^9, 3.663014451088951*^9}, {3.6630147069975877`*^9, 3.6630147148630376`*^9}, { 3.663014788091226*^9, 3.6630148300996284`*^9}, {3.6630148692548685`*^9, 3.663014890403078*^9}, {3.6630149439341397`*^9, 3.663014952193612*^9}, { 3.6630150250917816`*^9, 3.6630150335122633`*^9}, {3.6630150803679433`*^9, 3.6630150906705327`*^9}, {3.6630153278761*^9, 3.6630153488062973`*^9}, { 3.663017483892417*^9, 3.663017488351672*^9}, {3.663017916906184*^9, 3.6630182147322187`*^9}, {3.6630182657471366`*^9, 3.663018292814685*^9}, { 3.6630200061406813`*^9, 3.6630200077267723`*^9}, 3.6630206052969513`*^9, 3.6630206813693027`*^9, {3.663020777405795*^9, 3.6630207999830866`*^9}, 3.663020944338343*^9, {3.663021251764927*^9, 3.6630212609994555`*^9}, 3.6630215767225137`*^9, {3.6630216073692665`*^9, 3.6630216076122804`*^9}, 3.663021934180959*^9, {3.66302515990746*^9, 3.6630251996067305`*^9}, { 3.6630252635173864`*^9, 3.6630252991804256`*^9}, {3.663025347387183*^9, 3.6630253485732512`*^9}, {3.663117209421525*^9, 3.663117209931554*^9}, { 3.6663936462721834`*^9, 3.666393646422192*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{ 3.663012092168028*^9, 3.663012154286581*^9, 3.6630122172691836`*^9, { 3.663012256298416*^9, 3.663012316810877*^9}, {3.6630123545190334`*^9, 3.6630123610014043`*^9}, {3.6630124834904103`*^9, 3.663012516982326*^9}, { 3.6630125698943524`*^9, 3.6630126635197077`*^9}, 3.6630127946242065`*^9, { 3.6630129487990246`*^9, 3.6630129651219583`*^9}, {3.663013015453837*^9, 3.6630130853478346`*^9}, {3.663013131054449*^9, 3.6630131553058357`*^9}, 3.663013208080855*^9, {3.66301330468438*^9, 3.6630133616856403`*^9}, { 3.663013396193614*^9, 3.663013420324994*^9}, {3.6630134602072754`*^9, 3.663013531394347*^9}, {3.66301356762842*^9, 3.663013605902609*^9}, { 3.6630140149950075`*^9, 3.66301411119351*^9}, {3.6630141429523263`*^9, 3.66301417588721*^9}, 3.6630143245807147`*^9, 3.663014451318964*^9, 3.6630147174561863`*^9, {3.663014788669259*^9, 3.6630148307926683`*^9}, { 3.6630148695578856`*^9, 3.6630148935782595`*^9}, 3.6630149527446437`*^9, { 3.6630150260508366`*^9, 3.6630150336792727`*^9}, 3.6630150939997234`*^9, { 3.6630153283941298`*^9, 3.6630153509674206`*^9}, 3.6630175080898013`*^9, { 3.6630180599273643`*^9, 3.6630180710500007`*^9}, {3.663018117322647*^9, 3.663018215006234*^9}, {3.6630182694533486`*^9, 3.6630182931157017`*^9}, 3.6630200090258465`*^9, 3.663020606813038*^9, 3.6630206817393236`*^9, { 3.6630207799499407`*^9, 3.6630208005221176`*^9}, 3.663020944646361*^9, { 3.663021252428965*^9, 3.6630212615924892`*^9}, 3.6630215769535265`*^9, 3.663021607855294*^9, 3.6630219345529804`*^9, {3.6630251663918304`*^9, 3.663025177437463*^9}, {3.6630252720568743`*^9, 3.66302529976746*^9}, 3.6630253490022755`*^9, 3.663117714391407*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"L", ">", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.663012092168028*^9, 3.663012154286581*^9, 3.6630122172691836`*^9, { 3.663012256298416*^9, 3.663012316810877*^9}, {3.6630123545190334`*^9, 3.6630123610014043`*^9}, {3.6630124834904103`*^9, 3.663012516982326*^9}, { 3.6630125698943524`*^9, 3.6630126635197077`*^9}, 3.6630127946242065`*^9, { 3.6630129487990246`*^9, 3.6630129651219583`*^9}, {3.663013015453837*^9, 3.6630130853478346`*^9}, {3.663013131054449*^9, 3.6630131553058357`*^9}, 3.663013208080855*^9, {3.66301330468438*^9, 3.6630133616856403`*^9}, { 3.663013396193614*^9, 3.663013420324994*^9}, {3.6630134602072754`*^9, 3.663013531394347*^9}, {3.66301356762842*^9, 3.663013605902609*^9}, { 3.6630140149950075`*^9, 3.66301411119351*^9}, {3.6630141429523263`*^9, 3.66301417588721*^9}, 3.6630143245807147`*^9, 3.663014451318964*^9, 3.6630147174561863`*^9, {3.663014788669259*^9, 3.6630148307926683`*^9}, { 3.6630148695578856`*^9, 3.6630148935782595`*^9}, 3.6630149527446437`*^9, { 3.6630150260508366`*^9, 3.6630150336792727`*^9}, 3.6630150939997234`*^9, { 3.6630153283941298`*^9, 3.6630153509674206`*^9}, 3.6630175080898013`*^9, { 3.6630180599273643`*^9, 3.6630180710500007`*^9}, {3.663018117322647*^9, 3.663018215006234*^9}, {3.6630182694533486`*^9, 3.6630182931157017`*^9}, 3.6630200090258465`*^9, 3.663020606813038*^9, 3.6630206817393236`*^9, { 3.6630207799499407`*^9, 3.6630208005221176`*^9}, 3.663020944646361*^9, { 3.663021252428965*^9, 3.6630212615924892`*^9}, 3.6630215769535265`*^9, 3.663021607855294*^9, 3.6630219345529804`*^9, {3.6630251663918304`*^9, 3.663025177437463*^9}, {3.6630252720568743`*^9, 3.66302529976746*^9}, 3.6630253490022755`*^9, 3.6631177144134083`*^9}], Cell[BoxData[ FractionBox["L", SqrtBox["2"]]], "Output", CellChangeTimes->{ 3.663012092168028*^9, 3.663012154286581*^9, 3.6630122172691836`*^9, { 3.663012256298416*^9, 3.663012316810877*^9}, {3.6630123545190334`*^9, 3.6630123610014043`*^9}, {3.6630124834904103`*^9, 3.663012516982326*^9}, { 3.6630125698943524`*^9, 3.6630126635197077`*^9}, 3.6630127946242065`*^9, { 3.6630129487990246`*^9, 3.6630129651219583`*^9}, {3.663013015453837*^9, 3.6630130853478346`*^9}, {3.663013131054449*^9, 3.6630131553058357`*^9}, 3.663013208080855*^9, {3.66301330468438*^9, 3.6630133616856403`*^9}, { 3.663013396193614*^9, 3.663013420324994*^9}, {3.6630134602072754`*^9, 3.663013531394347*^9}, {3.66301356762842*^9, 3.663013605902609*^9}, { 3.6630140149950075`*^9, 3.66301411119351*^9}, {3.6630141429523263`*^9, 3.66301417588721*^9}, 3.6630143245807147`*^9, 3.663014451318964*^9, 3.6630147174561863`*^9, {3.663014788669259*^9, 3.6630148307926683`*^9}, { 3.6630148695578856`*^9, 3.6630148935782595`*^9}, 3.6630149527446437`*^9, { 3.6630150260508366`*^9, 3.6630150336792727`*^9}, 3.6630150939997234`*^9, { 3.6630153283941298`*^9, 3.6630153509674206`*^9}, 3.6630175080898013`*^9, { 3.6630180599273643`*^9, 3.6630180710500007`*^9}, {3.663018117322647*^9, 3.663018215006234*^9}, {3.6630182694533486`*^9, 3.6630182931157017`*^9}, 3.6630200090258465`*^9, 3.663020606813038*^9, 3.6630206817393236`*^9, { 3.6630207799499407`*^9, 3.6630208005221176`*^9}, 3.663020944646361*^9, { 3.663021252428965*^9, 3.6630212615924892`*^9}, 3.6630215769535265`*^9, 3.663021607855294*^9, 3.6630219345529804`*^9, {3.6630251663918304`*^9, 3.663025177437463*^9}, {3.6630252720568743`*^9, 3.66302529976746*^9}, 3.6630253490022755`*^9, 3.663117714415409*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"k", " ", SubsuperscriptBox["x", "0", "2"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "0"], " ", SubscriptBox["x", "1"]}], "+", RowBox[{"2", " ", "k", " ", SubsuperscriptBox["x", "1", "2"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "1"], " ", SubscriptBox["x", "2"]}], "+", RowBox[{"k", " ", SubsuperscriptBox["x", "2", "2"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "0"], " ", SubscriptBox["x", "3"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "2"], " ", SubscriptBox["x", "3"]}], "+", RowBox[{"2", " ", "k", " ", SubsuperscriptBox["x", "3", "2"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "1"], " ", SubscriptBox["x", "4"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "3"], " ", SubscriptBox["x", "4"]}], "+", RowBox[{"k", " ", SubsuperscriptBox["x", "4", "2"]}], "+", RowBox[{"k", " ", SubscriptBox["x", "2"], " ", SubscriptBox["x", "5"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "4"], " ", SubscriptBox["x", "5"]}], "+", RowBox[{"k", " ", SubsuperscriptBox["x", "5", "2"]}], "+", RowBox[{"k", " ", SubscriptBox["x", "1"], " ", SubscriptBox["x", "6"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "3"], " ", SubscriptBox["x", "6"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "5"], " ", SubscriptBox["x", "6"]}], "+", RowBox[{"2", " ", "k", " ", SubsuperscriptBox["x", "6", "2"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "2"], " ", SubscriptBox["x", "7"]}], "+", RowBox[{"k", " ", SubscriptBox["x", "4"], " ", SubscriptBox["x", "7"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "6"], " ", SubscriptBox["x", "7"]}], "+", RowBox[{"k", " ", SubsuperscriptBox["x", "7", "2"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "1"], " ", SubscriptBox["x", "8"]}], "+", RowBox[{"k", " ", SubscriptBox["x", "3"], " ", SubscriptBox["x", "8"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "5"], " ", SubscriptBox["x", "8"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "7"], " ", SubscriptBox["x", "8"]}], "+", RowBox[{"2", " ", "k", " ", SubsuperscriptBox["x", "8", "2"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "6"], " ", SubscriptBox["x", "9"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "8"], " ", SubscriptBox["x", "9"]}], "+", RowBox[{"k", " ", SubsuperscriptBox["x", "9", "2"]}]}], ")"}], " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"], SeriesData[$CellContext`\[Epsilon], 0, {}, 2, 3, 1], Editable->False]}], SeriesData[$CellContext`\[Epsilon], 0, {$CellContext`k Subscript[$CellContext`x, 0]^2 - $CellContext`k Subscript[$CellContext`x, 0] Subscript[$CellContext`x, 1] + 2 $CellContext`k Subscript[$CellContext`x, 1]^2 - $CellContext`k Subscript[$CellContext`x, 1] Subscript[$CellContext`x, 2] + $CellContext`k Subscript[$CellContext`x, 2]^2 - $CellContext`k Subscript[$CellContext`x, 0] Subscript[$CellContext`x, 3] - $CellContext`k Subscript[$CellContext`x, 2] Subscript[$CellContext`x, 3] + 2 $CellContext`k Subscript[$CellContext`x, 3]^2 - $CellContext`k Subscript[$CellContext`x, 1] Subscript[$CellContext`x, 4] - $CellContext`k Subscript[$CellContext`x, 3] Subscript[$CellContext`x, 4] + $CellContext`k Subscript[$CellContext`x, 4]^2 + $CellContext`k Subscript[$CellContext`x, 2] Subscript[$CellContext`x, 5] - $CellContext`k Subscript[$CellContext`x, 4] Subscript[$CellContext`x, 5] + $CellContext`k Subscript[$CellContext`x, 5]^2 + $CellContext`k Subscript[$CellContext`x, 1] Subscript[$CellContext`x, 6] - $CellContext`k Subscript[$CellContext`x, 3] Subscript[$CellContext`x, 6] - $CellContext`k Subscript[$CellContext`x, 5] Subscript[$CellContext`x, 6] + 2 $CellContext`k Subscript[$CellContext`x, 6]^2 - $CellContext`k Subscript[$CellContext`x, 2] Subscript[$CellContext`x, 7] + $CellContext`k Subscript[$CellContext`x, 4] Subscript[$CellContext`x, 7] - $CellContext`k Subscript[$CellContext`x, 6] Subscript[$CellContext`x, 7] + $CellContext`k Subscript[$CellContext`x, 7]^2 - $CellContext`k Subscript[$CellContext`x, 1] Subscript[$CellContext`x, 8] + $CellContext`k Subscript[$CellContext`x, 3] Subscript[$CellContext`x, 8] - $CellContext`k Subscript[$CellContext`x, 5] Subscript[$CellContext`x, 8] - $CellContext`k Subscript[$CellContext`x, 7] Subscript[$CellContext`x, 8] + 2 $CellContext`k Subscript[$CellContext`x, 8]^2 - $CellContext`k Subscript[$CellContext`x, 6] Subscript[$CellContext`x, 9] - $CellContext`k Subscript[$CellContext`x, 8] Subscript[$CellContext`x, 9] + $CellContext`k Subscript[$CellContext`x, 9]^2}, 2, 3, 1], Editable->False]], "Output", CellChangeTimes->{ 3.663012092168028*^9, 3.663012154286581*^9, 3.6630122172691836`*^9, { 3.663012256298416*^9, 3.663012316810877*^9}, {3.6630123545190334`*^9, 3.6630123610014043`*^9}, {3.6630124834904103`*^9, 3.663012516982326*^9}, { 3.6630125698943524`*^9, 3.6630126635197077`*^9}, 3.6630127946242065`*^9, { 3.6630129487990246`*^9, 3.6630129651219583`*^9}, {3.663013015453837*^9, 3.6630130853478346`*^9}, {3.663013131054449*^9, 3.6630131553058357`*^9}, 3.663013208080855*^9, {3.66301330468438*^9, 3.6630133616856403`*^9}, { 3.663013396193614*^9, 3.663013420324994*^9}, {3.6630134602072754`*^9, 3.663013531394347*^9}, {3.66301356762842*^9, 3.663013605902609*^9}, { 3.6630140149950075`*^9, 3.66301411119351*^9}, {3.6630141429523263`*^9, 3.66301417588721*^9}, 3.6630143245807147`*^9, 3.663014451318964*^9, 3.6630147174561863`*^9, {3.663014788669259*^9, 3.6630148307926683`*^9}, { 3.6630148695578856`*^9, 3.6630148935782595`*^9}, 3.6630149527446437`*^9, { 3.6630150260508366`*^9, 3.6630150336792727`*^9}, 3.6630150939997234`*^9, { 3.6630153283941298`*^9, 3.6630153509674206`*^9}, 3.6630175080898013`*^9, { 3.6630180599273643`*^9, 3.6630180710500007`*^9}, {3.663018117322647*^9, 3.663018215006234*^9}, {3.6630182694533486`*^9, 3.6630182931157017`*^9}, 3.6630200090258465`*^9, 3.663020606813038*^9, 3.6630206817393236`*^9, { 3.6630207799499407`*^9, 3.6630208005221176`*^9}, 3.663020944646361*^9, { 3.663021252428965*^9, 3.6630212615924892`*^9}, 3.6630215769535265`*^9, 3.663021607855294*^9, 3.6630219345529804`*^9, {3.6630251663918304`*^9, 3.663025177437463*^9}, {3.6630252720568743`*^9, 3.66302529976746*^9}, 3.6630253490022755`*^9, 3.6631177147464275`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"k", " ", SubsuperscriptBox["x", "0", "2"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "0"], " ", SubscriptBox["x", "1"]}], "+", RowBox[{"2", " ", "k", " ", SubsuperscriptBox["x", "1", "2"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "1"], " ", SubscriptBox["x", "2"]}], "+", RowBox[{"k", " ", SubsuperscriptBox["x", "2", "2"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "0"], " ", SubscriptBox["x", "3"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "2"], " ", SubscriptBox["x", "3"]}], "+", RowBox[{"2", " ", "k", " ", SubsuperscriptBox["x", "3", "2"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "1"], " ", SubscriptBox["x", "4"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "3"], " ", SubscriptBox["x", "4"]}], "+", RowBox[{"k", " ", SubsuperscriptBox["x", "4", "2"]}], "+", RowBox[{"k", " ", SubscriptBox["x", "2"], " ", SubscriptBox["x", "5"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "4"], " ", SubscriptBox["x", "5"]}], "+", RowBox[{"k", " ", SubsuperscriptBox["x", "5", "2"]}], "+", RowBox[{"k", " ", SubscriptBox["x", "1"], " ", SubscriptBox["x", "6"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "3"], " ", SubscriptBox["x", "6"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "5"], " ", SubscriptBox["x", "6"]}], "+", RowBox[{"2", " ", "k", " ", SubsuperscriptBox["x", "6", "2"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "2"], " ", SubscriptBox["x", "7"]}], "+", RowBox[{"k", " ", SubscriptBox["x", "4"], " ", SubscriptBox["x", "7"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "6"], " ", SubscriptBox["x", "7"]}], "+", RowBox[{"k", " ", SubsuperscriptBox["x", "7", "2"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "1"], " ", SubscriptBox["x", "8"]}], "+", RowBox[{"k", " ", SubscriptBox["x", "3"], " ", SubscriptBox["x", "8"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "5"], " ", SubscriptBox["x", "8"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "7"], " ", SubscriptBox["x", "8"]}], "+", RowBox[{"2", " ", "k", " ", SubsuperscriptBox["x", "8", "2"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "6"], " ", SubscriptBox["x", "9"]}], "-", RowBox[{"k", " ", SubscriptBox["x", "8"], " ", SubscriptBox["x", "9"]}], "+", RowBox[{"k", " ", SubsuperscriptBox["x", "9", "2"]}]}]], "Output", CellChangeTimes->{ 3.663012092168028*^9, 3.663012154286581*^9, 3.6630122172691836`*^9, { 3.663012256298416*^9, 3.663012316810877*^9}, {3.6630123545190334`*^9, 3.6630123610014043`*^9}, {3.6630124834904103`*^9, 3.663012516982326*^9}, { 3.6630125698943524`*^9, 3.6630126635197077`*^9}, 3.6630127946242065`*^9, { 3.6630129487990246`*^9, 3.6630129651219583`*^9}, {3.663013015453837*^9, 3.6630130853478346`*^9}, {3.663013131054449*^9, 3.6630131553058357`*^9}, 3.663013208080855*^9, {3.66301330468438*^9, 3.6630133616856403`*^9}, { 3.663013396193614*^9, 3.663013420324994*^9}, {3.6630134602072754`*^9, 3.663013531394347*^9}, {3.66301356762842*^9, 3.663013605902609*^9}, { 3.6630140149950075`*^9, 3.66301411119351*^9}, {3.6630141429523263`*^9, 3.66301417588721*^9}, 3.6630143245807147`*^9, 3.663014451318964*^9, 3.6630147174561863`*^9, {3.663014788669259*^9, 3.6630148307926683`*^9}, { 3.6630148695578856`*^9, 3.6630148935782595`*^9}, 3.6630149527446437`*^9, { 3.6630150260508366`*^9, 3.6630150336792727`*^9}, 3.6630150939997234`*^9, { 3.6630153283941298`*^9, 3.6630153509674206`*^9}, 3.6630175080898013`*^9, { 3.6630180599273643`*^9, 3.6630180710500007`*^9}, {3.663018117322647*^9, 3.663018215006234*^9}, {3.6630182694533486`*^9, 3.6630182931157017`*^9}, 3.6630200090258465`*^9, 3.663020606813038*^9, 3.6630206817393236`*^9, { 3.6630207799499407`*^9, 3.6630208005221176`*^9}, 3.663020944646361*^9, { 3.663021252428965*^9, 3.6630212615924892`*^9}, 3.6630215769535265`*^9, 3.663021607855294*^9, 3.6630219345529804`*^9, {3.6630251663918304`*^9, 3.663025177437463*^9}, {3.6630252720568743`*^9, 3.66302529976746*^9}, 3.6630253490022755`*^9, 3.6631177147554283`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"k", RowBox[{"-", FractionBox["k", "2"]}], "0", RowBox[{"-", FractionBox["k", "2"]}], "0", "0", "0", "0", "0", "0"}, { RowBox[{"-", FractionBox["k", "2"]}], RowBox[{"2", " ", "k"}], RowBox[{"-", FractionBox["k", "2"]}], "0", RowBox[{"-", FractionBox["k", "2"]}], "0", FractionBox["k", "2"], "0", RowBox[{"-", FractionBox["k", "2"]}], "0"}, {"0", RowBox[{"-", FractionBox["k", "2"]}], "k", RowBox[{"-", FractionBox["k", "2"]}], "0", FractionBox["k", "2"], "0", RowBox[{"-", FractionBox["k", "2"]}], "0", "0"}, { RowBox[{"-", FractionBox["k", "2"]}], "0", RowBox[{"-", FractionBox["k", "2"]}], RowBox[{"2", " ", "k"}], RowBox[{"-", FractionBox["k", "2"]}], "0", RowBox[{"-", FractionBox["k", "2"]}], "0", FractionBox["k", "2"], "0"}, {"0", RowBox[{"-", FractionBox["k", "2"]}], "0", RowBox[{"-", FractionBox["k", "2"]}], "k", RowBox[{"-", FractionBox["k", "2"]}], "0", FractionBox["k", "2"], "0", "0"}, {"0", "0", FractionBox["k", "2"], "0", RowBox[{"-", FractionBox["k", "2"]}], "k", RowBox[{"-", FractionBox["k", "2"]}], "0", RowBox[{"-", FractionBox["k", "2"]}], "0"}, {"0", FractionBox["k", "2"], "0", RowBox[{"-", FractionBox["k", "2"]}], "0", RowBox[{"-", FractionBox["k", "2"]}], RowBox[{"2", " ", "k"}], RowBox[{"-", FractionBox["k", "2"]}], "0", RowBox[{"-", FractionBox["k", "2"]}]}, {"0", "0", RowBox[{"-", FractionBox["k", "2"]}], "0", FractionBox["k", "2"], "0", RowBox[{"-", FractionBox["k", "2"]}], "k", RowBox[{"-", FractionBox["k", "2"]}], "0"}, {"0", RowBox[{"-", FractionBox["k", "2"]}], "0", FractionBox["k", "2"], "0", RowBox[{"-", FractionBox["k", "2"]}], "0", RowBox[{"-", FractionBox["k", "2"]}], RowBox[{"2", " ", "k"}], RowBox[{"-", FractionBox["k", "2"]}]}, {"0", "0", "0", "0", "0", "0", RowBox[{"-", FractionBox["k", "2"]}], "0", RowBox[{"-", FractionBox["k", "2"]}], "k"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.663012092168028*^9, 3.663012154286581*^9, 3.6630122172691836`*^9, { 3.663012256298416*^9, 3.663012316810877*^9}, {3.6630123545190334`*^9, 3.6630123610014043`*^9}, {3.6630124834904103`*^9, 3.663012516982326*^9}, { 3.6630125698943524`*^9, 3.6630126635197077`*^9}, 3.6630127946242065`*^9, { 3.6630129487990246`*^9, 3.6630129651219583`*^9}, {3.663013015453837*^9, 3.6630130853478346`*^9}, {3.663013131054449*^9, 3.6630131553058357`*^9}, 3.663013208080855*^9, {3.66301330468438*^9, 3.6630133616856403`*^9}, { 3.663013396193614*^9, 3.663013420324994*^9}, {3.6630134602072754`*^9, 3.663013531394347*^9}, {3.66301356762842*^9, 3.663013605902609*^9}, { 3.6630140149950075`*^9, 3.66301411119351*^9}, {3.6630141429523263`*^9, 3.66301417588721*^9}, 3.6630143245807147`*^9, 3.663014451318964*^9, 3.6630147174561863`*^9, {3.663014788669259*^9, 3.6630148307926683`*^9}, { 3.6630148695578856`*^9, 3.6630148935782595`*^9}, 3.6630149527446437`*^9, { 3.6630150260508366`*^9, 3.6630150336792727`*^9}, 3.6630150939997234`*^9, { 3.6630153283941298`*^9, 3.6630153509674206`*^9}, 3.6630175080898013`*^9, { 3.6630180599273643`*^9, 3.6630180710500007`*^9}, {3.663018117322647*^9, 3.663018215006234*^9}, {3.6630182694533486`*^9, 3.6630182931157017`*^9}, 3.6630200090258465`*^9, 3.663020606813038*^9, 3.6630206817393236`*^9, { 3.6630207799499407`*^9, 3.6630208005221176`*^9}, 3.663020944646361*^9, { 3.663021252428965*^9, 3.6630212615924892`*^9}, 3.6630215769535265`*^9, 3.663021607855294*^9, 3.6630219345529804`*^9, {3.6630251663918304`*^9, 3.663025177437463*^9}, {3.6630252720568743`*^9, 3.66302529976746*^9}, 3.6630253490022755`*^9, 3.6631177148514338`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", " ", "k"}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["7"]}], ")"}], " ", "k"}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["7"]}], ")"}], " ", "k"}], ",", RowBox[{"2", " ", "k"}], ",", "k", ",", "k", ",", "k", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"3", "-", SqrtBox["7"]}], ")"}], " ", "k"}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"3", "-", SqrtBox["7"]}], ")"}], " ", "k"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "0", ",", "0", ",", RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", RowBox[{"-", FractionBox[ RowBox[{"5", "-", SqrtBox["7"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SqrtBox["7"]}], ")"}]}]]}], ",", "1", ",", RowBox[{"-", FractionBox[ RowBox[{"5", "-", SqrtBox["7"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SqrtBox["7"]}], ")"}]}]]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", SqrtBox["7"]}], ")"}]}], ",", "1", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", SqrtBox["7"]}], ")"}]}], ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1"}], ",", "0", ",", "1", ",", RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", "1"}], ",", "0", ",", RowBox[{"-", "1"}], ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", RowBox[{"-", "1"}], ",", "0", ",", "0", ",", RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"-", "5"}], "-", SqrtBox["7"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["7"]}], ")"}]}]]}], ",", "1", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"-", "5"}], "-", SqrtBox["7"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["7"]}], ")"}]}]]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["7"]}], ")"}]}], ",", "1", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["7"]}], ")"}]}], ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.663012092168028*^9, 3.663012154286581*^9, 3.6630122172691836`*^9, { 3.663012256298416*^9, 3.663012316810877*^9}, {3.6630123545190334`*^9, 3.6630123610014043`*^9}, {3.6630124834904103`*^9, 3.663012516982326*^9}, { 3.6630125698943524`*^9, 3.6630126635197077`*^9}, 3.6630127946242065`*^9, { 3.6630129487990246`*^9, 3.6630129651219583`*^9}, {3.663013015453837*^9, 3.6630130853478346`*^9}, {3.663013131054449*^9, 3.6630131553058357`*^9}, 3.663013208080855*^9, {3.66301330468438*^9, 3.6630133616856403`*^9}, { 3.663013396193614*^9, 3.663013420324994*^9}, {3.6630134602072754`*^9, 3.663013531394347*^9}, {3.66301356762842*^9, 3.663013605902609*^9}, { 3.6630140149950075`*^9, 3.66301411119351*^9}, {3.6630141429523263`*^9, 3.66301417588721*^9}, 3.6630143245807147`*^9, 3.663014451318964*^9, 3.6630147174561863`*^9, {3.663014788669259*^9, 3.6630148307926683`*^9}, { 3.6630148695578856`*^9, 3.6630148935782595`*^9}, 3.6630149527446437`*^9, { 3.6630150260508366`*^9, 3.6630150336792727`*^9}, 3.6630150939997234`*^9, { 3.6630153283941298`*^9, 3.6630153509674206`*^9}, 3.6630175080898013`*^9, { 3.6630180599273643`*^9, 3.6630180710500007`*^9}, {3.663018117322647*^9, 3.663018215006234*^9}, {3.6630182694533486`*^9, 3.6630182931157017`*^9}, 3.6630200090258465`*^9, 3.663020606813038*^9, 3.6630206817393236`*^9, { 3.6630207799499407`*^9, 3.6630208005221176`*^9}, 3.663020944646361*^9, { 3.663021252428965*^9, 3.6630212615924892`*^9}, 3.6630215769535265`*^9, 3.663021607855294*^9, 3.6630219345529804`*^9, {3.6630251663918304`*^9, 3.663025177437463*^9}, {3.6630252720568743`*^9, 3.66302529976746*^9}, 3.6630253490022755`*^9, 3.6631177149504395`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"VR", "[", RowBox[{"R_", ",", "\[Theta]_"}], "]"}], ":=", RowBox[{ RowBox[{"4", FractionBox["k", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", FractionBox["L", RowBox[{"\[Sqrt]", "2"}]]}], ")"}], "2"]}], "+", RowBox[{"4", " ", FractionBox[ RowBox[{"2", "k"}], "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Sqrt]", "2"}], " ", "R"}], "-", "L"}], ")"}], "2"]}], "+", RowBox[{"4", FractionBox["k", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Sqrt]", "2"}], "L"}], "-", RowBox[{"R", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "2"]}], ")"}], RowBox[{"1", "/", "2"}]], "-", RowBox[{ FractionBox["1", RowBox[{"\[Sqrt]", "2"}]], "L"}]}], ")"}], "2"]}]}]}], "\[IndentingNewLine]", RowBox[{"Series", "[", RowBox[{ RowBox[{"VR", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", RowBox[{"\[Sqrt]", "2"}]], "L"}], " ", "+", RowBox[{"c", " ", SuperscriptBox["\[Theta]", "2"]}]}], ",", "\[Theta]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"L", ">", "0"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.6648544568243837`*^9, 3.664854645285163*^9}, { 3.664854714177103*^9, 3.6648548209542108`*^9}, {3.664854852960041*^9, 3.6648548964115267`*^9}, {3.6648549377218895`*^9, 3.664854977398159*^9}, { 3.6648551944635744`*^9, 3.6648552561010995`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"12", " ", SuperscriptBox["c", "2"], " ", "k"}], "-", RowBox[{"2", " ", SqrtBox["2"], " ", "c", " ", "k", " ", "L"}], "+", RowBox[{"k", " ", SuperscriptBox["L", "2"]}]}], ")"}], " ", SuperscriptBox["\[Theta]", "4"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[Theta]", "]"}], "5"], SeriesData[$CellContext`\[Theta], 0, {}, 4, 5, 1], Editable->False]}], SeriesData[$CellContext`\[Theta], 0, { 12 $CellContext`c^2 $CellContext`k - 2 2^Rational[ 1, 2] $CellContext`c $CellContext`k $CellContext`L + $CellContext`k \ $CellContext`L^2}, 4, 5, 1], Editable->False]], "Output", CellChangeTimes->{{3.6648547525782995`*^9, 3.664854821302231*^9}, { 3.664854858772374*^9, 3.6648548966715417`*^9}, {3.6648549565029635`*^9, 3.6648549777281775`*^9}, {3.664855215915801*^9, 3.6648552565351243`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"12", " ", SuperscriptBox["c", "2"], " ", "k"}], "-", RowBox[{"2", " ", SqrtBox["2"], " ", "c", " ", "k", " ", "L"}], "+", RowBox[{"k", " ", SuperscriptBox["L", "2"]}]}], ",", "c"}], "]"}], "\[Equal]", "0"}], ",", "c"}], "]"}]], "Input", CellChangeTimes->{{3.6648550393867044`*^9, 3.664855051794414*^9}, 3.664855278936406*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"c", "\[Rule]", FractionBox["L", RowBox[{"6", " ", SqrtBox["2"]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.6648550426378903`*^9, 3.664855052144434*^9}, 3.664855280346486*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"V4", "=", RowBox[{"Series", "[", RowBox[{ RowBox[{"VR", "[", RowBox[{ RowBox[{ FractionBox["L", RowBox[{"\[Sqrt]", "2"}]], "+", RowBox[{ FractionBox["L", RowBox[{"6", " ", SqrtBox["2"]}]], SuperscriptBox["\[Theta]", "2"]}]}], ",", "\[Theta]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"L", ">", "0"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.664855097983056*^9, 3.664855142793619*^9}, { 3.66485528477874*^9, 3.664855295116331*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{ FractionBox["5", "6"], " ", "k", " ", SuperscriptBox["L", "2"], " ", SuperscriptBox["\[Theta]", "4"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[Theta]", "]"}], "5"], SeriesData[$CellContext`\[Theta], 0, {}, 4, 5, 1], Editable->False]}], SeriesData[$CellContext`\[Theta], 0, { Rational[5, 6] $CellContext`k $CellContext`L^2}, 4, 5, 1], Editable->False]], "Output", CellChangeTimes->{ 3.66485514334665*^9, {3.664855288403947*^9, 3.6648552954213486`*^9}}] }, Open ]] }, WindowSize->{759, 738}, WindowMargins->{{41, Automatic}, {11, Automatic}}, FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (October 9, 2015)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 7578, 203, 406, "Input"], Cell[8161, 227, 1760, 24, 31, "Output"], Cell[9924, 253, 1807, 26, 31, "Output"], Cell[11734, 281, 1792, 26, 51, "Output"], Cell[13529, 309, 7164, 163, 76, "Output"], Cell[20696, 474, 4244, 105, 72, "Output"], Cell[24943, 581, 4699, 125, 262, "Output"], Cell[29645, 708, 5879, 148, 299, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35561, 861, 2014, 62, 143, "Input"], Cell[37578, 925, 994, 26, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38609, 956, 506, 15, 39, "Input"], Cell[39118, 973, 262, 8, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39417, 986, 677, 20, 52, "Input"], Cell[40097, 1008, 575, 16, 46, "Output"] }, Open ]] } ] *) (* End of internal cache information *)