(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 23487, 615] NotebookOptionsPosition[ 21953, 558] NotebookOutlinePosition[ 22428, 577] CellTagsIndexPosition[ 22385, 574] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["mPower:generateBoundaryLayer Example", "Title", CellChangeTimes->{{3.404499462486691*^9, 3.404499470613309*^9}}, FontSize->24], Cell[TextData[{ "19 Nov 2007 - upgraded to ", StyleBox["Mathematica", FontSlant->"Italic"], " Version 6" }], "Text", CellChangeTimes->{{3.4044995619328823`*^9, 3.404499568851075*^9}}], Cell[CellGroupData[{ Cell["\<\ \[Copyright]2006 (click to the right for licensing information and details)\ \>", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.40449949339362*^9}], Cell[TextData[{ "\[Copyright]2006 California Institute of Technology.\nAll Rights Reserved.\n\ \n", StyleBox["This library is free software; you can redistribute it and/or \ modify it under the terms of the GNU Lesser Public License as published by \ the Free Software Foundation; either version 2.1 of the License, or any later \ version.\n\nThis library is distributed in the hope that it will be useful, \ but WITHOUT ANY WARRANTY, WITHOUT EVEN THE IMPLIED WARRANTY OF \ MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. The software and \ documentation provided hereunder is on an \"as is\" basis, and the \ California Institute of Technology has no obligations to provide maintenance, \ support, updates, enhancements or modifications. In no event shall the \ California Institute of Technology be liable to any party for direct, \ indirect, special, incidental or consequential damages, including lost \ profits, arising out of the use of this software and its documentation, even \ if the California Institute of Technology have been advised of the \ possibility of such damage. See the GNU Lesser General Public License for \ more details.\n\nYou should have received a copy of the GNU Lesser General \ Public License along with this library; if not, write to the Free Software \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.\n\n \ The original code contained here was initially developed by:\n\n \tBruce E. \ Shapiro\n \tBiological Network Modeling Center\n \tDivision of Biology, Mail \ Code 139-74\n \tCalifornia Institute of Technology\n \tPasadena, CA, 91125, \ USA\n \tbshapiro at caltech dot edu", FontSize->12] }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.404499493393715*^9}] }, Closed]], Cell[CellGroupData[{ Cell["generateBoundaryLayer", "Section"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ran", ":=", RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"points", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"ran", ",", "ran"}], "}"}], ",", RowBox[{"{", "25", "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.404499509125842*^9, 3.404499511563293*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.7942826072121112`", ",", "0.03826942257097077`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.43401175894247257`", ",", "0.176837519422947`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.19842476700389233`", ",", "0.5799106171445805`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5678241460306461`", ",", "0.7861259974949129`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4491464091106836`", ",", "0.4831422792899207`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.958983195996475`", ",", "0.2165407308055054`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5602320367315716`", ",", "0.5290112116920875`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7469966643477055`", ",", "0.47163310379697676`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7570833437685032`", ",", "0.32175102066384653`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5549762411135322`", ",", "0.000027187658272476156`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.054644474954949285`", ",", "0.5807192529991134`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.027935470611780477`", ",", "0.3829210415002635`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5621309864924`", ",", "0.8215696811791373`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.9808812629158095`", ",", "0.7722499620217704`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.24493601138897225`", ",", "0.17782701193514816`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2513215186106541`", ",", "0.4822170565799109`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.689953783208233`", ",", "0.3001642679483705`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.46168846522958096`", ",", "0.7664416824068936`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0555560804641948`", ",", "0.423608004609235`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7769009329888463`", ",", "0.8240888433951143`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.14126432677290746`", ",", "0.694199440391539`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3085687024722661`", ",", "0.6395309692447422`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4896312336791435`", ",", "0.5229233601491454`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.16476316504957111`", ",", "0.44988600516607824`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3949676298655005`", ",", "0.4376474729603319`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.404499512238463*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ch", "=", RowBox[{"vertexCoordinates", "/.", RowBox[{"convexHull", "[", "points", "]"}]}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.027935470611780477`", ",", "0.3829210415002635`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.24493601138897225`", ",", "0.17782701193514816`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5549762411135322`", ",", "0.000027187658272476156`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7942826072121112`", ",", "0.03826942257097077`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.958983195996475`", ",", "0.2165407308055054`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.9808812629158095`", ",", "0.7722499620217704`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7769009329888463`", ",", "0.8240888433951143`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5621309864924`", ",", "0.8215696811791373`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.14126432677290746`", ",", "0.694199440391539`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.054644474954949285`", ",", "0.5807192529991134`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.027935470611780477`", ",", "0.3829210415002635`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.404499514965307*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plotp", "=", RowBox[{"ListPlot", "[", RowBox[{"points", ",", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", ".65", "]"}], ",", " ", RowBox[{"PointSize", "[", ".02", "]"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", " ", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", " ", "1"}], ",", RowBox[{"Axes", "\[Rule]", " ", "False"}], ",", RowBox[{"FrameTicks", "\[Rule]", " ", "None"}]}], "]"}]}]], "Input", CellChangeTimes->{3.404499520407961*^9}], Cell[BoxData[ GraphicsBox[ {Hue[0.65], PointSize[0.02], PointBox[{{0.7942826072121112, 0.03826942257097077}, {0.43401175894247257`, 0.176837519422947}, {0.19842476700389233`, 0.5799106171445805}, { 0.5678241460306461, 0.7861259974949129}, {0.4491464091106836, 0.4831422792899207}, {0.958983195996475, 0.2165407308055054}, { 0.5602320367315716, 0.5290112116920875}, {0.7469966643477055, 0.47163310379697676`}, {0.7570833437685032, 0.32175102066384653`}, { 0.5549762411135322, 0.000027187658272476156`}, {0.054644474954949285`, 0.5807192529991134}, {0.027935470611780477`, 0.3829210415002635}, { 0.5621309864924, 0.8215696811791373}, {0.9808812629158095, 0.7722499620217704}, {0.24493601138897225`, 0.17782701193514816`}, { 0.2513215186106541, 0.4822170565799109}, {0.689953783208233, 0.3001642679483705}, {0.46168846522958096`, 0.7664416824068936}, { 0.0555560804641948, 0.423608004609235}, {0.7769009329888463, 0.8240888433951143}, {0.14126432677290746`, 0.694199440391539}, { 0.3085687024722661, 0.6395309692447422}, {0.4896312336791435, 0.5229233601491454}, {0.16476316504957111`, 0.44988600516607824`}, { 0.3949676298655005, 0.4376474729603319}}]}, AspectRatio->1, Frame->True, FrameTicks->None, ImageSize->400, PlotRange->{{-0.5, 1.5}, {-0.5, 1.5}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.404499522486998*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plotch", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"sortPolygon", "[", "ch", "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{"Hue", "[", ".05", "]"}], "}"}]}], ",", RowBox[{"PlotJoined", "\[Rule]", " ", "True"}], ",", RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", " ", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", " ", "1"}], ",", RowBox[{"Axes", "\[Rule]", " ", "False"}], ",", RowBox[{"FrameTicks", "\[Rule]", " ", "None"}]}], "]"}]}]], "Input", CellChangeTimes->{3.40449952627176*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.05], LineBox[{{0.027935470611780477`, 0.3829210415002635}, { 0.24493601138897225`, 0.17782701193514816`}, {0.5549762411135322, 0.000027187658272476156`}, {0.7942826072121112, 0.03826942257097077}, { 0.958983195996475, 0.2165407308055054}, {0.9808812629158095, 0.7722499620217704}, {0.7769009329888463, 0.8240888433951143}, { 0.5621309864924, 0.8215696811791373}, {0.14126432677290746`, 0.694199440391539}, {0.054644474954949285`, 0.5807192529991134}, { 0.027935470611780477`, 0.3829210415002635}}]}}, AspectRatio->1, AxesOrigin->{0, 0}, Frame->True, FrameTicks->None, ImageSize->400, PlotRange->{{-0.5, 1.5}, {-0.5, 1.5}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.4044995288505297`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bl", "=", RowBox[{"generateBoundaryLayer", "[", RowBox[{"ch", ",", RowBox[{"boundaryCellDiameter", "\[Rule]", " ", "0.25"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.09584941668329675`", ",", RowBox[{"-", "0.02285479411379504`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.5099456617422509`", ",", RowBox[{"-", "0.2458838672406213`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.9123150238221638`", ",", RowBox[{"-", "0.18211285582089767`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.189960834813731`", ",", "0.12088859875187435`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.1812152149362047`", ",", "0.9218036569540254`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.8064739192064634`", ",", "1.072333558316042`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5240789351086048`", ",", "1.068656794128164`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0012047110045533826`"}], ",", "0.899632089390583`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1762879424077628`"}], ",", "0.676480511402573`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.20777906692550374`"}], ",", "0.2996224413104389`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.38631721847410666`", ",", RowBox[{"-", "0.17929853244657806`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.21312405683372404`", ",", RowBox[{"-", "0.08601801910345455`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.7740986759203013`", ",", RowBox[{"-", "0.20401859003207157`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.6606230416954129`", ",", RowBox[{"-", "0.22200319981600075`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.110775481098814`", ",", "0.03447174531262681`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.998147206700229`", ",", RowBox[{"-", "0.0884421601661382`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.183571867511493`", ",", "0.7059837881589557`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.1855466126700076`", ",", "0.5251386158652882`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.1875571072202267`", ",", "0.3410195502926334`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.9304309362121621`", ",", "1.022541240907676`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.0749766768341522`", ",", "0.9644786352485982`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6713254595717887`", ",", "1.0705739342277492`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15769254415786554`", ",", "0.9507617254189893`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.36988014234829447`", ",", "1.0190390197884156`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.08715930645793618`"}], ",", "0.7900790302139987`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.19619476026860655`"}], ",", "0.43825323068140254`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1878432257318179`"}], ",", "0.5381970477422664`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.008218379364020298`"}], ",", "0.08767335781436986`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09500839546305387`"}], ",", "0.17985115392028794`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.404499537358629*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plotbl", "=", RowBox[{"ListPlot", "[", RowBox[{"bl", ",", " ", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0.8", "]"}], ",", " ", RowBox[{"PointSize", "[", ".02", "]"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", " ", "1"}], ",", RowBox[{"Axes", "\[Rule]", " ", "False"}], ",", RowBox[{"FrameTicks", "\[Rule]", " ", "None"}]}], "]"}]}]], "Input", CellChangeTimes->{3.4044995404880037`*^9}], Cell[BoxData[ GraphicsBox[ {Hue[0.8], PointSize[0.02], PointBox[{{0.09584941668329675, -0.02285479411379504}, { 0.5099456617422509, -0.2458838672406213}, { 0.9123150238221638, -0.18211285582089767`}, {1.189960834813731, 0.12088859875187435`}, {1.1812152149362047`, 0.9218036569540254}, { 0.8064739192064634, 1.072333558316042}, {0.5240789351086048, 1.068656794128164}, {-0.0012047110045533826`, 0.899632089390583}, {-0.1762879424077628, 0.676480511402573}, {-0.20777906692550374`, 0.2996224413104389}, { 0.38631721847410666`, -0.17929853244657806`}, { 0.21312405683372404`, -0.08601801910345455}, { 0.7740986759203013, -0.20401859003207157`}, { 0.6606230416954129, -0.22200319981600075`}, {1.110775481098814, 0.03447174531262681}, {0.998147206700229, -0.0884421601661382}, { 1.183571867511493, 0.7059837881589557}, {1.1855466126700076`, 0.5251386158652882}, {1.1875571072202267`, 0.3410195502926334}, { 0.9304309362121621, 1.022541240907676}, {1.0749766768341522`, 0.9644786352485982}, {0.6713254595717887, 1.0705739342277492`}, { 0.15769254415786554`, 0.9507617254189893}, {0.36988014234829447`, 1.0190390197884156`}, {-0.08715930645793618, 0.7900790302139987}, {-0.19619476026860655`, 0.43825323068140254`}, {-0.1878432257318179, 0.5381970477422664}, {-0.008218379364020298, 0.08767335781436986}, {-0.09500839546305387, 0.17985115392028794`}}]}, AspectRatio->1, Frame->True, FrameTicks->None, ImageSize->400, PlotRange->{{-0.5, 1.5}, {-0.5, 1.5}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.404499541369574*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"plotch", ",", "plotp", ",", "plotbl"}], "}"}], ",", " ", RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", " ", "1"}], ",", RowBox[{"Axes", "\[Rule]", " ", "False"}], ",", RowBox[{"FrameTicks", "\[Rule]", " ", "None"}]}], "]"}]}]], "Input", CellChangeTimes->{3.404499545399543*^9}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.05], LineBox[{{0.027935470611780477`, 0.3829210415002635}, { 0.24493601138897225`, 0.17782701193514816`}, {0.5549762411135322, 0.000027187658272476156`}, {0.7942826072121112, 0.03826942257097077}, { 0.958983195996475, 0.2165407308055054}, {0.9808812629158095, 0.7722499620217704}, {0.7769009329888463, 0.8240888433951143}, { 0.5621309864924, 0.8215696811791373}, {0.14126432677290746`, 0.694199440391539}, {0.054644474954949285`, 0.5807192529991134}, { 0.027935470611780477`, 0.3829210415002635}}]}}, {Hue[0.65], PointSize[0.02], PointBox[{{0.7942826072121112, 0.03826942257097077}, { 0.43401175894247257`, 0.176837519422947}, {0.19842476700389233`, 0.5799106171445805}, {0.5678241460306461, 0.7861259974949129}, { 0.4491464091106836, 0.4831422792899207}, {0.958983195996475, 0.2165407308055054}, {0.5602320367315716, 0.5290112116920875}, { 0.7469966643477055, 0.47163310379697676`}, {0.7570833437685032, 0.32175102066384653`}, {0.5549762411135322, 0.000027187658272476156`}, { 0.054644474954949285`, 0.5807192529991134}, {0.027935470611780477`, 0.3829210415002635}, {0.5621309864924, 0.8215696811791373}, { 0.9808812629158095, 0.7722499620217704}, {0.24493601138897225`, 0.17782701193514816`}, {0.2513215186106541, 0.4822170565799109}, { 0.689953783208233, 0.3001642679483705}, {0.46168846522958096`, 0.7664416824068936}, {0.0555560804641948, 0.423608004609235}, { 0.7769009329888463, 0.8240888433951143}, {0.14126432677290746`, 0.694199440391539}, {0.3085687024722661, 0.6395309692447422}, { 0.4896312336791435, 0.5229233601491454}, {0.16476316504957111`, 0.44988600516607824`}, {0.3949676298655005, 0.4376474729603319}}]}, {Hue[0.8], PointSize[0.02], PointBox[{{0.09584941668329675, -0.02285479411379504}, { 0.5099456617422509, -0.2458838672406213}, { 0.9123150238221638, -0.18211285582089767`}, {1.189960834813731, 0.12088859875187435`}, {1.1812152149362047`, 0.9218036569540254}, { 0.8064739192064634, 1.072333558316042}, {0.5240789351086048, 1.068656794128164}, {-0.0012047110045533826`, 0.899632089390583}, {-0.1762879424077628, 0.676480511402573}, {-0.20777906692550374`, 0.2996224413104389}, { 0.38631721847410666`, -0.17929853244657806`}, { 0.21312405683372404`, -0.08601801910345455}, { 0.7740986759203013, -0.20401859003207157`}, { 0.6606230416954129, -0.22200319981600075`}, {1.110775481098814, 0.03447174531262681}, {0.998147206700229, -0.0884421601661382}, { 1.183571867511493, 0.7059837881589557}, {1.1855466126700076`, 0.5251386158652882}, {1.1875571072202267`, 0.3410195502926334}, { 0.9304309362121621, 1.022541240907676}, {1.0749766768341522`, 0.9644786352485982}, {0.6713254595717887, 1.0705739342277492`}, { 0.15769254415786554`, 0.9507617254189893}, {0.36988014234829447`, 1.0190390197884156`}, {-0.08715930645793618, 0.7900790302139987}, {-0.19619476026860655`, 0.43825323068140254`}, {-0.1878432257318179, 0.5381970477422664}, {-0.008218379364020298, 0.08767335781436986}, {-0.09500839546305387, 0.17985115392028794`}}]}}, AspectRatio->1, Axes->False, AxesOrigin->{0, 0}, Frame->True, FrameTicks->None, ImageSize->400, PlotRange->{{-0.5, 1.5}, {-0.5, 1.5}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.404499546044582*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{803, 731}, WindowMargins->{{Automatic, 497}, {59, Automatic}}, DockedCells->(FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, Placeholder]}]& ), CellLabelAutoDelete->True, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 134, 2, 64, "Title"], Cell[727, 27, 189, 6, 26, "Text"], Cell[CellGroupData[{ Cell[941, 37, 193, 4, 26, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[1137, 43, 1774, 27, 386, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Closed]], Cell[CellGroupData[{ Cell[2948, 75, 40, 0, 37, "Section"], Cell[CellGroupData[{ Cell[3013, 79, 419, 12, 43, "Input"], Cell[3435, 93, 2525, 64, 118, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5997, 162, 133, 3, 27, "Input"], Cell[6133, 167, 1173, 31, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7343, 203, 904, 23, 58, "Input"], Cell[8250, 228, 1423, 26, 415, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9710, 259, 922, 23, 58, "Input"], Cell[10635, 284, 851, 19, 415, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11523, 308, 185, 5, 27, "Input"], Cell[11711, 315, 3249, 87, 133, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14997, 407, 903, 23, 58, "Input"], Cell[15903, 432, 1647, 32, 415, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17587, 469, 774, 20, 43, "Input"], Cell[18364, 491, 3549, 62, 415, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)