(* 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[ 19194, 558] NotebookOptionsPosition[ 17020, 475] NotebookOutlinePosition[ 17525, 497] CellTagsIndexPosition[ 17440, 492] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Mathematica Class 1", "Subtitle", CellChangeTimes->{{3.419790292297749*^9, 3.419790297605962*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"2", " ", "+", " ", "2"}]], "Input", CellChangeTimes->{{3.419790271410898*^9, 3.419790289369101*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{3.41929122451381*^9, 3.419334147226943*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"x", " ", "=", " ", "10"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"3", " ", "x"}]], "Input"], Cell[BoxData["30"], "Output", CellChangeTimes->{3.4192912246859617`*^9, 3.4193341474330263`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"2", "^", "x"}]], "Input"], Cell[BoxData["1024"], "Output", CellChangeTimes->{3.419291224747827*^9, 3.4193341474978323`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"2", "^", "1000"}]], "Input"], Cell[BoxData[\ "10715086071862673209484250490600018105614048117055336074437503883703510511249\ 361224931983788156958581275946729175531468251871452856923140435984577574698574\ 803934567774824230985421074605062371141877954182153046474983581941267398767559\ 165543946077062914571196477686542167660429831652624386837205668069376"], \ "Output", CellChangeTimes->{3.41929122483195*^9, 3.4193341475650167`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Plot"}]], "Input"], Cell[BoxData[ RowBox[{ StyleBox["\<\"\!\(\*RowBox[{\\\"Plot\\\", \\\"[\\\", RowBox[{StyleBox[\\\"f\ \\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"x\\\", \ \\\"TI\\\"], \\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"min\\\", \\\"TI\\\"]], \\\",\\\", \ SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"max\\\", \ \\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\) generates a plot of \ \!\(\*StyleBox[\\\"f\\\", \\\"TI\\\"]\) as a function of \!\(\*StyleBox[\\\"x\ \\\", \\\"TI\\\"]\) from \!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"min\\\", \\\"TI\\\"]]\) to \ \!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"max\\\", \ \\\"TI\\\"]]\). \\n\!\(\*RowBox[{\\\"Plot\\\", \\\"[\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"f\\\", \ \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", \ SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \ \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\ \"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \ \\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"min\\\", \\\"TI\\\"]], \\\",\\\", \ SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"max\\\", \ \\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\) plots several functions \ \!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \ \\\"TI\\\"]]\). \"\>", "MSG"], " ", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Plot"]}]], "Print", "PrintUsage", CellChangeTimes->{3.41933414801248*^9}, CellTags->"Info3419308947-1150947"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "*Plot*"}]], "Input"], Cell[BoxData[ DynamicModuleBox[{Typeset`open$$ = True}, PaneSelectorBox[{False-> RowBox[{ OpenerBox[Dynamic[Typeset`open$$], ImageSize->Small], StyleBox["System`", "InfoHeading"]}], True->GridBox[{ { RowBox[{ OpenerBox[Dynamic[Typeset`open$$], ImageSize->Small], StyleBox["System`", "InfoHeading"]}]}, {GridBox[{ { ButtonBox["ArrayPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ArrayPlot"}, ButtonNote->"System`"], ButtonBox["LayeredGraphPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`LayeredGraphPlot"}, ButtonNote->"System`"], ButtonBox["ListLogPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ListLogPlot"}, ButtonNote->"System`"], ButtonBox["LogLogPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`LogLogPlot"}, ButtonNote->"System`"], ButtonBox["Plot3D", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`Plot3D"}, ButtonNote->"System`"], ButtonBox["PlotRange", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`PlotRange"}, ButtonNote->"System`"], ButtonBox["RegionPlot3D", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`RegionPlot3D"}, ButtonNote->"System`"]}, { ButtonBox["ContourPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ContourPlot"}, ButtonNote->"System`"], ButtonBox["ListContourPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ListContourPlot"}, ButtonNote->"System`"], ButtonBox["ListPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ListPlot"}, ButtonNote->"System`"], ButtonBox["LogPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`LogPlot"}, ButtonNote->"System`"], ButtonBox["Plot3Matrix", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`Plot3Matrix"}, ButtonNote->"System`"], ButtonBox["PlotRangeClipping", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`PlotRangeClipping"}, ButtonNote->"System`"], ButtonBox["ReliefPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ReliefPlot"}, ButtonNote->"System`"]}, { ButtonBox["ContourPlot3D", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ContourPlot3D"}, ButtonNote->"System`"], ButtonBox["ListContourPlot3D", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ListContourPlot3D"}, ButtonNote->"System`"], ButtonBox["ListPlot3D", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ListPlot3D"}, ButtonNote->"System`"], ButtonBox["MatrixPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`MatrixPlot"}, ButtonNote->"System`"], ButtonBox["PlotDivision", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`PlotDivision"}, ButtonNote->"System`"], ButtonBox["PlotRangePadding", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`PlotRangePadding"}, ButtonNote->"System`"], ButtonBox["RevolutionPlot3D", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`RevolutionPlot3D"}, ButtonNote->"System`"]}, { ButtonBox["DateListPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`DateListPlot"}, ButtonNote->"System`"], ButtonBox["ListDensityPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ListDensityPlot"}, ButtonNote->"System`"], ButtonBox["ListPointPlot3D", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ListPointPlot3D"}, ButtonNote->"System`"], ButtonBox["MaxPlotPoints", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`MaxPlotPoints"}, ButtonNote->"System`"], ButtonBox["PlotJoined", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`PlotJoined"}, ButtonNote->"System`"], ButtonBox["PlotRegion", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`PlotRegion"}, ButtonNote->"System`"], ButtonBox["SphericalPlot3D", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`SphericalPlot3D"}, ButtonNote->"System`"]}, { ButtonBox["DensityPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`DensityPlot"}, ButtonNote->"System`"], ButtonBox["ListLinePlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ListLinePlot"}, ButtonNote->"System`"], ButtonBox["ListPolarPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ListPolarPlot"}, ButtonNote->"System`"], ButtonBox["ParametricPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ParametricPlot"}, ButtonNote->"System`"], ButtonBox["PlotLabel", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`PlotLabel"}, ButtonNote->"System`"], ButtonBox["PlotStyle", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`PlotStyle"}, ButtonNote->"System`"], ButtonBox["TreePlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`TreePlot"}, ButtonNote->"System`"]}, { ButtonBox["GraphPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`GraphPlot"}, ButtonNote->"System`"], ButtonBox["ListLogLinearPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ListLogLinearPlot"}, ButtonNote->"System`"], ButtonBox["ListSurfacePlot3D", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ListSurfacePlot3D"}, ButtonNote->"System`"], ButtonBox["ParametricPlot3D", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ParametricPlot3D"}, ButtonNote->"System`"], ButtonBox["PlotMarkers", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`PlotMarkers"}, ButtonNote->"System`"], ButtonBox["PolarPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`PolarPlot"}, ButtonNote->"System`"], ""}, { ButtonBox["GraphPlot3D", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`GraphPlot3D"}, ButtonNote->"System`"], ButtonBox["ListLogLogPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`ListLogLogPlot"}, ButtonNote->"System`"], ButtonBox["LogLinearPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`LogLinearPlot"}, ButtonNote->"System`"], ButtonBox["Plot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`Plot"}, ButtonNote->"System`"], ButtonBox["PlotPoints", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`PlotPoints"}, ButtonNote->"System`"], ButtonBox["RegionPlot", BaseStyle->"InformationLink", ButtonData:>{"Info3419308948-9666632", "System`RegionPlot"}, ButtonNote->"System`"], ""} }, DefaultBaseStyle->"InfoGrid", GridBoxItemSize->{"Columns" -> {{ Scaled[0.1357142857142857]}}}]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}]}, Dynamic[Typeset`open$$], ImageSize->Automatic]]], "Print", "InfoCell", CellChangeTimes->{3.41933414839896*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", " ", "=", " ", "20"}]], "Input"], Cell[BoxData["20"], "Output", CellChangeTimes->{3.419291226603668*^9, 3.41933414867507*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", " ", "*", " ", "5"}]], "Input"], Cell[BoxData["100"], "Output", CellChangeTimes->{3.419291226684977*^9, 3.419334148740382*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%8", " ", "*", " ", "5"}]], "Input"], Cell[BoxData["5120"], "Output", CellChangeTimes->{3.419291226750978*^9, 3.41933414881712*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", " ", "x"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"ilim\"\>"}], RowBox[{ ":", " "}], "\<\"Invalid integration variable or limit(s) in \\!\\(20\\). \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Integrate/ilim\\\", \ ButtonNote -> \\\"Integrate::ilim\\\"]\\)\"\>"}]], "Message", CellChangeTimes->{3.419291227119424*^9, 3.419334148927717*^9}], Cell[BoxData[ RowBox[{"\[Integral]", RowBox[{"400", RowBox[{"\[DifferentialD]", "20"}]}]}]], "Output", CellChangeTimes->{3.419291227124703*^9, 3.4193341489307613`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "x", "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", " ", "x"}], "]"}]], "Input"], Cell[BoxData[ FractionBox[ SuperscriptBox["x", "3"], "3"]], "Output", CellChangeTimes->{3.419291227356409*^9, 3.419334149038045*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "/", "n"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "1", ",", " ", "10"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", FractionBox["1", "2"], ",", FractionBox["1", "3"], ",", FractionBox["1", "4"], ",", FractionBox["1", "5"], ",", FractionBox["1", "6"], ",", FractionBox["1", "7"], ",", FractionBox["1", "8"], ",", FractionBox["1", "9"], ",", FractionBox["1", "10"]}], "}"}]], "Output", CellChangeTimes->{3.4192912274435673`*^9, 3.419334149119351*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Random", "[", "]"}], ",", " ", RowBox[{"{", "12", "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.32430083182089403`", ",", "0.6999811529230483`", ",", "0.36221953250410366`", ",", "0.25347625913143157`", ",", "0.41372825790605106`", ",", "0.25758666698089094`", ",", "0.9119881593880328`", ",", "0.9822094551709706`", ",", "0.8407854476638437`", ",", "0.28961946104133335`", ",", "0.6157071499021814`", ",", "0.8369886487428362`"}], "}"}]], "Output", CellChangeTimes->{3.419291227543304*^9, 3.419334149202466*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"n", " ", "=", " ", "200"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", "=", " ", "1"}], ";", " ", RowBox[{ RowBox[{"a", "[", "1", "]"}], " ", "=", " ", "1"}], ";", " ", RowBox[{"Do", "[", " ", RowBox[{ RowBox[{ RowBox[{"a", "[", "k", "]"}], " ", "=", " ", RowBox[{ RowBox[{"a", "[", RowBox[{"k", "-", "1"}], "]"}], " ", "+", " ", RowBox[{"a", "[", RowBox[{"k", "-", "2"}], "]"}]}]}], ",", " ", RowBox[{"{", RowBox[{"k", ",", " ", "2", ",", " ", "n"}], "}"}]}], "]"}], ";", " ", RowBox[{"a", "[", "n", "]"}]}]], "Input"], Cell[BoxData["453973694165307953197296969697410619233826"], "Output", CellChangeTimes->{3.419291227685458*^9, 3.4193341493669786`*^9}] }, Open ]] }, Open ]] }, WindowSize->{897, 717}, WindowMargins->{{2, Automatic}, {Automatic, 0}}, ShowSelection->True, FrontEndVersion->"6.0 for Linux x86 (64-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info3419308947-1150947"->{ Cell[1975, 77, 1721, 30, 67, "Print", CellTags->"Info3419308947-1150947"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3419308947-1150947", 17336, 486} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 105, 1, 53, "Subtitle"], Cell[CellGroupData[{ Cell[720, 28, 125, 2, 32, "Input"], Cell[848, 32, 91, 1, 31, "Output"] }, Open ]], Cell[954, 36, 78, 2, 32, "Input"], Cell[CellGroupData[{ Cell[1057, 42, 49, 1, 32, "Input"], Cell[1109, 45, 97, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1243, 51, 49, 1, 32, "Input"], Cell[1295, 54, 97, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1429, 60, 52, 1, 32, "Input"], Cell[1484, 63, 404, 6, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1925, 74, 47, 1, 32, "Input"], Cell[1975, 77, 1721, 30, 67, "Print", CellTags->"Info3419308947-1150947"] }, Open ]], Cell[CellGroupData[{ Cell[3733, 112, 49, 1, 32, "Input"], Cell[3785, 115, 9359, 216, 329, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[13181, 336, 60, 1, 32, "Input"], Cell[13244, 339, 92, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13373, 345, 59, 1, 32, "Input"], Cell[13435, 348, 94, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13566, 354, 60, 1, 32, "Input"], Cell[13629, 357, 94, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13760, 363, 114, 3, 32, "Input"], Cell[13877, 368, 436, 8, 24, "Message"], Cell[14316, 378, 176, 4, 48, "Output"] }, Open ]], Cell[14507, 385, 58, 1, 32, "Input"], Cell[CellGroupData[{ Cell[14590, 390, 114, 3, 32, "Input"], Cell[14707, 395, 136, 3, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14880, 403, 180, 5, 32, "Input"], Cell[15063, 410, 418, 12, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15518, 427, 140, 4, 32, "Input"], Cell[15661, 433, 482, 9, 52, "Output"] }, Open ]], Cell[16158, 445, 79, 2, 32, "Input"], Cell[CellGroupData[{ Cell[16262, 451, 592, 17, 32, "Input"], Cell[16857, 470, 135, 1, 31, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)