(* 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 *)