(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 104369, 2779] NotebookOptionsPosition[ 60617, 1714] NotebookOutlinePosition[ 97641, 2558] CellTagsIndexPosition[ 97562, 2553] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", "FirstSlide", CellTags->"SlideShowHeader"], Cell["Cloud Notebooks and Graphics", "Title", CellChangeTimes->{{3.448190122176695*^9, 3.44819012385317*^9}, { 3.485609127497636*^9, 3.485609133015955*^9}, {3.514308355088097*^9, 3.514308374696691*^9}, 3.5146594348020153`*^9, 3.5146601881617107`*^9, { 3.641886727491625*^9, 3.6418867391614122`*^9}, {3.6423130288514013`*^9, 3.642313032265504*^9}, {3.65401200436378*^9, 3.654012009307819*^9}}], Cell["\<\ Jan Poeschko, Senior System Developer, Wolfram Research John Pacey, Kernel Developer, Wolfram Research\ \>", "Subtitle", CellChangeTimes->{{3.485609136120798*^9, 3.4856091511532907`*^9}, { 3.4856091945334663`*^9, 3.485609199379443*^9}, {3.4951031489375*^9, 3.49510314984375*^9}, {3.495106455296875*^9, 3.495106455453125*^9}, { 3.5143083846926413`*^9, 3.514308395249558*^9}, 3.5443793532699003`*^9, 3.621626517580729*^9, {3.621626691998458*^9, 3.6216267186543407`*^9}, { 3.621695156698331*^9, 3.621695160632772*^9}, {3.622213306499199*^9, 3.622213328771823*^9}, {3.641886746972287*^9, 3.641886751944688*^9}, { 3.642312977422667*^9, 3.642312978318816*^9}, {3.653848723566146*^9, 3.6538487420236893`*^9}, {3.65401198300998*^9, 3.654011995634465*^9}}], Cell[TextData[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztW8tu20YUDdouutQnsH+gT2CKfoCQ/sAkQLOtkBYosuMiiwBFIiex63eo WLZsd8NP4C7dlesWsMayxUUWBbfesfdSd+TL0ZAc6hkEGuAklszHnMP7mjv0 d09+fvT0qwcPHvzyLfzz6PFvD589e/z8x2/gw/fPf/3pydfwww+AhwD8cjM2 YzM243MZ8fmfDUB73fNY5wD+AcCjn13Ug/5vrHlqKxnENWUaePRZQQJ8gPgS NSEfkBUa6EA93PXOfHFD4+vhdzfvPwhASP4hS7QIPxctaK4dgFPzvKbGycPv r35/LQAJIAXIwda7cLh/FI7OLsISLWrde9GD+Kv5BLbPhuY+pYF8u+MAXODf ALQAHdQCNUE9yEYSgxbeEmlWcTH5r6TYboxhFN/0c1r4O+DvAVJCBOgAUIsm wEcbGbzaigq0CNcRN4lrkc8mFMMcdnxDnzva+dWbnTZpIAAh00EhQX0GnbcO 6OApu4BzI+2e+Lm5Yg3cEg30ZyRIk5xOg+29CDTw9GujT5AdyCktXm2hXYRo FzfH3cCg/cp0qKGBETfdHtpAatKAD9KD24ckH2mjTVzv7AWafa1MB7JtPRbo z8WI0dmlBO7SRgM1SIuIaSEoViTyzXak6SBXFR90f0Reg5394LbX9wtieIbr vSNlA6mKBzGrlSu0ULHTwc8lOkTLVyCbd44n8OHcguHYX3Oxa9TrB+wYya4l 2PVUTDXatOKvhtKB/GKleTPWcr2mwYSn3Dv0IY5nfjt4txux37mGa2IN1Ynv a0WrWoh0SA1xcqmxQddA7h4GBg0UEk0j3+L6ItbWFWWD4mSi5c2l+kScrxV1 P3cAHeJu0sMqZlHsVfdpVR0PGgRQS+ixQcxNtnh+uVpxeOhP7GAyJ+AKECwP TOJgzXs5NseBBk5WO4zryUmeqHu/knm4ZJ8d8oNcTGQ5HzHlh+j/trlQjbtP n1oAjyAAlfaD9STW1fPYAmqOdkfPuWotW6SBy3nUuT+d4wIkINWQoB50jAPo AHKxhdZdui2EltxbNlxLwGOiYPPEuYsa/JsG7iYt1M+ZzUHObFJN6We28PqN niMcSx30ur4MaB8hPn+MBVpeUM9KsLl6lhqYnn8RArQDtDXSIKsjaV2Rav0H 6zhUoEMy6p2HN/5JgPEf8jzafWSI+boGnjbnEG2jhL9bg7/CxBdYPY21dIB9 mLr+UKbD8KhrqoFy9RDWh8hfxQPNDnI+bYpvBs2s+ZMGbdIgwHpB94c6GtTQ wbsy1HuMU6PCp32K/Y0ZNJh6rtSPytbaVDuiv/KaqXCuc+gQVF2DYrcNJ1kz Fhhtm/UdxjHh9Jzbwkx7OiYdrg+Oef1XWPeSL3g1uc2rQcBiQqjlSG8WDYp0 gDwgq3QoiAeLQqdAA7W+xt5bcHPk87lX2m2JBg3Nr7JcIf84iMp0uLuvD5YB YaGBd729O3NuMOhg6p/p60HPoINtPKgLp0CDFtNAgAaqtkcYbceSfzOe7g0l 1/vH3B+iovXg3biWWXosIA1cpcGsfG35a35QyJ80QJ/wl+0HpMHEF0ZguwD8 37s9PRdQ4xWet0z+pMEiY2PpWljTwAekCNAA69y6taKw4B/a9kNg7tGCNHAr NPBVbgTu4USDXj8ADbya/PPxr3+ZVuWBCg0aC9ChMKbF476GYGsG9INkosHJ GdqBVY1k4o97ArBO4vEvZWsDUVYvG7QQFCOTmvxL7Rhz9223N1k7Am9H8Ufg eg9QOU/j84drA/9OxXqJr5tC1T8o0MCZIU+EdyU9pHjc95G0b4kaoA8IpkEE /BNAqd/G5fuoWX2RrZ+7vfD64H0odw9C4mvqm2J97BBn9AFcE7dn4F5q/2zu 6Aceq5PbwDuYaHB2gX5Q2mMu6BnYAutHqMtPfN5HoucdzhP/q+IfzT3b0745 7qq6IB3uHzW5H9x+OPVBg1It43z/UK+JrQAxx7h/cjfujfk1/B9txboHSfP2 WT7AfNhmGkjgj6i930I+5qp7xIZeMgfvqRZd87+Pf7Xu7teSHG2bZ26YY1O3 AcoHUqsLFtZfp/s2SJtcj4btsST6OWyPYZG9frWO89j+fKDFwgSfzSz1oeUc cnssg519pcEkh9Gegp5TFzIfZZssFyQUB+5rgrOLwCYfzDEHvible64d4q73 3VT+mNsWiL8c7h649I6KygUdzQaiOrXhDPOQPDcYuGbAvWayR957n/k9ZeKf jE7OOH/0gVYuFywhDhjmwurIi6mes+LO4+hge08ynWrZJ/k/Xk8Sf1UTR5CT cnXxqH+paiJ3Oeyn+ynaPpssep8Q8jSPDV6N+7XoeqFm/xHkBKyJI0McrLWe qTtibV9ueOhn7+Jgzzmu2J9ksXMqfxju47Kc7NH+QRl/1BnjYLSsOMjmlssJ +I5NFff7Y89L6wjK+W12PZ/WQvz9tIDsP8+/1w/JB5b+bppeG5TAjw19GLUG Z9fjzzsl/t7V1ju1n9qg559Q/G/l/H/F/GnOoQV3hx2ft5vTc6lpIOgY8e+L l+7fj58KQACYxHWs/yj/8/yX+f+q+dOcrbiz4/nfLEzqSvV74OoqzoCUQx1D 9V+i8Zfg/+vg7xi4o124FeflehP47pT6HXD1NO6oR/ufFy8dWv9Ijfs4/3V7 kuLfOt9VruSunZuzBfU92UEL0KT+j8it//VnP+6L4bPvLDv+F/BAv43qcGfn CpMGxDk02Hqe+9jv1Vq49v0XNUz+XvP8yKCBV8i9fxnSc5f07L15Oax7cF9S 32kaZH/Dk/Ee13sp+bxY47QXPlRuVZ+BrwC+WN8pP1e8vVXHu1UNZQvqM/o2 8W2v089XPeI598G/hBGv+O+PNmMzNqN4/A9AexV6 "], {{0, 68}, {65, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSizeRaw->{65, 68}, PlotRange->{{0, 65}, {0, 68}}]]], " ", StyleBox["Join the Conversation ", FontColor->GrayLevel[0.5]], StyleBox["#WolframTechConf", FontColor->GrayLevel[0.4]] }], "Text", CellFrame->{{0, 0}, {0, 1}}, ShowCellBracket->Automatic, CellMargins->{{80, 80}, {100, 165}}, CellFrameMargins->{{0, 0}, {0, 50}}, CellFrameColor->RGBColor[0.886275, 0.364706, 0.427451], CellChangeTimes->{{3.6216253798451433`*^9, 3.621625396205482*^9}, 3.6216255185076437`*^9, {3.621625573653562*^9, 3.6216256020928392`*^9}, { 3.621625635821653*^9, 3.621625645324601*^9}, {3.621625678952072*^9, 3.62162572395792*^9}, {3.621625867660451*^9, 3.62162588677988*^9}, { 3.621625982321312*^9, 3.621625984476396*^9}, {3.622801434050551*^9, 3.622801447780161*^9}, {3.642153418724451*^9, 3.642153478825447*^9}, { 3.6538514028210783`*^9, 3.653851406494766*^9}}, TextAlignment->Center, FontFamily->"Arial", FontSize->24, FontColor->GrayLevel[1]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Introduction to Cloud notebooks", "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.641888104594302*^9, 3.641888109404572*^9}, {3.6423233325978327`*^9, 3.642323333954257*^9}, {3.654012024522043*^9, 3.6540120325207863`*^9}}], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "^", "20"}]}], ")"}]}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.6102268648120413`*^9, 3.610226864814666*^9}, 3.642090357042329*^9}], Cell[BoxData[ RowBox[{"Button", "[", RowBox[{"\"\\"", ",", RowBox[{"Print", "[", "\"\\"", "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.653873894133175*^9, 3.653873894134387*^9}, { 3.654309740004747*^9, 3.654309745377986*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Graphics", "Section", CellChangeTimes->{{3.654009300740715*^9, 3.654009301466174*^9}, { 3.654010081146758*^9, 3.65401008241576*^9}, {3.6541927815398517`*^9, 3.6541927826596084`*^9}}], Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Thick", ",", "Green", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "]"}], ",", "Red", ",", RowBox[{"Disk", "[", "]"}], ",", "Blue", ",", RowBox[{"Circle", "[", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], "]"}], ",", "Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", "Purple", ",", RowBox[{"Arrowheads", "[", "Large", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", RowBox[{"3", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"3", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", "Black", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"GraphPlot", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"i", "\[Rule]", RowBox[{"Mod", "[", RowBox[{ RowBox[{"i", "^", "2"}], ",", "102"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "102"}], "}"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ReliefPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"i", "+", RowBox[{"Sin", "[", RowBox[{ RowBox[{"i", "^", "2"}], "+", RowBox[{"j", "^", "2"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "4"}], ",", "4", ",", ".03"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"-", "4"}], ",", "4", ",", ".03"}], "}"}]}], "]"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", RowBox[{"t", "/", "20"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", "Pi", " ", RowBox[{"t", "/", "20"}]}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"2", "Pi", " ", RowBox[{"t", "/", "20"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "20"}], "}"}]}], "]"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["3D Graphics", "Section", CellChangeTimes->{{3.654009304095212*^9, 3.654009308145569*^9}, { 3.654010089311756*^9, 3.654010090979768*^9}, 3.6541928274674597`*^9}], Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", "]"}], ",", "Red", ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"0", ",", "0", ",", "2"}], "}"}], "]"}], ",", "Black", ",", "Thick", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", "2"}], "}"}]}], "}"}], "]"}], ",", "Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", "Green", ",", RowBox[{"Opacity", "[", ".3", "]"}], ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.654193087414731*^9, 3.654193088391431*^9}}], Cell[BoxData[ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"Cos", "[", "v", "]"}]}], ")"}], RowBox[{"Cos", "[", "u", "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"Cos", "[", "v", "]"}]}], ")"}], RowBox[{"Sin", "[", "u", "]"}]}], ",", RowBox[{"Sin", "[", "v", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "n"}], "]"}], ",", RowBox[{"Sphere", "[", "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"{", RowBox[{"5", ",", "100"}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6543453668110123`*^9, 3.654345366999793*^9}}], Cell[BoxData[ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{"x", "^", "2"}], "-", RowBox[{"y", "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "8"}], ",", RowBox[{"ColorFunction", "\[Rule]", "Hue"}], ",", RowBox[{"MeshShading", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Yellow", ",", "Orange"}], "}"}], ",", RowBox[{"{", RowBox[{"Pink", ",", "Red"}], "}"}]}], "}"}]}]}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Dynamic", "Section", CellChangeTimes->{{3.653873810664366*^9, 3.653873812333735*^9}}], Cell[BoxData[ RowBox[{"Dynamic", "[", "s", "]"}]], "Input", CellChangeTimes->{{3.653874239180511*^9, 3.653874240690063*^9}, 3.6539215150020847`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"s", "=", "\"\\""}], ";"}]], "Input", CellChangeTimes->{{3.653874243005516*^9, 3.653874247335424*^9}, 3.653874336887738*^9, 3.653921516939443*^9}], Cell[BoxData[ RowBox[{"Style", "[", RowBox[{"s", ",", RowBox[{"FontSize", "\[Rule]", "100"}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"Dynamic", "[", "c", "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.653874258940217*^9, 3.653874280459518*^9}, 3.653921518423952*^9, {3.654312089429758*^9, 3.654312091169119*^9}}], Cell[BoxData[ RowBox[{"c", "=", "Red"}]], "Input", CellChangeTimes->{{3.653874282777225*^9, 3.653874284237146*^9}}], Cell[BoxData[ RowBox[{"ColorSetter", "[", RowBox[{"Dynamic", "[", "c", "]"}], "]"}]], "Input", CellChangeTimes->{{3.653874287739826*^9, 3.653874305564762*^9}}], Cell[CellGroupData[{ Cell["Continuous action and preemptive evaluations", "Subsection", CellChangeTimes->{{3.654007270906365*^9, 3.6540072739486303`*^9}, { 3.654310138844611*^9, 3.6543101480564127`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Slider", "[", RowBox[{"Dynamic", "[", "x", "]"}], "]"}], ",", RowBox[{"Dynamic", "[", "x", "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.6540072791765747`*^9, 3.6540072889403667`*^9}}], Cell[BoxData[ RowBox[{"Pause", "[", "10", "]"}]], "Input", CellChangeTimes->{{3.654007292003944*^9, 3.654007296316251*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["DynamicModule", "Subsection", CellChangeTimes->{{3.6538747426960697`*^9, 3.653874745810584*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"c1", "=", "0"}], ";", RowBox[{"{", RowBox[{ RowBox[{"EventHandler", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"Disk", "[", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\"\\"", "\[RuleDelayed]", RowBox[{"(", RowBox[{"c1", "=", RowBox[{"c1", "+", "1"}]}], ")"}]}], "}"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Dynamic", "[", "c1", "]"}], ",", "100"}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.653920809630609*^9, 3.653920839357307*^9}, { 3.653921466470613*^9, 3.653921467037026*^9}, {3.653921524292245*^9, 3.653921530939674*^9}, {3.653921574962076*^9, 3.653921582259943*^9}, { 3.654304961883771*^9, 3.654304965490851*^9}}], Cell[BoxData[ RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{"c2", "=", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"EventHandler", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"Disk", "[", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\"\\"", "\[RuleDelayed]", RowBox[{"(", RowBox[{"c2", "=", RowBox[{"c2", "+", "1"}]}], ")"}]}], "}"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Dynamic", "[", "c2", "]"}], ",", "100"}], "]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6539208184523497`*^9, 3.653920818453652*^9}, { 3.653921444659279*^9, 3.653921449501874*^9}, {3.653921535537496*^9, 3.653921548279394*^9}, {3.653921584620303*^9, 3.653921589397098*^9}, { 3.6543049685926743`*^9, 3.654304973087592*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Zoomable Graphics using Dynamic and EventHandler", "Section", CellChangeTimes->{{3.6419778967611513`*^9, 3.64197790389788*^9}, { 3.642143786662417*^9, 3.6421438093424673`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"zoomable", "[", "g_Graphics", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"options", "=", RowBox[{"Options", "[", "g", "]"}]}], ",", RowBox[{"originalRange", "=", RowBox[{"PlotRange", "/.", RowBox[{"Options", "[", RowBox[{"g", ",", "PlotRange"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"primitives", "=", RowBox[{"First", "[", "g", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"makeRectangle", "=", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.25", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{"Dashing", "[", "Small", "]"}], "}"}], "]"}], ",", RowBox[{"FaceForm", "[", "Yellow", "]"}], ",", RowBox[{"RectangleBox", "[", RowBox[{"#1", ",", "#2"}], "]"}]}], "}"}], "&"}], ")"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"first", "=", "None"}], ",", RowBox[{"second", "=", "None"}], ",", RowBox[{"range", "=", "originalRange"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{"{", RowBox[{ RowBox[{"EventHandler", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"primitives", ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"RawBoxes", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"first", "=!=", "None"}], "&&", RowBox[{"second", "=!=", "None"}]}], ",", RowBox[{"makeRectangle", "[", RowBox[{"first", ",", "second"}], "]"}], ",", RowBox[{"{", "}"}]}], "]"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"Dynamic", "@", "range"}]}], ",", RowBox[{"Sequence", "@@", "options"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "1"}], "}"}], ":>", RowBox[{"(", RowBox[{"first", "=", RowBox[{"(", RowBox[{"MousePosition", "[", "\"\\"", "]"}], ")"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "1"}], "}"}], ":>", RowBox[{"(", RowBox[{"second", "=", RowBox[{"MousePosition", "[", "\"\\"", "]"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "1"}], "}"}], "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"first", "=!=", "None"}], "&&", RowBox[{"second", "=!=", "None"}]}], ",", RowBox[{"range", "=", RowBox[{"Transpose", "@", RowBox[{"{", RowBox[{"first", ",", "second"}], "}"}]}]}]}], "]"}], ";", RowBox[{"first", "=", "None"}], ";", RowBox[{"second", "=", "None"}]}], ")"}]}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"Button", "[", RowBox[{"\"\\"", ",", RowBox[{"range", "=", "originalRange"}]}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6420231878225803`*^9, 3.642023220444772*^9}, { 3.642023308427094*^9, 3.642023600798862*^9}, {3.642073444736371*^9, 3.642073572522118*^9}, 3.6421437482765083`*^9, {3.6539201858636827`*^9, 3.653920264478907*^9}, {3.653920314897217*^9, 3.653920330662014*^9}, { 3.6539203658745203`*^9, 3.653920368389073*^9}, {3.654008629497748*^9, 3.654008655500737*^9}, 3.654305216686645*^9, 3.654305376443962*^9, { 3.654305448970487*^9, 3.65430548137685*^9}}], Cell[BoxData[ RowBox[{"zoomable", "[", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.642023166517668*^9, 3.6420231766430807`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Interactive Graphics", "Section", CellChangeTimes->{{3.654009492175109*^9, 3.6540094955784197`*^9}, { 3.654010142186878*^9, 3.654010144186592*^9}, {3.6540120416947727`*^9, 3.654012046647566*^9}, {3.654193164804532*^9, 3.6541931785691657`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.1"}], "}"}]}], "]"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", RowBox[{"5", ",", "10"}], "}"}], "]"}]}], "]"}]}]}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.652540501758572*^9, 3.652540521842143*^9}, { 3.652540577437295*^9, 3.6525406177823143`*^9}, {3.652540745083138*^9, 3.6525407461768503`*^9}, {3.652540851724969*^9, 3.65254090053813*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxVk3tMU2cYxhmOpSCGy2ZAEHGADKUXoEARRJ5yvwn0QltRxqYQ5xyOCNEE F1LMxlSCxo0NxDjAYIZLRBkMRgFpugEDBATGbYKUi45CgbqBzEjGtvQ9f+wk Jye/88t7zved8zxvH/tYnGFqYmKS8e/539V4GEJM/n+A3VPYU3Olie6z0DIY 7LqZ2UVsDV+V6qte3SDxWzh1wlMXqB8jtofBLC5nvuYJ8U6kCG/bFdnMEO9G 047Ik6dvzhG7oPfvNk3x6jNiNwirU0u32OiI3bFsaX5VurRA7IGA45z49k/1 xPvQnuxwK2xoiZiNuF3tL88NLxNzsWU6fKr34gqxFwoz2TdyFxn2RnuotjN/ g2EfNJTyRhubGebDsL01X7OXYV/IAxyc7aKZ5/shsn5g4YU9835/vDqzGHKy fJFYANbod+P8KWY/AXDhKTgDE78T70fpwE9r6TefEgeitrt/2z33WeIgNH9W 0byRpyU+AMtv3dy8Ux4TB0P9NNX1TNYw8UEMeUWP/FjeRxyCI8MNmQHWGmKA a116wSr2tpGVgA9nfr9g9m6b0QtRYtnYber9s5GVQuTEb1p3pTwiHwrnY6q8 oOwR8qF4PmAIE4onyIdB6MjVf7iqJR+GCrV+U1Y8Sz4cfXXOHK7pM/LhqNk1 MdkkmCcfgdZfZnIlvAXyERizfTT1x+wi+UjsufxaYJBoiXwkDB4R3gXZy+Sj oERn8FLUCvkoqPSpb4oeEptEQ6wXWKVtMj4am8GWZcVaxsegatHlLLIYHwP+ de1a/j3m+bFochnbGVnBvD8Wo26q70Mj9OTjILBtka5UMuuPQ5aZT8knKmZ/ 8ZDft0jo+pLZfzzq1762k/HnyB9CRWdujKB8mvwhdE9d6bRomSSfAMfWreml S6PkE6C+df/y8+kB8ok4+oo/ukPUST4RTr0PHisifiCfhLyQHs0dwTXj/0cS 2Pv8eJ4jrZSHJBzo6cC2Sz1GVifhC3MdL84wRPkRYeOiX5WVbpzmRTC3WSgr Kp+ieRHUDmOOxReo72oRWBaZGtYbTL7FKDyePt0gofxDDKuu2T2qDOqHUoyY HKeJDn/qj1qMF3vNzgs0TN8l8KrZKLB/nfoHCaz+sr7r85JYKYFCurxhW059 VUvAa1SybVaZ/kpxJy1wWLJODCnO93tUDFYTK6U4UR9zRGbOzEvB5evWzzow fU9G4vue50qe0HqQjLJ1Tv+UgtarTMbGeNqYbxHtR50MTm29nKtk+i7DeiU3 ZKuAvgdkmBzsDq1qpO+llEEpcJ07yqK+q2W4xrP0d3/vN5qXw268/JLjR7/S vBynbgw7VX/+kOblSGL3PTg40UbzcswIw6tV716neQVy36kqdgiuM+YBCng0 bmfJkzooLwpkV9bWFKRTntQKmJ6u06bnUN5MDiOrYXdleDTlEYchTvxz7ZsP ptv+AUgk9ng= "]]}, "JSONMetadata"[ "{\"effects\":[\"DropLines\"],\"lineStyle\":{\"stroke\":\"rgb(100.00%, \ 0.00%, 0.00%)\",\"stroke-width\":2.0,\"stroke-dasharray\":\"5.,10.\"},\"\ linesVisible\":[false,false,true,true],\"highlightToPointRatio\":1.7,\"mouse\"\ :{\"yAxisIndependent\":false,\"nearestPtOnly\":false}}"]], {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-2.104166666666667, 103.10416666666667`}, {-1.1110064164866345`, 1.1106567619640388`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6541923346323423`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.1"}], "}"}]}], "]"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "5"}]}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.652540501758572*^9, 3.652540521842143*^9}, { 3.652540577437295*^9, 3.652540628213983*^9}, 3.65254075114867*^9, { 3.6525407975432158`*^9, 3.652540807062166*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxVk3tMU2cYxhmOpSCGy2ZAEHGADKUXoEARRJ5yvwn0QltRxqYQ5xyOCNEE F1LMxlSCxo0NxDjAYIZLRBkMRgFpugEDBATGbYKUi45CgbqBzEjGtvQ9f+wk Jye/88t7zved8zxvH/tYnGFqYmKS8e/539V4GEJM/n+A3VPYU3Olie6z0DIY 7LqZ2UVsDV+V6qte3SDxWzh1wlMXqB8jtofBLC5nvuYJ8U6kCG/bFdnMEO9G 047Ik6dvzhG7oPfvNk3x6jNiNwirU0u32OiI3bFsaX5VurRA7IGA45z49k/1 xPvQnuxwK2xoiZiNuF3tL88NLxNzsWU6fKr34gqxFwoz2TdyFxn2RnuotjN/ g2EfNJTyRhubGebDsL01X7OXYV/IAxyc7aKZ5/shsn5g4YU9835/vDqzGHKy fJFYANbod+P8KWY/AXDhKTgDE78T70fpwE9r6TefEgeitrt/2z33WeIgNH9W 0byRpyU+AMtv3dy8Ux4TB0P9NNX1TNYw8UEMeUWP/FjeRxyCI8MNmQHWGmKA a116wSr2tpGVgA9nfr9g9m6b0QtRYtnYber9s5GVQuTEb1p3pTwiHwrnY6q8 oOwR8qF4PmAIE4onyIdB6MjVf7iqJR+GCrV+U1Y8Sz4cfXXOHK7pM/LhqNk1 MdkkmCcfgdZfZnIlvAXyERizfTT1x+wi+UjsufxaYJBoiXwkDB4R3gXZy+Sj oERn8FLUCvkoqPSpb4oeEptEQ6wXWKVtMj4am8GWZcVaxsegatHlLLIYHwP+ de1a/j3m+bFochnbGVnBvD8Wo26q70Mj9OTjILBtka5UMuuPQ5aZT8knKmZ/ 8ZDft0jo+pLZfzzq1762k/HnyB9CRWdujKB8mvwhdE9d6bRomSSfAMfWreml S6PkE6C+df/y8+kB8ok4+oo/ukPUST4RTr0PHisifiCfhLyQHs0dwTXj/0cS 2Pv8eJ4jrZSHJBzo6cC2Sz1GVifhC3MdL84wRPkRYeOiX5WVbpzmRTC3WSgr Kp+ieRHUDmOOxReo72oRWBaZGtYbTL7FKDyePt0gofxDDKuu2T2qDOqHUoyY HKeJDn/qj1qMF3vNzgs0TN8l8KrZKLB/nfoHCaz+sr7r85JYKYFCurxhW059 VUvAa1SybVaZ/kpxJy1wWLJODCnO93tUDFYTK6U4UR9zRGbOzEvB5evWzzow fU9G4vue50qe0HqQjLJ1Tv+UgtarTMbGeNqYbxHtR50MTm29nKtk+i7DeiU3 ZKuAvgdkmBzsDq1qpO+llEEpcJ07yqK+q2W4xrP0d3/vN5qXw268/JLjR7/S vBynbgw7VX/+kOblSGL3PTg40UbzcswIw6tV716neQVy36kqdgiuM+YBCng0 bmfJkzooLwpkV9bWFKRTntQKmJ6u06bnUN5MDiOrYXdleDTlEYchTvxz7ZsP ptv+AUgk9ng= "]]}, "JSONMetadata"[ "{\"effects\":[\"HighlightPoints\"],\"lineStyle\":{\"stroke\":\"rgb(50.\ 00%, 50.00%, \ 50.00%)\",\"stroke-width\":0.6,\"stroke-dasharray\":\"4.,2.\"},\"linesVisible\ \":[false,false,true,true],\"highlightToPointRatio\":5,\"mouse\":{\"\ yAxisIndependent\":false,\"nearestPtOnly\":false}}"]], {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-2.104166666666667, 103.10416666666667`}, {-1.1110064164866345`, 1.1106567619640388`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6541923433678384`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.1"}], "}"}]}], "]"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", "True"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.652540501758572*^9, 3.652540521842143*^9}, { 3.652540577437295*^9, 3.652540628213983*^9}, 3.65254075114867*^9, { 3.6525407975432158`*^9, 3.652540807062166*^9}, {3.652541914371067*^9, 3.6525419455245647`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxVk3tMU2cYxhmOpSCGy2ZAEHGADKUXoEARRJ5yvwn0QltRxqYQ5xyOCNEE F1LMxlSCxo0NxDjAYIZLRBkMRgFpugEDBATGbYKUi45CgbqBzEjGtvQ9f+wk Jye/88t7zved8zxvH/tYnGFqYmKS8e/539V4GEJM/n+A3VPYU3Olie6z0DIY 7LqZ2UVsDV+V6qte3SDxWzh1wlMXqB8jtofBLC5nvuYJ8U6kCG/bFdnMEO9G 047Ik6dvzhG7oPfvNk3x6jNiNwirU0u32OiI3bFsaX5VurRA7IGA45z49k/1 xPvQnuxwK2xoiZiNuF3tL88NLxNzsWU6fKr34gqxFwoz2TdyFxn2RnuotjN/ g2EfNJTyRhubGebDsL01X7OXYV/IAxyc7aKZ5/shsn5g4YU9835/vDqzGHKy fJFYANbod+P8KWY/AXDhKTgDE78T70fpwE9r6TefEgeitrt/2z33WeIgNH9W 0byRpyU+AMtv3dy8Ux4TB0P9NNX1TNYw8UEMeUWP/FjeRxyCI8MNmQHWGmKA a116wSr2tpGVgA9nfr9g9m6b0QtRYtnYber9s5GVQuTEb1p3pTwiHwrnY6q8 oOwR8qF4PmAIE4onyIdB6MjVf7iqJR+GCrV+U1Y8Sz4cfXXOHK7pM/LhqNk1 MdkkmCcfgdZfZnIlvAXyERizfTT1x+wi+UjsufxaYJBoiXwkDB4R3gXZy+Sj oERn8FLUCvkoqPSpb4oeEptEQ6wXWKVtMj4am8GWZcVaxsegatHlLLIYHwP+ de1a/j3m+bFochnbGVnBvD8Wo26q70Mj9OTjILBtka5UMuuPQ5aZT8knKmZ/ 8ZDft0jo+pLZfzzq1762k/HnyB9CRWdujKB8mvwhdE9d6bRomSSfAMfWreml S6PkE6C+df/y8+kB8ok4+oo/ukPUST4RTr0PHisifiCfhLyQHs0dwTXj/0cS 2Pv8eJ4jrZSHJBzo6cC2Sz1GVifhC3MdL84wRPkRYeOiX5WVbpzmRTC3WSgr Kp+ieRHUDmOOxReo72oRWBaZGtYbTL7FKDyePt0gofxDDKuu2T2qDOqHUoyY HKeJDn/qj1qMF3vNzgs0TN8l8KrZKLB/nfoHCaz+sr7r85JYKYFCurxhW059 VUvAa1SybVaZ/kpxJy1wWLJODCnO93tUDFYTK6U4UR9zRGbOzEvB5evWzzow fU9G4vue50qe0HqQjLJ1Tv+UgtarTMbGeNqYbxHtR50MTm29nKtk+i7DeiU3 ZKuAvgdkmBzsDq1qpO+llEEpcJ07yqK+q2W4xrP0d3/vN5qXw268/JLjR7/S vBynbgw7VX/+kOblSGL3PTg40UbzcswIw6tV716neQVy36kqdgiuM+YBCng0 bmfJkzooLwpkV9bWFKRTntQKmJ6u06bnUN5MDiOrYXdleDTlEYchTvxz7ZsP ptv+AUgk9ng= "]]}, "JSONMetadata"[ "{\"effects\":[\"DropLines\",\"HighlightPoints\"],\"lineStyle\":{\"\ stroke\":\"rgb(50.00%, 50.00%, \ 50.00%)\",\"stroke-width\":0.6,\"stroke-dasharray\":\"4.,2.\"},\"linesVisible\ \":[false,false,true,true],\"highlightToPointRatio\":1.7,\"mouse\":{\"\ yAxisIndependent\":false,\"nearestPtOnly\":true}}"]], {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-2.104166666666667, 103.10416666666667`}, {-1.1110064164866345`, 1.1106567619640388`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6541923602070427`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.1"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.652540501758572*^9, 3.652540521842143*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxVk3tMU2cYxhmOpSCGy2ZAEHGADKUXoEARRJ5yvwn0QltRxqYQ5xyOCNEE F1LMxlSCxo0NxDjAYIZLRBkMRgFpugEDBATGbYKUi45CgbqBzEjGtvQ9f+wk Jye/88t7zved8zxvH/tYnGFqYmKS8e/539V4GEJM/n+A3VPYU3Olie6z0DIY 7LqZ2UVsDV+V6qte3SDxWzh1wlMXqB8jtofBLC5nvuYJ8U6kCG/bFdnMEO9G 047Ik6dvzhG7oPfvNk3x6jNiNwirU0u32OiI3bFsaX5VurRA7IGA45z49k/1 xPvQnuxwK2xoiZiNuF3tL88NLxNzsWU6fKr34gqxFwoz2TdyFxn2RnuotjN/ g2EfNJTyRhubGebDsL01X7OXYV/IAxyc7aKZ5/shsn5g4YU9835/vDqzGHKy fJFYANbod+P8KWY/AXDhKTgDE78T70fpwE9r6TefEgeitrt/2z33WeIgNH9W 0byRpyU+AMtv3dy8Ux4TB0P9NNX1TNYw8UEMeUWP/FjeRxyCI8MNmQHWGmKA a116wSr2tpGVgA9nfr9g9m6b0QtRYtnYber9s5GVQuTEb1p3pTwiHwrnY6q8 oOwR8qF4PmAIE4onyIdB6MjVf7iqJR+GCrV+U1Y8Sz4cfXXOHK7pM/LhqNk1 MdkkmCcfgdZfZnIlvAXyERizfTT1x+wi+UjsufxaYJBoiXwkDB4R3gXZy+Sj oERn8FLUCvkoqPSpb4oeEptEQ6wXWKVtMj4am8GWZcVaxsegatHlLLIYHwP+ de1a/j3m+bFochnbGVnBvD8Wo26q70Mj9OTjILBtka5UMuuPQ5aZT8knKmZ/ 8ZDft0jo+pLZfzzq1762k/HnyB9CRWdujKB8mvwhdE9d6bRomSSfAMfWreml S6PkE6C+df/y8+kB8ok4+oo/ukPUST4RTr0PHisifiCfhLyQHs0dwTXj/0cS 2Pv8eJ4jrZSHJBzo6cC2Sz1GVifhC3MdL84wRPkRYeOiX5WVbpzmRTC3WSgr Kp+ieRHUDmOOxReo72oRWBaZGtYbTL7FKDyePt0gofxDDKuu2T2qDOqHUoyY HKeJDn/qj1qMF3vNzgs0TN8l8KrZKLB/nfoHCaz+sr7r85JYKYFCurxhW059 VUvAa1SybVaZ/kpxJy1wWLJODCnO93tUDFYTK6U4UR9zRGbOzEvB5evWzzow fU9G4vue50qe0HqQjLJ1Tv+UgtarTMbGeNqYbxHtR50MTm29nKtk+i7DeiU3 ZKuAvgdkmBzsDq1qpO+llEEpcJ07yqK+q2W4xrP0d3/vN5qXw268/JLjR7/S vBynbgw7VX/+kOblSGL3PTg40UbzcswIw6tV716neQVy36kqdgiuM+YBCng0 bmfJkzooLwpkV9bWFKRTntQKmJ6u06bnUN5MDiOrYXdleDTlEYchTvxz7ZsP ptv+AUgk9ng= "]]}, "JSONMetadata"[ "{\"effects\":[\"DropLines\",\"HighlightPoints\"],\"lineStyle\":{\"\ stroke\":\"rgb(50.00%, 50.00%, \ 50.00%)\",\"stroke-width\":0.6,\"stroke-dasharray\":\"4.,2.\"},\"linesVisible\ \":[false,false,true,true],\"highlightToPointRatio\":1.7,\"mouse\":{\"\ yAxisIndependent\":false,\"nearestPtOnly\":false}}"]], {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-2.104166666666667, 103.10416666666667`}, {-1.1110064164866345`, 1.1106567619640388`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6541923621151204`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Manipulate", "Section", CellChangeTimes->{{3.641888189211363*^9, 3.641888190205399*^9}, { 3.654010155190432*^9, 3.654010156388898*^9}, 3.654193246430936*^9}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Factor", "[", RowBox[{ RowBox[{"x", "^", "n"}], "-", RowBox[{"y", "^", "n"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "20", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6543114765270033`*^9, 3.654311480809966*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"a", " ", "x"}], "+", "b"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "6"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "2", ",", "\"\\""}], "}"}], ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"a", " ", "x", " ", "y"}], "+", "a"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", "1", ",", "3"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a1", " ", RowBox[{"Sin", "[", RowBox[{"n1", " ", RowBox[{"(", RowBox[{"x", "+", "p1"}], ")"}]}], "]"}]}], ",", RowBox[{"a2", " ", RowBox[{"Cos", "[", RowBox[{"n2", " ", RowBox[{"(", RowBox[{"x", "+", "p2"}], ")"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"20", " ", "Pi"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "1"}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Dynamic", "[", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a1", " ", RowBox[{"Sin", "[", RowBox[{"n1", " ", RowBox[{"(", RowBox[{"x", "+", "p1"}], ")"}]}], "]"}]}], ",", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", " ", "Pi"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "100"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "Pi"}]}], "}"}]}], "}"}]}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "1", ",", "\"\\""}], "}"}], ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "1", ",", "\"\\""}], "}"}], ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"p1", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", RowBox[{"2", " ", "Pi"}]}], "}"}], ",", "Delimiter", ",", RowBox[{"Dynamic", "[", RowBox[{"Plot", "[", RowBox[{ RowBox[{"a2", " ", RowBox[{"Sin", "[", RowBox[{"n2", " ", RowBox[{"(", RowBox[{"x", "+", "p2"}], ")"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", " ", "Pi"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "100"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", "1"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n2", ",", RowBox[{"5", "/", "4"}], ",", "\"\\""}], "}"}], ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a2", ",", "1", ",", "\"\\""}], "}"}], ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"p2", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", RowBox[{"2", " ", "Pi"}]}], "}"}], ",", RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "]"}]], "Input", CellChangeTimes->{{3.6418918347104053`*^9, 3.641891834712235*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{"{", RowBox[{ RowBox[{"PolyhedronData", "[", "g", "]"}], ",", RowBox[{"PolyhedronData", "[", RowBox[{"g", ",", "p"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"g", ",", RowBox[{"PolyhedronData", "[", "All", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", RowBox[{"Complement", "@@", RowBox[{"PolyhedronData", "/@", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.653996338398571*^9, 3.653996338398571*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Locators", "Section", CellChangeTimes->{{3.654009380341941*^9, 3.654009381453277*^9}, { 3.654010159720417*^9, 3.654010160763929*^9}, {3.6541933398808136`*^9, 3.6541933451837516`*^9}, 3.654301796984009*^9}], Cell[BoxData[ RowBox[{"LocatorPane", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "/", "2"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Disk", "[", "]"}]}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{3.654301835168133*^9}], Cell[BoxData[ RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{"pt", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], "/", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"LocatorPane", "[", RowBox[{ RowBox[{"Dynamic", "[", "pt", "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Disk", "[", "]"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"Dynamic", "[", "pt", "]"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{"pt", "=", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"LocatorPane", "[", RowBox[{ RowBox[{"Dynamic", "[", "pt", "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Disk", "[", "]"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"Slider2D", "[", RowBox[{ RowBox[{"Dynamic", "[", "pt", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.654311752919338*^9, 3.654311760395842*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Polygon", "[", "pt", "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"pt", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], "}"}], ",", "Locator"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"A", "=", RowBox[{"(", GridBox[{ { RowBox[{"-", "1.1"}], "0.9"}, { RowBox[{"-", "1.4"}], "0.3"} }], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{ RowBox[{"MatrixExp", "[", RowBox[{ RowBox[{"A", " ", "t"}], ",", "#"}], "]"}], "&"}], "/@", "pt"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "5"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"pt", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", "Locator"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.6540016558686533`*^9, 3.654001656058303*^9}, { 3.654192902507763*^9, 3.654192902820435*^9}}, CellID->1373339119] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Sound", "Section", CellChangeTimes->{{3.654009402623365*^9, 3.65400940309344*^9}, { 3.654010162596211*^9, 3.654010163631922*^9}, {3.6541934730744047`*^9, 3.654193474274646*^9}}], Cell[BoxData[ RowBox[{"Sound", "[", RowBox[{"{", RowBox[{ RowBox[{"SoundNote", "[", "\"\\"", "]"}], ",", RowBox[{"SoundNote", "[", "\"\\"", "]"}]}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Sound", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SoundNote", "[", RowBox[{"#", ",", "1", ",", RowBox[{"RandomChoice", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "]"}]}], "]"}], "&"}], " ", "/@", " ", RowBox[{"RandomInteger", "[", RowBox[{"12", ",", " ", "30"}], "]"}]}], ",", " ", "4"}], "]"}]], "Input", CellChangeTimes->{3.654287034915681*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Deploying notebooks to the Cloud", "Section", CellChangeTimes->{{3.642143839087118*^9, 3.64214384255767*^9}}], Cell[CellGroupData[{ Cell["CloudDeploy", "Subsection", CellChangeTimes->{{3.6421444810103292`*^9, 3.642144482160472*^9}}], Cell[BoxData[ RowBox[{"manipulate", "=", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"a", " ", "x"}], "+", "b"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "6"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "2", ",", "\"\\""}], "}"}], ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.654314176009407*^9, 3.654314180088566*^9}}], Cell[BoxData[ RowBox[{"CloudDeploy", "[", "manipulate", "]"}]], "Input", CellChangeTimes->{{3.6421438462141333`*^9, 3.642143876550159*^9}, { 3.654314170031826*^9, 3.654314175092161*^9}}], Cell[BoxData[ RowBox[{"Options", "[", RowBox[{"%", ",", "Permissions"}], "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Permissions", "Subsection", CellChangeTimes->{{3.6421444907833443`*^9, 3.642144491566702*^9}}], Cell[BoxData[ RowBox[{"CloudDeploy", "[", RowBox[{"manipulate", ",", RowBox[{"Permissions", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.6421445080113897`*^9, 3.642144536129282*^9}, 3.642311081223935*^9, {3.654285020572753*^9, 3.654285028670786*^9}, { 3.654314186493332*^9, 3.654314187463049*^9}}], Cell[BoxData[ RowBox[{"Options", "[", RowBox[{"%", ",", "Permissions"}], "]"}]], "Input", CellChangeTimes->{{3.642144555684507*^9, 3.6421445587983932`*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Notebook HTML cache", "Section", CellChangeTimes->{{3.641977852779847*^9, 3.641977857515963*^9}}], Cell[CellGroupData[{ Cell["static HTML generated when editing and closing a notebook", "Item", CellChangeTimes->{{3.642024156076722*^9, 3.64202419718995*^9}, { 3.653852026932506*^9, 3.653852027768608*^9}}], Cell["\<\ when opening a notebook, static HTML is rendered while loading resources\ \>", "Item", CellChangeTimes->{{3.642024156076722*^9, 3.642024227590701*^9}, { 3.642188037467379*^9, 3.642188040839837*^9}, {3.6542854449627*^9, 3.6542854496756353`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{"CloudDeploy", "[", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"Pause", "[", "3", "]"}], ";", RowBox[{"Factor", "[", RowBox[{ RowBox[{"x", "^", "n"}], "+", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "10", ",", "100", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.642271232976544*^9, 3.642271243648787*^9}, { 3.642310843399507*^9, 3.642310844793866*^9}, 3.64231136537188*^9, { 3.653921492280096*^9, 3.6539214982168417`*^9}, 3.653921603300315*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Embedding and controlling notebooks", "Section", CellChangeTimes->{{3.642096227625966*^9, 3.6420962300693073`*^9}, { 3.654010177539472*^9, 3.654010181597004*^9}}], Cell[CellGroupData[{ Cell["embed notebooks in HTML pages", "Item", CellChangeTimes->{{3.642096239773181*^9, 3.642096253428093*^9}}], Cell["access and control the notebook from JavaScript", "Item", CellChangeTimes->{{3.642096239773181*^9, 3.642096294245261*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Hyperlink", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.6422752803861237`*^9, 3.6422752895661583`*^9}}], Cell[BoxData[ TagBox[ ButtonBox[ PaneSelectorBox[{False->"\<\"HTML source file\"\>", True-> StyleBox["\<\"HTML source file\"\>", "HyperlinkActive"]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{"Hyperlink"}, FrameMargins->0, ImageSize->Automatic], BaseStyle->"Hyperlink", ButtonData:>{"jpoeschko/NotebookAPIDemo/index.html", None}, ButtonNote->"jpoeschko/NotebookAPIDemo/index.html"], Annotation[#, "jpoeschko/NotebookAPIDemo/index.html", "Hyperlink"]& ]], "Output", CellChangeTimes->{3.64227529152592*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Hyperlink", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.642150306977447*^9, 3.6421503198883963`*^9}, { 3.642187249726838*^9, 3.642187274241686*^9}}], Cell[BoxData[ TagBox[ ButtonBox[ PaneSelectorBox[{False->"\<\"Notebook API Demo\"\>", True-> StyleBox["\<\"Notebook API Demo\"\>", "HyperlinkActive"]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{"Hyperlink"}, FrameMargins->0, ImageSize->Automatic], BaseStyle->"Hyperlink", ButtonData:>{"jpoeschko/NotebookAPIDemo/index.html?_view=file", None}, ButtonNote->"jpoeschko/NotebookAPIDemo/index.html?_view=file"], Annotation[#, "jpoeschko/NotebookAPIDemo/index.html?_view=file", "Hyperlink"]& ]], "Output", CellChangeTimes->{ 3.642150321210249*^9, {3.642187253714532*^9, 3.642187274734726*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["API methods", "Subsection", CellChangeTimes->{{3.642187321689786*^9, 3.642187322748398*^9}}], Cell[CellGroupData[{ Cell["insertCellAtCursor", "Item", CellChangeTimes->{{3.642144852089786*^9, 3.642144855628728*^9}}], Cell["setCellContent, getCellContent", "Item", CellChangeTimes->{{3.642144852089786*^9, 3.642144865504239*^9}, { 3.6421449725713453`*^9, 3.6421449732197237`*^9}}], Cell["getElements, getElementParent", "Item", CellChangeTimes->{{3.642144852089786*^9, 3.642144871754027*^9}, { 3.642144975804061*^9, 3.6421449763722973`*^9}}], Cell["openGroup, closeGroup", "Item", CellChangeTimes->{{3.642144852089786*^9, 3.64214487853306*^9}, { 3.642144978155615*^9, 3.642144978464388*^9}}], Cell["setOptions, getOption", "Item", CellChangeTimes->{{3.642144852089786*^9, 3.642144883045404*^9}, { 3.642144979859602*^9, 3.642145008129711*^9}}], Cell["getSelection, selectElements", "Item", CellChangeTimes->{{3.642144852089786*^9, 3.6421448904453573`*^9}, { 3.642144981939185*^9, 3.642144982273428*^9}}], Cell["selectSeparatorBeforeElement, selectSeparatorAfterElement", "Item", CellChangeTimes->{{3.642144852089786*^9, 3.642144902284618*^9}, { 3.642144984227005*^9, 3.642144984612709*^9}}], Cell["moveSelection, moveSelectionDirections", "Item", CellChangeTimes->{{3.642144852089786*^9, 3.642144910531794*^9}, { 3.642144993689601*^9, 3.6421449943138523`*^9}}], Cell["copyData, cutData, pasteData", "Item", CellChangeTimes->{{3.642144852089786*^9, 3.642144918169372*^9}, { 3.64214499795541*^9, 3.642144998216497*^9}}], Cell["evaluateCell, evaluateExpression", "Item", CellChangeTimes->{{3.642144852089786*^9, 3.642144926185812*^9}, { 3.642145000524445*^9, 3.642145000944434*^9}}], Cell["addEventListener, removeEventListener", "Item", CellChangeTimes->{{3.642144852089786*^9, 3.642144955978675*^9}, { 3.642145002242354*^9, 3.642145002531558*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Future directions", "Section", CellChangeTimes->{{3.6230921772882967`*^9, 3.623092184635332*^9}}], Cell[CellGroupData[{ Cell["complete box rendering support", "Item", CellChangeTimes->{{3.654285550593425*^9, 3.654285580904859*^9}}], Cell["documentation of limitations", "Item", CellChangeTimes->{{3.654285582100157*^9, 3.65428559534886*^9}}], Cell["two-dimensional box editing", "Item", CellChangeTimes->{{3.623092194569104*^9, 3.623092201086639*^9}, 3.6231036740784807`*^9, {3.6421078440178213`*^9, 3.642107844432049*^9}, { 3.6542855474524727`*^9, 3.6542855488892736`*^9}}], Cell["live collaboration on cloud notebooks", "Item", CellChangeTimes->{{3.623092194569104*^9, 3.623092214123452*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Thank you!", "Section", CellChangeTimes->{{3.642144760297216*^9, 3.6421447612601023`*^9}}], Cell["jpoeschko@wolfram.com", "Text", CellChangeTimes->{{3.654010201361133*^9, 3.654010205406695*^9}}, FontSize->24], Cell["jpacey@wolfram.com", "Text", CellChangeTimes->{{3.654010207300789*^9, 3.6540102090997667`*^9}}, FontSize->24], Cell[CellGroupData[{ Cell["Related talks", "Subsection", CellChangeTimes->{{3.654308511111598*^9, 3.654308513326293*^9}, { 3.654308637227639*^9, 3.654308637779148*^9}}], Cell[CellGroupData[{ Cell["\<\ Commanding the Wolfram Cloud (Todd Gayley): Wed 10:30 \[Dash] 11:30\ \>", "Item", CellChangeTimes->{{3.6543085602235813`*^9, 3.6543085771520576`*^9}}], Cell["Cloud Programming (Joel Klein): Wed 11:30 \[Dash] 12:00", "Item", CellChangeTimes->{{3.654308584831593*^9, 3.654308627835693*^9}}], Cell["Private Cloud (Tom Wickham-Jones): Thu 9:30 \[Dash] 10:00", "Item", CellChangeTimes->{{3.654308668265918*^9, 3.654308689634034*^9}}], Cell["\<\ Web Development in the Wolfram Language (Carlo Barbieri, Riccardo Di \ Virgilio): Thu 10:30 \[Dash] 11:00\ \>", "Item", CellChangeTimes->{{3.6543087123577013`*^9, 3.654308738736981*^9}}], Cell["\<\ Principles of Dynamic Interfaces (Lou D\[CloseCurlyQuote]Andria): Thu 2:00 \ \[Dash] 3:00\ \>", "Item", CellChangeTimes->{{3.654308515094925*^9, 3.654308538445767*^9}, { 3.654308580272749*^9, 3.654308581660502*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, ScreenStyleEnvironment->"SlideShow", WindowSize->{1600, 738}, WindowMargins->{{Automatic, -48}, {50, Automatic}}, TaggingRules->{"SlideShow" -> True}, FrontEndVersion->"10.2 for Microsoft Windows (32-bit) (July 29, 2015)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Working"]], Cell[ StyleData[All, "Presentation"], MenuSortingValue -> None], Cell[ StyleData[All, "Condensed"], MenuSortingValue -> None], Cell[ StyleData[All, "SlideShow"]]}, Closed]], Cell[ CellGroupData[{ Cell["Notebook Options Settings", "Section"], Cell[ StyleData["Notebook"], CellBracketOptions -> { "Color" -> RGBColor[0.739193, 0.750317, 0.747173]}]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Title and Section Cells", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], ShowCellBracket -> Automatic, ShowGroupOpener -> False, CellMargins -> {{100, 100}, {14, 50}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, CellFrameMargins -> {{20, 20}, {20, 20}}, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, TextAlignment -> Center, LineSpacing -> {1, 0}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Arial", FontSize -> 45, FontWeight -> "Bold", FontSlant -> "Plain", FontTracking -> "Plain", FontVariations -> { "Masked" -> False, "Outline" -> False, "Shadow" -> False, "StrikeThrough" -> False, "Underline" -> False}, FontColor -> RGBColor[ 0.8156862745098039, 0.07058823529411765, 0.07058823529411765], Background -> None], Cell[ StyleData["Title", "Presentation", StyleDefinitions -> None], CellMargins -> {{55, 3}, {14, 125}}, LineSpacing -> {1, 5}, FontSize -> 48], Cell[ StyleData[ "Title", "SlideShow", StyleDefinitions -> StyleData["Title", "Presentation"]], CellMargins -> {{100, 100}, {52, 105}}], Cell[ StyleData["Title", "Printout", StyleDefinitions -> None], CellMargins -> {{2, 0}, {0, 20}}, FontSize -> 24]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], ShowCellBracket -> Automatic, CellMargins -> {{0, 0}, {0, 5}}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, TextAlignment -> Center, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Arial", FontSize -> 27, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[0.4, 0.4, 0.4], Background -> None], Cell[ StyleData["Subtitle", "Presentation", StyleDefinitions -> None], CellMargins -> {{58, 0}, {0, 5}}, FontSize -> 36], Cell[ StyleData[ "Subtitle", "SlideShow", StyleDefinitions -> StyleData["Subtitle"]], CellMargins -> {{0, 0}, {0, 5}}, FontSize -> 27], Cell[ StyleData["Subtitle", "Printout", StyleDefinitions -> None], CellMargins -> {{2, 0}, {0, 5}}, FontSize -> 18, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle", StyleDefinitions -> StyleData["Subtitle"]], CellMargins -> {{0, 0}, {30, 5}}, FontSize -> 24, FontSlant -> "Plain", FontColor -> RGBColor[0.4, 0.4, 0.4]], Cell[ StyleData["Subsubtitle", "Presentation"], FontSize -> 24], Cell[ StyleData[ "Subsubtitle", "SlideShow", StyleDefinitions -> StyleData["Subsubtitle"]], CellMargins -> {{0, 0}, {10, 5}}], Cell[ StyleData["Subsubtitle", "Printout"], FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellFrame -> {{0, 0}, {0.2, 0}}, ShowGroupOpener -> False, CellMargins -> {{60, 50}, {7, 25}}, FontSize -> 36, FontWeight -> "Plain", FontColor -> RGBColor[ 0.8156862745098039, 0.07058823529411765, 0.07058823529411765]], Cell[ StyleData["Section", "Presentation"], CellFrame -> {{0, 0}, {0.2, 0}}, CellMargins -> {{58, 50}, {7, 35}}], Cell[ StyleData[ "Section", "SlideShow", StyleDefinitions -> StyleData["Section", "Presentation"]], CellMargins -> {{58, 50}, {10, 35}}], Cell[ StyleData["Section", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {4, 22}}, FontSize -> 20]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellDingbat -> None, ShowGroupOpener -> False, CellMargins -> {{60, Inherited}, {0, 15}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 24, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[0.4, 0.4, 0.4]], Cell[ StyleData["Subsection", "Presentation"], ShowGroupOpener -> True, CellMargins -> {{60, 50}, {0, 20}}, LineSpacing -> {1, 0}, FontFamily -> "Helvetica", $CellContext`WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", "SlideShow"], ShowGroupOpener -> True, CellMargins -> {{60, 50}, {8, 12}}, LineSpacing -> {1, 0}, FontFamily -> "Helvetica", $CellContext`WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {0, 17}}, FontSize -> 16]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellDingbat -> None, ShowGroupOpener -> False, CellMargins -> {{60, Inherited}, {0, 15}}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsection", FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[0.4, 0.4, 0.4]], Cell[ StyleData["Subsubsection", "Presentation"], ShowGroupOpener -> True, CellMargins -> {{60, 50}, {0, 20}}, LineSpacing -> {1, 0}, $CellContext`WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", "SlideShow", StyleDefinitions -> StyleData["Subsubsection", "Presentation"]]], Cell[ StyleData["Subsubsection", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {0, 22}}, FontSize -> 14]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[ CellGroupData[{ Cell["Standard", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{60, 10}, {7, 7}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 3}, CounterIncrements -> "Text", FontFamily -> "Helvetica", FontSize -> 12], Cell[ StyleData["Text", "Presentation"], CellMargins -> {{60, 50}, {10, 10}}, FontSize -> 17], Cell[ StyleData[ "Text", "SlideShow", StyleDefinitions -> StyleData["Text", "Presentation"]]], Cell[ StyleData["Text", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 10]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell["Display", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Item", StyleDefinitions -> StyleData["Text"]], CellDingbat -> Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], ShowGroupOpener -> False, CellMargins -> {{84, 10}, {7, 7}}, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, CounterIncrements -> "Item", $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["Item", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "Item", "SlideShow", StyleDefinitions -> StyleData["Item", "Presentation"]]], Cell[ StyleData["Item", "Printout"], CellMargins -> {{39, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subitem", StyleDefinitions -> StyleData["Item"]], CellMargins -> {{108, 10}, {7, 7}}, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15150}, CounterIncrements -> "Subitem", $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["Subitem", "Presentation"], CellMargins -> {{146, 10}, {7, 7}}], Cell[ StyleData[ "Subitem", "SlideShow", StyleDefinitions -> StyleData["Subitem", "Presentation"]]], Cell[ StyleData["Subitem", "Printout"], CellMargins -> {{67, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemNumbered", StyleDefinitions -> StyleData["Text"]], CellDingbat -> Cell[ TextData[{ CounterBox["ItemNumbered"], "."}]], ShowGroupOpener -> False, CellMargins -> {{84, 10}, {7, 7}}, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, CounterIncrements -> "ItemNumbered", $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["ItemNumbered", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "ItemNumbered", "SlideShow", StyleDefinitions -> StyleData["ItemNumbered", "Presentation"]]], Cell[ StyleData["ItemNumbered", "Printout"], CellMargins -> {{39, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "SubitemNumbered", StyleDefinitions -> StyleData["ItemNumbered"]], CellDingbat -> Cell[ TextData[{ CounterBox["SubitemNumbered", CounterFunction :> (Part[ CharacterRange["a", "z"], #]& )], "."}]], CellMargins -> {{108, 10}, {7, 7}}, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15150}, CounterIncrements -> "SubitemNumbered", $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["SubitemNumbered", "Presentation"], CellMargins -> {{146, 10}, {7, 7}}], Cell[ StyleData[ "SubitemNumbered", "SlideShow", StyleDefinitions -> StyleData["SubitemNumbered", "Presentation"]]], Cell[ StyleData["SubitemNumbered", "Printout"], CellMargins -> {{67, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "ItemParagraph", StyleDefinitions -> StyleData["Item"]], CellDingbat -> None, CellMargins -> {{84, 10}, {7, 7}}, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15100}, CounterIncrements -> "ItemParagraph", $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["ItemParagraph", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "ItemParagraph", "SlideShow", StyleDefinitions -> StyleData["ItemParagraph", "Presentation"]]], Cell[ StyleData["ItemParagraph", "Printout"], CellMargins -> {{39, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "SubitemParagraph", StyleDefinitions -> StyleData["Subitem"]], CellDingbat -> None, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15200}, CounterIncrements -> "SubitemParagraph", $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["SubitemParagraph", "Presentation"]], Cell[ StyleData[ "SubitemParagraph", "SlideShow", StyleDefinitions -> StyleData["SubitemParagraph", "Presentation"]]], Cell[ StyleData["SubitemParagraph", "Printout"]]}, Closed]]}, Open]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"]], Cell[ StyleData["DisplayFormula", "Presentation"], CellMargins -> {{60, Inherited}, {1.5 Inherited, 1.5 Inherited}}, FontSize -> 17], Cell[ StyleData[ "DisplayFormula", "SlideShow", StyleDefinitions -> StyleData["DisplayFormula", "Presentation"]]], Cell[ StyleData["DisplayFormula", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "DisplayFormulaNumbered", StyleDefinitions -> StyleData["DisplayFormula"]], CellFrameLabels -> {{None, Cell[ TextData[{"(", CounterBox["DisplayFormulaNumbered"], ")"}]]}, {None, None}}, CounterIncrements -> "DisplayFormulaNumbered"], Cell[ StyleData["DisplayFormulaNumbered", "Presentation"], CellMargins -> {{60, Inherited}, {1.5 Inherited, 1.5 Inherited}}, FontSize -> 17], Cell[ StyleData[ "DisplayFormulaNumbered", "SlideShow", StyleDefinitions -> StyleData["DisplayFormulaNumbered", "Presentation"]]], Cell[ StyleData["DisplayFormulaNumbered", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Inline Formatting", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"]], Cell[ StyleData["InlineFormula", "Presentation"], FontSize -> 17], Cell[ StyleData[ "InlineFormula", "SlideShow", StyleDefinitions -> StyleData["InlineFormula", "Presentation"]]], Cell[ StyleData["InlineFormula", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Input and Output Cells", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], ShowCellBracket -> True, ShowGroupOpener -> False, CellMargins -> {{103, 10}, {5, 7}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Bold"], Cell[ StyleData["Input", "Presentation"], CellMargins -> {{110, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Input", "SlideShow", StyleDefinitions -> StyleData["Input", "Presentation"]]], Cell[ StyleData["Input", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InputOnly"], ShowCellBracket -> True, ShowGroupOpener -> False, CellMargins -> {{103, 10}, {7, 7}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", MenuSortingValue -> 1550, FontWeight -> "Bold"], Cell[ StyleData["InputOnly", "Presentation"], CellMargins -> {{110, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "InputOnly", "SlideShow", StyleDefinitions -> StyleData["InputOnly", "Presentation"]]], Cell[ StyleData["InputOnly", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], ShowCellBracket -> True, CellMargins -> {{103, 10}, {7, 5}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Output"], Cell[ StyleData["Output", "Presentation"], CellMargins -> {{110, 50}, {10, 8}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Output", "SlideShow", StyleDefinitions -> StyleData["Output", "Presentation"]]], Cell[ StyleData["Output", "Printout"], CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Code"], CellMargins -> {{103, 10}, {5, 10}}], Cell[ StyleData["Code", "Presentation"], CellMargins -> {{110, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Code", "SlideShow", StyleDefinitions -> StyleData["Code", "Presentation"]]], Cell[ StyleData["Code", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{103, Inherited}, {Inherited, Inherited}}, FontSize -> 14], Cell[ StyleData["Print", "Presentation"], CellMargins -> {{70, Inherited}, {1.5 Inherited, 1.5 Inherited}}, FontSize -> 17, Magnification -> 1.5 Inherited], Cell[ StyleData[ "Print", "SlideShow", StyleDefinitions -> StyleData["Print", "Presentation"]]], Cell[ StyleData["Print", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "WolframAlphaShortInput", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{98, 10}, {5, 7}}, EvaluationMode -> "WolframAlphaShort", CellEventActions -> {"ReturnKeyDown" :> FrontEndTokenExecute[ EvaluationNotebook[], "HandleShiftReturn"]}, CellFrameLabels -> {{ Cell[ BoxData[ DynamicBox[ FEPrivate`FrontEndResource["WABitmaps", "Equal"]]], CellBaseline -> Baseline], None}, {None, None}}, FormatType -> TextForm, FontFamily -> "Helvetica"], Cell[ StyleData["WolframAlphaShortInput", "Presentation"], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData[ "WolframAlphaShortInput", "SlideShow", StyleDefinitions -> StyleData["WolframAlphaShortInput", "Presentation"]]], Cell[ StyleData["WolframAlphaShortInput", "Printout"], CellFrameLabelMargins -> 3]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "WolframAlphaLong", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{100, 10}, {5, 7}}, StyleKeyMapping -> { "=" -> "Input", "Backspace" -> "WolframAlphaShort"}, EvaluationMode -> "WolframAlphaLong", CellEventActions -> {"ReturnKeyDown" :> FrontEndTokenExecute[ EvaluationNotebook[], "HandleShiftReturn"]}, CellFrameLabels -> {{ Cell[ BoxData[ DynamicBox[ FEPrivate`FrontEndResource["WABitmaps", "SpikeyEqual"]]]], None}, {None, None}}, DefaultFormatType -> TextForm, FormatType -> TextForm, FontFamily -> "Helvetica"], Cell[ StyleData["WolframAlphaLong", "Presentation"], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData[ "WolframAlphaLong", "SlideShow", StyleDefinitions -> StyleData["WolframAlphaLong", "Presentation"]], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData["WolframAlphaLong", "Printout"], CellFrameLabelMargins -> 3]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellMargins -> {{60, 4}, {6, 8}}], Cell[ StyleData["Program", "Presentation"], CellMargins -> {{60, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Program", "SlideShow", StyleDefinitions -> StyleData["Program", "Presentation"]]], Cell[ StyleData["Program", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"]], Cell[ StyleData["CellLabel", "Presentation"], FontSize -> 12], Cell[ StyleData[ "CellLabel", "SlideShow", StyleDefinitions -> StyleData["CellLabel", "Presentation"]]], Cell[ StyleData["CellLabel", "Printout"], FontSize -> 8, FontColor -> GrayLevel[0.]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ManipulateLabel"]], Cell[ StyleData["ManipulateLabel", "Presentation"], FontSize -> 15], Cell[ StyleData[ "ManipulateLabel", "SlideShow", StyleDefinitions -> StyleData["ManipulateLabel", "Presentation"]]], Cell[ StyleData["ManipulateLabel", "Printout"], FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GraphicsLabel"]], Cell[ StyleData["GraphicsLabel", "Presentation"], FontSize -> 14], Cell[ StyleData[ "GraphicsLabel", "SlideShow", StyleDefinitions -> StyleData["GraphicsLabel", "Presentation"]]], Cell[ StyleData["GraphicsLabel", "Printout"], FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics3DLabel"]], Cell[ StyleData["Graphics3DLabel", "Presentation"], FontSize -> 14], Cell[ StyleData[ "Graphics3DLabel", "SlideShow", StyleDefinitions -> StyleData["Graphics3DLabel", "Presentation"]]], Cell[ StyleData["Graphics3DLabel", "Printout"], FontSize -> 8]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell[ "Styles for SlideShow", "Section", CellChangeTimes -> {{3.514665148412793*^9, 3.5146651505550737`*^9}}], Cell[ StyleData["slideshowheader"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, -2}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, CellFrameMargins -> 0, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1], $CellContext`CellPadding -> 0, $CellContext`CellFramePadding -> 0], Cell[ CellGroupData[{ Cell[ StyleData["hidefromslideshowgraphic"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, CellFrameMargins -> 0, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> None, $CellContext`CellPadding -> 0], Cell[ StyleData["hidefromslideshowgraphic", "SlideShow"], ShowCellBracket -> False, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False, CellHorizontalScrolling -> False], Cell[ StyleData["hidefromslideshowgraphic", "Printout"], Magnification -> 0.6]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["slideshowheader2"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1]], Cell[ StyleData["ConferenceGraphicCell", "SlideShow"], ShowCellBracket -> False, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False, CellHorizontalScrolling -> True], Cell[ StyleData["slideshowheader", "Printout"], FontSize -> 8, Magnification -> 0.75]}, Closed]], Cell[ StyleData[ "ConferenceGraphicCellSlideShowOnly", StyleDefinitions -> StyleData["ConferenceCellGraphic"]], ShowCellBracket -> False, CellMargins -> 0, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False], Cell[ CellGroupData[{ Cell[ StyleData["SlideShowNavigationBar"], Editable -> True, Selectable -> False, CellFrame -> 0, ShowGroupOpener -> False, CellMargins -> {{0, 0}, {3, 3}}, CellOpen -> True, CellFrameMargins -> 0, CellFrameColor -> None, Background -> None], Cell[ StyleData["SlideShowNavigationBar", "Printout"], PageBreakAbove -> Automatic]}, Closed]]}, Closed]], Cell["Styles for Slide Show Environment Documents", "Section", CellChangeTimes -> {{3.559592561220532*^9, 3.559592575768806*^9}, 3.559652073182283*^9}]}, Visible -> False, FrontEndVersion -> "10.2 for Microsoft Windows (32-bit) (July 29, 2015)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[580, 22, 78, 1, 5, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[6059, 131, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[7034, 163, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[10314, 275, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[14388, 409, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[18035, 523, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[23441, 657, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[39722, 1034, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[45302, 1210, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[49537, 1357, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[50535, 1393, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[52579, 1462, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[53875, 1504, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[58197, 1633, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[59064, 1662, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 96215, 2519} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 78, 1, 5, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[661, 25, 407, 5, 213, "Title"], Cell[1071, 32, 786, 12, 70, "Subtitle"], Cell[1860, 46, 4162, 80, 384, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[6059, 131, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[6148, 136, 291, 4, 70, "Section"], Cell[6442, 142, 282, 8, 70, "Input"], Cell[6727, 152, 258, 5, 70, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7034, 163, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[7123, 168, 194, 3, 70, "Section"], Cell[7320, 173, 1483, 46, 70, "Input"], Cell[8806, 221, 302, 9, 70, "Input"], Cell[9111, 232, 560, 17, 70, "Input"], Cell[9674, 251, 591, 18, 70, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10314, 275, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[10403, 280, 170, 2, 70, "Section"], Cell[10576, 284, 1778, 53, 70, "Input"], Cell[12357, 339, 694, 22, 70, "Input"], Cell[13054, 363, 463, 13, 70, "Input"], Cell[13520, 378, 122, 2, 70, "Input"], Cell[13645, 382, 694, 21, 70, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14388, 409, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[14477, 414, 92, 1, 70, "Section"], Cell[14572, 417, 154, 3, 70, "Input"], Cell[14729, 422, 200, 4, 70, "Input"], Cell[14932, 428, 342, 7, 70, "Input"], Cell[15277, 437, 117, 2, 70, "Input"], Cell[15397, 441, 164, 3, 70, "Input"], Cell[CellGroupData[{ Cell[15586, 448, 185, 2, 70, "Subsection"], Cell[15774, 452, 247, 6, 70, "Input"], Cell[16024, 460, 125, 2, 70, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[16186, 467, 103, 1, 70, "Subsection"], Cell[16292, 470, 798, 21, 70, "Input"], Cell[17093, 493, 881, 23, 70, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18035, 523, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[18124, 528, 185, 2, 70, "Section"], Cell[18312, 532, 4777, 109, 70, "Input"], Cell[23092, 643, 300, 8, 70, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23441, 657, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[23530, 662, 255, 3, 70, "Section"], Cell[CellGroupData[{ Cell[23810, 669, 1021, 24, 70, "Input"], Cell[24834, 695, 3227, 66, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28098, 766, 759, 19, 70, "Input"], Cell[28860, 787, 3233, 67, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32130, 859, 699, 17, 70, "Input"], Cell[32832, 878, 3248, 67, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36117, 950, 292, 8, 70, "Input"], Cell[36412, 960, 3249, 67, 70, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39722, 1034, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[39811, 1039, 167, 2, 70, "Section"], Cell[39981, 1043, 335, 9, 70, "Input"], Cell[40319, 1054, 600, 19, 70, "Input"], Cell[40922, 1075, 438, 13, 70, "Input"], Cell[41363, 1090, 3208, 93, 70, "Input"], Cell[44574, 1185, 679, 19, 70, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45302, 1210, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[45391, 1215, 219, 3, 70, "Section"], Cell[45613, 1220, 324, 10, 70, "Input"], Cell[45940, 1232, 846, 27, 70, "Input"], Cell[46789, 1261, 741, 23, 70, "Input"], Cell[47533, 1286, 758, 24, 70, "Input"], Cell[48294, 1312, 1194, 39, 70, "Input", CellID->1373339119] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49537, 1357, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[49626, 1362, 189, 3, 70, "Section"], Cell[49818, 1367, 197, 5, 70, "Input"], Cell[50018, 1374, 468, 13, 70, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[50535, 1393, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[50624, 1398, 116, 1, 70, "Section"], Cell[CellGroupData[{ Cell[50765, 1403, 101, 1, 70, "Subsection"], Cell[50869, 1406, 716, 21, 70, "Input"], Cell[51588, 1429, 190, 3, 70, "Input"], Cell[51781, 1434, 93, 2, 70, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[51911, 1441, 101, 1, 70, "Subsection"], Cell[52015, 1444, 339, 6, 70, "Input"], Cell[52357, 1452, 161, 3, 70, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[52579, 1462, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[52668, 1467, 104, 1, 70, "Section"], Cell[CellGroupData[{ Cell[52797, 1472, 187, 2, 70, "Item"], Cell[52987, 1476, 260, 5, 70, "Item"] }, Open ]], Cell[53262, 1484, 564, 14, 70, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[53875, 1504, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[53964, 1509, 171, 2, 70, "Section"], Cell[CellGroupData[{ Cell[54160, 1515, 111, 1, 70, "Item"], Cell[54274, 1518, 129, 1, 70, "Item"] }, Open ]], Cell[CellGroupData[{ Cell[54440, 1524, 228, 5, 70, "Input"], Cell[54671, 1531, 554, 14, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55262, 1550, 290, 7, 70, "Input"], Cell[55555, 1559, 639, 15, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56231, 1579, 99, 1, 70, "Subsection"], Cell[CellGroupData[{ Cell[56355, 1584, 100, 1, 70, "Item"], Cell[56458, 1587, 165, 2, 70, "Item"], Cell[56626, 1591, 162, 2, 70, "Item"], Cell[56791, 1595, 151, 2, 70, "Item"], Cell[56945, 1599, 152, 2, 70, "Item"], Cell[57100, 1603, 161, 2, 70, "Item"], Cell[57264, 1607, 188, 2, 70, "Item"], Cell[57455, 1611, 171, 2, 70, "Item"], Cell[57629, 1615, 158, 2, 70, "Item"], Cell[57790, 1619, 163, 2, 70, "Item"], Cell[57956, 1623, 168, 2, 70, "Item"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[58197, 1633, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[58286, 1638, 104, 1, 70, "Section"], Cell[CellGroupData[{ Cell[58415, 1643, 112, 1, 70, "Item"], Cell[58530, 1646, 109, 1, 70, "Item"], Cell[58642, 1649, 239, 3, 70, "Item"], Cell[58884, 1654, 119, 1, 70, "Item"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[59064, 1662, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[59153, 1667, 97, 1, 70, "Section"], Cell[59253, 1670, 118, 2, 70, "Text"], Cell[59374, 1674, 117, 2, 70, "Text"], Cell[CellGroupData[{ Cell[59516, 1680, 150, 2, 70, "Subsection"], Cell[CellGroupData[{ Cell[59691, 1686, 161, 3, 70, "Item"], Cell[59855, 1691, 137, 1, 70, "Item"], Cell[59995, 1694, 139, 1, 70, "Item"], Cell[60137, 1697, 197, 4, 70, "Item"], Cell[60337, 1703, 228, 5, 70, "Item"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)