(************** Content-type: application/mathematica ************** Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing 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[ 36560, 1603]*) (*NotebookOutlinePosition[ 43106, 1808]*) (* CellTagsIndexPosition[ 41941, 1762]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{Cell[" Calculator Operations", "Title", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Index", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "This index gives a list of keywords that are associated with various cells \ in this Notebook. If you Command-Double-click one of the keywords below, ", StyleBox["Mathematica", FontSlant->"Italic"], " will find the cell associated with that keyword, select it, and display \ it in the center of your window." }], "Text", AspectRatioFixed->False, ImageRegion->{{0, 1}, {0, 1}}], Cell["\<\ Abs Addition ArcCos ArcCot ArcCsc ArcSec ArcSin ArcTan Arg Calculation`approximate Calculation`arbitrary precision Conjugate Cos Cosh Cot Coth Csc Csch Degree Division E Exp Exponentiation Factorial I Im Infinity Log Multiplication N Number`complex Pi Re Sec Sech Sin Sinh Sqrt Subtraction Tan Tanh \ \>", "SmallText", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Arithmetic", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Syntax (see pages 47 and 193)", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["x ", FontSlant->"Italic"], StyleBox["^", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["y", FontSlant->"Italic"], StyleBox[" ", FontWeight->"Bold"], "gives ", StyleBox["x", FontSlant->"Italic"], " to the power ", StyleBox["y", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Exponentiation"], Cell[TextData[{ StyleBox["-", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " gives the arithmetic opposite of ", StyleBox["x", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Subtraction"], Cell[TextData[{ StyleBox["x", FontSlant->"Italic"], " ", StyleBox["/", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["y", FontSlant->"Italic"], " gives ", StyleBox["x", FontSlant->"Italic"], " divided by ", StyleBox["y", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Division"], Cell[TextData[{ StyleBox["x y z", FontSlant->"Italic"], " or ", StyleBox["x", FontSlant->"Italic"], " ", StyleBox["*", FontWeight->"Bold"], StyleBox["y", FontSlant->"Italic"], " ", StyleBox["*", FontWeight->"Bold"], StyleBox["z", FontSlant->"Italic"], " gives the product of ", StyleBox["x", FontSlant->"Italic"], " , ", StyleBox["y", FontSlant->"Italic"], ", and", StyleBox[" z .", FontSlant->"Italic"] }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Multiplication"], Cell[TextData[{ StyleBox["x", FontSlant->"Italic"], " + ", StyleBox["y ", FontSlant->"Italic"], "+ ", StyleBox["z", FontSlant->"Italic"], " gives the sum of ", StyleBox["x", FontSlant->"Italic"], " , ", StyleBox["y", FontSlant->"Italic"], ", and ", StyleBox["z", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Addition"]}, Open]], Cell[CellGroupData[{Cell["Grouping of Operations", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "Arithmetic operations in ", StyleBox["Mathematica", FontSlant->"Italic"], " are grouped according to the standard mathematical convention. Thus, \ exponentiation is done first, then division, multiplication, and lastly, \ addition and subtraction. If there are nested exponentials, they are \ evaluated from right to left. Consecutive divisions or subtractions are \ evaluated from left to right. You can always control grouping by explicitly \ using parentheses." }], "Text", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Addition and Multiplication", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["5 + 2 4", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ \ \>", "\<\ 13\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["(5 + 2) 4", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ \ \>", "\<\ 28\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Repeated Subtraction", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["5 - 4 - 2", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ \ \>", "\<\ -1\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["5 - ( 4 - 2)", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ \ \>", "\<\ 3\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell[" Division and Multiplication", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["1 / 3 4", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 4/3\ \>", "\<\ 4 - 3\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["1 3 / 4", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 3/4\ \>", "\<\ 3 - 4\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Repeated Exponentiation", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["2 ^ 3 ^ 2", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 512\ \>", "\<\ 512\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["(2 ^ 3) ^ 2", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 64\ \>", "\<\ 64\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Exact, Approximate and Arbitrary-Precision Calculations", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell[TextData[{ "Syntax (see pages", StyleBox[" ", FontWeight->"Plain"], "48, 51, 534 and 545)" }], "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["expr", FontSlant->"Italic"], " ", StyleBox["//N", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives an approximate numerical value for ", StyleBox["expr", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"N", "Calculation`approximate"}], Cell[TextData[{ StyleBox["N[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["expr", FontSlant->"Italic"], " , ", StyleBox["n", FontSlant->"Italic"], " ", StyleBox["] ", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "gives a numerical value for ", StyleBox["expr", FontSlant->"Italic"], " calculated with ", StyleBox["n", FontSlant->"Italic"], " -digit precision." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Calculation`arbitrary precision"]}, Open]], Cell[CellGroupData[{Cell["Exact Integer Arithmetic", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["2^100", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 1267650600228229401496703205376\ \>", "\<\ 1267650600228229401496703205376\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Approximate Numerical Results", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[" Note that the answer is given in scientific notation.", "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["2^100 //N", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 1.267650600228229*10^30\ \>", "\<\ 30 1.26765 10\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["N[2^100]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 1.267650600228229*10^30\ \>", "\<\ 30 1.26765 10\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Arithmetic with Fractions", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "The symbol ", StyleBox["%", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " stands for the last result." }], "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["1/3 + 2/7", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 13/21\ \>", "\<\ 13 -- 21\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["N[%]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 0.6190476190476191\ \>", "\<\ 0.619048\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Approximate Arithmetic", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "Note that whenever you give a number with an explicit decimal point, ", StyleBox["Mathematica", FontSlant->"Italic"], " produces an approximate numerical result." }], "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["452/62", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 226/31\ \>", "\<\ 226 --- 31\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["452./62", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 7.290322580645161\ \>", "\<\ 7.29032\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Arbitrary-Precision Calculation", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["N[ Pi^2, 50]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 9.8696044010893586188344909998761511353136994072408\ \>", "\<\ 9.8696044010893586188344909998761511353136994072408\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Common Mathematical Constants", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Syntax (see pages 50 and 566)", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["Pi", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " is the ratio of the perimeter of a circle to its diameter. It is \ approximately equal to 3.14159." }], "Text", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Pi"], Cell[TextData[{ StyleBox["E", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " is the base of the natural logarithm. It is approximately equal to \ 2.71828." }], "Text", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"E"], Cell[TextData[{ StyleBox["Degree", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " is the degrees-to-radians conversion factor. It is equal to ", StyleBox["Pi", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "/180." }], "Text", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Degree"], Cell[TextData[{ StyleBox["I", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " is the square root of minus 1." }], "Text", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"I"], Cell[TextData[{ StyleBox["Infinity", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " represents a positive infinite quantity." }], "Text", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Infinity"]}, Open]], Cell[CellGroupData[{Cell["Arbitrary-Precision Value of a Constant", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "Note that mathematical constants are exact quantities in ", StyleBox["Mathematica", FontSlant->"Italic"], ", so you must use ", StyleBox["N", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " to get an approximate numerical value." }], "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["N[E, 50]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 2.7182818284590452353602874713526624977572470937000\ \>", "\<\ 2.7182818284590452353602874713526624977572470937\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Common Mathematical Functions ", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Syntax ( see pages 49, 550 and 727)", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["Sqrt", FontFamily->"Courier"], " " }], "Special3", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Sqrt"], Cell[TextData[{ StyleBox["Sqrt[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives the square root of ", StyleBox["x", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["Exp", FontFamily->"Courier"], " " }], "Special3", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Exp"], Cell[TextData[{ StyleBox["Exp[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives the exponential of ", StyleBox["x", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["Log", FontFamily->"Courier"], " " }], "Special3", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Log"], Cell[TextData[{ StyleBox["Log[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives the natural logarithm of ", StyleBox["x", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["Log[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["b", FontSlant->"Italic"], " ", StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives the logarithm base ", StyleBox["b", FontSlant->"Italic"], " of ", StyleBox["x", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell["Trigonometric Functions", "Special3", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["Sin[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", ", StyleBox["Cos[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", ", StyleBox["Tan[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", ", StyleBox["Csc[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", ", StyleBox["Sec[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " and ", StyleBox["Cot[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " give the value of the trigonometric functions at ", StyleBox["x", FontSlant->"Italic"], " radians." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"Sin", "Cos", "Tan", "Csc", "Sec", "Cot"}], Cell["Inverse Trigonometric Functions", "Special3", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["ArcSin[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", ", StyleBox["ArcCos[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", ", StyleBox["ArcTan[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", ", StyleBox["ArcCsc[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", \n", StyleBox["ArcSec[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", and ", StyleBox["ArcCot[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " give the value of the inverse trigonometric functions at ", StyleBox["x", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"ArcSin", "ArcCos", "ArcTan", "ArcCsc", "ArcSec", "ArcCot"}], Cell["Hyberbolic Functions", "Special3", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["Sinh[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ",", StyleBox[" Cosh[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", ", StyleBox["Tanh[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", ", StyleBox["Csch[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", ", StyleBox["Sech[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", and ", StyleBox["Coth[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " give the value of the hyperbolic functions at ", StyleBox["x", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"Sinh", "Cosh", "Tanh", "Csch", "Sech", "Coth"}], Cell["Factorial", "Special3", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Factorial"], Cell[TextData[{ StyleBox["n", FontSlant->"Italic"], " ", StyleBox["!", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives ", StyleBox["n", FontSlant->"Italic"], " factorial." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell["Abs", "Special2", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Abs"], Cell[TextData[{ StyleBox["Abs[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives the absolute value of ", StyleBox["x ", FontSlant->"Italic"], "." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Square Root", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Sqrt[16]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ \ \>", "\<\ 4\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["A Note on Exact and Approximate Results", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " tries to give exact values for mathematical functions when you give it \ exact input. Thus, ", StyleBox["Sqrt[16]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives 4, but ", StyleBox["Sqrt[2]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " is returned unevaluated. To get an approximate numerical result, you can \ use ", StyleBox["N", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " or include an explicit decimal point. " }], "Text", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["\<\ Exact and Approximate Results \ \>", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Sqrt[2]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ \ \>", "\<\ Sqrt[2]\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["N[ Sqrt[2] ]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 1.414213562373095\ \>", "\<\ 1.41421\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Sqrt[2] //N", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 1.414213562373095\ \>", "\<\ 1.41421\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Sqrt[2.0]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 1.414213562373095\ \>", "\<\ 1.41421\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Trigonometric Function with an Exact Result", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell["\<\ Note that the arguments to trigonometric functions are always in radians. \ \>", "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Sin[Pi/3]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 3^(1/2)/2\ \>", "\<\ Sqrt[3] ------- 2\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["N[%]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 0.866025403784439\ \>", "\<\ 0.866025\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Trigonometric Function with an Approximate Result", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell["Note the explicit use of the decimal point. ", "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Tan[2.]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ -2.185039863261519\ \>", "\<\ -2.18504\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Trigonometric Function Using Degrees", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "Multiplying by the constant ", StyleBox["Degree", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " converts the argument to radians." }], "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Tan[2 Degree] //N", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 0.03492076949174772\ \>", "\<\ 0.0349208\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Inverse Trigonometric Function", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["ArcCsc[1]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ Pi/2\ \>", "\<\ Pi -- 2\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["ArcTan[.12]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 0.1194289260183384\ \>", "\<\ 0.119429\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["A Note on Inverse Functions", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "An inverse function is the solution to an equation. For example, the \ inverse or arc sine function gives a solution to the equation ", StyleBox["y", FontSlant->"Italic"], " ", StyleBox["=", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["Sin[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ". However, there are many such solutions. Thus, in defining an inverse \ function one must choose a \"principal value\". For the inverse trigonometric \ and hyperbolic functions there are standard choices made in mathematics. \ These same choices are used by ", StyleBox["Mathematica", FontSlant->"Italic"], ". For example, the values of ", StyleBox["ArcSin", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " are always in the range ", StyleBox["-Pi", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["/2", FontSize->12], " to ", StyleBox["Pi", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["/2", FontSize->12], ". For information on a specific inverse function, see its reference \ guide entry in The ", StyleBox["Mathematica", FontSlant->"Italic"], " Book." }], "Text", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Hyperbolic Functions", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Tanh[.12]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 0.1194272985343859\ \>", "\<\ 0.119427\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["ArcCsch[3.2]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 0.3076250673886192\ \>", "\<\ 0.307625\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Exponential", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Exp[2.3]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 9.97418245481472\ \>", "\<\ 9.97418\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["E^2.3", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 9.97418245481472\ \>", "\<\ 9.97418\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Natural Logarithm", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[" Recall that the natural log is a logarithm base E.", "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Log[5.654]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 1.732363259271399\ \>", "\<\ 1.73236\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Common Logarithm", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[" Recall that the common log is a logarithm base 10.", "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Log[10, 100]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 2\ \>", "\<\ 2\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Logarithm Base Two", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Log[2, 256]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 8\ \>", "\<\ 8\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Factorial", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["10!", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 3628800\ \>", "\<\ 3628800\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Absolute Value", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Abs[-2.3]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ \ \>", "\<\ 2.3\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Abs[2.3]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ \ \>", "\<\ 2.3\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Complex Numbers ", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Syntax (see pages 52, 562 and 604)", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell["Complex Number", "Special3", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Number`complex"], Cell[TextData[{ StyleBox["x", FontSlant->"Italic"], " ", StyleBox["+", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["I", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["y", FontSlant->"Italic"], " is a complex number with real part ", StyleBox["x", FontSlant->"Italic"], " and imaginary part ", StyleBox["y", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell["Re", "Special2", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Re"], Cell[TextData[{ StyleBox["Re[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["z", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives the real part of ", StyleBox["z", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell["Im", "Special2", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Im"], Cell[TextData[{ StyleBox["Im[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["z", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives the imaginary part of ", StyleBox["z", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell["Conjugate", "Special2", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Conjugate"], Cell[TextData[{ StyleBox["Conjugate[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["z", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives the complex conjugate of ", StyleBox["z", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell["Abs", "Special2", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Abs"], Cell[TextData[{ StyleBox["Abs[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["z", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives the absolute value or norm of ", StyleBox["z", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell["Arg", "Special2", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Arg"], Cell[TextData[{ StyleBox["Arg[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["z", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives the argument of ", StyleBox["z", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Exact Complex Arithmetic", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["(4 + 3 I) / (2 - I)", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 1 + 2*I\ \>", "\<\ 1 + 2 I\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Complex Square Root", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Sqrt[-4]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 2*I\ \>", "\<\ 2 I\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Complex Exponential", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Exp[ 2.3 + -1.2 I ]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 3.614222357067297 - 9.29632789845586*I\ \>", "\<\ 3.61422 - 9.29633 I\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Complex Trigonometric Functions", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Sin[ -1.2 + 3.21 I]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ -11.5663454084073 + 4.482135255280969*I\ \>", "\<\ -11.5663 + 4.48214 I\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["A Note on Complex Functions and Branch Cuts", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "In ", StyleBox["Mathematica ", FontSlant->"Italic"], ", all trigonometric and hyperbolic functions,\nas well as exponentials and \ logarithms, can take complex arguments and return complex values. Certain of \ these functions, such as the logarithm and inverse trigonometric functions, \ essentially give solutions to equations. In almost all cases, there are many \ possible solutions to the equations. Unique \"principal\" values nevertheless \ have to be chosen for the functions. These choices cannot be made continuous \ over the whole complex plane. Instead, lines of discontinuity, or branch \ cuts, must occur. ", StyleBox["Mathematica", FontSlant->"Italic"], " makes the standard mathematical choices for these. For the specific \ choices made, see page 565." }], "Text", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]]}, Open]] }, FrontEndVersion->"4.1 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 695}}, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{499, 537}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False} ] (******************************************************************* 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->{ "Exponentiation"->{ Cell[2946, 120, 436, 20, 70, "SmallText", CellTags->"Exponentiation"]}, "Subtraction"->{ Cell[3385, 142, 318, 13, 70, "SmallText", CellTags->"Subtraction"]}, "Division"->{ Cell[3706, 157, 395, 19, 70, "SmallText", CellTags->"Division"]}, "Multiplication"->{ Cell[4104, 178, 558, 27, 70, "SmallText", CellTags->"Multiplication"]}, "Addition"->{ Cell[4665, 207, 418, 21, 70, "SmallText", CellTags->"Addition"]}, "N"->{ Cell[8007, 353, 355, 14, 70, "SmallText", CellTags->{"N", "Calculation`approximate"}]}, "Calculation`approximate"->{ Cell[8007, 353, 355, 14, 70, "SmallText", CellTags->{"N", "Calculation`approximate"}]}, "Calculation`arbitrary precision"->{ Cell[8365, 369, 557, 24, 70, "SmallText", CellTags->"Calculation`arbitrary precision"]}, "Pi"->{ Cell[12053, 523, 270, 9, 70, "Text", CellTags->"Pi"]}, "E"->{ Cell[12326, 534, 247, 9, 70, "Text", CellTags->"E"]}, "Degree"->{ Cell[12576, 545, 338, 13, 70, "Text", CellTags->"Degree"]}, "I"->{ Cell[12917, 560, 200, 8, 70, "Text", CellTags->"I"]}, "Infinity"->{ Cell[13120, 570, 224, 8, 70, "Text", CellTags->"Infinity"]}, "Sqrt"->{ Cell[14327, 612, 137, 6, 70, "Special3", CellTags->"Sqrt"]}, "Exp"->{ Cell[14842, 639, 135, 6, 70, "Special3", CellTags->"Exp"]}, "Log"->{ Cell[15354, 666, 135, 6, 70, "Special3", CellTags->"Log"]}, "Sin"->{ Cell[16520, 726, 1623, 78, 70, "SmallText", CellTags->{"Sin", "Cos", "Tan", "Csc", "Sec", "Cot"}]}, "Cos"->{ Cell[16520, 726, 1623, 78, 70, "SmallText", CellTags->{"Sin", "Cos", "Tan", "Csc", "Sec", "Cot"}]}, "Tan"->{ Cell[16520, 726, 1623, 78, 70, "SmallText", CellTags->{"Sin", "Cos", "Tan", "Csc", "Sec", "Cot"}]}, "Csc"->{ Cell[16520, 726, 1623, 78, 70, "SmallText", CellTags->{"Sin", "Cos", "Tan", "Csc", "Sec", "Cot"}]}, "Sec"->{ Cell[16520, 726, 1623, 78, 70, "SmallText", CellTags->{"Sin", "Cos", "Tan", "Csc", "Sec", "Cot"}]}, "Cot"->{ Cell[16520, 726, 1623, 78, 70, "SmallText", CellTags->{"Sin", "Cos", "Tan", "Csc", "Sec", "Cot"}]}, "ArcSin"->{ Cell[18233, 809, 1662, 78, 70, "SmallText", CellTags->{ "ArcSin", "ArcCos", "ArcTan", "ArcCsc", "ArcSec", "ArcCot"}]}, "ArcCos"->{ Cell[18233, 809, 1662, 78, 70, "SmallText", CellTags->{ "ArcSin", "ArcCos", "ArcTan", "ArcCsc", "ArcSec", "ArcCot"}]}, "ArcTan"->{ Cell[18233, 809, 1662, 78, 70, "SmallText", CellTags->{ "ArcSin", "ArcCos", "ArcTan", "ArcCsc", "ArcSec", "ArcCot"}]}, "ArcCsc"->{ Cell[18233, 809, 1662, 78, 70, "SmallText", CellTags->{ "ArcSin", "ArcCos", "ArcTan", "ArcCsc", "ArcSec", "ArcCot"}]}, "ArcSec"->{ Cell[18233, 809, 1662, 78, 70, "SmallText", CellTags->{ "ArcSin", "ArcCos", "ArcTan", "ArcCsc", "ArcSec", "ArcCot"}]}, "ArcCot"->{ Cell[18233, 809, 1662, 78, 70, "SmallText", CellTags->{ "ArcSin", "ArcCos", "ArcTan", "ArcCsc", "ArcSec", "ArcCot"}]}, "Sinh"->{ Cell[19974, 892, 1625, 78, 70, "SmallText", CellTags->{"Sinh", "Cosh", "Tanh", "Csch", "Sech", "Coth"}]}, "Cosh"->{ Cell[19974, 892, 1625, 78, 70, "SmallText", CellTags->{"Sinh", "Cosh", "Tanh", "Csch", "Sech", "Coth"}]}, "Tanh"->{ Cell[19974, 892, 1625, 78, 70, "SmallText", CellTags->{"Sinh", "Cosh", "Tanh", "Csch", "Sech", "Coth"}]}, "Csch"->{ Cell[19974, 892, 1625, 78, 70, "SmallText", CellTags->{"Sinh", "Cosh", "Tanh", "Csch", "Sech", "Coth"}]}, "Sech"->{ Cell[19974, 892, 1625, 78, 70, "SmallText", CellTags->{"Sinh", "Cosh", "Tanh", "Csch", "Sech", "Coth"}]}, "Coth"->{ Cell[19974, 892, 1625, 78, 70, "SmallText", CellTags->{"Sinh", "Cosh", "Tanh", "Csch", "Sech", "Coth"}]}, "Factorial"->{ Cell[21602, 972, 87, 2, 70, "Special3", CellTags->"Factorial"]}, "Abs"->{ Cell[21969, 991, 75, 2, 70, "Special2", CellTags->"Abs"], Cell[33296, 1484, 75, 2, 70, "Special2", CellTags->"Abs"]}, "Number`complex"->{ Cell[31315, 1385, 97, 2, 70, "Special3", CellTags->"Number`complex"]}, "Re"->{ Cell[31923, 1415, 73, 2, 70, "Special2", CellTags->"Re"]}, "Im"->{ Cell[32369, 1438, 73, 2, 70, "Special2", CellTags->"Im"]}, "Conjugate"->{ Cell[32821, 1461, 87, 2, 70, "Special2", CellTags->"Conjugate"]}, "Arg"->{ Cell[33758, 1507, 75, 2, 70, "Special2", CellTags->"Arg"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Exponentiation", 37373, 1627}, {"Subtraction", 37474, 1630}, {"Division", 37569, 1633}, {"Multiplication", 37667, 1636}, {"Addition", 37765, 1639}, {"N", 37850, 1642}, {"Calculation`approximate", 37979, 1645}, {"Calculation`arbitrary precision", 38116, 1648}, {"Pi", 38225, 1651}, {"E", 38299, 1654}, {"Degree", 38377, 1657}, {"I", 38456, 1660}, {"Infinity", 38536, 1663}, {"Sqrt", 38619, 1666}, {"Exp", 38701, 1669}, {"Log", 38782, 1672}, {"Sin", 38863, 1675}, {"Cos", 38984, 1678}, {"Tan", 39105, 1681}, {"Csc", 39226, 1684}, {"Sec", 39347, 1687}, {"Cot", 39468, 1690}, {"ArcSin", 39592, 1693}, {"ArcCos", 39741, 1697}, {"ArcTan", 39890, 1701}, {"ArcCsc", 40039, 1705}, {"ArcSec", 40188, 1709}, {"ArcCot", 40337, 1713}, {"Sinh", 40484, 1717}, {"Cosh", 40612, 1720}, {"Tanh", 40740, 1723}, {"Csch", 40868, 1726}, {"Sech", 40996, 1729}, {"Coth", 41124, 1732}, {"Factorial", 41257, 1735}, {"Abs", 41343, 1738}, {"Number`complex", 41503, 1743}, {"Re", 41594, 1746}, {"Im", 41673, 1749}, {"Conjugate", 41759, 1752}, {"Arg", 41846, 1755} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1727, 52, 72, 1, 70, "Title"], Cell[CellGroupData[{ Cell[1822, 55, 57, 1, 70, "Section"], Cell[1882, 58, 410, 9, 70, "Text"], Cell[2295, 69, 444, 43, 70, "SmallText"] }, Closed]], Cell[CellGroupData[{ Cell[2771, 114, 62, 1, 70, "Section"], Cell[CellGroupData[{ Cell[2856, 117, 87, 1, 70, "Subsubsection"], Cell[2946, 120, 436, 20, 70, "SmallText", CellTags->"Exponentiation"], Cell[3385, 142, 318, 13, 70, "SmallText", CellTags->"Subtraction"], Cell[3706, 157, 395, 19, 70, "SmallText", CellTags->"Division"], Cell[4104, 178, 558, 27, 70, "SmallText", CellTags->"Multiplication"], Cell[4665, 207, 418, 21, 70, "SmallText", CellTags->"Addition"] }, Closed]], Cell[CellGroupData[{ Cell[5115, 230, 80, 1, 70, "Subsubsection"], Cell[5198, 233, 538, 11, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[5768, 246, 85, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[5876, 249, 57, 1, 70, "Input"], Cell[5936, 252, 89, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[6057, 259, 59, 1, 70, "Input"], Cell[6119, 262, 89, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6249, 269, 78, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[6350, 272, 59, 1, 70, "Input"], Cell[6412, 275, 89, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[6533, 282, 62, 1, 70, "Input"], Cell[6598, 285, 88, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6727, 292, 86, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[6836, 295, 57, 1, 70, "Input"], Cell[6896, 298, 95, 7, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[7023, 307, 57, 1, 70, "Input"], Cell[7083, 310, 95, 7, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[7219, 319, 81, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[7323, 322, 59, 1, 70, "Input"], Cell[7385, 325, 93, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[7510, 332, 61, 1, 70, "Input"], Cell[7574, 335, 91, 5, 70, "Output"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[7715, 342, 107, 1, 70, "Section"], Cell[CellGroupData[{ Cell[7845, 345, 159, 6, 70, "Subsubsection"], Cell[8007, 353, 355, 14, 70, "SmallText", CellTags->{"N", "Calculation`approximate"}], Cell[8365, 369, 557, 24, 70, "SmallText", CellTags->"Calculation`arbitrary precision"] }, Closed]], Cell[CellGroupData[{ Cell[8954, 395, 82, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[9059, 398, 55, 1, 70, "Input"], Cell[9117, 401, 149, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[9307, 408, 87, 1, 70, "Subsubsection"], Cell[9397, 411, 103, 1, 70, "Text"], Cell[CellGroupData[{ Cell[9523, 414, 59, 1, 70, "Input"], Cell[9585, 417, 133, 6, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[9750, 425, 58, 1, 70, "Input"], Cell[9811, 428, 133, 6, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[9985, 436, 83, 1, 70, "Subsubsection"], Cell[10071, 439, 196, 8, 70, "Text"], Cell[CellGroupData[{ Cell[10290, 449, 59, 1, 70, "Input"], Cell[10352, 452, 100, 7, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[10484, 461, 54, 1, 70, "Input"], Cell[10541, 464, 113, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[10695, 471, 80, 1, 70, "Subsubsection"], Cell[10778, 474, 236, 6, 70, "Text"], Cell[CellGroupData[{ Cell[11037, 482, 56, 1, 70, "Input"], Cell[11096, 485, 103, 7, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[11231, 494, 57, 1, 70, "Input"], Cell[11291, 497, 111, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[11443, 504, 89, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[11555, 507, 62, 1, 70, "Input"], Cell[11620, 510, 189, 5, 70, "Output"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[11859, 517, 81, 1, 70, "Section"], Cell[CellGroupData[{ Cell[11963, 520, 87, 1, 70, "Subsubsection"], Cell[12053, 523, 270, 9, 70, "Text", CellTags->"Pi"], Cell[12326, 534, 247, 9, 70, "Text", CellTags->"E"], Cell[12576, 545, 338, 13, 70, "Text", CellTags->"Degree"], Cell[12917, 560, 200, 8, 70, "Text", CellTags->"I"], Cell[13120, 570, 224, 8, 70, "Text", CellTags->"Infinity"] }, Closed]], Cell[CellGroupData[{ Cell[13376, 580, 97, 1, 70, "Subsubsection"], Cell[13476, 583, 330, 11, 70, "Text"], Cell[CellGroupData[{ Cell[13829, 596, 58, 1, 70, "Input"], Cell[13890, 599, 186, 5, 70, "Output"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[14126, 606, 82, 1, 70, "Section"], Cell[CellGroupData[{ Cell[14231, 609, 93, 1, 70, "Subsubsection"], Cell[14327, 612, 137, 6, 70, "Special3", CellTags->"Sqrt"], Cell[14467, 620, 372, 17, 70, "SmallText"], Cell[14842, 639, 135, 6, 70, "Special3", CellTags->"Exp"], Cell[14980, 647, 371, 17, 70, "SmallText"], Cell[15354, 666, 135, 6, 70, "Special3", CellTags->"Log"], Cell[15492, 674, 377, 17, 70, "SmallText"], Cell[15872, 693, 566, 28, 70, "SmallText"], Cell[16441, 723, 76, 1, 70, "Special3"], Cell[16520, 726, 1623, 78, 70, "SmallText", CellTags->{"Sin", "Cos", "Tan", "Csc", "Sec", "Cot"}], Cell[18146, 806, 84, 1, 70, "Special3"], Cell[18233, 809, 1662, 78, 70, "SmallText", CellTags->{"ArcSin", "ArcCos", "ArcTan", "ArcCsc", "ArcSec", "ArcCot"}], Cell[19898, 889, 73, 1, 70, "Special3"], Cell[19974, 892, 1625, 78, 70, "SmallText", CellTags->{"Sinh", "Cosh", "Tanh", "Csch", "Sech", "Coth"}], Cell[21602, 972, 87, 2, 70, "Special3", CellTags->"Factorial"], Cell[21692, 976, 274, 13, 70, "SmallText"], Cell[21969, 991, 75, 2, 70, "Special2", CellTags->"Abs"], Cell[22047, 995, 375, 17, 70, "SmallText"] }, Closed]], Cell[CellGroupData[{ Cell[22454, 1014, 69, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[22546, 1017, 58, 1, 70, "Input"], Cell[22607, 1020, 88, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[22736, 1027, 97, 1, 70, "Subsubsection"], Cell[22836, 1030, 633, 22, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[23501, 1054, 98, 4, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[23622, 1060, 57, 1, 70, "Input"], Cell[23682, 1063, 94, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[23808, 1070, 62, 1, 70, "Input"], Cell[23873, 1073, 111, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[24016, 1080, 61, 1, 70, "Input"], Cell[24080, 1083, 111, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[24223, 1090, 59, 1, 70, "Input"], Cell[24285, 1093, 111, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[24437, 1100, 102, 1, 70, "Subsubsection"], Cell[24542, 1103, 131, 3, 70, "Text"], Cell[CellGroupData[{ Cell[24696, 1108, 59, 1, 70, "Input"], Cell[24758, 1111, 116, 7, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[24906, 1120, 54, 1, 70, "Input"], Cell[24963, 1123, 112, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[25116, 1130, 107, 1, 70, "Subsubsection"], Cell[25226, 1133, 93, 1, 70, "Text"], Cell[CellGroupData[{ Cell[25342, 1136, 57, 1, 70, "Input"], Cell[25402, 1139, 113, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[25556, 1146, 94, 1, 70, "Subsubsection"], Cell[25653, 1149, 224, 8, 70, "Text"], Cell[CellGroupData[{ Cell[25900, 1159, 67, 1, 70, "Input"], Cell[25970, 1162, 115, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[26126, 1169, 88, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[26237, 1172, 59, 1, 70, "Input"], Cell[26299, 1175, 98, 7, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[26429, 1184, 61, 1, 70, "Input"], Cell[26493, 1187, 113, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[26647, 1194, 85, 1, 70, "Subsubsection"], Cell[26735, 1197, 1459, 53, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[28226, 1252, 78, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[28327, 1255, 59, 1, 70, "Input"], Cell[28389, 1258, 113, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[28534, 1265, 62, 1, 70, "Input"], Cell[28599, 1268, 113, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[28753, 1275, 69, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[28845, 1278, 58, 1, 70, "Input"], Cell[28906, 1281, 110, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[29048, 1288, 55, 1, 70, "Input"], Cell[29106, 1291, 110, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[29257, 1298, 75, 1, 70, "Subsubsection"], Cell[29335, 1301, 100, 1, 70, "Text"], Cell[CellGroupData[{ Cell[29458, 1304, 60, 1, 70, "Input"], Cell[29521, 1307, 111, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[29673, 1314, 74, 1, 70, "Subsubsection"], Cell[29750, 1317, 100, 1, 70, "Text"], Cell[CellGroupData[{ Cell[29873, 1320, 62, 1, 70, "Input"], Cell[29938, 1323, 89, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[30068, 1330, 76, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[30167, 1333, 61, 1, 70, "Input"], Cell[30231, 1336, 89, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[30361, 1343, 67, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[30451, 1346, 53, 1, 70, "Input"], Cell[30507, 1349, 101, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[30649, 1356, 72, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[30744, 1359, 59, 1, 70, "Input"], Cell[30806, 1362, 90, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[30928, 1369, 58, 1, 70, "Input"], Cell[30989, 1372, 90, 5, 70, "Output"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[31129, 1379, 68, 1, 70, "Section"], Cell[CellGroupData[{ Cell[31220, 1382, 92, 1, 70, "Subsubsection"], Cell[31315, 1385, 97, 2, 70, "Special3", CellTags->"Number`complex"], Cell[31415, 1389, 505, 24, 70, "SmallText"], Cell[31923, 1415, 73, 2, 70, "Special2", CellTags->"Re"], Cell[31999, 1419, 367, 17, 70, "SmallText"], Cell[32369, 1438, 73, 2, 70, "Special2", CellTags->"Im"], Cell[32445, 1442, 373, 17, 70, "SmallText"], Cell[32821, 1461, 87, 2, 70, "Special2", CellTags->"Conjugate"], Cell[32911, 1465, 382, 17, 70, "SmallText"], Cell[33296, 1484, 75, 2, 70, "Special2", CellTags->"Abs"], Cell[33374, 1488, 381, 17, 70, "SmallText"], Cell[33758, 1507, 75, 2, 70, "Special2", CellTags->"Arg"], Cell[33836, 1511, 367, 17, 70, "SmallText"] }, Closed]], Cell[CellGroupData[{ Cell[34235, 1530, 82, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[34340, 1533, 69, 1, 70, "Input"], Cell[34412, 1536, 101, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[34554, 1543, 77, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[34654, 1546, 58, 1, 70, "Input"], Cell[34715, 1549, 93, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[34849, 1556, 77, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[34949, 1559, 69, 1, 70, "Input"], Cell[35021, 1562, 144, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[35206, 1569, 89, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[35318, 1572, 69, 1, 70, "Input"], Cell[35390, 1575, 146, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[35577, 1582, 101, 1, 70, "Subsubsection"], Cell[35681, 1585, 849, 17, 70, "Text"] }, Closed]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)