MathematicaBasic.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     44111,       1161]
NotebookOptionsPosition[     40087,       1028]
NotebookOutlinePosition[     40575,       1047]
CellTagsIndexPosition[     40532,       1044]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"THE", " ", "VERY", " ", "BASIC", " ", 
    RowBox[{"(", "1", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"5", "/", "6"}], "\[IndentingNewLine]", 
   RowBox[{"3", "+", "4"}], "\[IndentingNewLine]", 
   RowBox[{"9", "^", "2"}], "\[IndentingNewLine]", 
   RowBox[{"E", "^", 
    RowBox[{"(", 
     RowBox[{"I", " ", "Pi"}], ")"}]}], "\[IndentingNewLine]", "Pi", 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", "Pi", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5376558544207907`*^9, 3.537655954328451*^9}, {
  3.537656108194934*^9, 3.5376562146823273`*^9}, {3.5376562547727757`*^9, 
  3.5376562576287622`*^9}}],

Cell[BoxData[
 FractionBox["5", "6"]], "Output",
 CellChangeTimes->{{3.537861356722869*^9, 3.537861367634523*^9}, 
   3.6303932652569017`*^9, 3.630393873955893*^9}],

Cell[BoxData["7"], "Output",
 CellChangeTimes->{{3.537861356722869*^9, 3.537861367634523*^9}, 
   3.6303932652569017`*^9, 3.630393873959506*^9}],

Cell[BoxData["81"], "Output",
 CellChangeTimes->{{3.537861356722869*^9, 3.537861367634523*^9}, 
   3.6303932652569017`*^9, 3.630393873961892*^9}],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{{3.537861356722869*^9, 3.537861367634523*^9}, 
   3.6303932652569017`*^9, 3.630393873964245*^9}],

Cell[BoxData["\[Pi]"], "Output",
 CellChangeTimes->{{3.537861356722869*^9, 3.537861367634523*^9}, 
   3.6303932652569017`*^9, 3.630393873966599*^9}],

Cell[BoxData["3.141592653589793`"], "Output",
 CellChangeTimes->{{3.537861356722869*^9, 3.537861367634523*^9}, 
   3.6303932652569017`*^9, 3.630393873968951*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"THE", " ", "VERY", " ", "BASIC", " ", 
   RowBox[{"(", "2", ")"}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.537656217868582*^9, 3.537656218892696*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"3", "+", "4"}], "\[IndentingNewLine]", 
 RowBox[{"%", "/", "2"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", "%", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"10", "*", "10"}], "\[Equal]", "100"}], "\[IndentingNewLine]", 
 RowBox[{"10", "<", 
  RowBox[{"Exp", "[", "10", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"10", "<", 
  RowBox[{"Log", "[", "10", "]"}]}]}], "Input",
 CellChangeTimes->{{3.537656221356328*^9, 3.537656342702045*^9}}],

Cell[BoxData["7"], "Output",
 CellChangeTimes->{3.537861367822558*^9, 3.630393267303524*^9, 
  3.630393874054276*^9}],

Cell[BoxData[
 FractionBox["7", "2"]], "Output",
 CellChangeTimes->{3.537861367822558*^9, 3.630393267303524*^9, 
  3.6303938740575047`*^9}],

Cell[BoxData["3.5`"], "Output",
 CellChangeTimes->{3.537861367822558*^9, 3.630393267303524*^9, 
  3.630393874059834*^9}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.537861367822558*^9, 3.630393267303524*^9, 
  3.630393874062983*^9}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.537861367822558*^9, 3.630393267303524*^9, 
  3.630393874066113*^9}],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.537861367822558*^9, 3.630393267303524*^9, 
  3.6303938740693293`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"THE", " ", "VERY", " ", "BASIC", " ", 
    RowBox[{"(", "3", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "-", "1"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"x", "+", "1"}], ")"}]}], "\[IndentingNewLine]", 
   RowBox[{"Simplify", "[", "%", "]"}], " ", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "+", "1"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"x", "+", "2"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"x", "+", "3"}], ")"}]}], "\[IndentingNewLine]", 
   RowBox[{"Expand", "[", "%", "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    SuperscriptBox["x", "10"], "-", "1"}], "\[IndentingNewLine]", 
   RowBox[{"Factor", "[", "%", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.537656365742443*^9, 3.5376564436954308`*^9}, {
  3.537656544240861*^9, 3.537656684970641*^9}, {3.537656715500407*^9, 
  3.537656787979323*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "x"}], ")"}]}]], "Output",
 CellChangeTimes->{3.5378613695203943`*^9, 3.63039327153611*^9, 
  3.630393874122863*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "+", 
  SuperscriptBox["x", "2"]}]], "Output",
 CellChangeTimes->{3.5378613695203943`*^9, 3.63039327153611*^9, 
  3.6303938741291447`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1", "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"2", "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"3", "+", "x"}], ")"}]}]], "Output",
 CellChangeTimes->{3.5378613695203943`*^9, 3.63039327153611*^9, 
  3.6303938741334467`*^9}],

Cell[BoxData[
 RowBox[{"6", "+", 
  RowBox[{"11", " ", "x"}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["x", "2"]}], "+", 
  SuperscriptBox["x", "3"]}]], "Output",
 CellChangeTimes->{3.5378613695203943`*^9, 3.63039327153611*^9, 
  3.630393874137165*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "+", 
  SuperscriptBox["x", "10"]}]], "Output",
 CellChangeTimes->{3.5378613695203943`*^9, 3.63039327153611*^9, 
  3.6303938741405277`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", "x", "+", 
    SuperscriptBox["x", "2"], "-", 
    SuperscriptBox["x", "3"], "+", 
    SuperscriptBox["x", "4"]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "x", "+", 
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["x", "3"], "+", 
    SuperscriptBox["x", "4"]}], ")"}]}]], "Output",
 CellChangeTimes->{3.5378613695203943`*^9, 3.63039327153611*^9, 
  3.6303938741439123`*^9}]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True],

Cell[BoxData[
 RowBox[{"(*", " ", "DEFINITION", " ", "*)"}]], "Input",
 CellChangeTimes->{{3.537656918612473*^9, 3.5376569421561317`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"a", "=", "1"}], "\[IndentingNewLine]", 
 RowBox[{"b", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"a", "+", "b"}], "\[IndentingNewLine]", 
 RowBox[{"a", "*", "b"}], "\[IndentingNewLine]", 
 RowBox[{"y", "=", 
  RowBox[{"Sin", "[", "x", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{"y", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.537656943130324*^9, 3.537656970710628*^9}, {
  3.537658354461916*^9, 3.537658358452868*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.537861371765141*^9, 3.630393277845869*^9, 
  3.630393874317418*^9}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.537861371765141*^9, 3.630393277845869*^9, 
  3.630393874323071*^9}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{3.537861371765141*^9, 3.630393277845869*^9, 
  3.630393874327241*^9}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.537861371765141*^9, 3.630393277845869*^9, 
  3.630393874330701*^9}],

Cell[BoxData[
 RowBox[{"Sin", "[", "x", "]"}]], "Output",
 CellChangeTimes->{3.537861371765141*^9, 3.630393277845869*^9, 
  3.6303938743337307`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwt2Xk0VP/7APDRYikVqcgSUiqJikopz5QlS5YkIaXQIkJIKql8tIhKKdmy
L1FZkpTtGbQou2gRyr7OXMuMWfG733N+f815nTvnzL3vZ71nlJ29rE/NoVAo
uUIUyv8+TU0W6/OVxWjh0Ub1Pdtuli93uz4mukqMZjyk0ykf6YT/7o49XyEr
RpNpXK7Z8tgLL1U3c7YsFaNRhVROpTy+jmn7n+WcnSNGG7KdU3To8UOcMVSS
/dEtSmNLXdA7/CgR3+zbOp6XKkp7duH0i8v3c1Fut23i6bWitOgD2poKQYhy
Fi7LIqVEaMavfu1aYNiIPvQtw71SwjTLON21pb9/4mnW+YJdK+fTJrQ/lRiP
duJdea+nB8Xm0ay3JFt8Eu1BoaYtv+4vnEvbnxvFMpHsxxdpH7TCOEI0ieng
DS85gxhzmaVziClEe9/pJ71t7hDes9iiJzcmRJNp/SbxftEQenBeGL8cEKI5
vJ1cmbV6CDcfiD5W80OINvyjTXvHgSH8MOl/Z2GhEI3BvyAqlDCE3/Zp/wm7
IERTSqh227F7GOn/coLDhym0pd76Vc+cR3BZ6XmF5/0U2ohBidSHcyO465n6
+9fdFNrF5KmK7z4jeNs8m17fRqG9j+vSZAWPoFJxup1kDYUWdEhYbjBlBG0i
4zWiXlJo+pKfrod3jWCJ4b22RA8KzeypgXOl/Sh2K5lczDtLodmrc8oWnhxF
UYGIRIUrhRZV3qprcXYUbd7cMux2pNA2fhV7Vu4/ioxVN/PWmFNoW088jD0Q
OYqrOZduZ22i0C5nOhyWrxlFqcM1rqc7ZrF8t99o0DY6OmgvSe1omcUMl3/X
fXfTMUnqUJdN7SxyVZgVTvp0VG9uO6ZfMos7prRMFQ/S0chy2FYpZhbXmYZo
7/KgY4CJmEmbzSwqb8+r6kiiY8ee/ZssamdwrJnfUz+XgWsUwtw/Vc3gm/iU
rEIxBp4T1GftLpnB9KthPZFLGDhVbKu6MXsG7x8NeL1djoESOqcVRe/OYNvm
GPflWxm4b+styUr9GewbrFu3/TgDM1WrWNtKplElx/snN5eBdksXOekVTOPf
XRpHr7xl4IIZ22qjl9O4ev3Q3sn3DPRoHY49EjeNxf8NadVXMHBzyFLq5avT
GJUXFLb+OwPfd528V6o7jfQPIbKeTAa61b2c/Kg1jaKX1cz9OAyU/cByrNs4
jSKfJ5p8BAwMjAjV7JSbRs/6qTq7eQRSIb9lli/AwcJQv2opAqvjKYr6pQK0
MBN5sW0LgZfvmt41eytAe2u1ezRtAtX8nowfeiXAZ1cCc/V1CAw3W//RNV6A
KYe0aVuBQCuepdvtQAF2vxHtLjhA4K8jiQVfdwvQMmu/597TBIbqD8k3awtw
3Z8lilZuBO7S1Lrdpi5Al/aZ+Uc8CIwX/mI3Ii/AHznWvuY+BJ4oZEyLT/NR
/cr+ovZrBA4t1TO2KuPj1dWeRiGRBP51U2m6UcjHIeccVbEoAltpog75r/n4
dLvsjdvRBFZ4fndfmsDHgz0r4s89JzDm29mHLUF8FPQEnP2VQeBDZQuZ+Zf4
+KuyQ0g5i8BbAVrJ27z4eOVy1xLnlwReUJ15E+XER1Ot5Dt1uQSaBEf+sKPy
sYpz9qfJewLhd4BTqA4fc5UURWyLCdy2+fjgh818lPN1yHQoJVC5cz1PVpmP
bVMXd5jTCOTuLFfoEOLjAWHd0J9fCMwaH3Q9WcXDp39LI260EphoXE9/VMJD
hQ9zIqV+Evg0scC/soCHzjeYMwm/CLxpHnRXJY2HujTXpYl/CLTPknrVF8JD
j4w4BYMuAi0pXO0V13jYNHDEJbabQMMjnWVGF3k4SlAkhnoI3DI/qyHzFA9H
VNrjvfoJFDupN+lmxEMvbe9A5RECZ4tUAmP1eNgnA+O7RglkLRabX7OdhysC
c78doBPYVfp9hfo6HlbdvZBtTxD4U+pDoqMiDxMUjfJsxgisO5ew/r40DxdL
VK40Hifwg4zbLoYID0Vqvq6QmSQw18uiahWFh/LzB7KYpNM/ax2w5HCRfak+
8SuTwEd+M8fyBrko0r61wHGKwDs1Pf3//nExlmbZKMsm8Nrqr16Sv7n49aO/
ZRNpt8bImz5fuZgutsN3HZdAOyuQ4tK4mPBfpGULaePG4bTr77lofT1OK4BH
4A6rqO3CeVxcOFdZUYpPoGrj3urwTC4eiOFIppNeYUW3l0rkYqcVd6GGgMD5
jdEjMVFc7CgViOeQ7m0gFmfe4qL7kyCVyGkCWyzjkjZd46JaaakOh3RVg9HW
t35crJa4ZmMzQ+Aby4mqXR5cfFCS7p9JOqXh+eEKFy5anlNMHCf92NJkYP9R
Lp63bK3bOkvGt4EZUG/NxXblwjnupL0tkxYcNuWiukLunljSJxrM4v/s5WK4
0LsgGmkrS/Ym551c/CaFnzpIQ0MKDm7m4lGFyqUTpDUsLQ56rSft8eHUNOlV
DdxuliJ5P9+Ty2dJL7JM9wuU5qJz9hUFLmlBvZXw3CVcHKs1DB4iPWoheBYq
zEVunAi9kfSf+swNEjMc7Bd8PpZL+pvFoZIoFgc/299vCSFdXD9zQIHOQYvk
0wcPks6yyO5M7eVgk9HJlmWko+sPe6u1c1Bv34NjDeTz37UQmpP/nYMKEkL0
G6Qv1b+K3FHDwdv5DcEbSJ+2sFtbXklef7VU8St5vrb1c4sMijm4eEFfhRNp
I4tc45p8Dk7bu7rTyfhsq3doO5jFQdHcPDkf0msshD1+JXHwXdJoM52M77L6
/Onj0RwcN93z6ATpeRbHHvY95KDA/JvtNzI/JutElT3ucNC1vkxlI+nmOieD
y/4crPS839LEIbDSfOGP2fMcHPT49l6adH7duzO3T3EwN00z3YbMx4i6RWGR
Nhx0ULN6VsAi0LyupOn1Vg6Km4YMzJ8gcLf5GRdtNQ5aa4dLzSPrQ71uKatY
mYNXHrw34ZL1tKDOTaZagoM/fF61VpP1Vl0r7dTNYKPRr3o/wSCB7w9UjZ3t
Z+OiW+94bwYIzKz1DCY62LjwndP9E2Q93679lC6oZeOyAb+2JLLeDWp9R1e8
ZOPl3uxV7zoITLBbm6WRysaXr39vpbYTyOn9ccoojo1fa6eCKtsIfDW98+/F
MDbK/PGh5ZL9Z7kmpbnFnY17qPKT6k1kPpbkPxh1YeMTH4emgAYy/vtdzOY5
spHNTR8urSMw6MTnj1oH2KgXI9O46RuB/Y/Cix6rs9HYDH3eVJLzZpWeX/Ya
Nm5anLONRvbD2Gxic6U8G09E7dvxuZxAiyrr7HFxNoZtNucUk/20iCnz3Io+
hZNre6/vf0Pmy5H04MU5U2jVpSZHTySwu8cWVDOmUOHWHeHrZH/f7S0q2JMw
hcydqjvF4ggcu+t+8fyDKWTPifQXJueDffGWs7WeU9j13dclLYycZwrl5vc0
p9Bref1Tz4tk/+r+ISOcz8L+V6f19+oTqBRt0en7goVWe/s3PSHnm5/559Su
RBaG+79X6tQlUP59oUbZAxau649ROULOx3P3nxj4ebBQ+MvH0o41BArrWHt3
r2NhmPVnHT1y3sL9ui/lCUz87bK53KaUgY/3Gd5Xj2KiV/Yw814RA/vZpdax
95kYc0fo6Ps3DHzg/KrjYiATPbGxmPOCge07wibVHZho+85mbMlTBgZ0GyvG
LWei1KFt/jHuDMzf8dH/Uvgk5tUZhKksZaCp3c+ji0Im8YTox7XHxRnYHTBM
Tb06iQ3MMu8IYQYuK5ZY2HBuEud+f7iqnUdH/93HElVNJrGyeJOIRA8dd+2d
+tI6f5Kc633XR/LpWGm6fqX29QkMLbyucs2Ejs3HwkvGLoyjdXHGLt8To9h6
L71G+tw4zuu4WqZB7n+/isr/6DmP43znx549B0fxr+Q4P9x6HB+xQ5119Edx
9NPh3Ru0xvFm+caqiLWjKKyhWHaSOYYnf/7kCAbJfXQmv7zZfwz3LP4n3Uju
p/v25P7nxmZgst99vzqHYdQdOl/o0s/Agya9QqsPDqP2U/WBY60MFOqukPfa
P4zr6Fmm1gUM1B9eJDypNYziz9Mkdb0YyK83YiaLD+NPQUyi+AAdt4XNy08o
Jffr0pCS3B+juG8FZqyTHsIoXYdJVuEwfivsEV5VNID7vRb2S5f14/MfZ9ne
f3sxR7FJV8+rG1O87tn959mFq/qiywfPtSPXfsGsVtAfjGHFLbxxtwX1nz1f
8VWjBWdnHu6hcr7gYat+Vd+WL3itUejfq7l5eCu16gZFKA+dH3fGWj3Kgd61
7LLs8ByI1lu15XxCNZy5ZqKQdqkaIoXeScvotkB6VPYTw77v4Dlc0DjW2A72
dn1y2m1/QG2/CtsmsRt+ZgtfqIrqggqX/jnx9/shSdZLxrGkF1LmPn3Z2TgM
cddLXqh+HYAD6RtPfP03DFsibt/4+n0Apowql70dG4ZMlqbv6c4BML1HXAuV
GIG53gkJDyYHYELC1ErbagRu0GkfnykMgv6qWWZowwg43c0QC/MehF4dN71t
9aMwWmSf1CM5BKqee5rCahigfpGw+L53GIx2PjdS/cMAswPFp0tMh+H0vOkS
2jADJn109Z4fIn83tjSDJUYA8yWhYnFqGNZ/0Q10MibAaqPjQ9e7w7BBadc6
rU8E/DCVXO5cNwwr3OL0zjuNgbn6leRH1iOQYWF2edeZMfCqKyh87TAC27X5
BSJeY2B8lm9c5TwCtrMOG1KCxkD9z/y+Np8RiHoqu+zn8zFYmv+srOTxCEhX
xgxR28eAEWNiuq9pBGTkop8ssx+HkmHm2GGTUcj5efNz2MlxELcuTNt9cBQM
n7hz5pwbB62sxe5y9qPgswgcx6+MQym1XLXi7CjUzfap1MePQ47NqPzrO6MQ
3KtVcOffOAin5a2e/3EU6K8bmnhnJsDYeQM/YzsdQs59mOvjPQEy16MHw/bQ
QXZd6rahgAkYWXo546wBHYyT/GN+hk6AZFlXmJg1HVIeK5x8+3IC3C5LVw96
0MHukvvYeWICdINbXeSS6VBJFVnS5T8Jawi1CIO5DGCMDS//EjQJNiLxzSWi
DJBNrpd/fXsSTnlaVW1czAAfoSi1y1GTcGmFTjZLhgGrK9cYSb6bhHvW9m5b
NBhwU3/ftb2sSVA7eun+/iMMoBpdG0n2ZQKlUqmxL5UBHlMnJu5cZcL4f8Ee
3i8YEJ1hwD3/HxPGFuyOmHzFgDFhcZFdkUyga1m79RQyIOlL7OrmN0z4GF2g
7/aFAbPG7+3nTDBB5fv9V+JDDCg3m/zi7M2CfduGjV+qEjDWLPF5IoAFz/4O
Eo/UCFBx0PgYfJMFFdEjWV4aBNw960ZLecyCe/xH1hLbCbC+9fd991sWWK2f
a9dvQEB/eU2WM5cFpo29xr0nCJAxGsqcEJoC2fldSbquBJjVCWcEL5gCas4x
fugZAvL+7E1JkZuCw66Sbxd6EnCFUxTbvWcKLNpvyqZeIWDx1rQw5+ApOKTC
Yyo9JoD6oSJ04t4UGJ6fKzb4hABf6t87wZFTUJ0cL5nxjIBfFrIhKWlTMLX+
2LTwcwJS3CMCuz9PAdOjdINjJgEtE6+v+DRMAS/zV21bFgEiV2oC5vyagnxW
yHGrVwR43BW+uHpoCp6oo6lSPgHb0wPPOy9kg7xhutahYgLOqse6T0ixYZ6q
nE5oKQFxBUVuwfJssPb/svZdOUHGaeJUyiY2/KUYFzMrCfjWefZ4tyUbnH7J
Fs2rIcBJ5rCl8xM2zP5YG+z1mwDVSI/VJ+PZsFR81ojTRgBjUQjLKY0NzkYX
pC+3ExA0tyDu2Fs2sM+k/Hb+S0ACQ2LQroUNAxNbfv/oJeC02/qSI+1s+Eq+
Uiv2E6DRCw9se9lAZStInhwgoOy3p7YNkw26Qwvca4YIaP9Ye8NyGQda209c
pTIISIPeQxbyHPjtIdNkQpDPX8xXNV/DgbcKtpvMxgjg56rVmWpzYE2DK2fb
BAGVavuSTHZzYP7ektOKkwTcS7f3NTbggPe7lDYKkwDZuLsrjWw4YB5g2PyS
RUD38qRRA0cOaKtGHb44RUB2RBHqu3IgOzalYzubgJ23+0/t9eOA/W1NfjKH
PD+hGR1qIAfarQ5HmHEJqL66XBxCOBB99+YGOmm7CwZvdj/hwJUW8zMyfAKU
Ro/e0o3nwAbN1IUppAdP+9rtSiN/L8StQEVA5lfXvY07X3Fgs++N489JX3JM
mdnxlgPGsV/Fl0wToPfzQ9P2Ug7oR60vDyAtbN2Utu0jB8Ln/OfTRrq+dvCS
di0Hdl+mbdCeISBqP8VMq4UDKyO/9dwifbxSetXWdg6kDoQnkfs2qO7RHN/c
y4Gli1hOkrNkPIuMPmqOcsAlekLZjPS7rcefaTA5YKNwqT+QdNDri+c2CTjg
ruH/OoO00fr7e9TncYHn2OdfTXpxaprERnEuKO8s3ddNulWhtGfDMi40HmRK
MEnHR39/t16eC1+0Q7vI9w9wlRoJXbeGC7GeAW/J9w9QfzDnmKo6F3LvVYSS
7x/AFJXdvFabC1Sp0ydHSJf+t2Xumt1ccHjkpttKOmTG+MdqAy60hTdJF5E+
cPlElvIBLlwIT5+KIL2MeSlQyYYL8cuJn86k2z0fWio6ciHj1YcSddJpQxmr
V7lyIaVlaQqDPA8P13KWvAcXzi1ZEPaCtNbf1mo5P/L+OvL8HUjz7OlxsoFc
CCuXPTWPdGXLPK+VIVyw3nzMNoM8f+tvWsuln3BB9X3N3mYyfq2/c6vpcVyQ
M5ZJOk7abmhj4MdULpzqEznYQ8b/mOiangsFXHALNn7ZyiPgn3RSlHEJF57s
arPRJ+28Tt5UsYoLfd4RB7PIfDprtCy/tpkLReIUw+Nk/o0cjnBNbeNCwIDo
7tdkfnqeEpe50s2FerXW20wyf/1C5l1fN8EFgbS7jAeZ39crmQeCJXlwrvv3
5tlxAuY0e1PsV/LAxFevRoJ0SNdogaYyDy6mCYplyXq6R+mT7djMAxGBb5w0
WX9Req2DO6x4sGGZzplCsj5XWhyMX2zHg9v2RgWhg2R8j9VZ9jnxYHZXsa0t
Wc/JgZ/ePfbiwV/kp/0i6/9VcWEI/QEPLHa6n7lJ9gfNb1t0Pkbx4M/gqksy
nQS8+f16JDaBB5yWD/8yyX7ynpNubZzDA7a0WFUu2X+qtkcppdaR14U06l2+
k/lntLTlcisPrvhpFpU1kfV3+MEdqw4erN+3ZHpJI1kPfrcZ06M80LEVTX5e
S0DbG/9SO3E+hDfEHT5G7g3HKie8NJfxYdNbvS1Xqsjzb/JUEZbnwxYX9fMP
KwjoGzt9r2AjH2qVKkRSy8h5o3HEbrEZH4ZD17Z6FpL9+OUOZlUoH6TehOyN
SSUg4hE9weAxH8Ke9X0RTSb7S0CqyadYPjg6vnbySiDz23BJ4ueXfBDJcfms
HEPmy99+k691fJCpeHZL7gHZL6WiEuslBWBvVhXo4k/Aep6ZqaWsAHo4Gy4Z
+BKQ/0+I1bBaAOu1ex/KexPw8fV50yYtAfz27ld840bA0H5D1vfDAvi19u13
H0cCtAOZpr9jBCA8d7eTGZWAcudsln2KAOS69ucm7CZgv8mJpLZsATQIrdg0
pEOAw4pa1p8SATyXUX/nsoWAG3mpSZ0dAiix3yxPKBNQ02s91aM8DdMBRpon
hMj8NM9PZmRNQ5Opcn7BB3IfWHdSuTN/GhYdDUii/m+eC0km132YhmrDBXM+
5zGgo9A76dXXaXApM1YqzmSA3arNieeGpiEkM2hw/1MGmBM58f3rZyBC3vYF
z5MBOo9ePevMnIEzw62mn+QZcMTdUbo+dwZsLvz44izNAH9D8WdlRTOwTmmg
gyPJgAKue1T8lxlo93nQtliEARrOG586DMyAk3q+bvcYHVS0sh//UJ2F2Er5
pnVVdFjcmnm/Pn0WXkSIGuk400Hr9qN5Z3NmoTnomKPrUXJ/2nH1qlDRLDzM
eM++Y0OH1BgLN+3qWbgdceFToREddI6zDGKHZyFnjzDrpRod8n2VZ95IU6i/
7IPOzxsfhT8Cz8IgRwpVVJ8S6ndpFDSXLFizop9Cjfhp6NXgPgJKW/MbLIYp
1CNV4uelXUZA4rDd1TsMCtXKK+fbEXJfHYvNaOZMUaiBoftyK4xHIE9V/+Yf
ESHq2OgZ511rR2CrXmBn0gYhatcV1+cV7cOgfZ4RvfG8EFVVfmDnTqNh2FnT
vGgvU4g6G3DC3XnuEIxwf0cZjc2hrtS3S6pz6gdvMXmRMKF51Nwxk7pS5R5I
DItfkU2ZT32deif547O/oJGeu/UTbz51WVnKi+rIX/AocXqb4gIR6i2lj5+V
HzRCvPi9X4dERKlFLf/KFOMr4KGCtn/5QlFq5P53uoq2FRCs0Sm1QUKUKrFp
wnulRAWcsdpqOSMjSq2p4tvO/EeDrU/aPr1QI7+/51a9zM9yqJbbWDBtLkp1
UfsQE+1bDJNqtfczn4hSF9dxVbsz8qFf13/j0hhR6tTw1d6ulfnw64DS18Dn
olSKB829PTwPyj395llniFIPCTjCt/py4O4b+auCIlGq9N/F0rmB2bBq1/mz
B/+IUu3XD1CfZiWDpJm0cOlfUeqn1WsNVzxMgnmOFamqvaJUzZ+9V9YMJcDQ
teV/+aPk8500+cQJioW3FWWHM2ZEqa+sNFoNsx9BZvOZSYm5YtTP/bVDUsMP
ILZH8tFVETHqE4FR2ePr9+D6/NO1VhJiVF3D28GXs2+CzwqJcyXLxKgByxtN
q69fAdd1xSKqK8WorXTpa0+zL8ARHdf0CAUxqnCHRGxx9kn4//+3qP///5be
/wErQNNl
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->
   NCache[{{-Pi, Pi}, {-0.9999998782428621, 
     0.9999998593152271}}, {{-3.141592653589793, 
    3.141592653589793}, {-0.9999998782428621, 0.9999998593152271}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.537861371765141*^9, 3.630393277845869*^9, 
  3.6303938744570513`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"The", " ", "last", " ", "command", " ", 
     RowBox[{"(", 
      RowBox[{"Plot", "[", 
       RowBox[{"y", ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}], ")"}], " ", "is", 
     " ", "not", " ", 
     RowBox[{"recommended", ".", " ", "Instead"}]}], ",", " ", 
    RowBox[{"you", " ", "should", " ", "define", " ", "a", " ", 
     RowBox[{"function", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x_", "]"}], ":=", 
    RowBox[{"Cos", "[", "x", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"f", "[", "Pi", "]"}], "\[IndentingNewLine]", 
   RowBox[{"f", "[", 
    RowBox[{"Pi", "/", "2"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.537655956457848*^9, 3.537656033130013*^9}, {
  3.537656980821726*^9, 3.537656988661605*^9}, {3.630393295585257*^9, 
  3.630393314614335*^9}}],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{3.537861373118012*^9, 3.630393316195331*^9, 
  3.630393874483756*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.537861373118012*^9, 3.630393316195331*^9, 
  3.630393874487714*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJw12Xk4FV/cAHDbvXcs2UOytalsLfJrUc4oLVLWFpUia0lRSpE9SlmyJSQV
QipL1mxn7Gu2ZCch671zyJYt77zP8773n3k+z8wz5zvf8z3nzveZDeb2hlYc
bGxsT9jZ2P73eFKb/8jSBm4iZ/V/fwiuve4xiclwExfVedYvU+73m3wtJslN
8H27aTdJ+VPyVZ3NYtzE6wDlmR7K96tb/u4Sps7v1f1SQvnw6JFEwM9NPL7V
lhhLmR/LNjrNw01Y5zc0O1Lu3CrPfonOTex4oqmqSTnh+MvUaxzcRKC8eh2d
sr0NZuL0DyMMGmuiyv8heOCJM7fPIkbcfL0S60KZnjSeEzKHEVMho13bKDdX
XrJ88wcjaGGxpxtXEIwZrhf6TGLE8A21+ZuUr9E1YP44RvTXl7dzUf53VE6y
bQAjbl9V01i/jGCNVUjVYB9GZN/SK49eQjDcl+PeVBdGXMz97iVMWbFiqJHv
O0Y89XkXP76A4NzQWTfJRoyQ51HFdCiXclUpbKvDiEPfihPi/yJorPXB90gZ
RqCB648PzSO4yVJS1QBixKRJf537HILkI//+KwUYIWuxqp03i6Bv2U11l0yM
WFZbnBSZQfDL4d1T6fEYsf1XHLo5iaCbeXxs8RuMOGYjyHYbIXjCW/RU/SuM
IKZ6T9qRCP4smUscCaPuVxoZrMNEkE+zwETGByOsF2YGP40g2G6mxKPkiRHm
a4oabg8jGOf5One/K0aEp6ydU/mN4H7CQ/jsXYzI/Ji1FDKAoDXQqva3xIi+
gryJxR4Ed5lm34sywwjVFnq5VzeCy+7ym5JMMGLTr6Buti4Ew4ox99IzGOHm
VlEz0oYglQjVBS2MkDbz/mzchOD6g+feWG/BCJ84cbKyBEELBwUD2Q0YIepu
cCMJIvgx4R9HhxRGNOjUf3cvQlB9TZK1tihG6IesXhP+iuClvnllJU6MMCK1
c+rTEHzlGVU41c8gts9euBv0CsHBrJu3UnoYhPAX69neSGq+xjTlLDoYRJF7
vd3mCAQLDMYftTYyiIPMMs2IYAS7N6rr5BYzCEGt9ug1vlR8FT2drjEM4kJd
eoWOHRXfQrq/WiSDMKx3FuC9TsWn7HuIDGMQ4enal0usqPgilN+Z+jMIpawy
TMSUis/G/dphFwaxcF08/6QBFR+33DzDmEF88b1szbeHur+uhWiYCINQt42z
6/9Dwki//EvhAgzC3X7vq3qShGJlQvEveBnE0BUekYxxEgruI3ZFclLnm3wG
zAdISN8orfd6mk402k5L2zaTcHK27WnSdzpBO6kxx0glYeXrk6sFYXQi2U12
zdOrJNTqeHes6Dmd6OV/7eNpQsIS4YXAYn868WVn63WH8yQsfJIkVfKITnSN
uHnvP03CjNtcByod6QSLESx4ex8JY44W320yohM8hHm50xoS3mHtGh8SoROl
vYXCwxksGNp7TnNRgE48FAsd4v3Egl++PYwU4KMTHsp5UQqJLDj1ueLYAS46
UdX3KtMwmgUdbl2Ifz5DI0wW4r6d9mZBe+RpcuAHjTjjrvdzUp8F7aYaG55H
0Ij/FOrnZkaZ0Hr2ZuaBdTRCLOuFqS4XE3IszvIvidKIORWpi6LLE/DNPzfb
AkEaQWgIO7RMT8AORtCGgxiNqFV+O//f4AQ8KZn6/NA8F/FOhpb7rmQCqgDy
Bv6Di2gN0uJjc5uA8363Nh8L4SI+vXJQmWKNQz8p+xcG3FzECefLxmpfxyB7
866OQF5OwrGmJtpVaQQmJ3xV9f/LTpjO0KRLOYYgqz/VO2Ccjbh/9bHaYmA/
FDlbZ2nduwpLhUaTBDZ3wST5slm1ghWYgjvGXtzcAseENU7oFy1BYmTJVqis
HF5vCvO6U7MAE6JJNxtWAtSqd2SKfZyHDV0cD0ascsG3gTYJesYsNCU91941
qAMZe8ud7gdMw0fPgl6mDfwALZcDCiZvT0Gzc7t9YXgvOHwo7dH1eRL+LUyq
c5QfABHqF6dns8fhbOTaE9yuv8Fxe95h8aJhyBG2YmShOQqwx+Ye/R+HYbtd
TVL0qVFQG/NV4kP0MOzVWPpTe34U6Nba6Bx4MAzD78eai90aBWe2lKebqA5D
3CT7lHH0KDDrdn347sNvqMFz18t3ahS4HCcFFSOG4B/w1cc+egykyjara9gP
wJvIJ77zxzhY5DMVPX9lAJaMvxXi/TkOji4ymfanByDPtCWb2ug46GnFYt8p
DkAvkc9n7yyOA55nOBtt9Bc0vaYQGSozAaxn0srrzH7B0KPbdWysJoBMTdDp
C4b9cOiBko4+awLY5kjJ39Hsh1o9wpyBsxMgOz7l37Od/VDtIJNVsjIBTrlX
phXy98O3FgZGovxMMGO9vAmP+AnPRBpIX1Jhgs/q3Z++PemDaDY/79ZNJpD5
HVk8atsDnXXv/4j9zQRmU/XrTXV6YHhkkuNVJhPErbA5/1DsgV9Tu3ilp5lA
Xuy6aimzG6Y1EJs82FhA5fj+5Fe3uqHcg13lpCQLHPrQGaJ7pwuqvbhm7qLL
AiY3Ja2ynDsghzWhtS+dBWKddUsVLnbA7G0f1onnsEC/r7fsuwMd8POHqFyy
gAUsY8c7A5faYcbU8Am/Kha40Ziva+PWDo8rjkZZ9rGAy65L+yS92iA6OE8Q
PCSImn3F6+nXCo+XRHWvXCYB8X7UX9e6FeYqHS+5bEGC0bNqfNJarVAz+cpi
1jUS7Mtp4Mtf/Q4L9mabaTuSoM2JnX/G6Tt0vs76zu1HAuG/1oLXrFrgj0ox
vtE0EhxIzgz+70gL1IkZdCrMIsFVYzYh2oYWqOLcL+33lQTpeVFCcT3NcFRk
WpJWRgI953rhHqNmWBlb8fHFDxIELO5aq3+4CTLzUzgEF0iQleL+Qkauicp3
Rsj5FRLkZEcodi01wnW6Kici2BE461SjJOrYCHfqZssvcCMQOq+yw+9qA9zH
+OB3RhIBvsUFVQeNepjbzNlnth+B1X/PD+F/q2D4GXi42gGBhNILEdZ5VVDd
+atMkSMC2o83oYAHVdCiS3lrihMCYWty33b+rYTiRa/z7VwR2CrVx+m4UAHt
hL+0hz1BQG+/Uu37xTIYeKzV4HoMAjPLsxvr88tg9wPjuP5YBKII+PCPSxkM
R9Gi+u8QGDxupAyWSmGS+OQl8UQE7p9zCe5YKoE3uUytjqchoDES/FlsEcJv
c92/lQgEqO3I1MIFwiK8bY18KQIts7mC6YvF0ICjWle8HAFrrp+O2ktFUHEu
Yd1AFQJBG5QPuC4XwADBfZUSjQh0JBMT1a4F0Kn8e3JLEwIbd555vXYlH95R
Jt76tCCQo/GQLW3lKwyT721o+oFA36Wayl//cuEb7VYJnh4Etg2aPFDxyIV1
DuHRPr0I3LGd3P5wNQdue+2qMt+HAN1ZPFCULQfqy5/zL/+FgEqEldFx9iy4
3SZcgG0EgQfSC1zhXpnw1VmWhPooAqUJATn97JnU/3bZrltjCJzLzFznwvEF
mgjkBxdOIODWxN7/iTOdSsDE0gJCQEkiUmyeLw3SnYNjJicRMH2udDNcOBXu
CUiO+jmFQLnbWclG6U9wq6x+cuI0AnMzYw52mz7Cwto7X91nENhu517FvT0F
zqvtkNebpfJzMemu1p5keKYoTahzDgGiWb3u1/4kaJSwNjh0HoHpE00bPEAi
LO83vq71FwHjvQsNX08mQBpfo2LIAgL+qYFbzuvHw83WX0SVFhEo3rLRdeZs
HLRgfj8PKW8S1dm+4+pb+PP2MWbDEgIfxeBq5LdYyO9+7pDOMgKCtNFP3zti
4KmmjaOQ8r1pwYv8Q9Gwzes5U2kFga5f+xnaKBJqenqfDKUMmsyzHi1GwEeB
g+yTlBOK/a8W017AvyBG+Ng/BHg+Z/EvCIZBW45I13DK9q96C1SlQqCwaDno
ppwssqalRzcIvvYTMJFcpeZv8oqSodUzqHriRrMB5YPf0h9XPXwMXQRq33hR
ZqRw/DoY6g1f2MtVfaAct+aDk6WBG1RqsDxeS3lv1SlFPfd78IbVc7lByi/Z
f0HHczcgTSvacIay55i+YajZebjvtFfvCuU8wtOONw2Ayn2HS6j+AZAJJ7j4
YiwAW1jPygLlgUjP0+vf3QbFhQZhTMq6P3sid951BhYTCV7tlHtCpf7ExXuC
rm3d1fmUhXNqXyoH+oCXRkvXIiif6HxwKM/JD4TK8JvbUnZflh88bBYAtIVk
sv6j3PXctnx4czAoeLLXdInKx913muKf1oUCqy/XLPIoC2RK2N7mDwcaESXE
Tcop5ajwP84IkMN35v56ykfbKgWW51+CjDLVJyVU/vtHXpuXMKOA2yGnSVPK
YrynsFNtr0FXsnejLzWfGVKbLgnVvQGcFZ5H11CWF185N/HzLdi0oL02kKoH
Ylvrh/TWOCApk196j6qXoAxgJNIYD7h74t/2UfV16cDH5Xs1CUDgVF8HoDyn
462nXpwIOhf7jCeo+ixvZf19nZcE1JLn3qpRDrl8IY4tMxmUDLFrPaDqWcl+
52xFUgo4Rkt5NUzVv3loX7R+SCpQFEuOsKHWC/uyj+Kft2mg/JlZpSm1npq+
rO3TNk4HD+zK/upS681BqvDWhE0GABuKrYVZCKQjLFjlSSaQjQ1wUKbWr+dm
E+NV/izwQjiguHcYAf0LaXJNEVlAjmdQyPc3ApOlZzNuJ2YDVTGZ2rwBBHZG
xLVkVeSCx1u5ArKo/YStbjba93QeEPYbE5DupsZfPWFx7kceyAD3Ylw7qfGv
o+n5oa9gi9j5Zrk2avyDB9eqcxUCMcPs3JUGBCKnxj+abSCA4cYP49yQul+A
qKC2FQHe5l5XGyxE4Jq8xt1dHwhwMcAwJDMfgX2XQg5y7CoBF5+u9difQ+2H
5Xu/xeOl4MOb/VpdnxCQiPQhh03LgXHMCq9DJPV8u1MNG+PLwZWQiLz8FwiM
1rfn5I6Ug5jjl72WQ6l6Zlf08LOvAFr8gbZWgdT+cKNZQMGjEjxLzsio96Li
05DZdTO2GhzYLfNt6hpVT/fED9X3VoNYc730YSsECj8JaitK14CNifq/vpsj
8EuS8+rYqxqgkFO946UJAgrzI8FWUbVAKkc6vESPuj4tY/JyeD3gtvunlLiH
yk/wRuOtR5vAgPOJl1l/SbCgKNvXZtkEnsqFNmTNkMC7ar3lY58mwJFma/95
kgTh/0Qdfpc1Aa3woqknoyT4asfwiz/cDFTZ6WsH2knAoc3MlcVbgJ+LSJFi
NgnC2HPEJdRbgYJlsaKULQn+W4hysb/cClaGbPVKLEnQNenWW+nRCnKd2r9c
NiWBXP/R+HvlrWCz6jbgeoYEqcU/VL6f/gFOleZF6WuQoPbh7NEgszYQ6WMM
zwuSgG1uz12uxx1AP6ftxcRnFkhgSbRfSu4AQc0fBh8mscDx38v7M2s7QGpt
QRLnOxYIai1fvSrQCXYdFo5eCGMBqcwz/jCyE3zZcsrEw5kF9jrcjXP52AXG
bwnTZg6zwK3xzKbJph7QtD++43kjE/zbo5Cd9KcHPL+yq16tmgkCPd5GXRHt
BdMEo+w7wQSfRAPN68/3AmeHktL5DCYY17CeSerrBek5Blr9YUxgEyYhYcrs
A6b1N+TVzjHBztjitOFH/eCibE7gSusEUDi+af7MmwHgf2r7/qcF4yDGyFCE
P20AXNbMDf/1ZRwImHntqCoeABKndrirpoyDmQc/bfb3DQBHhiZneeQ4KEp5
1SEtPQheFC8IRt4bB/r8ovnD0YPAfPi4BL/KOHD6weX2IGIIjC0Li2hS788l
FsMcMYHDoNreNkTTbBTEcb742Nc0DqzDdW4LXvsN5G8davavI8Ga1Z5Tj05S
466PDBe9MAVMLiixapi9oBRnCPxymgZmKsXPCNU2UKwzXWXuMAsyRbhPE9rf
gKnEWT3z8HlgeIZrOawxDxjWqq4VD18AF8NpN/75xkDGx70zZU+XwBueseYC
xTJofjrjHflhBWws//cEG2iG/D+SAhver4Lw36nazsadcIcAz2axYTb8Pdf4
5gz3fri/rmWN5gw7bp+y9d6l2UE4sdAZcWySA//OpR6U2z8MHbilGP7sXPg+
dFvqQ+IYdOa9+OgJjQufOO9hoZI+Br3XRK4+4ubCPZ0rtD9T/ViYkOhfVyEu
vA48H39ZPwZz1vGN3drAhdP3OKvL/RmDy9uXaw01ufBd2b+Fl9Spfu5kT5Ck
FxfezvEitaZ2HL7xjxFLYaPhiUGaH/VbJyC9g+9RKBcNvxAVUsjVMwHtNrsh
F4yGgzXc275Q/eO+osvVOoI0HDWvpy/8mYBNpIwLS5aGjx0a+/ifENWPGr7r
3QloePfKRj6HU1S/KpGYkOtGw3fqnB1sKGLCeksxobdeNJxxYrQupZwJd2c8
dvPzpeE3R2TaPeqYcFXb5tyFQBque2Rad20nE0Y+3IYtxdDwN3ULEaxpJqzt
S7mhUUjDU56hTYbbWFDlfdruikUafnhgwqLfnwUlegujOVZpOJdMqbdpKAuy
r63lwDnp+Mt4NaO2SBZs9Rlqyeel4wqJmewf37Ogi+U6x3QpOn5aptp8spgF
qzY9ynylQcdfDYykjCEWNIs7t+eONx1XPqH38JkOCU92WcSkPabjq78Jp2V9
EqoK3+ZiPaPjZi+PklbnSEj39m+1CaPjDsv3dGSvkvDTVeLu5QQ67mvlHK7o
RPWhcgrZJyrp+OxH2XUfYkkY8mZFTZaHgSvmrFNSGSPhseYnmCg/A38tMXPp
MIuEixzC3ZgwA6e9v7+kO0VCc2t5zz/rGPifeV9fgwUS7lbWq63YzsAxU+eU
JQzB1vy3V+y0GXjj5BuLQXkE/ZgKu66eZuAKcUfWuysgeFAmm/OcAQP3S4hQ
FVJBMMGrJhlcYOD94Ju3nBqC9078+SN8nYHPVN5/NHgYQbG2I0+++lHXHy8w
WjRBsJbRcCE1gIH3yHtlSJoh6L7fWCk+mIHvyeg0V7VAcCTGrjkgkoEbKh0q
On0dwTyLF+vNkhm4cprAQfl7CF6YGk6jVzPwEkym1MofQf5Nt72X6hj4/fqT
HLxBCJaeWToz2cjAGSvfniUHI6iQJ7DY2c7ABZ+evFP/AsFF931an0cYuLZe
ytPcNwjG8D3rMGJgeERe8hnJLwg+l97jVMyL4d5282mPshD0VukT2S6I4flp
r68O5iBoo79b758Ehh/hFKjwLUBwd3hXRbIChrsULD84V47glvc+FiI7MDxH
4YbjnUoEJXJU2N1VMdyDJ7/YpxrBlXbvg0YHMTz15b2jAfUIVq9XzFw5jeFT
yQ4cW1sRLFD6oX/NEMNBdted2R8Iph7yIFvOYThz1nZHfjuCYabftyebYriy
TOcz+W4Er8Q/fGt4G8Pn/wYVPvuFoH7WFo2iexg+OJTnwTuI4JGKxu6tLhhe
w+Dz9x5CcNvIJvEVbwyfybR5YDSC4LRCfWBSOIa3dKnEeTIRHFZ3UhSOwvCx
v1XRmSwEO07J1bi+xvDtvSc7ekgEi2/d5TJMxPDWsEQ54SkE0z1k4gpTMNxZ
5ruCzB8E44OrwdY06nl+Bj+Qm6bq54vUw+VcDB+S9OtlzCL4sKxSwqYQwz25
lWeYlG+1OuQ0Exh+Zd2B09VzCBrNlU8l1mD4fyo+FVf/IniMYf9cqAHDea9p
DckuILhPYp2yawuGsyk7arVSljlw85pBN4Y72B2pll1CUEhHnF74E8MHej0m
cihzmZTEyw9R+a8209NaRnDO7oZmyCiGT4gWTFdRHnNb+3OJieHGCdYdmisI
9gRBV+spDA/V11jJoNzw5rpk8yyG8zFlzSX+IViSLpKnvojh45pM+j3KWSVF
ZxP/YTiP2JOJKspJLTbTgpzcON+WdgGhVQSjB4VCHjK48UubKx31KQfMFKgM
83LjaqW4+GPKHjTren1Bbjz1/X+LGZTviAnaFohy41m3oqVaKVtuzWfIr+PG
JXOuulPv9/D8Psv3wdLceOgaX9klyv/3fQH//+8L/wM3AP9Y
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->
   NCache[{{-Pi, Pi}, {-0.9999999999999918, 
     0.9999998831351824}}, {{-3.141592653589793, 
    3.141592653589793}, {-0.9999999999999918, 0.9999998831351824}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.537861373118012*^9, 3.630393316195331*^9, 
  3.630393874591238*^9}]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Substitution", " ", 
    RowBox[{"(", 
     RowBox[{"VERY", " ", 
      RowBox[{"IMPORTANT", "!"}]}], ")"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"y", "=", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "+", 
    RowBox[{"Cos", "[", "x", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.537656058908083*^9, 3.537656071576578*^9}, {
  3.537657001958069*^9, 3.537657002685307*^9}, {3.53765703419726*^9, 
  3.537657035094322*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cos", "[", "x", "]"}], "+", 
  RowBox[{"Sin", "[", "x", "]"}]}]], "Output",
 CellChangeTimes->{3.53786137548989*^9, 3.630393323561245*^9, 
  3.6303938746575127`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"y", "/.", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", "4"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.53765607274757*^9, 3.537656077369458*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cos", "[", "4", "]"}], "+", 
  RowBox[{"Sin", "[", "4", "]"}]}]], "Output",
 CellChangeTimes->{3.537861376641457*^9, 3.630393325544471*^9, 
  3.6303938747049828`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"y", "/.", 
  RowBox[{"Sin", "\[Rule]", "Tan"}]}]], "Input",
 CellChangeTimes->{{3.5376560835640383`*^9, 3.537656085594215*^9}, {
  3.537657041318262*^9, 3.537657041857956*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cos", "[", "x", "]"}], "+", 
  RowBox[{"Tan", "[", "x", "]"}]}]], "Output",
 CellChangeTimes->{3.537861377342627*^9, 3.630393327477916*^9, 
  3.630393874755274*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"y", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Sin", "\[Rule]", "Exp"}], ",", 
    RowBox[{"x", "\[Rule]", "4"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.5376560890580473`*^9, 3.537656095434751*^9}, {
  3.537657050134983*^9, 3.537657050430126*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", "4"], "+", 
  RowBox[{"Cos", "[", "4", "]"}]}]], "Output",
 CellChangeTimes->{3.537861378010878*^9, 3.630393329499866*^9, 
  3.630393874805821*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "[", 
   RowBox[{"y", ",", 
    RowBox[{"x", "\[Rule]", "4"}]}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"/.", " ", 
    RowBox[{"is", " ", "a", " ", "syntax", " ", "suger", " ", "of", " ", 
     RowBox[{"ReplaceAll", "."}]}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.537657016382174*^9, 3.5376570828063707`*^9}, {
  3.537657119041415*^9, 3.537657125735154*^9}, {3.630393335729931*^9, 
  3.630393350926261*^9}, {3.630393658328004*^9, 3.630393664085546*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cos", "[", "4", "]"}], "+", 
  RowBox[{"Sin", "[", "4", "]"}]}]], "Output",
 CellChangeTimes->{
  3.537861378784038*^9, {3.630393334281609*^9, 3.6303933514199142`*^9}, 
   3.630393874855575*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"REPEATED", " ", "substitution"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.5376571302899427`*^9, 3.537657135087224*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"energy", "=", 
  RowBox[{"m", "*", "gamma"}]}], "\[IndentingNewLine]", 
 RowBox[{"ReplaceAll", "[", 
  RowBox[{"energy", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"gamma", "\[Rule]", 
      RowBox[{"1", "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "-", 
         RowBox[{"beta", "^", "2"}]}], "]"}]}]}], ",", 
     RowBox[{"beta", "\[Rule]", 
      RowBox[{"v", "/", "c"}]}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.53765713911954*^9, 3.537657364753281*^9}, {
  3.5376574013000307`*^9, 3.537657422195631*^9}}],

Cell[BoxData[
 RowBox[{"gamma", " ", "m"}]], "Output",
 CellChangeTimes->{3.5378613802566633`*^9, 3.630393359700569*^9, 
  3.630393874909226*^9}],

Cell[BoxData[
 FractionBox["m", 
  SqrtBox[
   RowBox[{"1", "-", 
    SuperscriptBox["beta", "2"]}]]]], "Output",
 CellChangeTimes->{3.5378613802566633`*^9, 3.630393359700569*^9, 
  3.6303938749142733`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReplaceRepeated", "[", 
  RowBox[{"energy", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"gamma", "\[Rule]", 
      RowBox[{"1", "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "-", 
         RowBox[{"beta", "^", "2"}]}], "]"}]}]}], ",", 
     RowBox[{"beta", "\[Rule]", 
      RowBox[{"v", "/", "c"}]}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.537657336867133*^9, 3.537657416555992*^9}}],

Cell[BoxData[
 FractionBox["m", 
  SqrtBox[
   RowBox[{"1", "-", 
    FractionBox[
     SuperscriptBox["v", "2"], 
     SuperscriptBox["c", "2"]]}]]]], "Output",
 CellChangeTimes->{3.5378613815173388`*^9, 3.6303933629473143`*^9, 
  3.6303938749742126`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "ReplaceRepeated", " ", "has", " ", "a", " ", "syntax", " ", "sugar"}], 
    " ", "//."}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"energy", "//.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"gamma", "\[Rule]", 
      RowBox[{"1", "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "-", 
         RowBox[{"beta", "^", "2"}]}], "]"}]}]}], ",", 
     RowBox[{"beta", "\[Rule]", 
      RowBox[{"v", "/", "c"}]}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.537657440653489*^9, 3.537657456219838*^9}, {
  3.630393367129157*^9, 3.630393382686001*^9}, {3.63039367428787*^9, 
  3.6303936883252573`*^9}}],

Cell[BoxData[
 FractionBox["m", 
  SqrtBox[
   RowBox[{"1", "-", 
    FractionBox[
     SuperscriptBox["v", "2"], 
     SuperscriptBox["c", "2"]]}]]]], "Output",
 CellChangeTimes->{3.537861382819231*^9, 3.6303933846536837`*^9, 
  3.6303938750423717`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"EMERGENCY", " ", "EXIT"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"ALT", 
     RowBox[{"(", 
      RowBox[{"or", " ", "command"}], ")"}]}], "+", 
    RowBox[{
    "period", " ", "if", " ", "you", " ", "want", " ", "to", " ", "stop", " ", 
     RowBox[{"evaluation", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sin", "[", "x", "]"}], "+", 
        RowBox[{"Tan", "[", "x", "]"}]}], ")"}], "^", "100"}], ",", "x"}], 
    "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "You", " ", "can", " ", "stop", " ", "evaluation", " ", "from", " ", 
     "the", " ", 
     RowBox[{"menu", ":", " ", 
      RowBox[{"Evaluation", ">", 
       RowBox[{"Abort", " ", 
        RowBox[{"Evaluation", "."}]}]}]}]}], " ", "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.537657460102232*^9, 3.537657510980424*^9}, {
  3.5376575624048443`*^9, 3.537657577389215*^9}, {3.537657833967434*^9, 
  3.5376583092870197`*^9}}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.537861385803076*^9, 3.6303933929698257`*^9, 
  3.6303938847563667`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "This", " ", "is", " ", "important", " ", "when", " ", "you", " ", 
     "induce", " ", "an", " ", "infinite"}], "-", 
    RowBox[{"evaluation", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "/.", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Sin", "[", "x", "]"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "//.", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Sin", "[", "x", "]"}]}]}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Sin", "[", 
  RowBox[{"Sin", "[", "x", "]"}], "]"}]], "Output",
 CellChangeTimes->{3.537861388179088*^9, 3.63039339866005*^9, 
  3.630393892133503*^9}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.537861388179088*^9, 3.63039339866005*^9, 
  3.630393893210458*^9}]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"THAT", "'"}], "S", " ", "MATHEMATICA", " ", 
    RowBox[{"BASIC", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Now", " ", 
     RowBox[{"Let", "'"}], "s", " ", "forget", " ", "all"}], " ", "\[Equal]", 
    " ", 
    RowBox[{"ABORT", " ", "THE", " ", 
     RowBox[{"KERNEL", "."}]}]}], " ", "*)"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData["energy"], "Input"],

Cell[BoxData[
 RowBox[{"gamma", " ", "m"}]], "Output",
 CellChangeTimes->{3.537861396778137*^9, 3.63039340574002*^9, 
  3.630393895183629*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"Exit", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Now", " ", "the", " ", "kernel", " ", "has", " ", "been", " ", 
    RowBox[{"initialized", ".", " ", "Everything"}], " ", "is", " ", "now", 
    " ", 
    RowBox[{"cleared", "."}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.537657511841228*^9, 3.5376575412522707`*^9}, {
  3.537657582482934*^9, 3.537657662157542*^9}, {3.537657822881118*^9, 
  3.5376578289117527`*^9}, {3.6303937699280043`*^9, 3.630393776957431*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{"energy", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"is", " ", "now", " ", 
    RowBox[{"undefined", "."}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.537658315994832*^9, 3.537658322645206*^9}, {
  3.630393464878293*^9, 3.630393473504551*^9}, {3.630393787381219*^9, 
  3.630393788312086*^9}}],

Cell[BoxData["energy"], "Output",
 CellChangeTimes->{3.630393898352523*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Note", " ", "that", " ", "you", " ", "can", " ", "clear", " ", "a", " ", 
    "variable", " ", "with", " ", "Clear"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"abc", "=", 
    RowBox[{"a", "+", "b", "+", "c"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c"}], "}"}], "=", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "\[IndentingNewLine]", 
   "abc"}]}]], "Input",
 CellChangeTimes->{{3.630393476215685*^9, 3.63039350694206*^9}, {
  3.630393795637631*^9, 3.6303938447987003`*^9}}],

Cell[BoxData[
 RowBox[{"a", "+", "b", "+", "c"}]], "Output",
 CellChangeTimes->{{3.6303934919626417`*^9, 3.630393507329247*^9}, 
   3.6303938174775057`*^9, 3.63039390123312*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{{3.6303934919626417`*^9, 3.630393507329247*^9}, 
   3.6303938174775057`*^9, 3.6303939012364073`*^9}],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{{3.6303934919626417`*^9, 3.630393507329247*^9}, 
   3.6303938174775057`*^9, 3.630393901238793*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "a", "]"}], "\[IndentingNewLine]", "abc"}], "Input",
 CellChangeTimes->{{3.63039382021736*^9, 3.630393823801565*^9}}],

Cell[BoxData[
 RowBox[{"5", "+", "a"}]], "Output",
 CellChangeTimes->{3.630393824072537*^9, 3.630393902653962*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"b", ",", "c"}], "]"}], "\[IndentingNewLine]", "abc"}], "Input",
 CellChangeTimes->{{3.630393824826612*^9, 3.630393835605907*^9}}],

Cell[BoxData[
 RowBox[{"a", "+", "b", "+", "c"}]], "Output",
 CellChangeTimes->{3.630393836187092*^9, 3.630393903818389*^9}]
}, Open  ]]
},
WindowSize->{2880, 1680},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> True}},
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (December 4, \
2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 688, 16, 236, "Input"],
Cell[1258, 40, 164, 3, 80, "Output"],
Cell[1425, 45, 144, 2, 55, "Output"],
Cell[1572, 49, 145, 2, 55, "Output"],
Cell[1720, 53, 161, 3, 55, "Output"],
Cell[1884, 58, 148, 2, 55, "Output"],
Cell[2035, 62, 161, 2, 55, "Output"]
}, Open  ]],
Cell[2211, 67, 203, 4, 55, "Input"],
Cell[CellGroupData[{
Cell[2439, 75, 470, 10, 206, "Input"],
Cell[2912, 87, 117, 2, 55, "Output"],
Cell[3032, 91, 139, 3, 79, "Output"],
Cell[3174, 96, 120, 2, 77, "Output"],
Cell[3297, 100, 120, 2, 77, "Output"],
Cell[3420, 104, 120, 2, 77, "Output"],
Cell[3543, 108, 123, 2, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3703, 115, 1011, 27, 302, "Input"],
Cell[4717, 144, 254, 8, 77, "Output"],
Cell[4974, 154, 184, 5, 81, "Output"],
Cell[5161, 161, 293, 9, 77, "Output"],
Cell[5457, 172, 256, 7, 81, "Output"],
Cell[5716, 181, 185, 5, 81, "Output"],
Cell[5904, 188, 586, 18, 86, "Output"]
}, Open  ]],
Cell[6505, 209, 44, 1, 2, "PageBreak",
 PageBreakBelow->True],
Cell[6552, 212, 138, 2, 55, "Input"],
Cell[CellGroupData[{
Cell[6715, 218, 559, 13, 206, "Input"],
Cell[7277, 233, 117, 2, 77, "Output"],
Cell[7397, 237, 117, 2, 77, "Output"],
Cell[7517, 241, 117, 2, 77, "Output"],
Cell[7637, 245, 117, 2, 77, "Output"],
Cell[7757, 249, 148, 3, 77, "Output"],
Cell[7908, 254, 9994, 176, 498, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17939, 435, 1164, 30, 178, "Input"],
Cell[19106, 467, 134, 3, 77, "Output"],
Cell[19243, 472, 117, 2, 77, "Output"],
Cell[19363, 476, 9178, 162, 498, "Output"]
}, Open  ]],
Cell[28556, 641, 44, 1, 2, "PageBreak",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[28625, 646, 498, 14, 86, "Input"],
Cell[29126, 662, 200, 5, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29363, 672, 168, 4, 55, "Input"],
Cell[29534, 678, 201, 5, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29772, 688, 200, 4, 55, "Input"],
Cell[29975, 694, 199, 5, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30211, 704, 280, 7, 55, "Input"],
Cell[30494, 713, 207, 5, 81, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30738, 723, 519, 11, 55, "Input"],
Cell[31260, 736, 229, 6, 77, "Output"]
}, Open  ]],
Cell[31504, 745, 170, 3, 55, "Input"],
Cell[CellGroupData[{
Cell[31699, 752, 563, 15, 86, "Input"],
Cell[32265, 769, 145, 3, 77, "Output"],
Cell[32413, 774, 206, 6, 119, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32656, 785, 434, 12, 55, "Input"],
Cell[33093, 799, 256, 8, 149, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33386, 812, 685, 19, 86, "Input"],
Cell[34074, 833, 254, 8, 149, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34365, 846, 1140, 31, 146, "Input"],
Cell[35508, 879, 128, 2, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35673, 886, 565, 16, 116, "Input"],
Cell[36241, 904, 175, 4, 77, "Output"],
Cell[36419, 910, 123, 2, 77, "Output"]
}, Open  ]],
Cell[36557, 915, 44, 1, 6, "PageBreak",
 PageBreakBelow->True],
Cell[36604, 918, 428, 12, 86, "Input"],
Cell[CellGroupData[{
Cell[37057, 934, 32, 0, 55, "Input"],
Cell[37092, 936, 142, 3, 77, "Output"]
}, Open  ]],
Cell[37249, 942, 536, 10, 86, "Input"],
Cell[CellGroupData[{
Cell[37810, 956, 338, 7, 86, "Input"],
Cell[38151, 965, 75, 1, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38263, 971, 621, 16, 146, "Input"],
Cell[38887, 989, 177, 3, 55, "Output"],
Cell[39067, 994, 203, 4, 55, "Output"],
Cell[39273, 1000, 146, 2, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39456, 1007, 155, 2, 86, "Input"],
Cell[39614, 1011, 114, 2, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39765, 1018, 179, 3, 86, "Input"],
Cell[39947, 1023, 124, 2, 89, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)