(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 59442, 1517] NotebookOptionsPosition[ 58997, 1498] NotebookOutlinePosition[ 59340, 1513] CellTagsIndexPosition[ 59297, 1510] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["(*", Editable->False], StyleBox[ RowBox[{ RowBox[{"INSTRUCTIONS", ":", " ", "First"}], ",", RowBox[{ "open", " ", "the", " ", "Drawing", " ", "Tools", " ", "palette", " ", "from", " ", "the", " ", "Graphics", " ", RowBox[{"menu", ":", "\[IndentingNewLine]", RowBox[{ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztXe1zFdUZ35l+7h/RT/KlWkJy7cdOv/RLp2WwYkAIFzuDfnCQKo5aBuwH JeKM1Tp29APQCBSEmFhHhDpSHNT6AiGILS9CEhKSKIG83HBDB/ti+px9ds+e 17179+69e5L7/OaXzNmz5+U5z/ntOWfvvbvnBw88suKB73me9wL8XYE/Fv7u u3ki0U1+++//Ad85fHTjpifuu6/dWYJ5YCRaS2wS/uv2f9/ofnfDQw//4eVX /tS1x1mCeR0d68BUMJjYJJy5+S0qc+/+nsNH3neW7x49/uJLr4CpYDCxSXhj 5vaKe+6DoQl6/+PPzoj85K3f3umFWPrIXz8+qyRIws/6d//Su2vjm2rJP/SW KpHx/LTvHPwHU8FgC98uehFWHyzbU0q5OrwfP9OfJKXKUn9nq1dIlzeJYUJz YmpJb3/t3F8U/SxZcu3gr73i29W4yNCQ8eu3lq9YCcPme8c/BwFwon42vTWA h/vWrn3x9KCYICFRnLycGgmmgsFGjk713u/dve1U2ZYgk1zpaklBsaKPnrnb a9vx0ZSh0hh7xFN1MpspcE0PhsdOP9/ieS3PnsVDsJmHUzv2n5enfv6LX+3e 033k/ZMffvYVsu/LN39zp7f85SEek5pcnLUXBQRTwWAjzw0cWum1PXnMfDar XOlqSUGxophKE56qk9nnj2//0dJnjwyw8Htb2+7d8uwdD+5j8YOntywrVFWd 0cJzA9PQ4zByHjnW9ymMjT79YXP1i+EhJyhtudeyfAVcIuzs71eE0077IX52 8wubcTFw15OfxEey4fT0IF4ICLgclEPFADAVDLYwaB0egn+eaPHu3RWcPb+r 6LV1ghtfa49slnOJ2aOwnB7ilcMgGXQTXwKFlbKzGx8NJuel287YLa/YHJs9 0xYbiq8P741MXVOUzZZSvuZrCXwlG5+IXIQY2NrXu/L7rEBmFQ8I7tW9wS0B YesNOT84Az0Od8GwpPz8ixFk3+Gn71q66S8XJyDc+/gyP+Gyx4+Og6hW+gLj KYEQeY9wFlankBFKgFWBEnnyj6tB1S8JWU5+cQKkKBbI0rQfEssXCaaCwRYK ykGfgyDbD+FZ6FNwu5y47akPSqbAjBy2pVciw/KPb4dVFo8MDABLAhnYjDc2 J6gIBiW8spLav6sIvW9vkZZScFS1DB17aFUrs7Brg9/2qEDJRZo3Ir+xNgp+ w8gLQyUuTtvIyQc6ccQD+mJDLNPPwrgKQ58YqZejD9F4F4YDrE4wFQw2kvtB ivl+cefwLHcdi9xV5HcZxs5VirKlF5OBIJd6rCKsl/eXscCEVK41XrjV/uPb WzwBTAaWFukp/RhQaXLzIjtRh/5/OASNQTn4X3KRxW8tbTuCfjE589LwLBfn qS+GkTiyPfqOeijG+2MjGwZh9Hv0zhblLA6JKE4eqZfDC+FVI3G4huxKPJgK Blv4ZrtX2HLiphgp+orFnOjEhuM05CfmucTsYTguvSEZVrprjdfeZUlpNT5R c+LskW3QShDChpSBr5hUu6oykpUGAoP+CjKe6IRlZ2jbbEX3ojhtzrw8chPF CbcbZ86Nc/ryYLKB8D8u7sdZmAcgkg2b8gwOZ3HSh7NcdWIWUzl/h9UOZlEI BojxXJxgsIU92DoxEloK6xPItRNjutbD/Pi3b8oQ3xokDnJBd29tZV0TJMOz 9vRyjT0rvSAvc7i3fqdqj8G2SjRlibOH2QDXoKUEKaylDIhXcTVGBn7z5MK9 wAOSefF+w2ldiRy4Wubi/PLCNZHCDML0AzFcVBBGXTG0rbu/tcAl598uBUtr JYsuTozk8xebDaNK2bKEG4MSBVPBYCNDtwRo+d1ZiBy6fpa5bk0PpgkOQ5tF p7GzB9YHmdcUMVJPD8lgYPTT9Ih5Bz7cEc6VQYx4VkqZjMYs8fYLNgRN5qYq YSVl1HBfVMmNRPpL4h1wyeAhqyh0uC5OpWm8argh0htyZWwOevydw0c/PXX+ 3FcTtdCXWdtTx67XWI6RXJxgMLFJODx+a8NDD+/d3wO3G+cvX0d6FvAERuLH BSDO+GTpiBIFU8HghNTtT543dxr9n7tVSYzM0OCRr2/t3tMNnX7k/ZPnLl2r hdHIWVs5RsLAvnHTE2AqGExsEh451gd8rGsnzJg/+enPnCWYB0aitcQm4asE gsO4RSC4BxInwVmI4pzNFFdHR+fn50sEQvUgcRKcBYmT4CxInARnQeIkOAsS J8FZ5CHO7qLnecVuOabQ2V9bS/o7C/yr3LbUhZks8Z8crNW8BQDBgxUcmKC/ WCfX6rScxFkoFER51ixOWT/71q7tjk1uRxaXyUKEL8yoR/o7O1nY5o14L/ll rSnW7sm8xNnZ3dkWXZ41SoJ5o5hWjgbbmk6cNgemE2fyNBWQmzj7ReuFYDS3 MG/BidBpUpo7HtwXlWfVJsvSsa7AixIKLvFrBKuTLDFG9keVScUsApgdGDks 9F/gzNeH98rCg/zG7AtYnLEBFgwUjO3uLrbCWsA/B76Qmt0fDcL9kqyM6x6x rnBxFa0KhEgWDOv2eM2LcWDtF2cxEaLARGd2N4E4+cgYxog3NXjBhn7r2hCs BM5OnFG0qV34JqmXxJHAcDa8CJTukFNmuHxwCrFTj+aNkrW/vEzvI3IXp9+8 x7p22nufDZMwj6xqRVmyOUW7zBU/mMQZlczHXdWM5hVnojWnLVxatCNniV99 1okYzosTegese7Q2y/ea5kWCcQYPTkedEyvOxTqtl7SP9wx3600pzkBa+g2R x4e6VuGs9SNHYf0edyPjP67IJeev8MX5KF6cUjWLbQw1fVActFZcegXRlT5K 0opKgSb+hqg5PzVaSCBxEpwFiZPgLJpYnATXQeIkOAsSJ8FZkDgJzsIozhul m31XJ3svMR64cOONi+n55/PXoZBaSiA2CVEn8B+0NzFtFifEH7g4NX2zPHlz bvLmrRr59eRM+T/zN2bniMQkBNWB9kCBoBxdnKBbODsxO3etNIf/a+HFsQkQ 5zczZSIxnqAWDIDqQIGgQ12cMK7CiIfSInESG0YuTiAMoaBDXZww75M4iY2n Ik7QIY2cREeYZOSE23N2I1Oay4QozvGZMufoVO9q4UcrbO854WwKjp1+vtUr bOtLk3d/0VNQlT3BXnipqnaHV6fDN8yzHxH52xembW9WnQviBB0ap3U4xdUF KWsX5xhIKKRvP9PSGG9LsVtM0HiKJjUmo0P0t6pcfTA6fPqgtV0V21tL544L 4QnLtA6RcGpshtFPP1cLUZyj0+WIof146Dtn/R4xQeMpm9SIjG4Qx0xQZtJ2 VWxvDZ07JoRhio8R58g04+hMEEhNEOfE7fmRqTIntx8PI//48f6vf9fvngp3 JPEvvRH/ENIo2aHtdzy4L3KIH9j8wmY+p2AVODiwKWv7c2LVNpPELJ4X1GuM 5BnFmZGnd58ont0Gb0TOF/vl9eG9St9ta5Oy2zo3iTGgSR6OESecQmldzUic w1Nlziuh/XiIW+qA/X48U5QxMdunptjN0h9Y31ooYDLcLpmnuRLOI5gMRY6R UD6m94SqbSaJWYZO7WgVCjdFSuYtLEJDWvxFZoxDxH7R+w7FWbFzkxgzIoS/ dkacW5ZJHR3ERxs2+b0furFrQ+Gxrp0QPjtxRsmouVTKqFdtNQmyeJHPcdA2 Rkq1aFdWDKFVuStTb6ldnCavyjeSqEBb52YoTjh1ZTobojiHwM6QUQMxJvSP FB9G8tZhYGtf76rWzg+m2AULU0yLv1+YLs4hTZyQzFB1JZPwUBGnGKlkPP5M AbtJKV8ndmjFZHVnOLLFOMQWHhJGzoSeTM54cQ5NMYK6MJCaKM7ByTLnwKRv /yke9la9ocazYRMVhROoHwldjxM6hjs61mGYZ9RK5pFBFb54ggQ2kxSruHvt kVKBUAVaFU9Q5vz8PPyvmLLexBkK24VNg7t1oyd1R3FxVuzcRJYI5djEeeAC E+fAFOPQVBBITfYLk9vzlyfLnGCzsDclawiPbw8Plb0dg8hQqEqYZxRLkEoL VwhwQ9Qu1CiapMQL01YUr0fyjOKukdBZSvk6UZyoz4qJ601pjvbHBIiMtsi0 eNVIW+cm4aAQHp8pGz/n7L00yUfOoVCiqYniHGBm509hxMuZXJyoz9ztcYGD QhgUaPtufax0iw99lyczGDkvTZZdIBsN/JEhd0tEcaI+czcpd14WwmMz1jUn iBM0ibK85AdSMxDnjXJejFYI4ZybozGcijgDfeZtVb5k4gzDoxZx4rS+aMTp JnVxkj5FcdqmdfyxMdyn47xM4qwHjeJscn0G4pxk2sMHhXRx4mMa+NsPmN9r ZPDd+swcUaRNnKjP3M3LhWP+f1AdKNP2mMbs7CzE0wNudWWMOFGfuVvYeIoP uIECbU9f0qPB9YZtzSkibxvzB4kzFyifc/JA3na5BRJnLhAFSeK0gcSZC/h3 6+Ih6VMBiTMXKKtKEqcRJM5coIuQ9KkjN3E6tFUlf118nq+SzVWcme56Wcqq c3MSp3NbVTbmLccVaslHn1nuehmUkFHn5iJOB7eqbFpxZr7rZZZ7NeUgzjy3 qrTtXCnv6tIZ1G3ej9NcqbHsKMrfCExukTD38Y1meETqDq0Ome96mek+YrmI M7etKoV9XuNq4cVwMaq7wxstkXftNOyope5nFJRq3LerMch810tr56aBAyNn A7eqlLbjEmHbDyva4VG2TLPEtGunNoYYtzu0NachyHzXS2vnpkEea86ct6pE v8ZN66Z9yoRcJkvMF4Lz4sx+10tb56ZBLnfruW9VqW6KnUCcQi6bJUpdVUzr puY0Clnvemnp3DTI7XPOXLaqNG9cKX7OaSpQzWW0xLRrpylndBClT7inZN2Q 2a6XIQydmwYL5xsidzZcc8eSRQ4SZ/Vwx5JFDhJn9XDHkkWOhSNOQtOBxElw FiROgrMgcRKcBYmT4CxInARnQeIkOAsSJ8FZNEacwwRC9WiMOAmEFKBpneAs SJwEZ0HiJDgLEifBWZA4Cc6CxElwFiROgrMgcRKcRR7iFJ7NU58frwpJ33hW 5UvnCK4gJ3EKTwOnlyc9y7NQsWTJkiTJchZnTQIjcS5ULPFRMVn+I2eb+h4F 6X1c6gvfhFcgbH9OfruL8b0H4ovRqimQUE8sCRGfLOc1p/S6IOUtbaYXvgkh 4fVa5rzai0SSF0ioL5YIiEmW58gpvkRKf0ub5eVmwiv7LG88s75BJXGBhDrD 7ZEzeg+W9kYsQ7IE4kyQl8TpDBbGmlOec2PfyRYlM03rCfMmLJBQXyyQu3Vf EuHbDguVp+ZoxWq5IapyWrcVSHAA9A1RhEzfZ06oHSRODjaC5roVEUFB04vT 8MpXgiNoenES3AWJk+AsSJwEZ0HiJDgLEifBWZA4Cc6CxElwFiROgrMgcRKc BYmT4CxyE2dG2yNWAD16uZCRjzilH2Ba9/ZNC/rNsOtw+Pec2k/TMv6tGonT dbj7S3iDFPnjGr6uuoMfCukPSOoPV2r7VCtPz3Ubf5As7YitPo+pVkbIHO4+ QyQ9thNGBXr1pRX+ML5V/wW74eFKjqSPY8gla09hQoBEWWe4+/RlxZFTeN6M pavwcKU4WMY9yCZWGgrQlpKWBfWFuyNn3JpTVEsYG/9wZXTWqPDqxclLpWm9 bnB3zVlSXpGkvABBeGxYmHGtD1fyd4YYlwGWad10Lai3UdFjy4Ss4fDdug/j az+iOx05Pu7hSv42mXX3twaRQdnWGyKjIMOwfH9FyBGOfUNEnwIRIpA4Cc6C xElwFo6Jk0CIQOIkOAsSJ8FZkDgJzkIXJ4HgFEicBGfxKoHgMP4PBgySQQ== "], {{0, 141}, {223, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{141.75, Automatic}, ImageSizeRaw->{223, 141}, PlotRange->{{0, 223}, {0, 141}}], "\[IndentingNewLine]", "\t\t\t", "In", " ", "the", " ", "Drawing", " ", "Tools", " ", "palette", " ", "choose", " ", "the", " ", "Get", " ", "Coordinates", " ", RowBox[{"tool", ":", "\[IndentingNewLine]", RowBox[{ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW1MHEl6x3GQ/O2+RZb4sFJ2He9rvCftaR2EWOcUnTc6cccukCyJsGFz SNFFQtpL4v2QnLAi3Qq8N8p9QSuSO3KKEgv2VpPdaB0OIo7AkeBlzys42wQW ewY8QzwvHl7Gw8A6sXLk3/3MFEX1THd1Tfcw4PrrUVPTXVNd/Zun3rqL6ie/ 9Vbzt6qrqqq+dKyq6tv4a4R3Of3OV38X9rVzv3e4jLINe+Xs2fr6+rq6ujO/ XXfmzJmXvvIy7Mtffgl2+vSLzz73W8yefuZ5BdvVymtlZWVgYKC7+5KMISbi s++ubzyIJ9ZhieQGs+R9F5a4v6lo3BldWz6R+P3cHgToQmCxeGo1VsCiq0ne QOOzH/7g4X/Nwn51+0YxowiIifgf3okRt43NDA/q/tomjA/zllpLCyYeXTfN Es3+i6Vb7ufLU2X0igEku3jx7ewvJpI/+btHwX57QxzERHzidqH9zc3NLYHJ 2toDFljbyFS+5X6s9dxvQU5oWHINZkMPHDav/Sz7495H/xQwrCA08xDiICZx O/laK3EDIpTW9XVzm0obAQpbDM5ZZrPPA/+RYeTpGb4HekVKLnF70PdXe+gK GY4ijsDtQSbLzr70flNVXj3/uZVJb6WnLlfx6v0k/SArWOjDFj7K6x/cscZx ZVuhj5pt0slsszB+dNrCeHr7HC/PzYoOHFKjwY2/ufjwve/C3nnnBy1v/AmM D9AhxEFMxq29w+CG0xkZ2LzWe6x3etPABYDHqi4b4enLCFzLbG9ldrLZT3vR h2n66E52Z4szg5u5M7O1Q5dcdflThH0yZJgMYaKHMLa841GZTbImo0hpJW5r l98idABFdT4fIGiIw3MjfyNumyYxGPaYl98cvLPNuFGeCV3vJzvZ7ZwJ3PLo zO9Ko9jKFjX7bxFGosdKLu9yvL8VLKeo8O/8aUP4z1tjf3me3Iz1NMjfsB9H EQcxeW44OyMGpzKgZXb23Oza9ymwnd0xbOeLa8aRTxFgxrjlSa78c3NVUzBM AHsvN5vl29hJOmZSZd+i+EjT+K5xuu9/sv3pu/TrZI1AIBDIfdOMA9urGZqa m80qBYWXORvQUXvN2lYeGt8P+c6fXZz/23c//upTP/vaKTKGjqCx/YiDmIhv cGs0uYFSeosZPm5lZuBUyIzBMM9tS4Jb3kl4blX7XJGjxNySj2YkBTjZfdxA Mv8LmvFZIJsDiJhUy1FFbZTTtTQVUlY8CVRkNUG2Eo3DiBuRmf768wX9Dfsp AnEL3r73VGOunO7nZkBDnZwrsBw3nokNN1aWhQK7r/kANzMpRDP2977Xe6w5 GMrtEbjlqoV8mH44/lyGv+W5oWZD94kqN75aY9CI2ErEsLe+8xfEDXBgBes3 OkTcEL8gN7NpMLDsVXQCN9M3kHk7f2P+wHFjOxE2Lrz3ExYgVgg3XX6X4u/V onlW/M9RkBu1p6wLl7y/wdpQVip5YuG7MRg4LA796LM3amG3/qiuYHuK/RQB MRH/g8V7T37zDXBD/umkBI08bc+49pS1lVvZou0C+BhlLhimxuV1BO9sI7zH 1vRnXL/xe01fNqs7I/2cN3JxDFz5gJFyPoyY+XKaqzPBjZoDbBk3awktyI3a BRlDTJ4btafo6PKdN+qI/eTzjNB/A1XWDaCeQI4JJ1xFrmn7PAhuSIQ+Gn7C 9QPpl3rnWC6MyK+Z6bNf0Ch9+UC+m5QL7yXV+x5S+N7P0/yAy1o8c8SiOVzM iBuaS2pPixlFsHIzRgcpW8uPIFgfifotfIdzr29vRk7tN2Mcxw2Fillq3W60 wluK4pi0iRuNqfkurrUh4J2NuKFXtvLX30b3jBl6a2T8TsRBTJ4brped1BjL x9d5I27GQCzlfDl7Q0Vu2C4M4ffdSLHceylw9yBPfm8oyt0WmB96HcV8PPmg 4HBebEMjIrfu7kuotTBghz2a+49iRhEQE/FZuwBuBYnxZnNd1HjZwBFvOiVz w23qjjJzvIXFEicf4ysTHhdPjBmg7dVyeXqwyZ9fAwr0LgSDX1kNMRGfcYOf 4Fz8eQWzXlrBa7Qe5bHwd8b4C4RJnotucVCAT1zIrc3dNtjd6J5RybXGEapE wcCN+r1wGGrTjU7F9k5uXMDbtmlcx0PKtvfaXMFsRlXFvlLQtiXS9Hx0zLih iE1PT5/gVHN4dMKiL3E6zqm6uvrXTFWVoImJCTbOStzfxMfh4eGMlq2ASOD2 76bSWrYiSpqbW4nckhuam4yIEuuHaG6S0tzUpLmpSXNTk+amJlfc3i+7KjMP Ctz+r4wqxu3A86DGLRqNru5XLBaLx+OxvFiYAmxr/cjv4b+OU9hzO9g8qHFD mnNzc5N+ypHbweahFG7zec3Ozt66devGjRuzpliYtvhIWxagQxASQTjc8jKL P2dKntu8b/KP22JeQIHtwsICTseH2SHasgAdAi6KjwDFJ4CQPLdF31QGbux+ VCgUwscQJ/pIRzNbSf7o0tISQH0x9nW2pfiOefacG3se19TUpM7N9n4In2dG gHELh8PLeYVNUZiOWg8Rrt3d3Ry6cBiOhwTluSFys61CEgKxYDA4MjICbmyn f9yieSncKQUoMjb7gu1BgvLcEA1w/md+tKDhUFRC4Hb16tWxsTFwYzvdcosn 1iW5sQ5AJBIheoiwubnJx6ePbCd/NJPJCP6GpFB4XXHDV+y5rVrUxIl8kriN j4+z/Yjmitv5Cx3y3FhXh/pORg2WyRAQJvrIdgpHhfqNukyuuOG89tz48ki5 7beI50Z7EM0tt1g8Jcktvl/ETV4AxQKUAgJ0afLcsLXnxiteRI8ePRr5t9Gp qSlwYzsrlhsPkFJIJBKec4t/8F0yG26oKFgJdcvtwzsxcGs7374aKzc3fNE/ bjlPs+VWUP5xS+wXzy2bzbJtQfGH8MW1tTWkgK1MnoU82HODLzFuCTfyj9va fuHys0oibiS33PAVeW5Chvnu7ppFbrnJ12+Vw81G9txYd/cx5LbBiSHi/8vP hhvr7pbIDe2p/Ph0Y79w+Q+VhC/i6+gSY+uWG77C3zRjiMQeiLmT8smaTmt3 lwnRXHFzNc5ixDZNlcItnR9KyPzWQh74ERPf8RCMcbPp7jIpcLu/JsuN7VQY nxYUkqJLk+eGj2FO9nWdkA7f3bWeRZ4bm//mth/CLlxoytfM3gWLIBwi8V/H R7f9N1ddC0F8d1e5H/LxSjLHbSPjdnzKLhwDVf62Pw7RR+tR9l3+dgp9dDs+ 9Uluua1vyPobX0Cs99wowG+tHwseguS5hX2Tf/52wzfNzMxIcjuoPCj7m9+S 4XaAebBy29h09reyqfKfO8tzK7MqMw/7uL3mzE2LiSj99L/X2HoOmpuMBG7p B1nNTUY8t/YOzU1WAjeMdjU3GWluahK4ZbZ2KqofUiFy5LaVdeDm5W92SOTI jdZd0dwEyXBzLKc+57ESpbmpyYbbWHzzpPFcpt2+Pa0Qbrvfq/LDip3OkVvb +cPDLTXisZXGLZvV3ETJcDsU7WlFcXvKN25TU1MK37KRPLeqKmnCpXHLbnvP raamZnR0VOGLxVSB3LZ3vvCc2+nTLwLdyMiIMPtXWZVWTtEP8YPbuXOv4nc/ deqUV+gqh9t48gHNc3j48KHn3Fpa9lY28wRd5ZRTX7m1tbUxbtXV1WNjYyWi qyhuJ3Pc/tdzbp2dncIUGqBTSIepIsup99y6urqss49KQVeQGyVrDdsf8oqb 4/NThcssyI0mICmklvbC3wqgU+L28UpS8v8BFS5T4IZE6F/5VldXNzY2FBIs vX4r4HVK3OT/j1LhMsGtrq6uv78fXRHkFs0E/QvqyspKKpVSSNATbru7u/uO KnH7YNFHbugWAhFYdXdfQlaPHz8eDodjsVgymfTb3+x4mtpDVwK39g5fuMGp IpEIzXA7ceIEsgoPVPM0kofc9tCpltOTvnGjCfaJRAIORquyY9iFPcq9OK/K 6T50lceN5tjTtHOa0AuvQ8ktQ3sqyY3QFTudAzfzOaDjPHy1K2UCK6rrlpaW 4H5qiXhbTh3R2XBj7/vww994kctRXec5t1/d/+nO6r9shT56FP9XhN1yK4au ErilzX9SSJpSa0zTttxAzBGaDbeC6BzLqcz/16tdqbfyqZwWQ+fYLhwmbqVZ sfqNFzudff+NuDn+P6BfLMorsf+m2i6w8YLj/+16mfuDE89Kc5MXG5/yHxXa U8Ytupp8TLjxiJS5Dc7fffKbb5y/0PH4cLPuUeiHPG7crCqR293oY8otXRyd 5mavUrg9tuWUJLQXJO1vapLhthKNa26CpLhFNDdRjtzazrdrblbZcLtyc5m4 he/GNDdBmpuaZLjdCa8eYW5XTLn9lg23f/xl6Mlv/MHR5obM04vG6OGaqy9a dzJuv/GN3z/C3OBmIJZKpe7duxeLxVw9grTh9g+zt4nb0p27R4Db4ODg0NAQ WFGGESZoq6ury8vLkUjE1WwBG25//9nnfnObn5+neTUIKCciI0Cj4VJ1dTW2 PDQQg7+5fZR2sNxQtzzxxBO4hHPnXlV+AugogkblMRqNDgwM4CO2BC0ejyuc +mC5If/sFZCoYfxAh4J5/PhxVh5pzflwOIyTAp0atLQct8XbEZ+4zczMEDQk gmtRflhfTMzTWHmkuSgMIM6oNpNHpl3wrz1FtpeWlmi1K1yI59x4aMy1sHPF FLmc2kwex/4bxvX+ccOF0Ir3kPIMVRuBibUSI26oFuB+Veaahwou5zheuND+ pq/jrNJnhtiInE2oxKhRoKl3Veaahwoud+DcfBVwAZ3wi1AVB3RoMlBU4XsK 9YP9fSR6fnp4uRUUKFHlRo042giQdJvIY8iN1lKOmKIGQvubpAgdQfO833uE uaVLbo9kuB3V+yGlSHNTk+amJhlu/o1PD69k+r2am1VS3JaOwv1eb+XIDeN6 zc0qh/shJrdbC2HNTZAjt7bz7ZqbVfb3Len5qeZmlQy3uZu3NTdBMvfJNTer ZLjpcmqVrt/U5MhN90MKSvff1OTIDeOscnLr6ekJBoMeJuiTKopbZ2dnTU3N +Pi429lo5VflcOvo6Dh16hTOUsqqNTK6aqrERCqEGzzt6Ween5ycpGdMiUTC J27z8/O1tbUtLS2CS09NTbmqHxzaU7Nd8LvfC2jwNAbt3r17yquv2Atu3Nra 2tXV1dDQAJfjf5rm5ubu7kvy9cOBcyNo+LkJmtv5osUUCARmZ2eFnX19fefO vYrfBehQLbCZIWiMGhsbXfm5Dbcff3ab7ofM/nLJJ25C8fQKWtpcJw0oeAgo oXCzgYGB5eXlkZERAARYRAiHw6+cPQv3Qwbk54o4cDP7vT5xI09Dsp5Dg5Bg qykE2OkgWgQMWxy6ePFtHAVMQMYe8JR/Bi3jb36UU/I0dDn8gJY2ZyLBweBU YAIUyCSc6vr164AWjUZR0dEelFDEgZthv6uJSQfib4D27HMv+ActnZ/JMD09 DXdChQ84qPHgUVSJoVoDJeyE0VRPmiUi32l09DfP2wXqp/lRpwmiF4ujdwG/ Ql2H04VCITQKVBKxxSEU1aWlJXBzO0ukzNyELod/0EhAAVDwuoWFBfDh/0mB FgEDSZrq6TYb5eSGqsaPLoe9aKoq+NA8N74k4hCo4qjC7Ohycuvv70dzX05o adOv6B3l1rEbrXmIo97O7/WcG5UaX0cExeT5XYIyc2OvqlfPcWVIhptX/RAq F5V/j0hG5eR2lKS5qUlzU1P5xwtHQ5qbmjQ3NWluanLkdqH9Tc3NKsfnC5pb Qdlzo3n4ep6DVZqbmjQ3Ndk/r9fcisme28nDzI3+TdKnxI8wt56enpe+8jI9 J+3v7x8eHr5165ZXJCuN2+DgYFdXlydJhUKh+vr60dFR5LCvr6+7+1JnZycw NjQ0nL/QDpgDAwMTExOI5u3/O5eNG/JPF1VXV/fscy8goHbPXxBotLS0IHtw s5s3b7Lt7Ozs1atX4YF00ubmZnqQ6mp1gkrgBkT49c+cOfP0M8/DkODq6mop 7yBjyaKoAg7h4sVjhObm5uipvSfPncvGjeYhnD79IhkuRPktgYKmp6dRMHlu N00JACFwQ4GVP6l9/6083FBqgAuOAa9DqZmfn49Go57MG0QijY2Nk5OTVm43 82LcsJV/YdyB93sJGgoUfGxhYQH0FhcXS3nhHS8kggQDgQCPqCA6cEOAzYJw 1MH6G/oGBI0eqYfDYWzVFkKxOQUqfx6aEKBwbW0t/NwTbn7Xb+RpcAaCRjOF PH/AisTRqs7MzFjrNxbAUfgb/Fx+7T5Hbu0dvvyfeDAYZND4aVTsfYsKaRYU Ndbo6vDFU+CGS2trayNupddvV24u03vuPOcmQItEIsrr/smI+tJ8bcYC6Msh /ziKslzh3MoMDQIQFFUgImLECk6IpvaVs2c7OjpQwY6Pj7tqjxy5dXT8sYfr YPDQUKeVARoJHkX9HNRj6GDDu5AHZAYM0ekFTDTlrt6Gac/tN1/7Q2+5ociU HxoEd4J30T9/EasbN27A/YALbobMoMfo6p9NysyN5o7S+sxlg5bOL6QJSnAt enE5teC0wipNjfNqfXKfuCGftD5zmWcl0TKD+MkAkFiht6PcdpeZ2wFO5eIX fCv97I7cjPb0qKyP5OGP9Vhx81Cam5ocuen1uApKc1OTDLdD+jzLVzly0+tg FJTmpiYZbnoel1Wam5rs7/dqbsUkw03Xb1Y5ctP9kIKyfw6Y6/fqcZZFmpua HLnpcX1ByXDzfD38WCw2PDxMc5BOnDiBLcLYE4/HXV+ArVpMNZlqLCIcQhy3 Kdv/34cf3KamppDVtra2QCAwOjo6NzeHLcLYg6vAUbeXYCN6Uu8oRPP2vYp0 n9xDbkDU2to6NDRUcFbV4OAgjo6MjHh1Y7a5uRlYlvZrcXGR/0jc3L5lr5zc kOGGhoaxsbGbnIQpBwCLOAh4go78zUqMArRFBOBF2Kv5lj/6xQJx8+q9PH19 fajHrDMehalBiIOYnjzwYv7GgxJE/lbJ3GgxIis0YeYG4tCs0dKnDhYrpzzA yudWU1MzOztrndwiMEQcxPTk9ZRCObWp3yqZGyouRBZmKQsMsQ0Gg/A3XJHC 6+cEEbeCxZPtrHxurH4rNg+N1W89PT3echPKJo+u8rmx9rTYvEcIR+Fs9O8Y PpVToZbznNsPZ+a95YZ6HoMC9NCuXLkiTEsmYT8uAb24hYUFT9oF+X5vJXND vwIuBI/CeAH0MEYARowXsEXBxB6MF1C5zc/Pu139r5ha8qIhVbOpFk7sYyVz S+fRIZM04/GVs2fRdNbX13d1dcHNrl+/jkNeQUubr4hFgrMSqnBuaRNdKpXC 0B58UImxSpsmpGE/jno1zgJ/DKAWJeThOMsnbiRasA5ZZXPv2YQ0hdRszsKf wkYejut95XbYpbmpSXNTk+amJs1NTZqbmmS4rUTimpsgzU1NmpuaNDc1aW5q 0tzUpLmpSXNTk+amJs1NTZqbmjQ3NZWTW71F6vl2qYsX3/Y2wfJzGxoaSiaT /f39ra2tqVRqY2PDytNbpN3dl5DglStX+Mc9JZ60nNymp6fr6uo6OztXVlai 0ej7+fXxKM91+0VI5S/ERpQ4XI5/UlbiScvJDbmanJysra0NBoOxWGzVVMoU MIb3C3s8WToPjg0+gUAA5+WXjSrxpOXkRu/sQ/4bGxtRVJFDevqG66q1yCtu SDyRSCwvLyNNMGRplnhSmXk1Hran169fR3FAFUc/PS3AReVFuAS3L+wrJj7x trY29sq2Ek/qyK0d3KLecAuFQh0dHcgt1W8jIyO0379yiuKJ0/X19cHTurq6 QIatjOdfOfWcG1XFwDU8PDwwMICKmvmbT+UUKYMYLVOD9hTJ4tSUrN/ltL3j TQ+5VXFi7ZdP5ZR+JnRCwC0SiVDTANE8EP/LqWfcQAmXQNP26AWRvrantBYT 1Qm0wg9Oh5NSUfW/nHrJjV7eytD5zQ2IcEZqg6g1x0d62+kh4madHUT9EPr1 k/tVer+XJUurdtOSVizlEk9aTm5HSZqbmqS46ftIFmluatLc1KS5qUlzU5Pm piZPuD2ecuRmP99Si0lzU5PmpiaiROs5OK4fosWkualJc1OT5qYmntvu7u7i 7cjExEQgEBjRshUQARS47ZoCt83NzQktCQEU4wb9+lRIm6TtWvTscy9UvtFL LQUrT8o8q/8HX3oLkA== "], {{0, 269}, {104, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{86., Automatic}, ImageSizeRaw->{104, 269}, PlotRange->{{0, 104}, {0, 269}}], "\[IndentingNewLine]", "\t\t\t", "Hover", " ", "over", " ", "the", " ", "graph", " ", "below", " ", "and", " ", "the", " ", "coordinates", " ", "of", " ", "the", " ", "point", " ", "under", " ", "the", " ", "cursor", " ", "are", " ", "displayed", " ", "next", " ", "to", " ", "the", " ", RowBox[{"cursor", ".", " ", "Click"}], " ", "to", " ", "mark", " ", "the", " ", "point", " ", "you", " ", "wish", " ", "to", " ", "use", " ", "as", " ", "data", " ", "in", " ", "the", " ", "graphic", " ", "for", " ", "later", " ", RowBox[{"copying", ".", " ", "Similarly"}], " ", "dragging", " ", "marks", " ", "a", " ", "set", " ", "of", " ", "points", " ", "along", " ", "the", " ", RowBox[{"path", ":"}]}]}]}]}]}]}], Editable->False], "*)"}], "Text"], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input", Editable->False, CellChangeTimes->{{3.5194773799119997`*^9, 3.519477384433*^9}, { 3.519477504094*^9, 3.519477508137*^9}, {3.519477547602*^9, 3.519477549137*^9}, {3.519477854491*^9, 3.519477854757*^9}, { 3.519479160189*^9, 3.51947917431*^9}, {3.5194794316800003`*^9, 3.5194794436280003`*^9}, {3.519479657385*^9, 3.519479662557*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[{{1., 0.}, {2., 0.}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, Automatic}, ImagePadding->{{8., 1.1}, {16., 6.}}, PlotRange->{{0., 11.}, {0., 6.}}, PlotRangeClipping->True, PlotRangePadding->Automatic]], "Output", CellChangeTimes->{{3.5194773807530003`*^9, 3.519477384917*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"INSTRUCTIONS", ":", " ", RowBox[{ "After", " ", "clicking", " ", "or", " ", "dragging", " ", "points"}]}], ",", RowBox[{ "use", " ", "Edit", " ", "\:25ba", " ", "Copy", " ", "to", " ", "put", " ", "the", " ", "coordinates", " ", "of", " ", "the", " ", "points", " ", "on", " ", "the", " ", "clipboard", " ", "then", " ", "use", " ", "Edit", " ", "\:25ba", " ", "Paste", " ", "to", " ", "paste", " ", "them", " ", RowBox[{"below", "."}]}]}], "*)"}], "\[IndentingNewLine]"}]], "Input", Editable->False, CellChangeTimes->{{3.519480095909*^9, 3.519480146491*^9}, {3.519480374094*^9, 3.519480375948*^9}, {3.519480969594*^9, 3.519481004553*^9}}], Cell[BoxData[ RowBox[{ StyleBox["XY", Editable->False], StyleBox[" ", Editable->False], StyleBox["=", Editable->False], StyleBox[" ", Editable->False], StyleBox[ RowBox[{"(*", RowBox[{"Paste", " ", "IMMEDIATELY", " ", "BELOW"}], "*)"}], Editable->False], "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[ RowBox[{"(*", RowBox[{"Hold", " ", "\"\\"", " ", "and", " ", "press", " ", RowBox[{"\"\\"", "."}]}], "*)"}], Editable->False]}]], "Input", CellChangeTimes->{{3.519480212881*^9, 3.519480224847*^9}, 3.5194803721730003`*^9, 3.51948048823*^9, {3.519480713651*^9, 3.519480734002*^9}, {3.5194807768719997`*^9, 3.519480833646*^9}, 3.5194808679300003`*^9, {3.519480952458*^9, 3.519480954844*^9}, { 3.519481007135*^9, 3.519481038972*^9}, 3.519481118797*^9, { 3.519481317933*^9, 3.519481333527*^9}, 3.519481673009*^9, 3.519481749543*^9, {3.519481832777*^9, 3.519481833749*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Click", " ", "anywhere", " ", "below"}], ",", " ", RowBox[{"hold", " ", "\"\\"", " ", "and", " ", "press", " ", RowBox[{"\"\\"", "."}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "XY"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p2", "[", "x_", "]"}], " ", "=", " ", RowBox[{"Fit", "[", RowBox[{"XY", ",", RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}]}], "}"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], " ", "=", " ", RowBox[{"p2", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", RowBox[{"p2", "[", "x", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"RootMeanSquare", "[", RowBox[{ RowBox[{"XY", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"Map", "[", RowBox[{"p2", ",", RowBox[{"XY", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "data2D"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"p2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", "XY", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"<<", "ComputationalGeometry`"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data2D", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p2", "[", "x", "]"}], ",", "1"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p2", "[", "x", "]"}], ",", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p2", "[", "x", "]"}], ",", "2"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p2", "[", "x", "]"}], ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VoronoiDiagram", "[", RowBox[{"data2D", ",", "delval"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"DiagramPlot", "[", RowBox[{"data2D", ",", RowBox[{"LabelPoints", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"ListPlot", "[", "data2D", "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p3", "[", "x_", "]"}], " ", "=", " ", RowBox[{"Fit", "[", RowBox[{"XY", ",", RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}]}], "}"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], " ", "=", " ", RowBox[{"p3", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", RowBox[{"p3", "[", "x", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"RootMeanSquare", "[", RowBox[{ RowBox[{"XY", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"Map", "[", RowBox[{"p3", ",", RowBox[{"XY", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "data3D"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"ConvexHullArea", "[", "data3D", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"p3", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", "XY", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"<<", "ComputationalGeometry`"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data3D", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p3", "[", "x", "]"}], ",", "1"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p3", "[", "x", "]"}], ",", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p3", "[", "x", "]"}], ",", "2"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p3", "[", "x", "]"}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p3", "[", "x", "]"}], ",", "3"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p3", "[", "x", "]"}], ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VoronoiDiagram", "[", RowBox[{"data3D", ",", "delval"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"DiagramPlot", "[", RowBox[{"data3D", ",", RowBox[{"LabelPoints", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"ListPlot", "[", "data3D", "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"convexhull", "=", RowBox[{"ConvexHull", "[", "data3D", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"PlanarGraphPlot", "[", RowBox[{"data3D", ",", "convexhull", ",", RowBox[{"LabelPoints", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p4", "[", "x_", "]"}], " ", "=", " ", RowBox[{"Fit", "[", RowBox[{"XY", ",", RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}], ",", RowBox[{"x", "^", "4"}]}], "}"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], " ", "=", " ", RowBox[{"p4", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", RowBox[{"p4", "[", "x", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"RootMeanSquare", "[", RowBox[{ RowBox[{"XY", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"Map", "[", RowBox[{"p4", ",", RowBox[{"XY", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "data4D"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"ConvexHullArea", "[", "data4D", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"p4", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", "XY", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"<<", "ComputationalGeometry`"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data4D", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p4", "[", "x", "]"}], ",", "1"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p4", "[", "x", "]"}], ",", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p4", "[", "x", "]"}], ",", "2"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p4", "[", "x", "]"}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p4", "[", "x", "]"}], ",", "3"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p4", "[", "x", "]"}], ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p4", "[", "x", "]"}], ",", "4"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p4", "[", "x", "]"}], ",", "4"}], "]"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VoronoiDiagram", "[", RowBox[{"data4D", ",", "delval"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"convexhull", "=", RowBox[{"ConvexHull", "[", "data4D", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"DiagramPlot", "[", RowBox[{"data4D", ",", RowBox[{"LabelPoints", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"ListPlot", "[", "data4D", "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"PlanarGraphPlot", "[", RowBox[{"data4D", ",", "convexhull", ",", RowBox[{"LabelPoints", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p5", "[", "x_", "]"}], " ", "=", " ", RowBox[{"Fit", "[", RowBox[{"XY", ",", RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}], ",", RowBox[{"x", "^", "4"}], ",", RowBox[{"x", "^", "5"}]}], "}"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], " ", "=", " ", RowBox[{"p5", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", RowBox[{"p5", "[", "x", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"RootMeanSquare", "[", RowBox[{ RowBox[{"XY", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"Map", "[", RowBox[{"p5", ",", RowBox[{"XY", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "data5D"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"ConvexHullArea", "[", "data5D", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"p5", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", "XY", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"<<", "ComputationalGeometry`"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data5D", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p5", "[", "x", "]"}], ",", "1"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p5", "[", "x", "]"}], ",", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p5", "[", "x", "]"}], ",", "2"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p5", "[", "x", "]"}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p5", "[", "x", "]"}], ",", "3"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p5", "[", "x", "]"}], ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p5", "[", "x", "]"}], ",", "4"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p5", "[", "x", "]"}], ",", "4"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p5", "[", "x", "]"}], ",", "5"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p5", "[", "x", "]"}], ",", "5"}], "]"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VoronoiDiagram", "[", RowBox[{"data5D", ",", "delval"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"DiagramPlot", "[", RowBox[{"data5D", ",", RowBox[{"LabelPoints", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"ListPlot", "[", "data5D", "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"convexhull", "=", RowBox[{"ConvexHull", "[", "data5D", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"PlanarGraphPlot", "[", RowBox[{"data5D", ",", "convexhull", ",", RowBox[{"LabelPoints", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p6", "[", "x_", "]"}], " ", "=", " ", RowBox[{"Fit", "[", RowBox[{"XY", ",", RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}], ",", RowBox[{"x", "^", "4"}], ",", RowBox[{"x", "^", "5"}], ",", RowBox[{"x", "^", "6"}]}], "}"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], " ", "=", " ", RowBox[{"p6", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", RowBox[{"p6", "[", "x", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"RootMeanSquare", "[", RowBox[{ RowBox[{"XY", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"Map", "[", RowBox[{"p6", ",", RowBox[{"XY", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "data6D"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"ConvexHullArea", "[", "data6D", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"p6", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", "XY", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"<<", "ComputationalGeometry`"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data6D", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p6", "[", "x", "]"}], ",", "1"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p6", "[", "x", "]"}], ",", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p6", "[", "x", "]"}], ",", "2"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p6", "[", "x", "]"}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p6", "[", "x", "]"}], ",", "3"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p6", "[", "x", "]"}], ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p6", "[", "x", "]"}], ",", "4"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p6", "[", "x", "]"}], ",", "4"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p6", "[", "x", "]"}], ",", "5"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p6", "[", "x", "]"}], ",", "5"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p6", "[", "x", "]"}], ",", "6"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p6", "[", "x", "]"}], ",", "6"}], "]"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VoronoiDiagram", "[", RowBox[{"data6D", ",", "delval"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"DiagramPlot", "[", RowBox[{"data6D", ",", RowBox[{"LabelPoints", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"ListPlot", "[", "data6D", "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"convexhull", "=", RowBox[{"ConvexHull", "[", "data6D", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"PlanarGraphPlot", "[", RowBox[{"data6D", ",", "convexhull", ",", RowBox[{"LabelPoints", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p7", "[", "x_", "]"}], " ", "=", " ", RowBox[{"Fit", "[", RowBox[{"XY", ",", RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}], ",", RowBox[{"x", "^", "4"}], ",", RowBox[{"x", "^", "5"}], ",", RowBox[{"x", "^", "6"}], ",", RowBox[{"x", "^", "7"}]}], "}"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], " ", "=", " ", RowBox[{"p7", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", RowBox[{"p7", "[", "x", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"RootMeanSquare", "[", RowBox[{ RowBox[{"XY", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"Map", "[", RowBox[{"p7", ",", RowBox[{"XY", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "data7D"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"ConvexHullArea", "[", "data7D", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"p7", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", "XY", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"<<", "ComputationalGeometry`"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data7D", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p7", "[", "x", "]"}], ",", "1"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p7", "[", "x", "]"}], ",", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p7", "[", "x", "]"}], ",", "2"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p7", "[", "x", "]"}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p7", "[", "x", "]"}], ",", "3"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p7", "[", "x", "]"}], ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p7", "[", "x", "]"}], ",", "4"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p7", "[", "x", "]"}], ",", "4"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p7", "[", "x", "]"}], ",", "5"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p7", "[", "x", "]"}], ",", "5"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p7", "[", "x", "]"}], ",", "6"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p7", "[", "x", "]"}], ",", "6"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p7", "[", "x", "]"}], ",", "7"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p7", "[", "x", "]"}], ",", "7"}], "]"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VoronoiDiagram", "[", RowBox[{"data7D", ",", "delval"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"DiagramPlot", "[", RowBox[{"data7D", ",", RowBox[{"LabelPoints", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"ListPlot", "[", "data7D", "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"convexhull", "=", RowBox[{"ConvexHull", "[", "data7D", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"PlanarGraphPlot", "[", RowBox[{"data7D", ",", "convexhull", ",", RowBox[{"LabelPoints", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p8", "[", "x_", "]"}], " ", "=", " ", RowBox[{"Fit", "[", RowBox[{"XY", ",", RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}], ",", RowBox[{"x", "^", "4"}], ",", RowBox[{"x", "^", "5"}], ",", RowBox[{"x", "^", "6"}], ",", RowBox[{"x", "^", "7"}], ",", RowBox[{"x", "^", "8"}]}], "}"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], " ", "=", " ", RowBox[{"p8", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", RowBox[{"p8", "[", "x", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"RootMeanSquare", "[", RowBox[{ RowBox[{"XY", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"Map", "[", RowBox[{"p8", ",", RowBox[{"XY", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "data8D"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"ConvexHullArea", "[", "data8D", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", "XY", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"<<", "ComputationalGeometry`"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data8D", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "1"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "2"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "3"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "4"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "4"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "5"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "5"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "6"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "6"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "7"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "7"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "8"}], "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{"p8", "[", "x", "]"}], ",", "8"}], "]"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VoronoiDiagram", "[", RowBox[{"data8D", ",", "delval"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"DiagramPlot", "[", RowBox[{"data8D", ",", RowBox[{"LabelPoints", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"ListPlot", "[", "data8D", "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"convexhull", "=", RowBox[{"ConvexHull", "[", "data8D", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"PlanarGraphPlot", "[", RowBox[{"data8D", ",", "convexhull", ",", RowBox[{"LabelPoints", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", Editable->False, CellChangeTimes->{{3.51947766294*^9, 3.519477765775*^9}, { 3.5194778342939997`*^9, 3.519477929541*^9}, {3.5194780279849997`*^9, 3.519478032354*^9}, {3.519479005693*^9, 3.519479092582*^9}, { 3.5194791546029997`*^9, 3.519479155219*^9}, 3.519479670551*^9, { 3.51948106552*^9, 3.5194810966879997`*^9}, {3.519481830375*^9, 3.5194818310699997`*^9}}] }, WindowSize->{1432, 787}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 17412, 305, 500, "Input"], Cell[17994, 329, 400, 10, 254, "Output"] }, Open ]], Cell[18409, 342, 765, 17, 52, "Input"], Cell[19177, 361, 975, 25, 72, "Input"], Cell[20155, 388, 38838, 1108, 2112, "Input"] } ] *) (* End of internal cache information *)