(* 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[ 146936, 2898] NotebookOptionsPosition[ 144260, 2816] NotebookOutlinePosition[ 144857, 2838] CellTagsIndexPosition[ 144814, 2835] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ (* F2C=O F2-formal, with \"orthogonal\" \[Sigma],\[Pi] LPs, 19.01.2013 *)\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{ 3.5668390630515456`*^9, {3.5668394752510695`*^9, 3.5668394888386936`*^9}, { 3.566840005402401*^9, 3.5668400293172426`*^9}, {3.566840906678384*^9, 3.566840923027212*^9}, {3.5668417775723133`*^9, 3.5668417895999346`*^9}, { 3.566841995894697*^9, 3.5668420196535387`*^9}, {3.566842057031204*^9, 3.5668420654552193`*^9}, {3.5668422519691467`*^9, 3.5668422563371544`*^9}, 3.5668422887072115`*^9, {3.566842337504097*^9, 3.566842360326937*^9}, { 3.5668424117758274`*^9, 3.5668424218690453`*^9}, {3.566842627885008*^9, 3.566842684060706*^9}, {3.566842771030859*^9, 3.5668427769432697`*^9}, { 3.5668428297025623`*^9, 3.5668428906206694`*^9}, {3.5668429241763277`*^9, 3.566842930135538*^9}, {3.5668871695283947`*^9, 3.5668871699963956`*^9}, { 3.5668872245808916`*^9, 3.566887225407693*^9}, {3.5668875348030367`*^9, 3.566887535037037*^9}, {3.566887597327946*^9, 3.566887637981618*^9}, 3.5668876998201265`*^9, {3.5668877336253853`*^9, 3.5668877352165885`*^9}, { 3.566887814495928*^9, 3.5668878152135286`*^9}, {3.566887857926404*^9, 3.566887961448186*^9}, 3.5668880086070685`*^9, {3.5668880951092205`*^9, 3.5668881570569296`*^9}, {3.5668882853983545`*^9, 3.5668884070317683`*^9}, {3.566888509258748*^9, 3.5668885097423487`*^9}, { 3.566888582719277*^9, 3.566888583795679*^9}, {3.566888668176227*^9, 3.566888671935834*^9}, {3.5668887042746906`*^9, 3.566888705070292*^9}, { 3.566888771822809*^9, 3.566888808857274*^9}, {3.5668889463559155`*^9, 3.566888956839134*^9}, {3.5669685950612297`*^9, 3.5669685991952367`*^9}, { 3.566968722700654*^9, 3.5669687698127365`*^9}, {3.5669688330864477`*^9, 3.566968848015674*^9}, {3.5669689606010714`*^9, 3.566968973471094*^9}, { 3.5669881655485907`*^9, 3.5669881659853916`*^9}, {3.566996986024498*^9, 3.5669969910321074`*^9}, {3.5669973015818524`*^9, 3.5669973626247597`*^9}, {3.566997996329073*^9, 3.566998005049488*^9}, { 3.56705755136038*^9, 3.5670575543243856`*^9}, {3.5670590414593973`*^9, 3.5670590456714053`*^9}, {3.567061276787324*^9, 3.567061372633892*^9}, { 3.567061756144966*^9, 3.5670617569249673`*^9}, {3.567061904329626*^9, 3.567061915546046*^9}, {3.567062309945938*^9, 3.5670623507556105`*^9}, { 3.567062381019663*^9, 3.5670625124810944`*^9}, {3.5670638527106485`*^9, 3.5670638629598665`*^9}, 3.5670687979573345`*^9, {3.567078692613513*^9, 3.56707870788594*^9}, {3.5672691891313963`*^9, 3.567269197539811*^9}, 3.567334117644643*^9, {3.5675116107397537`*^9, 3.5675116255753803`*^9}, { 3.5675120779761744`*^9, 3.567512078787376*^9}, {3.5675126902772503`*^9, 3.5675127115868874`*^9}, {3.5675743134695244`*^9, 3.567574314421126*^9}, { 3.5675754441699104`*^9, 3.567575450581522*^9}}], Cell["\<\ Clear[ZC,ZN,ZO,sig1,sig2,sig3,sig4,sig5,sig6,sig7,sig8,sig9,k1,k2,k3,k4k5,k6,\ k7,k8,k9, k10,k11,nc,w1,w2,w3,pFL,pch,vee,vne,vnn,xn,yn,zn,xc,yc,zc,c1,c2,c3,cs1,ss1,\ cs2,ss2,cs3, ss3,pi,i,j,d,t]; Clear[Cr,Fr,Oa,CF,CO,OL,FL,Fpi,Cpi,Opi,Osg,w1,w2]; ZC=6.0; ZF=9.0; ZO=8.0; sig1=0.3; sig2=0.3; sig3=0.3; sig4=0.3; sig5=0.3; \ sig6=0.3; sig7=0.3; sig8=0.3; sig9=0.3; nc=22; nn=4; pi=0.0; k1=0.98; k2=0.98; k3=0.98; k4=1.3; k5=1.65; k6=1.25; k7=1.24; k8=2.1; k9=1.1; \ k10=1.1; k11=0.75; k12=0.92; bohr=0.529177; rad=57.29578; pFL=0.0; (* 13 Variables: Cr,Fr,Oa,CF,CO,OL,FL,Fpi,Cpi,Opi,Osg,w1,w2 *)\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{ 3.5668390630515456`*^9, {3.5668394752510695`*^9, 3.5668394888386936`*^9}, { 3.566840005402401*^9, 3.5668400293172426`*^9}, {3.566840906678384*^9, 3.566840923027212*^9}, {3.5668417775723133`*^9, 3.5668417895999346`*^9}, { 3.566841995894697*^9, 3.5668420196535387`*^9}, {3.566842057031204*^9, 3.5668420654552193`*^9}, {3.5668422519691467`*^9, 3.5668422563371544`*^9}, 3.5668422887072115`*^9, {3.566842337504097*^9, 3.566842360326937*^9}, { 3.5668424117758274`*^9, 3.5668424218690453`*^9}, {3.566842627885008*^9, 3.566842684060706*^9}, {3.566842771030859*^9, 3.5668427769432697`*^9}, { 3.5668428297025623`*^9, 3.5668428906206694`*^9}, {3.5668429241763277`*^9, 3.566842930135538*^9}, {3.5668871695283947`*^9, 3.5668871699963956`*^9}, { 3.5668872245808916`*^9, 3.566887225407693*^9}, {3.5668875348030367`*^9, 3.566887535037037*^9}, {3.566887597327946*^9, 3.566887637981618*^9}, 3.5668876998201265`*^9, {3.5668877336253853`*^9, 3.5668877352165885`*^9}, { 3.566887814495928*^9, 3.5668878152135286`*^9}, {3.566887857926404*^9, 3.566887961448186*^9}, 3.5668880086070685`*^9, {3.5668880951092205`*^9, 3.5668881570569296`*^9}, {3.5668882853983545`*^9, 3.5668884070317683`*^9}, {3.566888509258748*^9, 3.5668885097423487`*^9}, { 3.566888582719277*^9, 3.566888583795679*^9}, {3.566888668176227*^9, 3.566888671935834*^9}, {3.5668887042746906`*^9, 3.566888705070292*^9}, { 3.566888771822809*^9, 3.566888808857274*^9}, {3.5668889463559155`*^9, 3.566888956839134*^9}, {3.5669685950612297`*^9, 3.5669685991952367`*^9}, { 3.566968722700654*^9, 3.5669687698127365`*^9}, {3.5669688330864477`*^9, 3.566968848015674*^9}, {3.5669689606010714`*^9, 3.566968973471094*^9}, { 3.5669881655485907`*^9, 3.5669881659853916`*^9}, {3.566996986024498*^9, 3.5669969910321074`*^9}, {3.5669973015818524`*^9, 3.5669973626247597`*^9}, {3.566997996329073*^9, 3.566998005049488*^9}, { 3.56705755136038*^9, 3.5670575543243856`*^9}, {3.5670590414593973`*^9, 3.5670590456714053`*^9}, {3.567061276787324*^9, 3.567061372633892*^9}, { 3.567061756144966*^9, 3.5670617569249673`*^9}, {3.567061904329626*^9, 3.567061915546046*^9}, {3.567062309945938*^9, 3.5670623507556105`*^9}, { 3.567062381019663*^9, 3.5670625124810944`*^9}, {3.5670638527106485`*^9, 3.5670638629598665`*^9}, 3.5670687979573345`*^9, {3.567069322009055*^9, 3.5670693806495576`*^9}, {3.567069419290826*^9, 3.567069451957283*^9}, { 3.5670694881649466`*^9, 3.5670695381162343`*^9}, {3.56708248268017*^9, 3.567082487516179*^9}, {3.567085712191843*^9, 3.56708586995492*^9}, { 3.5670863390009437`*^9, 3.5670863409197474`*^9}, {3.5670863724006023`*^9, 3.5670863736018047`*^9}, {3.567086415363078*^9, 3.56708641629908*^9}, { 3.5670864537547455`*^9, 3.567086586245778*^9}, {3.56708706580622*^9, 3.567087066742222*^9}, {3.5670871956452484`*^9, 3.567087197376851*^9}, { 3.567087313846656*^9, 3.5670873147670574`*^9}, {3.567087346825114*^9, 3.5670873478703156`*^9}, {3.5670873954503994`*^9, 3.567087396292801*^9}, { 3.5670874292868586`*^9, 3.5670874532017007`*^9}, {3.567087493090971*^9, 3.5670874935745716`*^9}, {3.5670979031336823`*^9, 3.5670979250517206`*^9}, {3.567247634991851*^9, 3.567247676659524*^9}, { 3.56724778291131*^9, 3.5672477892761216`*^9}, {3.5672489000760727`*^9, 3.5672489007000737`*^9}, {3.5672492510454893`*^9, 3.567249259407104*^9}, { 3.567250434479168*^9, 3.5672504428095827`*^9}, {3.567250921215623*^9, 3.567250922058024*^9}, {3.567251110053954*^9, 3.5672511110211563`*^9}, 3.5672511638272486`*^9, {3.56725131811152*^9, 3.5672513271595354`*^9}, { 3.5672514083888783`*^9, 3.5672514174368944`*^9}, 3.5672514476697474`*^9, { 3.567251504469447*^9, 3.5672515050778484`*^9}, {3.5672534213240137`*^9, 3.567253422462816*^9}, {3.567253494862543*^9, 3.567253499308551*^9}, { 3.567268602539166*^9, 3.5672686237708035`*^9}, {3.5672686825673065`*^9, 3.5672686838621087`*^9}, {3.567268721052574*^9, 3.567268760146243*^9}, { 3.5672688031555185`*^9, 3.567268961854597*^9}, {3.5672690063302755`*^9, 3.5672690070946765`*^9}, {3.567269054035159*^9, 3.5672690547839603`*^9}, { 3.5673365018124304`*^9, 3.567336653163896*^9}, {3.567336686672755*^9, 3.56733668948076*^9}, {3.5673367723637056`*^9, 3.5673367928465414`*^9}, { 3.5673447921413593`*^9, 3.567344794621764*^9}, 3.5673448590030775`*^9, { 3.567510445168107*^9, 3.567510445464507*^9}, {3.5675104830761733`*^9, 3.567510486024578*^9}, {3.5675123386838326`*^9, 3.567512338886633*^9}, { 3.5675124025659447`*^9, 3.5675124035331464`*^9}, {3.567512725112111*^9, 3.567512728622117*^9}, {3.5675128900980015`*^9, 3.567512899005617*^9}, { 3.5675333364075136`*^9, 3.5675333388567176`*^9}, {3.5675334023644295`*^9, 3.5675334037372313`*^9}, {3.567533566117917*^9, 3.567533566726318*^9}, { 3.5675338085735426`*^9, 3.5675339017525063`*^9}, {3.567533940814975*^9, 3.5675339605022097`*^9}, {3.567533999315078*^9, 3.567534004073086*^9}, 3.567534125316499*^9, 3.5675341609313617`*^9, {3.5675343081956205`*^9, 3.5675343088040214`*^9}, {3.5675343420164795`*^9, 3.5675343434828825`*^9}, {3.567534417754613*^9, 3.5675344187530146`*^9}, { 3.5675344935083456`*^9, 3.5675344938047466`*^9}, {3.5675345796204967`*^9, 3.5675346021157365`*^9}, {3.567534638885001*^9, 3.56753464392381*^9}, { 3.5675346829394784`*^9, 3.5675346852482824`*^9}, {3.5675742184809575`*^9, 3.5675742656866407`*^9}, {3.5675914562252345`*^9, 3.5675915754562435`*^9}, {3.567591606905899*^9, 3.5675916077171*^9}, { 3.5675918028578434`*^9, 3.5675918041994457`*^9}, {3.5675918550711346`*^9, 3.567591865975554*^9}, {3.567591986204965*^9, 3.5675919862673655`*^9}, 3.5675920677931085`*^9, {3.5675932946728635`*^9, 3.567593318618905*^9}, { 3.567593360582979*^9, 3.5675933734062014`*^9}, {3.56759365152349*^9, 3.567593659588704*^9}, {3.567593790738135*^9, 3.567593791986137*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Cr", "=", "0.26"}], ";", " ", RowBox[{"Fr", "=", "0.22"}], ";", " ", RowBox[{"Oa", "=", "0.186"}], ";", " ", RowBox[{"FL", "=", "1.2"}], ";", " ", RowBox[{"CH", "=", "1.25"}], ";", " ", RowBox[{"CO", "=", "0.928"}], ";", " ", RowBox[{"CF", "=", "1.04"}], ";", " ", RowBox[{"OL", "=", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{"Fpi", "=", "1.1"}], ";", " ", RowBox[{"Cpi", "=", "1.4"}], ";", " ", RowBox[{"Osg", "=", "1.05"}], ";", " ", RowBox[{"w1", "=", "1.9"}], ";", " ", RowBox[{"w2", "=", "1.0"}], ";", " ", RowBox[{"w3", "=", "1.0"}], ";", " ", RowBox[{"pch", "=", "0.58"}], ";", RowBox[{"pFL", "=", "0.5"}], ";"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.5670689879656677`*^9, 3.5670691959452333`*^9}, 3.5670698299303465`*^9, {3.567077287748646*^9, 3.5670773058290777`*^9}, { 3.567077396527637*^9, 3.567077402346447*^9}, {3.5670803249623804`*^9, 3.5670804001545124`*^9}, 3.5670804667198296`*^9, 3.5670805071239004`*^9, { 3.5670810452624454`*^9, 3.567081083794513*^9}, {3.5670811174593725`*^9, 3.5670811463974233`*^9}, {3.5670811875190954`*^9, 3.5670812332895756`*^9}, {3.5670812684832373`*^9, 3.567081269356839*^9}, { 3.5670852872782965`*^9, 3.567085293970708*^9}, 3.567591916691243*^9, { 3.5675919839273615`*^9, 3.5675919839273615`*^9}, 3.5675920455162697`*^9, 3.5675921198504*^9, 3.5675922025461454`*^9, 3.5675923524312086`*^9}], Cell["\<\ (* C He shell *) Ekin = 2.25*k1/Cr^2; vee=3.0*sig1/Cr; vne=-3.0*ZC/Cr; (* 2* F He shell *) Ekin = Ekin+2*2.25*k2/Fr^2; vee=vee+2*3.0*sig2/Fr; vne=vne-2*3.0*ZN/Fr; (* O He shell *) Ekin = Ekin+2.25*k3/Oa^2; vee=vee+3.0*sig3/Oa; vne=vne-3.0*ZO/Oa;\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5668390630515456`*^9, 3.5668390682151546`*^9}, { 3.566971938334302*^9, 3.566971944714713*^9}, {3.566972152507078*^9, 3.5669721651899004`*^9}, {3.5669970287685733`*^9, 3.5669972828462195`*^9}, { 3.566997377709986*^9, 3.5669974183012576`*^9}, {3.5669979768290386`*^9, 3.566997987171857*^9}, {3.566998792414071*^9, 3.5669988056272945`*^9}, { 3.567063874659887*^9, 3.567063885189905*^9}, {3.5670698395087633`*^9, 3.567069848260379*^9}, {3.5675744172097063`*^9, 3.567574418083308*^9}, { 3.5675761773867984`*^9, 3.567576207323251*^9}, {3.567591880265179*^9, 3.567591890748398*^9}}], Cell["\<\ (* bonding and lone pairs *) Ekin = Ekin + \ 2.25*(4*k4/FL^2+2*k5/CF^2+k6/CO^2+2*k8/Fpi^2+k9/OL^2+k10/Osg^2+k11/Cpi^2+k12/\ Opi^2); vee=vee+3.0*(2*sig4/FL+sig5/CF+sig6/CO+sig7/CH+sig9/OL);\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5668390630515456`*^9, 3.566839078760773*^9}, { 3.566839318626795*^9, 3.5668393238528037`*^9}, {3.566839506201524*^9, 3.5668395108503323`*^9}, {3.566839541207986*^9, 3.566839568664034*^9}, { 3.566839684650237*^9, 3.56683970887708*^9}, {3.5668397799352045`*^9, 3.5668398201988754`*^9}, {3.566839877872177*^9, 3.5668398909606*^9}, { 3.5668404106911125`*^9, 3.566840417539525*^9}, {3.5668404815464373`*^9, 3.566840691460406*^9}, {3.566840732519678*^9, 3.5668408608923035`*^9}, { 3.566840930000425*^9, 3.5668409412168446`*^9}, {3.566841374686006*^9, 3.566841375388007*^9}, {3.5668421835006266`*^9, 3.5668421845770283`*^9}, { 3.566887398037596*^9, 3.566887402078003*^9}, {3.5668874322328568`*^9, 3.5668874455864797`*^9}, {3.566887493166563*^9, 3.5668874939309645`*^9}, { 3.5668882488786907`*^9, 3.5668882511094947`*^9}, {3.56688847075788*^9, 3.566888479322295*^9}, {3.5668885903476906`*^9, 3.5668885954956994`*^9}, { 3.566971858103361*^9, 3.566971918927868*^9}, {3.566987354128765*^9, 3.5669873624903803`*^9}, {3.566987488164201*^9, 3.566987535619484*^9}, { 3.566987795843541*^9, 3.5669878015843515`*^9}, {3.566987856168847*^9, 3.56698786325126*^9}, {3.566988264733565*^9, 3.566988269819174*^9}, { 3.566988366133743*^9, 3.5669883719525533`*^9}, {3.5669885431160536`*^9, 3.566988549309265*^9}, {3.566991946182942*^9, 3.5669919483981457`*^9}, 3.5669919866182127`*^9, {3.5669920226542764`*^9, 3.5669920505783253`*^9}, { 3.566992103743219*^9, 3.5669921079396257`*^9}, 3.5669921962201815`*^9, { 3.5669922303998413`*^9, 3.5669922340658474`*^9}, {3.566992291177548*^9, 3.5669922926751504`*^9}, {3.566992333890423*^9, 3.5669923348264246`*^9}, 3.566992409675356*^9, {3.566997472043352*^9, 3.566997587171554*^9}, { 3.566997674297707*^9, 3.5669977903463106`*^9}, {3.566997868580448*^9, 3.5669978780652647`*^9}, {3.566998052270771*^9, 3.566998071786405*^9}, { 3.5669981665409718`*^9, 3.5669981730305834`*^9}, {3.56699824522751*^9, 3.566998326394452*^9}, {3.5669983623837156`*^9, 3.5669984017425847`*^9}, { 3.566998470788306*^9, 3.5669984830811276`*^9}, {3.566998534405218*^9, 3.5669985995821323`*^9}, {3.5669988153461113`*^9, 3.566998936995125*^9}, 3.566998967134378*^9, 3.5669990224832754`*^9, {3.5669990973790064`*^9, 3.56699912179305*^9}, {3.5669993047345705`*^9, 3.5669993241410046`*^9}, { 3.566999416274767*^9, 3.566999426742385*^9}, {3.566999497301309*^9, 3.5669995032137194`*^9}, {3.566999549733001*^9, 3.566999551433404*^9}, { 3.5670567651502*^9, 3.567056829110312*^9}, {3.5670569077344503`*^9, 3.5670570287126627`*^9}, {3.56705707303234*^9, 3.5670571842137356`*^9}, { 3.5670572582982655`*^9, 3.567057292103525*^9}, {3.56705732891959*^9, 3.5670574906294737`*^9}, {3.5670578301328697`*^9, 3.56705795512029*^9}, { 3.5670580197668033`*^9, 3.567058030437222*^9}, {3.5670580810281105`*^9, 3.5670581611654515`*^9}, {3.5670581932547083`*^9, 3.567058240616391*^9}, { 3.5670582801312604`*^9, 3.5670582990540934`*^9}, {3.567058343560972*^9, 3.5670584018894744`*^9}, {3.56705845049916*^9, 3.5670585083128614`*^9}, { 3.567058578731385*^9, 3.567058593645011*^9}, {3.5670586348134837`*^9, 3.5670586577143235`*^9}, {3.567058689007979*^9, 3.5670587629209085`*^9}, { 3.567058832777831*^9, 3.5670588394702425`*^9}, {3.567058955628047*^9, 3.5670589616496572`*^9}, {3.5670592284569263`*^9, 3.567059354442747*^9}, { 3.5670593898548098`*^9, 3.567059560456709*^9}, {3.5670596222796183`*^9, 3.5670596362884426`*^9}, {3.5670596726677065`*^9, 3.567059775347087*^9}, { 3.567059838449198*^9, 3.5670598453756094`*^9}, {3.5670598764976645`*^9, 3.5670598805380716`*^9}, 3.567059911254525*^9, {3.5670599744502363`*^9, 3.567060007818695*^9}, {3.567060059127185*^9, 3.5670600818564253`*^9}, { 3.5670601143824825`*^9, 3.567060314593234*^9}, {3.5670607181347427`*^9, 3.5670607311607656`*^9}, {3.567060785573661*^9, 3.567061232998047*^9}, { 3.5670626282800975`*^9, 3.56706267537658*^9}, 3.567062795371991*^9, { 3.567069851801585*^9, 3.567069879460434*^9}, {3.567070767429593*^9, 3.5670707823588195`*^9}, {3.5670805354535503`*^9, 3.5670806312689185`*^9}, {3.567083393113369*^9, 3.5670834586022844`*^9}, { 3.567083501299559*^9, 3.5670835804696984`*^9}, {3.5670836156477604`*^9, 3.5670836215757704`*^9}, {3.567083656504232*^9, 3.5670836570034328`*^9}, 3.5670837376399746`*^9, {3.567247718249197*^9, 3.567247775142497*^9}, { 3.5675805853929405`*^9, 3.5675806599610715`*^9}, {3.567591983974161*^9, 3.5675919840365615`*^9}, {3.567592045547469*^9, 3.56759204560987*^9}, 3.5675921198816*^9, 3.567592202592945*^9, 3.5675923524780083`*^9, 3.56759238742207*^9}], Cell["\<\ (* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 \ 22*) (* C F F O FL FL FL FL B B B L2 L1 L1 L1 L1 Bp Bp Bp Bp L1 \ L1 *) as={\" \",C,F,F,O}; (* atom string *) rr={Cr,Fr,Fr,Oa,CF,CF,FL,FL,FL,FL,CO,OL,Fpi,Fpi,Fpi,Fpi, Cpi, Cpi, Opi, \ Opi,Osg,Osg}; cc={-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2, -1, -1, -1, -1,-1/2,-1/2,-1/2,-1/2, \ -1, -1}; cn={ZC,ZF,ZF,ZO}; csw1=Cos[w1]; ssw1=Sin[w1]; csw2=Cos[w2]; ssw2=Sin[w2];\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5668390630515456`*^9, 3.566839078760773*^9}, { 3.566839318626795*^9, 3.5668393238528037`*^9}, {3.566839506201524*^9, 3.5668395108503323`*^9}, {3.566839541207986*^9, 3.566839568664034*^9}, { 3.566839684650237*^9, 3.56683970887708*^9}, {3.5668397799352045`*^9, 3.5668398201988754`*^9}, {3.566839877872177*^9, 3.5668398909606*^9}, { 3.5668404106911125`*^9, 3.566840417539525*^9}, {3.5668404815464373`*^9, 3.566840691460406*^9}, {3.566840732519678*^9, 3.5668408608923035`*^9}, { 3.566840930000425*^9, 3.5668409412168446`*^9}, {3.566841374686006*^9, 3.566841375388007*^9}, {3.5668421835006266`*^9, 3.5668421845770283`*^9}, { 3.566887398037596*^9, 3.566887402078003*^9}, {3.5668874322328568`*^9, 3.5668874455864797`*^9}, {3.566887493166563*^9, 3.5668874939309645`*^9}, { 3.5668882488786907`*^9, 3.5668882511094947`*^9}, {3.56688847075788*^9, 3.566888479322295*^9}, {3.5668885903476906`*^9, 3.5668885954956994`*^9}, { 3.566971858103361*^9, 3.566971918927868*^9}, {3.566987354128765*^9, 3.5669873624903803`*^9}, {3.566987488164201*^9, 3.566987535619484*^9}, { 3.566987795843541*^9, 3.5669878015843515`*^9}, {3.566987856168847*^9, 3.56698786325126*^9}, {3.566988264733565*^9, 3.566988269819174*^9}, { 3.566988366133743*^9, 3.5669883719525533`*^9}, {3.5669885431160536`*^9, 3.566988549309265*^9}, {3.566991946182942*^9, 3.5669919483981457`*^9}, 3.5669919866182127`*^9, {3.5669920226542764`*^9, 3.5669920505783253`*^9}, { 3.566992103743219*^9, 3.5669921079396257`*^9}, 3.5669921962201815`*^9, { 3.5669922303998413`*^9, 3.5669922340658474`*^9}, {3.566992291177548*^9, 3.5669922926751504`*^9}, {3.566992333890423*^9, 3.5669923348264246`*^9}, 3.566992409675356*^9, {3.566997472043352*^9, 3.566997587171554*^9}, { 3.566997674297707*^9, 3.5669977903463106`*^9}, {3.566997868580448*^9, 3.5669978780652647`*^9}, {3.566998052270771*^9, 3.566998071786405*^9}, { 3.5669981665409718`*^9, 3.5669981730305834`*^9}, {3.56699824522751*^9, 3.566998326394452*^9}, {3.5669983623837156`*^9, 3.5669984017425847`*^9}, { 3.566998470788306*^9, 3.5669984830811276`*^9}, {3.566998534405218*^9, 3.5669985995821323`*^9}, {3.5669988153461113`*^9, 3.566998936995125*^9}, 3.566998967134378*^9, 3.5669990224832754`*^9, {3.5669990973790064`*^9, 3.56699912179305*^9}, {3.5669993047345705`*^9, 3.5669993241410046`*^9}, { 3.566999416274767*^9, 3.566999426742385*^9}, {3.566999497301309*^9, 3.5669995032137194`*^9}, {3.566999549733001*^9, 3.566999551433404*^9}, { 3.5670567651502*^9, 3.567056829110312*^9}, {3.5670569077344503`*^9, 3.5670570287126627`*^9}, {3.56705707303234*^9, 3.5670571842137356`*^9}, { 3.5670572582982655`*^9, 3.567057292103525*^9}, {3.56705732891959*^9, 3.5670574906294737`*^9}, {3.5670578301328697`*^9, 3.56705795512029*^9}, { 3.5670580197668033`*^9, 3.567058030437222*^9}, {3.5670580810281105`*^9, 3.5670581611654515`*^9}, {3.5670581932547083`*^9, 3.567058240616391*^9}, { 3.5670582801312604`*^9, 3.5670582990540934`*^9}, {3.567058343560972*^9, 3.5670584018894744`*^9}, {3.56705845049916*^9, 3.5670585083128614`*^9}, { 3.567058578731385*^9, 3.567058593645011*^9}, {3.5670586348134837`*^9, 3.5670586577143235`*^9}, {3.567058689007979*^9, 3.5670587629209085`*^9}, { 3.567058832777831*^9, 3.5670588394702425`*^9}, {3.567058955628047*^9, 3.5670589616496572`*^9}, {3.5670592284569263`*^9, 3.567059354442747*^9}, { 3.5670593898548098`*^9, 3.567059560456709*^9}, {3.5670596222796183`*^9, 3.5670596362884426`*^9}, {3.5670596726677065`*^9, 3.567059775347087*^9}, { 3.567059838449198*^9, 3.5670598453756094`*^9}, {3.5670598764976645`*^9, 3.5670598805380716`*^9}, 3.567059911254525*^9, {3.5670599744502363`*^9, 3.567060007818695*^9}, {3.567060059127185*^9, 3.5670600818564253`*^9}, { 3.5670601143824825`*^9, 3.567060314593234*^9}, {3.5670607181347427`*^9, 3.5670607311607656`*^9}, {3.567060785573661*^9, 3.567061232998047*^9}, { 3.5670626282800975`*^9, 3.56706267537658*^9}, 3.567062795371991*^9, { 3.567069851801585*^9, 3.567069879460434*^9}, {3.567070767429593*^9, 3.5670707823588195`*^9}, {3.5670805354535503`*^9, 3.5670806312689185`*^9}, {3.567083393113369*^9, 3.5670834586022844`*^9}, { 3.567083501299559*^9, 3.5670835804696984`*^9}, {3.5670836156477604`*^9, 3.5670836215757704`*^9}, {3.567083656504232*^9, 3.5670836570034328`*^9}, 3.5670837376399746`*^9, {3.567228361875599*^9, 3.5672284052748756`*^9}, { 3.567247444921117*^9, 3.5672474899115963`*^9}, 3.5672475334980726`*^9, { 3.567247593043377*^9, 3.5672476082534037`*^9}, {3.5672478183077726`*^9, 3.567247880489482*^9}, {3.5672480027468967`*^9, 3.567248042745367*^9}, { 3.5672487779746585`*^9, 3.567248812669119*^9}, {3.5673358974985685`*^9, 3.5673358994953723`*^9}, {3.567510844107608*^9, 3.5675108447316084`*^9}, { 3.5675109368653708`*^9, 3.567510937832572*^9}, 3.5675112986612062`*^9, 3.5675114921015453`*^9, {3.5675120605509443`*^9, 3.5675120611437454`*^9}, { 3.5675125467257977`*^9, 3.5675125491906023`*^9}, {3.567512679341631*^9, 3.567512679575631*^9}, {3.567575480393174*^9, 3.5675754818907766`*^9}, { 3.5675756988091583`*^9, 3.5675757213355975`*^9}, {3.5675808483938026`*^9, 3.5675808688298388`*^9}, {3.5675809179543247`*^9, 3.5675810041756763`*^9}, {3.5675919157552414`*^9, 3.5675919158176413`*^9}, {3.5675919841145616`*^9, 3.5675919843017616`*^9}, {3.5675920456878695`*^9, 3.56759204575027*^9}, { 3.5675921199596*^9, 3.5675921201468005`*^9}, {3.5675922026553454`*^9, 3.5675922027801456`*^9}, {3.5675922812794833`*^9, 3.5675922952259083`*^9}, {3.567592351432807*^9, 3.567592351573207*^9}, { 3.56759238748447*^9, 3.56759238756247*^9}, {3.567592428543742*^9, 3.5675925009746695`*^9}, {3.567592750153907*^9, 3.56759278608077*^9}, { 3.567592872879322*^9, 3.567592875359727*^9}, {3.567592953843465*^9, 3.5675929540306654`*^9}, 3.56759304786483*^9, {3.5675932283727465`*^9, 3.5675932367343616`*^9}, {3.567593273722027*^9, 3.567593279306836*^9}, 3.5675935806993656`*^9, {3.56759361177462*^9, 3.567593642069874*^9}, { 3.5675937308964295`*^9, 3.5675937559812737`*^9}, {3.5675938168837805`*^9, 3.567593836337015*^9}, {3.5675942124536753`*^9, 3.56759437461596*^9}, { 3.5675968067382317`*^9, 3.56759681126224*^9}}], Cell["\<\ dcx=0; dcy=0; dcfx=(Cr+Fr+2*CF)*csw1; dcfy=(Fr+CF)*ssw1; dccfx=(Cr+CF)*csw1; dccfy=(Cr+CF)*ssw1; dcox=(Cr+Oa+2*CO); dcoy=0; dFLx=dCFx+(Fr+FL)*csw1; dchx=(Cr+CH)*csw3; dcCFx=Cr+CF; pFLx=dCFx+(Fr+FL+pFL)*csw1; pchx=(Cr+CH+pch)*csw3; dFLy=(Fr+FL)*ssw1; dchy=(Cr+CH)*ssw3; pFLy=(Fr+FL+pFL)*ssw1; pchy=(Cr+CH+pch)*ssw3; dccox=(Cr+CO)*csw2; dccoy=(Cr+CO)*ssw2; dolx=(Cr+2*CO+2*Oa+OL)*csw2; doly=(Cr+2*CO+2*Oa+OL)*ssw2; dOsg1x=dcox-(Oa+Osg)*ssw2; dOsg2x=dcox+(Oa+Osg)*ssw2; dOsg1y=dcoy+(Oa+Osg)*csw2; dOsg2y=dcoy-(Oa+Osg)*csw2;\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5668390630515456`*^9, 3.566839078760773*^9}, { 3.566839318626795*^9, 3.5668393238528037`*^9}, {3.566839506201524*^9, 3.5668395108503323`*^9}, {3.566839541207986*^9, 3.566839568664034*^9}, { 3.566839684650237*^9, 3.56683970887708*^9}, {3.5668397799352045`*^9, 3.5668398201988754`*^9}, {3.566839877872177*^9, 3.5668398909606*^9}, { 3.5668404106911125`*^9, 3.566840417539525*^9}, {3.5668404815464373`*^9, 3.566840691460406*^9}, {3.566840732519678*^9, 3.5668408608923035`*^9}, { 3.566840930000425*^9, 3.5668409412168446`*^9}, {3.566841374686006*^9, 3.566841375388007*^9}, {3.5668421835006266`*^9, 3.5668421845770283`*^9}, { 3.566887398037596*^9, 3.566887402078003*^9}, {3.5668874322328568`*^9, 3.5668874455864797`*^9}, {3.566887493166563*^9, 3.5668874939309645`*^9}, { 3.5668882488786907`*^9, 3.5668882511094947`*^9}, {3.56688847075788*^9, 3.566888479322295*^9}, {3.5668885903476906`*^9, 3.5668885954956994`*^9}, { 3.566971858103361*^9, 3.566971918927868*^9}, {3.566987354128765*^9, 3.5669873624903803`*^9}, {3.566987488164201*^9, 3.566987535619484*^9}, { 3.566987795843541*^9, 3.5669878015843515`*^9}, {3.566987856168847*^9, 3.56698786325126*^9}, {3.566988264733565*^9, 3.566988269819174*^9}, { 3.566988366133743*^9, 3.5669883719525533`*^9}, {3.5669885431160536`*^9, 3.566988549309265*^9}, {3.566991946182942*^9, 3.5669919483981457`*^9}, 3.5669919866182127`*^9, {3.5669920226542764`*^9, 3.5669920505783253`*^9}, { 3.566992103743219*^9, 3.5669921079396257`*^9}, 3.5669921962201815`*^9, { 3.5669922303998413`*^9, 3.5669922340658474`*^9}, {3.566992291177548*^9, 3.5669922926751504`*^9}, {3.566992333890423*^9, 3.5669923348264246`*^9}, 3.566992409675356*^9, {3.566997472043352*^9, 3.566997587171554*^9}, { 3.566997674297707*^9, 3.5669977903463106`*^9}, {3.566997868580448*^9, 3.5669978780652647`*^9}, {3.566998052270771*^9, 3.566998071786405*^9}, { 3.5669981665409718`*^9, 3.5669981730305834`*^9}, {3.56699824522751*^9, 3.566998326394452*^9}, {3.5669983623837156`*^9, 3.5669984017425847`*^9}, { 3.566998470788306*^9, 3.5669984830811276`*^9}, {3.566998534405218*^9, 3.5669985995821323`*^9}, {3.5669988153461113`*^9, 3.566998936995125*^9}, 3.566998967134378*^9, 3.5669990224832754`*^9, {3.5669990973790064`*^9, 3.56699912179305*^9}, {3.5669993047345705`*^9, 3.5669993241410046`*^9}, { 3.566999416274767*^9, 3.566999426742385*^9}, {3.566999497301309*^9, 3.5669995032137194`*^9}, {3.566999549733001*^9, 3.566999551433404*^9}, { 3.5670567651502*^9, 3.567056829110312*^9}, {3.5670569077344503`*^9, 3.5670570287126627`*^9}, {3.56705707303234*^9, 3.5670571842137356`*^9}, { 3.5670572582982655`*^9, 3.567057292103525*^9}, {3.56705732891959*^9, 3.5670574906294737`*^9}, {3.5670578301328697`*^9, 3.56705795512029*^9}, { 3.5670580197668033`*^9, 3.567058030437222*^9}, {3.5670580810281105`*^9, 3.5670581611654515`*^9}, {3.5670581932547083`*^9, 3.567058240616391*^9}, { 3.5670582801312604`*^9, 3.5670582990540934`*^9}, {3.567058343560972*^9, 3.5670584018894744`*^9}, {3.56705845049916*^9, 3.5670585083128614`*^9}, { 3.567058578731385*^9, 3.567058593645011*^9}, {3.5670586348134837`*^9, 3.5670586577143235`*^9}, {3.567058689007979*^9, 3.5670587629209085`*^9}, { 3.567058832777831*^9, 3.5670588394702425`*^9}, {3.567058955628047*^9, 3.5670589616496572`*^9}, {3.5670592284569263`*^9, 3.567059354442747*^9}, { 3.5670593898548098`*^9, 3.567059560456709*^9}, {3.5670596222796183`*^9, 3.5670596362884426`*^9}, {3.5670596726677065`*^9, 3.567059775347087*^9}, { 3.567059838449198*^9, 3.5670598453756094`*^9}, {3.5670598764976645`*^9, 3.5670598805380716`*^9}, 3.567059911254525*^9, {3.5670599744502363`*^9, 3.567060007818695*^9}, {3.567060059127185*^9, 3.5670600818564253`*^9}, { 3.5670601143824825`*^9, 3.567060314593234*^9}, {3.5670607181347427`*^9, 3.5670607311607656`*^9}, {3.567060785573661*^9, 3.567061232998047*^9}, { 3.5670626282800975`*^9, 3.56706267537658*^9}, 3.567062795371991*^9, { 3.567069851801585*^9, 3.567069879460434*^9}, {3.567070767429593*^9, 3.5670707823588195`*^9}, {3.5670805354535503`*^9, 3.5670806312689185`*^9}, {3.567083393113369*^9, 3.5670834586022844`*^9}, { 3.567083501299559*^9, 3.5670835804696984`*^9}, {3.5670836156477604`*^9, 3.5670836215757704`*^9}, {3.567083656504232*^9, 3.5670836570034328`*^9}, { 3.5670837376399746`*^9, 3.56708374668799*^9}, {3.5673117165829782`*^9, 3.5673117180649805`*^9}, {3.5675919158800416`*^9, 3.5675919161452417`*^9}, {3.567591984364162*^9, 3.567591984956963*^9}, { 3.5675920458126698`*^9, 3.56759204614027*^9}, {3.5675922028425455`*^9, 3.5675922033105464`*^9}, {3.5675938827314963`*^9, 3.567594118713111*^9}, { 3.5675971987825203`*^9, 3.567597257922224*^9}, {3.5675973183567305`*^9, 3.567597338543166*^9}, {3.5675974076980877`*^9, 3.567597421394912*^9}}], Cell["\<\ (* 4 nuclei: *) xn={dcx,-dcfx,-dcfx,dcox}; yn={dcy, dcfy,-dcfy,dcoy}; zn={0,0,0,0,0,0};\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5668390630515456`*^9, 3.566839078760773*^9}, { 3.566839318626795*^9, 3.5668393238528037`*^9}, {3.566839506201524*^9, 3.5668395108503323`*^9}, {3.566839541207986*^9, 3.566839568664034*^9}, { 3.566839684650237*^9, 3.56683970887708*^9}, {3.5668397799352045`*^9, 3.5668398201988754`*^9}, {3.566839877872177*^9, 3.5668398909606*^9}, { 3.5668404106911125`*^9, 3.566840417539525*^9}, {3.5668404815464373`*^9, 3.566840691460406*^9}, {3.566840732519678*^9, 3.5668408608923035`*^9}, { 3.566840930000425*^9, 3.5668409412168446`*^9}, {3.566841374686006*^9, 3.566841375388007*^9}, {3.5668421835006266`*^9, 3.5668421845770283`*^9}, { 3.566887398037596*^9, 3.566887402078003*^9}, {3.5668874322328568`*^9, 3.5668874455864797`*^9}, {3.566887493166563*^9, 3.5668874939309645`*^9}, { 3.5668882488786907`*^9, 3.5668882511094947`*^9}, {3.56688847075788*^9, 3.566888479322295*^9}, {3.5668885903476906`*^9, 3.5668885954956994`*^9}, { 3.566971858103361*^9, 3.566971918927868*^9}, {3.566987354128765*^9, 3.5669873624903803`*^9}, {3.566987488164201*^9, 3.566987535619484*^9}, { 3.566987795843541*^9, 3.5669878015843515`*^9}, {3.566987856168847*^9, 3.56698786325126*^9}, {3.566988264733565*^9, 3.566988269819174*^9}, { 3.566988366133743*^9, 3.5669883719525533`*^9}, {3.5669885431160536`*^9, 3.566988549309265*^9}, {3.566991946182942*^9, 3.5669919483981457`*^9}, 3.5669919866182127`*^9, {3.5669920226542764`*^9, 3.5669920505783253`*^9}, { 3.566992103743219*^9, 3.5669921079396257`*^9}, 3.5669921962201815`*^9, { 3.5669922303998413`*^9, 3.5669922340658474`*^9}, {3.566992291177548*^9, 3.5669922926751504`*^9}, {3.566992333890423*^9, 3.5669923348264246`*^9}, 3.566992409675356*^9, {3.566997472043352*^9, 3.566997587171554*^9}, { 3.566997674297707*^9, 3.5669977903463106`*^9}, {3.566997868580448*^9, 3.5669978780652647`*^9}, {3.566998052270771*^9, 3.566998071786405*^9}, { 3.5669981665409718`*^9, 3.5669981730305834`*^9}, {3.56699824522751*^9, 3.566998326394452*^9}, {3.5669983623837156`*^9, 3.5669984017425847`*^9}, { 3.566998470788306*^9, 3.5669984830811276`*^9}, {3.566998534405218*^9, 3.5669985995821323`*^9}, {3.5669988153461113`*^9, 3.566998936995125*^9}, 3.566998967134378*^9, 3.5669990224832754`*^9, {3.5669990973790064`*^9, 3.56699912179305*^9}, {3.5669993047345705`*^9, 3.5669993241410046`*^9}, { 3.566999416274767*^9, 3.566999426742385*^9}, {3.566999497301309*^9, 3.5669995032137194`*^9}, {3.566999549733001*^9, 3.566999551433404*^9}, { 3.5670567651502*^9, 3.567056829110312*^9}, {3.5670569077344503`*^9, 3.5670570287126627`*^9}, {3.56705707303234*^9, 3.5670571842137356`*^9}, { 3.5670572582982655`*^9, 3.567057292103525*^9}, {3.56705732891959*^9, 3.5670574906294737`*^9}, {3.5670578301328697`*^9, 3.56705795512029*^9}, { 3.5670580197668033`*^9, 3.567058030437222*^9}, {3.5670580810281105`*^9, 3.5670581611654515`*^9}, {3.5670581932547083`*^9, 3.567058240616391*^9}, { 3.5670582801312604`*^9, 3.5670582990540934`*^9}, {3.567058343560972*^9, 3.5670584018894744`*^9}, {3.56705845049916*^9, 3.5670585083128614`*^9}, { 3.567058578731385*^9, 3.567058593645011*^9}, {3.5670586348134837`*^9, 3.5670586577143235`*^9}, {3.567058689007979*^9, 3.5670587629209085`*^9}, { 3.567058832777831*^9, 3.5670588394702425`*^9}, {3.567058955628047*^9, 3.5670589616496572`*^9}, {3.5670592284569263`*^9, 3.567059354442747*^9}, { 3.5670593898548098`*^9, 3.567059560456709*^9}, {3.5670596222796183`*^9, 3.5670596362884426`*^9}, {3.5670596726677065`*^9, 3.567059775347087*^9}, { 3.567059838449198*^9, 3.5670598453756094`*^9}, {3.5670598764976645`*^9, 3.5670598805380716`*^9}, 3.567059911254525*^9, {3.5670599744502363`*^9, 3.567060007818695*^9}, {3.567060059127185*^9, 3.5670600818564253`*^9}, { 3.5670601143824825`*^9, 3.567060314593234*^9}, {3.5670607181347427`*^9, 3.5670607311607656`*^9}, {3.567060785573661*^9, 3.567061232998047*^9}, { 3.5670626282800975`*^9, 3.56706267537658*^9}, 3.567062795371991*^9, { 3.567069851801585*^9, 3.567069879460434*^9}, {3.567070767429593*^9, 3.5670707823588195`*^9}, {3.5670805354535503`*^9, 3.5670806312689185`*^9}, {3.567083393113369*^9, 3.5670834586022844`*^9}, { 3.567083501299559*^9, 3.5670835804696984`*^9}, {3.5670836156477604`*^9, 3.5670836215757704`*^9}, {3.567083656504232*^9, 3.5670836570034328`*^9}, { 3.5670837376399746`*^9, 3.567083757514409*^9}, {3.567591985034963*^9, 3.5675919852221637`*^9}, 3.5675920462182703`*^9, 3.5675923876248703`*^9, { 3.567596473615247*^9, 3.5675965936730576`*^9}, {3.5675974262777205`*^9, 3.567597455356171*^9}}], Cell["\<\ (* 22 clouds: cOpird *) xc={dcx,-dcfx,-dcfx,dcox,-dflx,-dflx,-dflx,-dflx,dcox,dolx,-dcfx,-dcfx,-dcfx,\ dcfx,0,0,dcox,dcox,dcox,dcox}; yc={0,dcfy,-dcfy,dcoy,dFLy,-dFLy,-dchy,0,dccoy,doly,0,0,0,0,dcoy,dcoy,dOsg1y,\ dOsg2y}; zc={0,0,0,0,0,0,0,0,0,Fpi,-Fpi,Cpi,-Cpi,Opi,-Opi,0,0};\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5668390630515456`*^9, 3.566839078760773*^9}, { 3.566839318626795*^9, 3.5668393238528037`*^9}, {3.566839506201524*^9, 3.5668395108503323`*^9}, {3.566839541207986*^9, 3.566839568664034*^9}, { 3.566839684650237*^9, 3.56683970887708*^9}, {3.5668397799352045`*^9, 3.5668398201988754`*^9}, {3.566839877872177*^9, 3.5668398909606*^9}, { 3.5668404106911125`*^9, 3.566840417539525*^9}, {3.5668404815464373`*^9, 3.566840691460406*^9}, {3.566840732519678*^9, 3.5668408608923035`*^9}, { 3.566840930000425*^9, 3.5668409412168446`*^9}, {3.566841374686006*^9, 3.566841375388007*^9}, {3.5668421835006266`*^9, 3.5668421845770283`*^9}, { 3.566887398037596*^9, 3.566887402078003*^9}, {3.5668874322328568`*^9, 3.5668874455864797`*^9}, {3.566887493166563*^9, 3.5668874939309645`*^9}, { 3.5668882488786907`*^9, 3.5668882511094947`*^9}, {3.56688847075788*^9, 3.566888479322295*^9}, {3.5668885903476906`*^9, 3.5668885954956994`*^9}, { 3.566971858103361*^9, 3.566971918927868*^9}, {3.566987354128765*^9, 3.5669873624903803`*^9}, {3.566987488164201*^9, 3.566987535619484*^9}, { 3.566987795843541*^9, 3.5669878015843515`*^9}, {3.566987856168847*^9, 3.56698786325126*^9}, {3.566988264733565*^9, 3.566988269819174*^9}, { 3.566988366133743*^9, 3.5669883719525533`*^9}, {3.5669885431160536`*^9, 3.566988549309265*^9}, {3.566991946182942*^9, 3.5669919483981457`*^9}, 3.5669919866182127`*^9, {3.5669920226542764`*^9, 3.5669920505783253`*^9}, { 3.566992103743219*^9, 3.5669921079396257`*^9}, 3.5669921962201815`*^9, { 3.5669922303998413`*^9, 3.5669922340658474`*^9}, {3.566992291177548*^9, 3.5669922926751504`*^9}, {3.566992333890423*^9, 3.5669923348264246`*^9}, 3.566992409675356*^9, {3.566997472043352*^9, 3.566997587171554*^9}, { 3.566997674297707*^9, 3.5669977903463106`*^9}, {3.566997868580448*^9, 3.5669978780652647`*^9}, {3.566998052270771*^9, 3.566998071786405*^9}, { 3.5669981665409718`*^9, 3.5669981730305834`*^9}, {3.56699824522751*^9, 3.566998326394452*^9}, {3.5669983623837156`*^9, 3.5669984017425847`*^9}, { 3.566998470788306*^9, 3.5669984830811276`*^9}, {3.566998534405218*^9, 3.5669985995821323`*^9}, {3.5669988153461113`*^9, 3.566998936995125*^9}, 3.566998967134378*^9, 3.5669990224832754`*^9, {3.5669990973790064`*^9, 3.56699912179305*^9}, {3.5669993047345705`*^9, 3.5669993241410046`*^9}, { 3.566999416274767*^9, 3.566999426742385*^9}, {3.566999497301309*^9, 3.5669995032137194`*^9}, {3.566999549733001*^9, 3.566999551433404*^9}, { 3.5670567651502*^9, 3.567056829110312*^9}, {3.5670569077344503`*^9, 3.5670570287126627`*^9}, {3.56705707303234*^9, 3.5670571842137356`*^9}, { 3.5670572582982655`*^9, 3.567057292103525*^9}, {3.56705732891959*^9, 3.5670574906294737`*^9}, {3.5670578301328697`*^9, 3.56705795512029*^9}, { 3.5670580197668033`*^9, 3.567058030437222*^9}, {3.5670580810281105`*^9, 3.5670581611654515`*^9}, {3.5670581932547083`*^9, 3.567058240616391*^9}, { 3.5670582801312604`*^9, 3.5670582990540934`*^9}, {3.567058343560972*^9, 3.5670584018894744`*^9}, {3.56705845049916*^9, 3.5670585083128614`*^9}, { 3.567058578731385*^9, 3.567058593645011*^9}, {3.5670586348134837`*^9, 3.5670586577143235`*^9}, {3.567058689007979*^9, 3.5670587629209085`*^9}, { 3.567058832777831*^9, 3.5670588394702425`*^9}, {3.567058955628047*^9, 3.5670589616496572`*^9}, {3.5670592284569263`*^9, 3.567059354442747*^9}, { 3.5670593898548098`*^9, 3.567059560456709*^9}, {3.5670596222796183`*^9, 3.5670596362884426`*^9}, {3.5670596726677065`*^9, 3.567059775347087*^9}, { 3.567059838449198*^9, 3.5670598453756094`*^9}, {3.5670598764976645`*^9, 3.5670598805380716`*^9}, 3.567059911254525*^9, {3.5670599744502363`*^9, 3.567060007818695*^9}, {3.567060059127185*^9, 3.5670600818564253`*^9}, { 3.5670601143824825`*^9, 3.567060314593234*^9}, {3.5670607181347427`*^9, 3.5670607311607656`*^9}, {3.567060785573661*^9, 3.567061232998047*^9}, { 3.5670626282800975`*^9, 3.56706267537658*^9}, 3.567062795371991*^9, { 3.567069851801585*^9, 3.567069879460434*^9}, {3.567070767429593*^9, 3.5670707823588195`*^9}, {3.5670805354535503`*^9, 3.5670806312689185`*^9}, {3.567083393113369*^9, 3.5670834586022844`*^9}, { 3.567083501299559*^9, 3.5670835804696984`*^9}, {3.5670836156477604`*^9, 3.5670836215757704`*^9}, {3.567083656504232*^9, 3.5670836570034328`*^9}, { 3.5670837376399746`*^9, 3.5670837651584225`*^9}, {3.5672479122355375`*^9, 3.567247913155939*^9}, {3.5672481119782887`*^9, 3.567248113819092*^9}, { 3.567248190337226*^9, 3.567248240850115*^9}, {3.5675919852845635`*^9, 3.567591985487364*^9}, {3.567592046280671*^9, 3.5675920464678707`*^9}, { 3.5675921202092004`*^9, 3.567592120287201*^9}, {3.567592203388547*^9, 3.567592203622547*^9}, {3.567592351635607*^9, 3.567592351698007*^9}, { 3.56759238768727*^9, 3.5675923878276706`*^9}, {3.567596611581889*^9, 3.567596626947916*^9}, {3.5675966590683727`*^9, 3.5675967455861244`*^9}, { 3.567596840512291*^9, 3.567597015731799*^9}, {3.5675970932795353`*^9, 3.5675970954947395`*^9}, {3.5675972825390673`*^9, 3.5675972915402837`*^9}, {3.5675973674968166`*^9, 3.5675973889000545`*^9}, {3.5675974787094126`*^9, 3.567597484887023*^9}}], Cell["\<\ (* epot terms *) vne=vne-(3-(pch/CH)^2)/CH; vnn = 0.0;\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5668390630515456`*^9, 3.566839078760773*^9}, { 3.566839318626795*^9, 3.5668393238528037`*^9}, {3.566839506201524*^9, 3.5668395108503323`*^9}, {3.566839541207986*^9, 3.566839568664034*^9}, { 3.566839684650237*^9, 3.56683970887708*^9}, {3.5668397799352045`*^9, 3.5668398201988754`*^9}, {3.566839877872177*^9, 3.5668398909606*^9}, { 3.5668404106911125`*^9, 3.566840417539525*^9}, {3.5668404815464373`*^9, 3.566840691460406*^9}, {3.566840732519678*^9, 3.5668408608923035`*^9}, { 3.566840930000425*^9, 3.5668409412168446`*^9}, {3.566841374686006*^9, 3.566841375388007*^9}, {3.5668421835006266`*^9, 3.5668421845770283`*^9}, { 3.566887398037596*^9, 3.566887402078003*^9}, {3.5668874322328568`*^9, 3.5668874455864797`*^9}, {3.566887493166563*^9, 3.5668874939309645`*^9}, { 3.5668882488786907`*^9, 3.5668882511094947`*^9}, {3.56688847075788*^9, 3.566888479322295*^9}, {3.5668885903476906`*^9, 3.5668885954956994`*^9}, { 3.566971858103361*^9, 3.566971918927868*^9}, {3.566987354128765*^9, 3.5669873624903803`*^9}, {3.566987488164201*^9, 3.566987535619484*^9}, { 3.566987795843541*^9, 3.5669878015843515`*^9}, {3.566987856168847*^9, 3.56698786325126*^9}, {3.566988264733565*^9, 3.566988269819174*^9}, { 3.566988366133743*^9, 3.5669883719525533`*^9}, {3.5669885431160536`*^9, 3.566988549309265*^9}, {3.566991946182942*^9, 3.5669919483981457`*^9}, 3.5669919866182127`*^9, {3.5669920226542764`*^9, 3.5669920505783253`*^9}, { 3.566992103743219*^9, 3.5669921079396257`*^9}, 3.5669921962201815`*^9, { 3.5669922303998413`*^9, 3.5669922340658474`*^9}, {3.566992291177548*^9, 3.5669922926751504`*^9}, {3.566992333890423*^9, 3.5669923348264246`*^9}, 3.566992409675356*^9, {3.566997472043352*^9, 3.566997587171554*^9}, { 3.566997674297707*^9, 3.5669977903463106`*^9}, {3.566997868580448*^9, 3.5669978780652647`*^9}, {3.566998052270771*^9, 3.566998071786405*^9}, { 3.5669981665409718`*^9, 3.5669981730305834`*^9}, {3.56699824522751*^9, 3.566998326394452*^9}, {3.5669983623837156`*^9, 3.5669984017425847`*^9}, { 3.566998470788306*^9, 3.5669984830811276`*^9}, {3.566998534405218*^9, 3.5669985995821323`*^9}, {3.5669988153461113`*^9, 3.566998936995125*^9}, 3.566998967134378*^9, 3.5669990224832754`*^9, {3.5669990973790064`*^9, 3.56699912179305*^9}, {3.5669993047345705`*^9, 3.5669993241410046`*^9}, { 3.566999416274767*^9, 3.566999426742385*^9}, {3.566999497301309*^9, 3.5669995032137194`*^9}, {3.566999549733001*^9, 3.566999551433404*^9}, { 3.5670567651502*^9, 3.567056829110312*^9}, {3.5670569077344503`*^9, 3.5670570287126627`*^9}, {3.56705707303234*^9, 3.5670571842137356`*^9}, { 3.5670572582982655`*^9, 3.567057292103525*^9}, {3.56705732891959*^9, 3.5670574906294737`*^9}, {3.5670578301328697`*^9, 3.56705795512029*^9}, { 3.5670580197668033`*^9, 3.567058030437222*^9}, {3.5670580810281105`*^9, 3.5670581611654515`*^9}, {3.5670581932547083`*^9, 3.567058240616391*^9}, { 3.5670582801312604`*^9, 3.5670582990540934`*^9}, {3.567058343560972*^9, 3.5670584018894744`*^9}, {3.56705845049916*^9, 3.5670585083128614`*^9}, { 3.567058578731385*^9, 3.567058593645011*^9}, {3.5670586348134837`*^9, 3.5670586577143235`*^9}, {3.567058689007979*^9, 3.5670587629209085`*^9}, { 3.567058832777831*^9, 3.5670588394702425`*^9}, {3.567058955628047*^9, 3.5670589616496572`*^9}, {3.5670592284569263`*^9, 3.567059354442747*^9}, { 3.5670593898548098`*^9, 3.567059560456709*^9}, {3.5670596222796183`*^9, 3.5670596362884426`*^9}, {3.5670596726677065`*^9, 3.567059775347087*^9}, { 3.567059838449198*^9, 3.5670598453756094`*^9}, {3.5670598764976645`*^9, 3.5670598805380716`*^9}, 3.567059911254525*^9, {3.5670599744502363`*^9, 3.567060007818695*^9}, {3.567060059127185*^9, 3.5670600818564253`*^9}, { 3.5670601143824825`*^9, 3.567060314593234*^9}, {3.5670607181347427`*^9, 3.5670607311607656`*^9}, {3.567060785573661*^9, 3.567061232998047*^9}, { 3.5670626282800975`*^9, 3.56706267537658*^9}, 3.567062795371991*^9, { 3.567069851801585*^9, 3.567069879460434*^9}, {3.567070767429593*^9, 3.5670707823588195`*^9}, {3.5670805354535503`*^9, 3.5670806312689185`*^9}, {3.567083393113369*^9, 3.5670834586022844`*^9}, { 3.567083501299559*^9, 3.5670835804696984`*^9}, {3.5670836156477604`*^9, 3.5670836215757704`*^9}, {3.567083656504232*^9, 3.5670836570034328`*^9}, { 3.5670837376399746`*^9, 3.5670837651584225`*^9}, {3.567533497259396*^9, 3.5675334995526*^9}}], Cell["\<\ (*ww*) For[i = 1, i < nc, i++, For[j = i+1, j < nc+1, j++, vee = vee + \ cc[[i]]*cc[[j]]/Sqrt[(xc[[i]]-xc[[j]])^2+(yc[[i]]-yc[[j]])^2+(zc[[i]]-zc[[j]])\ ^2]]]\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5668390630515456`*^9, 3.566839083924382*^9}, { 3.5668410500738354`*^9, 3.5668411059531336`*^9}, {3.5668412393245683`*^9, 3.5668412393713684`*^9}, {3.5668412896190567`*^9, 3.5668413118646955`*^9}, { 3.566841703815384*^9, 3.5668417040025845`*^9}, {3.567592351776007*^9, 3.5675923518384075`*^9}, {3.5675928871533475`*^9, 3.567592893627359*^9}}], Cell["\<\ (*nn*) For[i = 1, i < nn, i++, For[j = i+1, j < nn+1, j++, vnn = vnn + \ cn[[i]]*cn[[j]]/Sqrt[(xn[[i]]-xn[[j]])^2+(yn[[i]]-yn[[j]])^2+(zn[[i]]-zn[[j]])\ ^2]]]\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5668390630515456`*^9, 3.5668390890567913`*^9}, { 3.566841524165468*^9, 3.566841530218279*^9}, {3.5670590745470557`*^9, 3.567059089304682*^9}, {3.5675929269646177`*^9, 3.5675929303654237`*^9}}], Cell["\<\ (*nw*) For[i = 1, i < nc+1, i++, For[j = 1, j < nn+1, j++, If[i \[NotEqual] j, vne = vne + \ cc[[i]]*cn[[j]]/Sqrt[(xc[[i]]-xn[[j]])^2+(yc[[i]]-yn[[j]])^2+(zc[[i]]-zn[[j]])\ ^2]]]]\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5668390630515456`*^9, 3.5668390979332066`*^9}, 3.5668412394337683`*^9, {3.566841289743857*^9, 3.566841311927096*^9}, 3.5668415580955276`*^9, {3.5668416231788425`*^9, 3.5668416346760626`*^9}, { 3.5669003862430363`*^9, 3.5669003862430363`*^9}, {3.5670591033447065`*^9, 3.5670591078063145`*^9}, 3.5675923519008074`*^9, {3.567592899165369*^9, 3.5675929194610043`*^9}}], Cell["\<\ Epot=vne+vee+vnn; func=Ekin+Epot; t = FindMinimum[func,{Cr,0.26},{Fr,0.17},{Oa,0.19},{FL,0.96},{CH,1.22},{CO,0.\ 91},{CF,0.92},{OL,0.90},{Fpi,0.70},{Cpi,1.42},{Opi,1.24},{Osg,0.84},{w1,2.41},\ {w2,1.05},{w3,1.03},{pch,0.57},{Method -> \"Newton\"}, {MaxIterations -> 800}]\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5668390630515456`*^9, 3.566839104968819*^9}, { 3.5668402974973135`*^9, 3.5668403782742558`*^9}, {3.5668414049812593`*^9, 3.5668414375229163`*^9}, 3.566841756605877*^9, {3.5668429499163733`*^9, 3.566842978277223*^9}, {3.5668880399631233`*^9, 3.5668880687763743`*^9}, { 3.56697197120356*^9, 3.5669719847755833`*^9}, {3.5669875623735313`*^9, 3.566987566460738*^9}, 3.566987810538767*^9, {3.566987882142893*^9, 3.5669878871349015`*^9}, {3.566987967677843*^9, 3.5669880000323*^9}, { 3.5669882132846746`*^9, 3.5669882156558785`*^9}, 3.5669882806455927`*^9, { 3.5669883912029867`*^9, 3.5669884039482093`*^9}, 3.5669885600420837`*^9, { 3.5670614496356277`*^9, 3.5670616095515084`*^9}, {3.56706164472957*^9, 3.567061671780018*^9}, {3.5670617748181987`*^9, 3.567061891771604*^9}, { 3.5670620082414083`*^9, 3.5670620167278233`*^9}, {3.5670640067297187`*^9, 3.567064010270925*^9}, {3.5670640525313993`*^9, 3.567064055854205*^9}, 3.567064094339473*^9, {3.5670689484819984`*^9, 3.5670689607748203`*^9}, 3.5670698952320614`*^9, {3.56708497059774*^9, 3.567084977087352*^9}, { 3.567085213599367*^9, 3.5670852679342623`*^9}, {3.567085494899061*^9, 3.567085499485469*^9}, {3.5670859700758953`*^9, 3.5670859708870974`*^9}, { 3.567086006080759*^9, 3.5670861172933545`*^9}, {3.5670866938391666`*^9, 3.567086753244071*^9}, {3.5670871411699524`*^9, 3.5670871501399684`*^9}, { 3.5672486648744593`*^9, 3.56724869903852*^9}, {3.5675105559751015`*^9, 3.5675106443492565`*^9}, {3.5675109760214396`*^9, 3.567511011776702*^9}, { 3.567511104113264*^9, 3.567511174110587*^9}, {3.567511372371335*^9, 3.567511453023477*^9}, {3.5675122037435956`*^9, 3.5675122283916388`*^9}, { 3.567512423391981*^9, 3.567512501782119*^9}, {3.567512579205055*^9, 3.5675126449591703`*^9}, 3.5675127951718345`*^9, {3.5675336157728043`*^9, 3.5675337118533726`*^9}, 3.5675919162076426`*^9, 3.5675919855497637`*^9, 3.5675920465302715`*^9, 3.567592120349601*^9, 3.567592203731747*^9, 3.5675923519632072`*^9, 3.567592387890071*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "212.3745773652353`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Cr", "\[Rule]", "0.25065062786145126`"}], ",", RowBox[{"Fr", "\[Rule]", "0.16491191734154403`"}], ",", RowBox[{"Oa", "\[Rule]", "0.1850880649193057`"}], ",", RowBox[{"FL", "\[Rule]", "0.8984627963791239`"}], ",", RowBox[{"CH", "\[Rule]", "1.2303713758008552`"}], ",", RowBox[{"CO", "\[Rule]", "0.8774159467098952`"}], ",", RowBox[{"CF", "\[Rule]", "1.0263884327126138`"}], ",", RowBox[{"OL", "\[Rule]", "0.9240774122334838`"}], ",", RowBox[{"Fpi", "\[Rule]", "0.8723369907371266`"}], ",", RowBox[{"Cpi", "\[Rule]", "1.3151236824317798`"}], ",", RowBox[{"Opi", "\[Rule]", "0.9807741650885555`"}], ",", RowBox[{"Osg", "\[Rule]", "0.8619330161750159`"}], ",", RowBox[{"w1", "\[Rule]", "2.394624355134884`"}], ",", RowBox[{"w2", "\[Rule]", "1.0611598406083182`"}], ",", RowBox[{"w3", "\[Rule]", "1.0280583469886226`"}], ",", RowBox[{"pch", "\[Rule]", "0.5650391618101004`"}]}], "}"}]}], "}"}]], \ "Input", CellChangeTimes->{{3.567591916254442*^9, 3.567591916254442*^9}, 3.567591985580964*^9, 3.567592046561471*^9, 3.5675921203808007`*^9, 3.567592203762947*^9, 3.5675923519944077`*^9, 3.567592387921271*^9}], Cell[CellGroupData[{ Cell["\<\ Ekin /. t[[2]] vne /. t[[2]] vee /. t[[2]] vnn /. t[[2]] -Epot/Ekin /. t[[2]] w1*rad /. t[[2]] w2*rad /. t[[2]] w3*rad /. t[[2]] (Cr+Oa+2*CO)*bohr /. t[[2]] (Cr+Fr+2*CF)*bohr /. t[[2]] (Cr+CH+pch)*bohr /. t[[2]] (Fr+FL+pFL)*bohr /. t[[2]]\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5668390630515456`*^9, 3.566839112846833*^9}, { 3.566842810779729*^9, 3.566842811091729*^9}, {3.5669879418285975`*^9, 3.5669879480686083`*^9}, {3.5670621290636206`*^9, 3.567062152463662*^9}, { 3.567063905688341*^9, 3.5670639108675504`*^9}, {3.5670689307603674`*^9, 3.5670689312127686`*^9}, {3.5670696234639845`*^9, 3.5670696694216647`*^9}, {3.5670795267235785`*^9, 3.5670795309823856`*^9}, {3.567079591604092*^9, 3.567079592524494*^9}, { 3.567079628810158*^9, 3.567079717433913*^9}, {3.567082843118803*^9, 3.567082848547613*^9}, {3.567082895987296*^9, 3.567082897079298*^9}, { 3.567085039347061*^9, 3.5670851279708166`*^9}, 3.567345843318006*^9, { 3.5675919163012424`*^9, 3.5675919163792424`*^9}, {3.567591985627764*^9, 3.5675919856901646`*^9}, 3.567592046608271*^9}], Cell[BoxData["212.37457738237975`"], "Output", CellChangeTimes->{ 3.5673462861091833`*^9, 3.567510456010126*^9, 3.567510496398597*^9, 3.567510661384486*^9, 3.5675108565252295`*^9, 3.5675109484249907`*^9, 3.5675110392639503`*^9, 3.567511182472202*^9, 3.567511314448434*^9, 3.567511462274293*^9, 3.5675114995115585`*^9, 3.567511714323936*^9, 3.5675119770439973`*^9, {3.5675120719701643`*^9, 3.5675120852769876`*^9}, 3.5675122599504943`*^9, 3.5675123490110507`*^9, 3.5675124099135575`*^9, 3.5675125244021587`*^9, 3.5675125596114206`*^9, 3.5675126533363853`*^9, 3.567512734924528*^9, 3.567513092586357*^9, {3.5675131556104674`*^9, 3.567513182660915*^9}, 3.5675132933587093`*^9, 3.567513450950186*^9, 3.5675135039434795`*^9, 3.567513546047953*^9, 3.5675333448471284`*^9, 3.5675334234556665`*^9, 3.567533506900213*^9, 3.5675335766323357`*^9, 3.567533718483384*^9, {3.5675338260611734`*^9, 3.567533853002421*^9}, { 3.567533886214879*^9, 3.567533908476118*^9}, 3.5675339684894238`*^9, 3.5675340093926954`*^9, 3.567534134863716*^9, 3.56753423411109*^9, 3.56753431401443*^9, 3.567534353045699*^9, 3.5675344292674327`*^9, 3.567534499919957*^9, {3.5675345886217127`*^9, 3.5675346067489448`*^9}, 3.56753464939942*^9, 3.5675346910202928`*^9, {3.5675742254697695`*^9, 3.5675742710998497`*^9}}], Cell[BoxData[ RowBox[{"-", "635.0378546737774`"}]], "Output", CellChangeTimes->{ 3.5673462861091833`*^9, 3.567510456010126*^9, 3.567510496398597*^9, 3.567510661384486*^9, 3.5675108565252295`*^9, 3.5675109484249907`*^9, 3.5675110392639503`*^9, 3.567511182472202*^9, 3.567511314448434*^9, 3.567511462274293*^9, 3.5675114995115585`*^9, 3.567511714323936*^9, 3.5675119770439973`*^9, {3.5675120719701643`*^9, 3.5675120852769876`*^9}, 3.5675122599504943`*^9, 3.5675123490110507`*^9, 3.5675124099135575`*^9, 3.5675125244021587`*^9, 3.5675125596114206`*^9, 3.5675126533363853`*^9, 3.567512734924528*^9, 3.567513092586357*^9, {3.5675131556104674`*^9, 3.567513182660915*^9}, 3.5675132933587093`*^9, 3.567513450950186*^9, 3.5675135039434795`*^9, 3.567513546047953*^9, 3.5675333448471284`*^9, 3.5675334234556665`*^9, 3.567533506900213*^9, 3.5675335766323357`*^9, 3.567533718483384*^9, {3.5675338260611734`*^9, 3.567533853002421*^9}, { 3.567533886214879*^9, 3.567533908476118*^9}, 3.5675339684894238`*^9, 3.5675340093926954`*^9, 3.567534134863716*^9, 3.56753423411109*^9, 3.56753431401443*^9, 3.567534353045699*^9, 3.5675344292674327`*^9, 3.567534499919957*^9, {3.5675345886217127`*^9, 3.5675346067489448`*^9}, 3.56753464939942*^9, 3.5675346910202928`*^9, {3.5675742254697695`*^9, 3.5675742710998497`*^9}}], Cell[BoxData["141.19077967499908`"], "Output", CellChangeTimes->{ 3.5673462861091833`*^9, 3.567510456010126*^9, 3.567510496398597*^9, 3.567510661384486*^9, 3.5675108565252295`*^9, 3.5675109484249907`*^9, 3.5675110392639503`*^9, 3.567511182472202*^9, 3.567511314448434*^9, 3.567511462274293*^9, 3.5675114995115585`*^9, 3.567511714323936*^9, 3.5675119770439973`*^9, {3.5675120719701643`*^9, 3.5675120852769876`*^9}, 3.5675122599504943`*^9, 3.5675123490110507`*^9, 3.5675124099135575`*^9, 3.5675125244021587`*^9, 3.5675125596114206`*^9, 3.5675126533363853`*^9, 3.567512734924528*^9, 3.567513092586357*^9, {3.5675131556104674`*^9, 3.567513182660915*^9}, 3.5675132933587093`*^9, 3.567513450950186*^9, 3.5675135039434795`*^9, 3.567513546047953*^9, 3.5675333448471284`*^9, 3.5675334234556665`*^9, 3.567533506900213*^9, 3.5675335766323357`*^9, 3.567533718483384*^9, {3.5675338260611734`*^9, 3.567533853002421*^9}, { 3.567533886214879*^9, 3.567533908476118*^9}, 3.5675339684894238`*^9, 3.5675340093926954`*^9, 3.567534134863716*^9, 3.56753423411109*^9, 3.56753431401443*^9, 3.567534353045699*^9, 3.5675344292674327`*^9, 3.567534499919957*^9, {3.5675345886217127`*^9, 3.5675346067489448`*^9}, 3.56753464939942*^9, 3.5675346910202928`*^9, {3.5675742254697695`*^9, 3.5675742710998497`*^9}}], Cell[BoxData["69.09792025116326`"], "Output", CellChangeTimes->{ 3.5673462861091833`*^9, 3.567510456010126*^9, 3.567510496398597*^9, 3.567510661384486*^9, 3.5675108565252295`*^9, 3.5675109484249907`*^9, 3.5675110392639503`*^9, 3.567511182472202*^9, 3.567511314448434*^9, 3.567511462274293*^9, 3.5675114995115585`*^9, 3.567511714323936*^9, 3.5675119770439973`*^9, {3.5675120719701643`*^9, 3.5675120852769876`*^9}, 3.5675122599504943`*^9, 3.5675123490110507`*^9, 3.5675124099135575`*^9, 3.5675125244021587`*^9, 3.5675125596114206`*^9, 3.5675126533363853`*^9, 3.567512734924528*^9, 3.567513092586357*^9, {3.5675131556104674`*^9, 3.567513182660915*^9}, 3.5675132933587093`*^9, 3.567513450950186*^9, 3.5675135039434795`*^9, 3.567513546047953*^9, 3.5675333448471284`*^9, 3.5675334234556665`*^9, 3.567533506900213*^9, 3.5675335766323357`*^9, 3.567533718483384*^9, {3.5675338260611734`*^9, 3.567533853002421*^9}, { 3.567533886214879*^9, 3.567533908476118*^9}, 3.5675339684894238`*^9, 3.5675340093926954`*^9, 3.567534134863716*^9, 3.56753423411109*^9, 3.56753431401443*^9, 3.567534353045699*^9, 3.5675344292674327`*^9, 3.567534499919957*^9, {3.5675345886217127`*^9, 3.5675346067489448`*^9}, 3.56753464939942*^9, 3.5675346910202928`*^9, {3.5675742254697695`*^9, 3.56757427111545*^9}}], Cell[BoxData["1.9999999999192732`"], "Output", CellChangeTimes->{ 3.5673462861091833`*^9, 3.567510456010126*^9, 3.567510496398597*^9, 3.567510661384486*^9, 3.5675108565252295`*^9, 3.5675109484249907`*^9, 3.5675110392639503`*^9, 3.567511182472202*^9, 3.567511314448434*^9, 3.567511462274293*^9, 3.5675114995115585`*^9, 3.567511714323936*^9, 3.5675119770439973`*^9, {3.5675120719701643`*^9, 3.5675120852769876`*^9}, 3.5675122599504943`*^9, 3.5675123490110507`*^9, 3.5675124099135575`*^9, 3.5675125244021587`*^9, 3.5675125596114206`*^9, 3.5675126533363853`*^9, 3.567512734924528*^9, 3.567513092586357*^9, {3.5675131556104674`*^9, 3.567513182660915*^9}, 3.5675132933587093`*^9, 3.567513450950186*^9, 3.5675135039434795`*^9, 3.567513546047953*^9, 3.5675333448471284`*^9, 3.5675334234556665`*^9, 3.567533506900213*^9, 3.5675335766323357`*^9, 3.567533718483384*^9, {3.5675338260611734`*^9, 3.567533853002421*^9}, { 3.567533886214879*^9, 3.567533908476118*^9}, 3.5675339684894238`*^9, 3.5675340093926954`*^9, 3.567534134863716*^9, 3.56753423411109*^9, 3.56753431401443*^9, 3.567534353045699*^9, 3.5675344292674327`*^9, 3.567534499919957*^9, {3.5675345886217127`*^9, 3.5675346067489448`*^9}, 3.56753464939942*^9, 3.5675346910202928`*^9, {3.5675742254697695`*^9, 3.56757427111545*^9}}], Cell[BoxData["137.20187023445018`"], "Output", CellChangeTimes->{ 3.5673462861091833`*^9, 3.567510456010126*^9, 3.567510496398597*^9, 3.567510661384486*^9, 3.5675108565252295`*^9, 3.5675109484249907`*^9, 3.5675110392639503`*^9, 3.567511182472202*^9, 3.567511314448434*^9, 3.567511462274293*^9, 3.5675114995115585`*^9, 3.567511714323936*^9, 3.5675119770439973`*^9, {3.5675120719701643`*^9, 3.5675120852769876`*^9}, 3.5675122599504943`*^9, 3.5675123490110507`*^9, 3.5675124099135575`*^9, 3.5675125244021587`*^9, 3.5675125596114206`*^9, 3.5675126533363853`*^9, 3.567512734924528*^9, 3.567513092586357*^9, {3.5675131556104674`*^9, 3.567513182660915*^9}, 3.5675132933587093`*^9, 3.567513450950186*^9, 3.5675135039434795`*^9, 3.567513546047953*^9, 3.5675333448471284`*^9, 3.5675334234556665`*^9, 3.567533506900213*^9, 3.5675335766323357`*^9, 3.567533718483384*^9, {3.5675338260611734`*^9, 3.567533853002421*^9}, { 3.567533886214879*^9, 3.567533908476118*^9}, 3.5675339684894238`*^9, 3.5675340093926954`*^9, 3.567534134863716*^9, 3.56753423411109*^9, 3.56753431401443*^9, 3.567534353045699*^9, 3.5675344292674327`*^9, 3.567534499919957*^9, {3.5675345886217127`*^9, 3.5675346067489448`*^9}, 3.56753464939942*^9, 3.5675346910202928`*^9, {3.5675742254697695`*^9, 3.56757427111545*^9}}], Cell[BoxData["60.79998077232927`"], "Output", CellChangeTimes->{ 3.5673462861091833`*^9, 3.567510456010126*^9, 3.567510496398597*^9, 3.567510661384486*^9, 3.5675108565252295`*^9, 3.5675109484249907`*^9, 3.5675110392639503`*^9, 3.567511182472202*^9, 3.567511314448434*^9, 3.567511462274293*^9, 3.5675114995115585`*^9, 3.567511714323936*^9, 3.5675119770439973`*^9, {3.5675120719701643`*^9, 3.5675120852769876`*^9}, 3.5675122599504943`*^9, 3.5675123490110507`*^9, 3.5675124099135575`*^9, 3.5675125244021587`*^9, 3.5675125596114206`*^9, 3.5675126533363853`*^9, 3.567512734924528*^9, 3.567513092586357*^9, {3.5675131556104674`*^9, 3.567513182660915*^9}, 3.5675132933587093`*^9, 3.567513450950186*^9, 3.5675135039434795`*^9, 3.567513546047953*^9, 3.5675333448471284`*^9, 3.5675334234556665`*^9, 3.567533506900213*^9, 3.5675335766323357`*^9, 3.567533718483384*^9, {3.5675338260611734`*^9, 3.567533853002421*^9}, { 3.567533886214879*^9, 3.567533908476118*^9}, 3.5675339684894238`*^9, 3.5675340093926954`*^9, 3.567534134863716*^9, 3.56753423411109*^9, 3.56753431401443*^9, 3.567534353045699*^9, 3.5675344292674327`*^9, 3.567534499919957*^9, {3.5675345886217127`*^9, 3.5675346067489448`*^9}, 3.56753464939942*^9, 3.5675346910202928`*^9, {3.5675742254697695`*^9, 3.56757427111545*^9}}], Cell[BoxData["58.90340487622379`"], "Output", CellChangeTimes->{ 3.5673462861091833`*^9, 3.567510456010126*^9, 3.567510496398597*^9, 3.567510661384486*^9, 3.5675108565252295`*^9, 3.5675109484249907`*^9, 3.5675110392639503`*^9, 3.567511182472202*^9, 3.567511314448434*^9, 3.567511462274293*^9, 3.5675114995115585`*^9, 3.567511714323936*^9, 3.5675119770439973`*^9, {3.5675120719701643`*^9, 3.5675120852769876`*^9}, 3.5675122599504943`*^9, 3.5675123490110507`*^9, 3.5675124099135575`*^9, 3.5675125244021587`*^9, 3.5675125596114206`*^9, 3.5675126533363853`*^9, 3.567512734924528*^9, 3.567513092586357*^9, {3.5675131556104674`*^9, 3.567513182660915*^9}, 3.5675132933587093`*^9, 3.567513450950186*^9, 3.5675135039434795`*^9, 3.567513546047953*^9, 3.5675333448471284`*^9, 3.5675334234556665`*^9, 3.567533506900213*^9, 3.5675335766323357`*^9, 3.567533718483384*^9, {3.5675338260611734`*^9, 3.567533853002421*^9}, { 3.567533886214879*^9, 3.567533908476118*^9}, 3.5675339684894238`*^9, 3.5675340093926954`*^9, 3.567534134863716*^9, 3.56753423411109*^9, 3.56753431401443*^9, 3.567534353045699*^9, 3.5675344292674327`*^9, 3.567534499919957*^9, {3.5675345886217127`*^9, 3.5675346067489448`*^9}, 3.56753464939942*^9, 3.5675346910202928`*^9, {3.5675742254697695`*^9, 3.56757427111545*^9}}], Cell[BoxData["1.159199571093847`"], "Output", CellChangeTimes->{ 3.5673462861091833`*^9, 3.567510456010126*^9, 3.567510496398597*^9, 3.567510661384486*^9, 3.5675108565252295`*^9, 3.5675109484249907`*^9, 3.5675110392639503`*^9, 3.567511182472202*^9, 3.567511314448434*^9, 3.567511462274293*^9, 3.5675114995115585`*^9, 3.567511714323936*^9, 3.5675119770439973`*^9, {3.5675120719701643`*^9, 3.5675120852769876`*^9}, 3.5675122599504943`*^9, 3.5675123490110507`*^9, 3.5675124099135575`*^9, 3.5675125244021587`*^9, 3.5675125596114206`*^9, 3.5675126533363853`*^9, 3.567512734924528*^9, 3.567513092586357*^9, {3.5675131556104674`*^9, 3.567513182660915*^9}, 3.5675132933587093`*^9, 3.567513450950186*^9, 3.5675135039434795`*^9, 3.567513546047953*^9, 3.5675333448471284`*^9, 3.5675334234556665`*^9, 3.567533506900213*^9, 3.5675335766323357`*^9, 3.567533718483384*^9, {3.5675338260611734`*^9, 3.567533853002421*^9}, { 3.567533886214879*^9, 3.567533908476118*^9}, 3.5675339684894238`*^9, 3.5675340093926954`*^9, 3.567534134863716*^9, 3.56753423411109*^9, 3.56753431401443*^9, 3.567534353045699*^9, 3.5675344292674327`*^9, 3.567534499919957*^9, {3.5675345886217127`*^9, 3.5675346067489448`*^9}, 3.56753464939942*^9, 3.5675346910202928`*^9, {3.5675742254697695`*^9, 3.56757427111545*^9}}], Cell[BoxData["1.3061884442980112`"], "Output", CellChangeTimes->{ 3.5673462861091833`*^9, 3.567510456010126*^9, 3.567510496398597*^9, 3.567510661384486*^9, 3.5675108565252295`*^9, 3.5675109484249907`*^9, 3.5675110392639503`*^9, 3.567511182472202*^9, 3.567511314448434*^9, 3.567511462274293*^9, 3.5675114995115585`*^9, 3.567511714323936*^9, 3.5675119770439973`*^9, {3.5675120719701643`*^9, 3.5675120852769876`*^9}, 3.5675122599504943`*^9, 3.5675123490110507`*^9, 3.5675124099135575`*^9, 3.5675125244021587`*^9, 3.5675125596114206`*^9, 3.5675126533363853`*^9, 3.567512734924528*^9, 3.567513092586357*^9, {3.5675131556104674`*^9, 3.567513182660915*^9}, 3.5675132933587093`*^9, 3.567513450950186*^9, 3.5675135039434795`*^9, 3.567513546047953*^9, 3.5675333448471284`*^9, 3.5675334234556665`*^9, 3.567533506900213*^9, 3.5675335766323357`*^9, 3.567533718483384*^9, {3.5675338260611734`*^9, 3.567533853002421*^9}, { 3.567533886214879*^9, 3.567533908476118*^9}, 3.5675339684894238`*^9, 3.5675340093926954`*^9, 3.567534134863716*^9, 3.56753423411109*^9, 3.56753431401443*^9, 3.567534353045699*^9, 3.5675344292674327`*^9, 3.567534499919957*^9, {3.5675345886217127`*^9, 3.5675346067489448`*^9}, 3.56753464939942*^9, 3.5675346910202928`*^9, {3.5675742254697695`*^9, 3.56757427111545*^9}}], Cell[BoxData["1.0827285093611918`"], "Output", CellChangeTimes->{ 3.5673462861091833`*^9, 3.567510456010126*^9, 3.567510496398597*^9, 3.567510661384486*^9, 3.5675108565252295`*^9, 3.5675109484249907`*^9, 3.5675110392639503`*^9, 3.567511182472202*^9, 3.567511314448434*^9, 3.567511462274293*^9, 3.5675114995115585`*^9, 3.567511714323936*^9, 3.5675119770439973`*^9, {3.5675120719701643`*^9, 3.5675120852769876`*^9}, 3.5675122599504943`*^9, 3.5675123490110507`*^9, 3.5675124099135575`*^9, 3.5675125244021587`*^9, 3.5675125596114206`*^9, 3.5675126533363853`*^9, 3.567512734924528*^9, 3.567513092586357*^9, {3.5675131556104674`*^9, 3.567513182660915*^9}, 3.5675132933587093`*^9, 3.567513450950186*^9, 3.5675135039434795`*^9, 3.567513546047953*^9, 3.5675333448471284`*^9, 3.5675334234556665`*^9, 3.567533506900213*^9, 3.5675335766323357`*^9, 3.567533718483384*^9, {3.5675338260611734`*^9, 3.567533853002421*^9}, { 3.567533886214879*^9, 3.567533908476118*^9}, 3.5675339684894238`*^9, 3.5675340093926954`*^9, 3.567534134863716*^9, 3.56753423411109*^9, 3.56753431401443*^9, 3.567534353045699*^9, 3.5675344292674327`*^9, 3.567534499919957*^9, {3.5675345886217127`*^9, 3.5675346067489448`*^9}, 3.56753464939942*^9, 3.5675346910202928`*^9, {3.5675742254697695`*^9, 3.56757427111545*^9}}], Cell[BoxData["0.5627134408825619`"], "Output", CellChangeTimes->{ 3.5673462861091833`*^9, 3.567510456010126*^9, 3.567510496398597*^9, 3.567510661384486*^9, 3.5675108565252295`*^9, 3.5675109484249907`*^9, 3.5675110392639503`*^9, 3.567511182472202*^9, 3.567511314448434*^9, 3.567511462274293*^9, 3.5675114995115585`*^9, 3.567511714323936*^9, 3.5675119770439973`*^9, {3.5675120719701643`*^9, 3.5675120852769876`*^9}, 3.5675122599504943`*^9, 3.5675123490110507`*^9, 3.5675124099135575`*^9, 3.5675125244021587`*^9, 3.5675125596114206`*^9, 3.5675126533363853`*^9, 3.567512734924528*^9, 3.567513092586357*^9, {3.5675131556104674`*^9, 3.567513182660915*^9}, 3.5675132933587093`*^9, 3.567513450950186*^9, 3.5675135039434795`*^9, 3.567513546047953*^9, 3.5675333448471284`*^9, 3.5675334234556665`*^9, 3.567533506900213*^9, 3.5675335766323357`*^9, 3.567533718483384*^9, {3.5675338260611734`*^9, 3.567533853002421*^9}, { 3.567533886214879*^9, 3.567533908476118*^9}, 3.5675339684894238`*^9, 3.5675340093926954`*^9, 3.567534134863716*^9, 3.56753423411109*^9, 3.56753431401443*^9, 3.567534353045699*^9, 3.5675344292674327`*^9, 3.567534499919957*^9, {3.5675345886217127`*^9, 3.5675346067489448`*^9}, 3.56753464939942*^9, 3.5675346910202928`*^9, {3.5675742254697695`*^9, 3.56757427111545*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ plot1=Graphics[{Circle[{xc[[1]],yc[[1]]},Cr], \ Circle[{xc[[2]],yc[[2]]},Fr],Circle[{xc[[3]],yc[[3]]},Oa],Circle[{xc[[4]],yc[[\ 4]]},FL], Circle[{xc[[5]],yc[[5]]},FL],Circle[{xc[[6]],yc[[6]]},CH],Circle[{xc[[7]],yc[[\ 7]]},CF],Circle[{xc[[8]],yc[[8]]},CO],Circle[{xc[[9]],yc[[9]]},OL],Circle[{xc[\ [10]],yc[[10]]},Fpi],Circle[{xc[[11]],yc[[11]]},Fpi],Circle[{xc[[12]],yc[[12]]\ },Cpi],Circle[{xc[[13]],yc[[13]]},Cpi],Circle[{xc[[14]],yc[[14]]},Opi],Circle[\ {xc[[15]],yc[[15]]},Opi],Circle[{xc[[16]],yc[[16]]},Osg],Circle[{xc[[17]],yc[[\ 17]]},Osg],Disk[{xn[[1]],yn[[1]]},0.08], Disk[{xn[[2]],yn[[2]]},0.08], \ Disk[{xn[[3]],yn[[3]]},0.08],(*Disk[{xn[[4]],yn[[4]]},0.08],Disk[{xn[[5]],yn[[\ 5]]},0.08],*) Disk[{xn[[6]],yn[[6]]},0.08], {Thickness[0.008], Line[{{xn[[2]],yn[[2]]},{xn[[1]],yn[[1]]}}], Line[{{xn[[3]]+0.02,yn[[3]]-0.07},{xn[[1]]+0.03,yn[[1]]-0.07}}], Line[{{xn[[3]]-0.02,yn[[3]]+0.06},{xn[[1]]-0.02,yn[[1]]+0.06}}], (*Line[{{xn[[2]],yn[[2]]},{xn[[4]],yn[[4]]}}], Line[{{xn[[2]],yn[[2]]},{xn[[5]],yn[[5]]}}],*) Line[{{xn[[6]],yn[[6]]},{xn[[1]],yn[[1]]}}]}} ] /. t[[2]]; (* xy-plane *) Show[plot1,{AspectRatio \[Rule] AutOsgatic,Axes -> True,GridLines -> \ AutOsgatic, PlotRange \[Rule] AutOsgatic, Frame -> True}]\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5668391703953342`*^9, 3.5668391835773573`*^9}, { 3.5668412395117683`*^9, 3.566841239776969*^9}, {3.5668412898218565`*^9, 3.566841290087057*^9}, {3.56684186652367*^9, 3.566841909423745*^9}, 3.5670689312751684`*^9, {3.5670699737625995`*^9, 3.567070022403485*^9}, { 3.5670703462132535`*^9, 3.5670703473676558`*^9}, {3.56707040660096*^9, 3.567070410220166*^9}, 3.567071022770842*^9, {3.567071058073704*^9, 3.567071077339738*^9}, {3.567071109569394*^9, 3.56707112992743*^9}, { 3.567071166259894*^9, 3.5670711898627357`*^9}, {3.56707606019129*^9, 3.567076240699207*^9}, {3.567076605131447*^9, 3.5670766430707135`*^9}, { 3.5670849912053766`*^9, 3.567085001423394*^9}, {3.567248356181117*^9, 3.5672483876931725`*^9}, {3.567248623440787*^9, 3.567248633690005*^9}, 3.5672602418467417`*^9, {3.5672607929177094`*^9, 3.567260914441923*^9}, { 3.567260963628809*^9, 3.56726096965042*^9}, {3.5672610513009634`*^9, 3.5672610632349844`*^9}, {3.5672611071334615`*^9, 3.5672611271014967`*^9}, {3.5672643309709063`*^9, 3.5672643349645133`*^9}, {3.567264382794197*^9, 3.5672643891278086`*^9}, { 3.5672644516371183`*^9, 3.5672644630095387`*^9}, {3.5672644999192033`*^9, 3.567264505067212*^9}, {3.5672645512120934`*^9, 3.5672645514772935`*^9}, { 3.567264587497757*^9, 3.567264597388174*^9}, {3.56726465747948*^9, 3.567264679085518*^9}, {3.5672647158235826`*^9, 3.5672647395200243`*^9}, { 3.567264820562166*^9, 3.5672648250393744`*^9}, {3.5673459008509073`*^9, 3.567345907824119*^9}, 3.5673460056986914`*^9, {3.5675116826870804`*^9, 3.5675117055879207`*^9}, {3.5675134207641335`*^9, 3.567513440654168*^9}, { 3.567513487922251*^9, 3.56751349300786*^9}, 3.5675919164416428`*^9, { 3.5675919857681646`*^9, 3.5675919858305645`*^9}, 3.5675920466706715`*^9, { 3.567592120427601*^9, 3.5675921204900007`*^9}, {3.567592203840947*^9, 3.567592204184148*^9}, {3.5675923520412073`*^9, 3.5675923521192083`*^9}, { 3.567592387968071*^9, 3.567592388030471*^9}}], Cell[BoxData[ GraphicsBox[{CircleBox[{0, 0}, 0.25065062786145126`], CircleBox[{-2.468339410628223, 0}, 0.16491191734154403`], CircleBox[{1.0686916784543992`, 1.9121970582367627`}, 0.1850880649193057], CircleBox[{-2.8563240080742025`, 0.9900675400825912}, 0.8984627963791239], CircleBox[{-2.8563240080742025`, -0.9900675400825912}, 0.8984627963791239], CircleBox[{0.76492187391898, -1.2681958453378521`}, 1.2303713758008552`], CircleBox[{-1.2770390605740651`, 0}, 1.0263884327126138`], CircleBox[{0.5503385138928311, 0.9847140279245349}, 0.8774159467098952], CircleBox[{1.6098091037175764`, 2.8804119041176373`}, 0.9240774122334838], CircleBox[{-2.468339410628223, 0}, 0.8723369907371266], CircleBox[{-2.468339410628223, 0}, 0.8723369907371266], CircleBox[{0, 0}, 1.3151236824317798`], CircleBox[{0, 0}, 1.3151236824317798`], CircleBox[{1.0686916784543992`, 1.9121970582367627`}, 0.9807741650885555], CircleBox[{1.0686916784543992`, 1.9121970582367627`}, 0.9807741650885555], CircleBox[{0.15472403742393426`, 2.4229967209276553`}, 0.8619330161750159], CircleBox[{1.982659319484864, 1.40139739554587}, 0.8619330161750159], DiskBox[{0, 0}, 0.08], DiskBox[{-2.468339410628223, 0}, 0.08], DiskBox[{1.0686916784543992`, 1.9121970582367627`}, 0.08], DiskBox[{1.0567546849242255`, -1.7520376219547926`}, 0.08], {Thickness[0.008], LineBox[{{-2.468339410628223, 0}, {0, 0}}], LineBox[{{1.0886916784543992`, 1.8421970582367626`}, {0.03, -0.07}}], LineBox[{{1.0486916784543991`, 1.9721970582367627`}, {-0.02, 0.06}}], LineBox[{{1.0567546849242255`, -1.7520376219547926`}, {0, 0}}]}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->Automatic]], "Output", CellChangeTimes->{ 3.5673462861403837`*^9, 3.567510456041326*^9, 3.5675104964297967`*^9, 3.5675106614156866`*^9, 3.567510856556429*^9, 3.567510948456191*^9, 3.5675110392951508`*^9, 3.5675111825034018`*^9, 3.5675113144952335`*^9, 3.567511462321093*^9, 3.567511499542759*^9, 3.567511714355136*^9, 3.567511977075197*^9, {3.567512072001364*^9, 3.5675120853081875`*^9}, 3.567512259981694*^9, 3.5675123490422506`*^9, 3.5675124099447575`*^9, 3.567512524433359*^9, 3.567512559642621*^9, 3.567512653367585*^9, 3.5675127349557285`*^9, 3.567513092633157*^9, {3.5675131556416674`*^9, 3.567513182692115*^9}, 3.5675132934055095`*^9, 3.5675134509969864`*^9, 3.567513503990279*^9, 3.567513546079153*^9, 3.5675333448783283`*^9, 3.567533423502466*^9, 3.5675335069314127`*^9, 3.5675335766479354`*^9, 3.5675337184989843`*^9, {3.567533826092374*^9, 3.567533853033621*^9}, { 3.5675338862304792`*^9, 3.5675339085073185`*^9}, 3.5675339685206237`*^9, 3.5675340094394956`*^9, 3.567534134894916*^9, 3.56753423414229*^9, 3.5675343140456305`*^9, 3.5675343530768995`*^9, 3.567534429298633*^9, 3.5675344999667573`*^9, {3.567534588668513*^9, 3.5675346067801447`*^9}, 3.5675346494306197`*^9, 3.5675346910514927`*^9, {3.56757422551657*^9, 3.56757427113105*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ plot2=Graphics[{Circle[{xc[[1]],zc[[1]]},Cr], \ Circle[{xc[[2]],zc[[2]]},Fr],Circle[{xc[[3]],zc[[3]]},Oa],Circle[{xc[[4]],zc[[\ 4]]},FL], Circle[{xc[[5]],zc[[5]]},FL],Circle[{xc[[6]],zc[[6]]},CH],Circle[{xc[[7]],zc[[\ 7]]},CF],Circle[{xc[[8]],zc[[8]]},CO],Circle[{xc[[9]],zc[[9]]},OL],Circle[{xc[\ [10]],zc[[10]]},Fpi],Circle[{xc[[11]],zc[[11]]},Fpi],Circle[{xc[[12]],zc[[12]]\ },Cpi],Circle[{xc[[13]],zc[[13]]},Cpi],Circle[{xc[[14]],zc[[14]]},Opi],Circle[\ {xc[[15]],zc[[15]]},Opi],Circle[{xc[[16]],zc[[16]]},Osg],Circle[{xc[[17]],zc[[\ 17]]},Osg],Disk[{xn[[1]],zn[[1]]},0.08], Disk[{xn[[2]],zn[[2]]},0.08], \ Disk[{xn[[3]],zn[[3]]},0.08],(*Disk[{xn[[4]],zn[[4]]},0.08], \ Disk[{xn[[5]],zn[[5]]},0.08],*) Disk[{xn[[6]],zn[[6]]},0.08]} ] /. t[[2]]; (* xz-plane *) Show[plot2,{AspectRatio \[Rule] AutOsgatic,Axes -> True,GridLines -> \ AutOsgatic, PlotRange \[Rule] AutOsgatic, Frame -> True}]\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5668391703953342`*^9, 3.5668391881949654`*^9}, { 3.5668412398393693`*^9, 3.5668412401201696`*^9}, {3.566841311459095*^9, 3.5668413117242956`*^9}, {3.5668419284557786`*^9, 3.5668419511070185`*^9}, {3.566842124953724*^9, 3.566842139087349*^9}, 3.5670689313531685`*^9, {3.5670705170023537`*^9, 3.567070548654809*^9}, { 3.567076321179748*^9, 3.567076324596154*^9}, {3.5670763612250185`*^9, 3.567076444107964*^9}, {3.5670764854792366`*^9, 3.5670764972884574`*^9}, { 3.567076691212398*^9, 3.5670767228336535`*^9}, {3.5670850083498063`*^9, 3.5670850144962173`*^9}, {3.5672484126064167`*^9, 3.567248437972061*^9}, { 3.567248597435541*^9, 3.5672486093851624`*^9}, {3.5672599486910267`*^9, 3.567260127888541*^9}, {3.5672601804762335`*^9, 3.5672601882294474`*^9}, 3.5672602282279177`*^9, {3.56734591933694*^9, 3.567345928369355*^9}, 3.5673459980702777`*^9, {3.56751178485166*^9, 3.5675117914972715`*^9}, { 3.5675135302139254`*^9, 3.5675135349563336`*^9}, 3.567591916519643*^9, { 3.5675919859085646`*^9, 3.567591985970965*^9}, 3.5675920467486715`*^9, { 3.5675921205680013`*^9, 3.567592120630401*^9}, {3.567592204277748*^9, 3.567592204574149*^9}, {3.567592352181608*^9, 3.5675923522596083`*^9}, { 3.567592388108471*^9, 3.5675923881708713`*^9}}], Cell[BoxData[ GraphicsBox[{CircleBox[{0, 0}, 0.25065062786145126`], CircleBox[{-2.468339410628223, 0}, 0.16491191734154403`], CircleBox[{1.0686916784543992`, 0}, 0.1850880649193057], CircleBox[{-2.8563240080742025`, 0}, 0.8984627963791239], CircleBox[{-2.8563240080742025`, 0}, 0.8984627963791239], CircleBox[{0.76492187391898, 0}, 1.2303713758008552`], CircleBox[{-1.2770390605740651`, 0}, 1.0263884327126138`], CircleBox[{0.5503385138928311, 0}, 0.8774159467098952], CircleBox[{1.6098091037175764`, 0}, 0.9240774122334838], CircleBox[{-2.468339410628223, 0.8723369907371266}, 0.8723369907371266], CircleBox[{-2.468339410628223, -0.8723369907371266}, 0.8723369907371266], CircleBox[{0, 1.3151236824317798`}, 1.3151236824317798`], CircleBox[{0, -1.3151236824317798`}, 1.3151236824317798`], CircleBox[{1.0686916784543992`, 0.9807741650885555}, 0.9807741650885555], CircleBox[{1.0686916784543992`, -0.9807741650885555}, 0.9807741650885555], CircleBox[{0.15472403742393426`, 0}, 0.8619330161750159], CircleBox[{1.982659319484864, 0}, 0.8619330161750159], DiskBox[{0, 0}, 0.08], DiskBox[{-2.468339410628223, 0}, 0.08], DiskBox[{1.0686916784543992`, 0}, 0.08], DiskBox[{1.0567546849242255`, 0}, 0.08]}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->Automatic]], "Output", CellChangeTimes->{ 3.567346286155984*^9, 3.567510456056926*^9, 3.567510496445397*^9, 3.567510661431287*^9, 3.567510856556429*^9, 3.567510948456191*^9, 3.5675110393107505`*^9, 3.567511182534602*^9, 3.5675113145108337`*^9, 3.5675114623366933`*^9, 3.567511499558359*^9, 3.567511714370736*^9, 3.5675119770907974`*^9, {3.567512072016964*^9, 3.5675120853237877`*^9}, 3.5675122599972944`*^9, 3.567512349057851*^9, 3.5675124099603577`*^9, 3.567512524448959*^9, 3.567512559658221*^9, 3.5675126533831854`*^9, 3.5675127349713287`*^9, 3.567513092648757*^9, {3.5675131556572676`*^9, 3.567513182707715*^9}, 3.5675132934211097`*^9, 3.5675134510125866`*^9, 3.5675135040058794`*^9, 3.5675135461103535`*^9, 3.5675333448939285`*^9, 3.567533423502466*^9, 3.567533506947013*^9, 3.567533576663535*^9, 3.5675337185301847`*^9, {3.5675338261079736`*^9, 3.567533853049221*^9}, { 3.5675338862460794`*^9, 3.5675339085229187`*^9}, 3.5675339685362234`*^9, 3.5675340094394956`*^9, 3.567534134894916*^9, 3.5675342341578903`*^9, 3.5675343140612307`*^9, 3.5675343530924993`*^9, 3.567534429298633*^9, 3.5675344999667573`*^9, {3.567534588668513*^9, 3.567534606795745*^9}, 3.5675346494462194`*^9, 3.567534691067093*^9, {3.5675742255321703`*^9, 3.56757427113105*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ plot3=Graphics3D[{ Sphere[{xc[[1]],yc[[1]],zc[[1]]},Cr], Sphere[{xc[[2]],yc[[2]],zc[[2]]},Fr], Sphere[{xc[[3]],yc[[3]],zc[[3]]},Oa], {Opacity[0.6], Sphere[{xc[[4]],yc[[4]],zc[[4]]},FL], Sphere[{xc[[5]],yc[[5]],zc[[5]]},FL], Sphere[{xc[[6]],yc[[6]],zc[[6]]},CH], Sphere[{xc[[7]],yc[[7]],zc[[7]]},CF], Sphere[{xc[[8]],yc[[8]],zc[[8]]},CO], {Lighter[Blue], Sphere[{xc[[9]],yc[[9]],zc[[9]]},OL]}, {Lighter[Blue,0.6], Sphere[{xc[[16]],yc[[16]],zc[[16]]},Osg], Sphere[{xc[[17]],yc[[17]],zc[[17]]},Osg]}}, {Opacity[0.4],{Lighter[Green], Sphere[{xc[[10]],yc[[10]],zc[[10]]},Fpi], Sphere[{xc[[11]],yc[[11]],zc[[11]]},Fpi], Sphere[{xc[[12]],yc[[12]],zc[[12]]},Cpi], Sphere[{xc[[13]],yc[[13]],zc[[13]]},Cpi], Sphere[{xc[[14]],yc[[14]],zc[[14]]},Opi], Sphere[{xc[[15]],yc[[15]],zc[[15]]},Opi]}}, {Darker[Red,1], Sphere[{xn[[1]],yn[[1]],zn[[1]]},0.08], Sphere[{xn[[2]],yn[[2]],zn[[2]]},0.08], Sphere[{xn[[3]],yn[[3]],zn[[3]]},0.08], (*Sphere[{xn[[4]],yn[[4]],zn[[4]]},0.08], Sphere[{xn[[5]],yn[[5]],zn[[5]]},0.08],*) Sphere[{xn[[6]],yn[[6]],zn[[6]]},0.08], Cylinder[{{xn[[2]],yn[[2]],zn[[2]]},{xn[[1]],yn[[1]],zn[[1]]}},0.05], Cylinder[{{xn[[3]],yn[[3]]-0.14,zn[[3]]},{xn[[1]],yn[[1]]-0.14,zn[[1]]}},0.05], Cylinder[{{xn[[3]],yn[[3]]+0.14,zn[[3]]},{xn[[1]],yn[[1]]+0.14,zn[[1]]}},0.05], (*Cylinder[{{xn[[2]],yn[[2]],zn[[2]]},{xn[[4]],yn[[4]],zn[[4]]}},0.05], Cylinder[{{xn[[2]],yn[[2]],zn[[2]]},{xn[[5]],yn[[5]],zn[[5]]}},0.05],*) Cylinder[{{xn[[6]],yn[[6]],zn[[6]]},{xn[[1]],yn[[1]],zn[[1]]}},0.05]}}] /. \ t[[2]]; Show[plot3,{AspectRatio \[Rule] AutOsgatic,Boxed->False}]\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5668391703953342`*^9, 3.566839177774147*^9}, { 3.5669295568515253`*^9, 3.5669295979107976`*^9}, {3.5669296458028817`*^9, 3.5669298487904377`*^9}, {3.5669298934845166`*^9, 3.5669299137177525`*^9}, {3.566929958552231*^9, 3.566929984853877*^9}, { 3.5669300180975356`*^9, 3.5669300244935465`*^9}, {3.5669681367168245`*^9, 3.566968174578091*^9}, {3.5669682084145503`*^9, 3.5669682238429775`*^9}, { 3.56696839045127*^9, 3.566968403352493*^9}, {3.5669886931259174`*^9, 3.5669887406436005`*^9}, {3.56698877437086*^9, 3.5669887786296673`*^9}, { 3.5669888178481364`*^9, 3.5669888516221952`*^9}, {3.5669888927126675`*^9, 3.5669888937422695`*^9}, {3.56698893940355*^9, 3.566988940932352*^9}, { 3.566989011850077*^9, 3.5669890235968976`*^9}, {3.5669890790549955`*^9, 3.566989179831172*^9}, {3.5669892163196363`*^9, 3.5669892198764424`*^9}, { 3.566989533171793*^9, 3.5669895449498134`*^9}, 3.567068931415569*^9, { 3.5670704486430335`*^9, 3.567070500840725*^9}, {3.5670768428602643`*^9, 3.567076863427901*^9}, {3.567076934439225*^9, 3.5670771373487816`*^9}, { 3.567077191402877*^9, 3.567077229716544*^9}, {3.5670776494196815`*^9, 3.5670776603397007`*^9}, 3.567077706489382*^9, 3.5670779441365986`*^9, { 3.5670781500413604`*^9, 3.567078154253368*^9}, {3.567078187263026*^9, 3.5670782620127573`*^9}, {3.5670783597557287`*^9, 3.567078441453072*^9}, { 3.5670784741819296`*^9, 3.5670785488436604`*^9}, {3.567079302263584*^9, 3.567079352339672*^9}, 3.5670794136233797`*^9, {3.567084448847624*^9, 3.567084513977738*^9}, {3.567084586159065*^9, 3.5670845877970676`*^9}, { 3.567084647170772*^9, 3.5670846660780053`*^9}, {3.5670850221714306`*^9, 3.567085027023039*^9}, {3.5672484905285535`*^9, 3.5672485617270784`*^9}, { 3.567249135979687*^9, 3.567249154356519*^9}, {3.5672516676925335`*^9, 3.567251794832757*^9}, 3.5672519818002853`*^9, 3.56725201830435*^9, { 3.5672520987224913`*^9, 3.5672521037769003`*^9}, {3.567252239341138*^9, 3.5672522670467863`*^9}, {3.567252311678465*^9, 3.567252453279914*^9}, { 3.567252636627036*^9, 3.5672526483738565`*^9}, {3.56725271883918*^9, 3.567252725500392*^9}, 3.5672527761848807`*^9, {3.567252962511608*^9, 3.567252984897648*^9}, {3.567253050573763*^9, 3.5672531005094504`*^9}, { 3.5672531611155567`*^9, 3.567253313949025*^9}, {3.567253349579488*^9, 3.567253359189105*^9}, {3.567345074080655*^9, 3.567345086623077*^9}, { 3.5675118112001057`*^9, 3.56751183603535*^9}, {3.5675133904688797`*^9, 3.5675134070673094`*^9}, 3.567591916613243*^9, {3.5675919860489645`*^9, 3.5675919861113653`*^9}, 3.5675920468266716`*^9, {3.5675921207084017`*^9, 3.5675921207708015`*^9}, {3.5675922046521487`*^9, 3.5675922048081493`*^9}, {3.567592352322008*^9, 3.567592352400008*^9}, { 3.567592388248871*^9, 3.5675923883112717`*^9}}], Cell[BoxData[ Graphics3DBox[{SphereBox[{0, 0, 0}, 0.25065062786145126`], SphereBox[{-2.468339410628223, 0, 0}, 0.16491191734154403`], SphereBox[{1.0686916784543992`, 1.9121970582367627`, 0}, 0.1850880649193057], {Opacity[0.6], SphereBox[{-2.8563240080742025`, 0.9900675400825912, 0}, 0.8984627963791239], SphereBox[{-2.8563240080742025`, -0.9900675400825912, 0}, 0.8984627963791239], SphereBox[{0.76492187391898, -1.2681958453378521`, 0}, 1.2303713758008552`], SphereBox[{-1.2770390605740651`, 0, 0}, 1.0263884327126138`], SphereBox[{0.5503385138928311, 0.9847140279245349, 0}, 0.8774159467098952], {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], SphereBox[{1.6098091037175764`, 2.8804119041176373`, 0}, 0.9240774122334838]}, {RGBColor[0.6, 0.6, 1.], SphereBox[{0.15472403742393426`, 2.4229967209276553`, 0}, 0.8619330161750159], SphereBox[{1.982659319484864, 1.40139739554587, 0}, 0.8619330161750159]}}, {Opacity[0.4], {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-2.468339410628223, 0, 0.8723369907371266}, 0.8723369907371266], SphereBox[{-2.468339410628223, 0, -0.8723369907371266}, 0.8723369907371266], SphereBox[{0, 0, 1.3151236824317798`}, 1.3151236824317798`], SphereBox[{0, 0, -1.3151236824317798`}, 1.3151236824317798`], SphereBox[{1.0686916784543992`, 1.9121970582367627`, 0.9807741650885555}, 0.9807741650885555], SphereBox[{1.0686916784543992`, 1.9121970582367627`, -0.9807741650885555}, 0.9807741650885555]}}, {RGBColor[0, 0, 0], SphereBox[{0, 0, 0}, 0.08], SphereBox[{-2.468339410628223, 0, 0}, 0.08], SphereBox[{1.0686916784543992`, 1.9121970582367627`, 0}, 0.08], SphereBox[{1.0567546849242255`, -1.7520376219547926`, 0}, 0.08], CylinderBox[{{-2.468339410628223, 0, 0}, {0, 0, 0}}, 0.05], CylinderBox[{{1.0686916784543992`, 1.7721970582367628`, 0}, { 0, -0.14, 0}}, 0.05], CylinderBox[{{1.0686916784543992`, 2.0521970582367626`, 0}, {0, 0.14, 0}}, 0.05], CylinderBox[{{1.0567546849242255`, -1.7520376219547926`, 0}, {0, 0, 0}}, 0.05]}}, AspectRatio->Automatic, AutomaticImageSize->True, Boxed->False, ImageSize->{383.73035797906556`, 387.3240837828848}, ViewPoint->{0.442522831927992, -1.0465596356136153`, 3.187300812964902}, ViewVertical->{-0.31621474105622716`, 0.5532690364083428, 0.9884237667897623}]], "Output", CellChangeTimes->{ 3.5673462864055843`*^9, 3.5675104563221264`*^9, 3.5675104964609966`*^9, 3.5675106614624867`*^9, 3.567510856572029*^9, 3.567510948471791*^9, 3.56751103932635*^9, 3.567511182550202*^9, 3.567511314526434*^9, 3.5675114623522935`*^9, 3.567511499573959*^9, 3.567511714401936*^9, 3.5675119771063976`*^9, {3.567512072032564*^9, 3.5675120853237877`*^9}, 3.5675122600128946`*^9, 3.567512349073451*^9, 3.5675124099603577`*^9, 3.567512524480159*^9, 3.5675125596738205`*^9, 3.567512653398785*^9, 3.567512734986929*^9, 3.5675130926643567`*^9, {3.5675131556884675`*^9, 3.5675131827233152`*^9}, 3.5675132934367094`*^9, 3.5675134510281863`*^9, 3.5675135040214796`*^9, 3.567513546125953*^9, 3.5675333448939285`*^9, 3.5675334235180664`*^9, 3.5675335069782133`*^9, 3.5675335766791353`*^9, 3.567533718545785*^9, {3.5675338261235733`*^9, 3.567533853064821*^9}, { 3.567533886261679*^9, 3.5675339085229187`*^9}, 3.5675339685518236`*^9, 3.5675340094550953`*^9, 3.567534134910516*^9, 3.5675342341734905`*^9, 3.5675343140612307`*^9, 3.567534353108099*^9, 3.567534429314233*^9, 3.567534499982357*^9, {3.5675345886841125`*^9, 3.567534606811345*^9}, 3.5675346494618196`*^9, 3.567534691082693*^9, {3.5675742258285704`*^9, 3.5675742711466503`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"as", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{ RowBox[{"bohr", "*", "xn"}], " ", "/.", " ", RowBox[{"t", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{ RowBox[{"bohr", "*", "yn"}], " ", "/.", " ", RowBox[{"t", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{ RowBox[{"bohr", "*", "zn"}], " ", "/.", " ", RowBox[{"t", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"s", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"as", "[", RowBox[{"[", RowBox[{"l", "+", "1"}], "]"}], "]"}], ",", RowBox[{"x", "[", RowBox[{"[", "l", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "l", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"l", ",", "6"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", StyleBox[ RowBox[{"(*", " ", RowBox[{ "Cartesian", " ", "COpirdinates", " ", "of", " ", "stationary", " ", "structure"}], " ", "*)"}], "Text"]}], "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"MatrixForm", "[", "s", "]"}]}]}], "Input", CellChangeTimes->{{3.5672284907474256`*^9, 3.56722854442712*^9}, { 3.5672285770935774`*^9, 3.567228591570403*^9}, 3.567228630320871*^9, { 3.56722880051717*^9, 3.567228812825591*^9}, {3.5672288915745296`*^9, 3.5672289256605897`*^9}, {3.5672289905567036`*^9, 3.5672290107431393`*^9}, {3.567229046592002*^9, 3.5672290563576193`*^9}, { 3.5672291676482143`*^9, 3.567229187179449*^9}, {3.5672292331995296`*^9, 3.567229305692857*^9}, {3.5672293946910133`*^9, 3.567229403739029*^9}, { 3.567229509632015*^9, 3.567229553296492*^9}, {3.567229926074747*^9, 3.5672299410507727`*^9}, {3.567229996883271*^9, 3.5672300622005854`*^9}, { 3.56723009870465*^9, 3.567230152836745*^9}, {3.567230250492916*^9, 3.567230251787719*^9}, {3.56723029233219*^9, 3.5672303016454067`*^9}, { 3.5672449305087004`*^9, 3.567244935375909*^9}, {3.5672450518145137`*^9, 3.567245059255727*^9}, {3.5672451122178197`*^9, 3.5672451847423472`*^9}, { 3.5672453557654476`*^9, 3.5672453904911084`*^9}, 3.567245430770379*^9, { 3.5672454639672375`*^9, 3.567245468038845*^9}, {3.5672455930730643`*^9, 3.567245597597072*^9}, {3.5672457069220643`*^9, 3.567245710744071*^9}, { 3.5672457475133357`*^9, 3.5672457532229457`*^9}, {3.5672457998514276`*^9, 3.5672458038294344`*^9}, {3.5672459644785166`*^9, 3.5672459999217787`*^9}, {3.567246112413576*^9, 3.567246114847181*^9}, { 3.5672461687920756`*^9, 3.567246233594589*^9}, {3.567246288413086*^9, 3.5672462895674877`*^9}, 3.567249100786025*^9, {3.567336054232044*^9, 3.567336054762445*^9}, 3.5675923883424716`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"C", "0.`", "0.`", "0.`"}, {"N", RowBox[{"-", "1.3061884442980112`"}], "0.`", "0.`"}, {"O", "0.5655270563294635`", "1.0118907026865553`", "0.`"}, {"H", RowBox[{"-", "1.5115009696206823`"}], "0.5239209706582854`", "0.`"}, {"H", RowBox[{"-", "1.5115009696206823`"}], RowBox[{"-", "0.5239209706582854`"}], "0.`"}, {"H", "0.5592102739041468`", RowBox[{"-", "0.9271380126731713`"}], "0.`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5673462864211845`*^9, 3.5675104563377266`*^9, 3.5675104964609966`*^9, 3.567510661524887*^9, 3.5675108565876293`*^9, 3.5675109484873905`*^9, 3.56751103938875*^9, 3.567511182597002*^9, 3.567511314588834*^9, 3.567511462414694*^9, 3.567511499573959*^9, 3.5675117144643364`*^9, 3.567511977121998*^9, {3.5675120720481644`*^9, 3.567512085339388*^9}, 3.5675122600752945`*^9, 3.567512349073451*^9, 3.567512409975958*^9, 3.5675125245425587`*^9, 3.567512559736221*^9, 3.5675126534767857`*^9, 3.567512734986929*^9, 3.567513092679957*^9, {3.5675131557040677`*^9, 3.5675131827389154`*^9}, 3.5675132934523096`*^9, 3.5675134510905867`*^9, 3.5675135040838795`*^9, 3.5675135461883535`*^9, 3.5675333449095287`*^9, 3.5675334235336666`*^9, 3.567533507025013*^9, 3.5675335766791353`*^9, 3.567533718608185*^9, {3.5675338261235733`*^9, 3.567533853064821*^9}, { 3.567533886261679*^9, 3.5675339085385184`*^9}, 3.5675339685518236`*^9, 3.5675340094706955`*^9, 3.567534134926116*^9, 3.5675342341734905`*^9, 3.567534314076831*^9, 3.567534353108099*^9, 3.567534429329833*^9, 3.567534499997957*^9, {3.5675345886997128`*^9, 3.567534606811345*^9}, 3.5675346494618196`*^9, 3.567534691082693*^9, {3.5675742258597703`*^9, 3.56757427116225*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "matrix", " ", "\[CapitalARing]"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "6"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "Dij", "]"}]}]}]], "Input", CellChangeTimes->{{3.5673121185644836`*^9, 3.5673123031908083`*^9}, { 3.567312519375988*^9, 3.5673125338996134`*^9}, 3.56731260009053*^9, { 3.5673126601194353`*^9, 3.5673126617262383`*^9}, {3.567312701537508*^9, 3.56731271390833*^9}, {3.5673127984604783`*^9, 3.567312798959679*^9}, { 3.56731301023085*^9, 3.5673130212756696`*^9}, {3.567313495251302*^9, 3.5673135176529417`*^9}, {3.5673140616882973`*^9, 3.567314081515932*^9}, { 3.5673141162571926`*^9, 3.5673141194083986`*^9}, {3.567314158034066*^9, 3.567314184585313*^9}, {3.567334145038291*^9, 3.567334156660311*^9}, { 3.5673342928329506`*^9, 3.567334322613403*^9}, {3.5673355964492397`*^9, 3.567335606152457*^9}, {3.5673360873353024`*^9, 3.56733610304453*^9}, { 3.5673361383629923`*^9, 3.567336138908993*^9}, {3.567336196395094*^9, 3.567336202213904*^9}, {3.567336253865595*^9, 3.56733627378683*^9}, { 3.567336312006897*^9, 3.5673363381057425`*^9}, {3.5673364031422567`*^9, 3.567336415684679*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "1.3061884442980112`", "1.159199571093847`", "1.59972759076656`", "1.59972759076656`", "1.0827285093611918`"}, {"1.3061884442980112`", "0.`", "2.1277315877414256`", "0.5627134408825618`", "0.5627134408825618`", "2.083097998754214`"}, {"1.159199571093847`", "2.1277315877414256`", "0.`", "2.1335791243724946`", "2.583169161430323`", "1.939039004437456`"}, {"1.59972759076656`", "0.5627134408825618`", "2.1335791243724946`", "0.`", "1.0478419413165707`", "2.5285207586980705`"}, {"1.59972759076656`", "0.5627134408825618`", "2.583169161430323`", "1.0478419413165707`", "0.`", "2.1096040000510468`"}, {"1.0827285093611918`", "2.083097998754214`", "1.939039004437456`", "2.5285207586980705`", "2.1096040000510468`", "0.`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5673462864367847`*^9, 3.5675104563533263`*^9, 3.567510496476597*^9, 3.567510661524887*^9, 3.5675108565876293`*^9, 3.5675109484873905`*^9, 3.5675110394043503`*^9, 3.567511182612602*^9, 3.567511314620034*^9, 3.5675114624302936`*^9, 3.5675114995895586`*^9, 3.5675117144643364`*^9, 3.5675119771375976`*^9, {3.5675120720481644`*^9, 3.5675120853549876`*^9}, 3.5675122600908947`*^9, 3.567512349089051*^9, 3.567512409991558*^9, 3.567512524558159*^9, 3.567512559767421*^9, 3.5675126534767857`*^9, 3.567512735002529*^9, 3.5675130926955566`*^9, {3.5675131557040677`*^9, 3.567513182754515*^9}, 3.56751329346791*^9, 3.5675134511061864`*^9, 3.5675135040994797`*^9, 3.567513546219554*^9, 3.5675333449251285`*^9, 3.5675334235492663`*^9, 3.567533507040613*^9, 3.5675335766947355`*^9, 3.5675337186393847`*^9, {3.5675338261391735`*^9, 3.5675338530804205`*^9}, { 3.567533886277279*^9, 3.567533908554118*^9}, 3.567533968567424*^9, 3.5675340094706955`*^9, 3.567534134926116*^9, 3.5675342341890907`*^9, 3.567534314092431*^9, 3.567534353123699*^9, 3.567534429345433*^9, 3.5675345000135574`*^9, {3.5675345886997128`*^9, 3.567534606826945*^9}, 3.56753464947742*^9, 3.567534691098293*^9, {3.5675742258753705`*^9, 3.56757427116225*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"plot4", "=", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", "\n", RowBox[{ RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "Cr"}], "]"}], ",", " ", "\n", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "Fr"}], "]"}], ",", "\n", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "Oa"}], "]"}], ",", "\n", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", "\n", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", "OL"}], "]"}]}], "}"}], ",", "\n", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.6"}], "]"}], ",", "\n", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "16", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "16", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "16", "]"}], "]"}]}], "}"}], ",", "Osg"}], "]"}], ",", "\n", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "17", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "17", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "17", "]"}], "]"}]}], "}"}], ",", "Osg"}], "]"}]}], "}"}], ",", "\n", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Red", ",", "1"}], "]"}], ",", "\n", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", "\n", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", "\n", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", "\n", RowBox[{"(*", RowBox[{ RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", "\n", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ","}], "*)"}], "\n", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", "\n", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\n", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{ RowBox[{"yn", "[", RowBox[{"[", "3", "]"}], "]"}], "-", "0.14"}], ",", RowBox[{"zn", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"yn", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "0.14"}], ",", RowBox[{"zn", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\n", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{ RowBox[{"yn", "[", RowBox[{"[", "3", "]"}], "]"}], "+", "0.14"}], ",", RowBox[{"zn", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"yn", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "0.14"}], ",", RowBox[{"zn", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\n", RowBox[{"(*", RowBox[{ RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\n", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ","}], "*)"}], "\n", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}]}], "}"}]}], "}"}], "]"}], " ", "/.", " ", RowBox[{"t", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\n"}]], "Input", CellChangeTimes->{{3.567343131222042*^9, 3.5673432051973724`*^9}, { 3.5673432772226987`*^9, 3.567343288626319*^9}, 3.5673433408552103`*^9, { 3.5673433993709135`*^9, 3.56734341448734*^9}, {3.5673449337584085`*^9, 3.5673449778908863`*^9}, {3.5673450098397417`*^9, 3.5673450314145803`*^9}, {3.5673457004529552`*^9, 3.5673457120281754`*^9}, {3.5675118638189983`*^9, 3.567511888498242*^9}, { 3.5675133644480343`*^9, 3.5675133780200577`*^9}, 3.567591916660043*^9, { 3.5675922048393493`*^9, 3.5675922048393493`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "Two", " ", "lone", " ", "pairs", " ", "of", " ", "O", " ", "atOsg"}], ";", " ", RowBox[{"one", " ", "of", " ", SubscriptBox["\[Pi]", "x"]}]}], ",", " ", RowBox[{ "the", " ", "other", " ", "of", " ", "\[Sigma]", " ", "symmetry"}]}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"plot4", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "AutOsgatic"}], ",", RowBox[{"Boxed", "->", "False"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.567343131222042*^9, 3.5673432051973724`*^9}, { 3.5673432772226987`*^9, 3.567343288626319*^9}, 3.5673433408552103`*^9, { 3.5673433993709135`*^9, 3.5673435539359846`*^9}, {3.5675922048393493`*^9, 3.5675922048393493`*^9}}], Cell[BoxData[ Graphics3DBox[{SphereBox[{0, 0, 0}, 0.25065062786145126`], SphereBox[{-2.468339410628223, 0, 0}, 0.16491191734154403`], SphereBox[{1.0686916784543992`, 1.9121970582367627`, 0}, 0.1850880649193057], {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], SphereBox[{1.6098091037175764`, 2.8804119041176373`, 0}, 0.9240774122334838]}, {RGBColor[0.6, 0.6, 1.], SphereBox[{0.15472403742393426`, 2.4229967209276553`, 0}, 0.8619330161750159], SphereBox[{1.982659319484864, 1.40139739554587, 0}, 0.8619330161750159]}, {RGBColor[0, 0, 0], SphereBox[{0, 0, 0}, 0.08], SphereBox[{-2.468339410628223, 0, 0}, 0.08], SphereBox[{1.0686916784543992`, 1.9121970582367627`, 0}, 0.08], SphereBox[{1.0567546849242255`, -1.7520376219547926`, 0}, 0.08], CylinderBox[{{-2.468339410628223, 0, 0}, {0, 0, 0}}, 0.05], CylinderBox[{{1.0686916784543992`, 1.7721970582367628`, 0}, { 0, -0.14, 0}}, 0.05], CylinderBox[{{1.0686916784543992`, 2.0521970582367626`, 0}, {0, 0.14, 0}}, 0.05], CylinderBox[{{1.0567546849242255`, -1.7520376219547926`, 0}, {0, 0, 0}}, 0.05]}}, AspectRatio->Automatic, Boxed->False]], "Output", CellChangeTimes->{ 3.567346286467984*^9, 3.5675104563845263`*^9, 3.567510496492197*^9, 3.5675106615560865`*^9, 3.5675108566188297`*^9, 3.567510948518591*^9, 3.5675110394199505`*^9, 3.567511182628202*^9, 3.567511314635634*^9, 3.5675114624458933`*^9, 3.567511499620759*^9, 3.567511714495536*^9, 3.5675119771687975`*^9, {3.5675120720793643`*^9, 3.5675120853705873`*^9}, 3.5675122601064944`*^9, 3.5675123491202507`*^9, 3.567512410007158*^9, 3.5675125245893593`*^9, 3.567512559783021*^9, 3.5675126535079856`*^9, 3.5675127350337286`*^9, 3.567513092726757*^9, {3.5675131557352676`*^9, 3.567513182785715*^9}, 3.5675132934835095`*^9, 3.5675134511373863`*^9, 3.56751350411508*^9, 3.5675135462351537`*^9, 3.567533344940728*^9, 3.567533423564866*^9, 3.567533507071813*^9, 3.5675335767103357`*^9, 3.5675337186549845`*^9, {3.567533826170374*^9, 3.567533853111621*^9}, { 3.567533886292879*^9, 3.5675339085697184`*^9}, 3.567533968583024*^9, 3.567534009501896*^9, 3.567534134957316*^9, 3.56753423422029*^9, 3.567534314108031*^9, 3.5675343531392994`*^9, 3.5675344293610334`*^9, 3.567534500029157*^9, {3.567534588730913*^9, 3.5675346068425446`*^9}, 3.56753464950862*^9, 3.5675346911138926`*^9, {3.5675742259065704`*^9, 3.56757427119345*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"plot5", "=", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "Cr"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "Fr"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "Oa"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Green", ",", "0.3"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "10", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "10", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "10", "]"}], "]"}]}], "}"}], ",", "Fpi"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "11", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "11", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "11", "]"}], "]"}]}], "}"}], ",", "Fpi"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", "Cpi"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "13", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "13", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "13", "]"}], "]"}]}], "}"}], ",", "Cpi"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "14", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "14", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "14", "]"}], "]"}]}], "}"}], ",", "Opi"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "15", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "15", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "15", "]"}], "]"}]}], "}"}], ",", "Opi"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Red", ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ","}], "*)"}], RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{ RowBox[{"yn", "[", RowBox[{"[", "3", "]"}], "]"}], "-", "0.14"}], ",", RowBox[{"zn", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"yn", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "0.14"}], ",", RowBox[{"zn", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{ RowBox[{"yn", "[", RowBox[{"[", "3", "]"}], "]"}], "+", "0.14"}], ",", RowBox[{"zn", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"yn", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "0.14"}], ",", RowBox[{"zn", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ","}], "*)"}], RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}]}], "}"}]}], "}"}], "]"}], "/.", RowBox[{"t", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Overlapping", " ", "\[Pi]", " ", "system"}], ",", " ", RowBox[{ "forcing", " ", "the", " ", "N", " ", "atOsg", " ", "and", " ", "FL", " ", "bonds", " ", "into", " ", "plane", " ", "of", " ", "all", " ", "6", " ", "atOsgs"}]}], " ", "*)"}], "Text"]}], "\n", RowBox[{"Show", "[", RowBox[{"plot5", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "AutOsgatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.567343604714074*^9, 3.5673436277865143`*^9}, { 3.5673436837438126`*^9, 3.5673437262850876`*^9}, {3.5673438309300714`*^9, 3.5673438393072863`*^9}, {3.567343886060568*^9, 3.5673439230794334`*^9}, { 3.567344408021885*^9, 3.56734451319727*^9}, 3.5673456889869347`*^9, 3.5673459664490223`*^9, {3.5673460936360455`*^9, 3.5673461706689806`*^9}, { 3.567511905205871*^9, 3.5675119287307124`*^9}, {3.567513329098372*^9, 3.5675133531068144`*^9}, 3.567591916675643*^9, 3.5675919861425653`*^9, { 3.567592120802002*^9, 3.5675921208176017`*^9}, {3.567592202514945*^9, 3.5675922025461454`*^9}, {3.5675923524312086`*^9, 3.5675923524312086`*^9}, {3.5675923883580713`*^9, 3.5675923883580713`*^9}}], Cell[BoxData[ Graphics3DBox[{SphereBox[{0, 0, 0}, 0.25065062786145126`], SphereBox[{-2.468339410628223, 0, 0}, 0.16491191734154403`], SphereBox[{1.0686916784543992`, 1.9121970582367627`, 0}, 0.1850880649193057], {Opacity[0.4], {RGBColor[0.3, 1., 0.3], SphereBox[{-2.468339410628223, 0, 0.8723369907371266}, 0.8723369907371266], SphereBox[{-2.468339410628223, 0, -0.8723369907371266}, 0.8723369907371266], SphereBox[{0, 0, 1.3151236824317798`}, 1.3151236824317798`], SphereBox[{0, 0, -1.3151236824317798`}, 1.3151236824317798`], SphereBox[{1.0686916784543992`, 1.9121970582367627`, 0.9807741650885555}, 0.9807741650885555], SphereBox[{1.0686916784543992`, 1.9121970582367627`, -0.9807741650885555}, 0.9807741650885555]}}, {RGBColor[0, 0, 0], SphereBox[{0, 0, 0}, 0.08], SphereBox[{-2.468339410628223, 0, 0}, 0.08], SphereBox[{1.0686916784543992`, 1.9121970582367627`, 0}, 0.08], SphereBox[{1.0567546849242255`, -1.7520376219547926`, 0}, 0.08], CylinderBox[{{-2.468339410628223, 0, 0}, {0, 0, 0}}, 0.05], CylinderBox[{{1.0686916784543992`, 1.7721970582367628`, 0}, { 0, -0.14, 0}}, 0.05], CylinderBox[{{1.0686916784543992`, 2.0521970582367626`, 0}, {0, 0.14, 0}}, 0.05], CylinderBox[{{1.0567546849242255`, -1.7520376219547926`, 0}, {0, 0, 0}}, 0.05]}}, AspectRatio->Automatic, AutomaticImageSize->True, Boxed->False, ImageSize->{390.8121120316157, 386.09436350683507`}, ViewPoint->{-0.05913091327920729, 0.10025703181832582`, 3.381782379554567}, ViewVertical->{-0.5273969435939192, 0.7737295088114026, 0.5631079332431147}]], "Output", CellChangeTimes->{ 3.5673462864835844`*^9, 3.5675104564157267`*^9, 3.567510496523397*^9, 3.5675106615716867`*^9, 3.56751085663443*^9, 3.567510948534191*^9, 3.567511039451151*^9, 3.567511182659402*^9, 3.5675113146512337`*^9, 3.5675114624614935`*^9, 3.5675114996363587`*^9, 3.567511714511136*^9, 3.567511977199998*^9, {3.5675120720949645`*^9, 3.5675120853861876`*^9}, 3.5675122601220946`*^9, 3.567512349135851*^9, 3.567512410022758*^9, 3.5675125246049595`*^9, 3.5675125597986207`*^9, 3.5675126535235853`*^9, 3.567512735049329*^9, 3.567513092757957*^9, {3.5675131557664676`*^9, 3.5675131828169155`*^9}, 3.5675132935303097`*^9, 3.5675134511529865`*^9, 3.5675135041306796`*^9, 3.5675135462507534`*^9, 3.5675333449563284`*^9, 3.5675334235804663`*^9, 3.5675335070874133`*^9, 3.567533576725936*^9, 3.5675337186705847`*^9, {3.5675338261859736`*^9, 3.567533853127221*^9}, { 3.5675338863240795`*^9, 3.5675339085853186`*^9}, 3.5675339685986238`*^9, 3.5675340095174956`*^9, 3.5675341349729156`*^9, 3.5675342342358904`*^9, 3.5675343141236305`*^9, 3.567534353170499*^9, 3.567534429376633*^9, 3.567534500044757*^9, {3.5675345887465134`*^9, 3.5675346068581448`*^9}, 3.5675346495242195`*^9, 3.5675346911294928`*^9, {3.5675742259221706`*^9, 3.56757427120905*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"plot6", "=", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "Cr"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "Fr"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "Oa"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.6", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", "FL"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", "FL"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", "CH"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "7", "]"}], "]"}]}], "}"}], ",", "CF"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xc", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"yc", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"zc", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", "CO"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Red", ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ","}], "*)"}], RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{ RowBox[{"yn", "[", RowBox[{"[", "3", "]"}], "]"}], "-", "0.14"}], ",", RowBox[{"zn", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"yn", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "0.14"}], ",", RowBox[{"zn", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{ RowBox[{"yn", "[", RowBox[{"[", "3", "]"}], "]"}], "+", "0.14"}], ",", RowBox[{"zn", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"yn", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "0.14"}], ",", RowBox[{"zn", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ","}], "*)"}], RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"yn", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"zn", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}]}], "}"}]}], "}"}], "]"}], "/.", RowBox[{"t", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[ RowBox[{"(*", " ", RowBox[{ "the", " ", "sigma", " ", "skeleton", " ", "of", " ", "the", " ", "molecule"}], " ", "*)"}], "Text"], "\n", RowBox[{"Show", "[", RowBox[{"plot6", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "AutOsgatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567344022482808*^9, 3.567344060827675*^9}, { 3.5673441070661564`*^9, 3.5673441366438084`*^9}, {3.5673441903391027`*^9, 3.5673442015243225`*^9}, 3.56734427418925*^9, {3.567344526535293*^9, 3.567344545083726*^9}, 3.567345677474115*^9, 3.5673459753410378`*^9, { 3.5675119422403364`*^9, 3.567511964267575*^9}, {3.567513006396205*^9, 3.5675130839127417`*^9}, {3.567513120635206*^9, 3.5675131762181034`*^9}, { 3.5675132804106865`*^9, 3.5675132807070875`*^9}, 3.567591916691243*^9, { 3.567591986158165*^9, 3.567591986158165*^9}, 3.5675920468578715`*^9, 3.5675922025461454`*^9}], Cell[BoxData[ Graphics3DBox[{SphereBox[{0, 0, 0}, 0.25065062786145126`], SphereBox[{-2.468339410628223, 0, 0}, 0.16491191734154403`], SphereBox[{1.0686916784543992`, 1.9121970582367627`, 0}, 0.1850880649193057], {Opacity[0.6], SphereBox[{-2.8563240080742025`, 0.9900675400825912, 0}, 0.8984627963791239], SphereBox[{-2.8563240080742025`, -0.9900675400825912, 0}, 0.8984627963791239], SphereBox[{0.76492187391898, -1.2681958453378521`, 0}, 1.2303713758008552`], SphereBox[{-1.2770390605740651`, 0, 0}, 1.0263884327126138`], SphereBox[{0.5503385138928311, 0.9847140279245349, 0}, 0.8774159467098952]}, {RGBColor[0, 0, 0], SphereBox[{0, 0, 0}, 0.08], SphereBox[{-2.468339410628223, 0, 0}, 0.08], SphereBox[{1.0686916784543992`, 1.9121970582367627`, 0}, 0.08], CylinderBox[{{-2.468339410628223, 0, 0}, {0, 0, 0}}, 0.05], CylinderBox[{{1.0686916784543992`, 1.7721970582367628`, 0}, { 0, -0.14, 0}}, 0.05], CylinderBox[{{1.0686916784543992`, 2.0521970582367626`, 0}, {0, 0.14, 0}}, 0.05], CylinderBox[{{1.0567546849242255`, -1.7520376219547926`, 0}, {0, 0, 0}}, 0.05]}}, AspectRatio->Automatic, AutomaticImageSize->True, Boxed->False, ImageSize->{377.1913431251496, 370.52942786746604`}, ViewPoint->{-0.24210167510969172`, -0.01748867934753706, 3.3750675437691258`}, ViewVertical->{-0.5039371255182054, 0.7317248565342878, 1.1626256051888526`}]], "Output", CellChangeTimes->{ 3.5675132935771093`*^9, 3.567513451184187*^9, 3.5675135041462793`*^9, 3.5675135462663536`*^9, 3.5675333449719286`*^9, 3.5675334235960665`*^9, 3.567533507103013*^9, 3.5675335767415357`*^9, 3.567533718686185*^9, { 3.5675338262015734`*^9, 3.5675338531428213`*^9}, {3.5675338863240795`*^9, 3.5675339086009183`*^9}, 3.567533968614224*^9, 3.5675340095330954`*^9, 3.567534134988516*^9, 3.5675342342514906`*^9, 3.5675343141392307`*^9, 3.567534353186099*^9, 3.567534429392233*^9, 3.567534500060357*^9, { 3.567534588762113*^9, 3.567534606873745*^9}, 3.5675346495398197`*^9, 3.567534691145093*^9, {3.567574225937771*^9, 3.56757427122465*^9}}] }, Open ]] }, WindowToolbars->"EditBar", WindowSize->{904, 964}, WindowMargins->{{Automatic, 452}, {Automatic, 8}}, PrintingCopies->1, PrintingPageRange->{5, 6}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 2886, 41, 31, "Input"], Cell[3446, 63, 6626, 99, 218, "Input"], Cell[10075, 164, 1494, 28, 72, "Input"], Cell[11572, 194, 915, 25, 252, "Input"], Cell[12490, 221, 4989, 72, 82, "Input"], Cell[17482, 295, 6877, 100, 150, "Input"], Cell[24362, 397, 5589, 81, 235, "Input"], Cell[29954, 480, 4824, 69, 82, "Input"], Cell[34781, 551, 5627, 79, 99, "Input"], Cell[40411, 632, 4636, 66, 65, "Input"], Cell[45050, 700, 588, 13, 82, "Input"], Cell[45641, 715, 434, 11, 82, "Input"], Cell[46078, 728, 647, 15, 116, "Input"], Cell[46728, 745, 2411, 35, 116, "Input"], Cell[49142, 782, 1331, 25, 132, InheritFromParent], Cell[CellGroupData[{ Cell[50498, 811, 1116, 26, 218, "Input"], Cell[51617, 839, 1348, 19, 31, "Output"], Cell[52968, 860, 1364, 20, 31, "Output"], Cell[54335, 882, 1348, 19, 31, "Output"], Cell[55686, 903, 1344, 19, 31, "Output"], Cell[57033, 924, 1345, 19, 31, "Output"], Cell[58381, 945, 1345, 19, 31, "Output"], Cell[59729, 966, 1344, 19, 31, "Output"], Cell[61076, 987, 1344, 19, 31, "Output"], Cell[62423, 1008, 1344, 19, 31, "Output"], Cell[63770, 1029, 1345, 19, 31, "Output"], Cell[65118, 1050, 1345, 19, 31, "Output"], Cell[66466, 1071, 1345, 19, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[67848, 1095, 3318, 52, 354, "Input"], Cell[71169, 1149, 3080, 48, 360, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74286, 1202, 2262, 35, 235, "Input"], Cell[76551, 1239, 2689, 44, 307, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79277, 1288, 4495, 79, 643, "Input"], Cell[83775, 1369, 3979, 78, 402, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[87791, 1452, 3033, 67, 152, "Input"], Cell[90827, 1521, 2302, 45, 102, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[93166, 1571, 2050, 47, 72, "Input"], Cell[95219, 1620, 2651, 46, 102, "Output"] }, Open ]], Cell[97885, 1669, 11401, 294, 472, "Input"], Cell[CellGroupData[{ Cell[109311, 1967, 899, 23, 52, "Input"], Cell[110213, 1992, 2575, 46, 297, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[112825, 2043, 13413, 342, 432, "Input"], Cell[126241, 2387, 3003, 52, 401, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[129281, 2444, 12791, 326, 412, "Input"], Cell[142075, 2772, 2169, 41, 386, "Output"] }, Open ]] } ] *) (* End of internal cache information *)