1(* Content-type: application/vnd.wolfram.mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 10.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       158,          7]
13NotebookDataLength[    106933,       2285]
14NotebookOptionsPosition[    104817,       2210]
15NotebookOutlinePosition[    105176,       2226]
16CellTagsIndexPosition[    105133,       2223]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell[BoxData[
24 RowBox[{"SetDirectory", "[",
25  RowBox[{"NotebookDirectory", "[", "]"}], "]"}]], "Input",
26 CellChangeTimes->{{3.660861388735448*^9, 3.660861437338705*^9}, {
27  3.6666359431674643`*^9, 3.6666359622352343`*^9}, {3.670663113010626*^9,
28  3.670663121093412*^9}, {3.68091627027682*^9, 3.680916276044972*^9}}],
29
30Cell[BoxData["\<\"/Users/sandrews/SSA/INI/MMB paper/figures/polymer\"\>"], \
31"Output",
32 CellChangeTimes->{{3.666683680891876*^9, 3.666683687734805*^9},
33   3.666684214353807*^9, 3.666691017450672*^9, 3.666691157806861*^9,
34   3.666691322325119*^9, 3.666691357691773*^9, 3.6666914180081787`*^9,
35   3.666691573462508*^9, 3.670663127871483*^9, 3.67066324042507*^9,
36   3.670663677789503*^9, {3.670664099773093*^9, 3.670664110804739*^9},
37   3.670664449211906*^9, 3.670664540963331*^9, 3.670665196142805*^9,
38   3.67066527424608*^9, 3.670665305230681*^9, 3.6706656088554907`*^9,
39   3.670665650461194*^9, {3.6706657341019*^9, 3.670665762341687*^9},
40   3.6706658163406982`*^9, {3.670666030020042*^9, 3.670666057042573*^9},
41   3.6706661145170717`*^9, 3.6706662395955544`*^9, 3.670668017705584*^9,
42   3.670671962183366*^9, 3.6707349376027737`*^9, 3.670759498456182*^9,
43   3.670760187884985*^9, 3.6707630799020033`*^9, 3.670763460711342*^9,
44   3.67076423893419*^9, 3.680916387104257*^9, 3.680959533332303*^9,
45   3.680959617555485*^9, 3.680961669766015*^9, 3.6809619839262323`*^9, {
46   3.6809626306309834`*^9, 3.680962645064158*^9}, 3.6809627166165333`*^9,
47   3.680962913474395*^9, 3.6809631110559607`*^9, 3.680963179656332*^9, {
48   3.6809632348795547`*^9, 3.6809632759356823`*^9}, 3.6809637313934393`*^9, {
49   3.680963782677372*^9, 3.68096380624656*^9}, {3.6809638382330523`*^9,
50   3.680963882518976*^9}, 3.680963975212041*^9, 3.680964061186585*^9, {
51   3.680964285577031*^9, 3.6809643423593273`*^9}, 3.6809650221737003`*^9,
52   3.680965404685638*^9, {3.680965525946458*^9, 3.6809655429002438`*^9},
53   3.68096557902855*^9, 3.6809656373718443`*^9, 3.680965741267169*^9,
54   3.680965820641654*^9, 3.680966035471579*^9, {3.680966166305098*^9,
55   3.680966192820859*^9}, 3.680966247025752*^9, {3.680966280995364*^9,
56   3.6809663113953857`*^9}, 3.680966350407106*^9, 3.680966395552561*^9, {
57   3.68096648442846*^9, 3.680966513676796*^9}, 3.680966782635742*^9,
58   3.680966896827717*^9, 3.680966969909686*^9, 3.6809670132078667`*^9,
59   3.6809670756123037`*^9, 3.680967137183421*^9, 3.680967233877098*^9,
60   3.680972430480597*^9, 3.680973300389106*^9, 3.680973336623863*^9,
61   3.68097342014616*^9, 3.680973537006174*^9, 3.680973828322166*^9,
62   3.680973867444562*^9, 3.680973969894853*^9, 3.6809752922124367`*^9,
63   3.680976665167431*^9, {3.680977607823607*^9, 3.6809776344525957`*^9},
64   3.680978132438919*^9, 3.680978833497241*^9, 3.6809802074932404`*^9,
65   3.6809824828855343`*^9, 3.681060112250519*^9, 3.681066219206634*^9,
66   3.681066980377593*^9}]
67}, Open  ]],
68
69Cell[CellGroupData[{
70
71Cell[BoxData[{
72 RowBox[{"kfwd", "=", "0.1"}], "\[IndentingNewLine]",
73 RowBox[{"krev", "=", "0.1"}], "\[IndentingNewLine]",
74 RowBox[{"volume", "=", "1000"}], "\[IndentingNewLine]",
75 RowBox[{"a0", "=", "20000"}]}], "Input",
76 CellChangeTimes->{{3.6611075990872917`*^9, 3.6611076381188173`*^9}, {
77   3.661107727171955*^9, 3.661107736299667*^9}, {3.661255943116723*^9,
78   3.661255972686844*^9}, {3.661260140484972*^9, 3.661260140718067*^9}, {
79   3.664279428971388*^9, 3.664279434754932*^9}, {3.664284470064485*^9,
80   3.6642844867374907`*^9}, {3.664286073514839*^9, 3.664286090173348*^9}, {
81   3.6642861791679993`*^9, 3.664286180315707*^9}, {3.664286292865115*^9,
82   3.664286343768326*^9}, {3.664286717850449*^9, 3.664286717976295*^9}, {
83   3.664286760609503*^9, 3.664286760647963*^9}, {3.664287319700659*^9,
84   3.664287319810773*^9}, {3.666251022533844*^9, 3.666251026723277*^9}, {
85   3.666251075820456*^9, 3.6662510811145372`*^9}, {3.6662829472154922`*^9,
86   3.666282948274076*^9}, 3.666284212598145*^9, {3.666346624513591*^9,
87   3.666346627480918*^9}, {3.666346691511468*^9, 3.666346697382551*^9}, {
88   3.666604223264954*^9, 3.6666042663842373`*^9}, {3.6666801079532137`*^9,
89   3.66668010802766*^9}, {3.6666801444150343`*^9, 3.666680144628578*^9}, {
90   3.666682376232218*^9, 3.666682379745873*^9}, {3.666682478968664*^9,
91   3.6666824815031347`*^9}, {3.666682511926215*^9, 3.666682512320075*^9}, {
92   3.6666826335772448`*^9, 3.66668264357386*^9}, {3.6666834786638393`*^9,
93   3.666683485816806*^9}, {3.666690979060899*^9, 3.666690979426052*^9}, {
94   3.6706631445026484`*^9, 3.670663169069642*^9}, {3.6706633203583937`*^9,
95   3.670663365106505*^9}, {3.6706636809086533`*^9, 3.670663683892034*^9}, {
96   3.670663817219749*^9, 3.670663817874357*^9}, {3.6706639977435417`*^9,
97   3.6706640006455793`*^9}, {3.670664107805132*^9, 3.67066410862768*^9}, {
98   3.67066453494954*^9, 3.670664535498715*^9}, {3.670665302057231*^9,
99   3.670665302952716*^9}, {3.670665759432867*^9, 3.6706657599907846`*^9}, {
100   3.670666054001822*^9, 3.6706660547596207`*^9}, {3.670666111622225*^9,
101   3.6706661122607317`*^9}, {3.670759809463688*^9, 3.6707598113275223`*^9}, {
102   3.670760183688119*^9, 3.670760185285228*^9}, {3.67076288725944*^9,
103   3.670762914321981*^9}, {3.6707629940352163`*^9, 3.670762994099041*^9}, {
104   3.6809163008706903`*^9, 3.6809163259194*^9}, {3.680962381881455*^9,
105   3.680962386135722*^9}, {3.6809626266767807`*^9, 3.6809626424034433`*^9}, {
106   3.680962698280493*^9, 3.680962698631192*^9}, {3.680962910331833*^9,
107   3.68096291062738*^9}, {3.680963101825368*^9, 3.680963102137123*^9}, {
108   3.680963779153088*^9, 3.680963880037887*^9}, {3.680964032900517*^9,
109   3.680964039723488*^9}, {3.680964282391719*^9, 3.68096433784191*^9}, {
110   3.680965521081246*^9, 3.6809655754873953`*^9}, {3.680965627128539*^9,
111   3.680965634882313*^9}, {3.6809658655017033`*^9, 3.6809658733807*^9}, {
112   3.680966159801832*^9, 3.680966189621724*^9}, {3.6809662330606613`*^9,
113   3.680966244458746*^9}, {3.680966275320068*^9, 3.680966367152706*^9}, {
114   3.680966872355557*^9, 3.680966882337221*^9}, {3.680967126582678*^9,
115   3.680967128766189*^9}, {3.6809723607036867`*^9, 3.680972380643853*^9}, {
116   3.680973316019788*^9, 3.680973323255471*^9}, {3.680973959120163*^9,
117   3.680973965088436*^9}, {3.6809766571382*^9, 3.680976661873191*^9}}],
118
119Cell[BoxData["0.1`"], "Output",
120 CellChangeTimes->{
121  3.6611076397678757`*^9, 3.661107739145013*^9, 3.661107927124093*^9,
122   3.661108437313519*^9, 3.661108526356292*^9, {3.661108635947103*^9,
123   3.661108664711038*^9}, {3.6611087261036158`*^9, 3.6611087402005453`*^9}, {
124   3.66110973073179*^9, 3.661109746284515*^9}, {3.661109806626606*^9,
125   3.661109847716003*^9}, 3.661153472182057*^9, 3.66115350273564*^9,
126   3.661153568462624*^9, {3.661153626855262*^9, 3.661153648825124*^9},
127   3.661153679495694*^9, 3.661225280797923*^9, {3.661225323407699*^9,
128   3.661225338909493*^9}, 3.661256001182716*^9, {3.661260029176735*^9,
129   3.661260059078349*^9}, {3.6612601357361593`*^9, 3.661260146154155*^9},
130   3.6612605304180326`*^9, 3.6612605977203074`*^9, 3.661260677699045*^9,
131   3.661260732490674*^9, 3.661260820788371*^9, 3.664279441853511*^9,
132   3.664284488374906*^9, 3.664286188056847*^9, {3.664286334793831*^9,
133   3.66428634491366*^9}, {3.6642867127633657`*^9, 3.6642867250649157`*^9},
134   3.664286771090866*^9, 3.664287354158114*^9, 3.664287466528326*^9,
135   3.664287616972472*^9, 3.66428812376576*^9, 3.664288156032247*^9,
136   3.6642881972878523`*^9, 3.6642882290753107`*^9, {3.66429587206101*^9,
137   3.664295892014268*^9}, 3.666251100413536*^9, 3.666251296302082*^9,
138   3.666251513836853*^9, 3.666251616853854*^9, 3.666251757783478*^9,
139   3.666281929186681*^9, 3.666282107027111*^9, 3.6662821878809843`*^9,
140   3.66628222796002*^9, 3.666282415868441*^9, 3.666282584158743*^9,
141   3.666282755648306*^9, {3.666282936645397*^9, 3.666282952600945*^9},
142   3.666284303340301*^9, 3.666335661840102*^9, 3.6663404163126087`*^9,
143   3.66634065583326*^9, 3.666340963358584*^9, 3.6663462193761168`*^9,
144   3.666346463575409*^9, {3.666346683739853*^9, 3.666346702358553*^9},
145   3.666346761532962*^9, 3.666346813906226*^9, 3.666347057522087*^9, {
146   3.666347107629435*^9, 3.666347129332604*^9}, {3.6663471688870564`*^9,
147   3.6663471778216887`*^9}, 3.666347256665873*^9, 3.6663472912863407`*^9,
148   3.666347411144158*^9, {3.666348334945777*^9, 3.66634838381742*^9},
149   3.6663484770025663`*^9, 3.666348609130681*^9, 3.6663487708937273`*^9, {
150   3.6663489053880796`*^9, 3.666348926736854*^9}, 3.666349024855389*^9,
151   3.6663491641146383`*^9, 3.666349397467157*^9, 3.666349430344095*^9,
152   3.666349579797125*^9, 3.666349706331132*^9, 3.6663498374493647`*^9,
153   3.6663503179797983`*^9, 3.6663506998309183`*^9, 3.666351687515407*^9,
154   3.66635226905194*^9, 3.666352600121393*^9, 3.666352762460074*^9,
155   3.666352889794277*^9, 3.6663530267358027`*^9, 3.666549779545188*^9,
156   3.666549894092594*^9, 3.666550014493491*^9, 3.666550371992827*^9,
157   3.666592639220716*^9, 3.666592715592758*^9, 3.6665928084040737`*^9,
158   3.6666037483300877`*^9, 3.666603861086113*^9, 3.666604076624494*^9,
159   3.666604282713019*^9, 3.666604497465859*^9, 3.666635968388526*^9,
160   3.666636011493925*^9, 3.666680155780693*^9, 3.666680288776403*^9,
161   3.666681838624284*^9, 3.6666818914444036`*^9, 3.6666823382839537`*^9,
162   3.6666823832738647`*^9, 3.666682482078524*^9, 3.666682513325852*^9,
163   3.666682647972556*^9, 3.666683487219659*^9, 3.666683688515287*^9,
164   3.666684214433814*^9, 3.666691017501419*^9, 3.666691157856453*^9,
165   3.666691322376833*^9, 3.666691357713182*^9, 3.666691418083564*^9,
166   3.666691573538446*^9, 3.670663175774899*^9, 3.6706632411170053`*^9,
167   3.6706633220649233`*^9, 3.6706633660159063`*^9, {3.6706636784298363`*^9,
168   3.670663694250366*^9}, 3.670663818608226*^9, {3.670663995775044*^9,
169   3.670664001153989*^9}, {3.6706640998124723`*^9, 3.670664110838822*^9},
170   3.670664449249752*^9, 3.670664541015572*^9, 3.67066519621914*^9,
171   3.670665274283977*^9, 3.670665305266884*^9, 3.67066560893495*^9,
172   3.670665650539372*^9, {3.6706657341365433`*^9, 3.6706657623964863`*^9},
173   3.670665816408428*^9, {3.670666030056417*^9, 3.670666057100411*^9},
174   3.670666114550478*^9, 3.670666239633278*^9, 3.6706680177431583`*^9,
175   3.6706719622184553`*^9, 3.670734937677081*^9, 3.670759498540402*^9,
176   3.6707598121365547`*^9, 3.670760187919096*^9, 3.670763079955947*^9,
177   3.670763460789962*^9, 3.670764238991722*^9, 3.680916328668227*^9,
178   3.680959533480459*^9, 3.6809596176114607`*^9, 3.6809616702155046`*^9,
179   3.680961984325788*^9, 3.680962393190239*^9, {3.68096262756499*^9,
180   3.6809626451377077`*^9}, 3.680962716674488*^9, 3.680962913523892*^9, {
181   3.680963103001012*^9, 3.6809631111126328`*^9}, 3.680963179724202*^9, {
182   3.680963234921956*^9, 3.6809632760182343`*^9}, 3.680963731448732*^9, {
183   3.6809637827282257`*^9, 3.680963806293335*^9}, {3.680963838275929*^9,
184   3.680963882573387*^9}, 3.680963975298122*^9, 3.680964061236742*^9, {
185   3.680964285626953*^9, 3.680964342407043*^9}, 3.680965022239773*^9,
186   3.680965404746593*^9, {3.6809655260062933`*^9, 3.680965542962452*^9},
187   3.680965579082109*^9, 3.680965637425748*^9, 3.680965741324464*^9,
188   3.680965820695107*^9, 3.680966035516109*^9, {3.6809661663546543`*^9,
189   3.6809661928824863`*^9}, 3.6809662470809717`*^9, {3.680966281051676*^9,
190   3.680966311440379*^9}, 3.680966350453133*^9, 3.68096639560968*^9, {
191   3.680966484486557*^9, 3.680966513739827*^9}, 3.680966782720923*^9, {
192   3.6809668827131357`*^9, 3.680966896911914*^9}, 3.680966969963352*^9,
193   3.680967013286063*^9, 3.680967075655354*^9, 3.680967137229846*^9,
194   3.68096723392824*^9, 3.680972396986959*^9, 3.680972433340411*^9,
195   3.680973300427203*^9, 3.680973336702691*^9, 3.6809734201858664`*^9,
196   3.680973537071374*^9, 3.680973828355274*^9, 3.680973867489098*^9, {
197   3.6809739656588583`*^9, 3.680973969940543*^9}, 3.680975292250958*^9,
198   3.68097666520138*^9, {3.680977607924461*^9, 3.680977634519841*^9},
199   3.680978132482245*^9, 3.6809788336089087`*^9, 3.680980207526944*^9,
200   3.6809824829888*^9, 3.681060112319874*^9, 3.6810662192396812`*^9,
201   3.681066980414753*^9}],
202
203Cell[BoxData["0.1`"], "Output",
204 CellChangeTimes->{
205  3.6611076397678757`*^9, 3.661107739145013*^9, 3.661107927124093*^9,
206   3.661108437313519*^9, 3.661108526356292*^9, {3.661108635947103*^9,
207   3.661108664711038*^9}, {3.6611087261036158`*^9, 3.6611087402005453`*^9}, {
208   3.66110973073179*^9, 3.661109746284515*^9}, {3.661109806626606*^9,
209   3.661109847716003*^9}, 3.661153472182057*^9, 3.66115350273564*^9,
210   3.661153568462624*^9, {3.661153626855262*^9, 3.661153648825124*^9},
211   3.661153679495694*^9, 3.661225280797923*^9, {3.661225323407699*^9,
212   3.661225338909493*^9}, 3.661256001182716*^9, {3.661260029176735*^9,
213   3.661260059078349*^9}, {3.6612601357361593`*^9, 3.661260146154155*^9},
214   3.6612605304180326`*^9, 3.6612605977203074`*^9, 3.661260677699045*^9,
215   3.661260732490674*^9, 3.661260820788371*^9, 3.664279441853511*^9,
216   3.664284488374906*^9, 3.664286188056847*^9, {3.664286334793831*^9,
217   3.66428634491366*^9}, {3.6642867127633657`*^9, 3.6642867250649157`*^9},
218   3.664286771090866*^9, 3.664287354158114*^9, 3.664287466528326*^9,
219   3.664287616972472*^9, 3.66428812376576*^9, 3.664288156032247*^9,
220   3.6642881972878523`*^9, 3.6642882290753107`*^9, {3.66429587206101*^9,
221   3.664295892014268*^9}, 3.666251100413536*^9, 3.666251296302082*^9,
222   3.666251513836853*^9, 3.666251616853854*^9, 3.666251757783478*^9,
223   3.666281929186681*^9, 3.666282107027111*^9, 3.6662821878809843`*^9,
224   3.66628222796002*^9, 3.666282415868441*^9, 3.666282584158743*^9,
225   3.666282755648306*^9, {3.666282936645397*^9, 3.666282952600945*^9},
226   3.666284303340301*^9, 3.666335661840102*^9, 3.6663404163126087`*^9,
227   3.66634065583326*^9, 3.666340963358584*^9, 3.6663462193761168`*^9,
228   3.666346463575409*^9, {3.666346683739853*^9, 3.666346702358553*^9},
229   3.666346761532962*^9, 3.666346813906226*^9, 3.666347057522087*^9, {
230   3.666347107629435*^9, 3.666347129332604*^9}, {3.6663471688870564`*^9,
231   3.6663471778216887`*^9}, 3.666347256665873*^9, 3.6663472912863407`*^9,
232   3.666347411144158*^9, {3.666348334945777*^9, 3.66634838381742*^9},
233   3.6663484770025663`*^9, 3.666348609130681*^9, 3.6663487708937273`*^9, {
234   3.6663489053880796`*^9, 3.666348926736854*^9}, 3.666349024855389*^9,
235   3.6663491641146383`*^9, 3.666349397467157*^9, 3.666349430344095*^9,
236   3.666349579797125*^9, 3.666349706331132*^9, 3.6663498374493647`*^9,
237   3.6663503179797983`*^9, 3.6663506998309183`*^9, 3.666351687515407*^9,
238   3.66635226905194*^9, 3.666352600121393*^9, 3.666352762460074*^9,
239   3.666352889794277*^9, 3.6663530267358027`*^9, 3.666549779545188*^9,
240   3.666549894092594*^9, 3.666550014493491*^9, 3.666550371992827*^9,
241   3.666592639220716*^9, 3.666592715592758*^9, 3.6665928084040737`*^9,
242   3.6666037483300877`*^9, 3.666603861086113*^9, 3.666604076624494*^9,
243   3.666604282713019*^9, 3.666604497465859*^9, 3.666635968388526*^9,
244   3.666636011493925*^9, 3.666680155780693*^9, 3.666680288776403*^9,
245   3.666681838624284*^9, 3.6666818914444036`*^9, 3.6666823382839537`*^9,
246   3.6666823832738647`*^9, 3.666682482078524*^9, 3.666682513325852*^9,
247   3.666682647972556*^9, 3.666683487219659*^9, 3.666683688515287*^9,
248   3.666684214433814*^9, 3.666691017501419*^9, 3.666691157856453*^9,
249   3.666691322376833*^9, 3.666691357713182*^9, 3.666691418083564*^9,
250   3.666691573538446*^9, 3.670663175774899*^9, 3.6706632411170053`*^9,
251   3.6706633220649233`*^9, 3.6706633660159063`*^9, {3.6706636784298363`*^9,
252   3.670663694250366*^9}, 3.670663818608226*^9, {3.670663995775044*^9,
253   3.670664001153989*^9}, {3.6706640998124723`*^9, 3.670664110838822*^9},
254   3.670664449249752*^9, 3.670664541015572*^9, 3.67066519621914*^9,
255   3.670665274283977*^9, 3.670665305266884*^9, 3.67066560893495*^9,
256   3.670665650539372*^9, {3.6706657341365433`*^9, 3.6706657623964863`*^9},
257   3.670665816408428*^9, {3.670666030056417*^9, 3.670666057100411*^9},
258   3.670666114550478*^9, 3.670666239633278*^9, 3.6706680177431583`*^9,
259   3.6706719622184553`*^9, 3.670734937677081*^9, 3.670759498540402*^9,
260   3.6707598121365547`*^9, 3.670760187919096*^9, 3.670763079955947*^9,
261   3.670763460789962*^9, 3.670764238991722*^9, 3.680916328668227*^9,
262   3.680959533480459*^9, 3.6809596176114607`*^9, 3.6809616702155046`*^9,
263   3.680961984325788*^9, 3.680962393190239*^9, {3.68096262756499*^9,
264   3.6809626451377077`*^9}, 3.680962716674488*^9, 3.680962913523892*^9, {
265   3.680963103001012*^9, 3.6809631111126328`*^9}, 3.680963179724202*^9, {
266   3.680963234921956*^9, 3.6809632760182343`*^9}, 3.680963731448732*^9, {
267   3.6809637827282257`*^9, 3.680963806293335*^9}, {3.680963838275929*^9,
268   3.680963882573387*^9}, 3.680963975298122*^9, 3.680964061236742*^9, {
269   3.680964285626953*^9, 3.680964342407043*^9}, 3.680965022239773*^9,
270   3.680965404746593*^9, {3.6809655260062933`*^9, 3.680965542962452*^9},
271   3.680965579082109*^9, 3.680965637425748*^9, 3.680965741324464*^9,
272   3.680965820695107*^9, 3.680966035516109*^9, {3.6809661663546543`*^9,
273   3.6809661928824863`*^9}, 3.6809662470809717`*^9, {3.680966281051676*^9,
274   3.680966311440379*^9}, 3.680966350453133*^9, 3.68096639560968*^9, {
275   3.680966484486557*^9, 3.680966513739827*^9}, 3.680966782720923*^9, {
276   3.6809668827131357`*^9, 3.680966896911914*^9}, 3.680966969963352*^9,
277   3.680967013286063*^9, 3.680967075655354*^9, 3.680967137229846*^9,
278   3.68096723392824*^9, 3.680972396986959*^9, 3.680972433340411*^9,
279   3.680973300427203*^9, 3.680973336702691*^9, 3.6809734201858664`*^9,
280   3.680973537071374*^9, 3.680973828355274*^9, 3.680973867489098*^9, {
281   3.6809739656588583`*^9, 3.680973969940543*^9}, 3.680975292250958*^9,
282   3.68097666520138*^9, {3.680977607924461*^9, 3.680977634519841*^9},
283   3.680978132482245*^9, 3.6809788336089087`*^9, 3.680980207526944*^9,
284   3.6809824829888*^9, 3.681060112319874*^9, 3.6810662192396812`*^9,
285   3.6810669804170847`*^9}],
286
287Cell[BoxData["1000"], "Output",
288 CellChangeTimes->{
289  3.6611076397678757`*^9, 3.661107739145013*^9, 3.661107927124093*^9,
290   3.661108437313519*^9, 3.661108526356292*^9, {3.661108635947103*^9,
291   3.661108664711038*^9}, {3.6611087261036158`*^9, 3.6611087402005453`*^9}, {
292   3.66110973073179*^9, 3.661109746284515*^9}, {3.661109806626606*^9,
293   3.661109847716003*^9}, 3.661153472182057*^9, 3.66115350273564*^9,
294   3.661153568462624*^9, {3.661153626855262*^9, 3.661153648825124*^9},
295   3.661153679495694*^9, 3.661225280797923*^9, {3.661225323407699*^9,
296   3.661225338909493*^9}, 3.661256001182716*^9, {3.661260029176735*^9,
297   3.661260059078349*^9}, {3.6612601357361593`*^9, 3.661260146154155*^9},
298   3.6612605304180326`*^9, 3.6612605977203074`*^9, 3.661260677699045*^9,
299   3.661260732490674*^9, 3.661260820788371*^9, 3.664279441853511*^9,
300   3.664284488374906*^9, 3.664286188056847*^9, {3.664286334793831*^9,
301   3.66428634491366*^9}, {3.6642867127633657`*^9, 3.6642867250649157`*^9},
302   3.664286771090866*^9, 3.664287354158114*^9, 3.664287466528326*^9,
303   3.664287616972472*^9, 3.66428812376576*^9, 3.664288156032247*^9,
304   3.6642881972878523`*^9, 3.6642882290753107`*^9, {3.66429587206101*^9,
305   3.664295892014268*^9}, 3.666251100413536*^9, 3.666251296302082*^9,
306   3.666251513836853*^9, 3.666251616853854*^9, 3.666251757783478*^9,
307   3.666281929186681*^9, 3.666282107027111*^9, 3.6662821878809843`*^9,
308   3.66628222796002*^9, 3.666282415868441*^9, 3.666282584158743*^9,
309   3.666282755648306*^9, {3.666282936645397*^9, 3.666282952600945*^9},
310   3.666284303340301*^9, 3.666335661840102*^9, 3.6663404163126087`*^9,
311   3.66634065583326*^9, 3.666340963358584*^9, 3.6663462193761168`*^9,
312   3.666346463575409*^9, {3.666346683739853*^9, 3.666346702358553*^9},
313   3.666346761532962*^9, 3.666346813906226*^9, 3.666347057522087*^9, {
314   3.666347107629435*^9, 3.666347129332604*^9}, {3.6663471688870564`*^9,
315   3.6663471778216887`*^9}, 3.666347256665873*^9, 3.6663472912863407`*^9,
316   3.666347411144158*^9, {3.666348334945777*^9, 3.66634838381742*^9},
317   3.6663484770025663`*^9, 3.666348609130681*^9, 3.6663487708937273`*^9, {
318   3.6663489053880796`*^9, 3.666348926736854*^9}, 3.666349024855389*^9,
319   3.6663491641146383`*^9, 3.666349397467157*^9, 3.666349430344095*^9,
320   3.666349579797125*^9, 3.666349706331132*^9, 3.6663498374493647`*^9,
321   3.6663503179797983`*^9, 3.6663506998309183`*^9, 3.666351687515407*^9,
322   3.66635226905194*^9, 3.666352600121393*^9, 3.666352762460074*^9,
323   3.666352889794277*^9, 3.6663530267358027`*^9, 3.666549779545188*^9,
324   3.666549894092594*^9, 3.666550014493491*^9, 3.666550371992827*^9,
325   3.666592639220716*^9, 3.666592715592758*^9, 3.6665928084040737`*^9,
326   3.6666037483300877`*^9, 3.666603861086113*^9, 3.666604076624494*^9,
327   3.666604282713019*^9, 3.666604497465859*^9, 3.666635968388526*^9,
328   3.666636011493925*^9, 3.666680155780693*^9, 3.666680288776403*^9,
329   3.666681838624284*^9, 3.6666818914444036`*^9, 3.6666823382839537`*^9,
330   3.6666823832738647`*^9, 3.666682482078524*^9, 3.666682513325852*^9,
331   3.666682647972556*^9, 3.666683487219659*^9, 3.666683688515287*^9,
332   3.666684214433814*^9, 3.666691017501419*^9, 3.666691157856453*^9,
333   3.666691322376833*^9, 3.666691357713182*^9, 3.666691418083564*^9,
334   3.666691573538446*^9, 3.670663175774899*^9, 3.6706632411170053`*^9,
335   3.6706633220649233`*^9, 3.6706633660159063`*^9, {3.6706636784298363`*^9,
336   3.670663694250366*^9}, 3.670663818608226*^9, {3.670663995775044*^9,
337   3.670664001153989*^9}, {3.6706640998124723`*^9, 3.670664110838822*^9},
338   3.670664449249752*^9, 3.670664541015572*^9, 3.67066519621914*^9,
339   3.670665274283977*^9, 3.670665305266884*^9, 3.67066560893495*^9,
340   3.670665650539372*^9, {3.6706657341365433`*^9, 3.6706657623964863`*^9},
341   3.670665816408428*^9, {3.670666030056417*^9, 3.670666057100411*^9},
342   3.670666114550478*^9, 3.670666239633278*^9, 3.6706680177431583`*^9,
343   3.6706719622184553`*^9, 3.670734937677081*^9, 3.670759498540402*^9,
344   3.6707598121365547`*^9, 3.670760187919096*^9, 3.670763079955947*^9,
345   3.670763460789962*^9, 3.670764238991722*^9, 3.680916328668227*^9,
346   3.680959533480459*^9, 3.6809596176114607`*^9, 3.6809616702155046`*^9,
347   3.680961984325788*^9, 3.680962393190239*^9, {3.68096262756499*^9,
348   3.6809626451377077`*^9}, 3.680962716674488*^9, 3.680962913523892*^9, {
349   3.680963103001012*^9, 3.6809631111126328`*^9}, 3.680963179724202*^9, {
350   3.680963234921956*^9, 3.6809632760182343`*^9}, 3.680963731448732*^9, {
351   3.6809637827282257`*^9, 3.680963806293335*^9}, {3.680963838275929*^9,
352   3.680963882573387*^9}, 3.680963975298122*^9, 3.680964061236742*^9, {
353   3.680964285626953*^9, 3.680964342407043*^9}, 3.680965022239773*^9,
354   3.680965404746593*^9, {3.6809655260062933`*^9, 3.680965542962452*^9},
355   3.680965579082109*^9, 3.680965637425748*^9, 3.680965741324464*^9,
356   3.680965820695107*^9, 3.680966035516109*^9, {3.6809661663546543`*^9,
357   3.6809661928824863`*^9}, 3.6809662470809717`*^9, {3.680966281051676*^9,
358   3.680966311440379*^9}, 3.680966350453133*^9, 3.68096639560968*^9, {
359   3.680966484486557*^9, 3.680966513739827*^9}, 3.680966782720923*^9, {
360   3.6809668827131357`*^9, 3.680966896911914*^9}, 3.680966969963352*^9,
361   3.680967013286063*^9, 3.680967075655354*^9, 3.680967137229846*^9,
362   3.68096723392824*^9, 3.680972396986959*^9, 3.680972433340411*^9,
363   3.680973300427203*^9, 3.680973336702691*^9, 3.6809734201858664`*^9,
364   3.680973537071374*^9, 3.680973828355274*^9, 3.680973867489098*^9, {
365   3.6809739656588583`*^9, 3.680973969940543*^9}, 3.680975292250958*^9,
366   3.68097666520138*^9, {3.680977607924461*^9, 3.680977634519841*^9},
367   3.680978132482245*^9, 3.6809788336089087`*^9, 3.680980207526944*^9,
368   3.6809824829888*^9, 3.681060112319874*^9, 3.6810662192396812`*^9,
369   3.68106698041873*^9}],
370
371Cell[BoxData["20000"], "Output",
372 CellChangeTimes->{
373  3.6611076397678757`*^9, 3.661107739145013*^9, 3.661107927124093*^9,
374   3.661108437313519*^9, 3.661108526356292*^9, {3.661108635947103*^9,
375   3.661108664711038*^9}, {3.6611087261036158`*^9, 3.6611087402005453`*^9}, {
376   3.66110973073179*^9, 3.661109746284515*^9}, {3.661109806626606*^9,
377   3.661109847716003*^9}, 3.661153472182057*^9, 3.66115350273564*^9,
378   3.661153568462624*^9, {3.661153626855262*^9, 3.661153648825124*^9},
379   3.661153679495694*^9, 3.661225280797923*^9, {3.661225323407699*^9,
380   3.661225338909493*^9}, 3.661256001182716*^9, {3.661260029176735*^9,
381   3.661260059078349*^9}, {3.6612601357361593`*^9, 3.661260146154155*^9},
382   3.6612605304180326`*^9, 3.6612605977203074`*^9, 3.661260677699045*^9,
383   3.661260732490674*^9, 3.661260820788371*^9, 3.664279441853511*^9,
384   3.664284488374906*^9, 3.664286188056847*^9, {3.664286334793831*^9,
385   3.66428634491366*^9}, {3.6642867127633657`*^9, 3.6642867250649157`*^9},
386   3.664286771090866*^9, 3.664287354158114*^9, 3.664287466528326*^9,
387   3.664287616972472*^9, 3.66428812376576*^9, 3.664288156032247*^9,
388   3.6642881972878523`*^9, 3.6642882290753107`*^9, {3.66429587206101*^9,
389   3.664295892014268*^9}, 3.666251100413536*^9, 3.666251296302082*^9,
390   3.666251513836853*^9, 3.666251616853854*^9, 3.666251757783478*^9,
391   3.666281929186681*^9, 3.666282107027111*^9, 3.6662821878809843`*^9,
392   3.66628222796002*^9, 3.666282415868441*^9, 3.666282584158743*^9,
393   3.666282755648306*^9, {3.666282936645397*^9, 3.666282952600945*^9},
394   3.666284303340301*^9, 3.666335661840102*^9, 3.6663404163126087`*^9,
395   3.66634065583326*^9, 3.666340963358584*^9, 3.6663462193761168`*^9,
396   3.666346463575409*^9, {3.666346683739853*^9, 3.666346702358553*^9},
397   3.666346761532962*^9, 3.666346813906226*^9, 3.666347057522087*^9, {
398   3.666347107629435*^9, 3.666347129332604*^9}, {3.6663471688870564`*^9,
399   3.6663471778216887`*^9}, 3.666347256665873*^9, 3.6663472912863407`*^9,
400   3.666347411144158*^9, {3.666348334945777*^9, 3.66634838381742*^9},
401   3.6663484770025663`*^9, 3.666348609130681*^9, 3.6663487708937273`*^9, {
402   3.6663489053880796`*^9, 3.666348926736854*^9}, 3.666349024855389*^9,
403   3.6663491641146383`*^9, 3.666349397467157*^9, 3.666349430344095*^9,
404   3.666349579797125*^9, 3.666349706331132*^9, 3.6663498374493647`*^9,
405   3.6663503179797983`*^9, 3.6663506998309183`*^9, 3.666351687515407*^9,
406   3.66635226905194*^9, 3.666352600121393*^9, 3.666352762460074*^9,
407   3.666352889794277*^9, 3.6663530267358027`*^9, 3.666549779545188*^9,
408   3.666549894092594*^9, 3.666550014493491*^9, 3.666550371992827*^9,
409   3.666592639220716*^9, 3.666592715592758*^9, 3.6665928084040737`*^9,
410   3.6666037483300877`*^9, 3.666603861086113*^9, 3.666604076624494*^9,
411   3.666604282713019*^9, 3.666604497465859*^9, 3.666635968388526*^9,
412   3.666636011493925*^9, 3.666680155780693*^9, 3.666680288776403*^9,
413   3.666681838624284*^9, 3.6666818914444036`*^9, 3.6666823382839537`*^9,
414   3.6666823832738647`*^9, 3.666682482078524*^9, 3.666682513325852*^9,
415   3.666682647972556*^9, 3.666683487219659*^9, 3.666683688515287*^9,
416   3.666684214433814*^9, 3.666691017501419*^9, 3.666691157856453*^9,
417   3.666691322376833*^9, 3.666691357713182*^9, 3.666691418083564*^9,
418   3.666691573538446*^9, 3.670663175774899*^9, 3.6706632411170053`*^9,
419   3.6706633220649233`*^9, 3.6706633660159063`*^9, {3.6706636784298363`*^9,
420   3.670663694250366*^9}, 3.670663818608226*^9, {3.670663995775044*^9,
421   3.670664001153989*^9}, {3.6706640998124723`*^9, 3.670664110838822*^9},
422   3.670664449249752*^9, 3.670664541015572*^9, 3.67066519621914*^9,
423   3.670665274283977*^9, 3.670665305266884*^9, 3.67066560893495*^9,
424   3.670665650539372*^9, {3.6706657341365433`*^9, 3.6706657623964863`*^9},
425   3.670665816408428*^9, {3.670666030056417*^9, 3.670666057100411*^9},
426   3.670666114550478*^9, 3.670666239633278*^9, 3.6706680177431583`*^9,
427   3.6706719622184553`*^9, 3.670734937677081*^9, 3.670759498540402*^9,
428   3.6707598121365547`*^9, 3.670760187919096*^9, 3.670763079955947*^9,
429   3.670763460789962*^9, 3.670764238991722*^9, 3.680916328668227*^9,
430   3.680959533480459*^9, 3.6809596176114607`*^9, 3.6809616702155046`*^9,
431   3.680961984325788*^9, 3.680962393190239*^9, {3.68096262756499*^9,
432   3.6809626451377077`*^9}, 3.680962716674488*^9, 3.680962913523892*^9, {
433   3.680963103001012*^9, 3.6809631111126328`*^9}, 3.680963179724202*^9, {
434   3.680963234921956*^9, 3.6809632760182343`*^9}, 3.680963731448732*^9, {
435   3.6809637827282257`*^9, 3.680963806293335*^9}, {3.680963838275929*^9,
436   3.680963882573387*^9}, 3.680963975298122*^9, 3.680964061236742*^9, {
437   3.680964285626953*^9, 3.680964342407043*^9}, 3.680965022239773*^9,
438   3.680965404746593*^9, {3.6809655260062933`*^9, 3.680965542962452*^9},
439   3.680965579082109*^9, 3.680965637425748*^9, 3.680965741324464*^9,
440   3.680965820695107*^9, 3.680966035516109*^9, {3.6809661663546543`*^9,
441   3.6809661928824863`*^9}, 3.6809662470809717`*^9, {3.680966281051676*^9,
442   3.680966311440379*^9}, 3.680966350453133*^9, 3.68096639560968*^9, {
443   3.680966484486557*^9, 3.680966513739827*^9}, 3.680966782720923*^9, {
444   3.6809668827131357`*^9, 3.680966896911914*^9}, 3.680966969963352*^9,
445   3.680967013286063*^9, 3.680967075655354*^9, 3.680967137229846*^9,
446   3.68096723392824*^9, 3.680972396986959*^9, 3.680972433340411*^9,
447   3.680973300427203*^9, 3.680973336702691*^9, 3.6809734201858664`*^9,
448   3.680973537071374*^9, 3.680973828355274*^9, 3.680973867489098*^9, {
449   3.6809739656588583`*^9, 3.680973969940543*^9}, 3.680975292250958*^9,
450   3.68097666520138*^9, {3.680977607924461*^9, 3.680977634519841*^9},
451   3.680978132482245*^9, 3.6809788336089087`*^9, 3.680980207526944*^9,
452   3.6809824829888*^9, 3.681060112319874*^9, 3.6810662192396812`*^9,
453   3.681066980420363*^9}]
454}, Open  ]],
455
456Cell[BoxData[
457 RowBox[{"(*", " ",
458  RowBox[{
459  "Everything", " ", "below", " ", "here", " ", "should", " ", "take", " ",
460   "care", " ", "of", " ", "itself"}], " ", "*)"}]], "Input",
461 CellChangeTimes->{{3.661107643372525*^9, 3.661107653918783*^9}}],
462
463Cell[BoxData[
464 RowBox[{"(*", " ",
465  RowBox[{"Load", " ", "and", " ", "look", " ", "at", " ", "data"}], " ",
466  "*)"}]], "Input",
467 CellChangeTimes->{{3.661107683797237*^9, 3.661107689696024*^9}}],
468
469Cell[BoxData[
470 RowBox[{
471  RowBox[{"simdataend1", "=",
472   RowBox[{"Import", "[",
473    RowBox[{"\"\<polymer_end1out.txt\>\"", ",", "\"\<CSV\>\""}], "]"}]}],
474  ";"}]], "Input",
475 CellChangeTimes->{{3.660861462009038*^9, 3.6608615084983997`*^9}, {
476   3.660863565188951*^9, 3.6608635660204144`*^9}, {3.660863601090904*^9,
477   3.66086360284127*^9}, {3.660863643565474*^9, 3.660863646377057*^9}, {
478   3.6608638330074987`*^9, 3.660863833863155*^9}, 3.6608639590084248`*^9, {
479   3.661255930926162*^9, 3.661255930994204*^9}, {3.664279471177001*^9,
480   3.664279471836916*^9}, {3.664279531549027*^9, 3.66427953324368*^9}, {
481   3.666348319216601*^9, 3.666348332174251*^9}, {3.6663489151450644`*^9,
482   3.666348923627892*^9}, {3.666352209049118*^9, 3.666352212632585*^9}, {
483   3.6666801703110113`*^9, 3.666680170876061*^9}, {3.666680224590324*^9,
484   3.6666802253611603`*^9}, {3.6666803035154123`*^9,
485   3.6666803041269207`*^9}, {3.670663202835005*^9, 3.670663203967167*^9}, {
486   3.680916355398655*^9, 3.68091635581986*^9}, {3.680972403677759*^9,
487   3.6809724088255796`*^9}, {3.680976641073204*^9, 3.680976641410892*^9}, {
488   3.680977604907093*^9, 3.680977604982481*^9}, {3.68105998829114*^9,
489   3.6810599887071*^9}}],
490
491Cell[BoxData[
492 RowBox[{"simdataend1", ";"}]], "Input",
493 CellChangeTimes->{{3.664279517507081*^9, 3.664279518147739*^9},
494   3.680916655561552*^9, {3.680959675652953*^9, 3.680959685911787*^9}, {
495   3.680972441205271*^9, 3.680972446202992*^9}, {3.6810599926506557`*^9,
496   3.681059993066687*^9}, {3.6810601186286907`*^9, 3.6810601211193943`*^9}}],
497
498Cell[CellGroupData[{
499
500Cell[BoxData[
501 RowBox[{"simdataend1a", "=",
502  RowBox[{"Drop", "[",
503   RowBox[{
504    RowBox[{"simdataend1", "[",
505     RowBox[{"[",
506      RowBox[{"-", "1"}], "]"}], "]"}], ",", "1"}], "]"}]}]], "Input",
507 CellChangeTimes->{{3.680972484991869*^9, 3.6809724987941923`*^9}, {
508  3.680972530463818*^9, 3.680972534110043*^9}, {3.6809753280993853`*^9,
509  3.680975340637204*^9}, {3.68097538592559*^9, 3.680975411531296*^9}, {
510  3.680975448871151*^9, 3.680975449721448*^9}, {3.680977629822443*^9,
511  3.6809776300882387`*^9}, {3.68105999595455*^9, 3.6810600515529833`*^9}}],
512
513Cell[BoxData[
514 RowBox[{"{",
515  RowBox[{
516  "829", ",", "658", ",", "511", ",", "424", ",", "333", ",", "296", ",",
517   "199", ",", "161", ",", "137", ",", "104", ",", "84", ",", "76", ",", "46",
518    ",", "40", ",", "34", ",", "40", ",", "24", ",", "14", ",", "13", ",",
519   "12", ",", "6", ",", "7", ",", "7", ",", "2", ",", "2", ",", "1", ",", "3",
520    ",", "3", ",", "3", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",",
521    "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
522    ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
523    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",",
524   "0"}], "}"}]], "Output",
525 CellChangeTimes->{
526  3.680972499404792*^9, 3.680972535216778*^9, 3.680973300477462*^9,
527   3.680973336786745*^9, 3.680973420261945*^9, 3.6809735371606493`*^9,
528   3.680973828461438*^9, 3.6809738675614967`*^9, 3.6809739700145617`*^9,
529   3.6809752923348503`*^9, {3.680975329393046*^9, 3.680975343002323*^9}, {
530   3.680975386477862*^9, 3.6809754120407476`*^9}, 3.6809754503766823`*^9, {
531   3.680976644815929*^9, 3.680976665258239*^9}, {3.6809776081734257`*^9,
532   3.680977634709293*^9}, 3.6809781325597687`*^9, 3.6809788337250547`*^9,
533   3.68098020759949*^9, 3.680982483076318*^9, 3.681060112452353*^9,
534   3.681066219289041*^9, 3.681066980470682*^9}]
535}, Open  ]],
536
537Cell[BoxData[
538 RowBox[{
539  RowBox[{"simdataend2", "=",
540   RowBox[{"Import", "[",
541    RowBox[{"\"\<polymer_end2out.txt\>\"", ",", "\"\<CSV\>\""}], "]"}]}],
542  ";"}]], "Input",
543 CellChangeTimes->{{3.681059951652913*^9, 3.681059967644587*^9}}],
544
545Cell[BoxData[
546 RowBox[{"simdataend2", ";"}]], "Input",
547 CellChangeTimes->{{3.681059973197427*^9, 3.681060006969589*^9}}],
548
549Cell[CellGroupData[{
550
551Cell[BoxData[
552 RowBox[{"simdataend2a", "=",
553  RowBox[{"Drop", "[",
554   RowBox[{
555    RowBox[{"simdataend2", "[",
556     RowBox[{"[",
557      RowBox[{"-", "1"}], "]"}], "]"}], ",", "1"}], "]"}]}]], "Input",
558 CellChangeTimes->{{3.681060009274691*^9, 3.6810600247928457`*^9}}],
559
560Cell[BoxData[
561 RowBox[{"{",
562  RowBox[{
563  "91", ",", "151", ",", "145", ",", "135", ",", "121", ",", "105", ",",
564   "106", ",", "86", ",", "97", ",", "74", ",", "51", ",", "49", ",", "62",
565   ",", "48", ",", "44", ",", "32", ",", "51", ",", "35", ",", "21", ",",
566   "33", ",", "23", ",", "28", ",", "21", ",", "18", ",", "11", ",", "14",
567   ",", "12", ",", "21", ",", "11", ",", "12", ",", "10", ",", "6", ",", "10",
568    ",", "10", ",", "5", ",", "4", ",", "8", ",", "4", ",", "6", ",", "10",
569   ",", "2", ",", "2", ",", "1", ",", "1", ",", "1", ",", "0", ",", "3", ",",
570   "1", ",", "1", ",", "3", ",", "1", ",", "1", ",", "2", ",", "0", ",", "1",
571   ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",",
572   "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
573   ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}],
574  "}"}]], "Output",
575 CellChangeTimes->{3.681060112489802*^9, 3.681066219322069*^9,
576  3.681066980529464*^9}]
577}, Open  ]],
578
579Cell[BoxData[
580 RowBox[{
581  RowBox[{"simdatamid", "=",
582   RowBox[{"Import", "[",
583    RowBox[{"\"\<polymer_midout.txt\>\"", ",", "\"\<CSV\>\""}], "]"}]}],
584  ";"}]], "Input",
585 CellChangeTimes->{{3.6809782340147877`*^9, 3.680978250940962*^9}}],
586
587Cell[CellGroupData[{
588
589Cell[BoxData[
590 RowBox[{"simdatamida", "=",
591  RowBox[{"Drop", "[",
592   RowBox[{
593    RowBox[{"simdatamid", "[",
594     RowBox[{"[",
595      RowBox[{"-", "1"}], "]"}], "]"}], ",", "1"}], "]"}]}]], "Input",
596 CellChangeTimes->{{3.680978254745907*^9, 3.680978266875267*^9}, {
597  3.681060037547511*^9, 3.681060062826778*^9}}],
598
599Cell[BoxData[
600 RowBox[{"{",
601  RowBox[{
602  "676", ",", "586", ",", "464", ",", "416", ",", "312", ",", "298", ",",
603   "225", ",", "197", ",", "133", ",", "126", ",", "70", ",", "79", ",", "60",
604    ",", "39", ",", "35", ",", "30", ",", "13", ",", "22", ",", "16", ",",
605   "10", ",", "5", ",", "6", ",", "1", ",", "8", ",", "3", ",", "5", ",", "2",
606    ",", "6", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "2", ",",
607    "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
608    ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
609    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
610    ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
611    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
612    ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
613    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
614    ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
615    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
616    ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
617    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
618    ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
619    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
620    ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
621    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
622    ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
623    "0", ",", "0"}], "}"}]], "Output",
624 CellChangeTimes->{3.680978268301193*^9, 3.680978833761402*^9,
625  3.6809802076413403`*^9, 3.6809824831513042`*^9, 3.681060112522978*^9,
626  3.681066219355545*^9, 3.6810669805654984`*^9}]
627}, Open  ]],
628
629Cell[CellGroupData[{
630
631Cell[BoxData[
632 RowBox[{"ListLogPlot", "[",
633  RowBox[{"{",
634   RowBox[{"simdataend1a", ",", "simdataend2a", ",", "simdatamida"}], "}"}],
635  "]"}]], "Input",
636 CellChangeTimes->{{3.680972548833757*^9, 3.680972568900393*^9}, {
637   3.6809782740762444`*^9, 3.680978280698489*^9}, {3.681060068993825*^9,
638   3.681060082377369*^9}, 3.681060152321993*^9}],
639
640Cell[BoxData[
641 GraphicsBox[{{}, {{},
642    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889],
643     AbsoluteThickness[1.6], PointBox[CompressedData["
6441:eJxTTMoPSmViYGBQAGIQDQEf7Cc+L0hpfCjlABVw0A8zUf70RRLK53CoObbu
645HtcnCShfwIH/y7rgt0YwvohDytPiLZ3W4lC+hMMMy93T3h4Sg/JlHNrOTpeM
6460BGF8hUc+gpKV0UHi0D5Sg5zG65W8a8ThvJVHB7NNjO9PVkIyldzuJL6jVNj
647pyCUr+Eg9OLAodVBML6WQ47ThL18C/mgfB0H3iIj68tNvFC+nsM33p2Nf0x5
648oHwDNHlDh586k2qW53BC+UYOy3dfFzslwwrlGzsE9hhqs7SyQPkmDrXzLu8R
649e8gM5Zs6MClo/eJe/ccewjdzCI8yWlek9B/KN0fjWzi8t/z1z0nvGZRvica3
650gsUDFFg7cDOvrXo1+SNU3gaNb4vGd0DT74TKb/CG8wFgAHMw
651      "]]},
652    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.01388888888888889],
653     AbsoluteThickness[1.6], PointBox[CompressedData["
6541:eJxTTMoPSmViYGCwBGIQDQEf7PfFqB6U4xZygAo4BDNYnNsoKALlczjEJD16
655rPNCGMoXcJiq+jeSYT6ML+LgY16//bEejC/hsNTK+MTyuTDzZBwmp36YHLMc
656xldwcNv7MsvhoiCUr+Tww/spR6MPTF7FQXb1n2sx5jB5NYf/DIH/E0r4oXwN
657h/Aoo3VFSjC+lsPrO+ot+k0CUL6OQ+nuABuLH3xQvp6Dc8gfM1Y3GN/AIfvE
658jn2Xd3JD+YZo5hs5HP3MHxxVyAPlGztsXJc/RS+aA8o3cbi44+qXGz9g+k0d
659Pmy++LdWlBPKN3NQ9pp2LWoFF5RvjqbfwqFtYrZVtTw7lG8JDT9mKN/KYfnu
66062KnZFihfGuH2nmX94g9hMnboJlni6bfDk29vYNY6NbdG7OZoHwHByYFrV/c
661q//Yg7kNDmjyjqj8BkcH49633x0P/ISoZ3ByeG/565+T3jeofieH4tXW9psW
662MUD1O6PJO6Pax+CCZr4LVP0zqLwrKr/BFWouDLih8hvQ+e4O3Mxrq15N/gg1
663zwNNHo3P4ImqvsETTd4LTb8Xmvu80dT7oKlH4zP4osn7wfkAHj/EUw==
664      "]]},
665    {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.01388888888888889],
666     AbsoluteThickness[1.6], PointBox[CompressedData["
6671:eJxTTMoPSmViYGCQA2IQDQEf7M9KfXg1RUDKASrg4LT7T5d7nSSUz+HALpPy
6681LZfAsoXcIjT+volWx7GF3FYeufh5as/xKB8CYdsvd/3L52E8WUc5D18LcVW
669iUL5Cg4HlVs0GJRgfCUHnQ9967b3C0P5Kg6R8Yc8oiJgfDUHRcf0ztJ/AlC+
670hkPxxvWdAVWCUL6WQ7dR6p3ZCTB5HYdrvB0ZP/14oXw9h6Of+YOjCnmgfAOH
6712de4fy4z5YbyDR0Cewy1WVpZoHwjhxNHbctLdnFA+cYO7y1//XPSY4PyTRzE
672Qrfu3pjNBOWbOhj3vv3ueOCnPYRv5sCkoPWLe/UfKN8cFq5QYOFQvNraftMi
673Bqi4pQM389qqV5M/QtVboZlnDbX/GZRvg2a+I5q8E9w+AP51ckg=
674      "]]}, {}}, {}},
675  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
676  Axes->{True, True},
677  AxesLabel->{None, None},
678  AxesOrigin->{0, -0.48775791448562633`},
679  CoordinatesToolOptions:>{"DisplayFunction" -> ({
680      Part[#, 1],
681      Exp[
682       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
683      Part[#, 1],
684      Exp[
685       Part[#, 2]]}& )},
686  DisplayFunction->Identity,
687  Frame->{{False, False}, {False, False}},
688  FrameLabel->{{None, None}, {None, None}},
689  FrameTicks->{{
690     Charting`ScaledTicks[{Log, Exp}],
691     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
692  GridLines->{None, None},
693  GridLinesStyle->Directive[
694    GrayLevel[0.5, 0.4]],
695  Method->{},
696  PlotRange->{{0., 61.}, {-0.37334556417418313`, 6.720220155135295}},
697  PlotRangeClipping->True,
698  PlotRangePadding->{{
699     Scaled[0.02],
700     Scaled[0.02]}, {
701     Scaled[0.02],
702     Scaled[0.05]}},
703  Ticks->FrontEndValueCache[{Automatic,
704     Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{0.,
705       FormBox["1", TraditionalForm], {0.01, 0.}, {
706        AbsoluteThickness[0.1]}}, {1.6094379124341003`,
707       FormBox["5", TraditionalForm], {0.01, 0.}, {
708        AbsoluteThickness[0.1]}}, {2.302585092994046,
709       FormBox["10", TraditionalForm], {0.01, 0.}, {
710        AbsoluteThickness[0.1]}}, {3.912023005428146,
711       FormBox["50", TraditionalForm], {0.01, 0.}, {
712        AbsoluteThickness[0.1]}}, {4.605170185988092,
713       FormBox["100", TraditionalForm], {0.01, 0.}, {
714        AbsoluteThickness[0.1]}}, {6.214608098422191,
715       FormBox["500", TraditionalForm], {0.01, 0.}, {
716        AbsoluteThickness[0.1]}}, {6.907755278982137,
717       FormBox["1000", TraditionalForm], {0.01, 0.}, {
718        AbsoluteThickness[0.1]}}, {-0.6931471805599453,
719       FormBox[
720        InterpretationBox[
721         StyleBox[
722
723          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
724           Baseline], "CacheGraphics" -> False],
725         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
726        AbsoluteThickness[0.1]}}, {-0.5108256237659907,
727       FormBox[
728        InterpretationBox[
729         StyleBox[
730
731          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
732           Baseline], "CacheGraphics" -> False],
733         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
734        AbsoluteThickness[0.1]}}, {-0.35667494393873245`,
735       FormBox[
736        InterpretationBox[
737         StyleBox[
738
739          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
740           Baseline], "CacheGraphics" -> False],
741         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
742        AbsoluteThickness[0.1]}}, {-0.2231435513142097,
743       FormBox[
744        InterpretationBox[
745         StyleBox[
746
747          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
748           Baseline], "CacheGraphics" -> False],
749         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
750        AbsoluteThickness[0.1]}}, {-0.10536051565782628`,
751       FormBox[
752        InterpretationBox[
753         StyleBox[
754
755          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
756           Baseline], "CacheGraphics" -> False],
757         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
758        AbsoluteThickness[0.1]}}, {0.6931471805599453,
759       FormBox[
760        InterpretationBox[
761         StyleBox[
762
763          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
764           Baseline], "CacheGraphics" -> False],
765         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
766        AbsoluteThickness[0.1]}}, {1.0986122886681098`,
767       FormBox[
768        InterpretationBox[
769         StyleBox[
770
771          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
772           Baseline], "CacheGraphics" -> False],
773         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
774        AbsoluteThickness[0.1]}}, {1.3862943611198906`,
775       FormBox[
776        InterpretationBox[
777         StyleBox[
778
779          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
780           Baseline], "CacheGraphics" -> False],
781         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
782        AbsoluteThickness[0.1]}}, {1.791759469228055,
783       FormBox[
784        InterpretationBox[
785         StyleBox[
786
787          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
788           Baseline], "CacheGraphics" -> False],
789         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
790        AbsoluteThickness[0.1]}}, {1.9459101490553132`,
791       FormBox[
792        InterpretationBox[
793         StyleBox[
794
795          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
796           Baseline], "CacheGraphics" -> False],
797         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
798        AbsoluteThickness[0.1]}}, {2.0794415416798357`,
799       FormBox[
800        InterpretationBox[
801         StyleBox[
802
803          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
804           Baseline], "CacheGraphics" -> False],
805         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
806        AbsoluteThickness[0.1]}}, {2.1972245773362196`,
807       FormBox[
808        InterpretationBox[
809         StyleBox[
810
811          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
812           Baseline], "CacheGraphics" -> False],
813         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
814        AbsoluteThickness[0.1]}}, {2.995732273553991,
815       FormBox[
816        InterpretationBox[
817         StyleBox[
818
819          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
820           Baseline], "CacheGraphics" -> False],
821         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
822        AbsoluteThickness[0.1]}}, {3.4011973816621555`,
823       FormBox[
824        InterpretationBox[
825         StyleBox[
826
827          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
828           Baseline], "CacheGraphics" -> False],
829         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
830        AbsoluteThickness[0.1]}}, {3.6888794541139363`,
831       FormBox[
832        InterpretationBox[
833         StyleBox[
834
835          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
836           Baseline], "CacheGraphics" -> False],
837         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
838        AbsoluteThickness[0.1]}}, {4.0943445622221,
839       FormBox[
840        InterpretationBox[
841         StyleBox[
842
843          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
844           Baseline], "CacheGraphics" -> False],
845         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
846        AbsoluteThickness[0.1]}}, {4.248495242049359,
847       FormBox[
848        InterpretationBox[
849         StyleBox[
850
851          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
852           Baseline], "CacheGraphics" -> False],
853         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
854        AbsoluteThickness[0.1]}}, {4.382026634673881,
855       FormBox[
856        InterpretationBox[
857         StyleBox[
858
859          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
860           Baseline], "CacheGraphics" -> False],
861         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
862        AbsoluteThickness[0.1]}}, {4.499809670330265,
863       FormBox[
864        InterpretationBox[
865         StyleBox[
866
867          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
868           Baseline], "CacheGraphics" -> False],
869         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
870        AbsoluteThickness[0.1]}}, {5.298317366548036,
871       FormBox[
872        InterpretationBox[
873         StyleBox[
874
875          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
876           Baseline], "CacheGraphics" -> False],
877         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
878        AbsoluteThickness[0.1]}}, {5.703782474656201,
879       FormBox[
880        InterpretationBox[
881         StyleBox[
882
883          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
884           Baseline], "CacheGraphics" -> False],
885         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
886        AbsoluteThickness[0.1]}}, {5.991464547107982,
887       FormBox[
888        InterpretationBox[
889         StyleBox[
890
891          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
892           Baseline], "CacheGraphics" -> False],
893         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
894        AbsoluteThickness[0.1]}}, {6.396929655216146,
895       FormBox[
896        InterpretationBox[
897         StyleBox[
898
899          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
900           Baseline], "CacheGraphics" -> False],
901         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
902        AbsoluteThickness[0.1]}}, {6.551080335043404,
903       FormBox[
904        InterpretationBox[
905         StyleBox[
906
907          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
908           Baseline], "CacheGraphics" -> False],
909         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
910        AbsoluteThickness[0.1]}}, {6.684611727667927,
911       FormBox[
912        InterpretationBox[
913         StyleBox[
914
915          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
916           Baseline], "CacheGraphics" -> False],
917         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
918        AbsoluteThickness[0.1]}}, {6.802394763324311,
919       FormBox[
920        InterpretationBox[
921         StyleBox[
922
923          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
924           Baseline], "CacheGraphics" -> False],
925         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
926        AbsoluteThickness[0.1]}}, {7.600902459542082,
927       FormBox[
928        InterpretationBox[
929         StyleBox[
930
931          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
932           Baseline], "CacheGraphics" -> False],
933         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
934        AbsoluteThickness[0.1]}}, {8.006367567650246,
935       FormBox[
936        InterpretationBox[
937         StyleBox[
938
939          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
940           Baseline], "CacheGraphics" -> False],
941         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
942        AbsoluteThickness[0.1]}}, {8.294049640102028,
943       FormBox[
944        InterpretationBox[
945         StyleBox[
946
947          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
948           Baseline], "CacheGraphics" -> False],
949         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
950        AbsoluteThickness[0.1]}}, {8.517193191416238,
951       FormBox[
952        InterpretationBox[
953         StyleBox[
954
955          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
956           Baseline], "CacheGraphics" -> False],
957         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
958        AbsoluteThickness[0.1]}}}}]]], "Output",
959 CellChangeTimes->{{3.680972553479638*^9, 3.680972575194817*^9},
960   3.68097330053935*^9, 3.6809733368397284`*^9, 3.6809734203178177`*^9,
961   3.680973537211088*^9, 3.680973828521574*^9, 3.680973867617775*^9,
962   3.680973970074698*^9, 3.680975292397156*^9, 3.6809753312208967`*^9,
963   3.680976665316708*^9, {3.6809776086335917`*^9, 3.680977634760071*^9},
964   3.6809781326397123`*^9, 3.680978281498344*^9, 3.680978833842078*^9,
965   3.6809802076784*^9, 3.680982483188195*^9, 3.6810601126426363`*^9,
966   3.681060153646657*^9, 3.681066219411936*^9, 3.68106698063337*^9}]
967}, Open  ]],
968
969Cell[CellGroupData[{
970
971Cell[BoxData[
972 RowBox[{
973  RowBox[{"(*", " ",
974   RowBox[{"Association", " ", "constant"}], " ", "*)"}],
975  "\[IndentingNewLine]",
976  RowBox[{"ka", "=",
977   RowBox[{"kfwd", "/", "krev"}]}]}]], "Input",
978 CellChangeTimes->{{3.68097273135534*^9, 3.680972765151511*^9}}],
979
980Cell[BoxData["1.`"], "Output",
981 CellChangeTimes->{{3.680972747149431*^9, 3.680972765418374*^9},
982   3.680973300607028*^9, 3.680973336907888*^9, 3.6809734203973494`*^9,
983   3.680973537292582*^9, 3.680973828604862*^9, 3.680973867692275*^9,
984   3.680973970140441*^9, 3.680975292482135*^9, 3.680976665394786*^9, {
985   3.680977608676064*^9, 3.680977634845111*^9}, 3.68097813272326*^9,
986   3.6809788339268847`*^9, 3.68098020775743*^9, 3.6809824832698193`*^9,
987   3.681060112763929*^9, 3.681066219483856*^9, 3.681066980745213*^9}]
988}, Open  ]],
989
990Cell[CellGroupData[{
991
992Cell[BoxData[
993 RowBox[{"a1eq", "=",
994  RowBox[{"a0", "*",
995   RowBox[{
996    RowBox[{"(",
997     RowBox[{"1", "+",
998      RowBox[{"2", "*", "ka", "*",
999       RowBox[{"a0", "/", "volume"}]}], "-",
1000      RowBox[{"Sqrt", "[",
1001       RowBox[{"1", "+",
1002        RowBox[{"4", "*", "ka", "*",
1003         RowBox[{"a0", "/", "volume"}]}]}], "]"}]}], ")"}], "/",
1004    RowBox[{"(",
1005     RowBox[{"2", "*",
1006      RowBox[{"ka", "^", "2"}], "*",
1007      RowBox[{
1008       RowBox[{"(",
1009        RowBox[{"a0", "/", "volume"}], ")"}], "^", "2"}]}],
1010     ")"}]}]}]}]], "Input",
1011 CellChangeTimes->{{3.6809727117740517`*^9, 3.6809727244420843`*^9}, {
1012  3.6809727717228622`*^9, 3.680972854056902*^9}}],
1013
1014Cell[BoxData["800.`"], "Output",
1015 CellChangeTimes->{
1016  3.680972855998419*^9, 3.680973300641984*^9, 3.68097333694613*^9,
1017   3.680973420435807*^9, 3.6809735373253183`*^9, 3.680973828651366*^9,
1018   3.6809738677355947`*^9, 3.680973970179468*^9, 3.680975292515286*^9,
1019   3.680976665430337*^9, {3.680977608709793*^9, 3.680977634894224*^9},
1020   3.680978132756124*^9, 3.680978833963155*^9, 3.680980207789712*^9,
1021   3.6809824833024683`*^9, 3.6810601127871857`*^9, 3.681066219498877*^9,
1022   3.68106698077844*^9}]
1023}, Open  ]],
1024
1025Cell[CellGroupData[{
1026
1027Cell[BoxData[
1028 RowBox[{
1029  RowBox[{"theory", "[", "n_", "]"}], "=",
1030  RowBox[{"a1eq", "*",
1031   RowBox[{
1032    RowBox[{"(",
1033     RowBox[{"ka", "*",
1034      RowBox[{"a1eq", "/", "volume"}]}], ")"}], "^",
1035    RowBox[{"(",
1036     RowBox[{"n", "-", "1"}], ")"}]}]}]}]], "Input",
1037 CellChangeTimes->{{3.680972865807768*^9, 3.680972948352395*^9}}],
1038
1039Cell[BoxData[
1040 RowBox[{"800.`", " ",
1041  SuperscriptBox["0.8`",
1042   RowBox[{
1043    RowBox[{"-", "1"}], "+", "n"}]]}]], "Output",
1044 CellChangeTimes->{
1045  3.680972949504874*^9, 3.680973300677174*^9, 3.6809733369878407`*^9,
1046   3.680973420485711*^9, 3.680973537361499*^9, 3.680973828688664*^9,
1047   3.6809738677752542`*^9, 3.680973970218308*^9, 3.680975292532185*^9,
1048   3.68097666546299*^9, {3.680977608759522*^9, 3.6809776349453077`*^9},
1049   3.680978132775106*^9, 3.680978834010191*^9, 3.68098020780802*^9,
1050   3.680982483320971*^9, 3.681060112803054*^9, 3.68106621952815*^9,
1051   3.681066980793179*^9}]
1052}, Open  ]],
1053
1054Cell[CellGroupData[{
1055
1056Cell[BoxData[
1057 RowBox[{
1058  RowBox[{"theoryhigh", "[", "n_", "]"}], "=",
1059  RowBox[{
1060   RowBox[{"theory", "[", "n", "]"}], "+",
1061   RowBox[{"Sqrt", "[",
1062    RowBox[{"theory", "[", "n", "]"}], "]"}]}]}]], "Input",
1063 CellChangeTimes->{{3.680977767823017*^9, 3.680977784090177*^9}}],
1064
1065Cell[BoxData[
1066 RowBox[{
1067  RowBox[{"800.`", " ",
1068   SuperscriptBox["0.8`",
1069    RowBox[{
1070     RowBox[{"-", "1"}], "+", "n"}]]}], "+",
1071  RowBox[{"28.284271247461902`", " ",
1072   SqrtBox[
1073    SuperscriptBox["0.8`",
1074     RowBox[{
1075      RowBox[{"-", "1"}], "+", "n"}]]]}]}]], "Output",
1076 CellChangeTimes->{3.68097778663704*^9, 3.6809781328063498`*^9,
1077  3.680978834043145*^9, 3.680980207840715*^9, 3.6809824833517942`*^9,
1078  3.6810601128320713`*^9, 3.6810662195450478`*^9, 3.681066980827917*^9}]
1079}, Open  ]],
1080
1081Cell[CellGroupData[{
1082
1083Cell[BoxData[
1084 RowBox[{
1085  RowBox[{"theorylow", "[", "n_", "]"}], "=",
1086  RowBox[{
1087   RowBox[{"theory", "[", "n", "]"}], "-",
1088   RowBox[{"Sqrt", "[",
1089    RowBox[{"theory", "[", "n", "]"}], "]"}]}]}]], "Input",
1090 CellChangeTimes->{{3.680977787342222*^9, 3.680977800136643*^9}}],
1091
1092Cell[BoxData[
1093 RowBox[{
1094  RowBox[{"800.`", " ",
1095   SuperscriptBox["0.8`",
1096    RowBox[{
1097     RowBox[{"-", "1"}], "+", "n"}]]}], "-",
1098  RowBox[{"28.284271247461902`", " ",
1099   SqrtBox[
1100    SuperscriptBox["0.8`",
1101     RowBox[{
1102      RowBox[{"-", "1"}], "+", "n"}]]]}]}]], "Output",
1103 CellChangeTimes->{3.6809778017387667`*^9, 3.680978132839024*^9,
1104  3.680978834075561*^9, 3.680980207874158*^9, 3.680982483371936*^9,
1105  3.681060112848247*^9, 3.681066219565483*^9, 3.681066980861513*^9}]
1106}, Open  ]],
1107
1108Cell[CellGroupData[{
1109
1110Cell[BoxData[
1111 RowBox[{"Show", "[",
1112  RowBox[{
1113   RowBox[{"{",
1114    RowBox[{
1115     RowBox[{"LogPlot", "[",
1116      RowBox[{
1117       RowBox[{"theory", "[", "n", "]"}], ",",
1118       RowBox[{"{",
1119        RowBox[{"n", ",", "1", ",", "50"}], "}"}], ",",
1120       RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",",
1121     "\[IndentingNewLine]",
1122     RowBox[{"LogPlot", "[",
1123      RowBox[{
1124       RowBox[{"theoryhigh", "[", "n", "]"}], ",",
1125       RowBox[{"{",
1126        RowBox[{"n", ",", "1", ",", "50"}], "}"}], ",",
1127       RowBox[{"PlotStyle", "\[Rule]",
1128        RowBox[{"{",
1129         RowBox[{"Black", ",", "Dashed"}], "}"}]}]}], "]"}], ",",
1130     "\[IndentingNewLine]",
1131     RowBox[{"LogPlot", "[",
1132      RowBox[{
1133       RowBox[{"theorylow", "[", "n", "]"}], ",",
1134       RowBox[{"{",
1135        RowBox[{"n", ",", "1", ",", "50"}], "}"}], ",",
1136       RowBox[{"PlotStyle", "\[Rule]",
1137        RowBox[{"{",
1138         RowBox[{"Black", ",", "Dashed"}], "}"}]}]}], "]"}], ",",
1139     "\[IndentingNewLine]",
1140     RowBox[{"ListLogPlot", "[",
1141      RowBox[{"simdataend1a", ",",
1142       RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",",
1143     "\[IndentingNewLine]",
1144     RowBox[{"ListLogPlot", "[",
1145      RowBox[{"simdatamida", ",",
1146       RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], "}"}], ",",
1147   "\[IndentingNewLine]",
1148   RowBox[{"PlotRange", "\[Rule]",
1149    RowBox[{"{",
1150     RowBox[{
1151      RowBox[{"{",
1152       RowBox[{"0", ",", "40"}], "}"}], ",",
1153      RowBox[{"{",
1154       RowBox[{
1155        RowBox[{"-", "1"}], ",", "7"}], "}"}]}], "}"}]}], ",",
1156   RowBox[{"AxesOrigin", "\[Rule]",
1157    RowBox[{"{",
1158     RowBox[{"0", ",",
1159      RowBox[{"-", "1"}]}], "}"}]}], ",",
1160   RowBox[{"AxesStyle", "\[Rule]", "Bold"}], ",",
1161   RowBox[{"AspectRatio", "\[Rule]", "0.8"}]}], "]"}]], "Input",
1162 CellChangeTimes->{{3.680972973084056*^9, 3.680973009739571*^9}, {
1163   3.680973130034857*^9, 3.680973130064742*^9}, {3.680973344529559*^9,
1164   3.6809733446208887`*^9}, {3.680973398234157*^9, 3.6809734023607407`*^9}, {
1165   3.680973553907337*^9, 3.68097360802728*^9}, {3.680973974552478*^9,
1166   3.680973974631859*^9}, 3.680976672201068*^9, {3.680977692550296*^9,
1167   3.680977717846108*^9}, {3.680977807092786*^9, 3.680977848445869*^9},
1168   3.6809778970694857`*^9, {3.680977940572308*^9, 3.680977969841709*^9}, {
1169   3.680978095172659*^9, 3.680978118164159*^9}, {3.680978297126136*^9,
1170   3.680978356944022*^9}, {3.6809784187004957`*^9, 3.68097844266498*^9}, {
1171   3.6810600963121862`*^9, 3.6810600987045717`*^9}, {3.6810601614769087`*^9,
1172   3.681060187649881*^9}, {3.681070348563727*^9, 3.6810703497955837`*^9}}],
1173
1174Cell[BoxData[
1175 GraphicsBox[{{{}, {},
1176    {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.],
1177     LineBox[CompressedData["
11781:eJwVxX1cy3kcAPBWUZvJt6eVZXplFEfJQzE9/D49bT8PPeCVx7ijk14OlVrS
1179qq0HWqei7VWOIsrlbvJKKJH8vqiGulXmTkjlbiVKlkl63N398X69HfZGbdpn
1180aGBgEPif/5+RGMWkGWgJ2zPbmxl1bDgYIvA85aUlnEJrqwvvsEHlaH+QI9IS
1181qyw5l5ZUs0GmVjXxvmqJrae6hUEVbGA7u5w8MjBEFGTut5ddYsOi7gG6pl1H
1182WCUIj8w+wQYB/4CJsnKEQNvzbBcGsyHdYp9hTrieMLV78mPA29kQKT3K96Sb
1183gnm1NN9IZwv8THWJi3oWzJU61J60sgWH+C1TtFpLyD6BmDFrbMDKN/K0f5cN
1184WBYFD78MZME/OdMON9yzg+K+/WpmjDU46ZSucz/ag9+G1rWPUq2g7vh83hfj
1185eSDoyO3/q8ASnrcpxN8+cWFjqWParVoLKFM8qok0doTYVLNKa5U5RPiV2CQM
1186O8G5gpbnoEVwza3bDXcsAof2Xu4TFoKKW9f5cR8XQ9qeIpYi1AyKdfxk5Stn
1187aJJwWkLPM2EtFVV2Ymgp8FXeNaaYAV6fRQJC7wrpccxvwn5T+ENTomJ8WQZK
1188abbDUXcTuMuxDM6eXA7eTeUicdg0uOAesXfX8Aq4LxJTdiVG0JVvGKWhuUH0
1189js8rqIc00FwKep1Jd4d6LneK164nunOSXyXq3eHe4cb9nAMTBA8PP+MyVgOL
1190pVg+68Y3IutZyO45RjzIOPu5dSFvmDift3PtshEexKrkc263DRFmZyqcJ/Rr
1191IIv6ILsCA0R8Uu9l1ogHbD53VO4a1kN4/hZh/c7QC+7uZFwrV74mGiQFPWq6
1192NzTmobZ83lMigPc7ifTecNqtqXnIJY0yL0rblGoMsMX6igGtRUWJZsxbVyIB
11932LP+2vwP8IYSbDwbs3EMgM59lgUHeijfNVX5O1N8oPhds/cn5QC1Wu6bnjPq
1194A9PHUhyvqIeoXafiDrHFvvCau3UDmTNMJY/bOLSM+0JhzNMLD0xGKb2X3Ngi
11953g9ezuzxa4yeoK5zb2oqxvygo6zLr9PcAIcd888VxvsD3sZOamii4VVHElcW
1196TPiDsONW+q8KIxznI2UESAIg0qR0ZZNkGi6XmCjsxgMgpL5zPGyVCbYMX8wP
1197lPDBdHOi7J0FHQur8NWyCT5Ux4YTnSoG5nU6++TGC6DU42I+O42JlygIdeuY
1198AL7/07M2eIcZZvc+dPGIJ0EqkYsS6AjLNvT67E0gQSQr8QiZifCMm/TQrEQS
1199oi9XjjuZIzwhDhG9SCFh2+MW0QtbhN/M7lTGZpLghJhJ7gsRvhg4+kP5LyQ0
1200FmckfeEjvKBqqZxTSwKNEiZHZyB8wW5zmX8dCV9bM7xIKcKstPg7P1EkvP9b
1201PmmfjfD04LquO49IaJ1+I7lFjnBf37olW5pJuBg0mOxSirBiTkRD7hsSvDoj
1202UgYeIDwvPau9qosEV63Qu74B4cL35f0db0lYYHh8qvAJwtnVOvPFvSTMdCxN
1203Wd+G8KGQ1N3KQRI6DnWlKLoR7q2+HDOoJaFNPOidpkF4N+dxhrWOhPq8yant
1204fQgHfTC7Gj5CgqLKTkzXItwYsvz+z6MknFd+R7zVIUzcDm2rHCdB9pKnrxlB
1205uIZzTNM+SUJmP0mdHkfYNaNoRK8nIXFyqzhSj/C/ysdAAw==
1206      "]]}}, {{}, {},
1207    {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.],
1208     Dashing[{Small, Small}], LineBox[CompressedData["
12091:eJwVjH0w1Hkcxxfb7XrKw2LZQh5SQog85OH3wdr91VA4mTnFNJR0Jedp0wqb
1210h55ERUmXh9rMVuhoPJSk7865ba8Hiu0cPVl3S1TKWtbz/s798Zr3vOY987KK
1211S444oE4ikUJX+H+1uck6aqRJbGdD+Hi1lAFHwti+F/wmsaIJ/0H/DwzosbM8
1212Yp41iU3cO/jq4yADSiU9L7yVKy7I6LGQMIDhtLko9ascU555Rq8RMcBe+lVT
1213NqDA/C4WDN6oYwCb9TNFfH8WkwuNHO6mMyDf8IB6cTyB9Z+wquimMiDxzDGW
1214ryYV1B6KW8ItzYB1WsLfLNEDm1p51utgU7DiRKnUOmgw4+M2ZZZCB6PAxIvM
1215ITps+qndXb3IBP4tXnVU9HgNNEe/ypO3GMMGhdjFYsIS0Kg9+Y9uI+gstPWe
1216JlvDFV2ufusXGrzprcud+24DzUxh3yMzGgjquh4mku1gwkfqxvA0hIQgPj1z
1217ZgMIeGkhN/YbwL2t0q3C9/aQMp59NfGqPjS2NLHSJxzA8+mCmVe6HtQoWNni
1218t05AG/PCyG91YTtKFpySO0NlfITj3XU64DeVxcYIF2j2WKezkKoF3TJ+j9a0
1219K5SsvhP0YIQKj8xpu84vb4F4/oDO2DYKVHskxMXMuIFofcWp602rYOiKerJM
1220bSuU99/G6VpkkN3c+e60pgc4Rl1YH/2LOkiLs99yCQ8I+mdK45OSBN7CmT4b
1221LS8w6SwRRD5VYWf7wmLXanhDrmu1tfvQIlZ1ac9211lvOGZxM87BYB5bfbXR
1222aYnYBm25UZ7RhkqMc2K01mTWB3zTSisyIxSY750E40/qfhDlTKu6tX8SE/HK
1223RySa/lD7ZHnopc0XLNj7Lq5P+EO2hkVkx+wIZlCZF3GSDND4ZK9bMEeKZWlb
12247+DzAFw1M34r6+/H2OHXUsIXACT5SYmiwOdY4LbWK3tyAuAWso/tiRZgXmWB
1225+cXzATDVGsH+tf4RirmQnsTIDYRCu5zChI7XKHuRbvVqMRCMDnXnH5oeRIRf
1226GdmQEwRVleWy3YeHUZNNs6xxIQi6RPtu0zeMor3HmSUZHCbMeZkp+TmfkWcq
12271718iQmlVRoWmyy/o/SAM1rBvGDY2/ZYnvdCjhp4lLo1i8Gga3d5D3VQgWjx
1228DqxQHguqnXt5rVpKlNEqrBcsseAS5R19Rm8OeX90CijhsKGXpr/2DXkBOdZh
1229ktcLbBhmhSh7zJcQY/T3zT4cHGynEq1DdFWoNGQ0IC4TB+BYrxoxViHtZs3d
1230Z7k4aLIsC7MtVGgpNyzr75wVT0qLueesQh/MPorTTuMwzs1Mo0ao0I3Q+X0N
1231FSu9mqORDeUqtL7Vucy8Awf+Ln1ZvSWBqtf8KGB2rvymN1u8NhLIJI/Tfhjh
1232YCIftxO5EOiHXZ1D7V04JG50kb8PINDY2A7HqJc41OrFr6PuJ1Dd2gRRyQcc
1233TI3HKaF3CGSdf3agdQiHmspo8psmAl0fb/jyfhiH4aL7tdHtBDrfpjBwGMXh
1234YNe13oTnBEoKOxkr/obDu8umUu5XAo221aZ8m8TBvZxLqKYJFGv+Z4GxAger
1235mL+68pYJtPPz6vr4WRx8rYgqJoUkfBq25cm5eRwoB6lzhdokIfZgd+/9RRye
1236neizFeuRhA/Nj8sGlnFoST1qSzUiCV0KKmcJAoeCyAklbkoS/gdHe0d5
1237      "]]}}, {{}, {},
1238    {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.],
1239     Dashing[{Small, Small}], LineBox[CompressedData["
12401:eJwVkXk81HsfxcegmbFlbKMRMnZdWm4UM7/ffK6nuEmlevTSos0SRSKKmFBR
1241RFHhluK5skR6psXNEvf7lT3CpSxFxFguBtdO4fH8cV7nn/frnNd5HZ1TPvvd
1242qBQK5dKK/u+yl33kJCjj/B7rhjqz39jg5WDLu0OM8w/cuZYkvM+GegNtL83g
1243cf5HX8aRjfFsuNtcX2s5M87/mh9StymaDWxTs1t+I//w/6OX7rQlhA3G3SMM
1244Udskv5RCV952gg22NmdoVS9n+Zz9TnOWRmy4puRGjXVZ5m+t5pQaFKwBj5uX
1245bHgMOliYDfjmlauDzY3mNLPm1XBMUWF/TTcLdC4eXJJ4qww7/FT6X1FYoGLt
1246Ebe9iwUZFxtG6+XUoDdW+lxFsQZolj0642ikCoaTVRu1xNoQeXKkJXuDCpRE
12476FlOSXHAX6pD1d5KGT7+lRM6N6YLz7LLw0z+rQSZOWUFHlIGIHYvvS9/iAnu
1248/0pjBU4bgqsf4TzupQjPzbvNcYcxnLlfLNpDWw3CvBc2/uL1kG10vMCFLg+p
1249kzaCqs+m0KM4ohJvIAs7kU9m5D8bQPxBYX+dKgOIiWBb/vJGMPol5sf8Khp8
1250EKXVy0xtAit3z6RQZWko0lTeG7O4Gbr7BXWcYSqkWLifcp7+GcR3VA4mfqFA
1251VwLVRyRhDl1iWuWI9iJf9PueLzcYFuC3tXShK2CO3x0r+Hx52QLiTp91jxyd
12525Fvi6SZdmW0g8Uvbs8JoMT+qyeHYWklLeLrvjbybbS//cfyRnZtmLSH9RIu5
1253VmMjXyFJaPpj2QoU8134ZV/foXS/mKQ2SS5YqZxITXtRhiz3eEr8QeNC7M82
1254HQtXy5GrtO4n79VceFARlb/GuBK9vZAY0qXFBenz8Vo/BdcgDwdB7TuCC4+U
1255OF5lGo3oHWOXZ1QwF3rCyN+85VqRU59hs1voCu8bs3ZK0IrEWIqwvsaFi/Zr
1256XWvGWpF64J+K36O5ELdqnZzLxzbk07+pwOshFz5vzxh3//0zWlumTnMo5MLM
12571bPTh3d9RRdD+tPVZrmQFy/u95roQfqCp/07vnPBN9OVomvRiz4KzhgFLHOB
1258/VD4iXW5F20OHX3WTONB5XdmBKaK0Fj4zKs4dR6o7jU4ymH1IY8bq0plrHhw
1259t9F06JP9ADp016BzKYQHaYWno8wnhhH93qCWWTgPdjCDPFz5I6jgXs4J5wge
1260pMfrDY7FjCC1BDPR21gexK63+qRjLEZNSRbDgSk8ONWis1nNfRTZPbaZn0A8
1261GPK2zkdB44j31F11gErA9XO7AmS3TKKU01nVVBoByW2j7RonJxHFcDBYS5aA
1262EHZgpP/tSVSe4dnjqEwAo34xTXJoEu1+4iUs1yXAiXvWpCR9Ch1L8duZtp0A
1263TcPs6k7jGYSdX/8o+ZWA59dkFtSPziCO5pSw3Z6A2SF937zbM6g/OUCN6UhA
126437m+MuXpGeTzILA31I2A1JJDZG7lLAq7f0XgHElAc6B0LxE6j3oOoI1B0QR0
1265hbtlXC2YR9uVKaL7twlgaV/4tntiHtHvhtvVJRKwo5mz7/rpBRR/5zqLm0WA
1266hvE6XoPTd5QWHf1SvZqAo55vqsjDi0jKrtZ1Sx0B39S0RrMeLyJ3hpy6QyMB
1267QmZNb/u3RbT+ZuyVG20EmJm+4Aq9llBeRNyumcEV/hSh1RCzjCrCEvuaGSQc
1268eX3IJW+JgrNqOa1P5UnQyjZOiNSXwFFqwmoBkwQFnn/OoL0E3p1b9cxwDQkt
1269yXqO5x9L4E+tc77BRiT0bGuoNLSh4nxOhIvDTyTcvFD6B9OPih94Mx31N5Kw
1270eURXXJRCxc6SJtsatpJgn69b7blAxX1mR5Y4tiSkrDepMimWxFVBA2OzdiQM
1271Ry3Sl0YlcXb5hW91e0gIjmnq/cKRwt6HY8ovHiRBqpC+ZihWCk9HlES/dyNh
1272iPdr7pCfNG5t3BmS6knC+inq5qdCaVyo0eLt702C32J4/oRYGgtejjpoBazk
1273n2pZuOWzCkt3arP8rpNg7l7M7oii4QHDXLrtTRLq5x5+k2qh4Rq/bQsaMSv7
1274g3BGkR4dx9L3dVbcI+GY6buIhPd07HOgs/5hEglNyY6dphwG3pfiiX2SSZDk
1275/MjlChhYdcvVJ2uekFB4bDl3jpTBs1cUEkYzSWAONsq7Zcrg9pqHkWU5JJgm
12763RJVKMnix8dfe3q/IqE/0C4l8YcsDs3hH7F+QwLs6fB2DpbDJ6dr7VlFJOiX
1277B8g0S8hj/VuiDaWlJIQ8S0k2NlHAtJbzOokVK/8J3lI76hXw3+sWlc7WkGBT
1278HSCUDV+Na89GScEHEjKqKi8l6yji529UZ1T+IqGoO+vR3hhFfEcibeDvjyTI
1279yM2NNFKZ2NferP3PNhL+e+hJhd5NJj6QVPT+XgcJeAcjM2OdEjbvsSn26Cbh
1280RVjc99EmJcwybX5OiEiwTnikhrOV8fyl46lKgyQctGtvPVmggr+8G44bGCYh
1281KCdXX8VQDZfIB14tHiOhq2ffwTEXdZzqJOUfP0lC2KbtWQtfNfEAN7g4f2ql
1282r2VXo4OeLv4f9ZSGmw==
1283      "]]}}, {{}, {{},
1284     {RGBColor[1, 0, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
1285      1.6], PointBox[CompressedData["
12861:eJxTTMoPSmViYGBQAGIQDQEf7Cc+L0hpfCjlABVw0A8zUf70RRLK53CoObbu
1287HtcnCShfwIH/y7rgt0YwvohDytPiLZ3W4lC+hMMMy93T3h4Sg/JlHNrOTpeM
12880BGF8hUc+gpKV0UHi0D5Sg5zG65W8a8ThvJVHB7NNjO9PVkIyldzuJL6jVNj
1289pyCUr+Eg9OLAodVBML6WQ47ThL18C/mgfB0H3iIj68tNvFC+nsM33p2Nf0x5
1290oHwDNHlDh586k2qW53BC+UYOy3dfFzslwwrlGzsE9hhqs7SyQPkmDrXzLu8R
1291e8gM5Zs6MClo/eJe/ccewjdzCI8yWlek9B/KN0fjWzi8t/z1z0nvGZRvica3
1292gsUDFFg7cDOvrXo1+SNU3gaNb4vGd0DT74TKb/CG8wFgAHMw
1293
1294       "]]}, {}}, {}}, {{}, {{},
1295     {RGBColor[0, 0, 1], PointSize[0.019444444444444445`], AbsoluteThickness[
1296      1.6], PointBox[CompressedData["
12971:eJxTTMoPSmViYGCQA2IQDQEf7M9KfXg1RUDKASrg4LT7T5d7nSSUz+HALpPy
12981LZfAsoXcIjT+volWx7GF3FYeufh5as/xKB8CYdsvd/3L52E8WUc5D18LcVW
1299iUL5Cg4HlVs0GJRgfCUHnQ9967b3C0P5Kg6R8Yc8oiJgfDUHRcf0ztJ/AlC+
1300hkPxxvWdAVWCUL6WQ7dR6p3ZCTB5HYdrvB0ZP/14oXw9h6Of+YOjCnmgfAOH
13012de4fy4z5YbyDR0Cewy1WVpZoHwjhxNHbctLdnFA+cYO7y1//XPSY4PyTRzE
1302Qrfu3pjNBOWbOhj3vv3ueOCnPYRv5sCkoPWLe/UfKN8cFq5QYOFQvNraftMi
1303Bqi4pQM389qqV5M/QtVboZlnDbX/GZRvg2a+I5q8E9w+AP51ckg=
1304       "]]}, {}}, {}}},
1305  AspectRatio->0.8,
1306  Axes->{True, True},
1307  AxesLabel->{None, None},
1308  AxesOrigin->{0, -1},
1309  AxesStyle->Bold,
1310  CoordinatesToolOptions:>{"DisplayFunction" -> ({
1311      Part[#, 1],
1312      Exp[
1313       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
1314      Part[#, 1],
1315      Exp[
1316       Part[#, 2]]}& )},
1317  DisplayFunction->Identity,
1318  Frame->{{False, False}, {False, False}},
1319  FrameLabel->{{None, None}, {None, None}},
1320  FrameTicks->{{
1321     Charting`ScaledTicks[{Log, Exp}],
1322     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
1323  GridLines->{None, None},
1324  GridLinesStyle->Directive[
1325    GrayLevel[0.5, 0.4]],
1326  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
1327  PlotRange->{{0, 40}, {-1, 7}},
1328  PlotRangeClipping->True,
1329  PlotRangePadding->{{
1330     Scaled[0.02],
1331     Scaled[0.02]}, {
1332     Scaled[0.05],
1333     Scaled[0.05]}},
1334  Ticks->FrontEndValueCache[{Automatic,
1335     Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{0.,
1336       FormBox["1", TraditionalForm], {0.01, 0.}, {
1337        AbsoluteThickness[0.1]}}, {2.302585092994046,
1338       FormBox["10", TraditionalForm], {0.01, 0.}, {
1339        AbsoluteThickness[0.1]}}, {4.605170185988092,
1340       FormBox["100", TraditionalForm], {0.01, 0.}, {
1341        AbsoluteThickness[0.1]}}, {6.907755278982137,
1342       FormBox["1000", TraditionalForm], {0.01, 0.}, {
1343        AbsoluteThickness[0.1]}}, {-2.3025850929940455`,
1344       FormBox[
1345        InterpretationBox[
1346         StyleBox[
1347
1348          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1349           Baseline], "CacheGraphics" -> False],
1350         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1351        AbsoluteThickness[0.1]}}, {-1.6094379124341003`,
1352       FormBox[
1353        InterpretationBox[
1354         StyleBox[
1355
1356          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1357           Baseline], "CacheGraphics" -> False],
1358         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1359        AbsoluteThickness[0.1]}}, {-1.2039728043259361`,
1360       FormBox[
1361        InterpretationBox[
1362         StyleBox[
1363
1364          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1365           Baseline], "CacheGraphics" -> False],
1366         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1367        AbsoluteThickness[0.1]}}, {-0.916290731874155,
1368       FormBox[
1369        InterpretationBox[
1370         StyleBox[
1371
1372          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1373           Baseline], "CacheGraphics" -> False],
1374         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1375        AbsoluteThickness[0.1]}}, {-0.6931471805599453,
1376       FormBox[
1377        InterpretationBox[
1378         StyleBox[
1379
1380          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1381           Baseline], "CacheGraphics" -> False],
1382         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1383        AbsoluteThickness[0.1]}}, {-0.5108256237659907,
1384       FormBox[
1385        InterpretationBox[
1386         StyleBox[
1387
1388          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1389           Baseline], "CacheGraphics" -> False],
1390         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1391        AbsoluteThickness[0.1]}}, {-0.35667494393873245`,
1392       FormBox[
1393        InterpretationBox[
1394         StyleBox[
1395
1396          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1397           Baseline], "CacheGraphics" -> False],
1398         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1399        AbsoluteThickness[0.1]}}, {-0.2231435513142097,
1400       FormBox[
1401        InterpretationBox[
1402         StyleBox[
1403
1404          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1405           Baseline], "CacheGraphics" -> False],
1406         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1407        AbsoluteThickness[0.1]}}, {-0.10536051565782628`,
1408       FormBox[
1409        InterpretationBox[
1410         StyleBox[
1411          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1412           Baseline], "CacheGraphics" -> False],
1413         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1414        AbsoluteThickness[0.1]}}, {0.6931471805599453,
1415       FormBox[
1416        InterpretationBox[
1417         StyleBox[
1418
1419          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1420           Baseline], "CacheGraphics" -> False],
1421         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1422        AbsoluteThickness[0.1]}}, {1.0986122886681098`,
1423       FormBox[
1424        InterpretationBox[
1425         StyleBox[
1426
1427          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1428           Baseline], "CacheGraphics" -> False],
1429         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1430        AbsoluteThickness[0.1]}}, {1.3862943611198906`,
1431       FormBox[
1432        InterpretationBox[
1433         StyleBox[
1434
1435          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1436           Baseline], "CacheGraphics" -> False],
1437         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1438        AbsoluteThickness[0.1]}}, {1.6094379124341003`,
1439       FormBox[
1440        InterpretationBox[
1441         StyleBox[
1442
1443          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1444           Baseline], "CacheGraphics" -> False],
1445         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1446        AbsoluteThickness[0.1]}}, {1.791759469228055,
1447       FormBox[
1448        InterpretationBox[
1449         StyleBox[
1450
1451          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1452           Baseline], "CacheGraphics" -> False],
1453         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1454        AbsoluteThickness[0.1]}}, {1.9459101490553132`,
1455       FormBox[
1456        InterpretationBox[
1457         StyleBox[
1458
1459          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1460           Baseline], "CacheGraphics" -> False],
1461         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1462        AbsoluteThickness[0.1]}}, {2.0794415416798357`,
1463       FormBox[
1464        InterpretationBox[
1465         StyleBox[
1466
1467          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1468           Baseline], "CacheGraphics" -> False],
1469         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1470        AbsoluteThickness[0.1]}}, {2.1972245773362196`,
1471       FormBox[
1472        InterpretationBox[
1473         StyleBox[
1474
1475          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1476           Baseline], "CacheGraphics" -> False],
1477         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1478        AbsoluteThickness[0.1]}}, {2.995732273553991,
1479       FormBox[
1480        InterpretationBox[
1481         StyleBox[
1482
1483          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1484           Baseline], "CacheGraphics" -> False],
1485         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1486        AbsoluteThickness[0.1]}}, {3.4011973816621555`,
1487       FormBox[
1488        InterpretationBox[
1489         StyleBox[
1490
1491          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1492           Baseline], "CacheGraphics" -> False],
1493         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1494        AbsoluteThickness[0.1]}}, {3.6888794541139363`,
1495       FormBox[
1496        InterpretationBox[
1497         StyleBox[
1498
1499          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1500           Baseline], "CacheGraphics" -> False],
1501         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1502        AbsoluteThickness[0.1]}}, {3.912023005428146,
1503       FormBox[
1504        InterpretationBox[
1505         StyleBox[
1506
1507          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1508           Baseline], "CacheGraphics" -> False],
1509         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1510        AbsoluteThickness[0.1]}}, {4.0943445622221,
1511       FormBox[
1512        InterpretationBox[
1513         StyleBox[
1514
1515          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1516           Baseline], "CacheGraphics" -> False],
1517         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1518        AbsoluteThickness[0.1]}}, {4.248495242049359,
1519       FormBox[
1520        InterpretationBox[
1521         StyleBox[
1522
1523          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1524           Baseline], "CacheGraphics" -> False],
1525         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1526        AbsoluteThickness[0.1]}}, {4.382026634673881,
1527       FormBox[
1528        InterpretationBox[
1529         StyleBox[
1530
1531          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1532           Baseline], "CacheGraphics" -> False],
1533         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1534        AbsoluteThickness[0.1]}}, {4.499809670330265,
1535       FormBox[
1536        InterpretationBox[
1537         StyleBox[
1538
1539          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1540           Baseline], "CacheGraphics" -> False],
1541         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1542        AbsoluteThickness[0.1]}}, {5.298317366548036,
1543       FormBox[
1544        InterpretationBox[
1545         StyleBox[
1546
1547          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1548           Baseline], "CacheGraphics" -> False],
1549         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1550        AbsoluteThickness[0.1]}}, {5.703782474656201,
1551       FormBox[
1552        InterpretationBox[
1553         StyleBox[
1554
1555          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1556           Baseline], "CacheGraphics" -> False],
1557         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1558        AbsoluteThickness[0.1]}}, {5.991464547107982,
1559       FormBox[
1560        InterpretationBox[
1561         StyleBox[
1562
1563          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1564           Baseline], "CacheGraphics" -> False],
1565         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1566        AbsoluteThickness[0.1]}}, {6.214608098422191,
1567       FormBox[
1568        InterpretationBox[
1569         StyleBox[
1570
1571          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1572           Baseline], "CacheGraphics" -> False],
1573         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1574        AbsoluteThickness[0.1]}}, {6.396929655216146,
1575       FormBox[
1576        InterpretationBox[
1577         StyleBox[
1578
1579          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1580           Baseline], "CacheGraphics" -> False],
1581         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1582        AbsoluteThickness[0.1]}}, {6.551080335043404,
1583       FormBox[
1584        InterpretationBox[
1585         StyleBox[
1586
1587          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1588           Baseline], "CacheGraphics" -> False],
1589         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1590        AbsoluteThickness[0.1]}}, {6.684611727667927,
1591       FormBox[
1592        InterpretationBox[
1593         StyleBox[
1594
1595          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1596           Baseline], "CacheGraphics" -> False],
1597         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1598        AbsoluteThickness[0.1]}}, {6.802394763324311,
1599       FormBox[
1600        InterpretationBox[
1601         StyleBox[
1602
1603          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1604           Baseline], "CacheGraphics" -> False],
1605         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1606        AbsoluteThickness[0.1]}}, {7.600902459542082,
1607       FormBox[
1608        InterpretationBox[
1609         StyleBox[
1610
1611          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1612           Baseline], "CacheGraphics" -> False],
1613         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1614        AbsoluteThickness[0.1]}}, {8.006367567650246,
1615       FormBox[
1616        InterpretationBox[
1617         StyleBox[
1618
1619          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1620           Baseline], "CacheGraphics" -> False],
1621         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1622        AbsoluteThickness[0.1]}}, {8.294049640102028,
1623       FormBox[
1624        InterpretationBox[
1625         StyleBox[
1626
1627          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1628           Baseline], "CacheGraphics" -> False],
1629         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1630        AbsoluteThickness[0.1]}}, {8.517193191416238,
1631       FormBox[
1632        InterpretationBox[
1633         StyleBox[
1634
1635          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1636           Baseline], "CacheGraphics" -> False],
1637         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1638        AbsoluteThickness[0.1]}}}}]]], "Output",
1639 CellChangeTimes->{3.68107035068686*^9}]
1640}, Open  ]],
1641
1642Cell[CellGroupData[{
1643
1644Cell[BoxData[
1645 RowBox[{"Show", "[",
1646  RowBox[{
1647   RowBox[{"{",
1648    RowBox[{
1649     RowBox[{"LogPlot", "[",
1650      RowBox[{
1651       RowBox[{"theory", "[", "n", "]"}], ",",
1652       RowBox[{"{",
1653        RowBox[{"n", ",", "1", ",", "50"}], "}"}], ",",
1654       RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",",
1655     "\[IndentingNewLine]",
1656     RowBox[{"LogPlot", "[",
1657      RowBox[{
1658       RowBox[{"theoryhigh", "[", "n", "]"}], ",",
1659       RowBox[{"{",
1660        RowBox[{"n", ",", "1", ",", "50"}], "}"}], ",",
1661       RowBox[{"PlotStyle", "\[Rule]",
1662        RowBox[{"{",
1663         RowBox[{"Black", ",", "Dashed"}], "}"}]}]}], "]"}], ",",
1664     "\[IndentingNewLine]",
1665     RowBox[{"LogPlot", "[",
1666      RowBox[{
1667       RowBox[{"theorylow", "[", "n", "]"}], ",",
1668       RowBox[{"{",
1669        RowBox[{"n", ",", "1", ",", "50"}], "}"}], ",",
1670       RowBox[{"PlotStyle", "\[Rule]",
1671        RowBox[{"{",
1672         RowBox[{"Black", ",", "Dashed"}], "}"}]}]}], "]"}], ",",
1673     "\[IndentingNewLine]",
1674     RowBox[{"ListLogPlot", "[",
1675      RowBox[{"simdataend1a", ",",
1676       RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",",
1677     "\[IndentingNewLine]",
1678     RowBox[{"ListLogPlot", "[",
1679      RowBox[{"simdataend2a", ",",
1680       RowBox[{"PlotStyle", "\[Rule]",
1681        RowBox[{"Darker", "[", "Green", "]"}]}]}], "]"}], ",",
1682     "\[IndentingNewLine]",
1683     RowBox[{"ListLogPlot", "[",
1684      RowBox[{"simdatamida", ",",
1685       RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], "}"}], ",",
1686   "\[IndentingNewLine]",
1687   RowBox[{"PlotRange", "\[Rule]",
1688    RowBox[{"{",
1689     RowBox[{
1690      RowBox[{"{",
1691       RowBox[{"0", ",", "40"}], "}"}], ",",
1692      RowBox[{"{",
1693       RowBox[{
1694        RowBox[{"-", "1"}], ",", "7"}], "}"}]}], "}"}]}], ",",
1695   RowBox[{"AxesOrigin", "\[Rule]",
1696    RowBox[{"{",
1697     RowBox[{"0", ",",
1698      RowBox[{"-", "1"}]}], "}"}]}], ",",
1699   RowBox[{"AxesStyle", "\[Rule]", "Bold"}], ",",
1700   RowBox[{"AspectRatio", "\[Rule]", "0.8"}], ",",
1701   RowBox[{"AxesLabel", "\[Rule]",
1702    RowBox[{"{",
1703     RowBox[{"\"\<polymer size\>\"", ",", "\"\<molecule count\>\""}],
1704     "}"}]}]}], "]"}]], "Input",
1705 CellChangeTimes->{{3.680972973084056*^9, 3.680973009739571*^9}, {
1706   3.680973130034857*^9, 3.680973130064742*^9}, {3.680973344529559*^9,
1707   3.6809733446208887`*^9}, {3.680973398234157*^9, 3.6809734023607407`*^9}, {
1708   3.680973553907337*^9, 3.68097360802728*^9}, {3.680973974552478*^9,
1709   3.680973974631859*^9}, 3.680976672201068*^9, {3.680977692550296*^9,
1710   3.680977717846108*^9}, {3.680977807092786*^9, 3.680977848445869*^9},
1711   3.6809778970694857`*^9, {3.680977940572308*^9, 3.680977969841709*^9}, {
1712   3.680978095172659*^9, 3.680978118164159*^9}, {3.680978297126136*^9,
1713   3.680978356944022*^9}, {3.6809784187004957`*^9, 3.68097844266498*^9}, {
1714   3.6810600963121862`*^9, 3.6810600987045717`*^9}, {3.6810601614769087`*^9,
1715   3.681060187649881*^9}, {3.681070359171239*^9, 3.6810703696100597`*^9}, {
1716   3.681072154943825*^9, 3.681072188522039*^9}}],
1717
1718Cell[BoxData[
1719 GraphicsBox[{{{}, {},
1720    {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.],
1721     LineBox[CompressedData["
17221:eJwVxX1cy3kcAPBWUZvJt6eVZXplFEfJQzE9/D49bT8PPeCVx7ijk14OlVrS
1723qq0HWqei7VWOIsrlbvJKKJH8vqiGulXmTkjlbiVKlkl63N398X69HfZGbdpn
1724aGBgEPif/5+RGMWkGWgJ2zPbmxl1bDgYIvA85aUlnEJrqwvvsEHlaH+QI9IS
1725qyw5l5ZUs0GmVjXxvmqJrae6hUEVbGA7u5w8MjBEFGTut5ddYsOi7gG6pl1H
1726WCUIj8w+wQYB/4CJsnKEQNvzbBcGsyHdYp9hTrieMLV78mPA29kQKT3K96Sb
1727gnm1NN9IZwv8THWJi3oWzJU61J60sgWH+C1TtFpLyD6BmDFrbMDKN/K0f5cN
1728WBYFD78MZME/OdMON9yzg+K+/WpmjDU46ZSucz/ag9+G1rWPUq2g7vh83hfj
1729eSDoyO3/q8ASnrcpxN8+cWFjqWParVoLKFM8qok0doTYVLNKa5U5RPiV2CQM
1730O8G5gpbnoEVwza3bDXcsAof2Xu4TFoKKW9f5cR8XQ9qeIpYi1AyKdfxk5Stn
1731aJJwWkLPM2EtFVV2Ymgp8FXeNaaYAV6fRQJC7wrpccxvwn5T+ENTomJ8WQZK
1732abbDUXcTuMuxDM6eXA7eTeUicdg0uOAesXfX8Aq4LxJTdiVG0JVvGKWhuUH0
1733js8rqIc00FwKep1Jd4d6LneK164nunOSXyXq3eHe4cb9nAMTBA8PP+MyVgOL
1734pVg+68Y3IutZyO45RjzIOPu5dSFvmDift3PtshEexKrkc263DRFmZyqcJ/Rr
1735IIv6ILsCA0R8Uu9l1ogHbD53VO4a1kN4/hZh/c7QC+7uZFwrV74mGiQFPWq6
1736NzTmobZ83lMigPc7ifTecNqtqXnIJY0yL0rblGoMsMX6igGtRUWJZsxbVyIB
17372LP+2vwP8IYSbDwbs3EMgM59lgUHeijfNVX5O1N8oPhds/cn5QC1Wu6bnjPq
1738A9PHUhyvqIeoXafiDrHFvvCau3UDmTNMJY/bOLSM+0JhzNMLD0xGKb2X3Ngi
17393g9ezuzxa4yeoK5zb2oqxvygo6zLr9PcAIcd888VxvsD3sZOamii4VVHElcW
1740TPiDsONW+q8KIxznI2UESAIg0qR0ZZNkGi6XmCjsxgMgpL5zPGyVCbYMX8wP
1741lPDBdHOi7J0FHQur8NWyCT5Ux4YTnSoG5nU6++TGC6DU42I+O42JlygIdeuY
1742AL7/07M2eIcZZvc+dPGIJ0EqkYsS6AjLNvT67E0gQSQr8QiZifCMm/TQrEQS
1743oi9XjjuZIzwhDhG9SCFh2+MW0QtbhN/M7lTGZpLghJhJ7gsRvhg4+kP5LyQ0
1744FmckfeEjvKBqqZxTSwKNEiZHZyB8wW5zmX8dCV9bM7xIKcKstPg7P1EkvP9b
1745PmmfjfD04LquO49IaJ1+I7lFjnBf37olW5pJuBg0mOxSirBiTkRD7hsSvDoj
1746UgYeIDwvPau9qosEV63Qu74B4cL35f0db0lYYHh8qvAJwtnVOvPFvSTMdCxN
1747Wd+G8KGQ1N3KQRI6DnWlKLoR7q2+HDOoJaFNPOidpkF4N+dxhrWOhPq8yant
1748fQgHfTC7Gj5CgqLKTkzXItwYsvz+z6MknFd+R7zVIUzcDm2rHCdB9pKnrxlB
1749uIZzTNM+SUJmP0mdHkfYNaNoRK8nIXFyqzhSj/C/ysdAAw==
1750      "]]}}, {{}, {},
1751    {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.],
1752     Dashing[{Small, Small}], LineBox[CompressedData["
17531:eJwVjH0w1Hkcxxfb7XrKw2LZQh5SQog85OH3wdr91VA4mTnFNJR0Jedp0wqb
1754h55ERUmXh9rMVuhoPJSk7865ba8Hiu0cPVl3S1TKWtbz/s798Zr3vOY987KK
1755S444oE4ikUJX+H+1uck6aqRJbGdD+Hi1lAFHwti+F/wmsaIJ/0H/DwzosbM8
1756Yp41iU3cO/jq4yADSiU9L7yVKy7I6LGQMIDhtLko9ascU555Rq8RMcBe+lVT
1757NqDA/C4WDN6oYwCb9TNFfH8WkwuNHO6mMyDf8IB6cTyB9Z+wquimMiDxzDGW
1758ryYV1B6KW8ItzYB1WsLfLNEDm1p51utgU7DiRKnUOmgw4+M2ZZZCB6PAxIvM
1759ITps+qndXb3IBP4tXnVU9HgNNEe/ypO3GMMGhdjFYsIS0Kg9+Y9uI+gstPWe
1760JlvDFV2ufusXGrzprcud+24DzUxh3yMzGgjquh4mku1gwkfqxvA0hIQgPj1z
1761ZgMIeGkhN/YbwL2t0q3C9/aQMp59NfGqPjS2NLHSJxzA8+mCmVe6HtQoWNni
1762t05AG/PCyG91YTtKFpySO0NlfITj3XU64DeVxcYIF2j2WKezkKoF3TJ+j9a0
1763K5SsvhP0YIQKj8xpu84vb4F4/oDO2DYKVHskxMXMuIFofcWp602rYOiKerJM
1764bSuU99/G6VpkkN3c+e60pgc4Rl1YH/2LOkiLs99yCQ8I+mdK45OSBN7CmT4b
1765LS8w6SwRRD5VYWf7wmLXanhDrmu1tfvQIlZ1ac9211lvOGZxM87BYB5bfbXR
1766aYnYBm25UZ7RhkqMc2K01mTWB3zTSisyIxSY750E40/qfhDlTKu6tX8SE/HK
1767RySa/lD7ZHnopc0XLNj7Lq5P+EO2hkVkx+wIZlCZF3GSDND4ZK9bMEeKZWlb
17687+DzAFw1M34r6+/H2OHXUsIXACT5SYmiwOdY4LbWK3tyAuAWso/tiRZgXmWB
1769+cXzATDVGsH+tf4RirmQnsTIDYRCu5zChI7XKHuRbvVqMRCMDnXnH5oeRIRf
1770GdmQEwRVleWy3YeHUZNNs6xxIQi6RPtu0zeMor3HmSUZHCbMeZkp+TmfkWcq
17711718iQmlVRoWmyy/o/SAM1rBvGDY2/ZYnvdCjhp4lLo1i8Gga3d5D3VQgWjx
1772DqxQHguqnXt5rVpKlNEqrBcsseAS5R19Rm8OeX90CijhsKGXpr/2DXkBOdZh
1773ktcLbBhmhSh7zJcQY/T3zT4cHGynEq1DdFWoNGQ0IC4TB+BYrxoxViHtZs3d
1774Z7k4aLIsC7MtVGgpNyzr75wVT0qLueesQh/MPorTTuMwzs1Mo0ao0I3Q+X0N
1775FSu9mqORDeUqtL7Vucy8Awf+Ln1ZvSWBqtf8KGB2rvymN1u8NhLIJI/Tfhjh
1776YCIftxO5EOiHXZ1D7V04JG50kb8PINDY2A7HqJc41OrFr6PuJ1Dd2gRRyQcc
1777TI3HKaF3CGSdf3agdQiHmspo8psmAl0fb/jyfhiH4aL7tdHtBDrfpjBwGMXh
1778YNe13oTnBEoKOxkr/obDu8umUu5XAo221aZ8m8TBvZxLqKYJFGv+Z4GxAger
1779mL+68pYJtPPz6vr4WRx8rYgqJoUkfBq25cm5eRwoB6lzhdokIfZgd+/9RRye
1780neizFeuRhA/Nj8sGlnFoST1qSzUiCV0KKmcJAoeCyAklbkoS/gdHe0d5
1781      "]]}}, {{}, {},
1782    {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.],
1783     Dashing[{Small, Small}], LineBox[CompressedData["
17841:eJwVkXk81HsfxcegmbFlbKMRMnZdWm4UM7/ffK6nuEmlevTSos0SRSKKmFBR
1785RFHhluK5skR6psXNEvf7lT3CpSxFxFguBtdO4fH8cV7nn/frnNd5HZ1TPvvd
1786qBQK5dKK/u+yl33kJCjj/B7rhjqz39jg5WDLu0OM8w/cuZYkvM+GegNtL83g
1787cf5HX8aRjfFsuNtcX2s5M87/mh9StymaDWxTs1t+I//w/6OX7rQlhA3G3SMM
1788Udskv5RCV952gg22NmdoVS9n+Zz9TnOWRmy4puRGjXVZ5m+t5pQaFKwBj5uX
1789bHgMOliYDfjmlauDzY3mNLPm1XBMUWF/TTcLdC4eXJJ4qww7/FT6X1FYoGLt
1790Ebe9iwUZFxtG6+XUoDdW+lxFsQZolj0642ikCoaTVRu1xNoQeXKkJXuDCpRE
17916FlOSXHAX6pD1d5KGT7+lRM6N6YLz7LLw0z+rQSZOWUFHlIGIHYvvS9/iAnu
1792/0pjBU4bgqsf4TzupQjPzbvNcYcxnLlfLNpDWw3CvBc2/uL1kG10vMCFLg+p
1793kzaCqs+m0KM4ohJvIAs7kU9m5D8bQPxBYX+dKgOIiWBb/vJGMPol5sf8Khp8
1794EKXVy0xtAit3z6RQZWko0lTeG7O4Gbr7BXWcYSqkWLifcp7+GcR3VA4mfqFA
1795VwLVRyRhDl1iWuWI9iJf9PueLzcYFuC3tXShK2CO3x0r+Hx52QLiTp91jxyd
17965Fvi6SZdmW0g8Uvbs8JoMT+qyeHYWklLeLrvjbybbS//cfyRnZtmLSH9RIu5
1797VmMjXyFJaPpj2QoU8134ZV/foXS/mKQ2SS5YqZxITXtRhiz3eEr8QeNC7M82
1798HQtXy5GrtO4n79VceFARlb/GuBK9vZAY0qXFBenz8Vo/BdcgDwdB7TuCC4+U
1799OF5lGo3oHWOXZ1QwF3rCyN+85VqRU59hs1voCu8bs3ZK0IrEWIqwvsaFi/Zr
1800XWvGWpF64J+K36O5ELdqnZzLxzbk07+pwOshFz5vzxh3//0zWlumTnMo5MLM
18011bPTh3d9RRdD+tPVZrmQFy/u95roQfqCp/07vnPBN9OVomvRiz4KzhgFLHOB
1802/VD4iXW5F20OHX3WTONB5XdmBKaK0Fj4zKs4dR6o7jU4ymH1IY8bq0plrHhw
1803t9F06JP9ADp016BzKYQHaYWno8wnhhH93qCWWTgPdjCDPFz5I6jgXs4J5wge
1804pMfrDY7FjCC1BDPR21gexK63+qRjLEZNSRbDgSk8ONWis1nNfRTZPbaZn0A8
1805GPK2zkdB44j31F11gErA9XO7AmS3TKKU01nVVBoByW2j7RonJxHFcDBYS5aA
1806EHZgpP/tSVSe4dnjqEwAo34xTXJoEu1+4iUs1yXAiXvWpCR9Ch1L8duZtp0A
1807TcPs6k7jGYSdX/8o+ZWA59dkFtSPziCO5pSw3Z6A2SF937zbM6g/OUCN6UhA
180837m+MuXpGeTzILA31I2A1JJDZG7lLAq7f0XgHElAc6B0LxE6j3oOoI1B0QR0
1809hbtlXC2YR9uVKaL7twlgaV/4tntiHtHvhtvVJRKwo5mz7/rpBRR/5zqLm0WA
1810hvE6XoPTd5QWHf1SvZqAo55vqsjDi0jKrtZ1Sx0B39S0RrMeLyJ3hpy6QyMB
1811QmZNb/u3RbT+ZuyVG20EmJm+4Aq9llBeRNyumcEV/hSh1RCzjCrCEvuaGSQc
1812eX3IJW+JgrNqOa1P5UnQyjZOiNSXwFFqwmoBkwQFnn/OoL0E3p1b9cxwDQkt
1813yXqO5x9L4E+tc77BRiT0bGuoNLSh4nxOhIvDTyTcvFD6B9OPih94Mx31N5Kw
1814eURXXJRCxc6SJtsatpJgn69b7blAxX1mR5Y4tiSkrDepMimWxFVBA2OzdiQM
1815Ry3Sl0YlcXb5hW91e0gIjmnq/cKRwt6HY8ovHiRBqpC+ZihWCk9HlES/dyNh
1816iPdr7pCfNG5t3BmS6knC+inq5qdCaVyo0eLt702C32J4/oRYGgtejjpoBazk
1817n2pZuOWzCkt3arP8rpNg7l7M7oii4QHDXLrtTRLq5x5+k2qh4Rq/bQsaMSv7
1818g3BGkR4dx9L3dVbcI+GY6buIhPd07HOgs/5hEglNyY6dphwG3pfiiX2SSZDk
1819/MjlChhYdcvVJ2uekFB4bDl3jpTBs1cUEkYzSWAONsq7Zcrg9pqHkWU5JJgm
18203RJVKMnix8dfe3q/IqE/0C4l8YcsDs3hH7F+QwLs6fB2DpbDJ6dr7VlFJOiX
1821B8g0S8hj/VuiDaWlJIQ8S0k2NlHAtJbzOokVK/8J3lI76hXw3+sWlc7WkGBT
1822HSCUDV+Na89GScEHEjKqKi8l6yji529UZ1T+IqGoO+vR3hhFfEcibeDvjyTI
1823yM2NNFKZ2NferP3PNhL+e+hJhd5NJj6QVPT+XgcJeAcjM2OdEjbvsSn26Cbh
1824RVjc99EmJcwybX5OiEiwTnikhrOV8fyl46lKgyQctGtvPVmggr+8G44bGCYh
1825KCdXX8VQDZfIB14tHiOhq2ffwTEXdZzqJOUfP0lC2KbtWQtfNfEAN7g4f2ql
1826r2VXo4OeLv4f9ZSGmw==
1827      "]]}}, {{}, {{},
1828     {RGBColor[1, 0, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
1829      1.6], PointBox[CompressedData["
18301:eJxTTMoPSmViYGBQAGIQDQEf7Cc+L0hpfCjlABVw0A8zUf70RRLK53CoObbu
1831HtcnCShfwIH/y7rgt0YwvohDytPiLZ3W4lC+hMMMy93T3h4Sg/JlHNrOTpeM
18320BGF8hUc+gpKV0UHi0D5Sg5zG65W8a8ThvJVHB7NNjO9PVkIyldzuJL6jVNj
1833pyCUr+Eg9OLAodVBML6WQ47ThL18C/mgfB0H3iIj68tNvFC+nsM33p2Nf0x5
1834oHwDNHlDh586k2qW53BC+UYOy3dfFzslwwrlGzsE9hhqs7SyQPkmDrXzLu8R
1835e8gM5Zs6MClo/eJe/ccewjdzCI8yWlek9B/KN0fjWzi8t/z1z0nvGZRvica3
1836gsUDFFg7cDOvrXo1+SNU3gaNb4vGd0DT74TKb/CG8wFgAHMw
1837
1838       "]]}, {}}, {}}, {{}, {{},
1839     {RGBColor[0,
1840       NCache[
1841        Rational[2, 3], 0.6666666666666666], 0], PointSize[
1842      0.016666666666666666`], AbsoluteThickness[1.6], PointBox[CompressedData["
18431:eJxTTMoPSmViYGCwBGIQDQEf7PfFqB6U4xZygAo4BDNYnNsoKALlczjEJD16
1844rPNCGMoXcJiq+jeSYT6ML+LgY16//bEejC/hsNTK+MTyuTDzZBwmp36YHLMc
1845xldwcNv7MsvhoiCUr+Tww/spR6MPTF7FQXb1n2sx5jB5NYf/DIH/E0r4oXwN
1846h/Aoo3VFSjC+lsPrO+ot+k0CUL6OQ+nuABuLH3xQvp6Dc8gfM1Y3GN/AIfvE
1847jn2Xd3JD+YZo5hs5HP3MHxxVyAPlGztsXJc/RS+aA8o3cbi44+qXGz9g+k0d
1848Pmy++LdWlBPKN3NQ9pp2LWoFF5RvjqbfwqFtYrZVtTw7lG8JDT9mKN/KYfnu
184962KnZFihfGuH2nmX94g9hMnboJlni6bfDk29vYNY6NbdG7OZoHwHByYFrV/c
1850q//Yg7kNDmjyjqj8BkcH49633x0P/ISoZ3ByeG/565+T3jeofieH4tXW9psW
1851MUD1O6PJO6Pax+CCZr4LVP0zqLwrKr/BFWouDLih8hvQ+e4O3Mxrq15N/gg1
1852zwNNHo3P4ImqvsETTd4LTb8Xmvu80dT7oKlH4zP4osn7wfkAHj/EUw==
1853
1854       "]]}, {}}, {}}, {{}, {{},
1855     {RGBColor[0, 0, 1], PointSize[0.019444444444444445`], AbsoluteThickness[
1856      1.6], PointBox[CompressedData["
18571:eJxTTMoPSmViYGCQA2IQDQEf7M9KfXg1RUDKASrg4LT7T5d7nSSUz+HALpPy
18581LZfAsoXcIjT+volWx7GF3FYeufh5as/xKB8CYdsvd/3L52E8WUc5D18LcVW
1859iUL5Cg4HlVs0GJRgfCUHnQ9967b3C0P5Kg6R8Yc8oiJgfDUHRcf0ztJ/AlC+
1860hkPxxvWdAVWCUL6WQ7dR6p3ZCTB5HYdrvB0ZP/14oXw9h6Of+YOjCnmgfAOH
18612de4fy4z5YbyDR0Cewy1WVpZoHwjhxNHbctLdnFA+cYO7y1//XPSY4PyTRzE
1862Qrfu3pjNBOWbOhj3vv3ueOCnPYRv5sCkoPWLe/UfKN8cFq5QYOFQvNraftMi
1863Bqi4pQM389qqV5M/QtVboZlnDbX/GZRvg2a+I5q8E9w+AP51ckg=
1864       "]]}, {}}, {}}},
1865  AspectRatio->0.8,
1866  Axes->{True, True},
1867  AxesLabel->{
1868    FormBox["\"polymer size\"", TraditionalForm],
1869    FormBox["\"molecule count\"", TraditionalForm]},
1870  AxesOrigin->{0, -1},
1871  AxesStyle->Bold,
1872  CoordinatesToolOptions:>{"DisplayFunction" -> ({
1873      Part[#, 1],
1874      Exp[
1875       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
1876      Part[#, 1],
1877      Exp[
1878       Part[#, 2]]}& )},
1879  DisplayFunction->Identity,
1880  Frame->{{False, False}, {False, False}},
1881  FrameLabel->{{None, None}, {None, None}},
1882  FrameTicks->{{
1883     Charting`ScaledTicks[{Log, Exp}],
1884     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
1885  GridLines->{None, None},
1886  GridLinesStyle->Directive[
1887    GrayLevel[0.5, 0.4]],
1888  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
1889  PlotRange->{{0, 40}, {-1, 7}},
1890  PlotRangeClipping->True,
1891  PlotRangePadding->{{
1892     Scaled[0.02],
1893     Scaled[0.02]}, {
1894     Scaled[0.05],
1895     Scaled[0.05]}},
1896  Ticks->FrontEndValueCache[{Automatic,
1897     Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{0.,
1898       FormBox["1", TraditionalForm], {0.01, 0.}, {
1899        AbsoluteThickness[0.1]}}, {2.302585092994046,
1900       FormBox["10", TraditionalForm], {0.01, 0.}, {
1901        AbsoluteThickness[0.1]}}, {4.605170185988092,
1902       FormBox["100", TraditionalForm], {0.01, 0.}, {
1903        AbsoluteThickness[0.1]}}, {6.907755278982137,
1904       FormBox["1000", TraditionalForm], {0.01, 0.}, {
1905        AbsoluteThickness[0.1]}}, {-2.3025850929940455`,
1906       FormBox[
1907        InterpretationBox[
1908         StyleBox[
1909
1910          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1911           Baseline], "CacheGraphics" -> False],
1912         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1913        AbsoluteThickness[0.1]}}, {-1.6094379124341003`,
1914       FormBox[
1915        InterpretationBox[
1916         StyleBox[
1917
1918          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1919           Baseline], "CacheGraphics" -> False],
1920         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1921        AbsoluteThickness[0.1]}}, {-1.2039728043259361`,
1922       FormBox[
1923        InterpretationBox[
1924         StyleBox[
1925
1926          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1927           Baseline], "CacheGraphics" -> False],
1928         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1929        AbsoluteThickness[0.1]}}, {-0.916290731874155,
1930       FormBox[
1931        InterpretationBox[
1932         StyleBox[
1933
1934          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1935           Baseline], "CacheGraphics" -> False],
1936         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1937        AbsoluteThickness[0.1]}}, {-0.6931471805599453,
1938       FormBox[
1939        InterpretationBox[
1940         StyleBox[
1941
1942          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1943           Baseline], "CacheGraphics" -> False],
1944         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1945        AbsoluteThickness[0.1]}}, {-0.5108256237659907,
1946       FormBox[
1947        InterpretationBox[
1948         StyleBox[
1949
1950          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1951           Baseline], "CacheGraphics" -> False],
1952         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1953        AbsoluteThickness[0.1]}}, {-0.35667494393873245`,
1954       FormBox[
1955        InterpretationBox[
1956         StyleBox[
1957
1958          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1959           Baseline], "CacheGraphics" -> False],
1960         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1961        AbsoluteThickness[0.1]}}, {-0.2231435513142097,
1962       FormBox[
1963        InterpretationBox[
1964         StyleBox[
1965
1966          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1967           Baseline], "CacheGraphics" -> False],
1968         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1969        AbsoluteThickness[0.1]}}, {-0.10536051565782628`,
1970       FormBox[
1971        InterpretationBox[
1972         StyleBox[
1973
1974          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1975           Baseline], "CacheGraphics" -> False],
1976         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1977        AbsoluteThickness[0.1]}}, {0.6931471805599453,
1978       FormBox[
1979        InterpretationBox[
1980         StyleBox[
1981
1982          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1983           Baseline], "CacheGraphics" -> False],
1984         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1985        AbsoluteThickness[0.1]}}, {1.0986122886681098`,
1986       FormBox[
1987        InterpretationBox[
1988         StyleBox[
1989
1990          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1991           Baseline], "CacheGraphics" -> False],
1992         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
1993        AbsoluteThickness[0.1]}}, {1.3862943611198906`,
1994       FormBox[
1995        InterpretationBox[
1996         StyleBox[
1997
1998          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
1999           Baseline], "CacheGraphics" -> False],
2000         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2001        AbsoluteThickness[0.1]}}, {1.6094379124341003`,
2002       FormBox[
2003        InterpretationBox[
2004         StyleBox[
2005
2006          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2007           Baseline], "CacheGraphics" -> False],
2008         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2009        AbsoluteThickness[0.1]}}, {1.791759469228055,
2010       FormBox[
2011        InterpretationBox[
2012         StyleBox[
2013
2014          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2015           Baseline], "CacheGraphics" -> False],
2016         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2017        AbsoluteThickness[0.1]}}, {1.9459101490553132`,
2018       FormBox[
2019        InterpretationBox[
2020         StyleBox[
2021
2022          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2023           Baseline], "CacheGraphics" -> False],
2024         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2025        AbsoluteThickness[0.1]}}, {2.0794415416798357`,
2026       FormBox[
2027        InterpretationBox[
2028         StyleBox[
2029
2030          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2031           Baseline], "CacheGraphics" -> False],
2032         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2033        AbsoluteThickness[0.1]}}, {2.1972245773362196`,
2034       FormBox[
2035        InterpretationBox[
2036         StyleBox[
2037
2038          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2039           Baseline], "CacheGraphics" -> False],
2040         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2041        AbsoluteThickness[0.1]}}, {2.995732273553991,
2042       FormBox[
2043        InterpretationBox[
2044         StyleBox[
2045
2046          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2047           Baseline], "CacheGraphics" -> False],
2048         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2049        AbsoluteThickness[0.1]}}, {3.4011973816621555`,
2050       FormBox[
2051        InterpretationBox[
2052         StyleBox[
2053
2054          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2055           Baseline], "CacheGraphics" -> False],
2056         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2057        AbsoluteThickness[0.1]}}, {3.6888794541139363`,
2058       FormBox[
2059        InterpretationBox[
2060         StyleBox[
2061
2062          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2063           Baseline], "CacheGraphics" -> False],
2064         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2065        AbsoluteThickness[0.1]}}, {3.912023005428146,
2066       FormBox[
2067        InterpretationBox[
2068         StyleBox[
2069
2070          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2071           Baseline], "CacheGraphics" -> False],
2072         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2073        AbsoluteThickness[0.1]}}, {4.0943445622221,
2074       FormBox[
2075        InterpretationBox[
2076         StyleBox[
2077
2078          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2079           Baseline], "CacheGraphics" -> False],
2080         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2081        AbsoluteThickness[0.1]}}, {4.248495242049359,
2082       FormBox[
2083        InterpretationBox[
2084         StyleBox[
2085
2086          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2087           Baseline], "CacheGraphics" -> False],
2088         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2089        AbsoluteThickness[0.1]}}, {4.382026634673881,
2090       FormBox[
2091        InterpretationBox[
2092         StyleBox[
2093
2094          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2095           Baseline], "CacheGraphics" -> False],
2096         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2097        AbsoluteThickness[0.1]}}, {4.499809670330265,
2098       FormBox[
2099        InterpretationBox[
2100         StyleBox[
2101
2102          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2103           Baseline], "CacheGraphics" -> False],
2104         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2105        AbsoluteThickness[0.1]}}, {5.298317366548036,
2106       FormBox[
2107        InterpretationBox[
2108         StyleBox[
2109
2110          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2111           Baseline], "CacheGraphics" -> False],
2112         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2113        AbsoluteThickness[0.1]}}, {5.703782474656201,
2114       FormBox[
2115        InterpretationBox[
2116         StyleBox[
2117
2118          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2119           Baseline], "CacheGraphics" -> False],
2120         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2121        AbsoluteThickness[0.1]}}, {5.991464547107982,
2122       FormBox[
2123        InterpretationBox[
2124         StyleBox[
2125
2126          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2127           Baseline], "CacheGraphics" -> False],
2128         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2129        AbsoluteThickness[0.1]}}, {6.214608098422191,
2130       FormBox[
2131        InterpretationBox[
2132         StyleBox[
2133
2134          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2135           Baseline], "CacheGraphics" -> False],
2136         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2137        AbsoluteThickness[0.1]}}, {6.396929655216146,
2138       FormBox[
2139        InterpretationBox[
2140         StyleBox[
2141
2142          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2143           Baseline], "CacheGraphics" -> False],
2144         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2145        AbsoluteThickness[0.1]}}, {6.551080335043404,
2146       FormBox[
2147        InterpretationBox[
2148         StyleBox[
2149
2150          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2151           Baseline], "CacheGraphics" -> False],
2152         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2153        AbsoluteThickness[0.1]}}, {6.684611727667927,
2154       FormBox[
2155        InterpretationBox[
2156         StyleBox[
2157
2158          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2159           Baseline], "CacheGraphics" -> False],
2160         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2161        AbsoluteThickness[0.1]}}, {6.802394763324311,
2162       FormBox[
2163        InterpretationBox[
2164         StyleBox[
2165
2166          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2167           Baseline], "CacheGraphics" -> False],
2168         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2169        AbsoluteThickness[0.1]}}, {7.600902459542082,
2170       FormBox[
2171        InterpretationBox[
2172         StyleBox[
2173
2174          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2175           Baseline], "CacheGraphics" -> False],
2176         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2177        AbsoluteThickness[0.1]}}, {8.006367567650246,
2178       FormBox[
2179        InterpretationBox[
2180         StyleBox[
2181
2182          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2183           Baseline], "CacheGraphics" -> False],
2184         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2185        AbsoluteThickness[0.1]}}, {8.294049640102028,
2186       FormBox[
2187        InterpretationBox[
2188         StyleBox[
2189
2190          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2191           Baseline], "CacheGraphics" -> False],
2192         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2193        AbsoluteThickness[0.1]}}, {8.517193191416238,
2194       FormBox[
2195        InterpretationBox[
2196         StyleBox[
2197
2198          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition ->
2199           Baseline], "CacheGraphics" -> False],
2200         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
2201        AbsoluteThickness[0.1]}}}}]]], "Output",
2202 CellChangeTimes->{{3.680977966826222*^9, 3.680977970546186*^9}, {
2203   3.680978100835853*^9, 3.680978132945045*^9}, {3.680978312075471*^9,
2204   3.680978357443789*^9}, {3.680978432939848*^9, 3.6809784434351673`*^9},
2205   3.6809788341906652`*^9, 3.6809802079912653`*^9, 3.680982483485257*^9,
2206   3.681060113705694*^9, {3.681060162200333*^9, 3.6810601888294897`*^9},
2207   3.681066219679742*^9, 3.681066980986158*^9, 3.681070371254506*^9,
2208   3.681072189473871*^9}]
2209}, Open  ]]
2210},
2211WindowSize->{808, 752},
2212WindowMargins->{{Automatic, -924}, {Automatic, 46}},
2213FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (December 4, \
22142014)",
2215StyleDefinitions->"Default.nb"
2216]
2217(* End of Notebook Content *)
2218
2219(* Internal cache information *)
2220(*CellTagsOutline
2221CellTagsIndex->{}
2222*)
2223(*CellTagsIndex
2224CellTagsIndex->{}
2225*)
2226(*NotebookFileOutline
2227Notebook[{
2228Cell[CellGroupData[{
2229Cell[580, 22, 317, 5, 28, "Input"],
2230Cell[900, 29, 2557, 36, 28, "Output"]
2231}, Open  ]],
2232Cell[CellGroupData[{
2233Cell[3494, 70, 3327, 46, 80, "Input"],
2234Cell[6824, 118, 5837, 82, 28, "Output"],
2235Cell[12664, 202, 5839, 82, 28, "Output"],
2236Cell[18506, 286, 5836, 82, 28, "Output"],
2237Cell[24345, 370, 5838, 82, 28, "Output"]
2238}, Open  ]],
2239Cell[30198, 455, 250, 5, 28, "Input"],
2240Cell[30451, 462, 195, 4, 28, "Input"],
2241Cell[30649, 468, 1207, 20, 28, "Input"],
2242Cell[31859, 490, 344, 5, 28, "Input"],
2243Cell[CellGroupData[{
2244Cell[32228, 499, 563, 11, 28, "Input"],
2245Cell[32794, 512, 1340, 21, 63, "Output"]
2246}, Open  ]],
2247Cell[34149, 536, 241, 6, 28, "Input"],
2248Cell[34393, 544, 120, 2, 28, "Input"],
2249Cell[CellGroupData[{
2250Cell[34538, 550, 271, 7, 28, "Input"],
2251Cell[34812, 559, 988, 16, 63, "Output"]
2252}, Open  ]],
2253Cell[35815, 578, 241, 6, 28, "Input"],
2254Cell[CellGroupData[{
2255Cell[36081, 588, 316, 8, 28, "Input"],
2256Cell[36400, 598, 1916, 27, 114, "Output"]
2257}, Open  ]],
2258Cell[CellGroupData[{
2259Cell[38353, 630, 346, 7, 28, "Input"],
2260Cell[38702, 639, 13529, 326, 242, "Output"]
2261}, Open  ]],
2262Cell[CellGroupData[{
2263Cell[52268, 970, 265, 7, 46, "Input"],
2264Cell[52536, 979, 522, 7, 28, "Output"]
2265}, Open  ]],
2266Cell[CellGroupData[{
2267Cell[53095, 991, 678, 20, 28, "Input"],
2268Cell[53776, 1013, 505, 8, 28, "Output"]
2269}, Open  ]],
2270Cell[CellGroupData[{
2271Cell[54318, 1026, 337, 10, 28, "Input"],
2272Cell[54658, 1038, 595, 12, 32, "Output"]
2273}, Open  ]],
2274Cell[CellGroupData[{
2275Cell[55290, 1055, 277, 7, 28, "Input"],
2276Cell[55570, 1064, 491, 13, 40, "Output"]
2277}, Open  ]],
2278Cell[CellGroupData[{
2279Cell[56098, 1082, 276, 7, 28, "Input"],
2280Cell[56377, 1091, 486, 13, 40, "Output"]
2281}, Open  ]],
2282Cell[CellGroupData[{
2283Cell[56900, 1109, 2618, 62, 131, "Input"],
2284Cell[59521, 1173, 20440, 465, 291, "Output"]
2285}, Open  ]],
2286Cell[CellGroupData[{
2287Cell[79998, 1643, 3016, 72, 148, "Input"],
2288Cell[83017, 1717, 21784, 490, 248, "Output"]
2289}, Open  ]]
2290}
2291]
2292*)
2293
2294(* End of internal cache information *)
2295