(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 79943, 1704] NotebookOptionsPosition[ 78380, 1648] NotebookOutlinePosition[ 78951, 1669] CellTagsIndexPosition[ 78908, 1666] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ (* 2 H atoms 20.10.2012/19.03.2013 ES *) Clear[R,d,i,T,Vne,Vnn,Vee,r,r1,r2,func,s,n,u]; sig=0.4165; n=21; d = (1.025-0.025*i)*R; T = (9/4)/R^2; Vne = -2*(1.5-0.5*((d-r)/R)^2)/R-2/(r+d); If[d+r < R, Vne = -2*(1.5-0.5*((d-r)/R)^2)/R-2*(1.5-0.5*((d+r)/R)^2)/R]; Vnn=1/(2*r); Vee=(1.2-0.5*(2*d/R)^2+(3/16)*(2*d/R)^3-(1/160)*(2*d/R)^5)/R; (* If[d > R, Vner = -2/d]; *) func = T + Vne + Vnn + Vee; t=Table[FindMinimum[func, {R, 0.996}, {r,0.5}, {Method->\"Newton\", \ MaxIterations -> 500}],{i,1,n}]\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5726688613501077`*^9, 3.5726688776209364`*^9}, { 3.572669341347351*^9, 3.572669391407839*^9}, {3.5726694392063227`*^9, 3.5726694510935435`*^9}, {3.572669636359469*^9, 3.572669644019082*^9}, { 3.57267922292356*^9, 3.572679225403965*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4999999999350813`"}], ",", RowBox[{"r", "\[Rule]", "1.499999999897373`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.00000039266163`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4999997054731322`"}], ",", RowBox[{"r", "\[Rule]", "1.4624997128180945`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0000063179924357`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.499995261514202`"}], ",", RowBox[{"r", "\[Rule]", "1.4249954984300706`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.000032179629655`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.499975865854218`"}], ",", RowBox[{"r", "\[Rule]", "1.3874776759114393`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0001023729902938`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4999232261494484`"}], ",", RowBox[{"r", "\[Rule]", "1.3499309035329525`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0002517131965212`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4998112507339276`"}], ",", RowBox[{"r", "\[Rule]", "1.3123348443915768`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0005259735556273`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4996056753793654`"}], ",", RowBox[{"r", "\[Rule]", "1.2746648240722362`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0009825632482867`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4992636201740768`"}], ",", RowBox[{"r", "\[Rule]", "1.2368924866435373`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.001691381255111`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4987330709772995`"}], ",", RowBox[{"r", "\[Rule]", "1.198986456781816`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0027358943036049`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4979522800745906`"}], ",", RowBox[{"r", "\[Rule]", "1.1609130170578008`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0042145006156262`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.496849080711174`"}], ",", RowBox[{"r", "\[Rule]", "1.1226368105333788`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0062422597015928`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4953401100928005`"}], ",", RowBox[{"r", "\[Rule]", "1.08412157981728`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0089530931174693`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4933299292358535`"}], ",", RowBox[{"r", "\[Rule]", "1.0453309462689835`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0125025944668837`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4907100727105858`"}], ",", RowBox[{"r", "\[Rule]", "1.00622929746309`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.017071632617081`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4873579121311105`"}], ",", RowBox[{"r", "\[Rule]", "0.9667826423254773`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0228709954395891`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4831354890976018`"}], ",", RowBox[{"r", "\[Rule]", "0.9269596805136495`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.030147410349827`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.477888165584033`"}], ",", RowBox[{"r", "\[Rule]", "0.8867328993036137`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0391914045724882`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4714431450195957`"}], ",", RowBox[{"r", "\[Rule]", "0.846079808375145`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0503476509768526`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4636078319906634`"}], ",", RowBox[{"r", "\[Rule]", "0.8049843075926129`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0640287135943645`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4541680055713353`"}], ",", RowBox[{"r", "\[Rule]", "0.7634382029246182`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0807335069444448`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4428857715409593`"}], ",", RowBox[{"r", "\[Rule]", "0.7214428857704885`"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5726792588660235`*^9, 3.572679317880927*^9, 3.5726795084820623`*^9, 3.5726795966534166`*^9, 3.572679855847872*^9, 3.5726798865175257`*^9, 3.5726799790100884`*^9, 3.5726800653094397`*^9, 3.5726800985218983`*^9, 3.5726804359348907`*^9, 3.5726804694125495`*^9, 3.572680663882491*^9, 3.572695388750909*^9, 3.572695623344121*^9, 3.572695725539901*^9, 3.572695810201249*^9, {3.57269586721935*^9, 3.572695895221399*^9}, 3.572695926827054*^9, 3.57269602683883*^9, 3.572696084621331*^9, 3.57269623179199*^9, 3.5726963085285244`*^9, 3.572696426246331*^9, { 3.5726965247673044`*^9, 3.572696546002142*^9}, 3.572696682869982*^9, 3.5726967405832825`*^9, 3.572696970567686*^9, 3.5726970504642267`*^9, 3.5726971021315174`*^9, 3.5726972110977087`*^9, 3.5726972897998466`*^9, 3.5726987119139442`*^9, 3.5726989193319087`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Q=Table[t[[{i},2,1]],{i,1,n}]; P=Table[t[[{i},2,2]],{i,1,n}]; B=Table[t[[i,1]],{i,1,n}] Vir=Table[-(Vne+Vnn+Vee)/T /. t[[{i},2]],{i,1,n}]\ \>", "Input", PageWidth->WindowWidth], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.`"}], ",", RowBox[{"-", "1.00000039266163`"}], ",", RowBox[{"-", "1.0000063179924357`"}], ",", RowBox[{"-", "1.000032179629655`"}], ",", RowBox[{"-", "1.0001023729902938`"}], ",", RowBox[{"-", "1.0002517131965212`"}], ",", RowBox[{"-", "1.0005259735556273`"}], ",", RowBox[{"-", "1.0009825632482867`"}], ",", RowBox[{"-", "1.001691381255111`"}], ",", RowBox[{"-", "1.0027358943036049`"}], ",", RowBox[{"-", "1.0042145006156262`"}], ",", RowBox[{"-", "1.0062422597015928`"}], ",", RowBox[{"-", "1.0089530931174693`"}], ",", RowBox[{"-", "1.0125025944668837`"}], ",", RowBox[{"-", "1.017071632617081`"}], ",", RowBox[{"-", "1.0228709954395891`"}], ",", RowBox[{"-", "1.030147410349827`"}], ",", RowBox[{"-", "1.0391914045724882`"}], ",", RowBox[{"-", "1.0503476509768526`"}], ",", RowBox[{"-", "1.0640287135943645`"}], ",", RowBox[{"-", "1.0807335069444448`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5726792588972235`*^9, 3.5726793179121275`*^9, 3.572679508513262*^9, 3.572679596684617*^9, 3.572679855879072*^9, 3.572679886548726*^9, 3.5726799790412884`*^9, 3.57268006532504*^9, 3.5726800985530987`*^9, 3.572680435981691*^9, 3.57268046944375*^9, 3.5726806639136915`*^9, 3.5726953887821093`*^9, 3.572695623390921*^9, 3.5726957255711007`*^9, 3.5726958102324495`*^9, {3.5726958672505493`*^9, 3.572695895252599*^9}, 3.5726959268738546`*^9, 3.57269602687003*^9, 3.5726960846681314`*^9, 3.5726962318231897`*^9, 3.5726963085441246`*^9, 3.5726964262775316`*^9, { 3.5726965247829046`*^9, 3.5726965460333414`*^9}, 3.5726966829011817`*^9, 3.5726967405988827`*^9, 3.5726969705988865`*^9, 3.5726970504798265`*^9, 3.572697102178317*^9, 3.572697211144509*^9, 3.572697289846647*^9, 3.5726987119451447`*^9, 3.572698919363109*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "1.9999999999134415`", "}"}], ",", RowBox[{"{", "1.999999999959024`", "}"}], ",", RowBox[{"{", "1.9999999999814337`", "}"}], ",", RowBox[{"{", "1.9999999999919866`", "}"}], ",", RowBox[{"{", "1.9999999999967233`", "}"}], ",", RowBox[{"{", "1.9999999999987401`", "}"}], ",", RowBox[{"{", "1.9999999999995466`", "}"}], ",", RowBox[{"{", "1.9999999999998497`", "}"}], ",", RowBox[{"{", "1.9999999999999538`", "}"}], ",", RowBox[{"{", "1.9999999999999873`", "}"}], ",", RowBox[{"{", "1.9999999999999964`", "}"}], ",", RowBox[{"{", "1.9999999999999991`", "}"}], ",", RowBox[{"{", "1.999999992041612`", "}"}], ",", RowBox[{"{", "1.9999999968262139`", "}"}], ",", RowBox[{"{", "1.999999998825631`", "}"}], ",", RowBox[{"{", "1.9999999995926103`", "}"}], ",", RowBox[{"{", "1.9999999998638787`", "}"}], ",", RowBox[{"{", "1.9999999999540687`", "}"}], ",", RowBox[{"{", "1.9999999999834284`", "}"}], ",", RowBox[{"{", "1.999999999993358`", "}"}], ",", RowBox[{"{", "1.9999999999970526`", "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5726792588972235`*^9, 3.5726793179121275`*^9, 3.572679508513262*^9, 3.572679596684617*^9, 3.572679855879072*^9, 3.572679886548726*^9, 3.5726799790412884`*^9, 3.57268006532504*^9, 3.5726800985530987`*^9, 3.572680435981691*^9, 3.57268046944375*^9, 3.5726806639136915`*^9, 3.5726953887821093`*^9, 3.572695623390921*^9, 3.5726957255711007`*^9, 3.5726958102324495`*^9, {3.5726958672505493`*^9, 3.572695895252599*^9}, 3.5726959268738546`*^9, 3.57269602687003*^9, 3.5726960846681314`*^9, 3.5726962318231897`*^9, 3.5726963085441246`*^9, 3.5726964262775316`*^9, { 3.5726965247829046`*^9, 3.5726965460333414`*^9}, 3.5726966829011817`*^9, 3.5726967405988827`*^9, 3.5726969705988865`*^9, 3.5726970504798265`*^9, 3.572697102178317*^9, 3.572697211144509*^9, 3.572697289846647*^9, 3.5726987119451447`*^9, 3.572698919363109*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Plot1=Table[Graphics[{Circle[{-d /. Q[[i]],0},R /. Q[[i]]],Circle[{d /. \ Q[[i]],0},R /. Q[[i]]],Circle[{-d /. Q[[i]],0},0.06],Circle[{d /. \ Q[[i]],0},0.06], Disk[{-r /. P[[i]],0},0.06],Disk[{r /. \ P[[i]],0},0.06],Disk[{-d /. Q[[i]],10*(B[[i]]+0.96)-1.21},0.06],Disk[{d /. \ Q[[i]],10*(B[[i]]+0.96)-1.21},0.06]}],{i,1,n}]; Plot3=Table[Graphics[{Disk[{-d/.Q[[i]],10*(B[[i]]+0.96)-1.21},0.03], Disk[{d/.Q[[i]],10*(B[[i]]+0.96)-1.21},0.03]}],{i,1,n}]; Show[Plot1,{AspectRatio \[Rule] Automatic,PlotRange \[Rule] {{-3,3},{-4,2}}, \ Frame -> True}]\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{ 3.572669031593207*^9, {3.572678591521251*^9, 3.5726786099760838`*^9}, { 3.5726786428141413`*^9, 3.572678709426258*^9}, {3.5726799619280586`*^9, 3.5726799698372726`*^9}, 3.572680093389489*^9, {3.572680422487667*^9, 3.5726804266216745`*^9}, {3.5726804605829344`*^9, 3.5726804649665422`*^9}, {3.572695606714492*^9, 3.572695616402109*^9}, { 3.572695717646287*^9, 3.5726957212654934`*^9}, {3.572695780982398*^9, 3.572695805724042*^9}, {3.572695845488511*^9, 3.5726959582923098`*^9}, 3.572696079364122*^9}], Cell[BoxData[ GraphicsBox[{{CircleBox[{-1.499999999935081, 0}, 1.4999999999350813`], CircleBox[{1.499999999935081, 0}, 1.4999999999350813`], CircleBox[{-1.499999999935081, 0}, 0.06], CircleBox[{1.499999999935081, 0}, 0.06], DiskBox[{-1.499999999897373, 0}, 0.06], DiskBox[{1.499999999897373, 0}, 0.06], DiskBox[{-1.499999999935081, -1.6100000000000003`}, 0.06], DiskBox[{1.499999999935081, -1.6100000000000003`}, 0.06]}, { CircleBox[{-1.4624997128363038`, 0}, 1.4999997054731322`], CircleBox[{1.4624997128363038`, 0}, 1.4999997054731322`], CircleBox[{-1.4624997128363038`, 0}, 0.06], CircleBox[{1.4624997128363038`, 0}, 0.06], DiskBox[{-1.4624997128180945`, 0}, 0.06], DiskBox[{1.4624997128180945`, 0}, 0.06], DiskBox[{-1.4624997128363038`, -1.6100039266163013`}, 0.06], DiskBox[{1.4624997128363038`, -1.6100039266163013`}, 0.06]}, { CircleBox[{-1.4249954984384918`, 0}, 1.499995261514202], CircleBox[{1.4249954984384918`, 0}, 1.499995261514202], CircleBox[{-1.4249954984384918`, 0}, 0.06], CircleBox[{1.4249954984384918`, 0}, 0.06], DiskBox[{-1.4249954984300706`, 0}, 0.06], DiskBox[{1.4249954984300706`, 0}, 0.06], DiskBox[{-1.4249954984384918`, -1.610063179924357}, 0.06], DiskBox[{1.4249954984384918`, -1.610063179924357}, 0.06]}, { CircleBox[{-1.3874776759151515`, 0}, 1.499975865854218], CircleBox[{1.3874776759151515`, 0}, 1.499975865854218], CircleBox[{-1.3874776759151515`, 0}, 0.06], CircleBox[{1.3874776759151515`, 0}, 0.06], DiskBox[{-1.3874776759114393`, 0}, 0.06], DiskBox[{1.3874776759114393`, 0}, 0.06], DiskBox[{-1.3874776759151515`, -1.61032179629655}, 0.06], DiskBox[{1.3874776759151515`, -1.61032179629655}, 0.06]}, { CircleBox[{-1.3499309035345035`, 0}, 1.4999232261494484`], CircleBox[{1.3499309035345035`, 0}, 1.4999232261494484`], CircleBox[{-1.3499309035345035`, 0}, 0.06], CircleBox[{1.3499309035345035`, 0}, 0.06], DiskBox[{-1.3499309035329525`, 0}, 0.06], DiskBox[{1.3499309035329525`, 0}, 0.06], DiskBox[{-1.3499309035345035`, -1.6110237299029384`}, 0.06], DiskBox[{1.3499309035345035`, -1.6110237299029384`}, 0.06]}, { CircleBox[{-1.3123348443921865`, 0}, 1.4998112507339276`], CircleBox[{1.3123348443921865`, 0}, 1.4998112507339276`], CircleBox[{-1.3123348443921865`, 0}, 0.06], CircleBox[{1.3123348443921865`, 0}, 0.06], DiskBox[{-1.3123348443915768`, 0}, 0.06], DiskBox[{1.3123348443915768`, 0}, 0.06], DiskBox[{-1.3123348443921865`, -1.612517131965212}, 0.06], DiskBox[{1.3123348443921865`, -1.612517131965212}, 0.06]}, { CircleBox[{-1.2746648240724603`, 0}, 1.4996056753793654`], CircleBox[{1.2746648240724603`, 0}, 1.4996056753793654`], CircleBox[{-1.2746648240724603`, 0}, 0.06], CircleBox[{1.2746648240724603`, 0}, 0.06], DiskBox[{-1.2746648240722362`, 0}, 0.06], DiskBox[{1.2746648240722362`, 0}, 0.06], DiskBox[{-1.2746648240724603`, -1.6152597355562737`}, 0.06], DiskBox[{1.2746648240724603`, -1.6152597355562737`}, 0.06]}, { CircleBox[{-1.2368924866436133`, 0}, 1.4992636201740768`], CircleBox[{1.2368924866436133`, 0}, 1.4992636201740768`], CircleBox[{-1.2368924866436133`, 0}, 0.06], CircleBox[{1.2368924866436133`, 0}, 0.06], DiskBox[{-1.2368924866435373`, 0}, 0.06], DiskBox[{1.2368924866435373`, 0}, 0.06], DiskBox[{-1.2368924866436133`, -1.6198256324828675`}, 0.06], DiskBox[{1.2368924866436133`, -1.6198256324828675`}, 0.06]}, { CircleBox[{-1.1989864567818396`, 0}, 1.4987330709772995`], CircleBox[{1.1989864567818396`, 0}, 1.4987330709772995`], CircleBox[{-1.1989864567818396`, 0}, 0.06], CircleBox[{1.1989864567818396`, 0}, 0.06], DiskBox[{-1.198986456781816, 0}, 0.06], DiskBox[{1.198986456781816, 0}, 0.06], DiskBox[{-1.1989864567818396`, -1.6269138125511096`}, 0.06], DiskBox[{1.1989864567818396`, -1.6269138125511096`}, 0.06]}, { CircleBox[{-1.1609130170578075`, 0}, 1.4979522800745906`], CircleBox[{1.1609130170578075`, 0}, 1.4979522800745906`], CircleBox[{-1.1609130170578075`, 0}, 0.06], CircleBox[{1.1609130170578075`, 0}, 0.06], DiskBox[{-1.1609130170578008`, 0}, 0.06], DiskBox[{1.1609130170578008`, 0}, 0.06], DiskBox[{-1.1609130170578075`, -1.6373589430360491`}, 0.06], DiskBox[{1.1609130170578075`, -1.6373589430360491`}, 0.06]}, { CircleBox[{-1.1226368105333804`, 0}, 1.496849080711174], CircleBox[{1.1226368105333804`, 0}, 1.496849080711174], CircleBox[{-1.1226368105333804`, 0}, 0.06], CircleBox[{1.1226368105333804`, 0}, 0.06], DiskBox[{-1.1226368105333788`, 0}, 0.06], DiskBox[{1.1226368105333788`, 0}, 0.06], DiskBox[{-1.1226368105333804`, -1.6521450061562626`}, 0.06], DiskBox[{1.1226368105333804`, -1.6521450061562626`}, 0.06]}, { CircleBox[{-1.0841215798172803`, 0}, 1.4953401100928005`], CircleBox[{1.0841215798172803`, 0}, 1.4953401100928005`], CircleBox[{-1.0841215798172803`, 0}, 0.06], CircleBox[{1.0841215798172803`, 0}, 0.06], DiskBox[{-1.08412157981728, 0}, 0.06], DiskBox[{1.08412157981728, 0}, 0.06], DiskBox[{-1.0841215798172803`, -1.6724225970159279`}, 0.06], DiskBox[{1.0841215798172803`, -1.6724225970159279`}, 0.06]}, { CircleBox[{-1.0453309504650974`, 0}, 1.4933299292358535`], CircleBox[{1.0453309504650974`, 0}, 1.4933299292358535`], CircleBox[{-1.0453309504650974`, 0}, 0.06], CircleBox[{1.0453309504650974`, 0}, 0.06], DiskBox[{-1.0453309462689835`, 0}, 0.06], DiskBox[{1.0453309462689835`, 0}, 0.06], DiskBox[{-1.0453309504650974`, -1.6995309311746931`}, 0.06], DiskBox[{1.0453309504650974`, -1.6995309311746931`}, 0.06]}, { CircleBox[{-1.006229299079645, 0}, 1.4907100727105858`], CircleBox[{1.006229299079645, 0}, 1.4907100727105858`], CircleBox[{-1.006229299079645, 0}, 0.06], CircleBox[{1.006229299079645, 0}, 0.06], DiskBox[{-1.00622929746309, 0}, 0.06], DiskBox[{1.00622929746309, 0}, 0.06], DiskBox[{-1.006229299079645, -1.7350259446688376`}, 0.06], DiskBox[{1.006229299079645, -1.7350259446688376`}, 0.06]}, { CircleBox[{-0.9667826428852216, 0}, 1.4873579121311105`], CircleBox[{0.9667826428852216, 0}, 1.4873579121311105`], CircleBox[{-0.9667826428852216, 0}, 0.06], CircleBox[{0.9667826428852216, 0}, 0.06], DiskBox[{-0.9667826423254773, 0}, 0.06], DiskBox[{0.9667826423254773, 0}, 0.06], DiskBox[{-0.9667826428852216, -1.7807163261708103`}, 0.06], DiskBox[{0.9667826428852216, -1.7807163261708103`}, 0.06]}, { CircleBox[{-0.926959680686001, 0}, 1.4831354890976018`], CircleBox[{0.926959680686001, 0}, 1.4831354890976018`], CircleBox[{-0.926959680686001, 0}, 0.06], CircleBox[{0.926959680686001, 0}, 0.06], DiskBox[{-0.9269596805136495, 0}, 0.06], DiskBox[{0.9269596805136495, 0}, 0.06], DiskBox[{-0.926959680686001, -1.8387099543958918`}, 0.06], DiskBox[{0.926959680686001, -1.8387099543958918`}, 0.06]}, { CircleBox[{-0.8867328993504197, 0}, 1.477888165584033], CircleBox[{0.8867328993504197, 0}, 1.477888165584033], CircleBox[{-0.8867328993504197, 0}, 0.06], CircleBox[{0.8867328993504197, 0}, 0.06], DiskBox[{-0.8867328993036137, 0}, 0.06], DiskBox[{0.8867328993036137, 0}, 0.06], DiskBox[{-0.8867328993504197, -1.9114741034982696`}, 0.06], DiskBox[{0.8867328993504197, -1.9114741034982696`}, 0.06]}, { CircleBox[{-0.8460798083862675, 0}, 1.4714431450195957`], CircleBox[{0.8460798083862675, 0}, 1.4714431450195957`], CircleBox[{-0.8460798083862675, 0}, 0.06], CircleBox[{0.8460798083862675, 0}, 0.06], DiskBox[{-0.846079808375145, 0}, 0.06], DiskBox[{0.846079808375145, 0}, 0.06], DiskBox[{-0.8460798083862675, -2.001914045724882}, 0.06], DiskBox[{0.8460798083862675, -2.001914045724882}, 0.06]}, { CircleBox[{-0.8049843075948646, 0}, 1.4636078319906634`], CircleBox[{0.8049843075948646, 0}, 1.4636078319906634`], CircleBox[{-0.8049843075948646, 0}, 0.06], CircleBox[{0.8049843075948646, 0}, 0.06], DiskBox[{-0.8049843075926129, 0}, 0.06], DiskBox[{0.8049843075926129, 0}, 0.06], DiskBox[{-0.8049843075948646, -2.113476509768526}, 0.06], DiskBox[{0.8049843075948646, -2.113476509768526}, 0.06]}, { CircleBox[{-0.7634382029249509, 0}, 1.4541680055713353`], CircleBox[{0.7634382029249509, 0}, 1.4541680055713353`], CircleBox[{-0.7634382029249509, 0}, 0.06], CircleBox[{0.7634382029249509, 0}, 0.06], DiskBox[{-0.7634382029246182, 0}, 0.06], DiskBox[{0.7634382029246182, 0}, 0.06], DiskBox[{-0.7634382029249509, -2.250287135943645}, 0.06], DiskBox[{0.7634382029249509, -2.250287135943645}, 0.06]}, { CircleBox[{-0.7214428857704795, 0}, 1.4428857715409593`], CircleBox[{0.7214428857704795, 0}, 1.4428857715409593`], CircleBox[{-0.7214428857704795, 0}, 0.06], CircleBox[{0.7214428857704795, 0}, 0.06], DiskBox[{-0.7214428857704885, 0}, 0.06], DiskBox[{0.7214428857704885, 0}, 0.06], DiskBox[{-0.7214428857704795, -2.4173350694444484`}, 0.06], DiskBox[{0.7214428857704795, -2.4173350694444484`}, 0.06]}}, AspectRatio->Automatic, Frame->True, PlotRange->{{-3, 3}, {-4, 2}}]], "Output", CellChangeTimes->{ 3.5726792589128237`*^9, 3.572679317927727*^9, 3.572679508528862*^9, 3.5726795967158165`*^9, 3.572679855910272*^9, 3.5726798865643263`*^9, 3.5726799790724883`*^9, 3.5726800653562403`*^9, 3.572680098584298*^9, 3.572680435997291*^9, 3.57268046947495*^9, 3.5726806639448915`*^9, 3.572695388813309*^9, 3.572695623422121*^9, 3.5726957256023006`*^9, 3.5726958102480497`*^9, {3.5726958672661495`*^9, 3.572695895268199*^9}, 3.5726959268894544`*^9, 3.57269602690123*^9, 3.5726960846837316`*^9, 3.57269623183879*^9, 3.572696308575325*^9, 3.572696426293132*^9, { 3.572696524798505*^9, 3.572696546064542*^9}, 3.572696682916782*^9, 3.572696740630083*^9, 3.5726969706144867`*^9, 3.5726970505110264`*^9, 3.5726971021939173`*^9, 3.5726972111601086`*^9, 3.5726972898622465`*^9, 3.572698711976345*^9, 3.572698919394309*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ sig=0.4165; u=21; s=0.525; d = (s-0.025*i)*R; T = (9/4)/R^2; Vnn=1/(2*r); Vee=1.0*(1.2-0.5*(2*d/R)^2+(3/16)*(2*d/R)^3-(1/160)*(2*d/R)^5)/R; Vne = 2*(-(1.5-0.5*((d-r)/R)^2)/R-(1.5-0.5*((d+r)/R)^2)/R); func = T + Vne + Vnn + Vee; t=Table[FindMinimum[func, {R,1.45}, {r,0.72}, {Method->\"Newton\", \ MaxIterations -> 500}], {i,1,u}]\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5726689707999*^9, 3.572668980066316*^9}, { 3.572669323110919*^9, 3.5726693234541197`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.0807335069444441`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4428857715430659`"}], ",", RowBox[{"r", "\[Rule]", "0.7214428857715357`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0983587191086128`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4312620565791319`"}], ",", RowBox[{"r", "\[Rule]", "0.7156310282903844`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1144342664315978`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4209016886608996`"}], ",", RowBox[{"r", "\[Rule]", "0.7104508443480836`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1289945955597414`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4117094670523893`"}], ",", RowBox[{"r", "\[Rule]", "0.7058547336566302`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.142082642033778`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.4035971947438217`"}], ",", RowBox[{"r", "\[Rule]", "0.7017985979179768`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1537492359057073`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.396482654771712`"}], ",", RowBox[{"r", "\[Rule]", "0.6982413273858561`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.164052497339084`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.3902886445838432`"}], ",", RowBox[{"r", "\[Rule]", "0.6951443222919219`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1730572278013385`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.38494223347935`"}], ",", RowBox[{"r", "\[Rule]", "0.6924711167396767`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1808343022440002`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.3803740261460378`"}], ",", RowBox[{"r", "\[Rule]", "0.690187013073024`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1874600674300637`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.3765175477896152`"}], ",", RowBox[{"r", "\[Rule]", "0.6882587738948199`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1930157513088653`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.373308696429167`"}], ",", RowBox[{"r", "\[Rule]", "0.6866543482146088`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1975868880590992`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.3706852610489206`"}], ",", RowBox[{"r", "\[Rule]", "0.6853426305245047`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2012627631217785`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.3685864995315182`"}], ",", RowBox[{"r", "\[Rule]", "0.6842932497658278`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2041358822282797`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.3669527717982275`"}], ",", RowBox[{"r", "\[Rule]", "0.6834763858992099`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2063014680959412`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.3657252248457024`"}], ",", RowBox[{"r", "\[Rule]", "0.6828626124229742`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2078569881162706`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.3648455274289033`"}], ",", RowBox[{"r", "\[Rule]", "0.6824227637145983`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2089017160004443`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.36425565301733`"}], ",", RowBox[{"r", "\[Rule]", "0.6821278265088297`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.209536329974787`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.3638977103603995`"}], ",", RowBox[{"r", "\[Rule]", "0.6819488551803766`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2098625497369802`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.3637138215445719`"}], ",", RowBox[{"r", "\[Rule]", "0.6818569107724692`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2099828139933169`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.3636460478116244`"}], ",", RowBox[{"r", "\[Rule]", "0.6818230239059979`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2100000000000004`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "1.3636363636325644`"}], ",", RowBox[{"r", "\[Rule]", "0.6818181818164682`"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5726792589596233`*^9, 3.5726793179901276`*^9, 3.572679508591262*^9, 3.5726795967782173`*^9, 3.5726798559570723`*^9, 3.572679886626726*^9, 3.5726799791348886`*^9, 3.57268006541864*^9, 3.5726800986310987`*^9, 3.5726804360596914`*^9, 3.5726804695373497`*^9, 3.5726806639916916`*^9, 3.5726953888601093`*^9, 3.5726956234689217`*^9, 3.572695725649101*^9, 3.5726958103104496`*^9, {3.5726958673285494`*^9, 3.572695895330599*^9}, 3.5726959269518547`*^9, 3.5726960269636297`*^9, 3.572696084746132*^9, 3.57269623190119*^9, 3.5726963086221247`*^9, 3.5726964263555317`*^9, { 3.5726965248609047`*^9, 3.5726965461113415`*^9}, 3.5726966829791822`*^9, 3.572696740692483*^9, 3.5726969706768866`*^9, 3.5726970505578265`*^9, 3.572697102256317*^9, 3.5726972112069087`*^9, 3.5726972899246473`*^9, 3.572698712038745*^9, 3.572698919456709*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Vir=Table[-(Vne+Vnn+Vee)/T /. t[[{i},2]],{i,1,u}]", "Input", PageWidth->WindowWidth], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "1.9999999999999716`", "}"}], ",", RowBox[{"{", "1.9999999999915097`", "}"}], ",", RowBox[{"{", "1.9999999997779958`", "}"}], ",", RowBox[{"{", "1.9999999980563683`", "}"}], ",", RowBox[{"{", "1.9999999906729073`", "}"}], ",", RowBox[{"{", "1.9999999999999978`", "}"}], ",", RowBox[{"{", "1.999999999999991`", "}"}], ",", RowBox[{"{", "1.9999999999999605`", "}"}], ",", RowBox[{"{", "1.9999999999998743`", "}"}], ",", RowBox[{"{", "1.999999999999676`", "}"}], ",", RowBox[{"{", "1.9999999999993177`", "}"}], ",", RowBox[{"{", "1.9999999999987677`", "}"}], ",", RowBox[{"{", "1.9999999999980456`", "}"}], ",", RowBox[{"{", "1.9999999999972216`", "}"}], ",", RowBox[{"{", "1.9999999999963947`", "}"}], ",", RowBox[{"{", "1.9999999999956632`", "}"}], ",", RowBox[{"{", "1.9999999999950975`", "}"}], ",", RowBox[{"{", "1.9999999999947204`", "}"}], ",", RowBox[{"{", "1.9999999999945168`", "}"}], ",", RowBox[{"{", "1.999999999994438`", "}"}], ",", RowBox[{"{", "1.9999999999944276`", "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5726792589752235`*^9, 3.5726793180057273`*^9, 3.5726795086224623`*^9, 3.5726795967938175`*^9, 3.5726798559882727`*^9, 3.572679886657926*^9, 3.572679979150489*^9, 3.5726800654342403`*^9, 3.5726800986466985`*^9, 3.572680436075291*^9, 3.57268046955295*^9, 3.572680664007292*^9, 3.5726953888757095`*^9, 3.5726956234845214`*^9, 3.5726957256647005`*^9, 3.57269581032605*^9, {3.5726958673441496`*^9, 3.572695895346199*^9}, 3.5726959269674544`*^9, 3.57269602697923*^9, 3.5726960847617316`*^9, 3.57269623191679*^9, 3.572696308637725*^9, 3.572696426371132*^9, { 3.572696524876505*^9, 3.5726965461269417`*^9}, 3.572696682994782*^9, 3.572696740692483*^9, 3.572696970692487*^9, 3.5726970505734262`*^9, 3.5726971022719173`*^9, 3.572697211222509*^9, 3.5726972899402475`*^9, 3.572698712054345*^9, 3.572698919472309*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Q=Table[t[[{i},2,1]],{i,1,u}]; P=Table[t[[{i},2,2]],{i,1,u}]; B=Table[t[[i,1]],{i,1,u}]\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{3.5726690362108145`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.0807335069444441`"}], ",", RowBox[{"-", "1.0983587191086128`"}], ",", RowBox[{"-", "1.1144342664315978`"}], ",", RowBox[{"-", "1.1289945955597414`"}], ",", RowBox[{"-", "1.142082642033778`"}], ",", RowBox[{"-", "1.1537492359057073`"}], ",", RowBox[{"-", "1.164052497339084`"}], ",", RowBox[{"-", "1.1730572278013385`"}], ",", RowBox[{"-", "1.1808343022440002`"}], ",", RowBox[{"-", "1.1874600674300637`"}], ",", RowBox[{"-", "1.1930157513088653`"}], ",", RowBox[{"-", "1.1975868880590992`"}], ",", RowBox[{"-", "1.2012627631217785`"}], ",", RowBox[{"-", "1.2041358822282797`"}], ",", RowBox[{"-", "1.2063014680959412`"}], ",", RowBox[{"-", "1.2078569881162706`"}], ",", RowBox[{"-", "1.2089017160004443`"}], ",", RowBox[{"-", "1.209536329974787`"}], ",", RowBox[{"-", "1.2098625497369802`"}], ",", RowBox[{"-", "1.2099828139933169`"}], ",", RowBox[{"-", "1.2100000000000004`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5726792589908237`*^9, 3.5726793180213275`*^9, 3.5726795086380625`*^9, 3.5726795968094172`*^9, 3.5726798560038724`*^9, 3.5726798866735263`*^9, 3.572679979166089*^9, 3.5726800654498405`*^9, 3.572680098662298*^9, 3.572680436075291*^9, 3.57268046956855*^9, 3.5726806640228915`*^9, 3.5726953888913097`*^9, 3.572695623500121*^9, 3.5726957256803007`*^9, 3.5726958103416495`*^9, {3.57269586735975*^9, 3.572695895361799*^9}, 3.5726959269674544`*^9, 3.57269602699483*^9, 3.5726960847773314`*^9, 3.57269623193239*^9, 3.572696308653325*^9, 3.572696426371132*^9, { 3.572696524876505*^9, 3.572696546142542*^9}, 3.572696682994782*^9, 3.572696740708083*^9, 3.572696970692487*^9, 3.5726970505890265`*^9, 3.5726971022875175`*^9, 3.5726972112381086`*^9, 3.5726972899558473`*^9, 3.572698712069945*^9, 3.5726989194879093`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Plot2 = Table[Graphics[{Circle[{-(s-0.025*i)*R /. Q[[i]],0},R /. \ Q[[i]]],Circle[{(s-0.025*i)*R /. Q[[i]],0},R /. \ Q[[i]]],Circle[{-(s-0.025*i)*R /. Q[[i]],0},0.06],Circle[{(s-0.025*i)*R /. \ Q[[i]],0},0.06], Disk[{r /. P[[i]],0},0.06],Disk[{-r /. \ P[[i]],0},0.06],Disk[{(s-0.025*i)*R /. \ Q[[i]],10*(B[[i]]+0.96)-1.21},0.06],Disk[{-(s-0.025*i)*R /. \ Q[[i]],10*(B[[i]]+0.96)-1.21},0.06]}],{i,1,u}]; Show[Plot2,{AspectRatio \[Rule] Automatic,PlotRange \[Rule] {{-3,3},{-4,2}}, \ Frame -> True}] \ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5726787987988153`*^9, 3.5726788892945743`*^9}, { 3.5726789794851327`*^9, 3.572678995381561*^9}, {3.5726959680111265`*^9, 3.5726959797891474`*^9}, 3.5726960625316925`*^9, {3.5726961667866755`*^9, 3.5726961851791077`*^9}, 3.5726962242727766`*^9, {3.5726962842860823`*^9, 3.572696298185706*^9}, {3.572696369087831*^9, 3.5726964818672295`*^9}, { 3.572696517279291*^9, 3.572696541166133*^9}, {3.5726966389403048`*^9, 3.5726966777999725`*^9}, 3.572696726917659*^9, {3.5726968493398733`*^9, 3.5726969416608353`*^9}, 3.5726970442242155`*^9, {3.572697084846687*^9, 3.5726970939415026`*^9}, {3.5726971381207805`*^9, 3.572697203001294*^9}, { 3.572697268178209*^9, 3.5726972854006395`*^9}}], Cell[BoxData[ GraphicsBox[{{CircleBox[{-0.7214428857715329, 0}, 1.4428857715430659`], CircleBox[{0.7214428857715329, 0}, 1.4428857715430659`], CircleBox[{-0.7214428857715329, 0}, 0.06], CircleBox[{0.7214428857715329, 0}, 0.06], DiskBox[{0.7214428857715357, 0}, 0.06], DiskBox[{-0.7214428857715357, 0}, 0.06], DiskBox[{0.7214428857715329, -2.4173350694444418`}, 0.06], DiskBox[{-0.7214428857715329, -2.4173350694444418`}, 0.06]}, { CircleBox[{-0.6798494768750877, 0}, 1.4312620565791319`], CircleBox[{0.6798494768750877, 0}, 1.4312620565791319`], CircleBox[{-0.6798494768750877, 0}, 0.06], CircleBox[{0.6798494768750877, 0}, 0.06], DiskBox[{0.7156310282903844, 0}, 0.06], DiskBox[{-0.7156310282903844, 0}, 0.06], DiskBox[{0.6798494768750877, -2.5935871910861286`}, 0.06], DiskBox[{-0.6798494768750877, -2.5935871910861286`}, 0.06]}, { CircleBox[{-0.6394057598974049, 0}, 1.4209016886608996`], CircleBox[{0.6394057598974049, 0}, 1.4209016886608996`], CircleBox[{-0.6394057598974049, 0}, 0.06], CircleBox[{0.6394057598974049, 0}, 0.06], DiskBox[{0.7104508443480836, 0}, 0.06], DiskBox[{-0.7104508443480836, 0}, 0.06], DiskBox[{0.6394057598974049, -2.7543426643159785`}, 0.06], DiskBox[{-0.6394057598974049, -2.7543426643159785`}, 0.06]}, { CircleBox[{-0.5999765234972655, 0}, 1.4117094670523893`], CircleBox[{0.5999765234972655, 0}, 1.4117094670523893`], CircleBox[{-0.5999765234972655, 0}, 0.06], CircleBox[{0.5999765234972655, 0}, 0.06], DiskBox[{0.7058547336566302, 0}, 0.06], DiskBox[{-0.7058547336566302, 0}, 0.06], DiskBox[{0.5999765234972655, -2.899945955597414}, 0.06], DiskBox[{-0.5999765234972655, -2.899945955597414}, 0.06]}, { CircleBox[{-0.5614388778975287, 0}, 1.4035971947438217`], CircleBox[{0.5614388778975287, 0}, 1.4035971947438217`], CircleBox[{-0.5614388778975287, 0}, 0.06], CircleBox[{0.5614388778975287, 0}, 0.06], DiskBox[{0.7017985979179768, 0}, 0.06], DiskBox[{-0.7017985979179768, 0}, 0.06], DiskBox[{0.5614388778975287, -3.03082642033778}, 0.06], DiskBox[{-0.5614388778975287, -3.03082642033778}, 0.06]}, { CircleBox[{-0.523680995539392, 0}, 1.396482654771712], CircleBox[{0.523680995539392, 0}, 1.396482654771712], CircleBox[{-0.523680995539392, 0}, 0.06], CircleBox[{0.523680995539392, 0}, 0.06], DiskBox[{0.6982413273858561, 0}, 0.06], DiskBox[{-0.6982413273858561, 0}, 0.06], DiskBox[{0.523680995539392, -3.1474923590570736`}, 0.06], DiskBox[{-0.523680995539392, -3.1474923590570736`}, 0.06]}, { CircleBox[{-0.4866010256043451, 0}, 1.3902886445838432`], CircleBox[{0.4866010256043451, 0}, 1.3902886445838432`], CircleBox[{-0.4866010256043451, 0}, 0.06], CircleBox[{0.4866010256043451, 0}, 0.06], DiskBox[{0.6951443222919219, 0}, 0.06], DiskBox[{-0.6951443222919219, 0}, 0.06], DiskBox[{0.4866010256043451, -3.2505249733908403`}, 0.06], DiskBox[{-0.4866010256043451, -3.2505249733908403`}, 0.06]}, { CircleBox[{-0.45010622588078875`, 0}, 1.38494223347935], CircleBox[{0.45010622588078875`, 0}, 1.38494223347935], CircleBox[{-0.45010622588078875`, 0}, 0.06], CircleBox[{0.45010622588078875`, 0}, 0.06], DiskBox[{0.6924711167396767, 0}, 0.06], DiskBox[{-0.6924711167396767, 0}, 0.06], DiskBox[{0.45010622588078875`, -3.340572278013385}, 0.06], DiskBox[{-0.45010622588078875`, -3.340572278013385}, 0.06]}, { CircleBox[{-0.4141122078438114, 0}, 1.3803740261460378`], CircleBox[{0.4141122078438114, 0}, 1.3803740261460378`], CircleBox[{-0.4141122078438114, 0}, 0.06], CircleBox[{0.4141122078438114, 0}, 0.06], DiskBox[{0.690187013073024, 0}, 0.06], DiskBox[{-0.690187013073024, 0}, 0.06], DiskBox[{0.4141122078438114, -3.4183430224400024`}, 0.06], DiskBox[{-0.4141122078438114, -3.4183430224400024`}, 0.06]}, { CircleBox[{-0.37854232564214424`, 0}, 1.3765175477896152`], CircleBox[{0.37854232564214424`, 0}, 1.3765175477896152`], CircleBox[{-0.37854232564214424`, 0}, 0.06], CircleBox[{0.37854232564214424`, 0}, 0.06], DiskBox[{0.6882587738948199, 0}, 0.06], DiskBox[{-0.6882587738948199, 0}, 0.06], DiskBox[{0.37854232564214424`, -3.4846006743006375`}, 0.06], DiskBox[{-0.37854232564214424`, -3.4846006743006375`}, 0.06]}, { CircleBox[{-0.34332717410729174`, 0}, 1.373308696429167], CircleBox[{0.34332717410729174`, 0}, 1.373308696429167], CircleBox[{-0.34332717410729174`, 0}, 0.06], CircleBox[{0.34332717410729174`, 0}, 0.06], DiskBox[{0.6866543482146088, 0}, 0.06], DiskBox[{-0.6866543482146088, 0}, 0.06], DiskBox[{0.34332717410729174`, -3.540157513088653}, 0.06], DiskBox[{-0.34332717410729174`, -3.540157513088653}, 0.06]}, { CircleBox[{-0.3084041837360071, 0}, 1.3706852610489206`], CircleBox[{0.3084041837360071, 0}, 1.3706852610489206`], CircleBox[{-0.3084041837360071, 0}, 0.06], CircleBox[{0.3084041837360071, 0}, 0.06], DiskBox[{0.6853426305245047, 0}, 0.06], DiskBox[{-0.6853426305245047, 0}, 0.06], DiskBox[{0.3084041837360071, -3.585868880590992}, 0.06], DiskBox[{-0.3084041837360071, -3.585868880590992}, 0.06]}, { CircleBox[{-0.27371729990630367`, 0}, 1.3685864995315182`], CircleBox[{0.27371729990630367`, 0}, 1.3685864995315182`], CircleBox[{-0.27371729990630367`, 0}, 0.06], CircleBox[{0.27371729990630367`, 0}, 0.06], DiskBox[{0.6842932497658278, 0}, 0.06], DiskBox[{-0.6842932497658278, 0}, 0.06], DiskBox[{0.27371729990630367`, -3.622627631217785}, 0.06], DiskBox[{-0.27371729990630367`, -3.622627631217785}, 0.06]}, { CircleBox[{-0.2392167350646898, 0}, 1.3669527717982275`], CircleBox[{0.2392167350646898, 0}, 1.3669527717982275`], CircleBox[{-0.2392167350646898, 0}, 0.06], CircleBox[{0.2392167350646898, 0}, 0.06], DiskBox[{0.6834763858992099, 0}, 0.06], DiskBox[{-0.6834763858992099, 0}, 0.06], DiskBox[{0.2392167350646898, -3.6513588222827975`}, 0.06], DiskBox[{-0.2392167350646898, -3.6513588222827975`}, 0.06]}, { CircleBox[{-0.20485878372685537`, 0}, 1.3657252248457024`], CircleBox[{0.20485878372685537`, 0}, 1.3657252248457024`], CircleBox[{-0.20485878372685537`, 0}, 0.06], CircleBox[{0.20485878372685537`, 0}, 0.06], DiskBox[{0.6828626124229742, 0}, 0.06], DiskBox[{-0.6828626124229742, 0}, 0.06], DiskBox[{0.20485878372685537`, -3.673014680959412}, 0.06], DiskBox[{-0.20485878372685537`, -3.673014680959412}, 0.06]}, { CircleBox[{-0.1706056909286129, 0}, 1.3648455274289033`], CircleBox[{0.1706056909286129, 0}, 1.3648455274289033`], CircleBox[{-0.1706056909286129, 0}, 0.06], CircleBox[{0.1706056909286129, 0}, 0.06], DiskBox[{0.6824227637145983, 0}, 0.06], DiskBox[{-0.6824227637145983, 0}, 0.06], DiskBox[{0.1706056909286129, -3.6885698811627066`}, 0.06], DiskBox[{-0.1706056909286129, -3.6885698811627066`}, 0.06]}, { CircleBox[{-0.13642556530173297`, 0}, 1.36425565301733], CircleBox[{0.13642556530173297`, 0}, 1.36425565301733], CircleBox[{-0.13642556530173297`, 0}, 0.06], CircleBox[{0.13642556530173297`, 0}, 0.06], DiskBox[{0.6821278265088297, 0}, 0.06], DiskBox[{-0.6821278265088297, 0}, 0.06], DiskBox[{0.13642556530173297`, -3.699017160004443}, 0.06], DiskBox[{-0.13642556530173297`, -3.699017160004443}, 0.06]}, { CircleBox[{-0.10229232827702998`, 0}, 1.3638977103603995`], CircleBox[{0.10229232827702998`, 0}, 1.3638977103603995`], CircleBox[{-0.10229232827702998`, 0}, 0.06], CircleBox[{0.10229232827702998`, 0}, 0.06], DiskBox[{0.6819488551803766, 0}, 0.06], DiskBox[{-0.6819488551803766, 0}, 0.06], DiskBox[{0.10229232827702998`, -3.7053632997478703`}, 0.06], DiskBox[{-0.10229232827702998`, -3.7053632997478703`}, 0.06]}, { CircleBox[{-0.06818569107722858, 0}, 1.3637138215445719`], CircleBox[{0.06818569107722858, 0}, 1.3637138215445719`], CircleBox[{-0.06818569107722858, 0}, 0.06], CircleBox[{0.06818569107722858, 0}, 0.06], DiskBox[{0.6818569107724692, 0}, 0.06], DiskBox[{-0.6818569107724692, 0}, 0.06], DiskBox[{0.06818569107722858, -3.708625497369802}, 0.06], DiskBox[{-0.06818569107722858, -3.708625497369802}, 0.06]}, { CircleBox[{-0.03409115119529064, 0}, 1.3636460478116244`], CircleBox[{0.03409115119529064, 0}, 1.3636460478116244`], CircleBox[{-0.03409115119529064, 0}, 0.06], CircleBox[{0.03409115119529064, 0}, 0.06], DiskBox[{0.6818230239059979, 0}, 0.06], DiskBox[{-0.6818230239059979, 0}, 0.06], DiskBox[{0.03409115119529064, -3.709828139933169}, 0.06], DiskBox[{-0.03409115119529064, -3.709828139933169}, 0.06]}, { CircleBox[{0., 0}, 1.3636363636325644`], CircleBox[{0., 0}, 1.3636363636325644`], CircleBox[{0., 0}, 0.06], CircleBox[{0., 0}, 0.06], DiskBox[{0.6818181818164682, 0}, 0.06], DiskBox[{-0.6818181818164682, 0}, 0.06], DiskBox[{0., -3.7100000000000044`}, 0.06], DiskBox[{0., -3.7100000000000044`}, 0.06]}}, AspectRatio->Automatic, Frame->True, PlotRange->{{-3, 3}, {-4, 2}}]], "Output", CellChangeTimes->{ 3.572679259006424*^9, 3.572679318036927*^9, 3.5726795086692624`*^9, 3.572679596840617*^9, 3.5726798560350723`*^9, 3.572679886704726*^9, 3.572679979181689*^9, 3.5726800654810405`*^9, 3.5726800986778984`*^9, 3.572680436106491*^9, 3.5726804695841503`*^9, 3.5726806640384912`*^9, 3.572695388922509*^9, 3.5726956235157213`*^9, 3.572695725695901*^9, 3.5726958103572493`*^9, {3.57269586737535*^9, 3.572695895377399*^9}, 3.5726959269986544`*^9, 3.5726960270260305`*^9, 3.5726960847929316`*^9, 3.5726962321819906`*^9, 3.572696308668925*^9, 3.5726964264023314`*^9, { 3.572696524907705*^9, 3.572696546158142*^9}, 3.5726966830103817`*^9, 3.5726967407236834`*^9, 3.5726969707236867`*^9, 3.5726970506046267`*^9, 3.5726971023031178`*^9, 3.572697211331709*^9, 3.572697289971447*^9, 3.572698712101145*^9, 3.5726989195191092`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot2", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.572679284590469*^9, 3.5726793099873133`*^9}, 3.5726960562292814`*^9}], Cell[BoxData[ GraphicsBox[{{CircleBox[{-1.499999999935081, 0}, 1.4999999999350813`], CircleBox[{1.499999999935081, 0}, 1.4999999999350813`], CircleBox[{-1.499999999935081, 0}, 0.06], CircleBox[{1.499999999935081, 0}, 0.06], DiskBox[{-1.499999999897373, 0}, 0.06], DiskBox[{1.499999999897373, 0}, 0.06], DiskBox[{-1.499999999935081, -1.6100000000000003`}, 0.06], DiskBox[{1.499999999935081, -1.6100000000000003`}, 0.06]}, { CircleBox[{-1.4624997128363038`, 0}, 1.4999997054731322`], CircleBox[{1.4624997128363038`, 0}, 1.4999997054731322`], CircleBox[{-1.4624997128363038`, 0}, 0.06], CircleBox[{1.4624997128363038`, 0}, 0.06], DiskBox[{-1.4624997128180945`, 0}, 0.06], DiskBox[{1.4624997128180945`, 0}, 0.06], DiskBox[{-1.4624997128363038`, -1.6100039266163013`}, 0.06], DiskBox[{1.4624997128363038`, -1.6100039266163013`}, 0.06]}, { CircleBox[{-1.4249954984384918`, 0}, 1.499995261514202], CircleBox[{1.4249954984384918`, 0}, 1.499995261514202], CircleBox[{-1.4249954984384918`, 0}, 0.06], CircleBox[{1.4249954984384918`, 0}, 0.06], DiskBox[{-1.4249954984300706`, 0}, 0.06], DiskBox[{1.4249954984300706`, 0}, 0.06], DiskBox[{-1.4249954984384918`, -1.610063179924357}, 0.06], DiskBox[{1.4249954984384918`, -1.610063179924357}, 0.06]}, { CircleBox[{-1.3874776759151515`, 0}, 1.499975865854218], CircleBox[{1.3874776759151515`, 0}, 1.499975865854218], CircleBox[{-1.3874776759151515`, 0}, 0.06], CircleBox[{1.3874776759151515`, 0}, 0.06], DiskBox[{-1.3874776759114393`, 0}, 0.06], DiskBox[{1.3874776759114393`, 0}, 0.06], DiskBox[{-1.3874776759151515`, -1.61032179629655}, 0.06], DiskBox[{1.3874776759151515`, -1.61032179629655}, 0.06]}, { CircleBox[{-1.3499309035345035`, 0}, 1.4999232261494484`], CircleBox[{1.3499309035345035`, 0}, 1.4999232261494484`], CircleBox[{-1.3499309035345035`, 0}, 0.06], CircleBox[{1.3499309035345035`, 0}, 0.06], DiskBox[{-1.3499309035329525`, 0}, 0.06], DiskBox[{1.3499309035329525`, 0}, 0.06], DiskBox[{-1.3499309035345035`, -1.6110237299029384`}, 0.06], DiskBox[{1.3499309035345035`, -1.6110237299029384`}, 0.06]}, { CircleBox[{-1.3123348443921865`, 0}, 1.4998112507339276`], CircleBox[{1.3123348443921865`, 0}, 1.4998112507339276`], CircleBox[{-1.3123348443921865`, 0}, 0.06], CircleBox[{1.3123348443921865`, 0}, 0.06], DiskBox[{-1.3123348443915768`, 0}, 0.06], DiskBox[{1.3123348443915768`, 0}, 0.06], DiskBox[{-1.3123348443921865`, -1.612517131965212}, 0.06], DiskBox[{1.3123348443921865`, -1.612517131965212}, 0.06]}, { CircleBox[{-1.2746648240724603`, 0}, 1.4996056753793654`], CircleBox[{1.2746648240724603`, 0}, 1.4996056753793654`], CircleBox[{-1.2746648240724603`, 0}, 0.06], CircleBox[{1.2746648240724603`, 0}, 0.06], DiskBox[{-1.2746648240722362`, 0}, 0.06], DiskBox[{1.2746648240722362`, 0}, 0.06], DiskBox[{-1.2746648240724603`, -1.6152597355562737`}, 0.06], DiskBox[{1.2746648240724603`, -1.6152597355562737`}, 0.06]}, { CircleBox[{-1.2368924866436133`, 0}, 1.4992636201740768`], CircleBox[{1.2368924866436133`, 0}, 1.4992636201740768`], CircleBox[{-1.2368924866436133`, 0}, 0.06], CircleBox[{1.2368924866436133`, 0}, 0.06], DiskBox[{-1.2368924866435373`, 0}, 0.06], DiskBox[{1.2368924866435373`, 0}, 0.06], DiskBox[{-1.2368924866436133`, -1.6198256324828675`}, 0.06], DiskBox[{1.2368924866436133`, -1.6198256324828675`}, 0.06]}, { CircleBox[{-1.1989864567818396`, 0}, 1.4987330709772995`], CircleBox[{1.1989864567818396`, 0}, 1.4987330709772995`], CircleBox[{-1.1989864567818396`, 0}, 0.06], CircleBox[{1.1989864567818396`, 0}, 0.06], DiskBox[{-1.198986456781816, 0}, 0.06], DiskBox[{1.198986456781816, 0}, 0.06], DiskBox[{-1.1989864567818396`, -1.6269138125511096`}, 0.06], DiskBox[{1.1989864567818396`, -1.6269138125511096`}, 0.06]}, { CircleBox[{-1.1609130170578075`, 0}, 1.4979522800745906`], CircleBox[{1.1609130170578075`, 0}, 1.4979522800745906`], CircleBox[{-1.1609130170578075`, 0}, 0.06], CircleBox[{1.1609130170578075`, 0}, 0.06], DiskBox[{-1.1609130170578008`, 0}, 0.06], DiskBox[{1.1609130170578008`, 0}, 0.06], DiskBox[{-1.1609130170578075`, -1.6373589430360491`}, 0.06], DiskBox[{1.1609130170578075`, -1.6373589430360491`}, 0.06]}, { CircleBox[{-1.1226368105333804`, 0}, 1.496849080711174], CircleBox[{1.1226368105333804`, 0}, 1.496849080711174], CircleBox[{-1.1226368105333804`, 0}, 0.06], CircleBox[{1.1226368105333804`, 0}, 0.06], DiskBox[{-1.1226368105333788`, 0}, 0.06], DiskBox[{1.1226368105333788`, 0}, 0.06], DiskBox[{-1.1226368105333804`, -1.6521450061562626`}, 0.06], DiskBox[{1.1226368105333804`, -1.6521450061562626`}, 0.06]}, { CircleBox[{-1.0841215798172803`, 0}, 1.4953401100928005`], CircleBox[{1.0841215798172803`, 0}, 1.4953401100928005`], CircleBox[{-1.0841215798172803`, 0}, 0.06], CircleBox[{1.0841215798172803`, 0}, 0.06], DiskBox[{-1.08412157981728, 0}, 0.06], DiskBox[{1.08412157981728, 0}, 0.06], DiskBox[{-1.0841215798172803`, -1.6724225970159279`}, 0.06], DiskBox[{1.0841215798172803`, -1.6724225970159279`}, 0.06]}, { CircleBox[{-1.0453309504650974`, 0}, 1.4933299292358535`], CircleBox[{1.0453309504650974`, 0}, 1.4933299292358535`], CircleBox[{-1.0453309504650974`, 0}, 0.06], CircleBox[{1.0453309504650974`, 0}, 0.06], DiskBox[{-1.0453309462689835`, 0}, 0.06], DiskBox[{1.0453309462689835`, 0}, 0.06], DiskBox[{-1.0453309504650974`, -1.6995309311746931`}, 0.06], DiskBox[{1.0453309504650974`, -1.6995309311746931`}, 0.06]}, { CircleBox[{-1.006229299079645, 0}, 1.4907100727105858`], CircleBox[{1.006229299079645, 0}, 1.4907100727105858`], CircleBox[{-1.006229299079645, 0}, 0.06], CircleBox[{1.006229299079645, 0}, 0.06], DiskBox[{-1.00622929746309, 0}, 0.06], DiskBox[{1.00622929746309, 0}, 0.06], DiskBox[{-1.006229299079645, -1.7350259446688376`}, 0.06], DiskBox[{1.006229299079645, -1.7350259446688376`}, 0.06]}, { CircleBox[{-0.9667826428852216, 0}, 1.4873579121311105`], CircleBox[{0.9667826428852216, 0}, 1.4873579121311105`], CircleBox[{-0.9667826428852216, 0}, 0.06], CircleBox[{0.9667826428852216, 0}, 0.06], DiskBox[{-0.9667826423254773, 0}, 0.06], DiskBox[{0.9667826423254773, 0}, 0.06], DiskBox[{-0.9667826428852216, -1.7807163261708103`}, 0.06], DiskBox[{0.9667826428852216, -1.7807163261708103`}, 0.06]}, { CircleBox[{-0.926959680686001, 0}, 1.4831354890976018`], CircleBox[{0.926959680686001, 0}, 1.4831354890976018`], CircleBox[{-0.926959680686001, 0}, 0.06], CircleBox[{0.926959680686001, 0}, 0.06], DiskBox[{-0.9269596805136495, 0}, 0.06], DiskBox[{0.9269596805136495, 0}, 0.06], DiskBox[{-0.926959680686001, -1.8387099543958918`}, 0.06], DiskBox[{0.926959680686001, -1.8387099543958918`}, 0.06]}, { CircleBox[{-0.8867328993504197, 0}, 1.477888165584033], CircleBox[{0.8867328993504197, 0}, 1.477888165584033], CircleBox[{-0.8867328993504197, 0}, 0.06], CircleBox[{0.8867328993504197, 0}, 0.06], DiskBox[{-0.8867328993036137, 0}, 0.06], DiskBox[{0.8867328993036137, 0}, 0.06], DiskBox[{-0.8867328993504197, -1.9114741034982696`}, 0.06], DiskBox[{0.8867328993504197, -1.9114741034982696`}, 0.06]}, { CircleBox[{-0.8460798083862675, 0}, 1.4714431450195957`], CircleBox[{0.8460798083862675, 0}, 1.4714431450195957`], CircleBox[{-0.8460798083862675, 0}, 0.06], CircleBox[{0.8460798083862675, 0}, 0.06], DiskBox[{-0.846079808375145, 0}, 0.06], DiskBox[{0.846079808375145, 0}, 0.06], DiskBox[{-0.8460798083862675, -2.001914045724882}, 0.06], DiskBox[{0.8460798083862675, -2.001914045724882}, 0.06]}, { CircleBox[{-0.8049843075948646, 0}, 1.4636078319906634`], CircleBox[{0.8049843075948646, 0}, 1.4636078319906634`], CircleBox[{-0.8049843075948646, 0}, 0.06], CircleBox[{0.8049843075948646, 0}, 0.06], DiskBox[{-0.8049843075926129, 0}, 0.06], DiskBox[{0.8049843075926129, 0}, 0.06], DiskBox[{-0.8049843075948646, -2.113476509768526}, 0.06], DiskBox[{0.8049843075948646, -2.113476509768526}, 0.06]}, { CircleBox[{-0.7634382029249509, 0}, 1.4541680055713353`], CircleBox[{0.7634382029249509, 0}, 1.4541680055713353`], CircleBox[{-0.7634382029249509, 0}, 0.06], CircleBox[{0.7634382029249509, 0}, 0.06], DiskBox[{-0.7634382029246182, 0}, 0.06], DiskBox[{0.7634382029246182, 0}, 0.06], DiskBox[{-0.7634382029249509, -2.250287135943645}, 0.06], DiskBox[{0.7634382029249509, -2.250287135943645}, 0.06]}, { CircleBox[{-0.7214428857704795, 0}, 1.4428857715409593`], CircleBox[{0.7214428857704795, 0}, 1.4428857715409593`], CircleBox[{-0.7214428857704795, 0}, 0.06], CircleBox[{0.7214428857704795, 0}, 0.06], DiskBox[{-0.7214428857704885, 0}, 0.06], DiskBox[{0.7214428857704885, 0}, 0.06], DiskBox[{-0.7214428857704795, -2.4173350694444484`}, 0.06], DiskBox[{0.7214428857704795, -2.4173350694444484`}, 0.06]}, { CircleBox[{-0.7214428857715329, 0}, 1.4428857715430659`], CircleBox[{0.7214428857715329, 0}, 1.4428857715430659`], CircleBox[{-0.7214428857715329, 0}, 0.06], CircleBox[{0.7214428857715329, 0}, 0.06], DiskBox[{0.7214428857715357, 0}, 0.06], DiskBox[{-0.7214428857715357, 0}, 0.06], DiskBox[{0.7214428857715329, -2.4173350694444418`}, 0.06], DiskBox[{-0.7214428857715329, -2.4173350694444418`}, 0.06]}, { CircleBox[{-0.6798494768750877, 0}, 1.4312620565791319`], CircleBox[{0.6798494768750877, 0}, 1.4312620565791319`], CircleBox[{-0.6798494768750877, 0}, 0.06], CircleBox[{0.6798494768750877, 0}, 0.06], DiskBox[{0.7156310282903844, 0}, 0.06], DiskBox[{-0.7156310282903844, 0}, 0.06], DiskBox[{0.6798494768750877, -2.5935871910861286`}, 0.06], DiskBox[{-0.6798494768750877, -2.5935871910861286`}, 0.06]}, { CircleBox[{-0.6394057598974049, 0}, 1.4209016886608996`], CircleBox[{0.6394057598974049, 0}, 1.4209016886608996`], CircleBox[{-0.6394057598974049, 0}, 0.06], CircleBox[{0.6394057598974049, 0}, 0.06], DiskBox[{0.7104508443480836, 0}, 0.06], DiskBox[{-0.7104508443480836, 0}, 0.06], DiskBox[{0.6394057598974049, -2.7543426643159785`}, 0.06], DiskBox[{-0.6394057598974049, -2.7543426643159785`}, 0.06]}, { CircleBox[{-0.5999765234972655, 0}, 1.4117094670523893`], CircleBox[{0.5999765234972655, 0}, 1.4117094670523893`], CircleBox[{-0.5999765234972655, 0}, 0.06], CircleBox[{0.5999765234972655, 0}, 0.06], DiskBox[{0.7058547336566302, 0}, 0.06], DiskBox[{-0.7058547336566302, 0}, 0.06], DiskBox[{0.5999765234972655, -2.899945955597414}, 0.06], DiskBox[{-0.5999765234972655, -2.899945955597414}, 0.06]}, { CircleBox[{-0.5614388778975287, 0}, 1.4035971947438217`], CircleBox[{0.5614388778975287, 0}, 1.4035971947438217`], CircleBox[{-0.5614388778975287, 0}, 0.06], CircleBox[{0.5614388778975287, 0}, 0.06], DiskBox[{0.7017985979179768, 0}, 0.06], DiskBox[{-0.7017985979179768, 0}, 0.06], DiskBox[{0.5614388778975287, -3.03082642033778}, 0.06], DiskBox[{-0.5614388778975287, -3.03082642033778}, 0.06]}, { CircleBox[{-0.523680995539392, 0}, 1.396482654771712], CircleBox[{0.523680995539392, 0}, 1.396482654771712], CircleBox[{-0.523680995539392, 0}, 0.06], CircleBox[{0.523680995539392, 0}, 0.06], DiskBox[{0.6982413273858561, 0}, 0.06], DiskBox[{-0.6982413273858561, 0}, 0.06], DiskBox[{0.523680995539392, -3.1474923590570736`}, 0.06], DiskBox[{-0.523680995539392, -3.1474923590570736`}, 0.06]}, { CircleBox[{-0.4866010256043451, 0}, 1.3902886445838432`], CircleBox[{0.4866010256043451, 0}, 1.3902886445838432`], CircleBox[{-0.4866010256043451, 0}, 0.06], CircleBox[{0.4866010256043451, 0}, 0.06], DiskBox[{0.6951443222919219, 0}, 0.06], DiskBox[{-0.6951443222919219, 0}, 0.06], DiskBox[{0.4866010256043451, -3.2505249733908403`}, 0.06], DiskBox[{-0.4866010256043451, -3.2505249733908403`}, 0.06]}, { CircleBox[{-0.45010622588078875`, 0}, 1.38494223347935], CircleBox[{0.45010622588078875`, 0}, 1.38494223347935], CircleBox[{-0.45010622588078875`, 0}, 0.06], CircleBox[{0.45010622588078875`, 0}, 0.06], DiskBox[{0.6924711167396767, 0}, 0.06], DiskBox[{-0.6924711167396767, 0}, 0.06], DiskBox[{0.45010622588078875`, -3.340572278013385}, 0.06], DiskBox[{-0.45010622588078875`, -3.340572278013385}, 0.06]}, { CircleBox[{-0.4141122078438114, 0}, 1.3803740261460378`], CircleBox[{0.4141122078438114, 0}, 1.3803740261460378`], CircleBox[{-0.4141122078438114, 0}, 0.06], CircleBox[{0.4141122078438114, 0}, 0.06], DiskBox[{0.690187013073024, 0}, 0.06], DiskBox[{-0.690187013073024, 0}, 0.06], DiskBox[{0.4141122078438114, -3.4183430224400024`}, 0.06], DiskBox[{-0.4141122078438114, -3.4183430224400024`}, 0.06]}, { CircleBox[{-0.37854232564214424`, 0}, 1.3765175477896152`], CircleBox[{0.37854232564214424`, 0}, 1.3765175477896152`], CircleBox[{-0.37854232564214424`, 0}, 0.06], CircleBox[{0.37854232564214424`, 0}, 0.06], DiskBox[{0.6882587738948199, 0}, 0.06], DiskBox[{-0.6882587738948199, 0}, 0.06], DiskBox[{0.37854232564214424`, -3.4846006743006375`}, 0.06], DiskBox[{-0.37854232564214424`, -3.4846006743006375`}, 0.06]}, { CircleBox[{-0.34332717410729174`, 0}, 1.373308696429167], CircleBox[{0.34332717410729174`, 0}, 1.373308696429167], CircleBox[{-0.34332717410729174`, 0}, 0.06], CircleBox[{0.34332717410729174`, 0}, 0.06], DiskBox[{0.6866543482146088, 0}, 0.06], DiskBox[{-0.6866543482146088, 0}, 0.06], DiskBox[{0.34332717410729174`, -3.540157513088653}, 0.06], DiskBox[{-0.34332717410729174`, -3.540157513088653}, 0.06]}, { CircleBox[{-0.3084041837360071, 0}, 1.3706852610489206`], CircleBox[{0.3084041837360071, 0}, 1.3706852610489206`], CircleBox[{-0.3084041837360071, 0}, 0.06], CircleBox[{0.3084041837360071, 0}, 0.06], DiskBox[{0.6853426305245047, 0}, 0.06], DiskBox[{-0.6853426305245047, 0}, 0.06], DiskBox[{0.3084041837360071, -3.585868880590992}, 0.06], DiskBox[{-0.3084041837360071, -3.585868880590992}, 0.06]}, { CircleBox[{-0.27371729990630367`, 0}, 1.3685864995315182`], CircleBox[{0.27371729990630367`, 0}, 1.3685864995315182`], CircleBox[{-0.27371729990630367`, 0}, 0.06], CircleBox[{0.27371729990630367`, 0}, 0.06], DiskBox[{0.6842932497658278, 0}, 0.06], DiskBox[{-0.6842932497658278, 0}, 0.06], DiskBox[{0.27371729990630367`, -3.622627631217785}, 0.06], DiskBox[{-0.27371729990630367`, -3.622627631217785}, 0.06]}, { CircleBox[{-0.2392167350646898, 0}, 1.3669527717982275`], CircleBox[{0.2392167350646898, 0}, 1.3669527717982275`], CircleBox[{-0.2392167350646898, 0}, 0.06], CircleBox[{0.2392167350646898, 0}, 0.06], DiskBox[{0.6834763858992099, 0}, 0.06], DiskBox[{-0.6834763858992099, 0}, 0.06], DiskBox[{0.2392167350646898, -3.6513588222827975`}, 0.06], DiskBox[{-0.2392167350646898, -3.6513588222827975`}, 0.06]}, { CircleBox[{-0.20485878372685537`, 0}, 1.3657252248457024`], CircleBox[{0.20485878372685537`, 0}, 1.3657252248457024`], CircleBox[{-0.20485878372685537`, 0}, 0.06], CircleBox[{0.20485878372685537`, 0}, 0.06], DiskBox[{0.6828626124229742, 0}, 0.06], DiskBox[{-0.6828626124229742, 0}, 0.06], DiskBox[{0.20485878372685537`, -3.673014680959412}, 0.06], DiskBox[{-0.20485878372685537`, -3.673014680959412}, 0.06]}, { CircleBox[{-0.1706056909286129, 0}, 1.3648455274289033`], CircleBox[{0.1706056909286129, 0}, 1.3648455274289033`], CircleBox[{-0.1706056909286129, 0}, 0.06], CircleBox[{0.1706056909286129, 0}, 0.06], DiskBox[{0.6824227637145983, 0}, 0.06], DiskBox[{-0.6824227637145983, 0}, 0.06], DiskBox[{0.1706056909286129, -3.6885698811627066`}, 0.06], DiskBox[{-0.1706056909286129, -3.6885698811627066`}, 0.06]}, { CircleBox[{-0.13642556530173297`, 0}, 1.36425565301733], CircleBox[{0.13642556530173297`, 0}, 1.36425565301733], CircleBox[{-0.13642556530173297`, 0}, 0.06], CircleBox[{0.13642556530173297`, 0}, 0.06], DiskBox[{0.6821278265088297, 0}, 0.06], DiskBox[{-0.6821278265088297, 0}, 0.06], DiskBox[{0.13642556530173297`, -3.699017160004443}, 0.06], DiskBox[{-0.13642556530173297`, -3.699017160004443}, 0.06]}, { CircleBox[{-0.10229232827702998`, 0}, 1.3638977103603995`], CircleBox[{0.10229232827702998`, 0}, 1.3638977103603995`], CircleBox[{-0.10229232827702998`, 0}, 0.06], CircleBox[{0.10229232827702998`, 0}, 0.06], DiskBox[{0.6819488551803766, 0}, 0.06], DiskBox[{-0.6819488551803766, 0}, 0.06], DiskBox[{0.10229232827702998`, -3.7053632997478703`}, 0.06], DiskBox[{-0.10229232827702998`, -3.7053632997478703`}, 0.06]}, { CircleBox[{-0.06818569107722858, 0}, 1.3637138215445719`], CircleBox[{0.06818569107722858, 0}, 1.3637138215445719`], CircleBox[{-0.06818569107722858, 0}, 0.06], CircleBox[{0.06818569107722858, 0}, 0.06], DiskBox[{0.6818569107724692, 0}, 0.06], DiskBox[{-0.6818569107724692, 0}, 0.06], DiskBox[{0.06818569107722858, -3.708625497369802}, 0.06], DiskBox[{-0.06818569107722858, -3.708625497369802}, 0.06]}, { CircleBox[{-0.03409115119529064, 0}, 1.3636460478116244`], CircleBox[{0.03409115119529064, 0}, 1.3636460478116244`], CircleBox[{-0.03409115119529064, 0}, 0.06], CircleBox[{0.03409115119529064, 0}, 0.06], DiskBox[{0.6818230239059979, 0}, 0.06], DiskBox[{-0.6818230239059979, 0}, 0.06], DiskBox[{0.03409115119529064, -3.709828139933169}, 0.06], DiskBox[{-0.03409115119529064, -3.709828139933169}, 0.06]}, { CircleBox[{0., 0}, 1.3636363636325644`], CircleBox[{0., 0}, 1.3636363636325644`], CircleBox[{0., 0}, 0.06], CircleBox[{0., 0}, 0.06], DiskBox[{0.6818181818164682, 0}, 0.06], DiskBox[{-0.6818181818164682, 0}, 0.06], DiskBox[{0., -3.7100000000000044`}, 0.06], DiskBox[{0., -3.7100000000000044`}, 0.06]}}, AspectRatio->Automatic, Frame->True, PlotRange->{{-3, 3}, {-4, 2}}]], "Output", CellChangeTimes->{ 3.572679318083728*^9, 3.5726795087160625`*^9, 3.572679596871817*^9, 3.5726798560662727`*^9, 3.5726798867359266`*^9, 3.5726799792128887`*^9, 3.5726800655278406`*^9, 3.5726800987246985`*^9, 3.5726804361376915`*^9, 3.57268046961535*^9, 3.572680664085292*^9, 3.5726953889537096`*^9, 3.572695623562522*^9, 3.572695725742701*^9, 3.5726958103884497`*^9, { 3.5726958674065495`*^9, 3.572695895408599*^9}, 3.572695927029855*^9, 3.57269602707283*^9, 3.5726960848241315`*^9, 3.572696232197591*^9, 3.5726963087001247`*^9, 3.5726964264335318`*^9, {3.572696524938905*^9, 3.572696546189342*^9}, 3.572696683041582*^9, 3.5726967407548833`*^9, 3.572696970739287*^9, 3.572697050635827*^9, 3.5726971023343177`*^9, 3.5726972114721093`*^9, 3.572697290018247*^9, 3.572698712132345*^9, 3.5726989195659094`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot4", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "-", RowBox[{"0.025", "*", "i"}]}], ")"}], "*", "R"}], " ", "/.", " ", RowBox[{"Q", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"10", "*", RowBox[{"(", RowBox[{ RowBox[{"B", "[", RowBox[{"[", "i", "]"}], "]"}], "+", "0.96"}], ")"}]}], "-", "1.21"}]}], "}"}], ",", "0.03"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"s", "-", RowBox[{"0.025", "*", "i"}]}], ")"}]}], "*", "R"}], " ", "/.", " ", RowBox[{"Q", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"10", "*", RowBox[{"(", RowBox[{ RowBox[{"B", "[", RowBox[{"[", "i", "]"}], "]"}], "+", "\[IndentingNewLine]", "0.96"}], ")"}]}], "-", "1.21"}]}], "}"}], ",", "0.03"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "u"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Plot5", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"s", "-", RowBox[{"0.025", "*", "u"}]}], ")"}]}], "*", "R"}], "/.", RowBox[{"Q", "[", RowBox[{"[", "u", "]"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"R", "/.", RowBox[{"Q", "[", RowBox[{"[", "u", "]"}], "]"}]}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "-", RowBox[{"0.025", "*", "u"}]}], ")"}], "*", "R"}], "/.", RowBox[{"Q", "[", RowBox[{"[", "u", "]"}], "]"}]}], ",", "0"}], "}"}], ",", "0.06"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r", "/.", RowBox[{"P", "[", RowBox[{"[", "u", "]"}], "]"}]}], ",", "0"}], "}"}], ",", "0.06"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "r"}], "/.", RowBox[{"P", "[", RowBox[{"[", "u", "]"}], "]"}]}], ",", "0"}], "}"}], ",", "0.06"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "-", RowBox[{"0.025", "*", "u"}]}], ")"}], "*", "R"}], "/.", RowBox[{"Q", "[", RowBox[{"[", "u", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"10", "*", RowBox[{"(", RowBox[{ RowBox[{"B", "[", RowBox[{"[", "u", "]"}], "]"}], "+", "0.96"}], ")"}]}], "-", "1.21"}]}], "}"}], ",", "0.06"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"s", "-", RowBox[{"0.025", "*", "u"}]}], ")"}]}], "*", "R"}], "/.", RowBox[{"Q", "[", RowBox[{"[", "u", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"10", "*", RowBox[{"(", RowBox[{ RowBox[{"B", "[", RowBox[{"[", "u", "]"}], "]"}], "+", "0.96"}], ")"}]}], "-", "1.21"}]}], "}"}], ",", "0.06"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\n"}], "\n", RowBox[{"Show", "[", RowBox[{"Plot3", ",", "Plot4", ",", "Plot5", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "2"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\n"}], "Input", CellChangeTimes->{{3.572679456533971*^9, 3.5726795762797813`*^9}, 3.5726796929835863`*^9, {3.5726798094689903`*^9, 3.5726798490930605`*^9}, 3.572679879762714*^9, {3.5726799463124313`*^9, 3.5726799526772423`*^9}, 3.572680056807425*^9, {3.5726803988848257`*^9, 3.5726804032060337`*^9}, { 3.5726804452793074`*^9, 3.5726804499749155`*^9}, {3.572695999367182*^9, 3.5726960487100687`*^9}, {3.5726985725901003`*^9, 3.5726986952531157`*^9}, {3.5726988285397496`*^9, 3.5726988991454735`*^9}}], Cell[BoxData[ GraphicsBox[{{DiskBox[{-1.499999999935081, -1.6100000000000003`}, 0.03], DiskBox[{1.499999999935081, -1.6100000000000003`}, 0.03]}, { DiskBox[{-1.4624997128363038`, -1.6100039266163013`}, 0.03], DiskBox[{1.4624997128363038`, -1.6100039266163013`}, 0.03]}, { DiskBox[{-1.4249954984384918`, -1.610063179924357}, 0.03], DiskBox[{1.4249954984384918`, -1.610063179924357}, 0.03]}, { DiskBox[{-1.3874776759151515`, -1.61032179629655}, 0.03], DiskBox[{1.3874776759151515`, -1.61032179629655}, 0.03]}, { DiskBox[{-1.3499309035345035`, -1.6110237299029384`}, 0.03], DiskBox[{1.3499309035345035`, -1.6110237299029384`}, 0.03]}, { DiskBox[{-1.3123348443921865`, -1.612517131965212}, 0.03], DiskBox[{1.3123348443921865`, -1.612517131965212}, 0.03]}, { DiskBox[{-1.2746648240724603`, -1.6152597355562737`}, 0.03], DiskBox[{1.2746648240724603`, -1.6152597355562737`}, 0.03]}, { DiskBox[{-1.2368924866436133`, -1.6198256324828675`}, 0.03], DiskBox[{1.2368924866436133`, -1.6198256324828675`}, 0.03]}, { DiskBox[{-1.1989864567818396`, -1.6269138125511096`}, 0.03], DiskBox[{1.1989864567818396`, -1.6269138125511096`}, 0.03]}, { DiskBox[{-1.1609130170578075`, -1.6373589430360491`}, 0.03], DiskBox[{1.1609130170578075`, -1.6373589430360491`}, 0.03]}, { DiskBox[{-1.1226368105333804`, -1.6521450061562626`}, 0.03], DiskBox[{1.1226368105333804`, -1.6521450061562626`}, 0.03]}, { DiskBox[{-1.0841215798172803`, -1.6724225970159279`}, 0.03], DiskBox[{1.0841215798172803`, -1.6724225970159279`}, 0.03]}, { DiskBox[{-1.0453309504650974`, -1.6995309311746931`}, 0.03], DiskBox[{1.0453309504650974`, -1.6995309311746931`}, 0.03]}, { DiskBox[{-1.006229299079645, -1.7350259446688376`}, 0.03], DiskBox[{1.006229299079645, -1.7350259446688376`}, 0.03]}, { DiskBox[{-0.9667826428852216, -1.7807163261708103`}, 0.03], DiskBox[{0.9667826428852216, -1.7807163261708103`}, 0.03]}, { DiskBox[{-0.926959680686001, -1.8387099543958918`}, 0.03], DiskBox[{0.926959680686001, -1.8387099543958918`}, 0.03]}, { DiskBox[{-0.8867328993504197, -1.9114741034982696`}, 0.03], DiskBox[{0.8867328993504197, -1.9114741034982696`}, 0.03]}, { DiskBox[{-0.8460798083862675, -2.001914045724882}, 0.03], DiskBox[{0.8460798083862675, -2.001914045724882}, 0.03]}, { DiskBox[{-0.8049843075948646, -2.113476509768526}, 0.03], DiskBox[{0.8049843075948646, -2.113476509768526}, 0.03]}, { DiskBox[{-0.7634382029249509, -2.250287135943645}, 0.03], DiskBox[{0.7634382029249509, -2.250287135943645}, 0.03]}, { DiskBox[{-0.7214428857704795, -2.4173350694444484`}, 0.03], DiskBox[{0.7214428857704795, -2.4173350694444484`}, 0.03]}, { DiskBox[{0.7214428857715329, -2.4173350694444418`}, 0.03], DiskBox[{-0.7214428857715329, -2.4173350694444418`}, 0.03]}, { DiskBox[{0.6798494768750877, -2.5935871910861286`}, 0.03], DiskBox[{-0.6798494768750877, -2.5935871910861286`}, 0.03]}, { DiskBox[{0.6394057598974049, -2.7543426643159785`}, 0.03], DiskBox[{-0.6394057598974049, -2.7543426643159785`}, 0.03]}, { DiskBox[{0.5999765234972655, -2.899945955597414}, 0.03], DiskBox[{-0.5999765234972655, -2.899945955597414}, 0.03]}, { DiskBox[{0.5614388778975287, -3.03082642033778}, 0.03], DiskBox[{-0.5614388778975287, -3.03082642033778}, 0.03]}, { DiskBox[{0.523680995539392, -3.1474923590570736`}, 0.03], DiskBox[{-0.523680995539392, -3.1474923590570736`}, 0.03]}, { DiskBox[{0.4866010256043451, -3.2505249733908403`}, 0.03], DiskBox[{-0.4866010256043451, -3.2505249733908403`}, 0.03]}, { DiskBox[{0.45010622588078875`, -3.340572278013385}, 0.03], DiskBox[{-0.45010622588078875`, -3.340572278013385}, 0.03]}, { DiskBox[{0.4141122078438114, -3.4183430224400024`}, 0.03], DiskBox[{-0.4141122078438114, -3.4183430224400024`}, 0.03]}, { DiskBox[{0.37854232564214424`, -3.4846006743006375`}, 0.03], DiskBox[{-0.37854232564214424`, -3.4846006743006375`}, 0.03]}, { DiskBox[{0.34332717410729174`, -3.540157513088653}, 0.03], DiskBox[{-0.34332717410729174`, -3.540157513088653}, 0.03]}, { DiskBox[{0.3084041837360071, -3.585868880590992}, 0.03], DiskBox[{-0.3084041837360071, -3.585868880590992}, 0.03]}, { DiskBox[{0.27371729990630367`, -3.622627631217785}, 0.03], DiskBox[{-0.27371729990630367`, -3.622627631217785}, 0.03]}, { DiskBox[{0.2392167350646898, -3.6513588222827975`}, 0.03], DiskBox[{-0.2392167350646898, -3.6513588222827975`}, 0.03]}, { DiskBox[{0.20485878372685537`, -3.673014680959412}, 0.03], DiskBox[{-0.20485878372685537`, -3.673014680959412}, 0.03]}, { DiskBox[{0.1706056909286129, -3.6885698811627066`}, 0.03], DiskBox[{-0.1706056909286129, -3.6885698811627066`}, 0.03]}, { DiskBox[{0.13642556530173297`, -3.699017160004443}, 0.03], DiskBox[{-0.13642556530173297`, -3.699017160004443}, 0.03]}, { DiskBox[{0.10229232827702998`, -3.7053632997478703`}, 0.03], DiskBox[{-0.10229232827702998`, -3.7053632997478703`}, 0.03]}, { DiskBox[{0.06818569107722858, -3.708625497369802}, 0.03], DiskBox[{-0.06818569107722858, -3.708625497369802}, 0.03]}, { DiskBox[{0.03409115119529064, -3.709828139933169}, 0.03], DiskBox[{-0.03409115119529064, -3.709828139933169}, 0.03]}, { DiskBox[{0., -3.7100000000000044`}, 0.03], DiskBox[{0., -3.7100000000000044`}, 0.03]}, { CircleBox[{0., 0}, 1.3636363636325644`], CircleBox[{0., 0}, 0.06], DiskBox[{0.6818181818164682, 0}, 0.06], DiskBox[{-0.6818181818164682, 0}, 0.06], DiskBox[{0., -3.7100000000000044`}, 0.06], DiskBox[{0., -3.7100000000000044`}, 0.06]}}, AspectRatio->Automatic, Frame->True, PlotRange->{{-3, 3}, {-4, 2}}]], "Output", CellChangeTimes->{ 3.5726795087472625`*^9, 3.5726795969186172`*^9, 3.5726798561130724`*^9, 3.5726798867827263`*^9, 3.572679979244089*^9, 3.57268006555904*^9, 3.5726800987558985`*^9, 3.572680436168891*^9, 3.57268046964655*^9, 3.5726806641164913`*^9, 3.5726953889849095`*^9, 3.5726956235937214`*^9, 3.572695725773901*^9, 3.5726958104196496`*^9, {3.57269586743775*^9, 3.5726958954397993`*^9}, 3.5726959270610547`*^9, 3.5726960271040306`*^9, 3.5726960848397317`*^9, 3.5726962322131906`*^9, 3.572696308715725*^9, 3.5726964264491315`*^9, {3.572696524954505*^9, 3.5726965462049417`*^9}, 3.5726966830571823`*^9, 3.572696740770483*^9, 3.5726969707548866`*^9, 3.572697050651427*^9, 3.5726971023499174`*^9, 3.5726972115033092`*^9, 3.572697290049447*^9, 3.572698712163545*^9, 3.5726989195971093`*^9}] }, Open ]], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{3.572698453733491*^9}] }, AutoGeneratedPackage->None, WindowSize->{1053, 740}, WindowMargins->{{Automatic, 258}, {Automatic, 12}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, CellLabelAutoDelete->True, AnimationCycleRepetitions->2, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 812, 19, 218, "Input"], Cell[1394, 43, 6252, 163, 212, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7683, 211, 187, 6, 82, "Input"], Cell[7873, 219, 1898, 36, 72, "Output"], Cell[9774, 257, 2021, 36, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11832, 298, 1148, 23, 167, "Input"], Cell[12983, 323, 10279, 184, 379, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23299, 512, 496, 14, 167, "Input"], Cell[23798, 528, 6288, 163, 232, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30123, 696, 91, 1, 31, "Input"], Cell[30217, 699, 2013, 36, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32267, 740, 181, 6, 65, "Input"], Cell[32451, 748, 1910, 36, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34398, 789, 1284, 24, 150, "Input"], Cell[35685, 815, 10186, 182, 379, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45908, 1002, 607, 17, 31, "Input"], Cell[46518, 1021, 19459, 350, 379, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[66014, 1376, 5606, 160, 252, "Input"], Cell[71623, 1538, 6651, 104, 379, "Output"] }, Open ]], Cell[78289, 1645, 87, 1, 52, "Input"] } ] *) (* End of internal cache information *)