(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 163828, 4612] NotebookOptionsPosition[ 152600, 4254] NotebookOutlinePosition[ 154335, 4304] CellTagsIndexPosition[ 154255, 4299] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Computing and Programming with ", StyleBox["Mathematica", FontSlant->"Italic"], " " }], "Title", CellMargins->0, CellFrameMargins->{{60, 9}, {9, 12}}, CellChangeTimes->{ 3.400601233356845*^9, {3.431533514883027*^9, 3.431533541660934*^9}}, FontColor->GrayLevel[1], Background->RGBColor[ 0.1168383306630045, 0.1378042267490654, 0.44408331425955594`]], Cell["Anton Antonov", "Author", CellChangeTimes->{{3.400601238970646*^9, 3.400601244360078*^9}}], Cell["Wolfram Research, Inc.", "Affiliation", CellChangeTimes->{{3.400601247203842*^9, 3.400601251528167*^9}}], Cell[TextData[{ "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext", CellChangeTimes->{{3.3984418381493893`*^9, 3.398441843396253*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Talk topics", FontColor->RGBColor[0., 0.254032196536202, 0.7862973983367666]]], "Section", CellChangeTimes->{{3.400601268965901*^9, 3.4006012715371943`*^9}}], Cell[TextData[{ "\[FilledSquare] What is ", StyleBox["Mathematica", FontSlant->"Italic"] }], "Text", CellChangeTimes->{{3.400586454848401*^9, 3.4005864579584837`*^9}, 3.40106578414351*^9, {3.431538835340506*^9, 3.431538840348619*^9}, { 3.431538876102984*^9, 3.4315389325243177`*^9}, {3.4315390028606157`*^9, 3.4315390043726597`*^9}, {3.433159053901308*^9, 3.433159064554634*^9}}], Cell[TextData[{ "\[FilledSquare] ", StyleBox["Mathematica", FontSlant->"Italic"], " = FrontEnd + Kernel" }], "Text", CellChangeTimes->{{3.400586454848401*^9, 3.4005864579584837`*^9}, 3.40106578414351*^9, {3.431538835340506*^9, 3.431538840348619*^9}, { 3.431538876102984*^9, 3.4315389325243177`*^9}, {3.4315390028606157`*^9, 3.4315390043726597`*^9}}], Cell[TextData[{ "\[FilledSquare] ", StyleBox["Mathematica", FontSlant->"Italic"], " = Observer-Design-Pattern ( FrontEnd, Kernel )" }], "Text", CellChangeTimes->{{3.400586454848401*^9, 3.4005864579584837`*^9}, 3.40106578414351*^9, {3.431538835340506*^9, 3.431538840348619*^9}, { 3.431538876102984*^9, 3.4315389325243177`*^9}, {3.431538985856188*^9, 3.431539014331847*^9}, {3.4315403969909973`*^9, 3.4315404001810007`*^9}}], Cell[TextData[{ "\[FilledSquare] Mathematical algorithms in ", StyleBox["Mathematica", FontSlant->"Italic"] }], "Text", CellChangeTimes->{{3.400586237740959*^9, 3.400586245430653*^9}, { 3.401065751644986*^9, 3.4010657716048307`*^9}, {3.4315386976966248`*^9, 3.431538717348432*^9}}], Cell["\[FilledSquare] Programming language", "Text", CellChangeTimes->{{3.400586408728182*^9, 3.4005864148005447`*^9}, 3.401065778335903*^9, {3.431538753276517*^9, 3.431538758772299*^9}}], Cell["\[FilledSquare] Graphics", "Text", CellChangeTimes->{{3.400586420447506*^9, 3.400586424902409*^9}, 3.401065779895547*^9, {3.431538765820798*^9, 3.431538766964218*^9}}], Cell["\[FilledSquare] Parallel capabilities", "Text", CellChangeTimes->{{3.400586501403178*^9, 3.4005865102552843`*^9}, { 3.401034469734295*^9, 3.401034482402315*^9}, 3.401065781383515*^9, { 3.431538775588752*^9, 3.431538786900259*^9}}], Cell["\<\ \[FilledSquare] Data base linking, import / export functionality\ \>", "Text", CellChangeTimes->{{3.400586501403178*^9, 3.4005865102552843`*^9}, 3.401065782607705*^9, {3.431538801900527*^9, 3.431538828916197*^9}}], Cell["\[FilledSquare] Data collections", "Text", CellChangeTimes->{{3.400586454848401*^9, 3.4005864579584837`*^9}, 3.40106578414351*^9, {3.431538835340506*^9, 3.431538840348619*^9}}], Cell["\[FilledSquare] Examples", "Text", CellChangeTimes->{{3.400586454848401*^9, 3.4005864579584837`*^9}, 3.40106578414351*^9, {3.431538835340506*^9, 3.431538840348619*^9}, { 3.432822549035658*^9, 3.432822555168866*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext", CellChangeTimes->{3.40060132049946*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ "What is ", StyleBox["Mathematica", FontSlant->"Italic"], " " }], "Section", CellChangeTimes->{{3.433159079087659*^9, 3.4331590851165333`*^9}}], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " is (mostly) evironment for technical computing." }], "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.433159176730103*^9, 3.4331592079489803`*^9}, 3.43315932353496*^9, 3.433180447535459*^9}], Cell["A commercial product.", "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.4331593610237303`*^9, 3.433159370255888*^9}, 3.433180092930654*^9, 3.433180449765738*^9}], Cell["Probably the program with most ageratums in it in the world.", "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.433159088044483*^9, 3.433159145051852*^9}, 3.433180450893964*^9}], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " works on almost all platforms, 32 or 64 bit." }], "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.433159176730103*^9, 3.4331592079489803`*^9}, 3.43315932353496*^9, {3.433179970198637*^9, 3.433180090773889*^9}}], Cell["Has extensive documentation (packaged with it and online).", "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.433159149347476*^9, 3.433159163884183*^9}, 3.433159324814827*^9, {3.4331801784711933`*^9, 3.433180216437193*^9}}], Cell["Has extensive documentation.", "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.433159149347476*^9, 3.433159163884183*^9}, 3.433159324814827*^9, {3.4331801784711933`*^9, 3.4331801887567596`*^9}}], Cell["Competitors are MATLAB, and Maple.", "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.433159149347476*^9, 3.433159163884183*^9}, 3.433159324814827*^9}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " = FrontEnd + Kernel" }], "Section", CellChangeTimes->{{3.4315412722040873`*^9, 3.431541282100588*^9}}], Cell["The Kernel does the computations", "Text", CellChangeTimes->{{3.431541287966415*^9, 3.431541300660574*^9}, { 3.432843972218874*^9, 3.432843987090703*^9}}], Cell["The Front-end handles user interaction", "Text", CellChangeTimes->{{3.4328439477964907`*^9, 3.432843990162767*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "^", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "10", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.432844008048511*^9, 3.432844045912562*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Mathematical algorithms", "Section", CellChangeTimes->{{3.431541538567881*^9, 3.4315415447328568`*^9}}], Cell[CellGroupData[{ Cell["Symbolic algorithms", "Subsection", CellChangeTimes->{{3.4315416388801537`*^9, 3.431541651005802*^9}}], Cell[CellGroupData[{ Cell["Formula manipulation", "Subsubsection", CellChangeTimes->{{3.43154171086243*^9, 3.431541719693177*^9}}], Cell[TextData[{ "Expansion of the expression ", Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"2", " ", FractionBox["1", "x"]}], "+", "2"}], ")"}], "4"], TraditionalForm]], FormatType->"TraditionalForm"], ":" }], "Text", CellChangeTimes->{{3.431542129478039*^9, 3.431542168831197*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"2", " ", RowBox[{"1", "/", "x"}]}], "+", "2"}], ")"}], "^", "4"}], "]"}]], "Input", CellChangeTimes->{{3.431541776072567*^9, 3.431541816210636*^9}, { 3.431541889431807*^9, 3.4315419024503593`*^9}, 3.431542006874468*^9}], Cell[BoxData[ RowBox[{"112", "+", FractionBox["16", SuperscriptBox["x", "4"]], "+", FractionBox["64", SuperscriptBox["x", "3"]], "+", FractionBox["96", SuperscriptBox["x", "2"]], "+", FractionBox["96", "x"], "+", RowBox[{"96", " ", "x"}], "+", RowBox[{"56", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"48", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"24", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "6"]}], "+", SuperscriptBox["x", "8"]}]], "Output", CellChangeTimes->{{3.431541807970248*^9, 3.431541816797965*^9}, { 3.431541890270896*^9, 3.4315419035415707`*^9}, 3.4315419466876097`*^9, { 3.431542007384479*^9, 3.431542055685856*^9}}] }, Open ]], Cell["Common denominator", "Text", CellChangeTimes->{{3.431542183320956*^9, 3.431542190668655*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Together", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.431541905479765*^9, 3.431541909351159*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"16", "+", RowBox[{"64", " ", "x"}], "+", RowBox[{"96", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"96", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"112", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"96", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"56", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"48", " ", SuperscriptBox["x", "7"]}], "+", RowBox[{"24", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "9"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "10"]}], "+", SuperscriptBox["x", "12"]}], SuperscriptBox["x", "4"]]], "Output", CellChangeTimes->{ 3.431541910307362*^9, 3.431541947853183*^9, {3.431542009078682*^9, 3.4315420565342627`*^9}}] }, Open ]], Cell["Simplification", "Text", CellChangeTimes->{{3.431542200069332*^9, 3.43154221302072*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Factor", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.431541936500986*^9, 3.4315419440056257`*^9}}], Cell[BoxData[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "3"]}], ")"}], "4"], SuperscriptBox["x", "4"]]], "Output", CellChangeTimes->{ 3.431541948731769*^9, {3.431542010078186*^9, 3.431542057630653*^9}}] }, Open ]], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "3"}], "+", RowBox[{"2", "x"}], "+", "2"}], ")"}], "^", "d"}], "]"}], ",", RowBox[{"{", RowBox[{"d", ",", "1", ",", "14", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4315418233606977`*^9, 3.431541856082597*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Symbolic differentiation and integration", "Subsubsection", CellChangeTimes->{{3.431542726349453*^9, 3.431542767030856*^9}}], Cell["Find the second derivative", "Text", CellChangeTimes->{{3.431542065096953*^9, 3.431542088516768*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.431542045216391*^9, 3.4315420529056387`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"32", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "3"]}], ")"}], "3"]}], SuperscriptBox["x", "5"]]}], "+", FractionBox[ RowBox[{"20", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "3"]}], ")"}], "4"]}], SuperscriptBox["x", "6"]], "+", FractionBox[ RowBox[{ RowBox[{"12", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "3"]}], ")"}], "2"]}], "+", RowBox[{"24", " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "3"]}], ")"}], "3"]}]}], SuperscriptBox["x", "4"]]}]], "Output", CellChangeTimes->{3.431542058863008*^9}] }, Open ]], Cell[TextData[{ "Integrate over ", Cell[BoxData[ FormBox["x", TraditionalForm]], FormatType->"TraditionalForm"] }], "Text", CellChangeTimes->{{3.431542091113276*^9, 3.431542113485549*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{"%", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.431541921914571*^9, 3.431541925749642*^9}, { 3.4315419644461184`*^9, 3.4315419795841103`*^9}, {3.431542016276909*^9, 3.43154202323243*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["64", SuperscriptBox["x", "5"]]}], "-", FractionBox["192", SuperscriptBox["x", "4"]], "-", FractionBox["192", SuperscriptBox["x", "3"]], "-", FractionBox["96", SuperscriptBox["x", "2"]], "+", RowBox[{"112", " ", "x"}], "+", RowBox[{"144", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"96", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"40", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"48", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "7"]}]}]], "Output", CellChangeTimes->{ 3.431541926362906*^9, {3.43154197413647*^9, 3.431541979952743*^9}, { 3.431542011573958*^9, 3.431542061197784*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Various special functions", "Subsubsection", CellChangeTimes->{{3.400586454848401*^9, 3.4005864579584837`*^9}, 3.40106578414351*^9, {3.431538835340506*^9, 3.431538840348619*^9}, { 3.431538876102984*^9, 3.4315389325243177`*^9}, {3.4315390028606157`*^9, 3.4315390043726597`*^9}, {3.4315415934480543`*^9, 3.431541611044663*^9}, { 3.4315422329435062`*^9, 3.431542233316856*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"fn", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "c"}], ",", "c"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"fn", ",", RowBox[{"{", RowBox[{"Sin", ",", "Cos", ",", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{"3", ",", "#"}], "]"}], "&"}], ",", RowBox[{ RowBox[{"BesselY", "[", RowBox[{"3", ",", "#"}], "]"}], "&"}], ",", "Zeta"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"{", RowBox[{"10", ",", "40", ",", "120"}], "}"}]}], "}"}]}], "]"}]], "Input",\ CellChangeTimes->{{3.431542278903091*^9, 3.4315423541302147`*^9}, { 3.431542433410387*^9, 3.431542552583974*^9}, {3.431542583177272*^9, 3.431542588297515*^9}, {3.4315426236195*^9, 3.43154264451924*^9}}], Cell["Some people also find these very important", "Text", CellChangeTimes->{{3.431542801540045*^9, 3.4315428310410957`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Equation Solvers", "Subsubsection", CellChangeTimes->{{3.4315429855438843`*^9, 3.431542994684799*^9}}], Cell["Algebraic equation", "Text", CellChangeTimes->{{3.43154311990558*^9, 3.431543125308818*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"12", "x"}], "+", "12"}], " ", "\[Equal]", "0"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.431542999613236*^9, 3.43154303421065*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"2", " ", RowBox[{"(", RowBox[{"3", "-", SqrtBox["6"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"2", " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["6"]}], ")"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.431543019255034*^9, 3.4315430347921667`*^9}}] }, Open ]], Cell["System of equations", "Text", CellChangeTimes->{{3.431543131054285*^9, 3.4315431349809217`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"12", "y"}], "+", "12"}], " ", "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ SuperscriptBox["y", "2"], "-", RowBox[{"120", SuperscriptBox["x", "2"]}], "+", "2"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.431542999613236*^9, 3.4315431028575487`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y", "\[Rule]", RowBox[{"720", "+", SqrtBox["516958"]}]}], ",", RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"3", " ", RowBox[{"(", RowBox[{"719", "+", SqrtBox["516958"]}], ")"}]}]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "\[Rule]", RowBox[{"720", "+", SqrtBox["516958"]}]}], ",", RowBox[{"x", "\[Rule]", RowBox[{"2", " ", SqrtBox[ RowBox[{"3", " ", RowBox[{"(", RowBox[{"719", "+", SqrtBox["516958"]}], ")"}]}]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "\[Rule]", RowBox[{"1", "+", FractionBox["3", RowBox[{"719", "+", SqrtBox["516958"]}]]}]}], ",", RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox["6", SqrtBox[ RowBox[{"719", "+", SqrtBox["516958"]}]]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "\[Rule]", RowBox[{"1", "+", FractionBox["3", RowBox[{"719", "+", SqrtBox["516958"]}]]}]}], ",", RowBox[{"x", "\[Rule]", FractionBox["6", SqrtBox[ RowBox[{"719", "+", SqrtBox["516958"]}]]]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.431543082267138*^9, 3.431543103774375*^9}, { 3.431544764100828*^9, 3.431544787736981*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "/.", "%"}], "]"}]], "Input", CellChangeTimes->{{3.431544755695662*^9, 3.431544785622314*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "131.36199970003943`"}], ",", "1438.997913766097`"}], "}"}], ",", RowBox[{"{", RowBox[{"131.36199970003943`", ",", "1438.997913766097`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.15822391359972793`"}], ",", "1.002086233902901`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15822391359972793`", ",", "1.002086233902901`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.4315447653128*^9, 3.431544788796274*^9}}] }, Open ]], Cell[TextData[{ "Using ", StyleBox["Reduce", "Program"], " for systems solving" }], "Text", CellChangeTimes->{{3.431543141528688*^9, 3.4315431601728697`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"12", "y"}], "+", "12"}], " ", "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ SuperscriptBox["y", "2"], "-", RowBox[{"120", SuperscriptBox["x", "2"]}], "+", "2"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.431542999613236*^9, 3.431543112252404*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{"-", FractionBox["6", SqrtBox[ RowBox[{"719", "+", SqrtBox["516958"]}]]]}]}], "||", RowBox[{"x", "\[Equal]", FractionBox["6", SqrtBox[ RowBox[{"719", "+", SqrtBox["516958"]}]]]}], "||", RowBox[{"x", "\[Equal]", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"3", " ", RowBox[{"(", RowBox[{"719", "+", SqrtBox["516958"]}], ")"}]}]]}]}], "||", RowBox[{"x", "\[Equal]", RowBox[{"2", " ", SqrtBox[ RowBox[{"3", " ", RowBox[{"(", RowBox[{"719", "+", SqrtBox["516958"]}], ")"}]}]]}]}]}], ")"}], "&&", RowBox[{"y", "\[Equal]", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{"12", "+", SuperscriptBox["x", "2"]}], ")"}]}]}]}]], "Output", CellChangeTimes->{3.431543112939938*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["DSolve", "Subsubsection", CellChangeTimes->{{3.431543044469755*^9, 3.431543045255446*^9}, { 3.431543191319735*^9, 3.431543197292986*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DSolve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"y", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "+", RowBox[{"D", "[", RowBox[{ RowBox[{"y", "[", "x", "]"}], ",", "x"}], "]"}], "+", RowBox[{"12", RowBox[{"y", "[", "x", "]"}]}]}], "\[Equal]", "12"}], ",", RowBox[{"y", "[", "x", "]"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.431543199016206*^9, 3.4315432526078453`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"y", "[", "x", "]"}], "\[Rule]", RowBox[{"1", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "/", "2"}]], " ", RowBox[{"C", "[", "2", "]"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox["47"], " ", "x"}], "2"], "]"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "/", "2"}]], " ", RowBox[{"C", "[", "1", "]"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox["47"], " ", "x"}], "2"], "]"}]}]}]}], "}"}], "}"}]], "Output",\ CellChangeTimes->{3.4315432534016237`*^9}] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Numerical algorithms", "Subsection", CellChangeTimes->{{3.4315428604994183`*^9, 3.431542868636805*^9}}], Cell[CellGroupData[{ Cell["Linear algebra", "Subsubsection", CellChangeTimes->{{3.431543303527319*^9, 3.431543308101012*^9}}], Cell["BLAS /LAPACK utilization", "Text", CellChangeTimes->{{3.431543410926508*^9, 3.431543423385103*^9}, 3.433180455271264*^9}], Cell["Sparse Arrays", "Text", CellChangeTimes->{{3.431543434316162*^9, 3.431543444441319*^9}}] }, Open ]], Cell["Optimization", "Subsubsection", CellChangeTimes->{{3.431543315286641*^9, 3.431543318116899*^9}}], Cell["Numerical solvers of ODE's and PDE's", "Subsubsection", CellChangeTimes->{{3.4315428778143167`*^9, 3.431542924926898*^9}, { 3.4315429578696833`*^9, 3.431542976788768*^9}}], Cell[CellGroupData[{ Cell["Numerical integration", "Subsubsection", CellChangeTimes->{{3.431542937571157*^9, 3.431542955180936*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Programming language", "Section", CellChangeTimes->{{3.4315435107539883`*^9, 3.43154351622891*^9}}], Cell["\<\ Multi-paradigm language support -- support of both functional programming and \ procedural programming.\ \>", "Text", CellChangeTimes->{{3.431543758544222*^9, 3.4315437848326902`*^9}, { 3.432822629201252*^9, 3.4328226808973513`*^9}}], Cell["Functional programming is the way to go!", "Text", CellChangeTimes->{{3.431543790636815*^9, 3.431543831980894*^9}, { 3.431544130273383*^9, 3.431544164173141*^9}, {3.43284414193784*^9, 3.432844156994775*^9}, 3.4331804572939053`*^9}], Cell["\<\ It is very similar to LISP. Hence can support / implement all programming \ paradigms.\ \>", "Text", CellChangeTimes->{{3.431543790636815*^9, 3.431543831980894*^9}, { 3.431544130273383*^9, 3.431544164173141*^9}, {3.43284414193784*^9, 3.432844156994775*^9}}], Cell[CellGroupData[{ Cell["Recursion and its replacement with combinators", "Subsection", CellChangeTimes->{{3.431544176523705*^9, 3.431544196668119*^9}}], Cell[CellGroupData[{ Cell["Two types of loops", "Subsubsection", CellChangeTimes->{{3.4315442466414423`*^9, 3.431544260717105*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"F", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.431544271000865*^9, 3.431544283510429*^9}, { 3.431544316599043*^9, 3.4315443203868732`*^9}, {3.431544882156815*^9, 3.431544882394093*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"F", "[", "1", "]"}], ",", RowBox[{"F", "[", "2", "]"}], ",", RowBox[{"F", "[", "3", "]"}], ",", RowBox[{"F", "[", "4", "]"}], ",", RowBox[{"F", "[", "5", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.431544284818583*^9, 3.431544321066041*^9, 3.43154488327353*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Fold", "[", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"#1", ",", "#2"}], "]"}], "&"}], ",", "0", ",", RowBox[{"Array", "[", RowBox[{"x", ",", "5"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.431544286866784*^9, 3.431544350459708*^9}, { 3.431544388757657*^9, 3.431544431928699*^9}, {3.431544490377368*^9, 3.431544495164769*^9}}], Cell[BoxData[ RowBox[{"F", "[", RowBox[{ RowBox[{"F", "[", RowBox[{ RowBox[{"F", "[", RowBox[{ RowBox[{"F", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"0", ",", RowBox[{"x", "[", "1", "]"}]}], "]"}], ",", RowBox[{"x", "[", "2", "]"}]}], "]"}], ",", RowBox[{"x", "[", "3", "]"}]}], "]"}], ",", RowBox[{"x", "[", "4", "]"}]}], "]"}], ",", RowBox[{"x", "[", "5", "]"}]}], "]"}]], "Output", CellChangeTimes->{{3.431544394021449*^9, 3.431544432295788*^9}, { 3.4315444910124607`*^9, 3.431544496000998*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FoldList", "[", RowBox[{ RowBox[{ RowBox[{"Plus", "[", RowBox[{"#1", ",", "#2"}], "]"}], "&"}], ",", "0", ",", RowBox[{"Range", "[", RowBox[{"1", ",", "10"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.431544286866784*^9, 3.431544350459708*^9}, { 3.431544388757657*^9, 3.4315444474018793`*^9}, {3.431544846248104*^9, 3.43154485927418*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "10", ",", "15", ",", "21", ",", "28", ",", "36", ",", "45", ",", "55"}], "}"}]], "Output", CellChangeTimes->{ 3.43154444871187*^9, {3.431544850956499*^9, 3.431544859722166*^9}}] }, Open ]], Cell["\<\ We will see later that this is important for specification of parallel \ computations.\ \>", "Text", CellChangeTimes->{{3.4315445539860353`*^9, 3.431544597685*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Superposition", "Subsubsection", CellChangeTimes->{{3.4328227102279778`*^9, 3.4328227159852753`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FixedPoint", "[", RowBox[{"ParentDirectory", ",", "$UserBaseDirectory"}], "]"}]], "Input", CellChangeTimes->{{3.432823471792356*^9, 3.432823476020897*^9}, { 3.4328235641893587`*^9, 3.43282357803209*^9}}], Cell[BoxData["\<\"/\"\>"], "Output", CellChangeTimes->{{3.4328234660455017`*^9, 3.4328234763708487`*^9}, { 3.432823565642501*^9, 3.432823579479693*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FixedPointList", "[", RowBox[{"ParentDirectory", ",", "$UserBaseDirectory"}], "]"}], "//", "ColumnForm"}]], "Input", CellChangeTimes->{{3.432823471792356*^9, 3.432823476020897*^9}, 3.4328235581933737`*^9}], Cell[BoxData[ InterpretationBox[GridBox[{ {"\<\"/Users/antonov/Library/Mathematica\"\>"}, {"\<\"/Users/antonov/Library\"\>"}, {"\<\"/Users/antonov\"\>"}, {"\<\"/Users\"\>"}, {"\<\"/\"\>"}, {"\<\"/\"\>"} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], ColumnForm[{ "/Users/antonov/Library/Mathematica", "/Users/antonov/Library", "/Users/antonov", "/Users", "/", "/"}], Editable->False]], "Output", CellChangeTimes->{3.432823560901271*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Nest", "[", RowBox[{"Framed", ",", "x", ",", "6"}], "]"}]], "Input", CellChangeTimes->{{3.431544933296438*^9, 3.4315449581538153`*^9}}], Cell[BoxData[ FrameBox[ FrameBox[ FrameBox[ FrameBox[ FrameBox[ FrameBox["x", StripOnInput->False], StripOnInput->False], StripOnInput->False], StripOnInput->False], StripOnInput->False], StripOnInput->False]], "Output", CellChangeTimes->{3.4315449590740337`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"Subsuperscript", "[", RowBox[{"#", ",", "#", ",", "#"}], "]"}], "&"}], ",", "\"\<\[LeftTriangle]\>\"", ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.431544979195644*^9, 3.4315450579990177`*^9}, 3.431545108979477*^9, {3.431545141021757*^9, 3.431545176850093*^9}, { 3.432823592236246*^9, 3.4328235930048513`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"\[LeftTriangle]\"\>", ",", InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\>", "\ \<\"\[LeftTriangle]\"\>"], Subsuperscript["\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], ",", InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\>", \ "\<\"\[LeftTriangle]\"\>"], Subsuperscript["\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\>", \ "\<\"\[LeftTriangle]\"\>"], Subsuperscript["\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\>", \ "\<\"\[LeftTriangle]\"\>"], Subsuperscript["\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript["\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript["\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript["\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], ",", InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", \ "\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", \ "\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", \ "\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", \ "\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", \ "\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", \ "\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", \ "\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", \ "\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", \ "\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript["\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript["\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript["\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript["\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript["\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript["\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Editable->False], ",", InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\"\ \>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]]], Editable->False], ",", InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False], InterpretationBox[ SubsuperscriptBox[ InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False], InterpretationBox[ SubsuperscriptBox["\<\"\[LeftTriangle]\"\>", "\<\"\[LeftTriangle]\ \"\>", "\<\"\[LeftTriangle]\"\>"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Editable->False]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]]], Editable->False]], Subsuperscript[ Subsuperscript[ Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]], Subsuperscript[ Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]], Subsuperscript[ Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"], Subsuperscript[ "\[LeftTriangle]", "\[LeftTriangle]", "\[LeftTriangle]"]]]]], Editable->False]}], "}"}]], "Output", CellChangeTimes->{{3.4315449868443937`*^9, 3.431544991839664*^9}, 3.431545058407586*^9, {3.431545138545311*^9, 3.4315451774211617`*^9}, 3.432823593627721*^9}] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Procedural commands", "Subsection", CellChangeTimes->{{3.431544620983624*^9, 3.431544637333241*^9}, { 3.431544732510735*^9, 3.431544732733469*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "16", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.431544286866784*^9, 3.431544350459708*^9}, { 3.431544388757657*^9, 3.4315444474018793`*^9}, {3.431544614065555*^9, 3.431544680721603*^9}}], Cell[CellGroupData[{ Cell[BoxData["1"], "Print", CellChangeTimes->{{3.431544656912435*^9, 3.431544681777807*^9}}], Cell[BoxData["6"], "Print", CellChangeTimes->{{3.431544656912435*^9, 3.431544681780383*^9}}], Cell[BoxData["11"], "Print", CellChangeTimes->{{3.431544656912435*^9, 3.431544681784752*^9}}], Cell[BoxData["16"], "Print", CellChangeTimes->{{3.431544656912435*^9, 3.431544681788903*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "16", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.431544661786647*^9, 3.431544690886395*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "6", ",", "11", ",", "16"}], "}"}]], "Output", CellChangeTimes->{{3.431544669484867*^9, 3.431544691658978*^9}}] }, Open ]], Cell["\<\ Apply a function to each tuple of a Cartesian product of data\ \>", "Text", CellChangeTimes->{{3.431545212110547*^9, 3.431545230181078*^9}, { 3.43282362434151*^9, 3.4328236831853447`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Outer", "[", RowBox[{"F", ",", RowBox[{"Range", "[", RowBox[{"1", ",", "4"}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"1", ",", "3"}], "]"}]}], "]"}], "//", "TableForm"}]], "Input", CellChangeTimes->{{3.431544701087955*^9, 3.431544725857933*^9}, { 3.431545235765395*^9, 3.431545251923321*^9}}], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"F", "[", RowBox[{"1", ",", "1"}], "]"}], RowBox[{"F", "[", RowBox[{"1", ",", "2"}], "]"}], RowBox[{"F", "[", RowBox[{"1", ",", "3"}], "]"}]}, { RowBox[{"F", "[", RowBox[{"2", ",", "1"}], "]"}], RowBox[{"F", "[", RowBox[{"2", ",", "2"}], "]"}], RowBox[{"F", "[", RowBox[{"2", ",", "3"}], "]"}]}, { RowBox[{"F", "[", RowBox[{"3", ",", "1"}], "]"}], RowBox[{"F", "[", RowBox[{"3", ",", "2"}], "]"}], RowBox[{"F", "[", RowBox[{"3", ",", "3"}], "]"}]}, { RowBox[{"F", "[", RowBox[{"4", ",", "1"}], "]"}], RowBox[{"F", "[", RowBox[{"4", ",", "2"}], "]"}], RowBox[{"F", "[", RowBox[{"4", ",", "3"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.431544726356265*^9, {3.431545236303186*^9, 3.431545252453189*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"coords", "=", RowBox[{"Outer", "[", RowBox[{"List", ",", RowBox[{"Range", "[", RowBox[{"1", ",", "4"}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"1", ",", "3"}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"1", ",", "5"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.431544701087955*^9, 3.431544725857933*^9}, { 3.431545235765395*^9, 3.431545251923321*^9}, 3.43282365966378*^9, { 3.432823694133787*^9, 3.4328237000249233`*^9}, {3.43282374324821*^9, 3.432823751935134*^9}, {3.432823796903373*^9, 3.4328238609475517`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "5"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "5"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "5"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.4328237005158377`*^9, 3.4328237523858128`*^9, 3.4328238058141527`*^9, { 3.432823837402152*^9, 3.432823870584847*^9}, 3.432823927271083*^9}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Graphics", "Section", CellChangeTimes->{{3.432824016900126*^9, 3.43282402116127*^9}}], Cell["First let's apply ", "Text", CellChangeTimes->{{3.432824808435348*^9, 3.432824814073502*^9}}], Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"Point", ",", "coords", ",", RowBox[{"{", RowBox[{"-", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.432823936292726*^9, 3.432823941472794*^9}}], Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{"Map", "[", RowBox[{"Point", ",", "coords", ",", RowBox[{"{", RowBox[{"-", "2"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.432823813757305*^9, 3.432823818121749*^9}, { 3.432823863640189*^9, 3.4328239146584787`*^9}, {3.43282394552378*^9, 3.432823981021617*^9}}], Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Map", "[", RowBox[{"Point", ",", "coords", ",", RowBox[{"{", RowBox[{"-", "2"}], "}"}]}], "]"}], ",", "Black", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Text", "[", RowBox[{"#", ",", "#", ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "]"}], "&"}], ",", "coords", ",", RowBox[{"{", RowBox[{"-", "2"}], "}"}]}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.432823813757305*^9, 3.432823818121749*^9}, { 3.432823863640189*^9, 3.4328239146584787`*^9}, {3.43282394552378*^9, 3.432823981021617*^9}, {3.432824030169766*^9, 3.432824126040023*^9}, { 3.432824967896051*^9, 3.4328249689321623`*^9}}], Cell[BoxData[ RowBox[{"coords", "=", RowBox[{"Flatten", "[", RowBox[{"coords", ",", "2"}], "]"}]}]], "Input", CellChangeTimes->{{3.4328248575184307`*^9, 3.432824886981842*^9}}], Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Map", "[", RowBox[{"Point", ",", "coords"}], "]"}], ",", "Black", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Text", "[", RowBox[{"#", ",", "#", ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "]"}], "&"}], ",", "coords"}], "]"}], ",", "Blue", ",", RowBox[{"Line", "[", "coords", "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.432823813757305*^9, 3.432823818121749*^9}, { 3.432823863640189*^9, 3.4328239146584787`*^9}, {3.43282394552378*^9, 3.432823981021617*^9}, {3.432824030169766*^9, 3.432824126040023*^9}, 3.432824823265815*^9, {3.4328249002400417`*^9, 3.4328249043141317`*^9}, { 3.432824943268139*^9, 3.432825014371923*^9}, {3.4328250448663797`*^9, 3.4328250476599617`*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Graphics", "Section", CellChangeTimes->{{3.4315452726422243`*^9, 3.431545274605199*^9}}], Cell[CellGroupData[{ Cell["Function plotting", "Subsection", CellChangeTimes->{{3.43282416569803*^9, 3.432824174713273*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"x", "^", "2"}], "]"}], "+", RowBox[{"x", "/", "10"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4328241764144907`*^9, 3.432824219798232*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"x", " ", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "4"}], "}"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.4315456688635674`*^9, 3.4315457104394093`*^9}, { 3.431545741075564*^9, 3.43154574559198*^9}, {3.432246482703763*^9, 3.432246498559705*^9}}, CellID->50579370], 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[{"PlotStyle", "\[Rule]", RowBox[{"Specularity", "[", RowBox[{"White", ",", "50"}], "]"}]}], ",", RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.431545599819653*^9, 3.4315456002221107`*^9}}, CellID->1054715] }, Open ]], Cell[CellGroupData[{ Cell["2D graphics", "Subsection", CellChangeTimes->{{3.4315455074689007`*^9, 3.431545522813314*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"DensityPlot", "[", RowBox[{ RowBox[{"fn", "[", RowBox[{"x", "+", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "c"}], ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "c"}], ",", "c"}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "meshOpt"}]}], "]"}], ",", RowBox[{"{", RowBox[{"fn", ",", RowBox[{"{", RowBox[{"Sin", ",", "Log", ",", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{"2", ",", "#"}], "]"}], "&"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "12"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"meshOpt", ",", RowBox[{"{", RowBox[{"False", ",", "True", ",", "All"}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4315458195015383`*^9, 3.4315460235427513`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["3D graphics", "Subsection", CellChangeTimes->{{3.431545525876746*^9, 3.4315455284452353`*^9}}], Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.35", "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "k"}], "}"}], "+", "0.9"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "5"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{{3.431545321529028*^9, 3.4315454754719973`*^9}, { 3.4315455590680523`*^9, 3.43154556116562*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Data Collections", "Section", CellChangeTimes->{{3.433159577271785*^9, 3.433159580468045*^9}}], Cell[CellGroupData[{ Cell["Chemical data", "Subsection", CellChangeTimes->{{3.4331595852908688`*^9, 3.433159594836535*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"vals", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"ChemicalData", "[", RowBox[{"#", ",", "prop"}], "]"}], ",", RowBox[{"{", RowBox[{"prop", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}], "]"}], "&"}], "/@", RowBox[{"ChemicalData", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "]"}]}]}], ";"}]], "Input", CellID->1804925199], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Text", "[", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"vals", "[", RowBox[{"[", RowBox[{"1", ";;", "20"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ "\"\<\>\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}], ",", RowBox[{"Frame", "\[Rule]", "All"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"LightBlue", ",", "White"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"1", "\[Rule]", "LightYellow"}], "}"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.433160363389832*^9, 3.433160363688957*^9}}, CellID->23822071], Cell[BoxData[ InterpretationBox[Cell[BoxData[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"molecular weight\"\>", "\<\"density\"\>"}, {"\<\"Na\"\>", "22.98977`7.999999999999999", "968.`3.0000000000000018"}, {"\<\"NaN\\!\\(\\*SubscriptBox[\\(H\\),\\(2\\)]\\)\"\>", "39.01235`6.380282533024864", "1390.`3.0000000000000018"}, {"\<\"NaOH \"\>", "39.99711`6.365560941867043", "2130.`2.9999999999999973"}, {"\<\"NaF\"\>", "41.9881732`8.227108882783138", "2558.`3.9999999999999996"}, { InterpretationBox[ RowBox[{ SubscriptBox["\<\"C\"\>", "2"], "\[InvisibleSpace]", "\<\"H\"\>", "\[InvisibleSpace]", "\<\"Na\"\>"}], Row[{ Subscript["C", 2], "H", "Na"}]], "48.01911`6.278993866638011", "1330.`3.0000000000000018"}, {"\<\"NaCN\"\>", "49.00717`6.271175027085798", "1595.`3.9999999999999996"}, { InterpretationBox[ RowBox[{"\<\"Al\"\>", "\[InvisibleSpace]", SubscriptBox["\<\"H\"\>", "4"], "\[InvisibleSpace]", "\<\"Na\"\>"}], Row[{"Al", Subscript["H", 4], "Na"}]], "54.003068`7.076179029147518", "1240.`2.9999999999999973"}, {"\<\"NaOC\\!\\(\\*SubscriptBox[\\(H\\),\\(3\\)]\\)\"\>", "54.02369`6.237542234975021", "990.`1.9999999999999998"}, { InterpretationBox[ RowBox[{"\<\"Na\"\>", "\[InvisibleSpace]", InterpretationBox[ SubsuperscriptBox["\<\"O\"\>", "2", "\<\"+\"\>"], Subsuperscript["O", 2, "+"], Editable->False]}], Row[{"Na", Subsuperscript["O", 2, "+"]}]], "54.98857`6.2320296689671455", "2200.`1.9999999999999998"}, {"\<\"NaHS\"\>", "56.06271`5.240969519682253", "1790.`2.9999999999999973"}, {"\<\"NaCl \"\>", "58.44277`5.216796270925939", "2160.`2.9999999999999973"}, { InterpretationBox[ RowBox[{ SubscriptBox["\<\"F\"\>", "2"], "\[InvisibleSpace]", "\<\"H\"\>", "\[InvisibleSpace]", "\<\"Na\"\>"}], Row[{ Subscript["F", 2], "H", "Na"}]], "61.9945164`7.68655893259091", "2120.`2.9999999999999973"}, {"\<\"NaB\\!\\(\\*SubscriptBox[\\(H\\),\\(3\\)]\\)CN\"\>", "62.84199`5.660322883898425", "1115.`2.9999999999999973"}, {"\<\"NaOCN\"\>", "65.00657`6.187164484483256", "1893.`3.9999999999999996"}, {"\<\"Na\\!\\(\\*SubscriptBox[\\(N\\),\\(3\\)]\\)\"\>", "65.00987`6.187152607939617", "1850.`2.9999999999999973"}, { InterpretationBox[ RowBox[{"\<\"B\"\>", "\[InvisibleSpace]", "\<\"Na\"\>", "\[InvisibleSpace]", SubscriptBox["\<\"O\"\>", "2"]}], Row[{"B", "Na", Subscript["O", 2]}]], "65.79957`5.671045613417921", "2464.`3.9999999999999996"}, {"\<\"CH\\!\\(\\*SubscriptBox[\\(O\\),\\(2\\)]\\)Na\"\>", "68.00721`6.176961927335926", "1919.`3.9999999999999996"}, { InterpretationBox[ RowBox[{ SubscriptBox["\<\"C\"\>", "2"], "\[InvisibleSpace]", SubscriptBox["\<\"H\"\>", "5"], "\[InvisibleSpace]", "\<\"Na\"\>", "\[InvisibleSpace]", "\<\"O\"\>"}], Row[{ Subscript["C", 2], Subscript["H", 5], "Na", "O"}]], "68.05027`6.1768237183858155", "868.`2.9999999999999973"}, {"\<\"NaN\\!\\(\\*SubscriptBox[\\(O\\),\\(2\\)]\\)\"\>", "68.99527`6.173844720891998", "2168.`3.9999999999999996"}, {"\<\"ClONa \"\>", "74.44217`5.302726973552309", "1105.`2.9999999999999973"} }, ColumnsEqual->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{ RGBColor[0.87, 0.94, 1], GrayLevel[1]}}, "RowsIndexed" -> {1 -> RGBColor[1, 1, 0.85]}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, RowsEqual->False], "Grid"]], "Text", "TR"], Text[ Grid[{{"", "molecular weight", "density"}, { "Na", 22.98977`7.999999999999999, 968.`3.0000000000000018}, { "NaN\!\(\*SubscriptBox[\(H\),\(2\)]\)", 39.01235`6.380282533024864, 1390.`3.0000000000000018}, { "NaOH ", 39.99711`6.365560941867043, 2130.`2.9999999999999973}, { "NaF", 41.9881732`8.227108882783138, 2558.`3.9999999999999996}, { Row[{ Subscript["C", 2], "H", "Na"}], 48.01911`6.278993866638011, 1330.`3.0000000000000018}, { "NaCN", 49.00717`6.271175027085798, 1595.`3.9999999999999996}, { Row[{"Al", Subscript["H", 4], "Na"}], 54.003068`7.076179029147518, 1240.`2.9999999999999973}, { "NaOC\!\(\*SubscriptBox[\(H\),\(3\)]\)", 54.02369`6.237542234975021, 990.`1.9999999999999998}, { Row[{"Na", Subsuperscript["O", 2, "+"]}], 54.98857`6.2320296689671455, 2200.}, { "NaHS", 56.0627`5.240969519682253, 1790.`2.9999999999999973}, { "NaCl ", 58.4428`5.216796270925939, 2160.`2.9999999999999973}, { Row[{ Subscript["F", 2], "H", "Na"}], 61.994516`7.68655893259091, 2120.`2.9999999999999973}, { "NaB\!\(\*SubscriptBox[\(H\),\(3\)]\)CN", 62.842`5.660322883898425, 1115.`2.9999999999999973}, { "NaOCN", 65.00657`6.187164484483256, 1893.`3.9999999999999996}, { "Na\!\(\*SubscriptBox[\(N\),\(3\)]\)", 65.00987`6.187152607939617, 1850.`2.9999999999999973}, { Row[{"B", "Na", Subscript["O", 2]}], 65.7996`5.671045613417921, 2464.`3.9999999999999996}, { "CH\!\(\*SubscriptBox[\(O\),\(2\)]\)Na", 68.00721`6.176961927335926, 1919.`3.9999999999999996}, { Row[{ Subscript["C", 2], Subscript["H", 5], "Na", "O"}], 68.05027`6.1768237183858155, 868.`2.9999999999999973}, { "NaN\!\(\*SubscriptBox[\(O\),\(2\)]\)", 68.99527`6.173844720891998, 2168.`3.9999999999999996}, { "ClONa ", 74.4422`5.302726973552309, 1105.`2.9999999999999973}}, Frame -> All, Background -> {None, {{{ RGBColor[0.87, 0.94, 1], GrayLevel[1]}}, {1 -> RGBColor[1, 1, 0.85]}}}, Alignment -> Left]]]], "Output", CellChangeTimes->{3.433160284704249*^9, 3.433160364260504*^9, 3.433180652480178*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Plots", "Subsubsection", CellChangeTimes->{{3.4331599894506207`*^9, 3.4331599939647703`*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "gr", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"gr", "=", RowBox[{"ChemicalData", "[", RowBox[{"molecule", ",", "dataType"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"gr", ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"300", ",", "300"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"{", RowBox[{"molecule", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"dataType", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4331596677316017`*^9, 3.4331596737743*^9}, 3.433159703915709*^9, {3.433159740120841*^9, 3.433159912568836*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Country data", "Subsection", CellChangeTimes->{{3.433159655620419*^9, 3.433159663604898*^9}}], Cell[CellGroupData[{ Cell["Shapes and demographic data", "Subsubsection", CellChangeTimes->{{3.433163855706428*^9, 3.433163872929141*^9}}], Cell[BoxData[ RowBox[{"CountryData", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]], "Input"], Cell[TextData[ButtonBox["Country Ranking Map", BaseStyle->"Hyperlink", ButtonData->{ FrontEnd`FileName[{ ParentDirectory[ ParentDirectory[]], "Downloads"}, "CountryRankingMaps-source.nb", CharacterEncoding -> "UTF-8"], None}]], "Text", CellChangeTimes->{{3.433161410538126*^9, 3.4331614364953127`*^9}}], Cell[TextData[ButtonBox["Analysing 2008 elections", BaseStyle->"Hyperlink", ButtonData->{ URL["http://blog.wolfram.com/2008/09/24/analyzing-us-2008-elections-with-\ mathematica/"], None}]], "Text", CellChangeTimes->{{3.433180892895342*^9, 3.4331809146999073`*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Examples", "Section", CellChangeTimes->{{3.432242145352681*^9, 3.432242147131085*^9}}], Cell[TextData[{ "Morse code generator (", ButtonBox["link", BaseStyle->"Hyperlink", ButtonData->{"MorseCodeGeneratorProgramming.nb", None}], ")" }], "Text", CellChangeTimes->{{3.432824578211158*^9, 3.432824609161322*^9}, { 3.432824641820551*^9, 3.432824641824849*^9}}], Cell[TextData[{ "Air-pollution model (", ButtonBox["link", BaseStyle->"Hyperlink", ButtonData->{ FrontEnd`FileName[{ ParentDirectory[], "WT2007"}, "WT2007_3DPollutionModelingWith_gridMathematica.nb", CharacterEncoding -> "UTF-8"], None}], ")" }], "Text", CellChangeTimes->{{3.432242308134428*^9, 3.432242325818737*^9}, { 3.433159409904203*^9, 3.433159430843629*^9}}], Cell[TextData[{ "Parallel heap (", ButtonBox["link", BaseStyle->"Hyperlink", ButtonData->{ FrontEnd`FileName[{ ParentDirectory[], "WT2007"}, "WT2007_ParallelHeapObject.nb", CharacterEncoding -> "UTF-8"], None}], ")" }], "Text", CellChangeTimes->{{3.4331594359116163`*^9, 3.433159465359975*^9}}], Cell[TextData[{ "Digit recognition (", ButtonBox["link", BaseStyle->"Hyperlink", ButtonData->{ FrontEnd`FileName[{ ParentDirectory[], "Demonstrations"}, "DigitRecognition.nb", CharacterEncoding -> "UTF-8"], None}], ")" }], "Text", CellChangeTimes->{{3.432242608535453*^9, 3.432242612266946*^9}, { 3.432253059873645*^9, 3.432253079164609*^9}, {3.4322531339277*^9, 3.43225313393186*^9}}], Cell[TextData[{ "Music interval training (", ButtonBox["link", BaseStyle->"Hyperlink", ButtonData->{ FrontEnd`FileName[{ ParentDirectory[], "Music"}, "Intervals_tohear.nb", CharacterEncoding -> "UTF-8"], None}], ")" }], "Text", CellChangeTimes->{{3.432242660312965*^9, 3.432242665803053*^9}, { 3.432824648876155*^9, 3.432824674529132*^9}}], Cell[TextData[{ "Molecule contact surface (", ButtonBox["link", BaseStyle->"Hyperlink", ButtonData->{ FrontEnd`FileName[{ ParentDirectory[], "ComputationalChemistry"}, "VWS_article.nb", CharacterEncoding -> "UTF-8"], None}], ")" }], "Text", CellChangeTimes->{{3.433162087979271*^9, 3.4331621024337683`*^9}, { 3.433162150740528*^9, 3.4331621507456017`*^9}}], Cell[TextData[{ "Page rank and prestige (", ButtonBox["link", BaseStyle->"Hyperlink", ButtonData->{ FrontEnd`FileName[{ ParentDirectory[], "DataMining"}, "MathematicaSymbolsRank.nb", CharacterEncoding -> "UTF-8"], None}], ")" }], "Text", CellChangeTimes->{{3.432243554653401*^9, 3.432243558035038*^9}, { 3.432243923598874*^9, 3.432243928371065*^9}, {3.433180132149173*^9, 3.433180148052589*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Summary", "Section", CellChangeTimes->{{3.369076494861*^9, 3.36907650154534*^9}, { 3.36918912787676*^9, 3.36918913048792*^9}}], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " is obviously great and you should buy it a lot often." }], "Text", CellChangeTimes->{{3.432824738509451*^9, 3.432824760969252*^9}}], Cell["\<\ There is professional version ($2600+) and a student version ( \[TildeTilde] \ $200 )\ \>", "Text", CellChangeTimes->{{3.433159479547282*^9, 3.433159550387517*^9}, 3.433180460414818*^9, {3.433194212681964*^9, 3.433194224295472*^9}, 3.4332023654860973`*^9}], Cell["Also you might one to take a look at ", "Text", CellChangeTimes->{{3.433180236584838*^9, 3.433180248901107*^9}, 3.433180462904373*^9}], Cell[TextData[{ "Demonstration site ", ButtonBox["http://demonstrations.wolfram.com", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com"], None}] }], "Text", CellChangeTimes->{{3.4331802537299757`*^9, 3.433180291448238*^9}}], Cell[TextData[{ "Math ecyclopedia site ", ButtonBox[" http://mathworld.wolfram.com/", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/"], None}] }], "Text", CellChangeTimes->{{3.433180358213561*^9, 3.433180402664995*^9}}], Cell[TextData[{ "Special functions site ", ButtonBox["http://functions.wolfram.com/", BaseStyle->"Hyperlink", ButtonData->{ URL["http://functions.wolfram.com/"], None}] }], "Text", CellChangeTimes->{{3.433180311274543*^9, 3.4331803533428698`*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]] }, ScreenStyleEnvironment->"SlideShow", WindowSize->{1243, 856}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Magnification->1.25, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (May 21, 2008)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Stylesheet.nb"]], Cell[ StyleData["Subsection"], FontColor -> RGBColor[0.5000076295109483, 0., 0.5000076295109483]], Cell[ StyleData["Subsubsection"], FontColor -> RGBColor[0., 0., 1.]]}, Visible -> False, FrontEndVersion -> "6.0 for Mac OS X x86 (32-bit) (May 21, 2008)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[1716, 59, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[5620, 162, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[8309, 242, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[10010, 296, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[27707, 919, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[127305, 3500, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[130956, 3605, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[136075, 3772, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[146575, 4055, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[150170, 4177, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 153345, 4275} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 379, 12, 130, "Title"], Cell[972, 37, 97, 1, 57, "Author"], Cell[1072, 40, 111, 1, 82, "Affiliation"], Cell[1186, 43, 493, 11, 30, "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[1716, 59, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[1805, 64, 183, 2, 88, "Section"], Cell[1991, 68, 395, 8, 32, "Text"], Cell[2389, 78, 366, 9, 32, "Text"], Cell[2758, 89, 439, 9, 33, "Text"], Cell[3200, 100, 291, 7, 33, "Text"], Cell[3494, 109, 192, 2, 33, "Text"], Cell[3689, 113, 178, 2, 33, "Text"], Cell[3870, 117, 243, 3, 33, "Text"], Cell[4116, 122, 228, 4, 33, "Text"], Cell[4347, 128, 187, 2, 32, "Text"], Cell[4537, 132, 229, 3, 33, "Text"], Cell[4769, 137, 802, 19, 30, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5620, 162, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[5709, 167, 165, 6, 88, "Section"], Cell[5877, 175, 276, 7, 32, "Text"], Cell[6156, 184, 186, 3, 32, "Text"], Cell[6345, 189, 201, 3, 32, "Text"], Cell[6549, 194, 297, 7, 32, "Text"], Cell[6849, 203, 247, 3, 32, "Text"], Cell[7099, 208, 219, 3, 32, "Text"], Cell[7321, 213, 175, 3, 32, "Text"], Cell[7499, 218, 761, 18, 30, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8309, 242, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[8398, 247, 171, 5, 88, "Section"], Cell[8572, 254, 163, 2, 32, "Text"], Cell[8738, 258, 122, 1, 32, "Text"], Cell[8863, 261, 334, 9, 30, "Input"], Cell[9200, 272, 761, 18, 30, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10010, 296, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[10099, 301, 110, 1, 88, "Section"], Cell[CellGroupData[{ Cell[10234, 306, 109, 1, 65, "Subsection"], Cell[CellGroupData[{ Cell[10368, 311, 110, 1, 53, "Subsubsection"], Cell[10481, 314, 381, 13, 45, "Text"], Cell[CellGroupData[{ Cell[10887, 331, 363, 10, 30, "Input"], Cell[11253, 343, 798, 23, 51, "Output"] }, Open ]], Cell[12066, 369, 100, 1, 31, "Text"], Cell[CellGroupData[{ Cell[12191, 374, 127, 2, 30, "Input"], Cell[12321, 378, 825, 26, 55, "Output"] }, Open ]], Cell[13161, 407, 95, 1, 31, "Text"], Cell[CellGroupData[{ Cell[13281, 412, 127, 2, 30, "Input"], Cell[13411, 416, 299, 9, 60, "Output"] }, Open ]], Cell[13725, 428, 397, 11, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[14159, 444, 131, 1, 42, "Subsubsection"], Cell[14293, 447, 108, 1, 31, "Text"], Cell[CellGroupData[{ Cell[14426, 452, 194, 5, 30, "Input"], Cell[14623, 459, 1269, 43, 112, "Output"] }, Open ]], Cell[15907, 505, 195, 6, 31, "Text"], Cell[CellGroupData[{ Cell[16127, 515, 252, 5, 30, "Input"], Cell[16382, 522, 750, 24, 51, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[17181, 552, 395, 5, 42, "Subsubsection"], Cell[17579, 559, 928, 27, 50, "Input"], Cell[18510, 588, 126, 1, 31, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[18673, 594, 109, 1, 42, "Subsubsection"], Cell[18785, 597, 99, 1, 31, "Text"], Cell[CellGroupData[{ Cell[18909, 602, 270, 8, 38, "Input"], Cell[19182, 612, 449, 15, 38, "Output"] }, Open ]], Cell[19646, 630, 103, 1, 31, "Text"], Cell[CellGroupData[{ Cell[19774, 635, 534, 17, 38, "Input"], Cell[20311, 654, 1545, 54, 231, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21893, 713, 193, 5, 30, "Input"], Cell[22089, 720, 549, 16, 30, "Output"] }, Open ]], Cell[22653, 739, 162, 5, 32, "Text"], Cell[CellGroupData[{ Cell[22840, 748, 533, 17, 38, "Input"], Cell[23376, 767, 994, 36, 138, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[24419, 809, 146, 2, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[24590, 815, 549, 16, 30, "Input"], Cell[25142, 833, 756, 25, 55, "Output"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[25959, 865, 110, 1, 65, "Subsection"], Cell[CellGroupData[{ Cell[26094, 870, 105, 1, 53, "Subsubsection"], Cell[26202, 873, 132, 2, 32, "Text"], Cell[26337, 877, 95, 1, 32, "Text"] }, Open ]], Cell[26447, 881, 103, 1, 53, "Subsubsection"], Cell[26553, 884, 180, 2, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[26758, 890, 112, 1, 42, "Subsubsection"], Cell[26873, 893, 761, 18, 96, "PreviousNext"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27707, 919, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[27796, 924, 106, 1, 105, "Section"], Cell[27905, 927, 246, 5, 70, "Text"], Cell[28154, 934, 245, 3, 45, "Text"], Cell[28402, 939, 274, 6, 45, "Text"], Cell[CellGroupData[{ Cell[28701, 949, 134, 1, 75, "Subsection"], Cell[CellGroupData[{ Cell[28860, 954, 111, 1, 74, "Subsubsection"], Cell[CellGroupData[{ Cell[28996, 959, 327, 8, 30, "Input"], Cell[29326, 969, 336, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29699, 983, 389, 10, 30, "Input"], Cell[30091, 995, 600, 17, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30728, 1017, 398, 10, 30, "Input"], Cell[31129, 1029, 267, 6, 30, "Output"] }, Open ]], Cell[31411, 1038, 175, 4, 31, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[31623, 1047, 108, 1, 53, "Subsubsection"], Cell[CellGroupData[{ Cell[31756, 1052, 233, 4, 30, "Input"], Cell[31992, 1058, 155, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32184, 1065, 252, 6, 30, "Input"], Cell[32439, 1073, 601, 17, 120, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33077, 1095, 163, 3, 30, "Input"], Cell[33243, 1100, 312, 13, 83, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33592, 1118, 410, 9, 30, "Input"], Cell[34005, 1129, 82922, 2048, 281, "Output"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[116988, 3184, 156, 2, 75, "Subsection"], Cell[CellGroupData[{ Cell[117169, 3190, 347, 8, 30, "Input"], Cell[CellGroupData[{ Cell[117541, 3202, 93, 1, 25, "Print"], Cell[117637, 3205, 93, 1, 25, "Print"], Cell[117733, 3208, 94, 1, 25, "Print"], Cell[117830, 3211, 94, 1, 25, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[117973, 3218, 217, 5, 30, "Input"], Cell[118193, 3225, 161, 3, 30, "Output"] }, Open ]], Cell[118369, 3231, 201, 4, 31, "Text"], Cell[CellGroupData[{ Cell[118595, 3239, 359, 9, 30, "Input"], Cell[118957, 3250, 1357, 44, 85, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[120351, 3299, 599, 13, 30, "Input"], Cell[120953, 3314, 5515, 158, 182, "Output"] }, Open ]], Cell[126483, 3475, 761, 18, 30, "PreviousNext"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[127305, 3500, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[127394, 3505, 92, 1, 105, "Section"], Cell[127489, 3508, 100, 1, 45, "Text"], Cell[127592, 3511, 208, 5, 44, "Input"], Cell[127803, 3518, 347, 8, 44, "Input"], Cell[128153, 3528, 864, 22, 73, "Input"], Cell[129020, 3552, 185, 4, 44, "Input"], Cell[129208, 3558, 935, 21, 101, "Input"], Cell[130146, 3581, 761, 18, 96, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[130956, 3605, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[131045, 3610, 95, 1, 105, "Section"], Cell[CellGroupData[{ Cell[131165, 3615, 104, 1, 75, "Subsection"], Cell[131272, 3618, 337, 10, 44, "Input"], Cell[131612, 3630, 605, 16, 73, "Input", CellID->50579370], Cell[132220, 3648, 898, 27, 101, "Input", CellID->1054715] }, Open ]], Cell[CellGroupData[{ Cell[133155, 3680, 101, 1, 75, "Subsection"], Cell[133259, 3683, 985, 30, 101, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[134281, 3718, 101, 1, 75, "Subsection"], Cell[134385, 3721, 865, 24, 101, "Input"], Cell[135253, 3747, 761, 18, 96, "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[136075, 3772, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[136164, 3777, 101, 1, 105, "Section"], Cell[CellGroupData[{ Cell[136290, 3782, 103, 1, 75, "Subsection"], Cell[136396, 3785, 610, 19, 157, "Input", CellID->1804925199], Cell[CellGroupData[{ Cell[137031, 3808, 917, 27, 185, "Input", CellID->23822071], Cell[137951, 3837, 6266, 138, 676, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[144254, 3980, 100, 1, 74, "Subsubsection"], Cell[144357, 3983, 1071, 29, 185, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[145477, 4018, 100, 1, 75, "Subsection"], Cell[CellGroupData[{ Cell[145602, 4023, 118, 1, 74, "Subsubsection"], Cell[145723, 4026, 179, 5, 44, "Input"], Cell[145905, 4033, 324, 7, 46, "Text"], Cell[146232, 4042, 270, 5, 46, "Text"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[146575, 4055, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[146664, 4060, 93, 1, 105, "Section"], Cell[146760, 4063, 278, 8, 46, "Text"], Cell[147041, 4073, 398, 12, 46, "Text"], Cell[147442, 4087, 318, 10, 46, "Text"], Cell[147763, 4099, 414, 12, 46, "Text"], Cell[148180, 4113, 365, 11, 46, "Text"], Cell[148548, 4126, 382, 11, 46, "Text"], Cell[148933, 4139, 424, 12, 46, "Text"], Cell[149360, 4153, 761, 18, 96, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[150170, 4177, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[150259, 4182, 135, 2, 105, "Section"], Cell[150397, 4186, 200, 5, 46, "Text"], Cell[150600, 4193, 275, 6, 47, "Text"], Cell[150878, 4201, 145, 2, 46, "Text"], Cell[151026, 4205, 262, 7, 46, "Text"], Cell[151291, 4214, 256, 7, 46, "Text"], Cell[151550, 4223, 258, 7, 46, "Text"], Cell[151811, 4232, 761, 18, 96, "PreviousNext"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)