(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 18504, 1355]*) (*NotebookOutlinePosition[ 19163, 1379]*) (* CellTagsIndexPosition[ 19119, 1375]*) (*WindowFrame->Normal*) Notebook[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " " }], "Title"], Cell[TextData[{ StyleBox[" To execute a command :\n ", FontSize->16], StyleBox[ " Shift + Enter\n or\n Insert ", FontSize->16, FontColor->RGBColor[0, 0, 1]] }], "Text", Background->RGBColor[1, 1, 0]], Cell[CellGroupData[{ Cell["Numerical Calculation", "Section"], Cell[CellGroupData[{ Cell["1. Arithmetic ", "Subsection"], Cell[CellGroupData[{ Cell[TextData[StyleBox["+, -, * ( space), ^", FontSize->24, FontColor->RGBColor[0, 0, 1]]], "Text", Background->RGBColor[1, 1, 0]], Cell[CellGroupData[{ Cell["2-7", "Input"], Cell[OutputFormData["\<\ -5\ \>", "\<\ -5\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["2*3", "Input"], Cell[OutputFormData["\<\ 6\ \>", "\<\ 6\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["2/3", "Input"], Cell[OutputFormData["\<\ 2/3\ \>", "\<\ 2 - 3\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["2^3", "Input"], Cell[OutputFormData["\<\ 8\ \>", "\<\ 8\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ 2 3\ \>", "Input"], Cell[OutputFormData["\<\ 6\ \>", "\<\ 6\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Be careful!", FontSize->16, FontColor->RGBColor[1, 0, 0]]], "Text"], Cell[CellGroupData[{ Cell["2x", "Input"], Cell[OutputFormData["\<\ 2*x\ \>", "\<\ 2 x\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["x2", "Input"], Cell[OutputFormData["\<\ x2\ \>", "\<\ x2\ \>"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["?Random[Integer]", "Input"], Cell["\<\ Random[ ] gives a uniformly distributed pseudorandom Real in the range 0 to 1. Random[type, range] gives a pseudorandom number of the specified type, lying in the specified range. Possible types are: Integer, Real and Complex. The default range is 0 to 1. You can give the range {min, max} explicitly; a range specification of max is equivalent to {0, max}.\ \>", "Print"], Cell[OutputFormData["\<\ Null[Integer]\ \>", "\<\ Null[Integer]\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox[ "Bracket \n( ) Grouping \ (a+b)/(c+d)\n [ ] Arguments of function Sqrt[2]\n{ } \ Vectors, Matrices, Lists {1, 3, 4}\n [ [ ] ] Indexing \ m[[1,2]]\n (* .... *) comments \ (* comments\n \ can be written here *) ", FontSize->16]], "Text", Background->RGBColor[1, 1, 0]], Cell[CellGroupData[{ Cell["2+3*2", "Input"], Cell[OutputFormData["\<\ 8\ \>", "\<\ 8\ \>"], "Output"], Cell[CellGroupData[{ Cell["2^2^3", "Input"], Cell[OutputFormData["\<\ 256\ \>", "\<\ 256\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["2^(2^3)", "Input"], Cell[OutputFormData["\<\ 256\ \>", "\<\ 256\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["(2^2)^2", "Input"], Cell[OutputFormData["\<\ 16\ \>", "\<\ 16\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Sqrt[4]", "Input"], Cell[OutputFormData["\<\ 2\ \>", "\<\ 2\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Log[Sqrt[4]]", "Input"], Cell[OutputFormData["\<\ Log[2]\ \>", "\<\ Log[2]\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["{2,3}", "Input"], Cell[OutputFormData["\<\ {2, 3}\ \>", "\<\ {2, 3}\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["{{1, -1},{2,3}}", "Input"], Cell[OutputFormData["\<\ {{1, -1}, {2, 3}}\ \>", "\<\ {{1, -1}, {2, 3}}\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["m={{1, -1},{2,3}}", "Input"], Cell[OutputFormData["\<\ {{1, -1}, {2, 3}}\ \>", "\<\ {{1, -1}, {2, 3}}\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["m[[1,2]]", "Input"], Cell[OutputFormData["\<\ -1\ \>", "\<\ -1\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["(2+(3+2))/2", "Input"], Cell[OutputFormData["\<\ 7/2\ \>", "\<\ 7 - 2\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ ^, /, *, space, ( ), [ ], { }, %, %n ! factorial =, := ==, != <, <=, >= \ \>", "Input"], Cell["\<\ Syntax::sntxb: Expression cannot begin with \"^, /, *, space, ( ), [ ], { },\".\ \>", "Message"] }, Open ]], Cell[CellGroupData[{ Cell["Sin[0.1]", "Input"], Cell[OutputFormData["\<\ 0.09983341664682814\ \>", "\<\ 0.0998334\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Sin[ 0.1 ]", "Input"], Cell[OutputFormData["\<\ 0.09983341664682814\ \>", "\<\ 0.0998334\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["2/3", "Input"], Cell[OutputFormData["\<\ 2/3\ \>", "\<\ 2 - 3\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["N[2/3] ", "Input"], Cell[OutputFormData["\<\ 0.6666666666666666\ \>", "\<\ 0.666667\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["2/3 //N", "Input"], Cell[OutputFormData["\<\ 0.6666666666666666\ \>", "\<\ 0.666667\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["2./3", "Input"], Cell[OutputFormData["\<\ 0.6666666666666666\ \>", "\<\ 0.666667\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Sqrt[2]", "Input"], Cell[OutputFormData["\<\ Sqrt[2]\ \>", "\<\ Sqrt[2]\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Sqrt[2] //N", "Input"], Cell[OutputFormData["\<\ 1.414213562373095\ \>", "\<\ 1.41421\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["N[Sqrt[2]]", "Input"], Cell[OutputFormData["\<\ 1.414213562373095\ \>", "\<\ 1.41421\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["N[Sqrt[2], 10]", "Input"], Cell[OutputFormData["\<\ 1.414213562373095\ \>", "\<\ 1.414213562\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Sqrt[2.]", "Input"], Cell[OutputFormData["\<\ 1.414213562373095\ \>", "\<\ 1.41421\ \>"], "Output"] }, Open ]] }, Open ]] }, Closed]], Cell["2. Mathematical Constants", "Text"], Cell[CellGroupData[{ Cell["\<\ Pi \ \>", "Input"], Cell[OutputFormData["\<\ Pi\ \>", "\<\ Pi\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Pi //N", "Input"], Cell[OutputFormData["\<\ 3.141592653589793\ \>", "\<\ 3.14159\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["E //N", "Input"], Cell[OutputFormData["\<\ 2.718281828459045\ \>", "\<\ 2.71828\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ I\ \>", "Input"], Cell[OutputFormData["\<\ I\ \>", "\<\ I\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Degree", "Input"], Cell[OutputFormData["\<\ Degree\ \>", "\<\ Degree\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Degree //N", "Input"], Cell[OutputFormData["\<\ 0.01745329251994329\ \>", "\<\ 0.0174533\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Pi /180.", "Input"], Cell[OutputFormData["\<\ 0.01745329251994329\ \>", "\<\ 0.0174533\ \>"], "Output"] }, Open ]], Cell["Golden", "Input"], Cell["Degree = Pi /180.", "Text"], Cell["\<\ 3. Mathematical functions Sqrt[x], Exp[x], Log[x], Log[base,x], Sin[x], Cos[x], Tan[x], ArcSin[x], ArcCos[x], ArcTan[x] n!, Abs[x], Round[x], Mod[n,m], Random[x]\ \>", "Text", Background->RGBColor[1, 1, 0]], Cell["", "Input"], Cell[CellGroupData[{ Cell["a1=1.0", "Input"], Cell[OutputFormData["\<\ 1.\ \>", "\<\ 1.\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["a=Sin[60. Degree]", "Input"], Cell[OutputFormData["\<\ 0.8660254037844385\ \>", "\<\ 0.866025\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["a=Sin[30]", "Input"], Cell[OutputFormData["\<\ Sin[30]\ \>", "\<\ Sin[30]\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["N[a]", "Input"], Cell[OutputFormData["\<\ -0.9880316240928618\ \>", "\<\ -0.988032\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["a //N", "Input"], Cell[OutputFormData["\<\ -0.9880316240928618\ \>", "\<\ -0.988032\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["b=1/2", "Input"], Cell[OutputFormData["\<\ 1/2\ \>", "\<\ 1 - 2\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["c=0.5", "Input"], Cell[OutputFormData["\<\ 0.5\ \>", "\<\ 0.5\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Sqrt[b]", "Input"], Cell[OutputFormData["\<\ 1/Sqrt[2]\ \>", "\<\ 1 ------- Sqrt[2]\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Sqrt[c]", "Input"], Cell[OutputFormData["\<\ 0.7071067811865475\ \>", "\<\ 0.707107\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Log[c]", "Input"], Cell[OutputFormData["\<\ -0.6931471805599453\ \>", "\<\ -0.693147\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Log[b]", "Input"], Cell[OutputFormData["\<\ -Log[2]\ \>", "\<\ -Log[2]\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Log[c]", "Input"], Cell[OutputFormData["\<\ -0.6931471805599453\ \>", "\<\ -0.693147\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Sin[c]", "Input"], Cell[OutputFormData["\<\ 0.479425538604203\ \>", "\<\ 0.479426\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Cos[c]", "Input"], Cell[OutputFormData["\<\ 0.8775825618903727\ \>", "\<\ 0.877583\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Tan[c]", "Input"], Cell[OutputFormData["\<\ 0.5463024898437904\ \>", "\<\ 0.546302\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["ArcSin[b] ", "Input"], Cell[OutputFormData["\<\ Pi/6\ \>", "\<\ Pi -- 6\ \>"], "Output"] }, Open ]], Cell["", "Input"], Cell[CellGroupData[{ Cell["ArcSin[c]", "Input"], Cell[OutputFormData["\<\ 0.5235987755982989\ \>", "\<\ 0.523599\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["ArcCos[c]", "Input"], Cell[OutputFormData["\<\ 1.047197551196597\ \>", "\<\ 1.0472\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["ArcTan[c]", "Input"], Cell[OutputFormData["\<\ 0.463647609000806\ \>", "\<\ 0.463648\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Pi", "Input"], Cell[OutputFormData["\<\ Pi\ \>", "\<\ Pi\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Pi //N", "Input"], Cell[OutputFormData["\<\ 3.141592653589793\ \>", "\<\ 3.14159\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["E //N", "Input"], Cell[OutputFormData["\<\ 2.718281828459045\ \>", "\<\ 2.71828\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Degree //N", "Input"], Cell[OutputFormData["\<\ 0.01745329251994329\ \>", "\<\ 0.0174533\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Pi/180.", "Input"], Cell[OutputFormData["\<\ 0.01745329251994329\ \>", "\<\ 0.0174533\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Degree//N \ \>", "Input"], Cell[OutputFormData["\<\ 0.01745329251994329\ \>", "\<\ 0.0174533\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["I", "Input"], Cell[OutputFormData["\<\ I\ \>", "\<\ I\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["a1=2+3 I", "Input"], Cell[OutputFormData["\<\ 2 + 3*I\ \>", "\<\ 2 + 3 I\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["b1=1+2 I", "Input"], Cell[OutputFormData["\<\ 1 + 2*I\ \>", "\<\ 1 + 2 I\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["a1+b1", "Input"], Cell[OutputFormData["\<\ 3 + 5*I\ \>", "\<\ 3 + 5 I\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Infinity", "Input"], Cell[OutputFormData["\<\ Infinity\ \>", "\<\ \[Infinity]\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["N[Pi,10]", "Input"], Cell[OutputFormData["\<\ 3.141592653589793\ \>", "\<\ 3.141592654\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["N[Sqrt[2],10]", "Input"], Cell[OutputFormData["\<\ 1.414213562373095\ \>", "\<\ 1.414213562\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["2^3", "Input"], Cell[OutputFormData["\<\ 8\ \>", "\<\ 8\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["2.1^3", "Input"], Cell[OutputFormData["\<\ 9.261000000000001\ \>", "\<\ 9.261\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Log[E^10]", "Input"], Cell[OutputFormData["\<\ 10\ \>", "\<\ 10\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["2^3", "Input"], Cell[OutputFormData["\<\ 8\ \>", "\<\ 8\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Sin[Pi/2]", "Input"], Cell[OutputFormData["\<\ 1\ \>", "\<\ 1\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Sin[90Degree]", "Input"], Cell[OutputFormData["\<\ 1\ \>", "\<\ 1\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["56^(1/3)", "Input"], Cell[OutputFormData["\<\ 2*7^(1/3)\ \>", "\<\ 1/3 2 7\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["56^(1/3)//N", "Input"], Cell[OutputFormData["\<\ 3.825862365544778\ \>", "\<\ 3.82586\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["%^3", "Input"], Cell[OutputFormData["\<\ 56.\ \>", "\<\ 56.\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["%61^2", "Input"], Cell[OutputFormData["\<\ 64\ \>", "\<\ 64\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["%65^3", "Input"], Cell[OutputFormData["\<\ 56.\ \>", "\<\ 56.\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["%%%^(1/3)", "Input"], Cell[OutputFormData["\<\ 3.825862365544778\ \>", "\<\ 3.82586\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["x=10", "Input"], Cell[OutputFormData["\<\ 10\ \>", "\<\ 10\ \>"], "Output"] }, Open ]], Cell["x=10;", "Input"], Cell[CellGroupData[{ Cell["x+x", "Input"], Cell[OutputFormData["\<\ 20\ \>", "\<\ 20\ \>"], "Output"] }, Open ]], Cell["Clear[x]", "Input"], Cell[CellGroupData[{ Cell["x+x", "Input"], Cell[OutputFormData["\<\ 2*x\ \>", "\<\ 2 x\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["x=10", "Input"], Cell[OutputFormData["\<\ 10\ \>", "\<\ 10\ \>"], "Output"] }, Open ]], Cell["x=.", "Input"], Cell[CellGroupData[{ Cell["x+x", "Input"], Cell[OutputFormData["\<\ 2*x\ \>", "\<\ 2 x\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["x*a", "Input"], Cell[OutputFormData["\<\ x*Sin[30]\ \>", "\<\ x Sin[30]\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["?a", "Input"], Cell["\<\ Global`a a = Sin[30]\ \>", "Print"] }, Open ]], Cell["a=.", "Input"], Cell["?a", "Input"], Cell[CellGroupData[{ Cell["?y", "Input"], Cell["Information::notfound: Symbol y not found.", "Message"] }, Open ]], Cell[CellGroupData[{ Cell["?@", "Input"], Cell["a a1 b b1 c x", "Print"] }, Open ]], Cell[CellGroupData[{ Cell["?*Sin*", "Input"], Cell["\<\ ArcSin SingleLetterItalics Sinh ArcSinh SingularityDepth SinhIntegral IncludeSingularTerm SingularValues SinIntegral Sin\ \>", "Print"] }, Open ]], Cell[CellGroupData[{ Cell["??ArcSin", "Input"], Cell["\<\ ArcSin[z] gives the arc sine of the complex number z. Attributes[ArcSin] = {Listable, NumericFunction, Protected}\ \>", "Print"] }, Open ]], Cell[CellGroupData[{ Cell["Table[a,{3}]", "Input"], Cell[OutputFormData["\<\ {a, a, a}\ \>", "\<\ {a, a, a}\ \>"], "Output"] }, Open ]], Cell["}", "Input"], Cell[CellGroupData[{ Cell["Table[a^2+1,{a,4}]", "Input"], Cell[OutputFormData["\<\ {2, 5, 10, 17}\ \>", "\<\ {2, 5, 10, 17}\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Table[a,{a,2,6}]", "Input"], Cell[OutputFormData["\<\ {2, 3, 4, 5, 6}\ \>", "\<\ {2, 3, 4, 5, 6}\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Table[a,{a,1,3,.5}]", "Input"], Cell[OutputFormData["\<\ {1, 1.5, 2., 2.5, 3.}\ \>", "\<\ {1, 1.5, 2., 2.5, 3.}\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Range[10]", "Input"], Cell[OutputFormData["\<\ {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}\ \>", "\<\ {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Range[1,3,.5]", "Input"], Cell[OutputFormData["\<\ {1, 1.5, 2., 2.5, 3.}\ \>", "\<\ {1, 1.5, 2., 2.5, 3.}\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["x=Range[1,3,.5]", "Input"], Cell[OutputFormData["\<\ {1, 1.5, 2., 2.5, 3.}\ \>", "\<\ {1, 1.5, 2., 2.5, 3.}\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["?x", "Input"], Cell["\<\ Global`x x = {1, 1.5, 2., 2.5, 3.}\ \>", "Print"] }, Open ]], Cell[CellGroupData[{ Cell["Part[x,3]", "Input"], Cell[OutputFormData["\<\ 2.\ \>", "\<\ 2.\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["x[[3]]", "Input"], Cell[OutputFormData["\<\ 2.\ \>", "\<\ 2.\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["x=a+b", "Input"], Cell[OutputFormData["\<\ a + b\ \>", "\<\ a + b\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["FullForm[x]", "Input"], Cell[OutputFormData["\<\ a + b\ \>", "\<\ Plus[a, b]\ \>"], "Output"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"X 3.0", ScreenRectangle->{{0, 1152}, {0, 900}}, CellGrouping->Manual, WindowSize->{500, 614}, WindowMargins->{{177, Automatic}, {Automatic, 102}} ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1709, 49, 86, 4, 110, "Title"], Cell[1798, 55, 282, 8, 130, "Text"], Cell[CellGroupData[{ Cell[2105, 67, 40, 0, 54, "Section"], Cell[CellGroupData[{ Cell[2170, 71, 36, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[2231, 75, 140, 3, 60, "Text"], Cell[CellGroupData[{ Cell[2396, 82, 20, 0, 27, "Input"], Cell[2419, 84, 58, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2514, 93, 20, 0, 27, "Input"], Cell[2537, 95, 56, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2630, 104, 20, 0, 27, "Input"], Cell[2653, 106, 62, 6, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2752, 117, 20, 0, 27, "Input"], Cell[2775, 119, 56, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2868, 128, 29, 3, 42, "Input"], Cell[2900, 133, 56, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2993, 142, 95, 2, 39, "Text"], Cell[CellGroupData[{ Cell[3113, 148, 19, 0, 27, "Input"], Cell[3135, 150, 60, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3232, 159, 19, 0, 27, "Input"], Cell[3254, 161, 58, 4, 25, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3373, 172, 33, 0, 27, "Input"], Cell[3409, 174, 400, 8, 128, "Print"], Cell[3812, 184, 81, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3930, 194, 519, 8, 230, "Text"], Cell[CellGroupData[{ Cell[4474, 206, 22, 0, 27, "Input"], Cell[4499, 208, 56, 4, 25, "Output"], Cell[CellGroupData[{ Cell[4580, 216, 22, 0, 27, "Input"], Cell[4605, 218, 60, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4702, 227, 24, 0, 27, "Input"], Cell[4729, 229, 60, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4826, 238, 24, 0, 27, "Input"], Cell[4853, 240, 58, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4948, 249, 24, 0, 27, "Input"], Cell[4975, 251, 56, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5068, 260, 29, 0, 27, "Input"], Cell[5100, 262, 66, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5203, 271, 22, 0, 27, "Input"], Cell[5228, 273, 66, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5331, 282, 32, 0, 27, "Input"], Cell[5366, 284, 89, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5492, 294, 34, 0, 27, "Input"], Cell[5529, 296, 89, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5655, 306, 25, 0, 27, "Input"], Cell[5683, 308, 58, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5778, 317, 28, 0, 27, "Input"], Cell[5809, 319, 62, 6, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5908, 330, 101, 10, 147, "Input"], Cell[6012, 342, 115, 4, 53, "Message"] }, Open ]], Cell[CellGroupData[{ Cell[6164, 351, 25, 0, 27, "Input"], Cell[6192, 353, 83, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6312, 363, 29, 0, 27, "Input"], Cell[6344, 365, 83, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6464, 375, 20, 0, 27, "Input"], Cell[6487, 377, 62, 6, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6586, 388, 24, 0, 27, "Input"], Cell[6613, 390, 81, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6731, 400, 24, 0, 27, "Input"], Cell[6758, 402, 81, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6876, 412, 21, 0, 27, "Input"], Cell[6900, 414, 81, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7018, 424, 24, 0, 27, "Input"], Cell[7045, 426, 68, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7150, 435, 28, 0, 27, "Input"], Cell[7181, 437, 78, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7296, 446, 27, 0, 27, "Input"], Cell[7326, 448, 78, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7441, 457, 31, 0, 27, "Input"], Cell[7475, 459, 83, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7595, 469, 25, 0, 27, "Input"], Cell[7623, 471, 78, 4, 25, "Output"] }, Open ]] }, Open ]] }, Closed]], Cell[7740, 480, 41, 0, 29, "Text"], Cell[CellGroupData[{ Cell[7806, 484, 28, 3, 42, "Input"], Cell[7837, 489, 58, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7932, 498, 23, 0, 27, "Input"], Cell[7958, 500, 78, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8073, 509, 22, 0, 27, "Input"], Cell[8098, 511, 78, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8213, 520, 27, 3, 42, "Input"], Cell[8243, 525, 56, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8336, 534, 23, 0, 27, "Input"], Cell[8362, 536, 66, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8465, 545, 27, 0, 27, "Input"], Cell[8495, 547, 83, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8615, 557, 25, 0, 27, "Input"], Cell[8643, 559, 83, 5, 25, "Output"] }, Open ]], Cell[8741, 567, 23, 0, 27, "Input"], Cell[8767, 569, 35, 0, 32, "Text"], Cell[8805, 571, 235, 7, 120, "Text"], Cell[9043, 580, 17, 0, 27, "Input"], Cell[CellGroupData[{ Cell[9085, 584, 23, 0, 27, "Input"], Cell[9111, 586, 58, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9206, 595, 34, 0, 27, "Input"], Cell[9243, 597, 81, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9361, 607, 26, 0, 27, "Input"], Cell[9390, 609, 68, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9495, 618, 21, 0, 27, "Input"], Cell[9519, 620, 83, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9639, 630, 22, 0, 27, "Input"], Cell[9664, 632, 83, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9784, 642, 22, 0, 27, "Input"], Cell[9809, 644, 62, 6, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9908, 655, 22, 0, 27, "Input"], Cell[9933, 657, 60, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10030, 666, 24, 0, 27, "Input"], Cell[10057, 668, 83, 6, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10177, 679, 24, 0, 27, "Input"], Cell[10204, 681, 81, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10322, 691, 23, 0, 27, "Input"], Cell[10348, 693, 83, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10468, 703, 23, 0, 27, "Input"], Cell[10494, 705, 68, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10599, 714, 23, 0, 27, "Input"], Cell[10625, 716, 83, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10745, 726, 23, 0, 27, "Input"], Cell[10771, 728, 79, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10887, 737, 23, 0, 27, "Input"], Cell[10913, 739, 81, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11031, 749, 23, 0, 27, "Input"], Cell[11057, 751, 81, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11175, 761, 27, 0, 27, "Input"], Cell[11205, 763, 65, 6, 43, "Output"] }, Open ]], Cell[11285, 772, 17, 0, 27, "Input"], Cell[CellGroupData[{ Cell[11327, 776, 26, 0, 27, "Input"], Cell[11356, 778, 81, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11474, 788, 26, 0, 27, "Input"], Cell[11503, 790, 77, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11617, 799, 26, 0, 27, "Input"], Cell[11646, 801, 79, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11762, 810, 19, 0, 27, "Input"], Cell[11784, 812, 58, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11879, 821, 23, 0, 27, "Input"], Cell[11905, 823, 78, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12020, 832, 22, 0, 27, "Input"], Cell[12045, 834, 78, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12160, 843, 27, 0, 27, "Input"], Cell[12190, 845, 83, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12310, 855, 24, 0, 27, "Input"], Cell[12337, 857, 83, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12457, 867, 35, 3, 42, "Input"], Cell[12495, 872, 83, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12615, 882, 18, 0, 27, "Input"], Cell[12636, 884, 56, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12729, 893, 25, 0, 27, "Input"], Cell[12757, 895, 68, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12862, 904, 25, 0, 27, "Input"], Cell[12890, 906, 68, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12995, 915, 22, 0, 27, "Input"], Cell[13020, 917, 68, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13125, 926, 25, 0, 27, "Input"], Cell[13153, 928, 73, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13263, 937, 25, 0, 27, "Input"], Cell[13291, 939, 83, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13411, 949, 30, 0, 27, "Input"], Cell[13444, 951, 83, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13564, 961, 20, 0, 27, "Input"], Cell[13587, 963, 56, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13680, 972, 22, 0, 27, "Input"], Cell[13705, 974, 76, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13818, 983, 26, 0, 27, "Input"], Cell[13847, 985, 58, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13942, 994, 20, 0, 27, "Input"], Cell[13965, 996, 56, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14058, 1005, 26, 0, 27, "Input"], Cell[14087, 1007, 56, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14180, 1016, 30, 0, 27, "Input"], Cell[14213, 1018, 56, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14306, 1027, 25, 0, 27, "Input"], Cell[14334, 1029, 73, 5, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14444, 1039, 28, 0, 27, "Input"], Cell[14475, 1041, 78, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14590, 1050, 20, 0, 27, "Input"], Cell[14613, 1052, 60, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14710, 1061, 22, 0, 27, "Input"], Cell[14735, 1063, 58, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14830, 1072, 22, 0, 27, "Input"], Cell[14855, 1074, 60, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14952, 1083, 26, 0, 27, "Input"], Cell[14981, 1085, 78, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15096, 1094, 21, 0, 27, "Input"], Cell[15120, 1096, 58, 4, 25, "Output"] }, Open ]], Cell[15193, 1103, 22, 0, 27, "Input"], Cell[CellGroupData[{ Cell[15240, 1107, 20, 0, 27, "Input"], Cell[15263, 1109, 58, 4, 25, "Output"] }, Open ]], Cell[15336, 1116, 25, 0, 27, "Input"], Cell[CellGroupData[{ Cell[15386, 1120, 20, 0, 27, "Input"], Cell[15409, 1122, 60, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15506, 1131, 21, 0, 27, "Input"], Cell[15530, 1133, 58, 4, 25, "Output"] }, Open ]], Cell[15603, 1140, 20, 0, 27, "Input"], Cell[CellGroupData[{ Cell[15648, 1144, 20, 0, 27, "Input"], Cell[15671, 1146, 60, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15768, 1155, 20, 0, 27, "Input"], Cell[15791, 1157, 72, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15900, 1166, 19, 0, 27, "Input"], Cell[15922, 1168, 45, 3, 38, "Print"] }, Open ]], Cell[15982, 1174, 20, 0, 27, "Input"], Cell[16005, 1176, 19, 0, 27, "Input"], Cell[CellGroupData[{ Cell[16049, 1180, 19, 0, 27, "Input"], Cell[16071, 1182, 61, 0, 23, "Message"] }, Open ]], Cell[CellGroupData[{ Cell[16169, 1187, 19, 0, 27, "Input"], Cell[16191, 1189, 33, 0, 23, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[16261, 1194, 23, 0, 27, "Input"], Cell[16287, 1196, 178, 5, 68, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[16502, 1206, 25, 0, 27, "Input"], Cell[16530, 1208, 138, 3, 38, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[16705, 1216, 29, 0, 27, "Input"], Cell[16737, 1218, 72, 4, 25, "Output"] }, Open ]], Cell[16824, 1225, 18, 0, 27, "Input"], Cell[CellGroupData[{ Cell[16867, 1229, 35, 0, 27, "Input"], Cell[16905, 1231, 83, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17025, 1241, 33, 0, 27, "Input"], Cell[17061, 1243, 85, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17183, 1253, 36, 0, 27, "Input"], Cell[17222, 1255, 97, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17356, 1265, 26, 0, 27, "Input"], Cell[17385, 1267, 117, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17539, 1277, 30, 0, 27, "Input"], Cell[17572, 1279, 97, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17706, 1289, 32, 0, 27, "Input"], Cell[17741, 1291, 97, 5, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17875, 1301, 19, 0, 27, "Input"], Cell[17897, 1303, 59, 3, 38, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[17993, 1311, 26, 0, 27, "Input"], Cell[18022, 1313, 58, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18117, 1322, 23, 0, 27, "Input"], Cell[18143, 1324, 58, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18238, 1333, 22, 0, 27, "Input"], Cell[18263, 1335, 64, 4, 25, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18364, 1344, 28, 0, 27, "Input"], Cell[18395, 1346, 69, 4, 25, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)