(* 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[ 69881, 1512] NotebookOptionsPosition[ 68365, 1457] NotebookOutlinePosition[ 68936, 1478] CellTagsIndexPosition[ 68893, 1475] 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}] }, 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}], 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}] }, 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]]+1.0)-1.21},0.06],Disk[{d /. \ Q[[i]],10*(B[[i]]+1.0)-1.21},0.06]}],{i,1,n}]; Plot3=Table[Graphics[{Disk[{-d/.Q[[i]],10*(B[[i]]+1.0)-1.21},0.03], Disk[{d/.Q[[i]],10*(B[[i]]+1.0)-1.21},0.03]}],{i,1,n}]; Show[Plot1,{AspectRatio \[Rule] Automatic,PlotRange \[Rule] \ {{-3,3},{-3.5,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}}], 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.21}, 0.06], DiskBox[{1.499999999935081, -1.21}, 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.210003926616301}, 0.06], DiskBox[{1.4624997128363038`, -1.210003926616301}, 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.2100631799243566`}, 0.06], DiskBox[{1.4249954984384918`, -1.2100631799243566`}, 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.2103217962965496`}, 0.06], DiskBox[{1.3874776759151515`, -1.2103217962965496`}, 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.211023729902938}, 0.06], DiskBox[{1.3499309035345035`, -1.211023729902938}, 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.2125171319652117`}, 0.06], DiskBox[{1.3123348443921865`, -1.2125171319652117`}, 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.2152597355562733`}, 0.06], DiskBox[{1.2746648240724603`, -1.2152597355562733`}, 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.2198256324828671`}, 0.06], DiskBox[{1.2368924866436133`, -1.2198256324828671`}, 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.2269138125511092`}, 0.06], DiskBox[{1.1989864567818396`, -1.2269138125511092`}, 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.2373589430360488`}, 0.06], DiskBox[{1.1609130170578075`, -1.2373589430360488`}, 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.2521450061562622`}, 0.06], DiskBox[{1.1226368105333804`, -1.2521450061562622`}, 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.2724225970159275`}, 0.06], DiskBox[{1.0841215798172803`, -1.2724225970159275`}, 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.2995309311746928`}, 0.06], DiskBox[{1.0453309504650974`, -1.2995309311746928`}, 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.3350259446688373`}, 0.06], DiskBox[{1.006229299079645, -1.3350259446688373`}, 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.38071632617081}, 0.06], DiskBox[{0.9667826428852216, -1.38071632617081}, 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.4387099543958914`}, 0.06], DiskBox[{0.926959680686001, -1.4387099543958914`}, 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.5114741034982693`}, 0.06], DiskBox[{0.8867328993504197, -1.5114741034982693`}, 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, -1.6019140457248815`}, 0.06], DiskBox[{0.8460798083862675, -1.6019140457248815`}, 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, -1.7134765097685256`}, 0.06], DiskBox[{0.8049843075948646, -1.7134765097685256`}, 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, -1.8502871359436446`}, 0.06], DiskBox[{0.7634382029249509, -1.8502871359436446`}, 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.017335069444448}, 0.06], DiskBox[{0.7214428857704795, -2.017335069444448}, 0.06]}}, AspectRatio->Automatic, Frame->True, PlotRange->{{-3, 3}, {-3.5, 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}] }, 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}] }, 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}] }, 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}] }, 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]]+1.0)-1.21},0.06],Disk[{-(s-0.025*i)*R /. \ Q[[i]],10*(B[[i]]+1.0)-1.21},0.06]}],{i,1,u}]; Show[Plot2,{AspectRatio \[Rule] Automatic,PlotRange \[Rule] \ {{-3,3},{-3.5,2}}, Frame -> True}] \ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5726787987988153`*^9, 3.5726788892945743`*^9}, { 3.5726789794851327`*^9, 3.572678995381561*^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.0173350694444414`}, 0.06], DiskBox[{-0.7214428857715329, -2.0173350694444414`}, 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.193587191086128}, 0.06], DiskBox[{-0.6798494768750877, -2.193587191086128}, 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.354342664315978}, 0.06], DiskBox[{-0.6394057598974049, -2.354342664315978}, 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.4999459555974135`}, 0.06], DiskBox[{-0.5999765234972655, -2.4999459555974135`}, 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, -2.6308264203377796`}, 0.06], DiskBox[{-0.5614388778975287, -2.6308264203377796`}, 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, -2.7474923590570732`}, 0.06], DiskBox[{-0.523680995539392, -2.7474923590570732`}, 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, -2.85052497339084}, 0.06], DiskBox[{-0.4866010256043451, -2.85052497339084}, 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`, -2.9405722780133847`}, 0.06], DiskBox[{-0.45010622588078875`, -2.9405722780133847`}, 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.018343022440002}, 0.06], DiskBox[{-0.4141122078438114, -3.018343022440002}, 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.084600674300637}, 0.06], DiskBox[{-0.37854232564214424`, -3.084600674300637}, 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.1401575130886528`}, 0.06], DiskBox[{-0.34332717410729174`, -3.1401575130886528`}, 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.185868880590992}, 0.06], DiskBox[{-0.3084041837360071, -3.185868880590992}, 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.222627631217785}, 0.06], DiskBox[{-0.27371729990630367`, -3.222627631217785}, 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.251358822282797}, 0.06], DiskBox[{-0.2392167350646898, -3.251358822282797}, 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.273014680959412}, 0.06], DiskBox[{-0.20485878372685537`, -3.273014680959412}, 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.288569881162706}, 0.06], DiskBox[{-0.1706056909286129, -3.288569881162706}, 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.2990171600044427`}, 0.06], DiskBox[{-0.13642556530173297`, -3.2990171600044427`}, 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.30536329974787}, 0.06], DiskBox[{-0.10229232827702998`, -3.30536329974787}, 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.3086254973698015`}, 0.06], DiskBox[{-0.06818569107722858, -3.3086254973698015`}, 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.3098281399331686`}, 0.06], DiskBox[{-0.03409115119529064, -3.3098281399331686`}, 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.310000000000004}, 0.06], DiskBox[{0., -3.310000000000004}, 0.06]}}, AspectRatio->Automatic, Frame->True, PlotRange->{{-3, 3}, {-3.5, 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}] }, 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[{"-", "3.5"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.572679284590469*^9, 3.5726793099873133`*^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.21}, 0.06], DiskBox[{1.499999999935081, -1.21}, 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.210003926616301}, 0.06], DiskBox[{1.4624997128363038`, -1.210003926616301}, 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.2100631799243566`}, 0.06], DiskBox[{1.4249954984384918`, -1.2100631799243566`}, 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.2103217962965496`}, 0.06], DiskBox[{1.3874776759151515`, -1.2103217962965496`}, 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.211023729902938}, 0.06], DiskBox[{1.3499309035345035`, -1.211023729902938}, 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.2125171319652117`}, 0.06], DiskBox[{1.3123348443921865`, -1.2125171319652117`}, 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.2152597355562733`}, 0.06], DiskBox[{1.2746648240724603`, -1.2152597355562733`}, 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.2198256324828671`}, 0.06], DiskBox[{1.2368924866436133`, -1.2198256324828671`}, 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.2269138125511092`}, 0.06], DiskBox[{1.1989864567818396`, -1.2269138125511092`}, 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.2373589430360488`}, 0.06], DiskBox[{1.1609130170578075`, -1.2373589430360488`}, 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.2521450061562622`}, 0.06], DiskBox[{1.1226368105333804`, -1.2521450061562622`}, 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.2724225970159275`}, 0.06], DiskBox[{1.0841215798172803`, -1.2724225970159275`}, 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.2995309311746928`}, 0.06], DiskBox[{1.0453309504650974`, -1.2995309311746928`}, 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.3350259446688373`}, 0.06], DiskBox[{1.006229299079645, -1.3350259446688373`}, 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.38071632617081}, 0.06], DiskBox[{0.9667826428852216, -1.38071632617081}, 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.4387099543958914`}, 0.06], DiskBox[{0.926959680686001, -1.4387099543958914`}, 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.5114741034982693`}, 0.06], DiskBox[{0.8867328993504197, -1.5114741034982693`}, 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, -1.6019140457248815`}, 0.06], DiskBox[{0.8460798083862675, -1.6019140457248815`}, 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, -1.7134765097685256`}, 0.06], DiskBox[{0.8049843075948646, -1.7134765097685256`}, 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, -1.8502871359436446`}, 0.06], DiskBox[{0.7634382029249509, -1.8502871359436446`}, 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.017335069444448}, 0.06], DiskBox[{0.7214428857704795, -2.017335069444448}, 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.0173350694444414`}, 0.06], DiskBox[{-0.7214428857715329, -2.0173350694444414`}, 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.193587191086128}, 0.06], DiskBox[{-0.6798494768750877, -2.193587191086128}, 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.354342664315978}, 0.06], DiskBox[{-0.6394057598974049, -2.354342664315978}, 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.4999459555974135`}, 0.06], DiskBox[{-0.5999765234972655, -2.4999459555974135`}, 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, -2.6308264203377796`}, 0.06], DiskBox[{-0.5614388778975287, -2.6308264203377796`}, 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, -2.7474923590570732`}, 0.06], DiskBox[{-0.523680995539392, -2.7474923590570732`}, 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, -2.85052497339084}, 0.06], DiskBox[{-0.4866010256043451, -2.85052497339084}, 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`, -2.9405722780133847`}, 0.06], DiskBox[{-0.45010622588078875`, -2.9405722780133847`}, 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.018343022440002}, 0.06], DiskBox[{-0.4141122078438114, -3.018343022440002}, 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.084600674300637}, 0.06], DiskBox[{-0.37854232564214424`, -3.084600674300637}, 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.1401575130886528`}, 0.06], DiskBox[{-0.34332717410729174`, -3.1401575130886528`}, 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.185868880590992}, 0.06], DiskBox[{-0.3084041837360071, -3.185868880590992}, 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.222627631217785}, 0.06], DiskBox[{-0.27371729990630367`, -3.222627631217785}, 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.251358822282797}, 0.06], DiskBox[{-0.2392167350646898, -3.251358822282797}, 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.273014680959412}, 0.06], DiskBox[{-0.20485878372685537`, -3.273014680959412}, 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.288569881162706}, 0.06], DiskBox[{-0.1706056909286129, -3.288569881162706}, 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.2990171600044427`}, 0.06], DiskBox[{-0.13642556530173297`, -3.2990171600044427`}, 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.30536329974787}, 0.06], DiskBox[{-0.10229232827702998`, -3.30536329974787}, 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.3086254973698015`}, 0.06], DiskBox[{-0.06818569107722858, -3.3086254973698015`}, 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.3098281399331686`}, 0.06], DiskBox[{-0.03409115119529064, -3.3098281399331686`}, 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.310000000000004}, 0.06], DiskBox[{0., -3.310000000000004}, 0.06]}}, AspectRatio->Automatic, Frame->True, PlotRange->{{-3, 3}, {-3.5, 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}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ 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", "]"}], "]"}], "+", "1.0"}], ")"}]}], "-", "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", "]"}], "]"}], "+", "1.0"}], ")"}]}], "-", "1.21"}]}], "}"}], ",", "0.03"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "u"}], "}"}]}], "]"}]}], ";"}], "\n"}], "\n", RowBox[{"Show", "[", RowBox[{"Plot3", ",", "Plot4", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.5"}], ",", "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}}], Cell[BoxData[ GraphicsBox[{{DiskBox[{-1.499999999935081, -1.21}, 0.03], DiskBox[{1.499999999935081, -1.21}, 0.03]}, { DiskBox[{-1.4624997128363038`, -1.210003926616301}, 0.03], DiskBox[{1.4624997128363038`, -1.210003926616301}, 0.03]}, { DiskBox[{-1.4249954984384918`, -1.2100631799243566`}, 0.03], DiskBox[{1.4249954984384918`, -1.2100631799243566`}, 0.03]}, { DiskBox[{-1.3874776759151515`, -1.2103217962965496`}, 0.03], DiskBox[{1.3874776759151515`, -1.2103217962965496`}, 0.03]}, { DiskBox[{-1.3499309035345035`, -1.211023729902938}, 0.03], DiskBox[{1.3499309035345035`, -1.211023729902938}, 0.03]}, { DiskBox[{-1.3123348443921865`, -1.2125171319652117`}, 0.03], DiskBox[{1.3123348443921865`, -1.2125171319652117`}, 0.03]}, { DiskBox[{-1.2746648240724603`, -1.2152597355562733`}, 0.03], DiskBox[{1.2746648240724603`, -1.2152597355562733`}, 0.03]}, { DiskBox[{-1.2368924866436133`, -1.2198256324828671`}, 0.03], DiskBox[{1.2368924866436133`, -1.2198256324828671`}, 0.03]}, { DiskBox[{-1.1989864567818396`, -1.2269138125511092`}, 0.03], DiskBox[{1.1989864567818396`, -1.2269138125511092`}, 0.03]}, { DiskBox[{-1.1609130170578075`, -1.2373589430360488`}, 0.03], DiskBox[{1.1609130170578075`, -1.2373589430360488`}, 0.03]}, { DiskBox[{-1.1226368105333804`, -1.2521450061562622`}, 0.03], DiskBox[{1.1226368105333804`, -1.2521450061562622`}, 0.03]}, { DiskBox[{-1.0841215798172803`, -1.2724225970159275`}, 0.03], DiskBox[{1.0841215798172803`, -1.2724225970159275`}, 0.03]}, { DiskBox[{-1.0453309504650974`, -1.2995309311746928`}, 0.03], DiskBox[{1.0453309504650974`, -1.2995309311746928`}, 0.03]}, { DiskBox[{-1.006229299079645, -1.3350259446688373`}, 0.03], DiskBox[{1.006229299079645, -1.3350259446688373`}, 0.03]}, { DiskBox[{-0.9667826428852216, -1.38071632617081}, 0.03], DiskBox[{0.9667826428852216, -1.38071632617081}, 0.03]}, { DiskBox[{-0.926959680686001, -1.4387099543958914`}, 0.03], DiskBox[{0.926959680686001, -1.4387099543958914`}, 0.03]}, { DiskBox[{-0.8867328993504197, -1.5114741034982693`}, 0.03], DiskBox[{0.8867328993504197, -1.5114741034982693`}, 0.03]}, { DiskBox[{-0.8460798083862675, -1.6019140457248815`}, 0.03], DiskBox[{0.8460798083862675, -1.6019140457248815`}, 0.03]}, { DiskBox[{-0.8049843075948646, -1.7134765097685256`}, 0.03], DiskBox[{0.8049843075948646, -1.7134765097685256`}, 0.03]}, { DiskBox[{-0.7634382029249509, -1.8502871359436446`}, 0.03], DiskBox[{0.7634382029249509, -1.8502871359436446`}, 0.03]}, { DiskBox[{-0.7214428857704795, -2.017335069444448}, 0.03], DiskBox[{0.7214428857704795, -2.017335069444448}, 0.03]}, { DiskBox[{0.7214428857715329, -2.0173350694444414`}, 0.03], DiskBox[{-0.7214428857715329, -2.0173350694444414`}, 0.03]}, { DiskBox[{0.6798494768750877, -2.193587191086128}, 0.03], DiskBox[{-0.6798494768750877, -2.193587191086128}, 0.03]}, { DiskBox[{0.6394057598974049, -2.354342664315978}, 0.03], DiskBox[{-0.6394057598974049, -2.354342664315978}, 0.03]}, { DiskBox[{0.5999765234972655, -2.4999459555974135`}, 0.03], DiskBox[{-0.5999765234972655, -2.4999459555974135`}, 0.03]}, { DiskBox[{0.5614388778975287, -2.6308264203377796`}, 0.03], DiskBox[{-0.5614388778975287, -2.6308264203377796`}, 0.03]}, { DiskBox[{0.523680995539392, -2.7474923590570732`}, 0.03], DiskBox[{-0.523680995539392, -2.7474923590570732`}, 0.03]}, { DiskBox[{0.4866010256043451, -2.85052497339084}, 0.03], DiskBox[{-0.4866010256043451, -2.85052497339084}, 0.03]}, { DiskBox[{0.45010622588078875`, -2.9405722780133847`}, 0.03], DiskBox[{-0.45010622588078875`, -2.9405722780133847`}, 0.03]}, { DiskBox[{0.4141122078438114, -3.018343022440002}, 0.03], DiskBox[{-0.4141122078438114, -3.018343022440002}, 0.03]}, { DiskBox[{0.37854232564214424`, -3.084600674300637}, 0.03], DiskBox[{-0.37854232564214424`, -3.084600674300637}, 0.03]}, { DiskBox[{0.34332717410729174`, -3.1401575130886528`}, 0.03], DiskBox[{-0.34332717410729174`, -3.1401575130886528`}, 0.03]}, { DiskBox[{0.3084041837360071, -3.185868880590992}, 0.03], DiskBox[{-0.3084041837360071, -3.185868880590992}, 0.03]}, { DiskBox[{0.27371729990630367`, -3.222627631217785}, 0.03], DiskBox[{-0.27371729990630367`, -3.222627631217785}, 0.03]}, { DiskBox[{0.2392167350646898, -3.251358822282797}, 0.03], DiskBox[{-0.2392167350646898, -3.251358822282797}, 0.03]}, { DiskBox[{0.20485878372685537`, -3.273014680959412}, 0.03], DiskBox[{-0.20485878372685537`, -3.273014680959412}, 0.03]}, { DiskBox[{0.1706056909286129, -3.288569881162706}, 0.03], DiskBox[{-0.1706056909286129, -3.288569881162706}, 0.03]}, { DiskBox[{0.13642556530173297`, -3.2990171600044427`}, 0.03], DiskBox[{-0.13642556530173297`, -3.2990171600044427`}, 0.03]}, { DiskBox[{0.10229232827702998`, -3.30536329974787}, 0.03], DiskBox[{-0.10229232827702998`, -3.30536329974787}, 0.03]}, { DiskBox[{0.06818569107722858, -3.3086254973698015`}, 0.03], DiskBox[{-0.06818569107722858, -3.3086254973698015`}, 0.03]}, { DiskBox[{0.03409115119529064, -3.3098281399331686`}, 0.03], DiskBox[{-0.03409115119529064, -3.3098281399331686`}, 0.03]}, { DiskBox[{0., -3.310000000000004}, 0.03], DiskBox[{0., -3.310000000000004}, 0.03]}}, AspectRatio->Automatic, Frame->True, PlotRange->{{-3, 3}, {-3.5, 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}] }, Open ]] }, AutoGeneratedPackage->None, WindowSize->{1053, 740}, WindowMargins->{{Automatic, 401}, {Automatic, 28}}, 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, 5692, 155, 212, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7123, 203, 187, 6, 82, "Input"], Cell[7313, 211, 1322, 28, 72, "Output"], Cell[8638, 241, 1445, 28, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10120, 274, 920, 19, 167, "Input"], Cell[11043, 295, 9696, 176, 350, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20776, 476, 496, 14, 167, "Input"], Cell[21275, 492, 5714, 155, 232, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27026, 652, 91, 1, 31, "Input"], Cell[27120, 655, 1451, 28, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28608, 688, 181, 6, 65, "Input"], Cell[28792, 696, 1348, 28, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30177, 729, 671, 16, 150, "Input"], Cell[30851, 747, 9608, 174, 350, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40496, 926, 581, 16, 31, "Input"], Cell[41080, 944, 18862, 341, 350, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[59979, 1290, 2580, 71, 132, "Input"], Cell[62562, 1363, 5787, 91, 382, "Output"] }, Open ]] } ] *) (* End of internal cache information *)