(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 221476, 4774] NotebookOptionsPosition[ 206362, 4493] NotebookOutlinePosition[ 207114, 4518] CellTagsIndexPosition[ 207033, 4513] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["3.029 Spring 2022\[LineSeparator]Lecture 22 - 04/25/2022", "Subtitle", CellChangeTimes->{{3.8525512993398438`*^9, 3.8525513206118402`*^9}, { 3.852652054138073*^9, 3.8526520591301193`*^9}, {3.853194369726288*^9, 3.8531943739664793`*^9}, 3.8531971130005827`*^9, {3.853361889945813*^9, 3.853361893353859*^9}, {3.854455749568426*^9, 3.8544557604776297`*^9}, { 3.8545621484661007`*^9, 3.8545621501697083`*^9}, {3.85499650158072*^9, 3.854996504060568*^9}, {3.855176893175762*^9, 3.855176906151746*^9}, { 3.855604699389501*^9, 3.855604707177799*^9}, {3.85582102333785*^9, 3.855821026740013*^9}, {3.8561799930634317`*^9, 3.8561800234790487`*^9}, { 3.85637308472639*^9, 3.856373086934021*^9}, {3.856876646984232*^9, 3.85687665146917*^9}, {3.8569463887392263`*^9, 3.856946392718061*^9}, { 3.8579871301082*^9, 3.8579871339082947`*^9}, {3.858157344254057*^9, 3.858157348732129*^9}, {3.858588978858674*^9, 3.8585889857619467`*^9}, { 3.859445803037073*^9, 3.8594458064887953`*^9}, {3.859835969535055*^9, 3.859835971743456*^9}},ExpressionUUID->"a5388ee5-bffb-4b43-bfe5-\ ff24bb700ea0"], Cell[CellGroupData[{ Cell["Order - Disorder Transition", "Chapter", CellChangeTimes->{{3.852551340964005*^9, 3.852551346980482*^9}, 3.8526520737398577`*^9, {3.853194378006518*^9, 3.853194381142681*^9}, { 3.853361935778483*^9, 3.853361942498363*^9}, {3.854456274982847*^9, 3.854456277927383*^9}, {3.8544565045315533`*^9, 3.854456514672267*^9}, 3.854562160779923*^9, {3.854996506556843*^9, 3.854996508477077*^9}, { 3.854996641253805*^9, 3.854996643918687*^9}, {3.855604708758831*^9, 3.855604727103332*^9}, {3.855660670350954*^9, 3.855660672414981*^9}, { 3.8558210308839273`*^9, 3.8558210389988337`*^9}, {3.856180026750667*^9, 3.856180028663183*^9}, {3.8563730901501093`*^9, 3.856373091878005*^9}, { 3.8568766564578753`*^9, 3.8568766633937473`*^9}, {3.856946404596374*^9, 3.856946407488679*^9}, {3.857987158508334*^9, 3.857987171708667*^9}, { 3.858157351447757*^9, 3.8581573552445*^9}, 3.858190562334887*^9, { 3.858588987034586*^9, 3.858588992363106*^9}, {3.858589026243301*^9, 3.858589028019216*^9}, {3.858590990612727*^9, 3.858590992164358*^9}, { 3.8594458081357527`*^9, 3.859445811048368*^9}, {3.859835973856126*^9, 3.859835981328124*^9}},ExpressionUUID->"b13601c0-533b-4e28-b3c5-\ 4f0c17974534"], Cell["\<\ Recall that in our regular-activity solution model, we assume component \ interactions to be pairwise:\ \>", "Item", CellChangeTimes->{{3.856437858138715*^9, 3.856437910534876*^9}, { 3.856437942204713*^9, 3.856437960573674*^9}, {3.859836713383894*^9, 3.859836737057138*^9}, {3.8598367925687847`*^9, 3.8598367934733753`*^9}},ExpressionUUID->"e2def18a-0da1-4da1-82da-\ 5dbbfe6f0418"], Cell[BoxData[ RowBox[{"\t", TemplateBox[<|"boxes" -> FormBox[ RowBox[{"\[CapitalDelta]", SubsuperscriptBox[ UnderscriptBox[ StyleBox["G", "TI"], "_"], StyleBox["mix", FontSlant -> "Plain"], StyleBox["regular-activity", FontSlant -> "Plain"]], "\[LongEqual]", UnderoverscriptBox["\[Sum]", RowBox[{ StyleBox["i", "TI"], "\[LongEqual]", "1"}], RowBox[{ StyleBox["m", "TI"], "-", "1"}], LimitsPositioning -> True], UnderoverscriptBox["\[Sum]", RowBox[{ StyleBox["j", "TI"], ">", StyleBox["i", "TI"]}], StyleBox["m", "TI"], LimitsPositioning -> True], SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], SubscriptBox[ StyleBox["x", "TI"], StyleBox["j", "TI"]], SubscriptBox["\[Omega]", RowBox[{ StyleBox["i", "TI"], StyleBox["j", "TI"]}]], "+", StyleBox["R", "TI"], StyleBox["T", "TI"], UnderoverscriptBox["\[Sum]", RowBox[{ StyleBox["i", "TI"], "\[LongEqual]", "1"}], StyleBox["m", "TI"], LimitsPositioning -> True], SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], "log", RowBox[{"(", RowBox[{ SubscriptBox["\[Gamma]", StyleBox["i", "TI"]], SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]]}], ")"}]}], TraditionalForm], "errors" -> {}, "input" -> "\\Delta \\underline{G}_{\\mathrm{mix}}^{\\mathrm{regular-activity}} = \ \\sum_{i=1}^{m-1} \\sum_{j>i}^m x_i x_j \\omega_{ij} + RT \\sum_{i=1}^m x_i \ \\log \\left(\\gamma_i x_i \\right)", "state" -> "Boxes"|>, "TeXAssistantTemplate"]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.7735647893570647`*^9, 3.7735647902824917`*^9}, { 3.7735660158612933`*^9, 3.773566016706119*^9}, {3.7735676244674263`*^9, 3.773567625284314*^9}, {3.7735678890224657`*^9, 3.773567891494249*^9}, { 3.7735683430528593`*^9, 3.7735683437834396`*^9}, 3.773724600013646*^9, { 3.853362665796761*^9, 3.853362666140524*^9}, {3.8533633046775913`*^9, 3.8533633120769987`*^9}, 3.853753756131023*^9, 3.8537540469197702`*^9, { 3.853845341671569*^9, 3.8538453442330313`*^9}, {3.856374420720639*^9, 3.856374437234189*^9}, 3.856374787461862*^9, 3.856374915535125*^9, 3.8563753956491117`*^9, 3.856376013709388*^9, 3.856378704576075*^9, 3.8563791026258717`*^9, {3.856379748987887*^9, 3.85637975853432*^9}, 3.8563806752483473`*^9, {3.856380733131955*^9, 3.856380749826585*^9}, 3.856383216504706*^9, 3.8563850847030373`*^9, 3.856385370922572*^9, 3.856385647963335*^9, {3.856385804112977*^9, 3.856385807263814*^9}, 3.856456932475713*^9, {3.856456981196165*^9, 3.856457006843153*^9}, 3.85645705325445*^9, {3.8564571111772842`*^9, 3.856457139209527*^9}, 3.856457177332877*^9, {3.856457258536426*^9, 3.8564572719657373`*^9}, 3.856457368357592*^9, 3.857474541298173*^9, 3.8578450241095123`*^9}, FontSize->18, CellTags-> "eq:van-der-waals",ExpressionUUID->"12ff7161-15d0-4dab-97f0-22486d03b4f3"], Cell["\<\ Today, we\[CloseCurlyQuote]ll code up a lattice-Kinetic Monte Carlo method \ for the regular solution model to investigate the competition between \ enthalpy and entropy visually\ \>", "Item", CellChangeTimes->{{3.859836774338923*^9, 3.859836786049371*^9}, { 3.8598368382178173`*^9, 3.859836895869726*^9}},ExpressionUUID->"d340a3db-6403-47e7-ae3a-\ 7d013757cd6c"], Cell[CellGroupData[{ Cell["We\[CloseCurlyQuote]ll consider a two-component system:", "Item", CellChangeTimes->{{3.859836774338923*^9, 3.859836786049371*^9}, { 3.8598368382178173`*^9, 3.859836912428671*^9}},ExpressionUUID->"4a8b248f-17f0-4fcc-ad14-\ 5ff06908b2fc"], Cell[CellGroupData[{ Cell["(red) A atoms", "Subitem", CellChangeTimes->{{3.859836774338923*^9, 3.859836786049371*^9}, { 3.8598368382178173`*^9, 3.859836946677823*^9}, {3.8598369806039467`*^9, 3.859836980604792*^9}},ExpressionUUID->"3df0a753-3fa3-43a5-a05c-\ 1f20c8dcf18b"], Cell[TextData[{ "occupying a lattice site with an A atom \[OpenCurlyDoubleQuote]costs\ \[CloseCurlyDoubleQuote] an energy ", Cell[BoxData[ FormBox[ SubscriptBox["E", "A"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "0404ac67-f6ed-45cb-ac59-453a8f324ab0"] }], "Subsubitem", CellChangeTimes->{{3.859836774338923*^9, 3.859836786049371*^9}, { 3.8598368382178173`*^9, 3.859836946677823*^9}, {3.8598369816027603`*^9, 3.859837005698018*^9}},ExpressionUUID->"c62299b0-f407-43b6-8d64-\ 435febba8493"] }, Open ]], Cell[CellGroupData[{ Cell["(blue) B atoms", "Subitem", CellChangeTimes->{{3.859836774338923*^9, 3.859836786049371*^9}, { 3.8598368382178173`*^9, 3.8598369524844933`*^9}, {3.859837007718884*^9, 3.8598370077199802`*^9}},ExpressionUUID->"55b55286-9e43-470f-be6d-\ 1d3403da3fcd"], Cell[TextData[{ "occupying a lattice site with a B atom \[OpenCurlyDoubleQuote]costs\ \[CloseCurlyDoubleQuote] an energy ", Cell[BoxData[ FormBox[ SubscriptBox["E", "B"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "48b7ac81-408a-4a5d-a3c9-71e965ac5acf"] }], "Subsubitem", CellChangeTimes->{{3.859836774338923*^9, 3.859836786049371*^9}, { 3.8598368382178173`*^9, 3.8598369524844933`*^9}, {3.859837008163101*^9, 3.85983702662119*^9}},ExpressionUUID->"aa056719-a562-4f86-b8e9-\ 436be6a9c817"] }, Open ]], Cell[CellGroupData[{ Cell["as well as (white) vacancies", "Subitem", CellChangeTimes->{{3.859836774338923*^9, 3.859836786049371*^9}, { 3.8598368382178173`*^9, 3.8598369689892273`*^9}, {3.8598370389557123`*^9, 3.859837039459735*^9}},ExpressionUUID->"84f20689-d149-4d7d-83e4-\ 0a1b61222677"], Cell[CellGroupData[{ Cell[TextData[{ "which have a site energy, ", Cell[BoxData[ FormBox[ SubscriptBox["E", "V"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "dad2b18d-1076-4f52-b913-7c0e1210213e"], " equal to zero" }], "Subsubitem", CellChangeTimes->{{3.859836774338923*^9, 3.859836786049371*^9}, { 3.8598368382178173`*^9, 3.8598369791708527`*^9}, {3.859837046500635*^9, 3.859837047725233*^9}},ExpressionUUID->"7e6519be-1bb2-4987-a4cd-\ 771432e80327"], Cell[BoxData[ GraphicsBox[ {Thickness[0.00289151591784573], {EdgeForm[{Thickness[0.004708917526173388], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{103.195, 51.97541300000001}, {103.195, 23.705413000000007`}, {80.277, 0.7914130000000199}, {52.012, 0.7914130000000199}, {23.741999999999997`, 0.7914130000000199}, {0.8280000000000001, 23.705413000000007`}, { 0.8280000000000001, 51.97541300000001}, {0.8280000000000001, 80.24141300000001}, {23.741999999999997`, 103.15541300000001`}, {52.012, 103.15541300000001`}, {80.277, 103.15541300000001`}, {103.195, 80.24141300000001}, {103.195, 51.97541300000001}}}]}, {FaceForm[{RGBColor[1., 1., 1.], Opacity[0.889423]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{39.382999999999996`, 59.690000000000005`}, {64.641, 59.690000000000005`}, {64.68799999999999, 59.690000000000005`}, {64.723, 59.690000000000005`}, {64.723, 59.690000000000005`}, {64.723, 44.257}, {64.723, 44.257}, { 64.68799999999999, 44.257}, {64.641, 44.257}, {39.382999999999996`, 44.257}, {39.336, 44.257}, {39.300999999999995`, 44.257}, { 39.300999999999995`, 44.257}, {39.300999999999995`, 59.690000000000005`}, {39.300999999999995`, 59.690000000000005`}, { 39.336, 59.690000000000005`}, {39.382999999999996`, 59.690000000000005`}}}]}, {Thickness[0.004708917526173388], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lE1IVFEUx0cNJqIPAyOhglwFxSwCwSAG7oBv3v2YB9WmEIoww0VIBC5C cRG0UXEhuAsDQRilCAqpEIKCcDFtSoQiEBKMaSNSCUUhNO+c/7uH94YWD96P c8/H/Z9zT1f/7Us323K5XEvju9H4WhvftWWzv/W8VWf3Pj7et2lUbS54/rNo Vf3v4vfVLaOOPAk3RnqtGu1o/PwR7hkvXf+as//lh9vVFXfUKop/RvjHatTf 3ilM5zsQf59VCyuuZ/ww8u8a9p806lwc/71me8mo2dg/1Oy/GXp+F9c/VfZM +e6WOb7Vqhr73ymrb3H8KMNXhUmPAWGKN6i5nlHEm9DqUOHZ7HY+ZF5G/R+E Sc8x3cSUbypj78vYI2Gqp9uiHs36/UK/hrTvF9V3S3O9dWHqzxdh8v9ofDzK X0N/72d4Rpj8H6CeNdjnwTsG/U365TzTfdYd9+cA+ld3XP+uTvOW8MFY3zry f3boN/K9RfyXOH/K+XpZH8zbpzDNncLUr+kQ81/BfULWsxBx/irs3RGfb9Ge F2PuMp6T+U7xleT9VDyTPheEqT8nhUmvExXWK0rep/Oc6EH9cOCaMMV7LUz3 feG4/ouW9apCrwFhnm9hnj/kX4L/vUz+R3ivxYjn6SnODyf6CcduI8PCPI9l z7w/hCl/oZn5PWfsSX9KwpR/UJjyLwnzvDUz9addmPTIZ87vQf83sD/WMT9r AfTDvnoTsP6XNfu/Cvx+ovsfC9L76nevZ47fzDwvGXte8/12hFPx88hfNGke EuZ9YLCPYR8Dn9bqH3Duya0= "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGBwBGIQPUWCJYxvrrfDn5UfL/k2uTu4dOc8/50J5Ru5O0wG ydt6OzBpt4vd5IPKv/RycNv2+e8VDij/JoLvyQNUeQyTP9UZqPC1G5w/DcS/ 7ebwqy5rT8llLwcf807HhKtuDmD33EXwe6fnCTUzeKPyDbzh+r1A5oV5o5rX jOCD1R9A6Ie4H828Dwg+2H1sPhh8bxD/K4IP8x/Yvs/ecD44vN56o8o/hrqH 2x1i3wZMPiy8YXyw/a5Q8/ZC1UdDzTvs7eAKMj/DHeJ/Mx+IvLSHQx9I/wVf OB/iP19I/OnB3Afly8Hc5wt3L1j/BF9U/9T6osZ3JiYf7J4XbnD+X5B/HrlB 9Of6ooZ3gy9qfKxE8MH2C/jB4w9E/bb0Q43fYDR+sR/EPTeg6acXwQfH1zIE HxJ+fmjpzQ8tPSD4YPt/+sH9A+OD4+sTgo8SHi/9UOP/MoIP8b8fWvhC7RN1 h5hX6QdJb6ZQ/k9o+K7wgsT3N2h4HfWCpj9ofJ7zguZHBB+SfhB8sP5tvhD3 H/KChz9Yfp2XAwBoBNG7 "], {{56.703, 48.616}, {59.027, 52.26800000000001}, {59.550999999999995`, 48.616}}}]}, {EdgeForm[{Thickness[0.004708917526173388], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{345.012, 51.97541300000001}, {345.012, 23.705413000000007`}, {322.094, 0.7914130000000199}, {293.828, 0.7914130000000199}, {265.562, 0.7914130000000199}, {242.64499999999998`, 23.705413000000007`}, { 242.64499999999998`, 51.97541300000001}, {242.64499999999998`, 80.24141300000001}, {265.562, 103.15541300000001`}, {293.828, 103.15541300000001`}, {322.094, 103.15541300000001`}, {345.012, 80.24141300000001}, {345.012, 51.97541300000001}}}]}, {FaceForm[{RGBColor[1., 1., 1.], Opacity[0.889423]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{272.449, 59.690000000000005`}, { 315.207, 59.690000000000005`}, {315.28499999999997`, 59.690000000000005`}, {315.34400000000005`, 59.690000000000005`}, { 315.34400000000005`, 59.690000000000005`}, {315.34400000000005`, 44.257}, {315.34400000000005`, 44.257}, {315.28499999999997`, 44.257}, { 315.207, 44.257}, {272.449, 44.257}, {272.371, 44.257}, {272.312, 44.257}, {272.312, 44.257}, {272.312, 59.690000000000005`}, {272.312, 59.690000000000005`}, {272.371, 59.690000000000005`}, {272.449, 59.690000000000005`}}}]}, {Thickness[0.004708917526173388], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lDtoFFEUhtcHrAgREcFGJakEMYqoaCNeq52ZuwsqiCGw8f0oNDJqp5Wa wiSCVtpsFBUWIfEZSBDUCGKRSlYlGh+J4BpBYhAEQRHc+c+585O7pJji47z/ c+Y27Tu+4+CcTCYzq/btr32za1/jvRNHLo/EZu283qWtX0LT0PygNFXjib+3 f1YmQ3O1fdG5obexOb34Tu7zH/LGC1v3VDPRjNwzVX5hl0SmKcn/htzxffvg 8ldk+Fc0//zI/DizZUNbRev/Cw36exabTUn+l4GZTOyDsSkl8bnAXEniu8kL kv73klFvt+aPNL4tNt+S/AWPi2TocYCMfIcD6cfl69T8sfIj7b+TDD2v1TPq XfTsrZ69QEY/6yPpp0f1+x3KvCXuC3qXtN8JMvYzTkb8SJjmQ/1h3e91j2+Q Mf9N7ed1KPrfUv4Vih4P3b5sypjno5V+77v+rMx3lwx7HxnxfVp/1Eq9Xq33 XO1l9V9h035FH723Lo9PkrGvs+7+85L/vOrZXBD/Dqd/QfS65HE/2d33NH7v /p98ytBnGxn7aSRDr2V50eOd68+m7PTAPhwPk5FviIx5B6zMO6p6lVXPD2T4 j5GxnzGt329l3nHWxz1VVa/NqsdX9T+l81fJqPeJjPgiGftrIWPenfUs/7Nn d/to8fQvklH/EBnxx+oZ+1lIhh5Zz3+u1jvq7jsv/UdOP30/AtV/VyB65vg+ Qe913nu1hoz4VfUs9+LZs/oeriZPy5/V+gNkzPOYjHxP3Hus/k+VVwbmP51K 2Ng= "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIHIGYC4i0nyvbNjytymObcnfP8t6fDItdtn/+mFDm4 AakrHl4Ocbs8eZiyixymguSzvRzA6kuKHP6s/HjJtwjKL0PjV2DymbTbxW72 Ifg+5p2OCVO9HK5WvFQzBPJ9QfylUH4Zgg/Sdq4QTT4Hat48LwctkHw6gg+W T0Lwt4Lsi0Lot+O6vrggFMEH6w9Gsy8QoR/GB7u3FcGH+Q9sXwiCDw4/JD7M frB5eVD1MdDwjkbwYeEN44P1G0HDPxrqPlWo+RFQ8/ig4SkHM88dop+vyMEb pN4U6l5eqHlOCD7YP64IPli/N5r6Imj4iKP5TwLN/zJo8S2HyUeJf5j8JKh+ OUT424LiRxotvsXQ4ocTET9g81jQ4p8BwQe790shXD9Y/QcEPxYUvu8RfLD6 N4Wo+oF8WPzD+DD/gd37Ho3/EY3/uxA1PIF8kDFXMqDu+VMIjx+w+wWg7r/n BpEXgIbXITeI/UA+WP8ON4h6EQQfFl8wPli/BEI/OD1KQdPbDTcHAB+O5XE= "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmI+KF2+b76UvmGxgyHHGpmoJV4OYL4pgs8AAlaY/GqR de4PT6HJf0HTD+QrbCjKmGiI4Hc6Jjy9MKMIVf1UBP9tjb1p3ARMPsw+FPkl aPqXoJm/BGH/vPfLj3mLe8LdB+PD3I/ONwcZ5IDgzwXJpyP0o/ANEXyY/Sjy UxF8mPvR+TD7YHwU905F8GHmw/gA30GxNQ== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmJJKJ0x8W2N/fpiB0OONTJRU7wcYPx575cf8zb3dvh0 yTdJYF2xQ7XIOveHt7wh8kuLHcw7HROeFvg4eDysElk3E6be1+GC0u2fdS1Q frgvRH8Vgn8RJJ+FJh8BNU/BF2K+L9Q9KT4QvitU/XWoe1zQ3OeCcD+MD3bv L08IDZN38XRwB7nXv9hhLkj/cg+Ie6Kg8iweEPtyYf51h/ivEsEHy7cj+GB6 FkI/2P5lUPOPe8DDDywf4umAEt5f0PhA98PsA+tn94C4Nx/BB4dvAtR+K6j5 McUOz3+v/HjpL9T9kdDwKfeE88Hmm3jB+WD1axF8cPgbeKPq3w7lR0P1q/hA 7EuAyotD46sY6h4tX9Tw0oLGbxOCD6YnwcLLF+K/6TD/+EDiYxYs/LzhfLB7 ddH4QPfD+GDzRBB8sHldnnDzIeEH5U+GpQdoeLUiwhc9/AEw1XBk "]]}, {EdgeForm[{Thickness[0.004708917526173388], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0., 1.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{ 223.18800000000002`, 51.97541300000001}, {223.18800000000002`, 23.705413000000007`}, {200.27299999999997`, 0.7914130000000199}, { 172.004, 0.7914130000000199}, {143.738, 0.7914130000000199}, {120.82, 23.705413000000007`}, {120.82, 51.97541300000001}, {120.82, 80.24141300000001}, {143.738, 103.15541300000001`}, {172.004, 103.15541300000001`}, {200.27299999999997`, 103.15541300000001`}, { 223.18800000000002`, 80.24141300000001}, {223.18800000000002`, 51.97541300000001}}}]}, {FaceForm[{RGBColor[1., 1., 1.], Opacity[0.889423]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{159.375, 59.690000000000005`}, { 184.63299999999998`, 59.690000000000005`}, {184.68, 59.690000000000005`}, {184.71499999999997`, 59.690000000000005`}, { 184.71499999999997`, 59.690000000000005`}, {184.71499999999997`, 44.257}, {184.71499999999997`, 44.257}, {184.68, 44.257}, { 184.63299999999998`, 44.257}, {159.375, 44.257}, {159.32800000000003`, 44.257}, {159.29299999999998`, 44.257}, {159.29299999999998`, 44.257}, { 159.29299999999998`, 59.690000000000005`}, {159.29299999999998`, 59.690000000000005`}, {159.32800000000003`, 59.690000000000005`}, { 159.375, 59.690000000000005`}}}]}, {Thickness[0.004708917526173388], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lE1IVFEUxyejles2FonBhC4iCCJFxBuivjf3DVktE4LpXWgRGEWtAje5 qIHG0ZSsTKlN9kEQjQwMFAVWEBRIQR8LoYKSiIiSCpJ675z/fYf7hhaP4Tfn no/7/997WwpDe83aTCazJvoORl9D9FWenLg3c9aoyZ7i4Y81Xx07VP5ysmTU 62c/971f8NXI5z3VTWWj/sx9W8wvCvfNf1998er/XHq40jr41VdU/4ww1R0R pvURr8b13/nqkd55etcp9H+J/IJRvXH9a556HMcHjBqN85s9zv8dJnw0nv+q MNWZDrn+ZuRfCtWb+P+sMK3bIUx6dApTvW6P57mMegXUfxCyPmM5nv+HMOnZ bOqY+ptUfHsqnhWmeRpzPM9G7P85/NogftF8TYjfFyb9qsKk/20/qUf7uQI/ WlKcFb4b528xaiKe5wbibZjvKfzttX7phOm3otmfHjuf5vm7U9wpTHkd0OeO 5n4d6HcR8a1Y/zeXzMv65Di+Erq8IEx+fYDftYDzl3Ee1uX5dxnxxjzrlTEu e8L2fDs8Ye9PkDDp05riXzphnht6jdv7KWz1ID/HrD/CdB/PC9N+S5r3ew48 DD2nhPl8C5MfM+hf1Lzf2VT/65h3PfS4ifUa+58Tpn7TwpR/IXTjZWHqX6xn vs+puPVjNHT1nxKm+reEKb9Wz+THpyBh0mMpcNe/DbhfFeelgvNzHOuH8X4c Cfm+bfM4f0jeJ7pPfan3qkuY8tvrmc9Lvxtf6uf+XcJO/Yip/27j8n5hqjdo 32PED8DvBk/9A212L1w= "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmViYGBQB2IQLdx84NTCh6kO0SnW9/1l3R3e1tibxt1LdYgE8d+6 OYDl76Y6rPp4yTfpAZR/EMFnAIE9CL4qW+NU5+2Y/CUFtlzXDyP4YPPXujmo gfi7EXyY+TA+2HyfNFR+B4IPdu+2NIfVIPsC3OF8sH/uIvhg+509IPbPT3NI fHpB6fZMD4dbP+uy9lSkOSSA+Cs9IOYvgfJPQvkn0hwEIyy3nDDzhPPB/tuA 4EPCz8vhDsi8NWkOUSB+rRfE/joEHyz/JxXOFwL59yuCfxsk/wGTDzY/FsEH u88ToR/Gh5mPiw92L0sanP8O5D6uNAcBkP/cvCDhLwgLL6j7haD+dUDjG+Dm g81Tg7pXAGqesJcDAHIhDxc= "], {{176.824, 49.479}, {177.5, 52.178000000000004`}, {177.602, 52.53}, {177.602, 52.577}, { 178.07399999999998`, 52.577}, {179.77299999999997`, 52.577}, { 180.89800000000002`, 52.577}, {181.176, 51.827}, {181.176, 51.405}, { 181.176, 50.503}, {180.148, 49.479}, {178.648, 49.479}}, {{ 176.30100000000002`, 45.753}, {175.94899999999998`, 45.753}, { 175.92600000000002`, 45.78}, {175.92600000000002`, 45.878}, { 175.92600000000002`, 45.878}, {175.92600000000002`, 45.928000000000004`}, {175.977, 46.104}, {176.75, 49.155}, {179.125, 49.155}, {180.148, 49.155}, {180.57399999999998`, 48.452}, { 180.57399999999998`, 47.827}, {180.57399999999998`, 46.702000000000005`}, {179.42600000000002`, 45.753}, { 178.07399999999998`, 45.753}}}]}, {FaceForm[{RGBColor[1., 1., 1.], Opacity[0.889423]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{159.375, 59.690000000000005`}, { 184.63299999999998`, 59.690000000000005`}, {184.68, 59.690000000000005`}, {184.71499999999997`, 59.690000000000005`}, { 184.71499999999997`, 59.690000000000005`}, {184.71499999999997`, 44.257}, {184.71499999999997`, 44.257}, {184.68, 44.257}, { 184.63299999999998`, 44.257}, {159.375, 44.257}, {159.32800000000003`, 44.257}, {159.29299999999998`, 44.257}, {159.29299999999998`, 44.257}, { 159.29299999999998`, 59.690000000000005`}, {159.29299999999998`, 59.690000000000005`}, {159.32800000000003`, 59.690000000000005`}, { 159.375, 59.690000000000005`}}}]}, {Thickness[0.004708917526173388], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lE1IVFEUxyejles2FonBhC4iCCJFxBuivjf3DVktE4LpXWgRGEWtAje5 qIHG0ZSsTKlN9kEQjQwMFAVWEBRIQR8LoYKSiIiSCpJ675z/fYf7hhaP4Tfn no/7/997WwpDe83aTCazJvoORl9D9FWenLg3c9aoyZ7i4Y81Xx07VP5ysmTU 62c/971f8NXI5z3VTWWj/sx9W8wvCvfNf1998er/XHq40jr41VdU/4ww1R0R pvURr8b13/nqkd55etcp9H+J/IJRvXH9a556HMcHjBqN85s9zv8dJnw0nv+q MNWZDrn+ZuRfCtWb+P+sMK3bIUx6dApTvW6P57mMegXUfxCyPmM5nv+HMOnZ bOqY+ptUfHsqnhWmeRpzPM9G7P85/NogftF8TYjfFyb9qsKk/20/qUf7uQI/ WlKcFb4b528xaiKe5wbibZjvKfzttX7phOm3otmfHjuf5vm7U9wpTHkd0OeO 5n4d6HcR8a1Y/zeXzMv65Di+Erq8IEx+fYDftYDzl3Ee1uX5dxnxxjzrlTEu e8L2fDs8Ye9PkDDp05riXzphnht6jdv7KWz1ID/HrD/CdB/PC9N+S5r3ew48 DD2nhPl8C5MfM+hf1Lzf2VT/65h3PfS4ifUa+58Tpn7TwpR/IXTjZWHqX6xn vs+puPVjNHT1nxKm+reEKb9Wz+THpyBh0mMpcNe/DbhfFeelgvNzHOuH8X4c Cfm+bfM4f0jeJ7pPfan3qkuY8tvrmc9Lvxtf6uf+XcJO/Yip/27j8n5hqjdo 32PED8DvBk/9A212L1w= "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmViYGBQB2IQLdx84NTCh6kO0SnW9/1l3R3e1tibxt1LdYgE8d+6 OYDl76Y6rPp4yTfpAZR/EMFnAIE9CL4qW+NU5+2Y/CUFtlzXDyP4YPPXujmo gfi7EXyY+TA+2HyfNFR+B4IPdu+2NIfVIPsC3OF8sH/uIvhg+509IPbPT3NI fHpB6fZMD4dbP+uy9lSkOSSA+Cs9IOYvgfJPQvkn0hwEIyy3nDDzhPPB/tuA 4EPCz8vhDsi8NWkOUSB+rRfE/joEHyz/JxXOFwL59yuCfxsk/wGTDzY/FsEH u88ToR/Gh5mPiw92L0sanP8O5D6uNAcBkP/cvCDhLwgLL6j7haD+dUDjG+Dm g81Tg7pXAGqesJcDAHIhDxc= "], {{176.824, 49.479}, {177.5, 52.178000000000004`}, {177.602, 52.53}, {177.602, 52.577}, { 178.07399999999998`, 52.577}, {179.77299999999997`, 52.577}, { 180.89800000000002`, 52.577}, {181.176, 51.827}, {181.176, 51.405}, { 181.176, 50.503}, {180.148, 49.479}, {178.648, 49.479}}, {{ 176.30100000000002`, 45.753}, {175.94899999999998`, 45.753}, { 175.92600000000002`, 45.78}, {175.92600000000002`, 45.878}, { 175.92600000000002`, 45.878}, {175.92600000000002`, 45.928000000000004`}, {175.977, 46.104}, {176.75, 49.155}, {179.125, 49.155}, {180.148, 49.155}, {180.57399999999998`, 48.452}, { 180.57399999999998`, 47.827}, {180.57399999999998`, 46.702000000000005`}, {179.42600000000002`, 45.753}, { 178.07399999999998`, 45.753}}}]}}, AspectRatio->Automatic, ImageSize->{435.34765625, 131.}, PlotRange->{{0., 345.83935499999995`}, {0., 103.97141300000001`}}]], "Input",\ ExpressionUUID->"9101e04f-27d8-4607-9509-54fc2d97ecd7"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["We\[CloseCurlyQuote]ll also consider the following pairwise \ interactions", "Item", CellChangeTimes->{{3.859837034844932*^9, 3.859837061124136*^9}, { 3.859837096391074*^9, 3.859837105920506*^9}},ExpressionUUID->"0fdec1ab-d178-4d81-9c2d-\ a5f7ff138b12"], Cell[TextData[{ Cell[BoxData[ FormBox[ SubscriptBox["E", "AA"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "ebd28ce1-b884-4f76-97bc-973d0b6b3121"], " : the energy associated with an A\[LongDash]A pair" }], "Subitem", CellChangeTimes->{{3.859837034844932*^9, 3.859837061124136*^9}, { 3.859837096391074*^9, 3.8598371209181128`*^9}},ExpressionUUID->"184a6b8b-2135-4e78-8e3f-\ 4acca3b6cb8a"], Cell[TextData[{ Cell[BoxData[ FormBox[ SubscriptBox["E", "BB"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "cc705d4b-d157-484f-8d1d-efb8714194b1"], " : the energy associated with an B\[LongDash]B pair" }], "Subitem", CellChangeTimes->{{3.859837034844932*^9, 3.859837061124136*^9}, { 3.859837096391074*^9, 3.859837126023999*^9}},ExpressionUUID->"49cad491-d40d-479b-a537-\ 51e04760c657"], Cell[TextData[{ Cell[BoxData[ FormBox[ SubscriptBox["E", "AB"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "2a51cdf0-6afe-48d2-9791-361cfe8c4cd7"], " : the energy associated with an A\[LongDash]B pair" }], "Subitem", CellChangeTimes->{{3.859837034844932*^9, 3.859837061124136*^9}, { 3.859837096391074*^9, 3.859837149992826*^9}},ExpressionUUID->"682920f5-e1a4-486c-bcaa-\ c0bdea372548"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Notes:", FontWeight->"Bold"]], "Subitem", CellChangeTimes->{{3.859837034844932*^9, 3.859837061124136*^9}, { 3.859837096391074*^9, 3.859837155164832*^9}},ExpressionUUID->"8ec61542-94ad-4f5b-85f3-\ 4699e8e07a3f"], Cell["\<\ Pairwise \[OpenCurlyDoubleQuote]interactions\[CloseCurlyDoubleQuote] with \ empty vacancy sites cost no energy\ \>", "Subsubitem", CellChangeTimes->{{3.859837034844932*^9, 3.859837061124136*^9}, { 3.859837096391074*^9, 3.859837179640952*^9}, {3.859843156588717*^9, 3.859843157962862*^9}},ExpressionUUID->"c33688f4-c909-4d3b-b0ad-\ bd029c337c59"], Cell[CellGroupData[{ Cell["\<\ We can use a \[OpenCurlyDoubleQuote]weight\[CloseCurlyDoubleQuote] \[Alpha] \ to denote interactions of second nearest-neighbors\ \>", "Subsubitem", CellChangeTimes->{{3.859837034844932*^9, 3.859837061124136*^9}, { 3.859837096391074*^9, 3.859837251590494*^9}, {3.859844141426702*^9, 3.8598441431051607`*^9}},ExpressionUUID->"07ae48af-0aa3-4ee7-b810-\ d7802c5ebb50"], Cell[BoxData[ GraphicsBox[ {Thickness[0.0016973186833842623`], {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0., 1.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{101.777, 127.703429}, {101.777, 113.816429}, {90.523, 102.558429}, {76.637, 102.558429}, {62.75, 102.558429}, {51.492000000000004`, 113.816429}, { 51.492000000000004`, 127.703429}, {51.492000000000004`, 141.590429}, { 62.75, 152.84442900000002`}, {76.637, 152.84442900000002`}, {90.523, 152.84442900000002`}, {101.777, 141.590429}, {101.777, 127.703429}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{152.863, 76.61742900000002}, {152.863, 62.730429}, {141.60899999999998`, 51.47342900000001}, {127.723, 51.47342900000001}, {113.836, 51.47342900000001}, {102.57799999999999`, 62.730429}, { 102.57799999999999`, 76.61742900000002}, {102.57799999999999`, 90.504429}, {113.836, 101.76242900000001`}, {127.723, 101.76242900000001`}, {141.60899999999998`, 101.76242900000001`}, { 152.863, 90.504429}, {152.863, 76.61742900000002}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0., 1.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{152.863, 25.531429000000003`}, {152.863, 11.644429000000002`}, { 141.60899999999998`, 0.38742899999999736`}, {127.723, 0.38742899999999736`}, {113.836, 0.38742899999999736`}, { 102.57799999999999`, 11.644429000000002`}, {102.57799999999999`, 25.531429000000003`}, {102.57799999999999`, 39.41842900000002}, {113.836, 50.67642900000001}, {127.723, 50.67642900000001}, {141.60899999999998`, 50.67642900000001}, {152.863, 39.41842900000002}, {152.863, 25.531429000000003`}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0., 1.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{50.691, 76.61742900000002}, {50.691, 62.730429}, {39.438, 51.47342900000001}, { 25.551000000000002`, 51.47342900000001}, {11.664, 51.47342900000001}, { 0.406, 62.730429}, {0.406, 76.61742900000002}, {0.406, 90.504429}, { 11.664, 101.76242900000001`}, {25.551000000000002`, 101.76242900000001`}, {39.438, 101.76242900000001`}, {50.691, 90.504429}, {50.691, 76.61742900000002}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{50.691, 25.531429000000003`}, {50.691, 11.644429000000002`}, {39.438, 0.38742899999999736`}, {25.551000000000002`, 0.38742899999999736`}, { 11.664, 0.38742899999999736`}, {0.406, 11.644429000000002`}, {0.406, 25.531429000000003`}, {0.406, 39.41842900000002}, {11.664, 50.67642900000001}, {25.551000000000002`, 50.67642900000001}, {39.438, 50.67642900000001}, {50.691, 39.41842900000002}, {50.691, 25.531429000000003`}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{101.777, 25.531429000000003`}, {101.777, 11.644429000000002`}, {90.523, 0.38742899999999736`}, {76.637, 0.38742899999999736`}, {62.75, 0.38742899999999736`}, {51.492000000000004`, 11.644429000000002`}, { 51.492000000000004`, 25.531429000000003`}, {51.492000000000004`, 39.41842900000002}, {62.75, 50.67642900000001}, {76.637, 50.67642900000001}, {90.523, 50.67642900000001}, {101.777, 39.41842900000002}, {101.777, 25.531429000000003`}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{50.691, 127.703429}, {50.691, 113.816429}, {39.438, 102.558429}, { 25.551000000000002`, 102.558429}, {11.664, 102.558429}, {0.406, 113.816429}, {0.406, 127.703429}, {0.406, 141.590429}, {11.664, 152.84442900000002`}, {25.551000000000002`, 152.84442900000002`}, { 39.438, 152.84442900000002`}, {50.691, 141.590429}, {50.691, 127.703429}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{152.863, 127.703429}, {152.863, 113.816429}, {141.60899999999998`, 102.558429}, { 127.723, 102.558429}, {113.836, 102.558429}, {102.57799999999999`, 113.816429}, {102.57799999999999`, 127.703429}, {102.57799999999999`, 141.590429}, {113.836, 152.84442900000002`}, {127.723, 152.84442900000002`}, {141.60899999999998`, 152.84442900000002`}, { 152.863, 141.590429}, {152.863, 127.703429}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{101.777, 76.61742900000002}, {101.777, 62.730429}, {90.523, 51.47342900000001}, { 76.637, 51.47342900000001}, {62.75, 51.47342900000001}, { 51.492000000000004`, 62.730429}, {51.492000000000004`, 76.61742900000002}, {51.492000000000004`, 90.504429}, {62.75, 101.76242900000001`}, {76.637, 101.76242900000001`}, {90.523, 101.76242900000001`}, {101.777, 90.504429}, {101.777, 76.61742900000002}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{315.648, 127.703429}, {315.648, 113.816429}, {304.39099999999996`, 102.558429}, { 290.504, 102.558429}, {276.617, 102.558429}, {265.363, 113.816429}, { 265.363, 127.703429}, {265.363, 141.590429}, {276.617, 152.84442900000002`}, {290.504, 152.84442900000002`}, { 304.39099999999996`, 152.84442900000002`}, {315.648, 141.590429}, { 315.648, 127.703429}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{366.734, 76.61742900000002}, {366.734, 62.730429}, {355.477, 51.47342900000001}, {341.59, 51.47342900000001}, {327.703, 51.47342900000001}, {316.449, 62.730429}, {316.449, 76.61742900000002}, { 316.449, 90.504429}, {327.703, 101.76242900000001`}, {341.59, 101.76242900000001`}, {355.477, 101.76242900000001`}, {366.734, 90.504429}, {366.734, 76.61742900000002}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{366.734, 25.531429000000003`}, {366.734, 11.644429000000002`}, {355.477, 0.38742899999999736`}, {341.59, 0.38742899999999736`}, {327.703, 0.38742899999999736`}, {316.449, 11.644429000000002`}, {316.449, 25.531429000000003`}, {316.449, 39.41842900000002}, {327.703, 50.67642900000001}, {341.59, 50.67642900000001}, {355.477, 50.67642900000001}, {366.734, 39.41842900000002}, {366.734, 25.531429000000003`}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{264.562, 76.61742900000002}, {264.562, 62.730429}, {253.305, 51.47342900000001}, {239.418, 51.47342900000001}, {225.531, 51.47342900000001}, {214.277, 62.730429}, {214.277, 76.61742900000002}, { 214.277, 90.504429}, {225.531, 101.76242900000001`}, {239.418, 101.76242900000001`}, {253.305, 101.76242900000001`}, {264.562, 90.504429}, {264.562, 76.61742900000002}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{264.562, 25.531429000000003`}, {264.562, 11.644429000000002`}, {253.305, 0.38742899999999736`}, {239.418, 0.38742899999999736`}, {225.531, 0.38742899999999736`}, {214.277, 11.644429000000002`}, {214.277, 25.531429000000003`}, {214.277, 39.41842900000002}, {225.531, 50.67642900000001}, {239.418, 50.67642900000001}, {253.305, 50.67642900000001}, {264.562, 39.41842900000002}, {264.562, 25.531429000000003`}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{315.648, 25.531429000000003`}, {315.648, 11.644429000000002`}, { 304.39099999999996`, 0.38742899999999736`}, {290.504, 0.38742899999999736`}, {276.617, 0.38742899999999736`}, {265.363, 11.644429000000002`}, {265.363, 25.531429000000003`}, {265.363, 39.41842900000002}, {276.617, 50.67642900000001}, {290.504, 50.67642900000001}, {304.39099999999996`, 50.67642900000001}, {315.648, 39.41842900000002}, {315.648, 25.531429000000003`}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0., 1.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{264.562, 127.703429}, {264.562, 113.816429}, {253.305, 102.558429}, {239.418, 102.558429}, {225.531, 102.558429}, {214.277, 113.816429}, {214.277, 127.703429}, {214.277, 141.590429}, {225.531, 152.84442900000002`}, { 239.418, 152.84442900000002`}, {253.305, 152.84442900000002`}, {264.562, 141.590429}, {264.562, 127.703429}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{366.734, 127.703429}, {366.734, 113.816429}, {355.477, 102.558429}, {341.59, 102.558429}, {327.703, 102.558429}, {316.449, 113.816429}, {316.449, 127.703429}, {316.449, 141.590429}, {327.703, 152.84442900000002`}, { 341.59, 152.84442900000002`}, {355.477, 152.84442900000002`}, {366.734, 141.590429}, {366.734, 127.703429}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{315.648, 76.61742900000002}, {315.648, 62.730429}, {304.39099999999996`, 51.47342900000001}, {290.504, 51.47342900000001}, {276.617, 51.47342900000001}, {265.363, 62.730429}, {265.363, 76.61742900000002}, { 265.363, 90.504429}, {276.617, 101.76242900000001`}, {290.504, 101.76242900000001`}, {304.39099999999996`, 101.76242900000001`}, { 315.648, 90.504429}, {315.648, 76.61742900000002}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{537.672, 127.703429}, {537.672, 113.816429}, {526.414, 102.558429}, { 512.5269999999999, 102.558429}, {498.64500000000004`, 102.558429}, { 487.387, 113.816429}, {487.387, 127.703429}, {487.387, 141.590429}, { 498.64500000000004`, 152.84442900000002`}, {512.5269999999999, 152.84442900000002`}, {526.414, 152.84442900000002`}, {537.672, 141.590429}, {537.672, 127.703429}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{588.758, 76.61742900000002}, {588.758, 62.730429}, {577.5, 51.47342900000001}, { 563.613, 51.47342900000001}, {549.727, 51.47342900000001}, { 538.4730000000001, 62.730429}, {538.4730000000001, 76.61742900000002}, { 538.4730000000001, 90.504429}, {549.727, 101.76242900000001`}, {563.613, 101.76242900000001`}, {577.5, 101.76242900000001`}, {588.758, 90.504429}, {588.758, 76.61742900000002}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{588.758, 25.531429000000003`}, {588.758, 11.644429000000002`}, {577.5, 0.38742899999999736`}, {563.613, 0.38742899999999736`}, {549.727, 0.38742899999999736`}, {538.4730000000001, 11.644429000000002`}, { 538.4730000000001, 25.531429000000003`}, {538.4730000000001, 39.41842900000002}, {549.727, 50.67642900000001}, {563.613, 50.67642900000001}, {577.5, 50.67642900000001}, {588.758, 39.41842900000002}, {588.758, 25.531429000000003`}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{ 486.58599999999996`, 76.61742900000002}, {486.58599999999996`, 62.730429}, {475.328, 51.47342900000001}, {461.441, 51.47342900000001}, { 447.559, 51.47342900000001}, {436.301, 62.730429}, {436.301, 76.61742900000002}, {436.301, 90.504429}, {447.559, 101.76242900000001`}, {461.441, 101.76242900000001`}, {475.328, 101.76242900000001`}, {486.58599999999996`, 90.504429}, { 486.58599999999996`, 76.61742900000002}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{ 486.58599999999996`, 25.531429000000003`}, {486.58599999999996`, 11.644429000000002`}, {475.328, 0.38742899999999736`}, {461.441, 0.38742899999999736`}, {447.559, 0.38742899999999736`}, {436.301, 11.644429000000002`}, {436.301, 25.531429000000003`}, {436.301, 39.41842900000002}, {447.559, 50.67642900000001}, {461.441, 50.67642900000001}, {475.328, 50.67642900000001}, {486.58599999999996`, 39.41842900000002}, {486.58599999999996`, 25.531429000000003`}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{537.672, 25.531429000000003`}, {537.672, 11.644429000000002`}, {526.414, 0.38742899999999736`}, {512.5269999999999, 0.38742899999999736`}, { 498.64500000000004`, 0.38742899999999736`}, {487.387, 11.644429000000002`}, {487.387, 25.531429000000003`}, {487.387, 39.41842900000002}, {498.64500000000004`, 50.67642900000001}, { 512.5269999999999, 50.67642900000001}, {526.414, 50.67642900000001}, { 537.672, 39.41842900000002}, {537.672, 25.531429000000003`}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0., 1.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{ 486.58599999999996`, 127.703429}, {486.58599999999996`, 113.816429}, { 475.328, 102.558429}, {461.441, 102.558429}, {447.559, 102.558429}, { 436.301, 113.816429}, {436.301, 127.703429}, {436.301, 141.590429}, { 447.559, 152.84442900000002`}, {461.441, 152.84442900000002`}, {475.328, 152.84442900000002`}, {486.58599999999996`, 141.590429}, { 486.58599999999996`, 127.703429}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{588.758, 127.703429}, {588.758, 113.816429}, {577.5, 102.558429}, {563.613, 102.558429}, {549.727, 102.558429}, {538.4730000000001, 113.816429}, { 538.4730000000001, 127.703429}, {538.4730000000001, 141.590429}, { 549.727, 152.84442900000002`}, {563.613, 152.84442900000002`}, {577.5, 152.84442900000002`}, {588.758, 141.590429}, {588.758, 127.703429}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{537.672, 76.61742900000002}, {537.672, 62.730429}, {526.414, 51.47342900000001}, {512.5269999999999, 51.47342900000001}, { 498.64500000000004`, 51.47342900000001}, {487.387, 62.730429}, {487.387, 76.61742900000002}, {487.387, 90.504429}, {498.64500000000004`, 101.76242900000001`}, {512.5269999999999, 101.76242900000001`}, {526.414, 101.76242900000001`}, {537.672, 90.504429}, {537.672, 76.61742900000002}}}]}, {Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}], JoinedCurveBox[{{{0, 2, 0}}}, {{{77.562, 127.828429}, {77.562, 77.293429}}}, CurveClosed->{0}]}, {EdgeForm[{Thickness[0.0006789274733537049], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{77.562, 124.625429}, {79.164, 123.02742900000001`}, {77.562, 128.625429}, { 75.965, 123.02742900000001`}}}]}, {EdgeForm[{Thickness[0.0006789274733537049], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{77.562, 80.492429}, {75.965, 82.09042900000001}, {77.562, 76.492429}, {79.164, 82.09042900000001}}}]}, {Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}], JoinedCurveBox[{{{0, 2, 0}}}, {{{127.695, 76.57842900000001}, {77.16, 76.57842900000001}}}, CurveClosed->{0}]}, {EdgeForm[{Thickness[0.0006789274733537049], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 124.49600000000001`, 76.57842900000001}, {122.895, 74.980429}, {128.496, 76.57842900000001}, {122.895, 78.180429}}}]}, {EdgeForm[{Thickness[0.0006789274733537049], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{80.359, 76.57842900000001}, {81.96100000000001, 78.180429}, {76.359, 76.57842900000001}, {81.96100000000001, 74.980429}}}]}, {FaceForm[{RGBColor[1., 1., 1.], Opacity[0.894231]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{86.84, 81.141}, {120.426, 81.141}, { 120.488, 81.141}, {120.535, 81.141}, {120.535, 81.141}, {120.535, 65.71100000000001}, {120.535, 65.71100000000001}, {120.488, 65.71100000000001}, {120.426, 65.71100000000001}, {86.84, 65.71100000000001}, {86.781, 65.71100000000001}, {86.73400000000001, 65.71100000000001}, {86.73400000000001, 65.71100000000001}, { 86.73400000000001, 81.141}, {86.73400000000001, 81.141}, {86.781, 81.141}, {86.84, 81.141}}}]}, {Thickness[0.0006789274733537049], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lEtoFEEQhjdrUIigGFajIoIighcTQUwuwSYgEV9xZmSmNyKGDZKIJhEV hCUHdRFEEZ+gCB40grcoegsKHjQeBD0qomjAx0l8HcQHwZmqf+ZnevEwh4+q /v+qrppeVhnx98woFAoN8dcff8X4m6qWxrt/WfNi7EBnU49vrgw31x7+tubu tS+3JgPfPDh8cWHjtDWzk4RectubFTOP7fo/n7kcCw36RvS/kQ8Nnv88+oks +R+taUr0K76Js6eq7625l/jvxPnr1rQm+o89Mz+Jj+L8UU/PP4sylvqXk8Wv JVL9457qlyLtr+bwabLcx1my6J3ztJ5F0LsB/d2R3s8E6n9ElnoW2zoWvzGy 6J1y4jWy1HME+iX0bxFv5rykvnmIbyfLfLY68Y3UE/8uzGOpwyvJcn4V6ulG fDU4wnwHMK8NQcZS3+ZA662k9YF7HfbJcr4H/psC9dsGv/WItyP/K+sVfol6 nkR5HiBL/zcx7+fQH8c+/ID+bcR/Brp/r8lyfr/NON3vHM8q6/xfkeV+TpBl PkNk8d+H+yiW8X+S0/uQeTSAu8ii10mWfjtQbyO4Df3OIet+k3X/4N+O/pc4 /mvK+r/+gf5a5Lfs0H5ayeK3gKz7GOXj02HG4v+9nsW/6MTT+fwN8/c/l/MS /XVk3bd6lvl8IMt9vHPy36LfLdiXp9CfDDX/Dt6r++CTeJ8mwux9kv73hvn3 KiKrfj3rvjjxPryHITmn3wf/qs3zBbLoXUrfY8Svgg965h8sypqp "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGBwBGIQzXV9cYHtqkiHvSWTJVjkAh1CHi+dfWQClP8twIEb JF8V6cDWONW5+0kARD4g0uFhlcg694dQvgeC/+yC0u2fdpj8GXlCzQcuIfjT QfxTAQ76d1XYGl0jHSy3nCjbdzzAAeweLwR/89z3y49FI/ibQPxihP6nIPPa EHwDkHlzEXyw/t0I/WD3XkAz7zKCD3bfPRz86wg+zH9g919F8MHuv4Tgg91z Fur/R1D7NmPyYeEN41uB7PsPDf9dUP9wBULM2ws1XzAQ4v9vUPmsQIj+w1Go /MtRkPj7AnMflP8G5r4ouHvB6hcj+GD7Z0WhxvcEHPyLCD7YP+eg9k2KQo3P 2VGo8bEhCjU+HkfB4w8s/yMKNb2wRqPyRaMh9p+E2qeE4IPjSw/BB/vXNhot vUWj2h8cjeq+iGi4f1D41xB8lPAIiEZNH64IPtj/0tGo4SsFte85VL8ElP8d yr8BDd+NQZD4vhYFSR/7g6DpDxqfR4Ig6k8g+JD0g+CD9W+Dxs++IHj4g+W3 BDkAAJLuAZQ= "], {{104.137, 70.071}, {106.46100000000001`, 73.71900000000001}, {106.98400000000001`, 70.071}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGBwBGIQbbXlRNk+/hiHvSWTJVjkAh2aD5xa6PotGsL/FuAA lr8f7cDWONW5+0kARH5btMPDKpF17g+h/HUIPoisWoLJn5En1HzgEoI/HcQ/ FeAQu8uTh2l1tIMlyJ7jUPvWI/hgcw6i8W8i9IPNe4Pgx4PMY46B88HqFWPg +sHuNYtBNc8SwQeb54KDfx3Bh/kvDmSfNYIPVmeO4IPdYxwD8f8jqH2SmHxY eMP44HD4Dw0Peah/uAIh5ilDzRcMdBAFuScGKp8VCBHXjEXlW8ZC4u8LzH1Q /huY+2Lh7gXTnAg+xB0xqPH9DQf/IoIP9s85qH3f0cKbMRY1PsRiUeU9Y+Hx B5aPi0VNL9kIPjj8q6HuPQm1rx3BB8fXFAQf7N/FsWjpDc3+nWju2xcL9w8K /xqCjxIe2xB8SPpGC99GtPCth9r3HKq/Dsr/DuXbQdVvDILEt00sRN/+IGj6 g8bnkSCIej0EH5J+EHywfhmo+/cFwcMfLL8lyAEAatvbyw== "], {{113.723, 70.071}, {116.04700000000001`, 73.71900000000001}, {116.57, 70.071}}}]}, {FaceForm[{RGBColor[1., 1., 1.], Opacity[0.889423]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{62.152, 110.74600000000001`}, { 95.738, 110.74600000000001`}, {95.801, 110.74600000000001`}, {95.848, 110.74600000000001`}, {95.848, 110.74600000000001`}, {95.848, 95.31700000000001}, {95.848, 95.31700000000001}, {95.801, 95.31700000000001}, {95.738, 95.31700000000001}, {62.152, 95.31700000000001}, {62.094, 95.31700000000001}, {62.047, 95.31700000000001}, {62.047, 95.31700000000001}, {62.047, 110.74600000000001`}, {62.047, 110.74600000000001`}, {62.094, 110.74600000000001`}, {62.152, 110.74600000000001`}}}]}, {Thickness[0.0006789274733537049], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lE1IVFEUx8ekSNu1cRFYQyJFUVDYZpC5USGC2HvXRe+9MReWoRC2ElrY IsRVaLVSiYjAFkLRB4WjEalY0qJPKhKRiCg/Rk2DjJDAeef83z3MHVw8hh/n 3vM/53/O3HjjBd1UGIvFCrLfmey3Kfu1XF9sT77WanVP/dWxJ77a2Zlx02+0 6m3d3jEy7KvjV87PrL3XasfB6bIto8KqomG4enxjbkp8Pdn11lfNYf4Xwgtu urTzqTCdH0L+V77q6skKp6E/hvttWiXD/PsRd7Q6G96f8fj+bddwaVj/qmM4 E+plHM4/5/H9WUeFPyPzwqT3W5j8+CNM+f56ivxaRL4in/MfdpnjAZ/vFSY/ l/KZ9Iut+IqfG58Xpnqm0f+sy/4997nfn66ZF/n1A34MCtN8HgvT/fuSj/QH MI8Vi/8JU///Uc89xAuwP88w3wTmdTcwTPU9CrjeI5jfIPo/IEzxcmHydzf2 42HAenHo3UF8G86fCky91F8S+jcsTghT/xfRT0WK71+Gn0GK83cgfjrF5x9Y rLThaL9zeAr1HxUmfxYCwzSfj8Kk/wF+fI7+n8KRHzTPT+ABYcrXL0z93kK/ X+BXD/z6Jsz7Lcz7B/2buL9s6W+u43ob4cfWOj5/Cf4VCh8L9ea0Yd5HxzC/ H8LU78t8Jv0WKx7N450w6X8XJv0imR/vWz7TfGqEyY8q6/wJ6O3CvhxC/X14 L0rw/7rmsP+/PPazW94n8rvSeq/2CXP+fOZ9seITHve3Vzgn/wT0a7Vh6uec MOVrjt5jnG8FT3pqHV+PyX8= "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGBwBGIQ3Xzg1ELXumCHMyDQEuFw+2dd1p6UYIezIH5MhANY 3i/YQYWtcaqzN1ReJdjhPwi4RzjcAfFlEPz4XZ48TMKY/HwhoEmWCH4eiG8Y 4bDt898rFZLBDl48TNrtelD75BB8qy0nyvbpI/iWIL47Qn8cyLxoNPMKEXyw /n6EfrD7l6CZtxzBB7tvMw6+HYIP8x/YvpUIPtj9y9DkF0Ld4wm1rx2TDwtv GN8TZF8a1Lw+qPpCqHkToeaXRzjEgtxzGip/Eap/eggqf3mIgyoo/qJh7oPy g2HuC4G7F6y+PATVP3kIPiR94OCbI/jg9GQC1Z8Wghqf+SGo8dESghof20Pg 8QeWPxOCGr830fgvQxwYQMAAat83BB8cX8yhcD5YvWAoWnoLRbVfPRTVfTqh cP/A+OD4skHwUcJDJRQ1/iURfLD/36OF7zuo//2g+t9A+XFQ/hqoevEoSHyv DoGkD7UoaPoLgeRP7ShIfpyD4EPSD4IP1t8NjR+VKHj4g9ODdJQDAE1C7xQ= "], {{79.44900000000001, 99.67599999999999}, {81.773, 103.32499999999999`}, {82.29700000000001, 99.67599999999999}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmViYGBQB2IQ3Ts9T6j5RqiDJw+TdntahAPX9cUFtpdCHbxAfL8I B7D8hVCH/yDgDuXPQPAzJ76tse9F8DfNfb/8WDMmP1+o+cApSwQfbL4elN+N 4MPMh/HB5q8Ng/MzQHzVcDgf7N6mcAcGEGhA8MH+OYbgg+3/CbUvONzhDAio RDo8vaB0+ydbuMNZEF8nEmJfLJRvEwmxb2m4gypb41TnYgQfbN8GBB9s37NI h2cg8/KgfLEoiP1CCD5Yni8Mzgf7lwHBB7vnWyh2PhuCD3bfn0i4fhgfZj4u Pth/sgg+2H1aYRD//YaaZxEGDa9IB26QvFUYJD6/I/hg/3/AzVcBmfcaGr5m YQ55IPMeRjoAAFl9GLQ= "], {{89.16, 100.85199999999999`}, {89.832, 103.551}, {89.93400000000001, 103.903}, {89.93400000000001, 103.95}, { 90.41000000000001, 103.95}, {92.109, 103.95}, {93.23400000000001, 103.95}, {93.508, 103.2}, {93.508, 102.77799999999999`}, {93.508, 101.87499999999999`}, {92.48400000000001, 100.85199999999999`}, { 90.98400000000001, 100.85199999999999`}}, {{88.633, 97.12499999999999}, {88.285, 97.12499999999999}, {88.258, 97.15299999999999}, {88.258, 97.25}, {88.258, 97.25}, {88.258, 97.301}, {88.309, 97.477}, {89.082, 100.52799999999999`}, { 91.45700000000001, 100.52799999999999`}, {92.48400000000001, 100.52799999999999`}, {92.91000000000001, 99.82499999999999}, { 92.91000000000001, 99.2}, {92.91000000000001, 98.07499999999999}, { 91.758, 97.12499999999999}, {90.41000000000001, 97.12499999999999}}}]}, {FaceForm[{RGBColor[1., 1., 1.], Opacity[0.894231]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{287.98799999999994`, 95.31700000000001}, {342.02, 95.31700000000001}, {342.117, 95.31700000000001}, {342.191, 95.31700000000001}, {342.191, 95.31700000000001}, {342.191, 79.887}, {342.191, 79.887}, {342.117, 79.887}, {342.02, 79.887}, {287.98799999999994`, 79.887}, { 287.89099999999996`, 79.887}, {287.816, 79.887}, {287.816, 79.887}, { 287.816, 95.31700000000001}, {287.816, 95.31700000000001}, { 287.89099999999996`, 95.31700000000001}, {287.98799999999994`, 95.31700000000001}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0.501961, 0.], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}}}, {{{26.288999999999998`, 25.879429000000002`}, {77.16, 76.57842900000001}}}]}, {EdgeForm[{Thickness[0.000039086847337620836`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 28.554077949000025`, 28.137022069999986`}, {28.55882373700004, 30.39827297299999}, {25.723074640000036`, 25.313393157999982`}, { 30.820322234000017`, 28.13326635499999}}}]}, {EdgeForm[{Thickness[0.000039086847337620836`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{74.89507133100004, 74.32068631899999}, {74.890325543, 72.059435416}, {77.72707464000003, 77.145311922}, {72.63282042800002, 74.32443541599999}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0.501961, 0.], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}}}, {{{239.21499999999997`, 128.101429}, {289.91799999999995`, 77.230429}}}]}, {EdgeForm[{Thickness[0.000039086847337620836`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 241.47198582600004`, 125.83593982100001`}, {243.734236729, 125.83219072400007`}, {238.64836022300008`, 128.66893982100004`}, { 241.46923672900002`, 123.57468560900008`}}}]}, {EdgeForm[{Thickness[0.000039086847337620836`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{287.6566500750001, 79.49594312999997}, {285.3943991720001, 79.49969222700007}, { 290.48027898700013`, 76.66493982100002}, {287.6604057900001, 81.76218741500001}}}]}, {Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}], JoinedCurveBox[{{{0, 2, 0}}}, {{{342.371, 76.949429}, { 291.83599999999996`, 76.949429}}}, CurveClosed->{0}]}, {EdgeForm[{Thickness[0.0006789274733537049], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{339.172, 76.949429}, {337.57, 75.34842900000001}, {343.172, 76.949429}, {337.57, 78.54742900000001}}}]}, {EdgeForm[{Thickness[0.0006789274733537049], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{295.039, 76.949429}, {296.637, 78.54742900000001}, {291.039, 76.949429}, {296.637, 75.34842900000001}}}]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0.501961, 0.], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}}}, {{{289.633, 75.109429}, {238.762, 24.406429000000003`}}}]}, {EdgeForm[{Thickness[0.000039086847337620836`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 287.36710098300006`, 72.85241543300003}, {287.3633518860001, 70.59016453000004}, {290.2001009830001, 75.676041036}, { 285.1048500800001, 72.85616452999997}}}]}, {EdgeForm[{Thickness[0.000039086847337620836`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 241.02710429200008`, 26.667751183999997`}, {241.03085338900004`, 28.93000208699999}, {238.19610098300006`, 23.84412227200002}, { 243.28935519500007`, 26.66400208700003}}}]}, {FaceForm[{RGBColor[1., 1., 1.], Opacity[0.894231]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{33.234, 53.063}, {78.504, 53.063}, { 78.586, 53.063}, {78.648, 53.063}, {78.648, 53.063}, {78.648, 37.633}, { 78.648, 37.633}, {78.586, 37.633}, {78.504, 37.633}, {33.234, 37.633}, { 33.156, 37.633}, {33.09, 37.633}, {33.09, 37.633}, {33.09, 53.063}, { 33.09, 53.063}, {33.156, 53.063}, {33.234, 53.063}}}]}, {Thickness[0.0004808690535082788], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmViYGDQA2IQ7cnDpN3u5upwUen2z7pZbg4o/FvuDi7dOc9/d7o4 KGwoypho6+Hwqy5rT8lnZzgfLH/TCc6fIsESxnfWEaJfyh3OvwDi/3JF5Vu5 Qu1zcpDWv6vCttAFYp6kMyp/JoI/GaRf1wXCv+gC0X/MxUERZL+vqwMDCDyA yj90gbhX2RWuHyzf4Ipq3ls0vq4bhC/oCudLgfiGrqjyjlD7FNwcUqzv+/e6 u0LsE0bwwe5jQ/DB6hkQ+p1B/vvpCjcfrP+yK8Q/Z6H+70Twwea1ofHdMPng +Mh1RZWfi+CD3XMcTf4sNH5iXR2y95RMlngC5ctC3X8dlj7cIPJH3HHywfF/ yh3iH2c3eHqChR9K+pLE5GeBzLvi7sAICi4BN4h/1kLlX0L9pwu1b5krRP0U tPQr5eYAABwDC7Y= "], CompressedData[" 1:eJxTTMoPSmViYGAQBmIQDQYHXByk9e+qsDW6Orh05zz/zenikL2nZLLEExeH yRIsYXy5zg6KG4oyJp51cZgC4ssi+L/qsvaULHZC5Sc7OVxUuv2zTssVzlcA ya9F8MH2CbpB7JsJlX8L5d90csgC2R/i7uAM4ls6Q8x75Q6RX+kM1e/hAHb/ BwQfrH6nCwYf7B8Wdzg/xfq+f2+6G5wPNl/KDVX9ElcH9PABAOB6fsE= "]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lEFIVFEUhkeThEhrMZEkiCNCq4ggiIrgBu+9e++7T8QIso0LMwqFxBhC JhCEAamYxZBgEC4CQUsUDWHCIggi2wTZpkgsgqBFVBBBVBjNPee8e3hvaPEW H+e+/57zn3NPrn/41PltmUymrvqdq3711W/umTly7WQkBh/lb7ZMBmLPovxQ 8CKRW7p8sTwdiL5VvbPeRGK9Y+PX2D3mfQc3O7cv/58Hjr/vLq0FYtbqH2I+ e3Tl+ZU2ZjjfGomXVn81EN9fdfXvbolEu71/IRCQX9mIVqs/7otdB+5Pf5MG ///p4f+ftWPIf1I57rX3jSnU/+2h/qhC/S1mqLfJdwx+ZJlBb6+P+YyT3jEf 9Zs1+jMo8fwbZsinGNYw3H8iFd+Rim8FjodsPh/Jn9EQ85kNRNbG86HrF/g9 QvEpZvCvnIpPsB7UU6B+3Ejxbea79v87lE+R4vPEM3F/434px5BfSWE9Werf FHEDM9TzI3QM/n4lf64r6neI/clT/DGdfy1dvuiPxPvf6SS3MUP9tzTNv6Z6 NOa7qVF/UZP/GuevMXTcbHm/cRzPd4L74vfDDP7UpXhdOYb7X5A/p+P3yRz7 AfPYQ++nwAzvcYQZ6r2gsN5e4jPk5xAzzjczzh/VM6Cw/gm+H+Zpmd7rF436 D+h8Z0j+McN9V5lxHlUybphhHg7XMr5nnYzH/ZHMcP8lZtB/yIzzVsvQjyfM 4EeFGfqxQv3/RPujRPobkvyjfbVG3Oijn0+l20/wnnIyua/+Bo5Rv5ZxXlLx Cu3DP8wJ/QrtR884xv3BjPvA0D6m80WD/X7riX+zIaXI "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGBwBGIQnfv898qPi3wdTON2efIYuTgwgECBr4MZiP/I2QEs 7+TrcLJs33yp/c4Q+Q8+DvVZe0om74DyHyD47I1TnbvPYPIrX6oZcsxB4/c4 O2z//PdKxU0fB/27KmyNrVD7HiH4QFMkWNh84fy9IL6ZL1w/2LwYBH8byLxO BB+s/xhCP8T9aOZ9Q/DB5vH4YfANQPylCD7Mf2D7fvrC+WD3f/JFlX8Jdc8e qH3bMPmw8IbxwfZ/hZp3CKqexwVi3klfhwaQ+RIuDmwg99j4QeTPuED0X/NH 5X/zh8TffZj7oPzzMPf5w90LVj/NH9U/Tf6o8V2AyQe7ZwaCD05Pk6D6i/xR 47PNHzU+NiD4sUBtTNwB8PgDyysg+Ld/1mXt0UHw74D4NgEQ93RA/eOJ4Dcf OLXQNQzBB+tPCYDbB1ZfiOCDnM1UHYDqvoYAuH9gfHB8LULwYeHxHwTKEXyw fTkIfjzIfOcA1PThCLXvKNQ8hwBIensK5TMEQMI3wh0S33+g4VXqDk1/0Pis d4fmRwQfkn4QfLD+PdD4KXKHhz9YPt7dAQACZakc "], {{60.75, 41.993}, {63.074, 45.641}, {63.598000000000006`, 41.993}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGBwBGIQ/fSC0u2fZoEOpnG7PHmMXBwM7qqwNcoGOpiB+I+c HcDybIEOJ8v2zZfa7wyRvxvgUJ+1p2TyDmcHfRD/KoK/ae775cdOY/IrX6oZ csxB4/c4O3BdX1xgeykAYk4r1L5rCH7v9Dyh5hdofIZAuH6wecKBqOZpIfhg 9R6BcP1g98cGopqXgOCDzcvG5IP1LUXwYf4D25eE4D8DuT8OwecGyUdB3bMH ap8DJh8W3jA+2P6v0PBwg6rncYHY5xXo0AAyX8IF4p5mqPwZF4j+gCBUfkIQ JP7uw9wH5Z+HuS8I7l6wegMEH2y/GoIPSR+YfLB7ZiD44PQ0CWqfXBBqeGsE ocaHLZp8QRA8/iDiQajxOwmNvwjqng6ofesQ/M2g8NmN4IPVnwpCS29o9j9A 8MH0U4R/YHxwfC1C8FHC424Qavq4hBa+K9DCdxnUvqNQ85YGQcx5CuWnQsM3 wh0S38lQ9aXu0PQHjc96d4h4KIIPST8IPli/M9Q/Re7w8AfLx7s7AABaYL6E "], {{70.336, 41.993}, {72.66, 45.641}, {73.184, 41.993}}}]}, {FaceForm[{RGBColor[1., 1., 1.], Opacity[0.894231]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{234.684, 116.99300000000001`}, { 279.953, 116.99300000000001`}, {280.03499999999997`, 116.99300000000001`}, {280.10200000000003`, 116.99300000000001`}, { 280.10200000000003`, 116.99300000000001`}, {280.10200000000003`, 101.563}, {280.10200000000003`, 101.563}, {280.03499999999997`, 101.563}, {279.953, 101.563}, {234.684, 101.563}, {234.605, 101.563}, { 234.539, 101.563}, {234.539, 101.563}, {234.539, 116.99300000000001`}, { 234.539, 116.99300000000001`}, {234.605, 116.99300000000001`}, {234.684, 116.99300000000001`}}}]}, {Thickness[0.0004808690535082788], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmViYGDQA2IQDQYNeQ4hj5fOPuIR7YDCfxHtsH++lP7dgDyHS0q3 f9ZJxTiosTVOddZG8MHyT3LhfOHmA6cWLsyF6O+IRuX/iELlz4iC2Hcg16Hi pZohh08UxLwvaHyRPDgfrN8yz6ESxE+B6k/Ic7gIsn9RlMMFEJ0GVZ8T5aAK cm85Qj9YXR+aeSvR+Duh5reg8aeg8edA7duW5zDv/fJj3vOh9m1G8MHu24Dg g+1fh9AP9t8ahPlg/Yuh/kmCyk9A8MHmofMbcPA3ofFPIfhg99xHk38U5SAE 8l9rnoPBXRW2xrdQ/lao+nRo+jgAlb+Lmw+O3wfREP/sR6QnWPihpK8tmHx9 kHlPo6H+gLrvUrTDPpD8Cih/EtS+GVD1rmjplyPaAQBJcDk/ "], CompressedData[" 1:eJxTTMoPSmViYGAQBmIQfVHp9s+6uDyHypdqhhx7ohz2z5fSv2uQ52BwV4Wt MTfKQbj5wKmFnHkOYHVJUQ5CIP7XXDhfla1xqvN1NP7xXIeQx0tnH5mA4IPl LyH4YPtYoiH2XYHKF0H5T3Id9EH2L4Xy/0DN+xDtsA/El4C6lyXG4RJInxaC D1Yfg8kH+6c2Gs6f9375MW99BB9sPkc0qvqzUQ7o4QMAJr6JNw== "]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lEtIlUEUx29WVlAtWoQY5SPzSnmzoEioaAwl1Oxh1o2ZseJWIFR+N4gy iZ6IRIsWBWlRi6ik2kiLiDAIeywsMoWbSI9NC7uJSUliRNT3nfl/3+HOpcUs fpyZ///MOWcmL+bU7p8cCoUmuWuvuzLcVb3qfNmenLgo+ViQeaZCicWtcwff uNyX//7XySolun8W6Yu5cVH3+fa151uYjycLl0+v+z/fGO14Wb1bCdKfz7zr ceXMjHnMz7z92dDfqUSiyRXKhn8tzs+Afpc08RDOH5OiZXjrowV3nYC3z448 uL6N+cmRS1lTNjlGv0mK+9/7a2IbHdHv6Tczk99ZZqpHCzPptUrR1jjn3FNf r02K8gsHh34fBncqcc/bf4s56uXTm87kf9WKn7bizczLvHwOKZPPa+SzWYkd XvyVE/SL8utBfAMz1a/ciq9jPfIvVaaefRYnmK94598hn7WID4JrlKn3OPzW 6IApv/Xa9GfMz0+b+40y032Gmam+SfgLbfyS6M9K6H/C/iHOl7gX+dyx+Cgz 9esy9F5Avx35foV/O+43os3+TosnmP35TuGFmO+3zFSfExbvYyb/mBZLvPeY 579PZr8e9D58LmUmvRXMdN8Sbd5PPjiszXstYKb9YWb6D8K4TwTniyz/CPL9 gfhS7J9VL25WPBz7U8xMfoXMNI9VTsBU/zJmmofV6Uz+Ezo17vdDMFP/KplJ v56Zzh9IZ6rfB2aqxwAz9SMBvwbMSzf0F2F/hzTxXPApaeY9h/8nek/jjan/ 1TdmOv8lnc28WPEo/sMR5hT9KPz/OgHTPE2NB0z9y/T/Y2n6Pw3cIMU/K9XS 3g== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGBwBGIQrbChKGOid4EDW+NU526RKIfyffOl9F2h/DeRDmB5 +wKHuF2ePEy3IyHypgUOlltOlO27DuUbI/gz8oSaDxhg8lcc8zbvPInGPxjp 8K7G3jTOqMCh+cCpha77oPYZI/gMIGCBxrdD6Aeb54TgvwWZ54Hgg9UHIPSD 3RuKZl4Ygg82LwIH/xyCD/Mf2L4wBF8R5P5QNPkQqHtuQu3zw+TDwhvGB9v3 DRoe/lD1jFEQ8wKg5rNHOUwHuScOKp8YBdE/CY0/rcAhFhR/r6Hum1rgEA/i P4a6bwrCvWD1XQg+2P52tPhuxcE/juCD/XMEal8rWnh3oMVHL5r8LET8geXn o6WXRWjxvazAwQpk/36oe1ci+ODwWYPgg9VvQEtvm9Hs34bmvu0I/6DwzyD4 KOGxFcEHu3cTWviuQAvf5VD77kH1w/jvoPzpUPXLoyH+mQaV3xYN8c80aP7c HQ1RPxnBB5vfj+CD9fdB3b8lGh7+4PSxOtoBAO+ovA4= "], {{262.199, 105.922}, { 264.52299999999997`, 109.571}, {265.047, 105.922}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmViYGBQB2IQ/Xjp7CMKjwocmg+cWuj6LdLh0FeNmP4HUP69SAew PJBvueVE2b7rUP4lBN/bvNMx4TyCn/v898qPZzD5K44BVZ5E8MHm74t0yAHx zyH4MPNhfLD54oWofFMEH+xen0IHK5B9/FFwPlg+DMEH298ZBbHfodCBrXGq c/eWKIg+3UIHdhB/TxTEfGeo/BkoP7TQIX6XJw8TczScD9Znj+CD7SuLhvjb HcpfFg2x3wDBB8u/L4Dzwf59g+CDzX2Jgz8NwQe7rwehH8aHmY+LD3bvZwQf 7L5vBQ6xIP91Q837BY2vzmiHwyD5X9D4bEfwwe6ox82PA5lXDXXvT6h5hdEO AFXjNtY= "], {{271.90999999999997`, 107.098}, {272.58599999999996`, 109.79700000000001`}, {272.684, 110.149}, {272.684, 110.196}, {273.16, 110.196}, {274.85900000000004`, 110.196}, {275.984, 110.196}, {276.258, 109.44600000000001`}, {276.258, 109.024}, {276.258, 108.121}, {275.234, 107.098}, {273.734, 107.098}}, {{271.383, 103.371}, { 271.03499999999997`, 103.371}, {271.008, 103.399}, {271.008, 103.49600000000001`}, {271.008, 103.49600000000001`}, {271.008, 103.54700000000001`}, {271.059, 103.723}, {271.83599999999996`, 106.774}, {274.21099999999996`, 106.774}, {275.234, 106.774}, {275.66, 106.071}, {275.66, 105.44600000000001`}, {275.66, 104.321}, {274.508, 103.371}, {273.16, 103.371}}}]}, {FaceForm[{RGBColor[1., 1., 1.], Opacity[0.399038]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{288.727, 94.582}, { 343.48799999999994`, 94.582}, {343.58599999999996`, 94.582}, { 343.66400000000004`, 94.582}, {343.66400000000004`, 94.582}, { 343.66400000000004`, 79.149}, {343.66400000000004`, 79.149}, { 343.58599999999996`, 79.149}, {343.48799999999994`, 79.149}, {288.727, 79.149}, {288.629, 79.149}, {288.551, 79.149}, {288.551, 79.149}, { 288.551, 94.582}, {288.551, 94.582}, {288.629, 94.582}, {288.727, 94.582}}}]}, {Thickness[0.0004808690535082788], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lEtoFEEURdsIQSFus0+ICs7GH45iFhVEUaMg2t2z0USMQXAjtKCDHySr UYkuokI0oPjBD0b8zCQxQ0hciB/QbMSFIJKAKKI710a7bt3OZWqwoQYOr+q+ 9+6rqZYDR3b3LgyCYEG6etLVkK5cqfnT9NPEtDX2Xdn0MDIfiz+WrXqWmMB+ TyLTVd3W1FBOTPqbK42K77/qzJ8b/z+/s9/LyKyw+o/F6a6O/Y/EtzaP/v4z nJjtVn8yMpU3xyZvpPzXfmM8P0T9lsiM2PhAYt7b859Ds8/mOyRG/e1i5NtA /S+h01/P/mbEyPddDD9+iqH3KzTwK9Obo34n/WmO3f6DYtRzop6RP/Di36La +Ix4qa3nA/0p0r8K40XNC34dZ73DYvj3QIzzd6SHfq5zfifFmM8pMfo/zXpu R87/M+Qy53uB+W7G8wx/77Hf/qw+8nmPz4pxvkR/7sYuX4n5hhjv4/4d8Xy9 6G8t470e7xSj/72cd67g9Lvp566C29/NfHsK7v4dFuP8RXF2v2t4hPWvE8Of 2biW34rh12v6Ucn+n+LMD8yznM1HDL2rYvR7mf1W6Fc//RwTY77jYuSrsp9L seu/6uWfYr0F+vGC+4+y3ykx5vNcjPN5Me7fGjHyr6xn9NvlxbP5rPb8z4uR 34hxfms9w78OMfxo9/ZvZL9b2P9y6rdxfxPfq1b6/5XvU6veJ/i9xHuvFouh 31jP7r548YnQ5V8krtGfYP4BjwfF0BvM3mPGr5GnQ/MPrlrQwQ== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGBwBGIQDQb3ihy4ry8usK0KcVDYUJQx8XqRAxeIHxTiAJa/ VOTQOz1PqNkBKn+8yMHgrgpbo22IgyKIfxTBL983X0r/MCYfZByXPhpfPcSh 0zHh6YUjRQ6b5r5ffkwZat8xBP9djb1p3CkE/y2IfwGhH2zeVTTzbiH4YP2P EPrB7n+OZt4LBB9s3mscfGMEH+Y/sH0vEHyw+5H4HSD5Z1D32EPte4DJh4U3 jL8ZZF801LxHUPXpUPseQc3PhbrnI1T+OFS/SjEqX6MYEn8BUPNgfA+o+9SK 4e4Fq5cpRvWPFIIPDj9xHHxdBB/sHy2ofoli1PiUKkaND/li1PjQKYbHH1je sBg1fk3Q+BbFDvog+1Wh9tkg+ODwsUfwweqdilHTmxua/R5o7vNE+AeFb4Tg o4SHezFq+nBB8MH+t0ILXyuofc5Q/ZZQfjCUrwlVzxsG8Q+QD04f0mEQ82Hx qRAGyY+qCD7YfCUEH6xfsRiS36XC4OEPlhcIcwAApISdpA== "], {{303.348, 83.508}, {305.676, 87.16}, {306.199, 83.508}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxlkj1IQlEUx18KEboFLW1BhVs1RUFwm9vivTc1PB5GDaXCg3BpEIOQTMml qakhWitoiyjKB4WBIUViTmH2gRU0ufTueed66Djc4XfPxz3/879Ddnx+Mahp Wo93hHcC3qkkm6MTZUc87CdmQqeGuPiNLOQfHTFeG+5N1ZCfMd4yBOS/OiIk L36Q3xh/dPP2bqw/rZkdPtprHVwHTTF14q6dvSOHTTEtuUk8N5mZtV6IIb+O /fowXiWG+goxvFei+tVG+/DbZf2LjK9Yf4+PZbxtdFjpg3mKxLAvl+kvYb8v zL/DfTaI1b4VQ30Z+6n5b5Bvsd859i9gvyXd15/C/Huc1+OwTHgiBj1VYqiv E6v5gbeYvizTn2d6C938z38VD6BfO7T/FelPjv2HDPNnnfmbJIZ5HGKYd5nq IT9KfCnjNjHkW6zeIv8VK33wn2zGUWLQE2P7jKPfn7ifBPkD86fx/Yjuxzcw Pqj773s8JusHdD9/k1j5pRjqs1QPnMP4iC7+AFJ35P4= "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmI+KJ37/PfKj2tKHFTYGqc6c4c5gPkbEHyrLSfK9m3F 5HvxMGm3yyH4qiB5Y4R+GD8qxfq+/1oE/9BXjZh+ETT1Agj+46WzjyjwYPJh 9sH4KO4VQPBh5sP4MPvPgIBLKNx9MD7M/ej8Fce8zTsjEfyzIPkchH4U/hoE H2Y/irwAgg9zPzofZh+Mj+JeAQQfZj6MDwAgbtoP "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmJJKL3Iddvnvz6lDqpsjVOdmcMcYPwzIBAS5qDVLnbz nHepgycPk3b7sjCHuF1AlnOpw4pj3uadH8McbLmuLy4wh6kPd7ha8VLNUAnK TwmH6BdH8MHyHAi+Nkj+awnEPM9wiPmvSxxUQO55DbXvcQlE/ZIwiPqHJXD3 wfgw98P4YPduC3XYeqJs3/xHUPnoUAc7kHvfljicBennCYW45wdUfncIxD5u mH9DIP4TR/DB4aOC4G8BmW9RCtcP9i8wfMDmy4TCww8snxzqgBLem9H4zGFw +8D694RA3MuL4IPd+w/qv2shEP/+LHH4DwLmoQ6xIPd/h4ZPCYIPNv8ygs8A AgJhcD44/APDUPVPgaaHH9D4OA0N379QeZdwiLxAqYMXyD1+4XD3w/hg/8sj +ODwMoD61zoc4j9TaHheC4P4zwLq3zkIPti9AWh8AQQfbN7hUDgfbF9dKNx8 sHk2oRD3GULV34bGtzIifNHDHwBOYV54 "]]}, {FaceForm[{RGBColor[1., 1., 1.], Opacity[0.894231]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{226.629, 50.493}, {280.66, 50.493}, {280.758, 50.493}, {280.83599999999996`, 50.493}, { 280.83599999999996`, 50.493}, {280.83599999999996`, 35.063}, { 280.83599999999996`, 35.063}, {280.758, 35.063}, {280.66, 35.063}, { 226.629, 35.063}, {226.535, 35.063}, {226.45700000000002`, 35.063}, { 226.45700000000002`, 35.063}, {226.45700000000002`, 50.493}, { 226.45700000000002`, 50.493}, {226.535, 50.493}, {226.629, 50.493}}}]}, {FaceForm[{RGBColor[1., 1., 1.], Opacity[0.30769199999999997`]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{227.36700000000002`, 49.758}, { 282.129, 49.758}, {282.227, 49.758}, {282.305, 49.758}, {282.305, 49.758}, {282.305, 34.325}, {282.305, 34.325}, {282.227, 34.325}, { 282.129, 34.325}, {227.36700000000002`, 34.325}, {227.26999999999998`, 34.325}, {227.191, 34.325}, {227.191, 34.325}, {227.191, 49.758}, { 227.191, 49.758}, {227.26999999999998`, 49.758}, {227.36700000000002`, 49.758}}}]}, {Thickness[0.0004808690535082788], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lE9IVVEQxq9/EIKMR25qIZlEKG2CoF1w4P55LxchBi8CF+ZLbXEP6q4W BUGii0BBiyxoEbi0XEhUKMbTSsGg1IIIo1CEiCgQhRaC98585wzvPLpwFz/m znwz3zl3jnf2tnVVeZ5XkbyF5K1M3o2JRwsNL7QaPVKdP/Q7UE/C59t7Cbcc rDw1uBuolcav/2690urbiZrb96pCyw/Hk+fA/9lLn4ZQUf1p4ZHiTlP7M+GP 6fdPtVpP69eFarepfbg4qdX5VL8G+XdR/4vP8RtapTN4rT7nNwpT/8ux5eFU 713M9S8i/03M8+WFSa9bmPzQwtRvn8/9LKLeqM/z/IrZn3n0X68tUz+5cib9 +0684MTzwtTPOdQP4Z+HeCDnRf0FiP8VJv9+OvHvga1H86zivFuEyd8LwpTf qtVY2s864m3oby9gP3rNeUWWyd+tiPuNTX/gaw5fFabzK8CfjYj1OqH/HvFL +P50ZPtlf6B/zOE/sWWav9bc/yznH4afZ3Ncv874n+Pvmx3uFzb3u4TnzP8j TP5czpZyszD5dTLLfsyY/iLLxg86jxlzPsJUb0mYxn2NeWfBU/CrKMz3W5j0 FqE/i/wlR38N/Ubw4xO+vwn/VoU/pHpvhSl/IbbM+0OY9KfLmf9nJ27O46Uw 6c8Lk/5nYcrfLGfy76gw7ZOMMN2/Wuj9wP7Ywv15jPs1hf0xDu7Afnog+4nm 73P2VY8w5V8pZ74vTjzj83zdwiX1M9C/rkv5jjDVGzD7GPEh8Blf7QN5E34J "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGBwBGIQ3Ts9T6hZIM8hbpcnD1O3k4PllhNl+5ihfGsnB7D8 j1yHFOv7/r3iUPnHuQ4rjnmbdwo6OViB+PcR/GqRde4Pb2HyQVTVF0c4XxTE f+LooG7IsUbmXq7DeiBX5J4jxL4HCD7QFMeElwi+D4j/FaEfbN4/NPO48uB8 sH7JPLh+sPuV81DNU0XwweZpYfJBxon8Q/Bh/gPbp4bgg92vgiavBHWPiBPE PlFMPiy8YXywtB/UPAmo+hSoeVJ5DstB5hc6OVSB3GMGlVdxhuifi8ZfmgeJ P3OoeUugfHWoeYsQ7gWr70XzTweCDw6/Zkw+2D0fHeF8sH9eQ+OzJQ81PjvR 4mMyWnysRcQfWH57Hmr87kPjH8tzWAmy/6GjQx/IvjMIPji+LiH4YPW38tDS G5r9T9Hc9xzhHxT+bwQfJTweo8X/PQQf7P+TaOF7AmqfHFT/cWj820H5y6Hh u9EVEt/LoPLnXCHmL4PG53VXSH6cj+CDzZ+B4IP1T4O6/7QrPPzB8ttdHQA/ obfD "], {{241.99200000000002`, 38.684}, {244.316, 42.336}, {244.84, 38.684}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIHIGYC4n3zpfTv/sh3EF3n/rCKxdWh0zHh6QWmAocV x7zNOwOhfI4CBxGQfImrwwP/3ul5QgUOcbs8eZiqXR3ug/giaHwxTH6KNYiF 4K8HGicyz9Xh0yXfJAEgH2S8yDooXwTBF2o+cGohP5o8F9S85a4OwiB5VgQf LM+A4O8H+e9DPlz/BaXbP+ueIfiqbI1TnR+j8e/nw/XD+GD5PgQf5r/HS2cf UXiC4IPd+xTBh9kPNq8cqv4LNLxTEHxYeMP4YP3WUP99hNqvB+W/hZon7uoA jr8KmHlOEP0RUPV2UPeGQ83zRvDB8n4IPlh/CJp6oPvVQPxsBB9sfy6a/0sQ fJh70Pmw+EeRnw3VX4EI/4ug+ClC8MHyGWjx45+PGr8uCD5YvQ2CD44PVYR+ sHoZBB/sH8l81PQmiqZfFBH/MD7Mf5dA7pVC8MHul0PjGyH4YPcb5zssB8V3 IdQ9Joj4Abs/Bmr/c0eIfAxU/rQjxL2x0PRy0BGiPgXBh8UXjA/Wn4PQD+YX 5DusBMk/dHQAAA8csyE= "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmI+KF2+b76U/vUCh8kSLGF8a10dwPzbCD4DCDzA5N9V YWucehlN/i+afiBfqPnAqYXXEfwOx4SnF+zQ1Fsj+Pf9e6fnmWHyYfahyK9F 078Wzfy1CPvB7lRwgbsPxoe5H50/ayYQeKLJF6Dph/GvI/gw+1HkrRF8mPvR +TD7UOQV0PQroJkP5AMAp1aP9Q== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmJJKB2VYn3fv7zQYYoESxjfXFcHGJ8BBBzcHD5d8k0S KCt0uKfC1jj1sRtEPrfQYSYIVLo7eDysElmXCFPv4XBB6fbPOh8oP8EDot8J wb8IkjdCk1codJgFMk/TA2K+aKHDZJB7ct0hfF6o+gdQ9/CguY8H4X4YH+xe ZleHapF17g9h8r4uDu4g94pD9W9whrhHCSrP6wyxzxTmXyeI/xwRfLC8P4IP Nj8JoR9sf16hAyPI/AvO8PADy8e6wMMX7L+/CD7M/TD7wPoFnCHuNUfwweGr AbXfGWq+SqGDJw+Tdjsb1DxFqP8aEHywfbaucL4XSP02BB8cn5ZuqPoPQPnK UP267hD7NKDyCtD4si50uAtyj7EH3P0wPli9F4IPDq8oWHh5QPwXD/OPOyQ+ kmDh5wbng91rhsYHuh/GB5sni+CD7ZvsAjcfEn5QfjQsPUDj2xcRvujhDwDW qw8T "]]}, {EdgeForm[{Thickness[0.0013578549467074099`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0.501961, 0.], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}}}, {{{460.789, 128.23042900000002`}, { 511.49199999999996`, 77.359429}}}]}, {EdgeForm[{Thickness[0.000039086847337620836`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 463.04660672800014`, 125.96491615000008`}, {465.30885763100014`, 125.961167053}, {460.22198774300006`, 128.80091284100007`}, { 463.04285763100006`, 123.70266524700003`}}}]}, {EdgeForm[{Thickness[0.000039086847337620836`], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{509.2302809040002, 79.62991284099996}, {506.96902669200017`, 79.63266193800004}, { 512.054899889, 76.79391615000003}, {509.23502669200013`, 81.89116374400001}}}]}, {FaceForm[{RGBColor[1., 1., 1.], Opacity[0.894231]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{458.02, 113.321}, { 512.0509999999999, 113.321}, {512.145, 113.321}, {512.2230000000001, 113.321}, {512.2230000000001, 113.321}, {512.2230000000001, 97.887}, { 512.2230000000001, 97.887}, {512.145, 97.887}, {512.0509999999999, 97.887}, {458.02, 97.887}, {457.92199999999997`, 97.887}, { 457.84400000000005`, 97.887}, {457.84400000000005`, 97.887}, { 457.84400000000005`, 113.321}, {457.84400000000005`, 113.321}, { 457.92199999999997`, 113.321}, {458.02, 113.321}}}]}, {Thickness[0.0004808690535082788], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lM1LVFEYxm8T7Vw5FfaBoPahWBBMaYHYEYrUaqZMF/fekCktBEP/gXsj iCihFm1qPeFCaBsSlGCbgr4QDWoRfRBFUK1cBELUvc95zjzMHRo4DD/e8z7v 17lvy/npoQvrPc9bl5yx5OSSM9NX/rp0IjY/Tj9svtYZmInbv6LDJ2Pz7Hj3 TN++wHjprxibgYZc5/Uu8XTj1cXnh/7PlaPzq3+OBAb6g+KPpVt3p/rFuJ/w YKrfG5hUpnIsNk/T+AcDcyP174rNFAy+yad/e2NzL/U/61v/nBj5v42qjHhv Iqs/6lv9lcjWVxYj3oQY/ZgUQ++Sb+txepep/y2y/bnD/P+Kkc+muI4R/0rG fjFjL4uRzxnq59m//bTnNS/k18h+7BGjfx1i+O+QHupp5jw2Z7hJDP8m5tNG +1ZygfNtZ7yWsMrob3to893t8iPvzHCb+FPq38r+7AptvIR/pvG2UX87779U vqjvAfPxMvw9qjLq/81536f+Gt/HEuOv0b4S2ve3Ia7lDrF73zV8ivnPi9Gf cxkeEKNf/exHyX2fYtcPfB9FNx8xvsctYtS7MbT1ltivBtY7JMZ8h8WIN8L4 edY7ovi4HzDfd9QPeX+V/QvEiDcshv9yVGt/LUb8F/WMej9k7G4er8SIvyyG /nsx/L/UM+bxRIx+PBbj/T1ivM/cH3PUX+T9m9xXC3xv49xPC9pPqH8us69m xfCv1LN9Lxl7D/fhrLhGv4fx3f50XBBjfgW3j2k/QC765h9AO7Pn "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmViYGBQB2IQvUOu9XVgWa1D5Us1Q447EQ5LZx9R2FAC5R+JcADL A/nfNGL6D+2F8tMQfP27KmyNyQj+ZAmWML5ETP6898uPea9H8MHmL4HykxF8 mPkwPtj81Wj8kwj+MpB7H0Dt+4rgg+VtIuF8sP35kRD7rtY6XFK6/bNuVqSD bFSK9f2DtQ4XQfxFkRDzr0P5m6D8l7UOIY+BIfMCwQfbpxoF54Pti4mCmHe7 1qECxO+JgoTnEQQfLN+M4IP924AmX4vJB5tfg+CD3VeE0A/jw8zHxQe7tx3B B4dPF9R/BVDz+mDhBXV/H9S/uWj8VNx8sHkJUPt7oeaFRzkAAOZoGoA= "], {{473.168, 102.68799999999999`}, {473.84400000000005`, 105.387}, {473.941, 105.739}, {473.941, 105.789}, {474.41799999999995`, 105.789}, {476.117, 105.789}, {477.242, 105.789}, {477.52, 105.039}, {477.52, 104.614}, { 477.52, 103.715}, {476.49199999999996`, 102.68799999999999`}, { 474.99199999999996`, 102.68799999999999`}}, {{472.64500000000004`, 98.965}, {472.29299999999995`, 98.965}, {472.27, 98.989}, {472.27, 99.09}, {472.27, 99.09}, {472.27, 99.137}, {472.316, 99.313}, {473.094, 102.364}, {475.469, 102.364}, {476.49199999999996`, 102.364}, { 476.91799999999995`, 101.664}, {476.91799999999995`, 101.039}, { 476.91799999999995`, 99.91400000000002}, {475.77, 98.965}, { 474.41799999999995`, 98.965}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxlkk8oRFEUxh+aZizGwlhYSJ4yPeXf+PMs3T0b0yxer0EpIZ7hkdB4ZEZR 02AhInYTS1lZSrJna2khidkpO++ed24nZxZ38evc79zvnO/qk5nkVI2maVX+ Ef6p9s/JQn3uftUTl+Wrp+FBW+x+jt41b3rix0gfPIwh57CesQXcL3jiufX1 13ORi8Snkg8rOfVWOn/cJl7/iCcieVt8ZYcGxn1ek1xALhLXdd5elPdZPY/9 9mwRlfUt4m9Z3yCG91zS6zfuzJHD+s8xniW9YvCbJVbzgZ95YtiXw+Z3sd8i 3l/BfU4Tq30rBn0S+y2jvxHkJewncP8m9nu3An0c/abQb5snXmQ/mxjqaWLQ TxAr/7DfbjZfgs3fz/6DWckq/3/1HdSbtP8WmU8fy7uL5aNTPtCviRjuNxKD 3yjpIY8IMdTDjENMH6L8Fav5wG+YcS3jGDH4j2HeDvpvoHzAv4HvX1uBXwPr Z1bwfjvqjzHvDmKVl2LQ95AeuBfrJUv8AQxE08k= "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmI+KJ0x8W2NvWe9w+vAHXKt3VEOYL4vgv/pkm+SQBAm 34uHSbt9Hpr8ZjT9QL5w84FTCz0R/GqRde4PN9Shql+L4N/3752etwKTD7MP Rb4bTX83mvndCPsXum77/PdIJNx9MD7M/ej8fCGgxpsI/iKQ/BuEfhS+J4IP sx9Ffi2CD3M/Oh9mH4yP4t61CD7MfBgfAFC041U= "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmJJKB2VYn3f/3i9w+vAHXKtzVEOMP5C122f/16Jcni8 dPYRhWP1Dp48TNrtatEQ+b31DnlCzQdOFUY7WG05UbZvI0x9tMOhrxox/XOg /CfREP2TEPzDIPkmNPkCqHknoeanQt2TDeXHQtWrQNXHoLkvBuF+GB/sXrMo h9znv1d+BPLfgORvRzpYgtybXu+wCKS/JxLiniKovHUkxL5WmH8jIf6biOCD 5ecj+GDzNyH0g+3fBzV/TiQ8/MDuexzpgBLexlEO6OEPsw+s3wbq3nYEHxy+ FVD7w6Dml9Q7HPM273TcATW/EBo+XxB8sPnBUXD+cZD6CQg+OPwvRqHqF4GG fzFUvzc0/Cug8keg8t31Dl4g95yLhrsfxgern4Xgg8NrFTS8dkdD/Lce5h9o +tgE9a8Mgg9274UoVP4EBB/sPmcEH2zfv0i4+WDz9kD5q6H2R0PDZy4ifNHD HwDuiYMj "]]}}, AspectRatio->Automatic, ImageSize->{781.72265625, 205.}, PlotRange->{{0., 589.164551}, {0., 153.246429}}]], "Input",ExpressionUUID->\ "1fd6bd08-79c1-465a-b24a-a7ad3f55a57e"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[" Site energies:", "Item", CellChangeTimes->{{3.8564380014530363`*^9, 3.856438006447301*^9}},ExpressionUUID->"5119ffb7-ab58-4e09-b59d-\ 1312ab0198a2"], Cell[TextData[{ "E", StyleBox["A", FontSize->18], ": the energy of a site occupied by A " }], "Subitem", CellChangeTimes->{{3.8564380014530363`*^9, 3.856438008880826*^9}},ExpressionUUID->"59074760-2e61-4701-82cd-\ 48c808d646a8"], Cell[TextData[{ "E", StyleBox["B", FontSize->18], ": the energy of a site occupied by B " }], "Subitem", CellChangeTimes->{{3.8564380014530363`*^9, 3.856438008453765*^9}},ExpressionUUID->"292eb9cc-0681-443d-a0f4-\ 786697754727"] }, Open ]], Cell[CellGroupData[{ Cell["Step-By-Step Simulation", "Section", CellChangeTimes->{{3.859837287486271*^9, 3.859837294414445*^9}},ExpressionUUID->"ce602de4-2213-487f-93dd-\ ebdd4ad42373"], Cell[CellGroupData[{ Cell[TextData[{ "Let\[CloseCurlyQuote]s start by generating an ", Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ RowBox[{ StyleBox["n", "TI"], "\[Cross]", StyleBox["m", "TI"]}], TraditionalForm], "errors" -> {}, "input" -> "n \\times m", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "23368b88-b3c2-4b25-aa5c-81219767fd92"], " square grid, with a random configuration of red, blue, and white sites " }], "Item", CellChangeTimes->{{3.8598384303867493`*^9, 3.859838475747694*^9}, { 3.859838549588847*^9, 3.859838570583096*^9}},ExpressionUUID->"4f9a19a2-b94c-4149-94b7-\ af36cd6c2dd8"], Cell["given some initial composition fractions", "Subitem", CellChangeTimes->{{3.8598384303867493`*^9, 3.859838475747694*^9}, { 3.859838549588847*^9, 3.859838588076973*^9}},ExpressionUUID->"b1b2bbbf-3c3e-4ba8-b31b-\ 1e75021d1e2c"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Remember we can use `RandomChoice` to obtain a weighted random choice\ \>", "Item", CellChangeTimes->{{3.859838607390203*^9, 3.859838630501672*^9}, { 3.859838767240004*^9, 3.8598387672502193`*^9}, 3.8598441339074917`*^9},ExpressionUUID->"0730a077-4cf5-4a99-b1e9-\ aa5e5dc65b7d"], Cell[CellGroupData[{ Cell["\<\ We\[CloseCurlyQuote]ll represent vacancies using 0, A atoms using 1, and B \ atoms using 2\ \>", "Subitem", CellChangeTimes->{{3.859838607390203*^9, 3.859838630501672*^9}, { 3.859838767240004*^9, 3.859838775047678*^9}, {3.8598388129126873`*^9, 3.859838819208934*^9}},ExpressionUUID->"913f85ad-42ea-43d3-93ce-\ b15de4969455"], Cell[BoxData[{ RowBox[{"Clear", "[", "randomLattice", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"randomLattice", "[", RowBox[{ RowBox[{"{", RowBox[{"n_", ",", "m_"}], "}"}], ",", RowBox[{"{", RowBox[{"fA_", ",", "fB_", ",", RowBox[{"fV_", ":", "0."}]}], "}"}], ",", RowBox[{"seedRandom_", "|", RowBox[{"PatternSequence", "[", "]"}]}]}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"s", "=", RowBox[{"SeedRandom", "[", "seedRandom", "]"}]}], "}"}], ",", RowBox[{"RandomChoice", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"fV", ",", "fA", ",", "fB"}], "}"}], "->", RowBox[{"{", RowBox[{"0", ",", "1", ",", "2"}], "}"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}]}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.859838841898439*^9, 3.859838874898952*^9}, { 3.8598389127957373`*^9, 3.859838913018738*^9}, {3.859839119428549*^9, 3.859839134733326*^9}, {3.859839205406128*^9, 3.859839224542363*^9}, { 3.859839262887128*^9, 3.859839295815228*^9}, {3.8598393874012403`*^9, 3.859839397456205*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"a1e52957-465e-4d88-9055-0d660bf6646f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{"randomLattice", "[", RowBox[{ RowBox[{"{", RowBox[{"30", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0.475", ",", "0.475", ",", "0.05"}], "}"}], ",", "3029"}], "]"}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.859838639959358*^9, 3.8598387268798227`*^9}, { 3.859838930435172*^9, 3.859838946498322*^9}, {3.859839231046796*^9, 3.859839231157838*^9}, {3.859839268094308*^9, 3.8598392682806797`*^9}, { 3.8598394036961823`*^9, 3.859839403799275*^9}, {3.859839434536418*^9, 3.859839434704351*^9}, {3.859841667671171*^9, 3.859841670135421*^9}, 3.8598456954128933`*^9}, CellLabel->"In[3]:=",ExpressionUUID->"9a29d86f-90a1-4176-bb43-63aa4fc51dc6"], Cell[BoxData[ TagBox[GridBox[{ {"1", "2", "1", "2", "2", "1", "1", "2", "1", "1", "2", "2", "2", "2", "0", "1", "1", "1", "1", "2", "2", "1", "2", "1", "1", "2", "1", "1", "1", "1"}, {"2", "1", "1", "2", "2", "1", "1", "1", "2", "2", "1", "1", "2", "1", "2", "2", "1", "2", "1", "1", "1", "1", "2", "2", "2", "2", "1", "2", "1", "2"}, {"1", "1", "2", "2", "1", "2", "1", "2", "1", "1", "1", "1", "1", "1", "1", "1", "2", "2", "2", "2", "0", "2", "2", "2", "2", "0", "1", "1", "2", "1"}, {"1", "1", "1", "1", "2", "0", "1", "1", "1", "1", "1", "2", "2", "2", "2", "2", "2", "2", "1", "1", "1", "1", "2", "1", "1", "1", "1", "2", "2", "1"}, {"1", "2", "1", "1", "2", "1", "2", "1", "2", "1", "1", "2", "1", "2", "2", "1", "1", "2", "1", "2", "1", "1", "1", "1", "2", "1", "1", "1", "0", "1"}, {"2", "2", "0", "2", "2", "2", "2", "1", "2", "2", "2", "1", "2", "1", "2", "1", "0", "1", "1", "2", "2", "2", "2", "2", "2", "1", "1", "1", "1", "1"}, {"2", "1", "1", "0", "1", "0", "1", "1", "1", "1", "1", "2", "1", "2", "1", "1", "2", "2", "1", "2", "1", "1", "2", "2", "1", "1", "1", "2", "2", "1"}, {"0", "1", "2", "2", "2", "1", "2", "1", "2", "1", "2", "1", "2", "1", "1", "2", "1", "2", "2", "2", "2", "0", "2", "2", "1", "1", "0", "2", "1", "2"}, {"0", "2", "2", "2", "1", "1", "2", "1", "1", "0", "1", "2", "2", "0", "1", "2", "2", "1", "2", "1", "1", "1", "2", "2", "2", "2", "2", "2", "2", "2"}, {"2", "1", "1", "1", "1", "1", "1", "2", "0", "1", "1", "1", "2", "2", "2", "2", "2", "1", "0", "1", "2", "2", "1", "1", "1", "2", "2", "2", "1", "1"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{{3.859838940996408*^9, 3.859838946782277*^9}, { 3.859839228405195*^9, 3.859839232630816*^9}, {3.85983926615336*^9, 3.859839296893437*^9}, {3.859839391587882*^9, 3.859839435059289*^9}, 3.859841670574958*^9, 3.85984176604781*^9, 3.859845696086535*^9, 3.859884194204453*^9}, CellLabel->"Out[3]=",ExpressionUUID->"57f74192-753f-4598-bd87-6682adae2f1d"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["And write a simple function to visualize the current state", "Item", CellChangeTimes->{ 3.8598388217047777`*^9, {3.8598389501137533`*^9, 3.859838963522423*^9}},ExpressionUUID->"bfa8965d-92f7-40b2-970c-\ 4089caf9e39a"], Cell[BoxData[ RowBox[{ RowBox[{"visualizeLatticeRaster", "[", "state_", "]"}], ":=", RowBox[{"ArrayPlot", "[", RowBox[{"state", ",", "\[IndentingNewLine]", RowBox[{"ColorRules", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"0", "->", "White"}], ",", RowBox[{"1", "->", "Red"}], ",", RowBox[{"2", "->", "Blue"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"PlotRangePadding", "\[Rule]", "None"}], ",", RowBox[{"DataReversed", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.859840707984276*^9, 3.859840756149117*^9}, { 3.8598416580234213`*^9, 3.859841659895406*^9}, {3.85984171097375*^9, 3.8598417117112503`*^9}, {3.8598430562999163`*^9, 3.859843058514577*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"ade0288e-47ca-474d-b7de-a5c6cf57054d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"visualizeLatticeRaster", "[", RowBox[{"randomLattice", "[", RowBox[{ RowBox[{"{", RowBox[{"30", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0.475", ",", "0.475", ",", "0.05"}], "}"}], ",", "3029"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.859840763847106*^9, 3.8598407648304453`*^9}, { 3.8598415335665817`*^9, 3.859841533653596*^9}, 3.859841675593424*^9, 3.8598417163138237`*^9, 3.859845689404653*^9}, CellLabel->"In[5]:=",ExpressionUUID->"c78d565b-3231-40af-b2fb-f5f39c76b685"], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzdVkEKgDAMG3jzEYIv8Q8+QfDs132Cinju4lLTWhiO0iWhm23HZZvXrpTS n2s417W/bZ9KlT1xaDyKw9LD0on6ra8XP3pelWdVHlT5jMaL4rD0oPGqfKJ+ 7zxnqQNofBa/N9/XfYLdpyx8VFer39Kjyrdl0d69uj5Hy3+0OSRa3WbxRtPz l/dfW/e8cNVzlzc++369+rLKH63PfjWvRZ83VH0hux41r1c9R/Vkj1fNM6if VUdY/Ch+La6677BwVHNXljqcZW5h+dX8lr19V1nuV/2foudaedv1HEJ3jTk= "], {{0, 0}, {30, 10}}, {0, 1}], Frame->False, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->500, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}, PlotRangePadding->None]], "Output", CellChangeTimes->{ 3.8598407651079493`*^9, 3.859841533858292*^9, {3.8598416616138477`*^9, 3.859841676200795*^9}, {3.8598417130834017`*^9, 3.859841717011344*^9}, 3.859841768672266*^9, 3.859843059216278*^9, 3.8598456900270033`*^9, 3.859884198267041*^9}, CellLabel->"Out[5]=",ExpressionUUID->"fbc8bfed-afed-41e2-9314-1375e23a7868"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["In-fact we can do better using Graphics objects", "Item", CellChangeTimes->{{3.859841720411385*^9, 3.859841750431593*^9}},ExpressionUUID->"e3f132cf-2d10-4859-8478-\ 9e6557b1ef11"], Cell[BoxData[ RowBox[{ RowBox[{"visualizeLattice", "[", "state_", "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"posA", ",", "posB", ",", "posV"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"posV", ",", "posA", ",", "posB"}], "}"}], "=", RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"state", ",", "#", ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"Heads", "\[Rule]", "False"}]}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{"0", ",", "1", ",", "2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"MapThread", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "Black", "]"}], ",", RowBox[{"FaceForm", "[", "#1", "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"Reverse", "[", "i", "]"}], ",", RowBox[{"1", "/", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "#2"}], "}"}]}], "]"}]}], "}"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"White", ",", "Red", ",", "Blue"}], "}"}], ",", RowBox[{"{", RowBox[{"posV", ",", "posA", ",", "posB"}], "}"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"PlotRangePadding", "\[Rule]", "None"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.859841399572461*^9, 3.859841647871745*^9}, { 3.8598430616513042`*^9, 3.859843065163281*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"c50b4d36-e6ef-452d-a5c4-f44af391b551"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"visualizeLattice", "[", RowBox[{"randomLattice", "[", RowBox[{ RowBox[{"{", RowBox[{"30", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0.475", ",", "0.475", ",", "0.05"}], "}"}], ",", "3029"}], "]"}], "]"}]], "Input", CellChangeTimes->{3.8598415390307293`*^9, 3.8598416780459833`*^9, 3.859845687237769*^9}, CellLabel->"In[7]:=",ExpressionUUID->"faeb9656-72fb-40f1-bcfb-9efcf7ea17be"], Cell[BoxData[ GraphicsBox[{ {EdgeForm[GrayLevel[0]], FaceForm[GrayLevel[1]], DiskBox[{15, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 10}, NCache[Rational[1, 2], 0.5]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0, 0]], DiskBox[{1, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 10}, NCache[Rational[1, 2], 0.5]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0, 0, 1]], DiskBox[{2, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 10}, NCache[Rational[1, 2], 0.5]]}}, ImageSize->500, PlotRangePadding->None]], "Output", CellChangeTimes->{{3.859841598977152*^9, 3.859841615863304*^9}, { 3.8598416487537117`*^9, 3.8598416785747023`*^9}, 3.859841770645197*^9, 3.859843065839086*^9, 3.8598456878267603`*^9, 3.859884201260277*^9}, CellLabel->"Out[7]=",ExpressionUUID->"36216267-17c6-4720-93b6-b0369adfa223"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Next, we want to be able to evaluate the total energy of a given state\ \>", "Item", CellChangeTimes->{{3.859841784436646*^9, 3.859841816070092*^9}},ExpressionUUID->"483d4df5-0fb5-4880-bd70-\ ad1629dc2569"], Cell["\<\ Remember, we\[CloseCurlyQuote]ll consider up to second nearest neighbor \ interactions\ \>", "Subitem", CellChangeTimes->{{3.859841784436646*^9, 3.859841827352079*^9}, { 3.8598418600729113`*^9, 3.859841860881044*^9}, {3.8598419045627832`*^9, 3.859841904564252*^9}},ExpressionUUID->"81767642-69ad-4cc9-84c8-\ 3f920855ad9c"], Cell[CellGroupData[{ Cell["\<\ This means that for each site we need to compute what is known as a 3x3 Moore \ neighborhood\ \>", "Subitem", CellChangeTimes->{{3.859841784436646*^9, 3.859841827352079*^9}, { 3.8598418600729113`*^9, 3.859841860881044*^9}, {3.859841905152622*^9, 3.859841925227933*^9}, 3.859842075394182*^9},ExpressionUUID->"b096956a-4a3f-4f6c-bfe5-\ 2f20d7782c07"], Cell[TextData[{ "Note: we briefly talked about this in one of our first code-show-and tells \ on Cellular Automata, see ", ButtonBox["here", BaseStyle->"Hyperlink", ButtonData->{ URL["https://gvarnavides.com/generative-art-workshop-website/docs/01.27-\ Thursday/elementary-cellular-automata"], None}, ButtonNote-> "https://gvarnavides.com/generative-art-workshop-website/docs/01.27-\ Thursday/elementary-cellular-automata"] }], "Subsubitem", CellChangeTimes->{{3.859841784436646*^9, 3.859841827352079*^9}, { 3.8598418600729113`*^9, 3.859841860881044*^9}, {3.859841905152622*^9, 3.859841927896832*^9}, {3.859842045074882*^9, 3.859842080480072*^9}},ExpressionUUID->"d62f6fbd-7cb8-41f8-915e-\ 19f876c493ff"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["We\[CloseCurlyQuote]ll make use of vectorization to do this \ efficiently", "Item", CellChangeTimes->{{3.85984212336763*^9, 3.859842150071619*^9}},ExpressionUUID->"df60ee6d-0952-4bb9-932c-\ 27defe945f4d"], Cell[CellGroupData[{ Cell["\<\ That is, we\[CloseCurlyQuote]ll \[OpenCurlyDoubleQuote]rotate\ \[CloseCurlyDoubleQuote] our lattice according to all our neighborhood \ directions\ \>", "Subitem", CellChangeTimes->{{3.85984212336763*^9, 3.8598421831564407`*^9}},ExpressionUUID->"cea425f6-c32d-49fc-a1b0-\ 3607c68dee59"], Cell["making a 3D array with dimensions (number_of_neighbors, m,n)", \ "Subsubitem", CellChangeTimes->{{3.85984212336763*^9, 3.85984222692911*^9}},ExpressionUUID->"26e70d95-8adc-489c-8265-\ babee8ff3d1e"] }, Open ]], Cell["And then operate on this 3D array in \[OpenCurlyDoubleQuote]one pass\ \[CloseCurlyDoubleQuote]", "Subitem", CellChangeTimes->{{3.85984212336763*^9, 3.8598422555121107`*^9}},ExpressionUUID->"631639f5-786d-43a5-89ac-\ 10b143a8b15c"] }, Open ]], Cell[CellGroupData[{ Cell["Let\[CloseCurlyQuote]s see this using a simple 1D lattice", "Item", CellChangeTimes->{{3.85984212336763*^9, 3.859842266036133*^9}, { 3.859842302545024*^9, 3.859842302549398*^9}},ExpressionUUID->"3a366acc-8cd2-499e-86bc-\ cce22c9420eb"], Cell[CellGroupData[{ Cell["\<\ note this implies periodic boundary conditions - which works well in our case\ \ \>", "Subitem", CellChangeTimes->{{3.85984212336763*^9, 3.859842266036133*^9}, { 3.859842303293618*^9, 3.8598423173418493`*^9}},ExpressionUUID->"51d69d6e-e118-4c51-afab-\ 9916710eee6a"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Range", "[", "10", "]"}], "\n", RowBox[{"RotateRight", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "1"}], "]"}], "\n", RowBox[{"RotateRight", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", RowBox[{"-", "1"}]}], "]"}]}], "Input", CellChangeTimes->{{3.859842270948657*^9, 3.85984227096448*^9}, { 3.859884328614217*^9, 3.859884329401846*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"b7cef795-63b8-4101-83f6-767af4b1ea1a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]], "Output", CellChangeTimes->{ 3.859842271805518*^9, {3.8598843128522377`*^9, 3.859884329732675*^9}}, CellLabel->"Out[11]=",ExpressionUUID->"e364c63a-add9-4a99-a02a-b21eff4953a8"], Cell[BoxData[ RowBox[{"{", RowBox[{ "10", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9"}], "}"}]], "Output", CellChangeTimes->{ 3.859842271805518*^9, {3.8598843128522377`*^9, 3.859884329733658*^9}}, CellLabel->"Out[12]=",ExpressionUUID->"9edd2ae4-0c42-4686-b0f2-20338bebb654"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "1"}], "}"}]], "Output", CellChangeTimes->{ 3.859842271805518*^9, {3.8598843128522377`*^9, 3.859884329734631*^9}}, CellLabel->"Out[13]=",ExpressionUUID->"fe714f6f-1c1f-45aa-8c6c-25ebf4daab37"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["and analogously in 2D", "Item", CellChangeTimes->{{3.8598422774643707`*^9, 3.8598422841014767`*^9}},ExpressionUUID->"145c535c-a65b-43ff-b3c4-\ 6ad306aff575"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"Subscript", "[", RowBox[{"x", ",", "#1", ",", "#2"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}]}], "]"}], "//", "Grid"}]], "Input", CellChangeTimes->{{3.859842287407029*^9, 3.8598422874174137`*^9}}, CellLabel-> "In[138]:=",ExpressionUUID->"669fc130-d68a-4a13-86c9-341b7e5ad177"], Cell[BoxData[ TagBox[GridBox[{ { SubscriptBox["x", RowBox[{"1", ",", "1"}]], SubscriptBox["x", RowBox[{"1", ",", "2"}]], SubscriptBox["x", RowBox[{"1", ",", "3"}]]}, { SubscriptBox["x", RowBox[{"2", ",", "1"}]], SubscriptBox["x", RowBox[{"2", ",", "2"}]], SubscriptBox["x", RowBox[{"2", ",", "3"}]]}, { SubscriptBox["x", RowBox[{"3", ",", "1"}]], SubscriptBox["x", RowBox[{"3", ",", "2"}]], SubscriptBox["x", RowBox[{"3", ",", "3"}]]} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{3.859842288406364*^9}, CellLabel-> "Out[138]=",ExpressionUUID->"4a2f048a-d8b0-4076-9c9f-cb66b997cbb3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"RotateRight", "[", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"Subscript", "[", RowBox[{"x", ",", "#1", ",", "#2"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}], "//", "Grid"}]], "Input", CellChangeTimes->{{3.859842295431798*^9, 3.859842297630679*^9}}, CellLabel-> "In[140]:=",ExpressionUUID->"6078c241-d544-4b5d-b0e2-804cfe2e1d5e"], Cell[BoxData[ TagBox[GridBox[{ { SubscriptBox["x", RowBox[{"1", ",", "3"}]], SubscriptBox["x", RowBox[{"1", ",", "1"}]], SubscriptBox["x", RowBox[{"1", ",", "2"}]]}, { SubscriptBox["x", RowBox[{"2", ",", "3"}]], SubscriptBox["x", RowBox[{"2", ",", "1"}]], SubscriptBox["x", RowBox[{"2", ",", "2"}]]}, { SubscriptBox["x", RowBox[{"3", ",", "3"}]], SubscriptBox["x", RowBox[{"3", ",", "1"}]], SubscriptBox["x", RowBox[{"3", ",", "2"}]]} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{{3.859842296550247*^9, 3.859842298020632*^9}}, CellLabel-> "Out[140]=",ExpressionUUID->"4185e16b-58db-4de8-93e7-d510f5a78b61"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ The following function allows us to apply a function on each cell by passing \ its 3x3 neighborhood as arguments\ \>", "Item", CellChangeTimes->{{3.859842600729949*^9, 3.859842625687541*^9}, { 3.859842729448079*^9, 3.859842753440473*^9}},ExpressionUUID->"9f72beb4-fe1d-4354-88ab-\ f3cf636d82e7"], Cell[BoxData[{ RowBox[{ RowBox[{"moore3by3Neighborhood", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mooreNeighborhood", "[", RowBox[{"function__", ",", "lattice_", ",", RowBox[{"neighbors_", ":", "moore3by3Neighborhood"}]}], "]"}], ":=", RowBox[{"MapThread", "[", RowBox[{"function", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"RotateRight", "[", RowBox[{"lattice", ",", "#"}], "]"}], "&"}], ",", "neighbors"}], "]"}], ",", "2"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.8598423503569*^9, 3.859842350376205*^9}, { 3.859842398643358*^9, 3.85984240207097*^9}, {3.8598424670234537`*^9, 3.859842525633483*^9}, {3.859884393970277*^9, 3.859884428731203*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"3fc3e864-30b8-4c74-b383-11e724ca1da6"], Cell[CellGroupData[{ Cell["E.g. for a symbolic 4 x 4 lattice and a generic function f", "Subitem", CellChangeTimes->{{3.859842548817668*^9, 3.859842598575748*^9}, { 3.8598427564319687`*^9, 3.859842773056574*^9}},ExpressionUUID->"a471bdf2-28ab-4486-a52b-\ 65f810be8bac"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mooreNeighborhood", "[", RowBox[{"f", ",", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"Subscript", "[", RowBox[{"x", ",", "#1", ",", "#2"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.859842574216625*^9, 3.859842575855669*^9}, { 3.8598429124115763`*^9, 3.8598429193643637`*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"c540c2d9-6584-4883-9447-f9f72d70fce3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"1", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "4"}]]}], "]"}], ",", RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"1", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "1"}]]}], "]"}], ",", RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"1", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "2"}]]}], "]"}], ",", RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"1", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "3"}]]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"2", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "4"}]]}], "]"}], ",", RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"2", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "1"}]]}], "]"}], ",", RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"2", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "2"}]]}], "]"}], ",", RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"2", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "3"}]]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"3", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "4"}]]}], "]"}], ",", RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"3", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "1"}]]}], "]"}], ",", RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"3", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "2"}]]}], "]"}], ",", RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"3", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"2", ",", "3"}]]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"4", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "4"}]]}], "]"}], ",", RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"4", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "1"}]]}], "]"}], ",", RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"4", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "2"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "2"}]]}], "]"}], ",", RowBox[{"f", "[", RowBox[{ SubscriptBox["x", RowBox[{"4", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "4"}]], ",", SubscriptBox["x", RowBox[{"4", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "1"}]], ",", SubscriptBox["x", RowBox[{"1", ",", "3"}]], ",", SubscriptBox["x", RowBox[{"3", ",", "3"}]]}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.8598425651940613`*^9, 3.859842580567617*^9}, 3.859842774149847*^9, {3.859842913830243*^9, 3.85984291957955*^9}, 3.859884458599045*^9}, CellLabel->"Out[16]=",ExpressionUUID->"2e89c0d5-3b60-44ee-8c4f-e361962872a1"] }, Open ]], Cell[BoxData[{ RowBox[{"Clear", "[", "energyState", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"energyState", "[", RowBox[{ RowBox[{"{", RowBox[{"eA_", ",", "eB_"}], "}"}], ",", RowBox[{"{", RowBox[{"eAA_", ",", "eBB_", ",", "eAB_"}], "}"}], ",", "\[Alpha]_"}], "]"}], "[", RowBox[{"0", ",", "neighs__"}], "]"}], ":=", "0"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"energyState", "[", RowBox[{ RowBox[{"{", RowBox[{"eA_", ",", "eB_"}], "}"}], ",", RowBox[{"{", RowBox[{"eAA_", ",", "eBB_", ",", "eAB_"}], "}"}], ",", "\[Alpha]_"}], "]"}], "[", RowBox[{"1", ",", "neighs__"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"energyState", "[", RowBox[{ RowBox[{"{", RowBox[{"eA", ",", "eB"}], "}"}], ",", RowBox[{"{", RowBox[{"eAA", ",", "eBB", ",", "eAB"}], "}"}], ",", "\[Alpha]"}], "]"}], "[", RowBox[{"1", ",", "neighs"}], "]"}], "=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"nn", ",", "nnn", ",", "nnCounts", ",", "nnnCounts"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"nn", ",", "nnn"}], "}"}], "=", RowBox[{"TakeList", "[", RowBox[{ RowBox[{"{", "neighs", "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nnCounts", "=", RowBox[{"BinCounts", "[", RowBox[{"nn", ",", RowBox[{"{", RowBox[{"0", ",", "3", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nnnCounts", "=", RowBox[{"BinCounts", "[", RowBox[{"nnn", ",", RowBox[{"{", RowBox[{"0", ",", "3", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eA", " ", "+", " ", RowBox[{"nnCounts", ".", RowBox[{"{", RowBox[{"0", ",", "eAA", ",", "eAB"}], "}"}]}], "+", " ", RowBox[{ RowBox[{"nnnCounts", ".", RowBox[{"{", RowBox[{"0", ",", "eAA", ",", "eAB"}], "}"}]}], " ", "\[Alpha]"}]}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"energyState", "[", RowBox[{ RowBox[{"{", RowBox[{"eA_", ",", "eB_"}], "}"}], ",", RowBox[{"{", RowBox[{"eAA_", ",", "eBB_", ",", "eAB_"}], "}"}], ",", "\[Alpha]_"}], "]"}], "[", RowBox[{"2", ",", "neighs__"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"energyState", "[", RowBox[{ RowBox[{"{", RowBox[{"eA", ",", "eB"}], "}"}], ",", RowBox[{"{", RowBox[{"eAA", ",", "eBB", ",", "eAB"}], "}"}], ",", "\[Alpha]"}], "]"}], "[", RowBox[{"2", ",", "neighs"}], "]"}], "=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"nn", ",", "nnn", ",", "nnCounts", ",", "nnnCounts"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"nn", ",", "nnn"}], "}"}], "=", RowBox[{"TakeList", "[", RowBox[{ RowBox[{"{", "neighs", "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nnCounts", "=", RowBox[{"BinCounts", "[", RowBox[{"nn", ",", RowBox[{"{", RowBox[{"0", ",", "3", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nnnCounts", "=", RowBox[{"BinCounts", "[", RowBox[{"nnn", ",", RowBox[{"{", RowBox[{"0", ",", "3", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eB", " ", "+", " ", RowBox[{"nnCounts", " ", ".", RowBox[{"{", RowBox[{"0", ",", "eAB", ",", "eBB"}], "}"}]}], "+", " ", RowBox[{ RowBox[{"nnnCounts", ".", RowBox[{"{", RowBox[{"0", ",", "eAB", ",", "eBB"}], "}"}]}], " ", "\[Alpha]"}]}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}]}]}], "Input", CellChangeTimes->{{3.8598428171541243`*^9, 3.859842924579239*^9}, { 3.859842962554223*^9, 3.85984299062703*^9}, 3.859843041679866*^9, { 3.8598431154837103`*^9, 3.859843122579069*^9}, {3.859843181481618*^9, 3.859843226932469*^9}, {3.859843313413199*^9, 3.85984341714049*^9}, { 3.8598434961753063`*^9, 3.859843561634989*^9}, {3.85984367177841*^9, 3.859843764728969*^9}, {3.8598438263220243`*^9, 3.859843848539186*^9}, { 3.859843890611462*^9, 3.859843894114633*^9}, {3.8598849189022703`*^9, 3.859884954302704*^9}, {3.859884988758297*^9, 3.8598850167889013`*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"e36e4eec-f113-401f-a172-aa1f87845c00"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Let\[CloseCurlyQuote]s check this visually", "Item", CellChangeTimes->{{3.859846526921466*^9, 3.859846529940031*^9}},ExpressionUUID->"fd2a20ef-a70d-468d-b170-\ 98672548fdc0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"randomLattice", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0.475", ",", "0.475", ",", "0.05"}], "}"}], ",", "3029"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.859845723644435*^9, 3.859845724659565*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"646c2394-bad8-430e-9c8a-513a84143876"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "1", "2"}, {"2", "1", "1", "2"}, {"1", "1", "2", "2"}, {"2", "2", "0", "1"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.859845724948079*^9, 3.859884694402863*^9, 3.859884963287285*^9}, CellLabel-> "Out[33]//MatrixForm=",ExpressionUUID->"65eebf2f-88d6-4e35-bf0c-\ 24ef6219c2b4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "\[IndentingNewLine]", RowBox[{"mooreNeighborhood", "[", RowBox[{ RowBox[{"energyState", "[", RowBox[{ RowBox[{"{", RowBox[{"eA", ",", "eB"}], "}"}], ",", RowBox[{"{", RowBox[{"eAA", ",", "eBB", ",", "eAB"}], "}"}], ",", "\[Alpha]"}], "]"}], ",", RowBox[{"randomLattice", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0.475", ",", "0.475", ",", "0.05"}], "}"}], ",", "3029"}], "]"}]}], "]"}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.859845667817539*^9, 3.859845716166424*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"fb1a83f2-c024-4944-bf6e-35b838fa9dab"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"eA", "+", RowBox[{"4", " ", "eAB"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "eAA"}], "+", RowBox[{"2", " ", "eAB"}]}], ")"}], " ", "\[Alpha]"}]}], RowBox[{ RowBox[{"3", " ", "eAB"}], "+", "eB", "+", "eBB", "+", RowBox[{ RowBox[{"(", RowBox[{"eAB", "+", RowBox[{"2", " ", "eBB"}]}], ")"}], " ", "\[Alpha]"}]}], RowBox[{"eA", "+", "eAA", "+", RowBox[{"2", " ", "eAB"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "eAA"}], "+", RowBox[{"2", " ", "eAB"}]}], ")"}], " ", "\[Alpha]"}]}], RowBox[{ RowBox[{"3", " ", "eAB"}], "+", "eB", "+", "eBB", "+", RowBox[{ RowBox[{"(", RowBox[{"eAB", "+", RowBox[{"2", " ", "eBB"}]}], ")"}], " ", "\[Alpha]"}]}]}, { RowBox[{ RowBox[{"3", " ", "eAB"}], "+", "eB", "+", "eBB", "+", RowBox[{ RowBox[{"(", RowBox[{"eAB", "+", RowBox[{"3", " ", "eBB"}]}], ")"}], " ", "\[Alpha]"}]}], RowBox[{"eA", "+", RowBox[{"2", " ", "eAA"}], "+", RowBox[{"2", " ", "eAB"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "eAA"}], "+", "eAB"}], ")"}], " ", "\[Alpha]"}]}], RowBox[{"eA", "+", RowBox[{"2", " ", "eAA"}], "+", RowBox[{"2", " ", "eAB"}], "+", RowBox[{ RowBox[{"(", RowBox[{"eAA", "+", RowBox[{"3", " ", "eAB"}]}], ")"}], " ", "\[Alpha]"}]}], RowBox[{"eAB", "+", "eB", "+", RowBox[{"3", " ", "eBB"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "eAB"}], "+", "eBB"}], ")"}], " ", "\[Alpha]"}]}]}, { RowBox[{"eA", "+", "eAA", "+", RowBox[{"3", " ", "eAB"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "eAA"}], "+", RowBox[{"2", " ", "eAB"}]}], ")"}], " ", "\[Alpha]"}]}], RowBox[{"eA", "+", RowBox[{"2", " ", "eAA"}], "+", RowBox[{"2", " ", "eAB"}], "+", RowBox[{ RowBox[{"(", RowBox[{"eAA", "+", RowBox[{"2", " ", "eAB"}]}], ")"}], " ", "\[Alpha]"}]}], RowBox[{ RowBox[{"2", " ", "eAB"}], "+", "eB", "+", "eBB", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "eAB"}], "+", RowBox[{"2", " ", "eBB"}]}], ")"}], " ", "\[Alpha]"}]}], RowBox[{ RowBox[{"2", " ", "eAB"}], "+", "eB", "+", RowBox[{"2", " ", "eBB"}], "+", RowBox[{ RowBox[{"(", RowBox[{"eAB", "+", RowBox[{"2", " ", "eBB"}]}], ")"}], " ", "\[Alpha]"}]}]}, { RowBox[{ RowBox[{"3", " ", "eAB"}], "+", "eB", "+", "eBB", "+", RowBox[{ RowBox[{"(", RowBox[{"eAB", "+", RowBox[{"3", " ", "eBB"}]}], ")"}], " ", "\[Alpha]"}]}], RowBox[{"eAB", "+", "eB", "+", RowBox[{"2", " ", "eBB"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "eAB"}], "+", "eBB"}], ")"}], " ", "\[Alpha]"}]}], "0", RowBox[{"eA", "+", RowBox[{"3", " ", "eAB"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "eAA"}], "+", "eAB"}], ")"}], " ", "\[Alpha]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.8598457020464983`*^9, 3.859845717008149*^9}, 3.8598846954987783`*^9, 3.8598849651566143`*^9, 3.859885041139824*^9}, CellLabel-> "Out[52]//MatrixForm=",ExpressionUUID->"af7d8a5b-5b2f-4a21-b52f-\ 7b1d14bc0a38"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Notice we also used our familiar \[OpenCurlyDoubleQuote]memoization\ \[CloseCurlyDoubleQuote] trick to speed this up\ \>", "Item", CellChangeTimes->{{3.85988770648393*^9, 3.8598877199043837`*^9}, { 3.859887767057082*^9, 3.859887779149035*^9}},ExpressionUUID->"ef8357a3-6f36-4b59-8785-\ 07356c85d9cb"], Cell["\<\ there\[CloseCurlyQuote]s only a finite number of neighbor configurations so \ we should be able to very quickly exhaust them all\ \>", "Subitem", CellChangeTimes->{{3.85988770648393*^9, 3.8598877199043837`*^9}, { 3.859887767057082*^9, 3.859887810625846*^9}},ExpressionUUID->"8e304b12-db5e-44d8-ae3f-\ 1e1916e735fa"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ We also need a routine to randomly select a vacancy, and swap it with one of \ its neighbors\ \>", "Item", CellChangeTimes->{{3.8598443437112293`*^9, 3.859844400269639*^9}, { 3.859844624360927*^9, 3.859844625272662*^9}},ExpressionUUID->"89b76326-b899-4e7a-b8f6-\ 2007048b77ca"], Cell[BoxData[ RowBox[{ RowBox[{"swapRandomVacancy", "[", "lattice_", "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"state", "=", "lattice"}], ",", "posV", ",", "randomDirection", ",", "newV", ",", RowBox[{"dims", "=", RowBox[{"Dimensions", "[", "lattice", "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"posV", "=", RowBox[{"RandomChoice", "[", RowBox[{"Position", "[", RowBox[{"state", ",", "0", ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"Heads", "\[Rule]", "False"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"randomDirection", "=", RowBox[{"RandomChoice", "[", RowBox[{"Rest", "[", "moore3by3Neighborhood", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"newV", "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"posV", "+", "randomDirection"}], ",", "dims", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"state", "[", RowBox[{"[", RowBox[{ RowBox[{"posV", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"posV", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"state", "[", RowBox[{"[", RowBox[{ RowBox[{"newV", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"newV", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}]}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"state", "[", RowBox[{"[", RowBox[{ RowBox[{"newV", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"newV", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"state", "[", RowBox[{"[", RowBox[{ RowBox[{"posV", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"posV", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "state"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.85984443119837*^9, 3.859844484535091*^9}, { 3.859844635419034*^9, 3.8598447481888227`*^9}, {3.85984479779362*^9, 3.8598448715517*^9}, {3.859844908963664*^9, 3.8598449924967613`*^9}, { 3.859845075364468*^9, 3.8598451151074753`*^9}, {3.859845490871811*^9, 3.859845515521554*^9}, {3.8598847412369347`*^9, 3.8598847687161903`*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"d7b32099-db05-44e2-a0a2-e9f472ed5ce1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"visualizeLattice", "[", RowBox[{"randomLattice", "[", RowBox[{ RowBox[{"{", RowBox[{"30", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0.475", ",", "0.475", ",", "0.05"}], "}"}], ",", "3029"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.859845182860876*^9, 3.859845199124732*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"cc6096a9-46b1-4cad-85cb-11e2e9c4daf6"], Cell[BoxData[ GraphicsBox[{ {EdgeForm[GrayLevel[0]], FaceForm[GrayLevel[1]], DiskBox[{15, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 10}, NCache[Rational[1, 2], 0.5]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0, 0]], DiskBox[{1, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 10}, NCache[Rational[1, 2], 0.5]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0, 0, 1]], DiskBox[{2, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 10}, NCache[Rational[1, 2], 0.5]]}}, ImageSize->500, PlotRangePadding->None]], "Output", CellChangeTimes->{ 3.859845129657707*^9, {3.859845189064266*^9, 3.859845199470427*^9}, 3.85984551987991*^9, 3.8598848301805887`*^9, 3.85988504383919*^9}, CellLabel->"Out[54]=",ExpressionUUID->"768c92a2-622d-4437-94f2-6e650e5582ab"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"visualizeLattice", "[", RowBox[{"swapRandomVacancy", "[", RowBox[{"randomLattice", "[", RowBox[{ RowBox[{"{", RowBox[{"30", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0.475", ",", "0.475", ",", "0.05"}], "}"}], ",", "3029"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.85984513698494*^9, 3.859845138530909*^9}, 3.859845204519546*^9}, CellLabel->"In[27]:=",ExpressionUUID->"849ccbff-c68a-488e-bb64-239f44d29cc7"], Cell[BoxData[ GraphicsBox[{ {EdgeForm[GrayLevel[0]], FaceForm[GrayLevel[1]], DiskBox[{15, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 10}, NCache[Rational[1, 2], 0.5]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0, 0]], DiskBox[{1, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 10}, NCache[Rational[1, 2], 0.5]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0, 0, 1]], DiskBox[{2, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 1}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 2}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 3}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 4}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 5}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{6, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{10, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 6}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 7}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{5, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{9, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{11, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{18, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{20, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 8}, NCache[Rational[1, 2], 0.5]], DiskBox[{2, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{3, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{4, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{7, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{12, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{19, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{23, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{24, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{25, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{29, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{30, 9}, NCache[Rational[1, 2], 0.5]], DiskBox[{1, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{8, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{13, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{14, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{15, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{16, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{17, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{21, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{22, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{26, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{27, 10}, NCache[Rational[1, 2], 0.5]], DiskBox[{28, 10}, NCache[Rational[1, 2], 0.5]]}}, ImageSize->500, PlotRangePadding->None]], "Output", CellChangeTimes->{ 3.85984513888157*^9, {3.8598451779039087`*^9, 3.859845206012336*^9}, 3.859845521089965*^9, 3.859884833261235*^9}, CellLabel->"Out[27]=",ExpressionUUID->"d86d4445-e430-4a83-b761-fbec8f020111"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ We then proceed to write our standard metropolis algorithm routine\ \>", "Item", CellChangeTimes->{{3.8598443058361797`*^9, 3.8598443427412252`*^9}},ExpressionUUID->"603228f4-3e57-4090-bb93-\ c72506afb3a8"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"monteCarloStep", "[", RowBox[{ RowBox[{"{", RowBox[{"eA_", ",", "eB_"}], "}"}], ",", RowBox[{"{", RowBox[{"eAA_", ",", "eBB_", ",", "eAB_"}], "}"}], ",", "\[Alpha]_"}], "]"}], "[", "temperature_", "]"}], "[", "lattice_", "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "latticeAfter", ",", "energyBefore", ",", "deltaEnergy", ",", "probability"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"energyBefore", "=", RowBox[{"Total", "[", RowBox[{ RowBox[{"mooreNeighborhood", "[", RowBox[{ RowBox[{"energyState", "[", RowBox[{ RowBox[{"{", RowBox[{"eA", ",", "eB"}], "}"}], ",", RowBox[{"{", RowBox[{"eAA", ",", "eBB", ",", "eAB"}], "}"}], ",", "\[Alpha]"}], "]"}], ",", "lattice"}], "]"}], ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"latticeAfter", "=", RowBox[{"swapRandomVacancy", "[", "lattice", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"deltaEnergy", "=", RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{"mooreNeighborhood", "[", RowBox[{ RowBox[{"energyState", "[", RowBox[{ RowBox[{"{", RowBox[{"eA", ",", "eB"}], "}"}], ",", RowBox[{"{", RowBox[{"eAA", ",", "eBB", ",", "eAB"}], "}"}], ",", "\[Alpha]"}], "]"}], ",", "latticeAfter"}], "]"}], ",", "2"}], "]"}], "-", "energyBefore"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"deltaEnergy", "<=", " ", "0"}], ",", " ", RowBox[{"Return", "[", "latticeAfter", "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"probability", " ", "=", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "deltaEnergy"}], "/", "temperature"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"RandomChoice", "[", RowBox[{ RowBox[{"{", RowBox[{"probability", ",", RowBox[{"1", "-", "probability"}]}], "}"}], "->", RowBox[{"{", RowBox[{"latticeAfter", ",", "lattice"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.859845618323287*^9, 3.8598456512818413`*^9}, { 3.8598457340525637`*^9, 3.8598458858277607`*^9}, {3.859845955999483*^9, 3.859845977383128*^9}, {3.859846171570038*^9, 3.859846180530387*^9}, { 3.8598462314830103`*^9, 3.85984623181713*^9}}, CellLabel->"In[55]:=",ExpressionUUID->"d013a463-6ba0-44b8-9390-f7fb8faaf0bb"] }, Open ]], Cell[CellGroupData[{ Cell["And run the simulation dynamically", "Item", CellChangeTimes->{{3.8598443058361797`*^9, 3.8598443427412252`*^9}, { 3.859846492843729*^9, 3.85984650166819*^9}},ExpressionUUID->"1e58b703-3aff-466b-ab60-\ 1d73d7894878"], Cell[BoxData[{ RowBox[{ RowBox[{"lattice", "=", RowBox[{"randomLattice", "[", RowBox[{ RowBox[{"{", RowBox[{"30", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0.475", ",", "0.475", ",", "0.05"}], "}"}], ",", "3029"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"visualizeLattice", "[", "lattice", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.8598459908234577`*^9, 3.859846017878517*^9}, { 3.85984611671313*^9, 3.859846119999796*^9}, {3.859846184183948*^9, 3.859846185952619*^9}, {3.859846229610162*^9, 3.8598462297549763`*^9}, 3.859846459113847*^9, 3.859846514895608*^9}, CellLabel->"In[68]:=",ExpressionUUID->"7b3e7f76-9c04-4a32-9bf1-0787215f7ac0"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{"lattice", "=", RowBox[{ RowBox[{ RowBox[{"monteCarloStep", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", "1"}], "]"}], "[", "2", "]"}], "[", "lattice", "]"}]}], ",", "10000"}], "]"}]], "Input", CellChangeTimes->{{3.859846027542408*^9, 3.85984606173562*^9}, 3.859846138736627*^9, {3.859846280688156*^9, 3.859846281969657*^9}, { 3.859846404105144*^9, 3.859846477299693*^9}, 3.85988505994304*^9, 3.8598878497631817`*^9}, CellLabel->"In[70]:=",ExpressionUUID->"cbd26144-7401-4426-a5bd-6715321c7d4d"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ What if we wanted to simulate the effects of a finite system, i.e. a surface?\ \ \>", "Item", CellChangeTimes->{{3.859887882488106*^9, 3.859887906064068*^9}},ExpressionUUID->"b8c797f4-7f13-4050-a55f-\ 2fc7729ae584"], Cell["How would we change our simulation to account for this?", "Subitem", CellChangeTimes->{{3.859887882488106*^9, 3.8598879166201353`*^9}},ExpressionUUID->"66131e7a-4cfc-4b28-9024-\ 92cf223e563f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Order-Disorder Transformation Demo", "Section", CellChangeTimes->{{3.859846542228753*^9, 3.859846555116603*^9}, { 3.859888464649626*^9, 3.859888471820486*^9}},ExpressionUUID->"fe033403-b764-4ab7-9b32-\ a39a3b72bae9"], Cell[CellGroupData[{ Cell["The above was very easy to set-up, and runs fairly fast", "Item", CellChangeTimes->{{3.8598465571332417`*^9, 3.859846573865191*^9}, { 3.859887922187366*^9, 3.859887926238963*^9}},ExpressionUUID->"6b6e6f95-7dc2-41e0-8272-\ 6533851a7964"], Cell[CellGroupData[{ Cell["\<\ but we can do better by compiling the time-consuming energy-computation step\ \>", "Subitem", CellChangeTimes->{{3.8598465571332417`*^9, 3.859846573865191*^9}, { 3.859887922187366*^9, 3.8598879529723043`*^9}},ExpressionUUID->"f2420466-5f2b-4509-a30a-\ d41cf16351db"], Cell["This is what the source code below does", "Subsubitem", CellChangeTimes->{{3.8598465571332417`*^9, 3.8598466242050943`*^9}},ExpressionUUID->"6bdd139d-0b1f-4ded-be94-\ d7f2e285d816"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["We\[CloseCurlyQuote]ll use this to explore the physics in more detail", \ "Item", CellChangeTimes->{{3.8598465571332417`*^9, 3.859846640052902*^9}, { 3.859888443830295*^9, 3.859888443831135*^9}},ExpressionUUID->"d9e7e5b1-4962-4649-b3f3-\ c7a60b3fc067"], Cell["\<\ In particular, we\[CloseCurlyQuote]ll investigate the effects of surfaces \ using a finite-size system\ \>", "Subitem", CellChangeTimes->{{3.8598465571332417`*^9, 3.859846640052902*^9}, { 3.859888447296074*^9, 3.859888489301433*^9}},ExpressionUUID->"ffd003aa-f355-4f6b-b790-\ f5be45096969"], Cell[CellGroupData[{ Cell["Which is in-contact with A-atoms and B-atoms vapor-pressure", "Subitem", CellChangeTimes->{{3.8598465571332417`*^9, 3.859846640052902*^9}, { 3.859888447296074*^9, 3.859888512070121*^9}},ExpressionUUID->"65246b8e-7476-44ef-997d-\ f3d2c54817d3"], Cell["\<\ To do this we need to introduce chemical potentials for the two species\ \>", "Subsubitem", CellChangeTimes->{{3.8598465571332417`*^9, 3.859846640052902*^9}, { 3.859888447296074*^9, 3.859888525062744*^9}, {3.859888591500031*^9, 3.859888591501212*^9}},ExpressionUUID->"3f1f3d74-42d7-48a6-b979-\ 97ed6cc69bf1"], Cell["\<\ Intuitively, the chemical potential of species A is the \ \[OpenCurlyDoubleQuote]total\[CloseCurlyDoubleQuote] energy difference \ between placing an A atom on a lattice from the vapor, as opposed to placing \ a vacancy\ \>", "Subsubitem", CellChangeTimes->{{3.8598465571332417`*^9, 3.859846640052902*^9}, { 3.859888447296074*^9, 3.859888525062744*^9}, {3.859888597123836*^9, 3.8598886984915533`*^9}},ExpressionUUID->"64e7e61c-8661-44ff-8998-\ 6cee4b4ccf66"], Cell[CellGroupData[{ Cell["\<\ Recall that the chemical potential of a species cannot be defined solely on a \ lattice, but instead is given by the difference of the species and a vacancy\ \>", "Subsubitem", CellChangeTimes->{{3.8598465571332417`*^9, 3.859846640052902*^9}, { 3.859888447296074*^9, 3.859888525062744*^9}, {3.859888597123836*^9, 3.85988863908503*^9}, {3.8598887044885902`*^9, 3.8598887173972893`*^9}},ExpressionUUID->"736a743e-9ae7-42e9-9e0e-\ 6a6df0c4455c"], Cell[BoxData[ RowBox[{ RowBox[{"Get", "[", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\\""}], "}"}], "]"}], "]"}], ";"}]], "Input", CellLabel->"In[71]:=",ExpressionUUID->"d0c8653d-2892-47d1-83d3-612e9796c3c6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"orderdisorderSimulation", "[", RowBox[{"\[Mu]B", ",", "\[Mu]R", ",", "eAA", ",", "eAB"}], "]"}], "[", RowBox[{"{", RowBox[{"vFrac", ",", "bFrac", ",", "rFrac"}], "}"}], "]"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"orderdisorderSimulation", "[", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], "[", RowBox[{"{", RowBox[{"0.1", ",", "0.45", ",", "0.45"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.859885987836143*^9, 3.859885998280208*^9}, { 3.859888380664755*^9, 3.859888397848694*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"2be4be47-ca38-401e-a6cc-6984f9a6dcd4"], Cell[BoxData[ TemplateBox[{ FrontEndObject[ LinkObject["mvfpi_shm", 3, 1]], 35, "FrontEndObject[LinkObject[\"mvfpi_shm\", 3, 1]]", "35", "\"Untitled-9\""}, "NotebookObjectUnsaved"]], "Output", CellChangeTimes->{ 3.8598466687655907`*^9, 3.859847041250169*^9, 3.8598851694428596`*^9, { 3.859885989472213*^9, 3.859885998957924*^9}, 3.859886072913471*^9, 3.859886188249609*^9, 3.859886257490121*^9, 3.859886312743081*^9, 3.8598883986116047`*^9, 3.8598888217201*^9}, CellLabel->"Out[73]=",ExpressionUUID->"5cd0b206-49d5-49c0-a4e8-7efde852f5fd"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Spinodal Decomposition", "Subsection", CellChangeTimes->{{3.859888732144548*^9, 3.8598887418514833`*^9}},ExpressionUUID->"b664fe4c-3805-4bcd-90ed-\ 1d50926c7b45"], Cell[CellGroupData[{ Cell["Negative (favourable) like interactions", "Item", CellChangeTimes->{{3.859886030221072*^9, 3.859886034689467*^9}, { 3.85988875220327*^9, 3.859888762260913*^9}, {3.85988884894416*^9, 3.859888857842239*^9}, {3.8598889315633287`*^9, 3.859888939665977*^9}, { 3.8598893816542*^9, 3.8598893824620657`*^9}},ExpressionUUID->"1621e366-6a00-4323-8430-\ 20be9eb805a8"], Cell[CellGroupData[{ Cell["Species phase-separate ", "Subitem", CellChangeTimes->{{3.859886030221072*^9, 3.859886036394627*^9}, { 3.859888941351407*^9, 3.859888956824238*^9}, {3.859889292316386*^9, 3.859889292316831*^9}},ExpressionUUID->"3437fcb4-600f-416e-9a59-\ 032dd70bb1ca"], Cell["left/right bulk ground state", "Subsubitem", CellChangeTimes->{{3.859886030221072*^9, 3.859886036394627*^9}, { 3.859888941351407*^9, 3.859888956824238*^9}, {3.859889300795938*^9, 3.85988931731929*^9}},ExpressionUUID->"42d38127-8b98-4c1a-97fd-\ 14c690c3483f"] }, Open ]], Cell[CellGroupData[{ Cell["Vacancies accumulate at surfaces", "Subitem", CellChangeTimes->{{3.859886030221072*^9, 3.859886046433283*^9}},ExpressionUUID->"523ddc81-9599-4ea8-92fe-\ 0bce8b014fe5"], Cell["\<\ Vacancies act as a surfactant lowering the surface energy (on-site energy \ zero)\ \>", "Subsubitem", CellChangeTimes->{{3.859886030221072*^9, 3.859886071144567*^9}, { 3.859888963348497*^9, 3.8598889683402567`*^9}},ExpressionUUID->"02df7c9a-eb2c-48f9-99b6-\ 7d9226f0df4b"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Ordered - Unfavourable", "Subsection", CellChangeTimes->{{3.859888732144548*^9, 3.8598887418514833`*^9}, { 3.859888978425147*^9, 3.859888979347945*^9}, {3.859889216827958*^9, 3.859889246635241*^9}},ExpressionUUID->"a8dc2f82-c20a-4e57-93be-\ accf5fbe10d8"], Cell[CellGroupData[{ Cell["\<\ Negative (favourable) like and positive (unfavourable) unlike interactions\ \>", "Item", CellChangeTimes->{{3.859886099239358*^9, 3.859886108811556*^9}, { 3.8598890981066437`*^9, 3.859889109573287*^9}, 3.859889274417523*^9},ExpressionUUID->"0f97d0ae-d07b-41b5-8112-\ 2d6cd3d33eb4"], Cell[CellGroupData[{ Cell["Ordering transformation", "Subitem", CellChangeTimes->{{3.859886099239358*^9, 3.859886108088478*^9}, { 3.8598861505887747`*^9, 3.8598861513546457`*^9}, {3.859889171864647*^9, 3.859889185611845*^9}},ExpressionUUID->"368685c1-e27a-403f-8cb7-\ 4fdbc4f5b2c7"], Cell["Stripes ground state", "Subsubitem", CellChangeTimes->{{3.859886099239358*^9, 3.859886108088478*^9}, { 3.8598861505887747`*^9, 3.8598861513546457`*^9}, {3.859889171864647*^9, 3.8598891883810663`*^9}, {3.859889287524899*^9, 3.85988928921417*^9}},ExpressionUUID->"7c8ff149-1bb9-4ed7-89aa-\ 7d177b0c8540"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Ordered - Favourable", "Subsection", CellChangeTimes->{{3.859889193812674*^9, 3.859889214212323*^9}, { 3.859889248779799*^9, 3.8598892585291033`*^9}},ExpressionUUID->"d4402783-1635-4e4d-b153-\ 1836030a0644"], Cell[CellGroupData[{ Cell["\<\ Positive (unfavourable) like and negative (favourable) unlike interactions\ \>", "Item", CellChangeTimes->{{3.859886099239358*^9, 3.859886108811556*^9}, { 3.8598890981066437`*^9, 3.859889109573287*^9}, {3.859889261280487*^9, 3.859889272616194*^9}},ExpressionUUID->"f86c6db1-2079-42ad-bf96-\ 0376cce0f408"], Cell[CellGroupData[{ Cell["Ordering transformation", "Subitem", CellChangeTimes->{{3.859886099239358*^9, 3.859886108088478*^9}, { 3.8598861505887747`*^9, 3.8598861513546457`*^9}, {3.859889171864647*^9, 3.859889185611845*^9}},ExpressionUUID->"df9790d1-ead9-43e9-9966-\ 42fd429c4422"], Cell["Checkerboard ground state", "Subsubitem", CellChangeTimes->{{3.859886099239358*^9, 3.859886108088478*^9}, { 3.8598861505887747`*^9, 3.8598861513546457`*^9}, {3.859889171864647*^9, 3.8598891883810663`*^9}, {3.8598892801000443`*^9, 3.859889285928801*^9}},ExpressionUUID->"f9bc4b2e-5ce8-4347-91a8-\ 534093804f67"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Effect of Chemical Potential", "Subsection", CellChangeTimes->{{3.859889324025427*^9, 3.859889334133099*^9}},ExpressionUUID->"476ec89f-af2a-4a43-8a50-\ c668cbaeba48"], Cell[CellGroupData[{ Cell["Start at zero interactions", "Item", CellChangeTimes->{{3.859886447536026*^9, 3.859886459227227*^9}, 3.8598893424358997`*^9},ExpressionUUID->"f285a3b1-e302-40e8-be2e-\ 8d8c2e57421d"], Cell["turn off constant composition", "Subitem", CellChangeTimes->{{3.859886447536026*^9, 3.859886464934936*^9}},ExpressionUUID->"15e28fcf-567e-473b-a48c-\ fcf9f49b5f5a"] }, Open ]], Cell[CellGroupData[{ Cell["Make like interactions favourable", "Item", CellChangeTimes->{{3.859886447536026*^9, 3.859886472485327*^9}, { 3.85988934971791*^9, 3.859889364971987*^9}},ExpressionUUID->"29738171-4924-453f-ac53-\ 90bce660a738"], Cell["will phase-separate", "Subitem", CellChangeTimes->{{3.859886447536026*^9, 3.8598864779737473`*^9}, { 3.8598893711474543`*^9, 3.859889374963595*^9}},ExpressionUUID->"fe141184-9bf6-4fe6-ba49-\ 635579d6026b"], Cell["vacancies will leave the systems", "Subitem", CellChangeTimes->{{3.859886447536026*^9, 3.8598864909282417`*^9}},ExpressionUUID->"e9b18bf3-6ca3-457b-8e62-\ 62705e57aa0e"], Cell[CellGroupData[{ Cell["remaining vacancies trapped along domain interfaces", "Subitem", CellChangeTimes->{{3.859886447536026*^9, 3.8598865133748627`*^9}},ExpressionUUID->"ad423430-a724-4451-93de-\ c3a7d650d6c4"], Cell["very much exaggerated", "Subsubitem", CellChangeTimes->{{3.859886447536026*^9, 3.8598865235308533`*^9}},ExpressionUUID->"0285b51c-2e5f-4ce0-8f5f-\ ae119be26679"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Increase species A chemical potential", "Item", CellChangeTimes->{{3.85988666569777*^9, 3.859886692643591*^9}, { 3.859886732326441*^9, 3.85988673232722*^9}, {3.859889397617491*^9, 3.859889428484599*^9}},ExpressionUUID->"db1f1dfc-6047-43f2-8b6d-\ de317b0abaab"], Cell["\<\ high vapor pressure means it\[CloseCurlyQuote]s trying to \ \[OpenCurlyDoubleQuote]force\[CloseCurlyDoubleQuote] A-atoms from vapour in \ to lattice\ \>", "Subitem", CellChangeTimes->{{3.85988666569777*^9, 3.859886692643591*^9}, { 3.8598867348606033`*^9, 3.85988674986346*^9}, {3.859889434359561*^9, 3.859889439406824*^9}},ExpressionUUID->"e170ff5b-f8f1-4108-95ad-\ f1227a0bbb56"] }, Open ]], Cell[CellGroupData[{ Cell["Decrease species B chemical potential", "Item", CellChangeTimes->{{3.859886803269186*^9, 3.859886811756825*^9}, { 3.859889445733452*^9, 3.859889451411396*^9}},ExpressionUUID->"4113b326-b68d-4cd1-bfaa-\ 4530a28614e4"], Cell["\<\ low vapor pressure means it\[CloseCurlyQuote]s trying to \ \[OpenCurlyDoubleQuote]force\[CloseCurlyDoubleQuote] B-atoms from the lattice \ into the vapour\ \>", "Subitem", CellChangeTimes->{{3.85988666569777*^9, 3.859886692643591*^9}, { 3.8598867348606033`*^9, 3.85988674986346*^9}, {3.859889434359561*^9, 3.859889479528903*^9}},ExpressionUUID->"0ac4367d-41ca-44d6-9d72-\ d5a5333516d6"], Cell[CellGroupData[{ Cell["\<\ however, if species B is \[OpenCurlyDoubleQuote]trapped\ \[CloseCurlyDoubleQuote] inside the lattice, it\[CloseCurlyQuote]s hard to \ diffuse out to the surface\ \>", "Subitem", CellChangeTimes->{{3.859886803269186*^9, 3.859886821375503*^9}, { 3.859889488211318*^9, 3.859889518391357*^9}},ExpressionUUID->"43e9c70a-476b-4975-a668-\ f5d9f98770d2"], Cell["this is a very real materials-science phenomenon!", "Subsubitem", CellChangeTimes->{{3.859886803269186*^9, 3.859886821375503*^9}, { 3.859889488211318*^9, 3.8598895320591784`*^9}},ExpressionUUID->"c2e6276c-9667-4f84-8e8e-\ 10a6988fe343"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1440, 786}, WindowMargins->{{1440, Automatic}, {0, Automatic}}, PrivateNotebookOptions->{"CloudPublishPath"->"/Published/3029-SP22__L22__\ order-disorder-transition__04-25-22.nb"}, Magnification:>1.25 Inherited, FrontEndVersion->"13.0 for Linux x86 (64-bit) (December 2, 2021)", StyleDefinitions->"Default.nb", ExpressionUUID->"ee4a7329-a5f0-4ea1-b1d7-f0450d541987" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "eq:van-der-waals"->{ Cell[3341, 68, 3233, 70, 86, "DisplayFormulaNumbered",ExpressionUUID->"12ff7161-15d0-4dab-97f0-22486d03b4f3", CellTags->"eq:van-der-waals"]} } *) (*CellTagsIndex CellTagsIndex->{ {"eq:van-der-waals", 206863, 4507} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 1123, 15, 106, "Subtitle",ExpressionUUID->"a5388ee5-bffb-4b43-bfe5-ff24bb700ea0"], Cell[CellGroupData[{ Cell[1706, 39, 1229, 17, 85, "Chapter",ExpressionUUID->"b13601c0-533b-4e28-b3c5-4f0c17974534"], Cell[2938, 58, 400, 8, 40, "Item",ExpressionUUID->"e2def18a-0da1-4da1-82da-5dbbfe6f0418"], Cell[3341, 68, 3233, 70, 86, "DisplayFormulaNumbered",ExpressionUUID->"12ff7161-15d0-4dab-97f0-22486d03b4f3", CellTags->"eq:van-der-waals"], Cell[6577, 140, 379, 8, 40, "Item",ExpressionUUID->"d340a3db-6403-47e7-ae3a-7d013757cd6c"], Cell[CellGroupData[{ Cell[6981, 152, 248, 4, 40, "Item",ExpressionUUID->"4a8b248f-17f0-4fcc-ad14-5ff06908b2fc"], Cell[CellGroupData[{ Cell[7254, 160, 257, 4, 34, "Subitem",ExpressionUUID->"3df0a753-3fa3-43a5-a05c-1f20c8dcf18b"], Cell[7514, 166, 529, 12, 31, "Subsubitem",ExpressionUUID->"c62299b0-f407-43b6-8d64-435febba8493"] }, Open ]], Cell[CellGroupData[{ Cell[8080, 183, 260, 4, 34, "Subitem",ExpressionUUID->"55b55286-9e43-470f-be6d-1d3403da3fcd"], Cell[8343, 189, 527, 12, 31, "Subsubitem",ExpressionUUID->"aa056719-a562-4f86-b8e9-436be6a9c817"] }, Open ]], Cell[CellGroupData[{ Cell[8907, 206, 274, 4, 34, "Subitem",ExpressionUUID->"84f20689-d149-4d7d-83e4-0a1b61222677"], Cell[CellGroupData[{ Cell[9206, 214, 469, 12, 31, "Subsubitem",ExpressionUUID->"7e6519be-1bb2-4987-a4cd-771432e80327"], Cell[9678, 228, 17217, 278, 180, "Input",ExpressionUUID->"9101e04f-27d8-4607-9509-54fc2d97ecd7"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26956, 513, 265, 5, 40, "Item",ExpressionUUID->"0fdec1ab-d178-4d81-9c2d-a5f7ff138b12"], Cell[27224, 520, 425, 11, 34, "Subitem",ExpressionUUID->"184a6b8b-2135-4e78-8e3f-4acca3b6cb8a"], Cell[27652, 533, 423, 11, 34, "Subitem",ExpressionUUID->"49cad491-d40d-479b-a537-51e04760c657"], Cell[28078, 546, 424, 11, 34, "Subitem",ExpressionUUID->"682920f5-e1a4-486c-bcaa-c0bdea372548"], Cell[CellGroupData[{ Cell[28527, 561, 241, 5, 34, "Subitem",ExpressionUUID->"8ec61542-94ad-4f5b-85f3-4699e8e07a3f"], Cell[28771, 568, 361, 7, 31, "Subsubitem",ExpressionUUID->"c33688f4-c909-4d3b-b0ad-bd029c337c59"], Cell[CellGroupData[{ Cell[29157, 579, 382, 7, 31, "Subsubitem",ExpressionUUID->"07ae48af-0aa3-4ee7-b810-d7802c5ebb50"], Cell[29542, 588, 60289, 960, 272, "Input",ExpressionUUID->"1fd6bd08-79c1-465a-b24a-a7ad3f55a57e"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[89892, 1555, 160, 3, 40, "Item",ExpressionUUID->"5119ffb7-ab58-4e09-b59d-1312ab0198a2"], Cell[90055, 1560, 237, 8, 40, "Subitem",ExpressionUUID->"59074760-2e61-4701-82cd-48c808d646a8"], Cell[90295, 1570, 237, 8, 40, "Subitem",ExpressionUUID->"292eb9cc-0681-443d-a0f4-786697754727"] }, Open ]], Cell[CellGroupData[{ Cell[90569, 1583, 168, 3, 83, "Section",ExpressionUUID->"ce602de4-2213-487f-93dd-ebdd4ad42373"], Cell[CellGroupData[{ Cell[90762, 1590, 680, 16, 42, "Item",ExpressionUUID->"4f9a19a2-b94c-4149-94b7-af36cd6c2dd8"], Cell[91445, 1608, 236, 4, 34, "Subitem",ExpressionUUID->"b1b2bbbf-3c3e-4ba8-b31b-1e75021d1e2c"] }, Open ]], Cell[CellGroupData[{ Cell[91718, 1617, 296, 6, 40, "Item",ExpressionUUID->"0730a077-4cf5-4a99-b1e9-aa5e5dc65b7d"], Cell[CellGroupData[{ Cell[92039, 1627, 340, 7, 34, "Subitem",ExpressionUUID->"913f85ad-42ea-43d3-93ce-b15de4969455"], Cell[92382, 1636, 1253, 31, 88, "Input",ExpressionUUID->"a1e52957-465e-4d88-9055-0d660bf6646f"], Cell[CellGroupData[{ Cell[93660, 1671, 779, 15, 88, "Input",ExpressionUUID->"9a29d86f-90a1-4176-bb43-63aa4fc51dc6"], Cell[94442, 1688, 2220, 41, 231, "Output",ExpressionUUID->"57f74192-753f-4598-bd87-6682adae2f1d"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[96723, 1736, 230, 4, 40, "Item",ExpressionUUID->"bfa8965d-92f7-40b2-970c-4089caf9e39a"], Cell[96956, 1742, 920, 18, 88, "Input",ExpressionUUID->"ade0288e-47ca-474d-b7de-a5c6cf57054d"], Cell[CellGroupData[{ Cell[97901, 1764, 551, 12, 36, "Input",ExpressionUUID->"c78d565b-3231-40af-b2fb-f5f39c76b685"], Cell[98455, 1778, 1354, 31, 229, "Output",ExpressionUUID->"fbc8bfed-afed-41e2-9314-1375e23a7868"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[99858, 1815, 189, 3, 40, "Item",ExpressionUUID->"e3f132cf-2d10-4859-8478-9e6557b1ef11"], Cell[100050, 1820, 1934, 51, 138, "Input",ExpressionUUID->"c50b4d36-e6ef-452d-a5c4-f44af391b551"], Cell[CellGroupData[{ Cell[102009, 1875, 446, 11, 36, "Input",ExpressionUUID->"faeb9656-72fb-40f1-bcfb-9efcf7ea17be"], Cell[102458, 1888, 16088, 310, 230, "Output",ExpressionUUID->"36216267-17c6-4720-93b6-b0369adfa223"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[118595, 2204, 220, 5, 40, "Item",ExpressionUUID->"483d4df5-0fb5-4880-bd70-ad1629dc2569"], Cell[118818, 2211, 338, 7, 34, "Subitem",ExpressionUUID->"81767642-69ad-4cc9-84c8-3f920855ad9c"], Cell[CellGroupData[{ Cell[119181, 2222, 370, 8, 34, "Subitem",ExpressionUUID->"b096956a-4a3f-4f6c-bfe5-2f20d7782c07"], Cell[119554, 2232, 728, 16, 31, "Subsubitem",ExpressionUUID->"d62f6fbd-7cb8-41f8-915e-19f876c493ff"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[120331, 2254, 214, 4, 40, "Item",ExpressionUUID->"df60ee6d-0952-4bb9-932c-27defe945f4d"], Cell[CellGroupData[{ Cell[120570, 2262, 300, 7, 34, "Subitem",ExpressionUUID->"cea425f6-c32d-49fc-a1b0-3607c68dee59"], Cell[120873, 2271, 208, 4, 31, "Subsubitem",ExpressionUUID->"26e70d95-8adc-489c-8265-babee8ff3d1e"] }, Open ]], Cell[121096, 2278, 240, 4, 34, "Subitem",ExpressionUUID->"631639f5-786d-43a5-89ac-10b143a8b15c"] }, Open ]], Cell[CellGroupData[{ Cell[121373, 2287, 247, 4, 40, "Item",ExpressionUUID->"3a366acc-8cd2-499e-86bc-cce22c9420eb"], Cell[CellGroupData[{ Cell[121645, 2295, 282, 7, 34, "Subitem",ExpressionUUID->"51d69d6e-e118-4c51-afab-9916710eee6a"], Cell[CellGroupData[{ Cell[121952, 2306, 483, 11, 88, "Input",ExpressionUUID->"b7cef795-63b8-4101-83f6-767af4b1ea1a"], Cell[122438, 2319, 333, 7, 41, "Output",ExpressionUUID->"e364c63a-add9-4a99-a02a-b21eff4953a8"], Cell[122774, 2328, 333, 7, 41, "Output",ExpressionUUID->"9edd2ae4-0c42-4686-b0f2-20338bebb654"], Cell[123110, 2337, 333, 7, 41, "Output",ExpressionUUID->"fe714f6f-1c1f-45aa-8c6c-25ebf4daab37"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[123504, 2351, 167, 3, 40, "Item",ExpressionUUID->"145c535c-a65b-43ff-b3c4-6ad306aff575"], Cell[CellGroupData[{ Cell[123696, 2358, 409, 11, 36, "Input",ExpressionUUID->"669fc130-d68a-4a13-86c9-341b7e5ad177"], Cell[124108, 2371, 812, 29, 87, "Output",ExpressionUUID->"4a2f048a-d8b0-4076-9c9f-cb66b997cbb3"] }, Open ]], Cell[CellGroupData[{ Cell[124957, 2405, 534, 15, 36, "Input",ExpressionUUID->"6078c241-d544-4b5d-b0e2-804cfe2e1d5e"], Cell[125494, 2422, 836, 29, 87, "Output",ExpressionUUID->"4185e16b-58db-4de8-93e7-d510f5a78b61"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[126379, 2457, 311, 7, 40, "Item",ExpressionUUID->"9f72beb4-fe1d-4354-88ab-f3cf636d82e7"], Cell[126693, 2466, 1588, 45, 88, "Input",ExpressionUUID->"3fc3e864-30b8-4c74-b383-11e724ca1da6"], Cell[CellGroupData[{ Cell[128306, 2515, 254, 4, 34, "Subitem",ExpressionUUID->"a471bdf2-28ab-4486-a52b-65f810be8bac"], Cell[CellGroupData[{ Cell[128585, 2523, 503, 12, 36, "Input",ExpressionUUID->"c540c2d9-6584-4883-9447-f9f72d70fce3"], Cell[129091, 2537, 10725, 334, 239, "Output",ExpressionUUID->"2e89c0d5-3b60-44ee-8c4f-e361962872a1"] }, Open ]], Cell[139831, 2874, 5123, 137, 619, "Input",ExpressionUUID->"e36e4eec-f113-401f-a172-aa1f87845c00"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[145003, 3017, 184, 3, 40, "Item",ExpressionUUID->"fd2a20ef-a70d-468d-b170-98672548fdc0"], Cell[CellGroupData[{ Cell[145212, 3024, 412, 10, 36, "Input",ExpressionUUID->"646c2394-bad8-430e-9c8a-513a84143876"], Cell[145627, 3036, 741, 22, 120, "Output",ExpressionUUID->"65eebf2f-88d6-4e35-bf0c-24ef6219c2b4"] }, Open ]], Cell[CellGroupData[{ Cell[146405, 3063, 757, 19, 88, "Input",ExpressionUUID->"fb1a83f2-c024-4944-bf6e-35b838fa9dab"], Cell[147165, 3084, 4157, 122, 120, "Output",ExpressionUUID->"af7d8a5b-5b2f-4a21-b52f-7b1d14bc0a38"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[151371, 3212, 316, 7, 40, "Item",ExpressionUUID->"ef8357a3-6f36-4b59-8785-07356c85d9cb"], Cell[151690, 3221, 331, 7, 34, "Subitem",ExpressionUUID->"8e304b12-db5e-44d8-ae3f-1e1916e735fa"] }, Open ]], Cell[CellGroupData[{ Cell[152058, 3233, 293, 7, 40, "Item",ExpressionUUID->"89b76326-b899-4e7a-b8f6-2007048b77ca"], Cell[152354, 3242, 2741, 69, 240, "Input",ExpressionUUID->"d7b32099-db05-44e2-a0a2-e9f472ed5ce1"], Cell[CellGroupData[{ Cell[155120, 3315, 420, 10, 36, "Input",ExpressionUUID->"cc6096a9-46b1-4cad-85cb-11e2e9c4daf6"], Cell[155543, 3327, 16036, 310, 230, "Output",ExpressionUUID->"768c92a2-622d-4437-94f2-6e650e5582ab"] }, Open ]], Cell[CellGroupData[{ Cell[171616, 3642, 496, 12, 36, "Input",ExpressionUUID->"849ccbff-c68a-488e-bb64-239f44d29cc7"], Cell[172115, 3656, 16015, 310, 230, "Output",ExpressionUUID->"d86d4445-e430-4a83-b761-fbec8f020111"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[188179, 3972, 220, 5, 40, "Item",ExpressionUUID->"603228f4-3e57-4090-bb93-c72506afb3a8"], Cell[188402, 3979, 2837, 71, 315, "Input",ExpressionUUID->"d013a463-6ba0-44b8-9390-f7fb8faaf0bb"] }, Open ]], Cell[CellGroupData[{ Cell[191276, 4055, 228, 4, 40, "Item",ExpressionUUID->"1e58b703-3aff-466b-ab60-1d73d7894878"], Cell[191507, 4061, 740, 16, 62, "Input",ExpressionUUID->"7b3e7f76-9c04-4a32-9bf1-0787215f7ac0"], Cell[192250, 4079, 764, 19, 36, "Input",ExpressionUUID->"cbd26144-7401-4426-a5bd-6715321c7d4d"] }, Open ]], Cell[CellGroupData[{ Cell[193051, 4103, 229, 6, 40, "Item",ExpressionUUID->"b8c797f4-7f13-4050-a55f-2fc7729ae584"], Cell[193283, 4111, 202, 3, 34, "Subitem",ExpressionUUID->"66131e7a-4cfc-4b28-9024-92cf223e563f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[193534, 4120, 228, 4, 83, "Section",ExpressionUUID->"fe033403-b764-4ab7-9b32-a39a3b72bae9"], Cell[CellGroupData[{ Cell[193787, 4128, 248, 4, 40, "Item",ExpressionUUID->"6b6e6f95-7dc2-41e0-8272-6533851a7964"], Cell[CellGroupData[{ Cell[194060, 4136, 282, 6, 34, "Subitem",ExpressionUUID->"f2420466-5f2b-4509-a30a-d41cf16351db"], Cell[194345, 4144, 191, 3, 31, "Subsubitem",ExpressionUUID->"6bdd139d-0b1f-4ded-be94-d7f2e285d816"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[194585, 4153, 264, 5, 40, "Item",ExpressionUUID->"d9e7e5b1-4962-4649-b3f3-c7a60b3fc067"], Cell[194852, 4160, 306, 7, 34, "Subitem",ExpressionUUID->"ffd003aa-f355-4f6b-b790-f5be45096969"], Cell[CellGroupData[{ Cell[195183, 4171, 255, 4, 34, "Subitem",ExpressionUUID->"65246b8e-7476-44ef-997d-f3d2c54817d3"], Cell[195441, 4177, 324, 6, 31, "Subsubitem",ExpressionUUID->"3f1f3d74-42d7-48a6-b979-97ed6cc69bf1"], Cell[195768, 4185, 474, 9, 31, "Subsubitem",ExpressionUUID->"64e7e61c-8661-44ff-8998-6cee4b4ccf66"], Cell[CellGroupData[{ Cell[196267, 4198, 461, 8, 31, "Subsubitem",ExpressionUUID->"736a743e-9ae7-42e9-9e0e-6a6df0c4455c"], Cell[196731, 4208, 335, 9, 36, "Input",ExpressionUUID->"d0c8653d-2892-47d1-83d3-612e9796c3c6"], Cell[CellGroupData[{ Cell[197091, 4221, 694, 16, 62, "Input",ExpressionUUID->"2be4be47-ca38-401e-a6cc-6984f9a6dcd4"], Cell[197788, 4239, 571, 12, 55, "Output",ExpressionUUID->"5cd0b206-49d5-49c0-a4e8-7efde852f5fd"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[198432, 4259, 172, 3, 68, "Subsection",ExpressionUUID->"b664fe4c-3805-4bcd-90ed-1d50926c7b45"], Cell[CellGroupData[{ Cell[198629, 4266, 374, 6, 40, "Item",ExpressionUUID->"1621e366-6a00-4323-8430-20be9eb805a8"], Cell[CellGroupData[{ Cell[199028, 4276, 263, 4, 34, "Subitem",ExpressionUUID->"3437fcb4-600f-416e-9a59-032dd70bb1ca"], Cell[199294, 4282, 270, 4, 31, "Subsubitem",ExpressionUUID->"42d38127-8b98-4c1a-97fd-14c690c3483f"] }, Open ]], Cell[CellGroupData[{ Cell[199601, 4291, 177, 3, 34, "Subitem",ExpressionUUID->"523ddc81-9599-4ea8-92fe-0bce8b014fe5"], Cell[199781, 4296, 288, 7, 31, "Subsubitem",ExpressionUUID->"02df7c9a-eb2c-48f9-99b6-7d9226f0df4b"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[200130, 4310, 267, 4, 68, "Subsection",ExpressionUUID->"a8dc2f82-c20a-4e57-93be-accf5fbe10d8"], Cell[CellGroupData[{ Cell[200422, 4318, 299, 6, 40, "Item",ExpressionUUID->"0f97d0ae-d07b-41b5-8112-2d6cd3d33eb4"], Cell[CellGroupData[{ Cell[200746, 4328, 267, 4, 34, "Subitem",ExpressionUUID->"368685c1-e27a-403f-8cb7-4fdbc4f5b2c7"], Cell[201016, 4334, 317, 5, 31, "Subsubitem",ExpressionUUID->"7c8ff149-1bb9-4ed7-89aa-7d177b0c8540"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[201394, 4346, 219, 4, 68, "Subsection",ExpressionUUID->"d4402783-1635-4e4d-b153-1836030a0644"], Cell[CellGroupData[{ Cell[201638, 4354, 321, 6, 40, "Item",ExpressionUUID->"f86c6db1-2079-42ad-bf96-0376cce0f408"], Cell[CellGroupData[{ Cell[201984, 4364, 267, 4, 34, "Subitem",ExpressionUUID->"df9790d1-ead9-43e9-9966-42fd429c4422"], Cell[202254, 4370, 325, 5, 31, "Subsubitem",ExpressionUUID->"f9bc4b2e-5ce8-4347-91a8-534093804f67"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[202640, 4382, 176, 3, 68, "Subsection",ExpressionUUID->"476ec89f-af2a-4a43-8a50-c668cbaeba48"], Cell[CellGroupData[{ Cell[202841, 4389, 193, 3, 40, "Item",ExpressionUUID->"f285a3b1-e302-40e8-be2e-8d8c2e57421d"], Cell[203037, 4394, 174, 3, 34, "Subitem",ExpressionUUID->"15e28fcf-567e-473b-a48c-fcf9f49b5f5a"] }, Open ]], Cell[CellGroupData[{ Cell[203248, 4402, 223, 4, 40, "Item",ExpressionUUID->"29738171-4924-453f-ac53-90bce660a738"], Cell[203474, 4408, 217, 4, 34, "Subitem",ExpressionUUID->"fe141184-9bf6-4fe6-ba49-635579d6026b"], Cell[203694, 4414, 179, 3, 34, "Subitem",ExpressionUUID->"e9b18bf3-6ca3-457b-8e62-62705e57aa0e"], Cell[CellGroupData[{ Cell[203898, 4421, 198, 3, 34, "Subitem",ExpressionUUID->"ad423430-a724-4451-93de-c3a7d650d6c4"], Cell[204099, 4426, 171, 3, 31, "Subsubitem",ExpressionUUID->"0285b51c-2e5f-4ce0-8f5f-ae119be26679"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[204319, 4435, 272, 4, 40, "Item",ExpressionUUID->"db1f1dfc-6047-43f2-8b6d-de317b0abaab"], Cell[204594, 4441, 396, 8, 34, "Subitem",ExpressionUUID->"e170ff5b-f8f1-4108-95ad-f1227a0bbb56"] }, Open ]], Cell[CellGroupData[{ Cell[205027, 4454, 228, 4, 40, "Item",ExpressionUUID->"4113b326-b68d-4cd1-bfaa-4530a28614e4"], Cell[205258, 4460, 402, 8, 34, "Subitem",ExpressionUUID->"0ac4367d-41ca-44d6-9d72-d5a5333516d6"], Cell[CellGroupData[{ Cell[205685, 4472, 362, 8, 34, "Subitem",ExpressionUUID->"43e9c70a-476b-4975-a668-f5d9f98770d2"], Cell[206050, 4482, 248, 4, 31, "Subsubitem",ExpressionUUID->"c2e6276c-9667-4f84-8e8e-10a6988fe343"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)