(* 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[ 106278, 2396] NotebookOptionsPosition[ 48867, 1191] NotebookOutlinePosition[ 104679, 2340] CellTagsIndexPosition[ 104599, 2335] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", "FirstSlide", CellTags->"SlideShowHeader"], Cell["Test Your Students, Not Your Patience", "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.646134517779327*^9, 3.646134524317194*^9}}], Cell[TextData[{ "Maik Meusel & Carlos Chida\n", StyleBox["University of Zurich", FontSlant->"Italic"] }], "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.646134658662016*^9, 3.646134726971323*^9}}], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{3.646158080565872*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CellPrint", "[", RowBox[{"TextCell", "[", RowBox[{ RowBox[{"Framed", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\< Abstract\>\"", ",", "Italic", ",", "22", ",", "LightGray", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", "\"\<\>\"", ",", RowBox[{"Style", "[", RowBox[{ "\"\< In this hands-on presentation we show how the Wolfram \ Language can be used to create computer based exams for higher education, and \ how they are distributed to students using the Wolfram Cloud. By means of \ individualization, randomization, and automated grading our assessment \ solution has various advantages compared to traditional paper and pencil \ exams: Not only that testing becomes much more efficient, the quality, \ accuracy, and fairness of exams is improved as well.\>\"", ",", "18", ",", "LightGray", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", "\"\<\>\"", ",", RowBox[{"Style", "[", RowBox[{ "\"\< Despite of sharing our experience with a first use case \ we want to discuss the potential of using Wolfram Technologies for assessment \ processes at universities. \>\"", ",", "18", ",", "LightGray", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", "\"\<\>\"", ",", RowBox[{"Style", "[", RowBox[{ "\"\< Keywords: Higher Education, Wolfram Cloud\>\"", ",", "18", ",", "Black", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}], ",", RowBox[{"FrameMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "20"}], "}"}]}], "}"}]}]}], "]"}], ",", "\"\\"", ",", RowBox[{"CellMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"100", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.646158101622512*^9, 3.646158140948241*^9}, { 3.6461581768850727`*^9, 3.646158236841784*^9}}], Cell[BoxData[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\" Abstract\"\>", StripOnInput->False, LineColor->GrayLevel[0.85], FrontFaceColor->GrayLevel[0.85], BackFaceColor->GrayLevel[0.85], GraphicsColor->GrayLevel[0.85], FontFamily->"Helvetica Neue", FontSize->22, FontSlant->Italic, FontColor->GrayLevel[0.85]]}, {"\<\"\"\>"}, { StyleBox["\<\" In this hands-on presentation we show how the \ Wolfram Language can be used to create computer based exams for higher \ education, and how they are distributed to students using the Wolfram Cloud. \ By means of individualization, randomization, and automated grading our \ assessment solution has various advantages compared to traditional paper and \ pencil exams: Not only that testing becomes much more efficient, the quality, \ accuracy, and fairness of exams is improved as well.\"\>", StripOnInput->False, LineColor->GrayLevel[0.85], FrontFaceColor->GrayLevel[0.85], BackFaceColor->GrayLevel[0.85], GraphicsColor->GrayLevel[0.85], FontFamily->"Helvetica Light", FontSize->18, FontColor->GrayLevel[0.85]]}, {"\<\"\"\>"}, { StyleBox["\<\" Despite of sharing our experience with a first use \ case we want to discuss the potential of using Wolfram Technologies for \ assessment processes at universities. \"\>", StripOnInput->False, LineColor->GrayLevel[0.85], FrontFaceColor->GrayLevel[0.85], BackFaceColor->GrayLevel[0.85], GraphicsColor->GrayLevel[0.85], FontFamily->"Helvetica Light", FontSize->18, FontColor->GrayLevel[0.85]]}, {"\<\"\"\>"}, { StyleBox["\<\" Keywords: Higher Education, Wolfram Cloud\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontFamily->"Helvetica Light", FontSize->18, FontColor->GrayLevel[0]]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], FrameMargins->{{10, 40}, {30, 20}}, StripOnInput->False]], "Output", CellMargins->{{100, 30}, {20, 10}}, CellChangeTimes->{3.64615823765697*^9}] }, Open ]], Cell[TextData[{ Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[{}, ContentSelectable->True, ImageSize->{480, 360}, PlotRange->{{0, 480/360}, {0, 1}}], Scaled[{0, 0}], Center, Scaled[{0.5, 0.5}]], InsetBox[ 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}}], Scaled[{0.49333580155497714`, 0.5717682253254397}], Center, {1.1979558513699555`, 0.9210339753942228}, {{1., 0.}, {0., 1.}}]}, AspectRatio->1.0295620437956206`, ContentSelectable->True, ImageMargins->0., ImagePadding->{{0., 0.}, {0., 0.}}, ImageSize->{74., 77.5}, PlotRange->{{0., 1.3333333333333335`}, {0., 1.}}, PlotRangePadding->Automatic]]], StyleBox[" ", FontColor->RGBColor[ 0.5019607843137255, 0.5019607843137255, 0.5019607843137255]], StyleBox["Join the Conversation ", FontColor->RGBColor[ 0.9019607843137255, 0.9019607843137255, 0.9019607843137255]], "#WolframTechConf" }], "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}}, TextAlignment->Center, FontFamily->"Arial", FontSize->24, FontColor->GrayLevel[1]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ "Automated Testing & Grading with ", StyleBox["Mathematica", FontSlant->"Italic"] }], "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.64615733681431*^9, 3.646157338452114*^9}, {3.6461575863014812`*^9, 3.646157587967581*^9}, {3.654434234984647*^9, 3.654434252734538*^9}}], Cell[TextData[{ StyleBox["_", FontColor->RGBColor[ 0.7245899137865263, 0.02357518883039597, 0.04516670481422141]], "Let students code or use tools to solve problems in the exams & tests \n", StyleBox["_", FontColor->RGBColor[ 0.7245899137865263, 0.02357518883039597, 0.04516670481422141]], "Prevent cheating by randomization & individualization of questions\n", StyleBox["_", FontColor->RGBColor[ 0.7245899137865263, 0.02357518883039597, 0.04516670481422141]], "Identification & security: email and matriculation number authentication\n", StyleBox["_", FontColor->RGBColor[ 0.7245899137865263, 0.02357518883039597, 0.04516670481422141]], "Automatic grading & reporting\n", StyleBox["_", FontColor->RGBColor[ 0.7245899137865263, 0.02357518883039597, 0.04516670481422141]], "Give them individual feedback and let them compare to their peers\n" }], "Text", CellChangeTimes->{{3.641808319157298*^9, 3.6418084463379793`*^9}, { 3.6418084904697227`*^9, 3.641808500116037*^9}, {3.641808551434005*^9, 3.6418085720574017`*^9}, {3.641808880047286*^9, 3.641808892589363*^9}, { 3.6418097330517063`*^9, 3.641809741541616*^9}, 3.641810092466178*^9, { 3.641816356368182*^9, 3.641816360279839*^9}, {3.654434836132106*^9, 3.654434846958705*^9}, {3.654448110742024*^9, 3.65444811611868*^9}, { 3.6544481887550097`*^9, 3.654448245306699*^9}, {3.6544482872778378`*^9, 3.654448291674757*^9}, {3.6544483237056847`*^9, 3.6544483408404493`*^9}, { 3.6544483978236437`*^9, 3.6544484222253857`*^9}, {3.654448544159807*^9, 3.654448544758134*^9}, {3.654448929704323*^9, 3.6544489730567417`*^9}, { 3.6544503065032*^9, 3.6544503162733183`*^9}, {3.654450360275062*^9, 3.6544504330063467`*^9}, {3.6544506331737022`*^9, 3.654450635882146*^9}, { 3.654450719183424*^9, 3.654450785636187*^9}, {3.654504091080123*^9, 3.654504091550864*^9}}, TextAlignment->AlignmentMarker, FontSize->24], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CellPrint", "@", RowBox[{"ExpressionCell", "[", RowBox[{ RowBox[{"Row", "@", RowBox[{"{", RowBox[{ RowBox[{"Button", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<2013 EXAM\>\"", ",", RowBox[{"FontSize", "\[Rule]", "25"}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"GrayLevel", "[", "1", "]"}]}]}], "]"}], ",", RowBox[{ "SystemOpen", "[", "\"\\"", "]"}], ",", RowBox[{"Appearance", "\[Rule]", "None"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"RGBColor", "[", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"37", ",", "51"}], "]"}], ",", RowBox[{"Rational", "[", RowBox[{"2", ",", "85"}], "]"}], ",", RowBox[{"Rational", "[", RowBox[{"4", ",", "85"}], "]"}]}], "}"}], "]"}]}], ",", RowBox[{"Evaluator", "\[Rule]", "Automatic"}], ",", RowBox[{"FrameMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "12"}], "}"}]}], "}"}]}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}], ",", "\"\< \>\"", ",", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<2013 EXAM REPORT\>\"", ",", RowBox[{"FontSize", "\[Rule]", "25"}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"GrayLevel", "[", "1", "]"}]}]}], "]"}], ",", RowBox[{ "SystemOpen", "[", "\"\\"", "]"}], ",", RowBox[{"Appearance", "\[Rule]", "None"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"RGBColor", "[", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"37", ",", "51"}], "]"}], ",", RowBox[{"Rational", "[", RowBox[{"2", ",", "85"}], "]"}], ",", RowBox[{"Rational", "[", RowBox[{"4", ",", "85"}], "]"}]}], "}"}], "]"}]}], ",", RowBox[{"Evaluator", "\[Rule]", "Automatic"}], ",", RowBox[{"FrameMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "12"}], "}"}]}], "}"}]}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}], ",", "\"\<\\n\>\"", ",", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<2015 ASSIGNMENT\>\"", ",", RowBox[{"FontSize", "\[Rule]", "25"}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"GrayLevel", "[", "1", "]"}]}]}], "]"}], ",", RowBox[{ "SystemOpen", "[", "\"\\"", "]"}], ",", RowBox[{"Appearance", "\[Rule]", "None"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"RGBColor", "[", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"37", ",", "51"}], "]"}], ",", RowBox[{"Rational", "[", RowBox[{"2", ",", "85"}], "]"}], ",", RowBox[{"Rational", "[", RowBox[{"4", ",", "85"}], "]"}]}], "}"}], "]"}]}], ",", RowBox[{"Evaluator", "\[Rule]", "Automatic"}], ",", RowBox[{"FrameMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "12"}], "}"}]}], "}"}]}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}], ",", "\"\< \>\"", ",", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<2015 ASSIGNMENT REPORT\>\"", ",", RowBox[{"FontSize", "\[Rule]", "25"}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"GrayLevel", "[", "1", "]"}]}]}], "]"}], ",", RowBox[{ "SystemOpen", "[", "\"\\"\ ", "]"}], ",", RowBox[{"Appearance", "\[Rule]", "None"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"RGBColor", "[", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"37", ",", "51"}], "]"}], ",", RowBox[{"Rational", "[", RowBox[{"2", ",", "85"}], "]"}], ",", RowBox[{"Rational", "[", RowBox[{"4", ",", "85"}], "]"}]}], "}"}], "]"}]}], ",", RowBox[{"Evaluator", "\[Rule]", "Automatic"}], ",", RowBox[{"FrameMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "12"}], "}"}]}], "}"}]}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}], ",", "\"\<\\n\>\""}], "\[IndentingNewLine]", "}"}]}], ",", "\"\\"", ",", RowBox[{"CellMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"60", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "10"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.65443462964835*^9, 3.654434667474956*^9}, { 3.6544347021402073`*^9, 3.6544347454131527`*^9}, {3.6544351787644777`*^9, 3.6544352133982763`*^9}, {3.654435274463859*^9, 3.6544353404303102`*^9}, { 3.654446238882913*^9, 3.654446255289706*^9}, {3.654446337392768*^9, 3.6544464026027946`*^9}, 3.654446442412805*^9, {3.654447593612118*^9, 3.65444759475569*^9}, {3.654447741387948*^9, 3.654447753726083*^9}, { 3.654447936790504*^9, 3.654447946991034*^9}, {3.6544486670559483`*^9, 3.654448667425378*^9}}], Cell[BoxData[ TemplateBox[{ButtonBox[ StyleBox[ "\"2013 EXAM\"", FontSize -> 25, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> SystemOpen["Desktop/WTC2015_Materials/EM2013FE.Miftakhova_Alena.nb"], Appearance -> None, Background -> RGBColor[{ Rational[37, 51], Rational[2, 85], Rational[4, 85]}], Evaluator -> Automatic, FrameMargins -> {{17, 17}, {12, 12}}, Method -> "Preemptive"],"\" \"", ButtonBox[ StyleBox[ "\"2013 EXAM REPORT\"", FontSize -> 25, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> SystemOpen["Desktop/WTC2015_Materials/EM2013_FinalGrades.nb"], Appearance -> None, Background -> RGBColor[{ Rational[37, 51], Rational[2, 85], Rational[4, 85]}], Evaluator -> Automatic, FrameMargins -> {{17, 17}, {12, 12}}, Method -> "Preemptive"],"\"\\n\"", ButtonBox[ StyleBox[ "\"2015 ASSIGNMENT\"", FontSize -> 25, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> SystemOpen["Desktop/WTC2015_Materials/EMBA3015_A3_Group20.nb"], Appearance -> None, Background -> RGBColor[{ Rational[37, 51], Rational[2, 85], Rational[4, 85]}], Evaluator -> Automatic, FrameMargins -> {{17, 17}, {12, 12}}, Method -> "Preemptive"],"\" \"", ButtonBox[ StyleBox[ "\"2015 ASSIGNMENT REPORT\"", FontSize -> 25, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> SystemOpen["Desktop/WTC2015_Materials/EMBA2015_ReportA.2_JonasIten.pdf"], Appearance -> None, Background -> RGBColor[{ Rational[37, 51], Rational[2, 85], Rational[4, 85]}], Evaluator -> Automatic, FrameMargins -> {{17, 17}, {12, 12}}, Method -> "Preemptive"],"\"\\n\""}, "RowDefault"]], "Output", CellMargins->{{60, 30}, {20, 10}}, CellChangeTimes->{3.6544486689388*^9}] }, Open ]], Cell[CellGroupData[{ Cell["TAKE AWAYS", "Subsection", CellChangeTimes->{{3.641815340685811*^9, 3.641815369764072*^9}}, FontSize->24, FontColor->GrayLevel[0.5]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"CellPrint", "[", RowBox[{"TextCell", "[", RowBox[{ RowBox[{"Framed", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\< _\>\"", ",", "25", ",", RowBox[{"RGBColor", "[", RowBox[{ RowBox[{"{", RowBox[{"185", ",", "12", ",", "6"}], "}"}], "/", "255"}], "]"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "24", ",", "Black", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "27"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\< _\>\"", ",", "25", ",", RowBox[{"RGBColor", "[", RowBox[{ RowBox[{"{", RowBox[{"185", ",", "12", ",", "6"}], "}"}], "/", "255"}], "]"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "24", ",", "Black", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "27"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\< _\>\"", ",", "25", ",", RowBox[{"RGBColor", "[", RowBox[{ RowBox[{"{", RowBox[{"185", ",", "12", ",", "6"}], "}"}], "/", "255"}], "]"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "24", ",", "Black", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "27"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\< _\>\"", ",", "25", ",", RowBox[{"RGBColor", "[", RowBox[{ RowBox[{"{", RowBox[{"185", ",", "12", ",", "6"}], "}"}], "/", "255"}], "]"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "24", ",", "Black", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "55"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], "]"}], ",", RowBox[{"Background", "\[Rule]", "LightGray"}], ",", RowBox[{"FrameMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "20"}], "}"}]}], "}"}]}], ",", RowBox[{"FrameStyle", "\[Rule]", "LightGray"}]}], "]"}], ",", "\"\\"", ",", RowBox[{"CellMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"60", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.6418153732604713`*^9, 3.6418154047336617`*^9}, { 3.641827575582362*^9, 3.641827609211495*^9}, {3.641827726462532*^9, 3.64182774208638*^9}, 3.641827803894145*^9, {3.641827876489498*^9, 3.64182788438515*^9}, {3.654433479536165*^9, 3.6544335135059967`*^9}, { 3.654433545777638*^9, 3.6544336829131308`*^9}, {3.65443373368687*^9, 3.654433790529173*^9}, {3.6544486925401382`*^9, 3.6544487613362637`*^9}, { 3.6544506670262947`*^9, 3.654450701240499*^9}, {3.6544508142610807`*^9, 3.654450823694476*^9}, {3.654450857901164*^9, 3.6544508961568527`*^9}, { 3.654451003958932*^9, 3.654451151035962*^9}, {3.654451199452877*^9, 3.654451243457244*^9}, {3.654451377374034*^9, 3.654451405579228*^9}, { 3.6544533006008663`*^9, 3.654453309774116*^9}}], Cell[BoxData[ FrameBox[ TagBox[GridBox[{ { TemplateBox[{StyleBox["\" _\"", 25, RGBColor[{ Rational[37, 51], Rational[4, 85], Rational[2, 85]}], FontFamily -> "Helvetica", StripOnInput -> False],StyleBox[ "\"Huge improvements of efficiency and accuracy\"", 24, GrayLevel[0], FontFamily -> "Helvetica", StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], ImageSize -> {700, 27}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "27"}], "}"}]}]}], "]"}]& )]}, { TemplateBox[{StyleBox["\" _\"", 25, RGBColor[{ Rational[37, 51], Rational[4, 85], Rational[2, 85]}], FontFamily -> "Helvetica", StripOnInput -> False],StyleBox["\"Robustness of files remains problematic!\"", 24, GrayLevel[0], FontFamily -> "Helvetica", StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], ImageSize -> {700, 27}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "27"}], "}"}]}]}], "]"}]& )]}, { TemplateBox[{StyleBox["\" _\"", 25, RGBColor[{ Rational[37, 51], Rational[4, 85], Rational[2, 85]}], FontFamily -> "Helvetica", StripOnInput -> False],StyleBox[ "\"File distribution causes troubles and additional efforts\"", 24, GrayLevel[0], FontFamily -> "Helvetica", StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], ImageSize -> {700, 27}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "27"}], "}"}]}]}], "]"}]& )]}, { TemplateBox[{StyleBox["\" _\"", 25, RGBColor[{ Rational[37, 51], Rational[4, 85], Rational[2, 85]}], FontFamily -> "Helvetica", StripOnInput -> False],StyleBox[ "\"Still potential to reduce admin efforts and achieve \\n higher \ level of integration\"", 24, GrayLevel[0], FontFamily -> "Helvetica", StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], ImageSize -> {700, 55}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "55"}], "}"}]}]}], "]"}]& )]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Background->GrayLevel[0.85], FrameMargins->{{10, 40}, {30, 20}}, FrameStyle->GrayLevel[0.85], StripOnInput->False]], "Output", CellMargins->{{60, 30}, {20, 10}}, CellChangeTimes->{3.654453316483425*^9}] }, Open ]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Assessment in the Cloud", "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.64615733681431*^9, 3.646157338452114*^9}, {3.6461575863014812`*^9, 3.646157587967581*^9}, {3.654434234984647*^9, 3.654434252734538*^9}, { 3.654435429770108*^9, 3.654435447400919*^9}}], Cell[TextData[{ StyleBox["_", FontColor->RGBColor[ 0.7245899137865263, 0.02357518883039597, 0.04516670481422141]], "Integrate assessment, reporting & courseware on a single platform\n", StyleBox["_", FontColor->RGBColor[ 0.7245899137865263, 0.02357518883039597, 0.04516670481422141]], "Make testing independent of student computer\[OpenCurlyQuote]s performance \ and licenses \n", StyleBox["_", FontColor->RGBColor[ 0.7245899137865263, 0.02357518883039597, 0.04516670481422141]], "Keep all individual data secure and separated \n" }], "Text", CellChangeTimes->{{3.641808319157298*^9, 3.6418084463379793`*^9}, { 3.6418084904697227`*^9, 3.641808500116037*^9}, {3.641808551434005*^9, 3.6418085720574017`*^9}, {3.641808880047286*^9, 3.641808892589363*^9}, { 3.6418097330517063`*^9, 3.641809741541616*^9}, 3.641810092466178*^9, { 3.641816356368182*^9, 3.641816360279839*^9}, {3.654434836132106*^9, 3.654434846958705*^9}, {3.6544516548020477`*^9, 3.65445166491253*^9}, { 3.654452174096319*^9, 3.654452258343848*^9}, {3.654452293085681*^9, 3.6544523283925447`*^9}, {3.654452413420557*^9, 3.654452423344194*^9}, { 3.654452485495521*^9, 3.654452496436474*^9}, {3.654504362031662*^9, 3.6545043654422407`*^9}}, TextAlignment->AlignmentMarker, FontSize->25], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CellPrint", "@", RowBox[{"ExpressionCell", "[", RowBox[{ RowBox[{"Row", "@", RowBox[{"{", RowBox[{ RowBox[{"Button", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "25"}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"GrayLevel", "[", "1", "]"}]}]}], "]"}], ",", RowBox[{ "SystemOpen", "[", "\"\\"", "]"}], ",", RowBox[{"Appearance", "\[Rule]", "None"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"RGBColor", "[", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"37", ",", "51"}], "]"}], ",", RowBox[{"Rational", "[", RowBox[{"2", ",", "85"}], "]"}], ",", RowBox[{"Rational", "[", RowBox[{"4", ",", "85"}], "]"}]}], "}"}], "]"}]}], ",", RowBox[{"Evaluator", "\[Rule]", "Automatic"}], ",", RowBox[{"FrameMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "12"}], "}"}]}], "}"}]}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}], ",", "\"\< \>\"", ",", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "25"}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"GrayLevel", "[", "1", "]"}]}]}], "]"}], ",", RowBox[{"SystemOpen", "[", "\"\\"", "]"}], ",", RowBox[{"Appearance", "\[Rule]", "None"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"RGBColor", "[", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"37", ",", "51"}], "]"}], ",", RowBox[{"Rational", "[", RowBox[{"2", ",", "85"}], "]"}], ",", RowBox[{"Rational", "[", RowBox[{"4", ",", "85"}], "]"}]}], "}"}], "]"}]}], ",", RowBox[{"Evaluator", "\[Rule]", "Automatic"}], ",", RowBox[{"FrameMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "12"}], "}"}]}], "}"}]}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], ",", "\"\\"", ",", RowBox[{"CellMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"60", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "10"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.65443462964835*^9, 3.654434667474956*^9}, { 3.6544347021402073`*^9, 3.6544347454131527`*^9}, {3.6544351787644777`*^9, 3.6544352133982763`*^9}, {3.654435274463859*^9, 3.6544353404303102`*^9}, { 3.654435462488146*^9, 3.654435513793447*^9}, {3.65443605823142*^9, 3.65443606316467*^9}, {3.6544490522962646`*^9, 3.654449091384109*^9}, { 3.654449321836069*^9, 3.6544493572006817`*^9}}], Cell[BoxData[ TemplateBox[{ButtonBox[ StyleBox[ "\"MATHEMATICA AUTHORING TOOL\"", FontSize -> 25, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> SystemOpen["https://applied.services/abma2015/cases/"], Appearance -> None, Background -> RGBColor[{ Rational[37, 51], Rational[2, 85], Rational[4, 85]}], Evaluator -> Automatic, FrameMargins -> {{17, 17}, {12, 12}}, Method -> "Preemptive"],"\" \"", ButtonBox[ StyleBox[ "\"SYLVA\"", FontSize -> 25, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> SystemOpen["http://localhost:3000/"], Appearance -> None, Background -> RGBColor[{ Rational[37, 51], Rational[2, 85], Rational[4, 85]}], Evaluator -> Automatic, FrameMargins -> {{17, 17}, {12, 12}}, Method -> "Preemptive"]}, "RowDefault"]], "Output", CellMargins->{{60, 30}, {20, 10}}, CellChangeTimes->{3.654452518905141*^9}] }, Open ]], Cell[CellGroupData[{ Cell["TAKE AWAYS", "Subsection", CellChangeTimes->{{3.641815340685811*^9, 3.641815369764072*^9}}, FontSize->24, FontColor->GrayLevel[0.5]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"CellPrint", "[", RowBox[{"TextCell", "[", RowBox[{ RowBox[{"Framed", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\< _\>\"", ",", "25", ",", RowBox[{"RGBColor", "[", RowBox[{ RowBox[{"{", RowBox[{"185", ",", "12", ",", "6"}], "}"}], "/", "255"}], "]"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "24", ",", "Black", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "27"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\< _\>\"", ",", "25", ",", RowBox[{"RGBColor", "[", RowBox[{ RowBox[{"{", RowBox[{"185", ",", "12", ",", "6"}], "}"}], "/", "255"}], "]"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "24", ",", "Black", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "27"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\< _\>\"", ",", "25", ",", RowBox[{"RGBColor", "[", RowBox[{ RowBox[{"{", RowBox[{"185", ",", "12", ",", "6"}], "}"}], "/", "255"}], "]"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "24", ",", "Black", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "27"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], "]"}], ",", RowBox[{"Background", "\[Rule]", "LightGray"}], ",", RowBox[{"FrameMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "20"}], "}"}]}], "}"}]}], ",", RowBox[{"FrameStyle", "\[Rule]", "LightGray"}]}], "]"}], ",", "\"\\"", ",", RowBox[{"CellMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"60", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.6418153732604713`*^9, 3.6418154047336617`*^9}, { 3.641827575582362*^9, 3.641827609211495*^9}, {3.641827726462532*^9, 3.64182774208638*^9}, 3.641827803894145*^9, {3.641827876489498*^9, 3.64182788438515*^9}, {3.654433479536165*^9, 3.6544335135059967`*^9}, { 3.654433545777638*^9, 3.6544336829131308`*^9}, {3.65443373368687*^9, 3.654433790529173*^9}, {3.6544515470864697`*^9, 3.6544516406254*^9}, { 3.65445333541191*^9, 3.6544533669126463`*^9}, 3.654504392766292*^9, { 3.654504437626814*^9, 3.654504460961746*^9}}], Cell[BoxData[ FrameBox[ TagBox[GridBox[{ { TemplateBox[{StyleBox["\" _\"", 25, RGBColor[{ Rational[37, 51], Rational[4, 85], Rational[2, 85]}], FontFamily -> "Helvetica", StripOnInput -> False],StyleBox["\"We need a PrivateCloud!\"", 24, GrayLevel[0], FontFamily -> "Helvetica", StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], ImageSize -> {700, 27}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "27"}], "}"}]}]}], "]"}]& )]}, { TemplateBox[{StyleBox["\" _\"", 25, RGBColor[{ Rational[37, 51], Rational[4, 85], Rational[2, 85]}], FontFamily -> "Helvetica", StripOnInput -> False],StyleBox["\"High potential for scaling\"", 24, GrayLevel[0], FontFamily -> "Helvetica", StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], ImageSize -> {700, 27}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "27"}], "}"}]}]}], "]"}]& )]}, { TemplateBox[{StyleBox["\" _\"", 25, RGBColor[{ Rational[37, 51], Rational[4, 85], Rational[2, 85]}], FontFamily -> "Helvetica", StripOnInput -> False],StyleBox[ "\"Opportunity to get more insights on user behaviour\"", 24, GrayLevel[0], FontFamily -> "Helvetica", StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], ImageSize -> {700, 27}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "27"}], "}"}]}]}], "]"}]& )]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Background->GrayLevel[0.85], FrameMargins->{{10, 40}, {30, 20}}, FrameStyle->GrayLevel[0.85], StripOnInput->False]], "Output", CellMargins->{{60, 30}, {20, 10}}, CellChangeTimes->{3.654504462353427*^9}] }, Open ]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Next Steps", "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.64615733681431*^9, 3.646157338452114*^9}, {3.6461575863014812`*^9, 3.646157587967581*^9}, {3.654434234984647*^9, 3.654434252734538*^9}, { 3.654435429770108*^9, 3.654435447400919*^9}, {3.654435618655243*^9, 3.654435622361134*^9}, {3.654435831433152*^9, 3.654435837459741*^9}, { 3.654436754587082*^9, 3.654436757837966*^9}, {3.654504555916338*^9, 3.654504563981489*^9}}], Cell[TextData[{ StyleBox["_", FontColor->RGBColor[ 0.7245899137865263, 0.02357518883039597, 0.04516670481422141]], "Get exam insights and live grading/suggestions\n", StyleBox["_", FontColor->RGBColor[ 0.7245899137865263, 0.02357518883039597, 0.04516670481422141]], "Add more question formats and intelligent testing\n", StyleBox["_", FontColor->RGBColor[ 0.7245899137865263, 0.02357518883039597, 0.04516670481422141]], "Improve UI performance and CloudObject appearance\n\n\n\n" }], "Text", CellChangeTimes->{{3.641808319157298*^9, 3.6418084463379793`*^9}, { 3.6418084904697227`*^9, 3.641808500116037*^9}, {3.641808551434005*^9, 3.6418085720574017`*^9}, {3.641808880047286*^9, 3.641808892589363*^9}, { 3.6418097330517063`*^9, 3.641809741541616*^9}, 3.641810092466178*^9, { 3.641816356368182*^9, 3.641816360279839*^9}, {3.654434836132106*^9, 3.654434846958705*^9}, {3.654435643564808*^9, 3.6544356438979177`*^9}, { 3.654452547802045*^9, 3.654452599611705*^9}, {3.654452645749752*^9, 3.65445274304821*^9}, 3.654459043778582*^9, {3.654504521502555*^9, 3.6545045282608223`*^9}}, TextAlignment->AlignmentMarker, FontSize->25], Cell[TextData[{ StyleBox["THANKS FOR YOUR ATTENTION! \n", FontSize->36, FontColor->RGBColor[ 0.7245899137865263, 0.02357518883039597, 0.04516670481422141]], StyleBox["\n\n", FontColor->RGBColor[ 0.7245899137865263, 0.02357518883039597, 0.04516670481422141]], StyleBox["Let\[OpenCurlyQuote]s get in touch", FontSlant->"Italic", FontColor->RGBColor[ 0.7245899137865263, 0.02357518883039597, 0.04516670481422141]], StyleBox["\nmaik.meusel@business.uzh.ch\ncarlos.chida@business.uzh.ch", FontSlant->"Italic", FontColor->GrayLevel[0.5]] }], "Text", CellChangeTimes->{{3.641808319157298*^9, 3.6418084463379793`*^9}, { 3.6418084904697227`*^9, 3.641808500116037*^9}, {3.641808551434005*^9, 3.6418085720574017`*^9}, {3.641808880047286*^9, 3.641808892589363*^9}, { 3.6418097330517063`*^9, 3.641809741541616*^9}, 3.641810092466178*^9, { 3.641816356368182*^9, 3.641816360279839*^9}, {3.654434836132106*^9, 3.654434846958705*^9}, {3.654435643564808*^9, 3.654435719736678*^9}, { 3.654435755673792*^9, 3.6544358183799133`*^9}, {3.654436604618926*^9, 3.654436683906707*^9}, {3.6544368768261023`*^9, 3.654436877471806*^9}}, TextAlignment->AlignmentMarker, FontSize->25] }, Open ]] }, Open ]] }, ScreenStyleEnvironment->"SlideShow", WindowSize->{1600, 738}, WindowMargins->{{Automatic, 13}, {Automatic, 0}}, 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}}, FontColor -> GrayLevel[1]], 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, FontColor -> RGBColor[ 0.9019607843137255, 0.9019607843137255, 0.9019607843137255]], 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}}, FontColor -> RGBColor[ 0.9019607843137255, 0.9019607843137255, 0.9019607843137255]], 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, WholeCellGroupOpener -> True, CellMargins -> {{60, 50}, {0, 20}}, LineSpacing -> {1, 0}, FontFamily -> "Helvetica"], Cell[ StyleData["Subsection", "SlideShow"], ShowGroupOpener -> True, WholeCellGroupOpener -> True, CellMargins -> {{60, 50}, {8, 12}}, LineSpacing -> {1, 0}, FontFamily -> "Helvetica"], 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, WholeCellGroupOpener -> True, CellMargins -> {{60, 50}, {0, 20}}, LineSpacing -> {1, 0}], 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}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, CounterIncrements -> "Item"], 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}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15150}, CounterIncrements -> "Subitem"], 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}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, CounterIncrements -> "ItemNumbered"], 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}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15150}, CounterIncrements -> "SubitemNumbered"], 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}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15100}, CounterIncrements -> "ItemParagraph"], 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, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15200}, CounterIncrements -> "SubitemParagraph"], 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}, {Inherited 1.5, Inherited 1.5}}, 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}, {Inherited 1.5, Inherited 1.5}}, 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}, {Inherited 1.5, Inherited 1.5}}, FontSize -> 17, Magnification -> Inherited 1.5], 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], CellPadding -> 0, 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, 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[ CellGroupData[{ Cell[ "Styles for Slide Show Environment Documents", "Section", CellChangeTimes -> {{3.559592561220532*^9, 3.559592575768806*^9}, 3.559652073182283*^9}], Cell[ StyleData["FirstSlide"], PrivateCellOptions -> { "PagewiseNotebookBaseStyle" -> { FrontEnd`BackgroundAppearance -> FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], { FrontEnd`UnknownOptions, presentertemplt`firstslideimage}]}}]}, Closed]]}, Visible -> False, FrontEndVersion -> "10.2 for Microsoft Windows (32-bit) (July 29, 2015)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"], presentertemplt`firstslideimage -> Image[CompressedData[" 1:eJzt3UmudOtVreFDUqAbyCXoBTTBFCgbCapIgIToBQ0BTJ7neQ49MueXZVk2 sSJWMpMx5nwLk3svuoUdK/aJeP4x5vftn/yFX/7mL/3oV1999as/8fX/+Oa3 fv1nfuVXvvUbP/fjX/8/fvY3fu0Xf+HHvv6//OaPfPXVz3/9/+fL//I73/nO V1/+D4ZhGIZhGObZfM9Vv/WNn2YC5re/8VOH8zsf5tsf5nffzO+dmN//+uf7 NH/wYf7wxPzRyfnjC/MnF+ZPL86f3Zw/D5q/CJ6/ZFon+v2M+j278zt+9b+l L3Plv9Wz//2f/Uw58/n0ZT59zp35rDzzmXv0ef3ps/7bJ74vjr5nur8Dme8O toodV1d9+qzpctWVz+kqV+EppsNZTsbK8FW0sfAVkznYKm4UXVWVVZ11lWtW peapbjMczV8JTPczqLDWZmPhK3zlMNgqZqa66oytOrOqLabqNoGKmyYZTMVZ SsaKzrAifHXGWE98dcZY+MpvsNXzwVX6ruro/lw91W2e7nF0lkOO1ZVhOfjq aX71bs+3+/tx62CrZ4OrZpmqO6fCUJqzyVkqxqruCNV9dTe7wlc9g63uz1RX qWZVyqZS91S3TaaOsrOqjTUhw4rw1Rlj3e0H8ZXPYKt7g6twlbKpus2xcVSd NcFYm3zF7tWMwVbX5+4dVhtchal6PNXtir8WnO5nMs1ZWcZy7QjxFfNusNW1 cXSV627VFFNNsFS3kyb4a6OxpmdY+Io5Gmx1bTK6wC2u6s6q3E2FoeZ4C2Np +CriDCG+Yl4Ntjo/uErHVcqminQVjtIZB2dVG8shw8JX+KpjsNW5wVW5HaBa VjXNU90umTqq1ppgLHyFr5wHW32e6jOBuApTYSm/mWIsfDXPV9iqfrDV+5nm qjOfH84doJupsNTccXeWm7GqdrAi7mjAV/MHWx0PrspzlUpW1WGqiZ76m69/ P9Wm+5lkWWuasRwzLHzFfBpsdTyVdy3gKv2sSsFU+GmGvbYYSznDmno/A7tX GoOtXg+u6usA1bKqbZ7qNk/3uDlrkrGm+eqTse7aCl/pD7b6/4OrrtnKJaty yakwlN44OGubsSI6wjN3zHT3g/jKc7DVD07lXQu4StNVU03V7ZNJo+wsfKXn K3av9g22+v7gqh5XbTYVlpozGMu3I8RX+Cp6sNX3J7oLvHs3KK567qqq/k8p o+q2BaPprCpjOWRY3ftX+GrPYKvvjsqOVbarzvz7TMlVylmVgqm6DfHD87ci 0/0csp01yVj4irODEwdb6bjqk626XVW9WzXFVFM81e2lKfbqdpair84aC1/V +qr7u9l5ttvKZcdqiqu6O0BXU2Gome5yzLGmZFj4iuwqc7BVzY5V5+66k6sU s6qu7g9HaYyTsxSNha9q72Zg90pjNttqgqsU9qvUXeVkKizlMRhLI8PCV/hK dbbaaoOrKs4DdnSA2VnVJE91G2TLqDpLzVj4SsNX7F7lz0ZbqexYdZ8JnOwq h50qLDVzJhhLKcPCV+xeOQ62wlVXXTWxA3Q2Vbclvjd/JzTdzyLTWlOMha/w 1eTZZiuFLhBX7TPVBE91e2mCvbYYS7kjxFfPfNX9He4y2EprxwpXabpKwVQ4 apa53Iw1KcNS9pX67lX3d7jLbLeVUheIq667StVUUa7CUf3j4KzKfSx8tctX ZFf3ZpOtujOrzrsWul2lkFW5mApHaY+ysZ44S6EnxFf4aspssRWuyjkP6NIB OvR/eMpzFJ3lnGFt8lX17lXkvVfd3+nqs9VWLjtWuApTYSmv2WYsh45wo6/I rrCVkqvu2ApXebuqw1QTPfX3YtP9PCY4a1KG1emrrrOD+ApbKbjKZW99iqk2 ecrNUN0umm6xbmspOWuSsbr2r6L7QXyFra646p2tpuxXdbpqck7VaSocNdtb U43VmWM93cOa5qvI/Io7RXfb6uodoSqZlaurOvMqRVNFuApL6Y2ysfBVXX61 ff8KW2GrLa76ZCtc5ZFV4SmvwVjaHSG+yjk7SHa101aOrsrcsXriqk+2iuwB MdVuS/3DD033z6NgLQdjTfaV6vlBhd0rfLXLVtldYMeZQFyl7SoVU3W74pWP Oqb7GUwwVlaGpegr1/ODdIPas8FW6plV145VhatcOsBKUzl7qttNrvbqNpZr hoWv8JXrTLIVrsJVG0yFo7zN5WYshwxL3VcTdq/oBnfaqrML7Nix6joTiKtm mqrbNYqDsfIzLHzVt3tFdoWt7tpq6o7VJldtNxWW0hpVZ+Erf185d4NkVzNt dSWzcugCFe9aUN1Zz3ZVR/+HpTxGzViqGZbqDha+ohvEVtdtpdwFZu1YdZ8J nJZXVbsKT/nORmN1Zljq+VXWbrtCdnX03Uo3OMtWV1z1zlZXMyu1HStchakU PPWPAtP9DKKtpdwTuvtK9W5RZV9dtdVWXznbKmp/3aELVD4TqNwDKu9VuXqq 205u9sJYfb46Y6wuXznstpNdYavozErJVU8yqyeuOmOrSldldoBupsJRft7q NNZmX2XnVx27V3dt9c5XUd0g2ZW3rboyKydXPdldr3TVlqxK3VTdvlEbdWe5 Gwtf7eoGu82Are7b6mpm5d4F4iqPrErVU912cRtVZ1UYqzPDUvHV5t0rusEd ttrSBWbtWOGqGlcpmqrbJ1MGX+Grqt2rjHsZKs4Nbu8G3WyluL+u1gVuc1V2 B1idVWEpv1Fw1t39v0xjOfpKcbed7MpvJthqW2bVdSbQ3VXKpsJTc8bRWC6+ Omuszvxq8u4V2dVMW2VmVriqxla4KsdV3Z54Nf9UPN2vd5uxunbcHfIrl90r 9tqx1ZGtOvfX2bGa56oqU03IqKrt5GyvLmO5ZlibfTUtu9rqKxdbkVnNdpXC zrqLq3CUr7dcjLXFV9N226N9ha122ip7z2qCq7K7QFVXZXeAk03V7Z3ucXGW mrHwlfbuVVR2dfTdiq/8bBXlqle2is6scFWOq1SyqmpTYan+mWYslQwLX3lk V1G+wlZ6Q2YV3wU6uSorr8p2laqpuq3iPKrGys6wpvvqqa0m+Irsapet1DKr Ca56umNFXpXnKjzlNUrGcu0Ip/jKZfdKLbua6qtJtqIL3OkqJVPdddU0T/1z w+AsvQxL0Vd0g+y1b7dVR2ZFF/jMVZ9s1ZlXKWZV7p7qMJS6u/AVvlL3lVp2 1W0NbEVmhavy86qKrMrNVN02cjWXm7GyOsJpvnLZvSK7wlZPXKW6vz7FVZVd oJurOk2Fo7ysNdVY+KrmXoZJe+3YysNWk/bXP/13l2UrXOXjKjzlba0uY+Er ukGyq922csmsNnSBZ2yl6CpMhaXUndVhLAVfnTUWvurtBiNstfnMoLutrmRW d2xFF4ir7roKT80eJWOpZFgbfZWxe0V25T9qtiKz8rlvYZOr7uy4KLiq2x8b RsVYbr6q7Aef2Kpr90ohuzryVWZ21W0QbBWTWW3eX//0eZJ9JnCqq/DUD86/ JE/364t2lrKxnPOrLd1g1V472ZWPrZQyq+j9dTVXZWZWyq5S3a1yNlW2nVzt 1WksBV9FZ1jq3WCGr5S7QbKrmbbqyqwcukB1V521VaernLIqHKXtrS5jOfkq sh9U3b0iu9rlKxVbkVlpdIG4yiOrwlF+3ppmrKn5ldPuFdmV7jjaakpmpeaq T7aq2l13cdU0U3XbRmmUnVVhLPUd94m7V+p77WRXfrZyz6wq99e7ukBc1esq PDXTWviqrx+kGyS7wlZkVu5doLKrKjpAJVN1O8V93I2Frzx9RXblNd22IrPC VS6ucjZVt0emjoKxHHew6AbJrrCVjq2cMqspXeA7W1XftbDBVZM99a9f/z5E TfdryTSWe0fo5KtPn31q2VX0XjvZ1R5bTc+s6AJx1VRTRdrJ2V9dxsJXc3yl nF1F2GpDdtVpK4e/G+ieWT1xVUVmpeyqu99VHa7abChVczkZC1/1dIOO2dXR dyvZ1SxbXXHVka1cMyv3LnC7q1xM1W0hd2t1GMvJV2d3LSN8tXmvnexqh63I rDy7QFw131Td1ukeZWMpZViKvqIbrLlPNDu7wla9tpqeWam56oytFF2ltFul aqpuz6iOqrPwlZ6vqrvBqjsZyK58bOVw7wKZVU5mtTWvUjRVt1vcBl9p+Mp5 90p5r11t7wpb5doqsw8ks/LtArvzqqqsCk9pjqOx8JV2N6i810525WmryZlV 9f56xrlAXFWfVeEpj1ExVmaGha/6s6uqvXayK19bkVnNy6zUXHXWVqq7VdtM 9W9vpvtn63AWvorz1aRzg5HZldqZwYn3MTjaiszKa39dMa/KNNVdV03x1Dsr ZU/3a+82louvzu5UKmdXT/baN2RX23vBSluRWfXsr29xVVZehan0DOVgLnyl kV198tXW7Ept7wpb+WRWV22lfDZQMbNS6wI3ugpL6Vurw1j4yrsb3JhdTesF q2z16tl09IGRmZWKq8is/FzlYKpu/0yz1qQMa5qv1GzltnfFTruWraZmVuyv 73FVdVaFp/ytNSXDUvPVtG5QNbtS2WnvttNWW0XtsHfvWU3tAnGVjqu6HaM8 qsba6CvXbnBadnXVVluzqwpbqeywH9lqYmaFq7RcpWaqbrM4jrux8NXu7Iqd dmyV5aqrtiKz6ukCcdVOU/37D033z1PpLMUMK9pXm3evtmdXG+9j2GQrxR32 SZlV1Y7V2X8n46p+U/2wl7Jmu7HwVc3uFdnVe1uRXdXZSmWHnczq2f765C5Q yVWOnqryk7K5un11Z/fP2VeO2dUnX6lmV/SC2Kozs6rcs3LsAnHVDFN1W8nB W07Gwlce3aBTdsVOe4+t3p2xnLjDrpRZKe+v4ypdU3VbyNFZ+Oq5ryq6wcnZ VfZ9DPSCfbaa1geyZ9WXWeGqWlN1m2eKtbqM1e0rl90rpzsZKrIr1532bkdN t5VaZnXHVmqu+mQrXDXHVN2uURs1Y+GrnG7wrq/IrsiuVGwVcafVhB12pczq iatUukBchacwVp2vHHevpmdXU+9jwFZemZXqDrvanlV2ZlW9YzXBVZhqhrPw ldbuFdlV3U77lruuNtrK8d6F6jsXpnWB3a5SMFW3SyaNm6+uGqvaV2RXHntX 3MfQa6stO+wKmZXrnpViFzjVVd0O+d78R/B0vx4FY03Kr8iu6rOrrvsYsJWH rdR22CvvXXDMrHDVXFNF+8nFXS4ZVqevKrrBzL12h+yq6y7RiJ32ab0gtuq/ d0Ets3riqghbVXeB01y1zVFK3uoylks/qOCrjm7QMbuiF9SylYqruvpAMitc 9dRWyq7q9pGLs9R9pZxfue5eqWdXUTvt2Gq3rbrOB0bfu6B0B7tTF+joKkVT dRvI3VnVxnLIrip2r5xsdTe76tppv2qral91mwpb7dxhd86sHFxVnVXhKQ9n qfrqirHoBnuyK8WddrKrflspuSrbVir3LjhmVqpdoHJeham8nKXqK9ducIut FHfasVWtrTZkVs477GRWWq5SMFW3XxxGwVj4SstX1WcG1Xba6QWxFZmVf2al 7qqqrApT9Y9bhtXlK5ducGN2xU67v62UXNVlq+mZldP+usqOVaerum0yYfBV ra+6bJXlq6077diKzMp1hz0js8q2Fa6qcVW3R47mP09O98+Z6SxXX03pBsmu 9HpBbIWtKu9dmJZZbesCt5nqrJuixtlY232laqusvauq7Ipe0NtWm10VnVkp ueqdrVxctdFUU+3kYq9qZ2UZy60fnOIrp+wq01fYaretFLrAu7ZS7QJxlaap um3k5KxtvpqeXyl1g+xdeZwXVLXV1HvYK88GTs6sOnrATFcpZ1XdDnJ2VpWv HPpBsquZ2ZWyrTp9lWErMiv9PrArs3LtAq9+d12xlaKpur0zyVn4iuzKbe8K W/Xbij5Q82zg5swKV+GprcZS7wYVzg1WZ1f0gjt7QWylYSulPvBuZjV1fx1X 7R0VXynkVxuyK6X7rugFvbOrblttcVVGH1h9nxWZVb+r8BTGwldkV9hqtq3I rMiscJWfq7qd4jz4SqcbVMyuKnfau3pB7mLAVu62Utphn5JZ4are+a+g6X4d Dr4iu/LfaVfsBatt5bpzpWarjrsXolxVaauMPlD5bKByZpXpKldTRRlK3Vxd viK78suupvSCjrbq8FWFrVQyq2xbqfeBiplVxP46ruo1VZejVKxFfkV2RXZF L5hpK/U+0MlWU/pAlcyqswuc6qpuN6k5a0p+5dYNYqv5tjry1URbKexaubtK 6U6rjh32DV3gNFd1+0jdWfhKL7vivOBcWynvXCnZisxKrw98YqvJmVVWF6ho qm4HOTpri6/IrvqzK2ylmV1l24o+0HuH/Z2tJmVWuGqfqbKNVekrsqsZ2dW7 f29v8hW2YtdKxVZqfSCZla+ruo3TPfjK01d3s6tP/7akF9TOribZil2rHTvs WZnVGVvhKkzVPfgqthucmF3RC/bbSnXnSsVWZFY9tprcB+IqTLXNV2RX8dmV Si/YeV5wiq0qfdVhK/pAdtgVXNV9LrDbVd1u+TL/fWK6f0YFYzn4aqqtyK50 fLXNVht2rVzvXiCz0sysNrnqjJ+ejJux8NUzX9ELYquJtlLetTqy1dbMqsNW 2TvsHZmVUhfoYKpsS3Vba5KvHG3lll259YLKtnLaZ1ewlXpmtdFWZFZ6XaCy q7o91eEsdV+5ZlfTdto3nhdU3rnCVr622toHumRWjl2goqu63aTgrA5fdXaD E7Ir97uuHGx11VcT99mrbaWwa+WWWVXbavoO+yZXbfdUhbEm+IrsClu59IJb bKWyx66SWan0gWp3Wk3NrLK7QBVXdXtourGcukGyq/m9oLKtXHauVG3l2gc6 2EqxDySz0nRVt3/cjFVpq2hfTcuuqu+62npeUMVWR75ysBW7Vjm7VtP7wIod duXMytFV3d5xNtYGX6lkV9W9oMN5QfVecMs+e6WtFHatjmw1KbOadj5QMbPC VXPHzVdkV3N7wYm2uuorbOVxZyh94Lw+kMwqxlXdplEafDXfVtt6QVdbue6z P7EVe+yzbKXYB5JZ4SpnY1X5yjm7cusFt58XVLCVwz67oq1cd63u2OrOrpVS H0hmFWerDld128VhHHx19neS7IpesNJWKjtXyrZij90js5pkK+fM6qqttrrq f05M98/Y5avO7CrSV9077dgq31aOd4hiK/bY6QPv22pyZuXkqjOGujNOxiK7 0suuMmxV5atPZ9Kv+ErFVpP22atspbDHjq20bKXUB7plVuquyrKUgrXwVX12 pWarzdlVh60c99mjbZW1xx7hKmwVayv1zMphh32aq7pMVW0sVVt17bWr77TT C87bZ59qK8c99ghbubpqmq0muOqOrRRN1e2oLmep+srVVk+zq7vnBbFVbi+4 9axgl606+sArtiKzog9Uy6zUXNVtJgVj4au67EqtF4y+5+rTmXFXW209K3jG VlP22F/Zij4wPrNSOB84zVV3bYWp8o1V5auuvSsVW2X1guxcae2zYys/W7Fr RR/oaisFV3WbaJqvNmZX9IK6tjryFWcFdW2lcB+7mq2i7wy966oOW6n0gbhq p6uyjKXmK0Vb0Qv62WryWUFspW2rbZlVpq3oA7Vs1W0ffKWRXanYSq0XrNy5 UrIVZwVrbTX9/gX6wP5dq8o+EFftmom+UsyuOnvBO7ZSz66UbMVZwWe2mn7/ ArtWvn2gcmaFq/Sny1dkV/SCldkVZwVn2oozgrG7VlNsNb0PzLYVrtLx1ebs Clvp20rlrOBmW3FGsHaPXSWzUrTVpj6wI7PqNo3STMqu6AWxldtZwSxbVe6z T7OV0hlB+kBNW5FZ4Sp81dsLbrHVO1852UrlrCC2yj8jqGIrdq3m7Vq5ZVa4 StdX02zl0gvesZVKdoWtsFXFGUGV+xfYY9+za7Ups+q2i8Ns8pVSL8jOVcxZ wep9drd7GLbaijOC2EqxD5yQWXWbxWmUfUUviK02nxVUvePqqq2y7l/AVvfO CG65M5TMii6we7BVbC+IrTR3rtxspXrHlYqtuH9hdmaFrcisJswGX03pBbHV 7rOC2Ir7FzbYSmHXalIfiKv8fOViK6VeMMtWd3z17vP0rq+wVf09DFNtNelu K3atNPpAVVspZlbdLpkwVdmVsq2qesFPZ4unZleKtppyVhBb6dy/wB67tq22 9YFkVv2jll1dyVKVbEUvWHNWEFvVnxV8ZyvVe0O5f6HeVp/ydWx131ZkVp6j lF1F2yqqF8RWGjtXWbbiHoYeW7ndbaV4RvCurVwyqypbKe9a4SrPcc2u2Lna ZyvuuMJW3L+gl1kp94FRtorOrLDVjpmcXWErbBW9z46tZttK8YwgtpplK1y1 Yzbbqmqf/Z2vztz9ctVX7z4f3/nK0VbVd1yp2irDVxG2Ur5/wcVWyrtWyraq 3LUis2KUfeW6c/XEVi7Z1bvPccWzgm73h2IrbIWtsFWlrbrdsWFUbHXFV0q2 ohfUs1X1HVfYys9WHfeGdu+xYyuPPXYyqznjZit2rvRt9c5X2Er/bvYrtlK4 f0HFVspnBCttdWbf4a6rqmw1ddeq2xubRiW7wlbYytFWE//uDbbaZatPe5pK mRW2wlZOo2CrK75y2mfHVjvvD8VW/bbKujfU0VZb+sBKW3XuWtEHesxEW6ns s2MrbOX2d2+wle6d7J/Olmy3lfMeO5nVd+d/T0z3z5hpqyu+wlbx9zBMs1XH 3eyOf/cGW2Er5V0rbEUfmGkqR2cpZFeKO1eq9zAcfea98xW26r+b3dlW/C1B bDXBVtVnBKNtNa0PvGsqF2NhK83sKtJW0+4PxVbYaurfu3E9IzjBVup77FNc FWUqdV9hK2yFrbAVtsJW2KreVtv6wAxXKRtr2s7V5LOC0ba66ytsVWurV77C VtgKW3mfEdxkq2xXKfpqmq1Udq6wFbbKvJsdW3naSuFuK2w131bdruhw1SZb RfeC2ErDVke+crbVka+w1TNbnf17N0e2irg3FFvl2urM2eese0MVzwhG24rM ytNXTrZyOiuIrXJsdeQrbIWtrtgq4t5QbJVvK+5f8LZVtavcfYWtsBW2wlbY ap6t3n3GuPaB2GqXq7AVtsJW2ApbYSts1btrha3m2UrFV9377NgKW2ErbIWt sNUWW00/I9jtKmyFrbAVtsJW82wVdSc7ttI4I+hkq25PYCtsha3q7g/FVtgK W2nY6s4eO7bCVm62UvBVt62u+ErFVp98ha1m2OrIV9gKW2ErbIWtsBW2wlbY ClthK2yFrbAVtsJWrrZ64itsdd1WR77CVtgKW2ErbLXPVdhK01adO1fYClth K2yFrbAVtsJW2ApbYStsha2wFbbCVirT/SywFbbCVtgKW2ErbIWtJvmq+zlg K/atsBW2wlbYClthK2yFrZRtxTlBzgliK2yFrbAVtsJW2ApbYStsha1m2+qd r7AVtppiq+5noGCrs7+z2ApbcS87tnKw1ZGvsJWerc76ysVWCr7qdhW28rVV 1q6Vs63efW9gK2yFrbAVtrruK0dbKfiq+/VjK2yFrbAVtsJWU20V1QtiKx9b db/2u7a6kmdiK2yFrbAVtvKw1TtfYSts5eKr7teNrbAVtsJWG2115CtsFW+r d7769Dn6yVeKtoreuXK2VYevul/vXVdhK2yFrbBVla2OfIWtdGz1JLt6aqvK s4JdtnI9K9hhq+7X6mqrs2dlsdVcW125NxRb9dvqla822+qdrzbaSmWffZqt tvqq+3VW2erM7xe28rPV1fsXsBW2wlbYyt1W0TtXm2xV4avu1zfdVmfO22Ir bPXk3tCrtnrVi2ErbIWtdtvqiq8m2CrLV92vqdpVqrY6u/u4wVZV94Ziq2e2 euUbbJVjqyNfVdjqyFfYijuu7nxXb/BV92tRtpXiHju2wlbY6thXCrY68hW2 wlYKO1fRtpqUXUUYq/tnx1Y9faCSrar22KNtdeWMILbCVltt9c5X2Ip99m5j RDqr+2fMdJX6rpWDrc7cBXPVVgpnBF1sdWWPHVthq0++qrDV3exqi604KzjD V1NGIbOaaquMzGqiraLutlKx1dkzgtgKW3Xvs2Mrv3326dnVlJloq8lnBLHV fFudPSOIra7vs2Or5756Yqt3vjrTA2ArbOUw2X2g864Vtoq3Vfad7Ee2enq3 FbbKsdWRrxxt9c5X02ylnF0pnhWkF9w3Cq7CVtjK1VZP7w11t9WRr5Rt9cpX 2bY68hW2wlZkV/NGJbO6YiulXSts1Xf/whRbPb03FFthK2w156wg2dWMUbFV dGalssc+wVafznyr2Srr791gq1pbHflqk62444p9dmzlNyquyrCVyh571v0L R7Z69/k47d7QaltF3L+wyVZHvlK1leLfvcFWs2yFr3bMZls57Fq9s5VyH+h+ J7ubraJdpW6r6r97o2ird76aYCt2rrCV61S4yn3XqttWCn3gRltl3huKrfLu YciyleLd7CrZ1bvPqO7sqnLnqrsXxFc6MzmzYo99lq0m/b2bCbZ65SsFW236 uzcqtlLuBd1tVZVd4SsvVyn3gdhKz1bT7g3N+ns32Er/jitspWEr1V4wy1Zk V56uysqsrtgqKrOq2mP/tE8w1VaK9y9MsVXFHnuHrbbcH8o9DHG2ct25uvLd SHblM9jKf9dKxVaKZwSn3MmOrXbdcfXOV5NtRS+ok13hK31XddoqKrNStpWC q7DV3L93o2Qr7mHQv4dBuRecYKvK7Apf4Sr1PhBbzbrbKuve0Cm2mnJ/qJOt lHylaivVXpDsasY8dewkW1VlVtjK8/4F7mT3sBX3MGArsiuyK1y1z1ZZd4ZO tNW77yHutqo/Ixhpq+r7Q6vvYeCs4Iw7RKfZCl/NcpV6ZjX57gUVWynuWk05 I4itfGz1zlfYanYviK9mz9NnSmZFH4itsFWWrabfcTX1HgbFXjDKVh3ZVfbe Fb7yd1V3ZoWt+jMrVVu5nRF0sNUrXznayuUehjtnBZ2yK5edq43ZFcbycVVH ZuXSB2Irzgh2323VZSuVO644K6hlK6WdK0dbRfmq2zburlLqAhX7QGzVb6sp ZwSn2Wr6PQycFZy/c+XQC3b6aqOxulw1KbOa2Aeq26pj1+qqrbLOCKrebRVt q+p99mpbcVaQXrA6u8JXPqZSc9XEPnDKrpX7HvuU+xewlbatovfZ7+xc3bXV xF5Q+bygW3Y13VdurnLPrOgD+/tA1zOCTndbVdmqep/dwVbu2dWWXhBfzTRW 9LO58/5My6zU+0Bs5XFGcML9C1NtNfWsoIut6AXndYOTjIWrPHfY1frAabaq 3mOvvn+hsg88a6tXvppiK84Kzty5muiru9/hGb5yNFbGM6hy1YTMalMfGH1n 6B1bqeyxbzwj2Gkr9XsYpp0VpBf0t5WirxyMlfW63V0VmVnRB3pnVpwR1LHV 1nsYnH01yVaRvSC+mmes7Neq6qqpmVVWH4itOCPoYiuVs4JHvsJWHr2gc3a1 2Vfdzqp4bXefvVtm5bTDzq4VZwS32kpl5wpb6dhKKbs68z2TlV1V+6rSWNnO qnwduCovs3KzVfSuVfSdoa577FPOCGIrdq7O+OqurTbvtFdkV06+emqu7p9V 3VXKtnrqKvpAnczK9Yygsq1e+cpxnz3CVsp3iGZkV122qu4FO/eutvrKYZ48 37uuIrPKz6ywFWcEt9kq8352NVvRC87Nrq7aqqMbxFj+roreX5+0w37XVup9 oJqtqnet1M8IPrVV9VnBiPvZsRXZ1URfRRir2zFKE+HVKldF22pLZpVhq0+d gqKtrrhKxVbqe+xZtqo+K8g+e28vSHalYSsyLFzlllnRB3plVh22cty1qrbV pH32I199OrsRtXNFL0h2ha/0TFXtqsmZlWIfiK38dq0cbPXKV+yza2ZX23rB juxquq+2GCvqWW1x1YTMij4wzlYqu1ZKe+zKtmKf3esuBrKrub6abCwFV921 1eQukD6w11YqfaDrHnuErdT32V/5ys1WE3pBsqv72YSKr6YYK/qZPHl/sl21 NbOiD9TsA7fssWfaip0r7exKsRd0za7UfZVhLEdnZTyDDleRWen1gdjKZ48d W/nail4wx1bKvsruBlV9pW6srNe80VVKtsrIrOgD2WOfZiv22X3uYiC7wlfq 1sp+fU/fgwpXKXeBjjvsDn0gu1Y6mdUdW73ylco+u8s9VyrZVUYvuDm7qugG I3xVZawqZ1W9lmmucs2snHbY6QN37lpF2WrSHaLTsquMXrDzrqtIW7l2g26+ inBX988a8bxxVb6r1HbYsRW2qrQVO1extlLLrrJ7wSnZlYKvFIylPrjq3H9L CraiD+ReK2z1zFcbbaWUXU3pBfEVxlI11VVXkVnRB07OrJz22O/a6pWvJu1c KftKxVZbs6vpvsJYsc/yyftKZrUvs8JWM/bYsdUcW6n1girZlUs3+NRXGEvL VLhqfmaFrbjXqsJW7FzF2YrsakY3eNVWir7aYKyMZ1bpKvUuUDmz2tgHXrWV cmaFrdi56u4FO+66mpxdbfPVNGNlPaOn752Tq1wyK/pAr8xqwq7VE1u98hW9 4Mxe8J2tNmdXyr7KNJarszKfR4Sr7vyeqLuKzGre+UAlW6lmVtG2cvy7zaq2 UuoFn9gqIrv65KvI7Epl98rBVw7Oqnj9HVnVFVtd/ffClswKW/nYyq0PrLLV 9p0rlfOC27Mrp3ODkb6qMpaCtSpfJ656Zquz/67KctU7W7HDruMqbOXRC776 XVHNrpTuulLPrhy6wbu+cjVWtrk6X0vU+5HpquldIJkVtlLdtcJW2rZyyq6e 2Eoxu8JXTKap1Fyl2AU+tZVSZuV4PlDFVo6Z1VNbXfHVdlu57LRvyK7wFcbq NNV0V03OrLb3gUe2OvoOPrLV9D6w0lb4SqcXdM6u8FX893y3W5RHxVTbXOW4 Z7WhD7xqK4U+EFvtttWGnfYt3WCFrzCWl6lwFZnVhD7Q0VYdroqw1StfYSv9 7OpuL6hwZhBf5flqu7NcTZXpqkldoMsO+4Q+UMFV02ylfhfD0e9Nd3altNPe tXcVlV0p+OrK9+KT71+MpecpdVe5doFumRV9ILZSs9XU7CqjF1TLrqbuXW31 1VRnZT+vKlfRBXpmVvSBc/tAbPXcVuy046tIXzkYy9VZFc/lqakcXUVmtTez UrKVUmYVZavtvnLeu8JXevtXUcaqcpaKvzpfa7WnXParqvKqLldN27OalFlh K39bqXSD1fddbfeVQ4alYKwoe3X/vBmmwlV0ga6Z1VVXbbgvNMNWr3ylZCu1 7Epp70o5u8JX843lOFHvh6urXHrAzZmVmq02ZVbZtlLzlZKtqs8MPsmu3n02 OWVXKvtX3b7CWJ6m2ugqx8zKdc8KW2GrTluRXcWfG8RXGEt5Ip93VVbV6SqX zMqpD3z3b3SlzApb5djqla+UbDUlu7prK+fsysFXrhkWztI1Fa7K2V93clVk ZkUfOMdWar7asNOumF25doMV+ZVKhoWxckyl7CrV3XUyK/pAbDXXVhOzK2Vb TfFVdUeYZaxNzsp6fk/e06mumtoFbt9hV7FVt6mm2+rIV0f3n2XbiuzKuxvc 7KuJzsp+VtWmynSVWxdIZkVmpTDRtlLyVaatnHfaO/euKrvBbl/d/Y5UN5ar taqeC67a1wVWZ1bcw46tXGzluNM+NbvCV899VWksRWtVv/YuU92x1WZXPbHV XVcpZFbZtsq8LxRb9dmqK7ty3mnf5Ksz3w+qvnI0VqW7ul/X0/fmqatc8iq6 QK/MKspWWzOrLFu5ZleOO+2u2ZXi7tVkX6kYa9J0mgpXxWZWWV1gZWZFH4it um1FdqXhq4jsyslXGMt/Ip6/cgd41lVqXSCZVf4Oe1RmtaEPzLTVK18594IK 2ZXbmUG1bnCKr6KMhbP8TLXRVapd4LbMij5Q11ZK2VXnTjvZVV83iK8wVrWn HDrADFc5dIFkVvSB2Er3rqvNe1eO3aCKrxSNtd1Z0c+yI6va5Coyq7k77I73 hSraiuxKN7t6aqtNvurKsDKMtcVaWc+tw1QurlLYsZqeWbHDPtdWStmV0057 R3aV7auIbhBf9RprirMyn0+Uqba7qqILnHCflVNmha28beW0056RXWV1g58+ o/CVTkdYYSwnb1U9h8j3LttUuKreVa6ZFTvsmrZ65aupvaD7mUGFbjBqt93Z V67G6jZXx2uMfJ/uZlXb8qqILvCurbJcVZVZKd3Djq38sqvsnfat2dXkbnC6 rzqN9dRf3T9jhalwVZyrFDOru67amFlhq1pbuWRXlXtXitkVvor1VYaxVJ3l MEqmcnKVSxdIZsUOu5OtlLKrqJ32ydmVSzfo5itFY+GsHk+pmmq6q8is6jMr bDXLVke+umor5+zqk6+y7hPFV36+wlk1nsJVfjtWZFb0gVNslZldHf2+dN8l Oi27ivLVmc/lbl9Vd4QVxtroLGVP3THVJldN6wKrMqsoW5FZ9dlqW3alcmZQ 3VdR2ZWjr1yMNdVaVc/t6Xuc7aqr/01schWZ1TNbbc2sHG2lll2p7F117LU7 doMTfVVtLFdrdTyjDlORV3l3gW6ZFTvs/baK8lXHTvvkvavu7Gqar7YZS81c 3a8/4n1U6wCjXaWyY9W1v66cWUX1ga++p7GVn602ZFeud15V+yqrH6zIsKKM peKsSIN1/7zKptroqoldoOrZwK7MClvl2GprdqW21/7p80nRV1n51RVf3f2O jPSVg7Hcp9tUuGr+/rrbntX2PrDDVld95ZJd3dlpd+oGI3wVZatoXynuYGUY C2fpeeqpqXBVvauU9tcn7Flhqx5bTciunPbaXbrB6H5Q2VcZxsJZvZ5SN9V0 VzllVndcRWbVPx22uuqrjvsYqvaunLIrV19l5lcYa/5kPHNc1bdjlZVZOeyv k1lhq6r7GFyzK+duEF9pGgtr5Vmqw1ROrjrzeTC1C1S4c4G7QufYKspX07Or rG5wo69UdtxdjLXFWtnPL+J9rsiq3POqaV2g6p0LZFY7bEV2lWcrfOWRYVUZ a4qzqp5VlKuUsqqtrlLqAqv217syK2yV4yu1nXb17Mp99wpfxRqr0lkO5up4 Fh05VUVWhavIrLgr1NdW2dnV0e+LQnaVtdc+oRvs9FVVRzjBWJX26n5NGZ66 Yypcdd9Vbl1gd2bFXaEzbTUlu3LrBp9kV/iq31hqzpo00e/T3d+Xra7q3LFS 2l+vyqyObMWelZ6trvpqc3aFrzx9pWQsnKXnqQmmcnSVW2ZVdecCmdVOW23I rhS7wXefT9t8VZ1hZRkLZ/V6qtpUuMrXVW6Z1eY9KyVbXfWVU3a1Za99gq/U M6xMY+GsOk89MdV0V1XtWH2y1RNXqXSBZFbY6qqttmdXqr4683k3zVcTjbXV WhXPVN1UuKpnx0r5ntCuPSts1eOrKdlVx147vtLxlYOxJlqr8rk9eX+fmEoh q3Jz1ZQuUDGz2tQHOttKMbuasteusnuFr3Sd5eatjmfjYqpJrurcsXLYX3fJ rLotMs1WV33VlV1t6AYn+wpjzbNX9+uM8tRTU+GqOa6q3F9nzwpbVWZXdIP4 6q6vFIyl5qzJM91UGbtVLq7a3AWyZzXbVop/Z3BKdoWvNPOraGPhLE1PTXOV Yl7VuWM1sQsks/K01ZGvtmdX+ErDVxOMhbNmeMq1A5zkKjIrMisnW1311ZXs 6shWlXvt1XdeZd/LMMFX6h1hprOwVo2lnEzVmVXhKjKrCTPBVp3Z1YZu8Iyt Ku9muOKriRlWprFwVt5z7TKViquibfXUVYpdYOVdVnf211/ZiszKy1ZXfZWd XW3vBquyqw2+cjHWBm9lP7fI91nNVM55lZurFLpAMqudtoryVXR2Vd0Ndvtq Sn7laKwqZzl6q/K5RL+nFf0frqILJLPaY6urviK7mrN7tclXGcaqdpaKubpe s4qpKlzV1QFGueqdrTJd5dAFkllhqw177YrdoKqvlDpCNWN1Omv6ZL1fiqbC VT5dIJlV/6jbKtJX2dnVXV+9++8KX2n4qjLDyjQWztK01F1P4Spc5bK/vimz 2marbd0gvur3lbKxcFa/p56a6o6rMk3l6CrVHat3tqrsAjMzq25bbLdVpK86 72RQ6wbxlY+xKpyFtWos1WUqlaxqk6uUMqtOV2Er3Yn6WzhXbIWvPtuq2ldZ O+53fFXdE1Yaa4u3qp9lxPtfYSpcNctV7K9jq6u+uppdvfpdmbDXrr571eWr 7I6wK8PqMNYEb3U9ry5TKXWAaq6adI9VVReIrfbYiuyqZvcqIrs64yvXjrDT WN3OUrJX9+t2NhWu6neV8v76O1vhKm9bHfmqM7vCVzPzq0pfRRpL0VnbJup9 VDZVl6vO2uqpq7Z3gWRW2Coyu3LZa3ffverMrzYZC2f5earaVCpZlVJehatw 1UZbHfkq+8wgvtL21aQMC2fpT/R788RUiv0frqpxVXcXyD2h821FNxjXDeKr 2cbCWTqeemoqXHXeVexYkVlhq3hfuXaD+CrXV1UZlqqx8Fa9pSI8pbpXpeqq p3nVE1e5d4FR++vYymfoBvFVl686jVXhrG3WqnieEe/7FlPhqhxXXb3Lii4Q W1VmV5t8deZzKcpX0WcINxirylnTvFX5zDpNtd1V2T1g1o6VSmZFF7jTVke+ isquMrpBxXtF3XylmGEpGKvaWcru6nwOkZ5SN5Wyq7Lzquk7VmRW2Coiu3Lo BjN99dRW03xVnWFFG6vbWU991v1zdHuq2lTZWZWiq7rOBE51FZnVLFtd9dVV W+GrOb5yyLAyjOXqLIdR8VSlqTKyquoeMNNVavctRHaBZFa7bHXkq4rsit2r 677q3HF3ybAynYW1dCwVYaotWZVDXjVhx+qOrXDVLlupd4NdvlLIrxwzrInG wlr1jorylHJWhav2uIoucLatjnwVZatN3SC+0usJK5211VoVzzXKVHdddef3 3cFV6nctZO1Y0QXqziRb4avZ/WCWr1yNVeWsieaqfm6dnlLLqrblVS47VmRW 2OqqrRS6QfKrWl9VZVgqxupwlrK9up9DpKccTKWcVeEqXIWt8nylnl1N91XH GcLKDEvJWCrOinZY989b7akOU21zVeddC1k7VnSBGrPFVg6++vRvGMXd9mhf qRir2lfbneU6Ge/XNFNNdVXX7jqZlcdMtFWFrzruZcBXPhmWqrOwlqalnnqq 2lQZWZWTq7ryKlzlM1NtdeQrhexKdbcdX2nsulcZC2v1eyrCVBOyqmpXqZ4J zNqxogvEVtm+endfv0o36Oyrzh33yRlWlbO2e6vq+Ub9PiiaKqMDVMmrMnvA aleRWWErFV859YPTjKXmLBVrVXrLzWLdzyTSUE8tpeap6Jxqclal0gPiKmyV 6SulfnCSr7pzrAnGUrJWlMu6fzZ3T2XvU7m4qvOeha79qsge8MhW3d/ryrPV VvjK11cTjZXlLEdruU3W+7bVVJV7VdtcFZlZdX+nq88WW32ZK7Zy2r/K9tWT +6+2+UrZWDhL31OdplJwVWUH2O2q6jus6AKxVea47l6p+yr6HGFWR+hkrGxn Ya1+R0V5yt1UHa7qvGcBV82f7baq7ga3+8oxw+rsCSudhblqn3HU74WqqXCV v6voAu8PtvLavXrqq0+fGZt85ZZhdRhrsrc6nmHk78ETV139t8UkVyn3gOo7 Vtjq/Gyz1Ze5ais3X336b5/8aoaxuq2l7q7uZ6LmKWdT4SoNV2Gr84Ot8nav JvuqY8ddKcPCWUylpyaZSrEDxFW4Kno22urLKHSD6nczVOVXzhnWU19lGQtn +VvqqafumGpiVuXuKoUdK2x1fbba6svgq5r8yjHD6jBWprOwloelppoKV+m4 isyqZjbb6sso7F6p++rTZ5ODryqN5eAsvKVlqQhPVZqqO6vCVbhKfbDV9exq 4t0M+ErTV1XGwlq1jor0lKqp1F31yVbKrmLHSn+22+rLbNhtd/MVxup31nR3 dT3HyN+HO666+7ufmVVFdoDT8yp2rDwGW3138FWtr7IyrC3GUrCWur26n4eS p6pM5Z5V4SpcFTXY6vvj0A1u9JVqhnXXWBucFe2x7p9TwVPTTLXRVR13LdAF 9gy2+v647F4p+MqhI9xqLGdrOU/me6lsKocOEFfhqurBVj84m3x1xlhVvlLJ sJ4aS9VZWMvLUnc9NcVUla468+9Mxx7wbhfY/R08ZbDV/x+V3St81ZdhTTYW 1tK01BNPPTWVo6vOfO445FV371pgx0p7sNXrwVfnbXXWV9EdoYOxnnxXVjoL b9U7KsJTG00V1QE6uIrddd/BVseDr3KMpZBhOeVYXc6abq7O5/n0d2GaqSa6 6tNnNq6aPdjqeDJ2r/BVjq+qMiwFY3U7y8ld3c8m2lMdplJxVVQHODmvYndd Z7DV+8FX/R2hYoalYixFa0X5rPtnmuQpZ1PhKlzlONjq81SeHazwVcQdDcq+ cjNWtLMmWMt1It/DiN+rSlNl7FVFdoCfXHXm352qPeBdV2GrvMFW52aar6ry q+iOsCLD6jRWhrOwloelNpjKNatyzqvIrHoGW52fyt32SfmVa4bVbawsZ2Et HUcpeErNVLgKV00YbHVtpuVXEb7q6gg3GSvTWZir1lGRluoylUNWVeUq1R4Q V/UOtro21bvtW32VlWFNMFaVszZ4q/I5ZvweVHd/LlnVGVep37PAXQveg62u D77S6wgdjJXlrGprOfmr+7koearSVBlZVVQH6OAq8ir/wVb3xtFXETvuZz+3 ujKs7cZSsdbWyXxPOzyVaSrXrApXMWcGW90fR19V5VebMqwnxqpwFtbytNRT U6nmVLjqfg/IXQs+g62ejaOvnDtCdWM5OAtv6Tqq21N3TOWQVVW56tNn85O8 iszKa7DV88FX2hmWo7GqnYW3egyl4iklU+Eq8qoJg61iBl/Ny7C6u8JuZ20w V/dzjfjd6HBVVv9X3QEquIodq5nzxVYMwzAMwzBM3Pwfwvde+g== "], "Byte", ColorSpace -> "RGB", Interleaving -> True] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[580, 22, 78, 1, 5, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[11514, 275, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[32063, 775, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[45852, 1121, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 104225, 2323} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 78, 1, 5, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[661, 25, 317, 4, 213, "Title"], Cell[981, 31, 630, 11, 69, "Subtitle"], Cell[1614, 44, 87, 1, 64, "Input"], Cell[CellGroupData[{ Cell[1726, 49, 2587, 58, 389, "Input"], Cell[4316, 109, 2403, 63, 297, "Output"] }, Open ]], Cell[6734, 175, 4743, 95, 394, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[11514, 275, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[11603, 280, 354, 8, 70, "Section"], Cell[11960, 290, 1931, 37, 70, "Text"], Cell[CellGroupData[{ Cell[13916, 331, 6428, 150, 70, "Input"], Cell[20347, 483, 1920, 43, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22304, 531, 141, 3, 70, "Subsection"], Cell[CellGroupData[{ Cell[22470, 538, 5725, 130, 70, "Input"], Cell[28198, 670, 3792, 97, 70, "Output"] }, Open ]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32063, 775, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[32152, 780, 330, 5, 70, "Section"], Cell[32485, 787, 1300, 26, 70, "Text"], Cell[CellGroupData[{ Cell[33810, 817, 3473, 80, 70, "Input"], Cell[37286, 899, 970, 22, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38293, 926, 141, 3, 70, "Subsection"], Cell[CellGroupData[{ Cell[38459, 933, 4449, 104, 70, "Input"], Cell[42911, 1039, 2868, 74, 70, "Output"] }, Open ]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45852, 1121, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[45941, 1126, 513, 8, 70, "Section"], Cell[46457, 1136, 1173, 24, 70, "Text"], Cell[47633, 1162, 1206, 25, 70, "Text"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)