(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 13.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    177151,       4452]
NotebookOptionsPosition[    143311,       3953]
NotebookOutlinePosition[    144012,       3975]
CellTagsIndexPosition[    143969,       3972]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "F. Fass\[OGrave].    University of Padova. \n",
 StyleBox["Introduction to the use of Mathematica in Mathematics and Science",
  FontSlant->"Italic"],
 ". SoftSkills course for the PhD program in Mathematics\nLecture 2 (October \
13, 2023)"
}], "Text",
 CellFrame->{{0, 0}, {0.5, 0}},
 CellChangeTimes->{{3.6030403380477047`*^9, 3.6030403496377206`*^9}, {
   3.6042342921245947`*^9, 3.604234293844597*^9}, {3.6659842250605717`*^9, 
   3.665984234810585*^9}, {3.665988776604652*^9, 3.6659887774046535`*^9}, {
   3.666106805730517*^9, 3.666106807983646*^9}, {3.686715090311494*^9, 
   3.68671511399888*^9}, {3.6973875672817383`*^9, 3.6973875784126663`*^9}, {
   3.697434883527854*^9, 3.697434886700633*^9}, {3.7288472476388865`*^9, 
   3.728847250442567*^9}, 3.7290563713306975`*^9, {3.7603265886670856`*^9, 
   3.760326590879668*^9}, {3.792953448635523*^9, 3.7929534512106314`*^9}, {
   3.793001443067047*^9, 3.793001457902358*^9}, {3.793125487673247*^9, 
   3.7931254933125515`*^9}, {3.823794609368146*^9, 3.8237946203338003`*^9}, {
   3.905514199116931*^9, 3.90551422872608*^9}, {3.9055144580037365`*^9, 
   3.9055145289462028`*^9}, 3.905524053605975*^9, {3.9056541789884577`*^9, 
   3.90565419524717*^9}, {3.906167256174015*^9, 3.9061672588858814`*^9}},
 FontSize->12,
 Background->None,ExpressionUUID->"94be3d96-78df-4e05-b867-d3d278ae1776"],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["1. A first look at ",
  FontColor->GrayLevel[0]],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  FontColor->GrayLevel[0]],
 StyleBox[":  What can you do?  How?\n(part 2)",
  FontColor->GrayLevel[0]]
}], "Title",
 CellChangeTimes->{{3.7603304738687916`*^9, 3.7603304848477964`*^9}, {
   3.823865007385685*^9, 3.823865007955243*^9}, {3.90551453503039*^9, 
   3.9055145398655195`*^9}, {3.905514613214245*^9, 3.905514628990396*^9}, 
   3.9055696380856085`*^9, {3.9061215880998898`*^9, 3.9061215901132812`*^9}, {
   3.906167274132251*^9, 3.906167276303677*^9}},
 Background->RGBColor[
  1., 0., 0.],ExpressionUUID->"328d4016-7c60-48ce-a8cd-126889825232"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["6. Definition of functions",
 FontSize->24,
 FontSlant->"Italic"]], "Section",
 CellChangeTimes->{{3.7603305394751625`*^9, 3.760330552624377*^9}, {
  3.7603798490998344`*^9, 3.7603798499042997`*^9}, {3.7929893543089256`*^9, 
  3.7929893583080654`*^9}, {3.7931274848259177`*^9, 3.793127484904027*^9}, {
  3.905514870952041*^9, 3.9055148984418287`*^9}, {3.9061673282389555`*^9, 
  3.9061673321128182`*^9}},
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"6170f93c-5736-45a1-a4cb-02629c6fdae8"],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["6.1 Functions in ",
  FontSize->24],
 StyleBox["Mathematica",
  FontSize->24,
  FontSlant->"Italic"]
}], "Subsection",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
  3.7931295911821847`*^9, 3.793129593322367*^9}, {3.9055683773938007`*^9, 
  3.905568386718421*^9}, {3.90556841798425*^9, 3.905568428967516*^9}},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"8becf62f-7370-48ce-980b-0bf022c800ab"],

Cell[TextData[{
 "Extremely important: ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " is a functional language"
}], "Text",
 CellChangeTimes->{{3.760381542983141*^9, 3.760381562558795*^9}, {
  3.8237976484654245`*^9, 3.823797649114555*^9}, {3.9055683901528435`*^9, 
  3.905568411297187*^9}, {3.9055688750117817`*^9, 
  3.905568876114238*^9}},ExpressionUUID->"d4a2e060-819f-4fe7-a799-\
f3cedddfe041"],

Cell[TextData[{
 "Functions can be defined in different ways\nThe basic one is\n",
 StyleBox["  ",
  FontWeight->"Bold"],
 StyleBox["  f[x_] := expression",
  FontFamily->"Courier New",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["\n",
  FontWeight->"Bold"],
 "This specifies that \[OpenCurlyDoubleQuote]f\[CloseCurlyDoubleQuote] is the \
function that trasforms its argument into \[OpenCurlyDoubleQuote]expression\
\[CloseCurlyDoubleQuote]"
}], "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, 
   3.7931278640235558`*^9, {3.823797654783281*^9, 3.823797655337716*^9}, {
   3.8239292471823454`*^9, 3.8239292482702703`*^9}, {3.8239293028934803`*^9, 
   3.8239293040540757`*^9}, {3.905568880295766*^9, 3.9055688957688675`*^9}, {
   3.9055692880872345`*^9, 3.9055693273977957`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"91de3251-e7ec-4a9d-a52a-5d4fa863c1f7"],

Cell[TextData[{
 StyleBox["NB: ",
  FontWeight->"Bold"],
 "in the definition of a function",
 StyleBox["\n     ",
  FontWeight->"Bold"],
 "   the argument \[OpenCurlyDoubleQuote]x\[CloseCurlyDoubleQuote] is a \
symbol and must be followed by _ (\[OpenCurlyDoubleQuote]blank\
\[CloseCurlyDoubleQuote])\n   ",
 StyleBox["   ",
  FontWeight->"Bold"],
 "  use    ",
 StyleBox[":=   ",
  FontFamily->"Courier New",
  FontColor->RGBColor[1, 0, 0]],
 "  ",
 StyleBox["\n",
  FontFamily->"Courier New",
  FontColor->RGBColor[1, 0, 0]],
 "(or else  ",
 StyleBox["= ",
  FontFamily->"Courier New",
  FontColor->RGBColor[1, 0, 0]],
 "; the difference will be explained later)"
}], "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, 
   3.793127885346733*^9, {3.8237976755831947`*^9, 3.823797676056276*^9}, {
   3.905569406021552*^9, 3.9055694372323165`*^9}, {3.9055694918237514`*^9, 
   3.905569569324791*^9}, {3.905571631788954*^9, 3.905571661785116*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"d61104be-e8a8-431f-ae91-c04ae9d24e32"],

Cell[TextData[{
 "Functions of more variables:\n   ",
 StyleBox[" f[x1_, x2_ , .... , xn_ ] ",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[":=  ....",
  FontWeight->"Bold"],
 " "
}], "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, 
   3.7931278971436887`*^9, {3.82379768006703*^9, 3.823797680619447*^9}, {
   3.9055695715583596`*^9, 3.9055695831318903`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"576227af-900a-440f-9e6a-17725cb1da7b"],

Cell["\<\
Functions are not only numerical.  (Basic for functional programming)\
\>", "Text",
 CellChangeTimes->{{3.793127906610225*^9, 3.7931279120301085`*^9}, {
  3.9055695860405607`*^9, 3.9055696206231985`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"5a193c0d-29e8-422f-970e-db43cd9f18a4"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["6.2 Examples",
 FontSize->24]], "Subsection",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
  3.7931295911821847`*^9, 3.793129593322367*^9}, {3.9055683773938007`*^9, 
  3.905568386718421*^9}, {3.90556841798425*^9, 3.905568428967516*^9}, {
  3.906167361271287*^9, 3.90616736484344*^9}},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"ed07186d-e896-4ce5-b748-438db350947b"],

Cell[TextData[{
 StyleBox["Exercise: ",
  FontWeight->"Bold"],
 "write a function that takes as argument a function ",
 StyleBox["R",
  FontWeight->"Bold"],
 "\[Rule]",
 StyleBox["R",
  FontWeight->"Bold"],
 " (given as an expression containing the variable \[OpenCurlyDoubleQuote]x\
\[CloseCurlyDoubleQuote]) and plots its graph in the interval 0 < x < 1"
}], "Text",
 CellChangeTimes->{{3.793128071767908*^9, 3.7931281008217955`*^9}, {
  3.9061217056052017`*^9, 3.906121777810315*^9}, {3.9061218172029333`*^9, 
  3.9061218288394356`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"0bafd984-1036-4cc1-a9d9-cc578d99f969"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"67e856a3-2111-4202-8438-cdd811ba2bc7"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.906182518155094*^9, 3.9061825306078796`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"d1647a79-0254-4b8d-9d08-d103ed4242ce"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pl", "[", "expr_", "]"}], " ", ":=", " ", 
  RowBox[{"Plot", "[", 
   RowBox[{"expr", ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}]], "Input",
 CellLabel->"In[5]:=",ExpressionUUID->"8ed4a36e-4e38-4777-ade1-14e1a0471857"],

Cell["Test:", "Text",
 CellChangeTimes->{{3.7931281166618347`*^9, 3.7931281204612713`*^9}, {
  3.906121790721326*^9, 
  3.90612179157953*^9}},ExpressionUUID->"2ad708e2-fb12-4c15-bcc9-\
19f968933625"],

Cell[BoxData[
 RowBox[{"pl", "[", " ", 
  RowBox[{"Sin", "[", 
   SuperscriptBox["x", "2"], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.823797730007721*^9, 3.823797765927846*^9}, {
  3.823929879149024*^9, 3.823929897892555*^9}, {3.8239299503168044`*^9, 
  3.8239299686919355`*^9}, {3.9061825864719057`*^9, 3.9061825868408766`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"35913783-360a-4dfd-8552-8d6f530357fb"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"e565223c-d1db-4ef0-bfcc-bc4baea91326"],

Cell[TextData[{
 StyleBox["Exercise: ",
  FontWeight->"Bold"],
 "write a function",
 StyleBox["\n",
  FontWeight->"Bold"],
 "                          pl(expr,a,b)\nwhich does the saem thing but in \
the interval a < x < b with any a and b"
}], "Text",
 CellChangeTimes->{{3.793128071767908*^9, 3.7931281008217955`*^9}, 
   3.793128146623452*^9, {3.8239300172440186`*^9, 3.823930049980094*^9}, {
   3.9061218057990365`*^9, 3.906121806985854*^9}, {3.9061218389098153`*^9, 
   3.9061219167142*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"03fca7a8-9c3f-4d31-a0bd-89757f7b71fa"]
}, Closed]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{{3.8239300223102236`*^9, 
  3.8239300255565367`*^9}},ExpressionUUID->"c7927412-987f-45df-a465-\
523c05b30aa3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pl", "[", 
   RowBox[{"expr_", ",", "a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"Plot", "[", 
   RowBox[{"expr", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "a", ",", "b"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.823930282045566*^9, 3.8239303011473155`*^9}, 
   3.9061219259827733`*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"ead762ff-2e2e-4411-8b4a-5a039432abdb"],

Cell[BoxData[
 RowBox[{"pl", "[", 
  RowBox[{
   SuperscriptBox["E", 
    RowBox[{"x", "-", "1"}]], ",", " ", 
   RowBox[{"-", "3"}], ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.823930312876837*^9, 3.82393031303538*^9}, {
  3.906121932637719*^9, 3.906121933512512*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"3a675a98-7718-4753-9af5-c64351f0be3b"]
}, Closed]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{3.7931281630102386`*^9, 
  3.9061674044981747`*^9},ExpressionUUID->"910dc7f4-dc54-461a-8e55-\
c21d48436686"],

Cell["\<\
Can we use the same symbol \
(\[OpenCurlyDoubleQuote]pl\[CloseCurlyDoubleQuote]) for the two functions? 
Yes, because they have a different number of arguments. \
\>", "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, 
   3.7931279940583453`*^9, {3.823797797417466*^9, 3.823797800775617*^9}, {
   3.906121939932557*^9, 3.90612199552175*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"e30190e9-98d5-45c6-9ba9-80b31692cabc"],

Cell["\<\
In fact, Mathematica has two definitions for the function \
\[OpenCurlyDoubleQuote]pl\[CloseCurlyDoubleQuote]:
(see below for the command \[OpenCurlyDoubleQuote]?\[CloseCurlyDoubleQuote])\
\>", "Text",
 CellChangeTimes->{{3.9061674819485545`*^9, 3.906167507059391*^9}, {
  3.906167562561507*^9, 
  3.9061675760439043`*^9}},ExpressionUUID->"5facc633-bd36-4adf-b957-\
7c11b2ef8910"],

Cell[BoxData[
 RowBox[{"?", "pl"}]], "Input",
 CellChangeTimes->{{3.906167508449715*^9, 3.906167509090147*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"0e51c72a-c159-427d-98b8-e2d95b7a35d4"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["6.3 Function evaluations",
 FontSize->24]], "Subsection",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
   3.7931295911821847`*^9, 3.793129593322367*^9}, {3.9055683773938007`*^9, 
   3.905568386718421*^9}, {3.90556841798425*^9, 3.905568428967516*^9}, {
   3.906167361271287*^9, 3.90616736484344*^9}, {3.906167603742343*^9, 
   3.906167612999722*^9}, 3.906168027027893*^9},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"9d432bfb-d497-4c6f-b73b-aa42d6c3e8cf"],

Cell[TextData[{
 "In evaluating a function, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "\n\[FilledSmallCircle] substitutes the argument to the variable (here \
\[OpenCurlyDoubleQuote]x\[CloseCurlyDoubleQuote]) that appears in the \
expression at the left hand side of the definition    ",
 StyleBox["f[x_]:=....   ",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\n\[FilledSmallCircle] and, possibly, makes some (obvious/simple) \
computations and simplifications"
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.729056371346322*^9, {3.906122031190653*^9, 3.906122182962476*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"d0c2ca70-34f2-47bf-9c2a-4a2c652c6069"],

Cell[TextData[{
 StyleBox["Example:",
  FontWeight->"Bold"],
 " define the function\n     ",
 StyleBox["f[u_] := ",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 Cell[BoxData[
  SqrtBox[
   SuperscriptBox["u", "2"]]],
  ShowGroupOpener->False,
  CellChangeTimes->{{3.5401791189040194`*^9, 3.5401791199960213`*^9}, {
   3.5433074394620676`*^9, 3.543307439727268*^9}, {3.5904886338707423`*^9, 
   3.590488638925151*^9}},ExpressionUUID->
  "047da164-bca2-4221-972c-a10f4171deb5"],
 "       ( Sqrt[u^2] )  .\n     ",
 StyleBox["\n",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 StyleBox["Which will be the ",
  FontFamily->"Courier New"],
 StyleBox["resulta of  ",
  FontFamily->"Times New Roman",
  FontSize->16],
 StyleBox[" ",
  FontFamily->"Times New Roman",
  FontWeight->"Bold"],
 StyleBox["f[2] ",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 StyleBox["?  And of   ",
  FontFamily->"Times New Roman"],
 StyleBox["f[x] ",
  FontFamily->"Times New Roman",
  FontWeight->"Bold"],
 StyleBox["  or   ",
  FontFamily->"Times New Roman"],
 StyleBox["f[gianni] ?",
  FontFamily->"Courier New",
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.793128071767908*^9, 3.7931281008217955`*^9}, 
   3.793128146623452*^9, {3.793128675812248*^9, 3.7931286826861773`*^9}, {
   3.8239304492989006`*^9, 3.8239304715947294`*^9}, {3.9061222024188004`*^9, 
   3.906122258152427*^9}, {3.90616763889184*^9, 3.9061676451023483`*^9}, 
   3.906182904546816*^9},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"2fc837ad-0e84-4546-96c6-32b1f8099a00"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"8e907b29-4b94-450c-ab6c-c72e6d7523e5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "u_", "]"}], ":=", " ", 
  RowBox[{"Sqrt", "[", " ", 
   SuperscriptBox["u", "2"], " ", "]"}]}]], "Input",
 CellLabel->"In[11]:=",ExpressionUUID->"e99ad195-5aa1-4165-9c6a-c3b44bc85868"],

Cell[BoxData[
 RowBox[{"f", "[", "2", "]"}]], "Input",
 CellLabel->"In[12]:=",ExpressionUUID->"fac8a332-3676-4f61-bc69-bd03d0bc34fd"],

Cell[BoxData[
 RowBox[{"f", "[", "x", "]"}]], "Input",
 CellLabel->"In[13]:=",ExpressionUUID->"24e3da9c-4726-4a23-a17c-5ce068d31926"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"263860b6-a1a5-4b17-a996-046990ebfb20"],

Cell["\<\
Why no simplification in the second case?
Can we force it?\
\>", "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, 
   3.793128767562643*^9, {3.90612227325515*^9, 3.90612232734908*^9}, {
   3.906124166595804*^9, 3.9061241791397448`*^9}, 3.906167671686249*^9},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"7d14578a-6d29-4aa6-a889-8c7f9359fd00"],

Cell[BoxData[
 RowBox[{"FullSimplify", "@", "%"}]], "Input",
 CellChangeTimes->{{3.823930599362142*^9, 3.8239306072097926`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"01d396d1-5219-4f1c-844f-9130a7f41379"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"36bcb70f-b571-4c96-be68-dc31b0090265"],

Cell["\<\
No.
Does it make sense?\
\>", "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, 
   3.7931287944917364`*^9, {3.8237978370635767`*^9, 3.8237978378507357`*^9}, 
   3.9061223429952116`*^9},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"293609f8-6ea4-417a-9edb-172adc4eb5fc"],

Cell[TextData[{
 "Yes:\n      ",
 Cell[BoxData[
  FormBox[
   SqrtBox[
    SuperscriptBox["u", "2"]], TraditionalForm]],ExpressionUUID->
  "fb194067-5764-46f3-9362-99157c0a9031"],
 " =  u    only if  ",
 StyleBox["u ",
  FontSlant->"Italic"],
 " is a positive real.\nWithouth that information, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " does not simplify"
}], "Text",
 CellChangeTimes->{{3.6975193365951185`*^9, 3.697519418168228*^9}, {
   3.728845056299037*^9, 3.728845077085026*^9}, 3.728845492902314*^9, 
   3.729056371346322*^9, {3.7603779986623545`*^9, 3.760378001052109*^9}, {
   3.7603780514848385`*^9, 3.7603780581230817`*^9}, 3.7603785622804356`*^9, {
   3.823930615513896*^9, 3.823930616665665*^9}, {3.9061223463901997`*^9, 
   3.9061223904028645`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"1dee82b4-d076-4230-b4ac-1ca357fee514"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",
 CellChangeTimes->{{3.906168040418248*^9, 
  3.9061680469789257`*^9}},ExpressionUUID->"5330c075-fc6d-4ff5-a58c-\
f8667c459730"],

Cell[TextData[{
 "What does ",
 StyleBox["Mathematica ",
  FontSlant->"Italic"],
 "do when evaluating a function?\n\n     ",
 StyleBox["Trace[command] ",
  FontWeight->"Bold"],
 " gives a list of the expressions used in evaluating \
\[OpenCurlyDoubleQuote]command\[CloseCurlyDoubleQuote]"
}], "Text",
 CellChangeTimes->{{3.6975193365951185`*^9, 3.697519418168228*^9}, {
   3.728845056299037*^9, 3.728845077085026*^9}, 3.728845492902314*^9, 
   3.729056371346322*^9, {3.7603779986623545`*^9, 3.760378001052109*^9}, {
   3.7603780514848385`*^9, 3.7603780581230817`*^9}, 3.7603785622804356`*^9, {
   3.823930615513896*^9, 3.823930616665665*^9}, {3.9061223463901997`*^9, 
   3.9061223904028645`*^9}, {3.906168052743195*^9, 3.9061680788546553`*^9}, {
   3.90616815652546*^9, 3.906168211367102*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"da4abf5f-6a38-4bce-8027-b7c75cd3bb47"],

Cell[BoxData[
 RowBox[{"Trace", "[", "  ", 
  RowBox[{"f", "[", "2", " ", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.906168082411353*^9, 3.906168089268374*^9}, {
  3.9061831290190425`*^9, 3.9061831304303827`*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"cdd88a86-b5c0-4721-8f36-b128183837c8"],

Cell["\<\
It keeps substituting symbols with their values (if any) and computing things.\
\>", "Text",
 CellChangeTimes->{{3.6975193365951185`*^9, 3.697519418168228*^9}, {
   3.728845056299037*^9, 3.728845077085026*^9}, 3.728845492902314*^9, 
   3.729056371346322*^9, {3.7603779986623545`*^9, 3.760378001052109*^9}, {
   3.7603780514848385`*^9, 3.7603780581230817`*^9}, 3.7603785622804356`*^9, {
   3.823930615513896*^9, 3.823930616665665*^9}, {3.9061223463901997`*^9, 
   3.9061223904028645`*^9}, {3.906168052743195*^9, 3.9061681524956045`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"e3249aa2-3326-4eca-935c-4ee7de83bbe5"],

Cell[BoxData[
 RowBox[{"Trace", "[", 
  RowBox[{"f", "[", "u", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.9061682270296173`*^9, 3.9061682396962147`*^9}, {
  3.906168327521084*^9, 3.906168328958242*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"bcf3071d-8f85-4c1e-aaff-6745ba184944"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["6.4 Note: Assumptions",
 FontSize->24]], "Subsection",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
  3.7931288592437024`*^9, 3.793128859649885*^9}, {3.906122438732582*^9, 
  3.9061224420392823`*^9}, {3.9061683833878565`*^9, 3.9061683890281286`*^9}},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"d98bb96f-2598-4893-9ca6-53081aec67c6"],

Cell[TextData[{
 "How to tell ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " that the argument is (e.g.) a positive real?"
}], "Text",
 CellChangeTimes->{{3.793128071767908*^9, 3.7931281008217955`*^9}, 
   3.793128146623452*^9, {3.793128675812248*^9, 3.7931286826861773`*^9}, {
   3.7931288775836887`*^9, 3.7931288840503845`*^9}, {3.823797869146449*^9, 
   3.823797870110051*^9}, {3.9061225213616743`*^9, 3.9061225478586884`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"61aefa02-d4d1-424d-886e-075364ea90ea"],

Cell[TextData[{
 "       ",
 StyleBox["Refine[ expr ,  condition   ]\n",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["evaluates  expr  assuming true the condition",
  FontColor->GrayLevel[0]],
 "\n       ",
 StyleBox["Assuming[    condition ,  Simplify[ expr ]   ]\n",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["semplifica  expr  assumendo vera la condizione (fra le altre cose, \
Simplify prova a usare Refine)",
  FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{
  3.543307436856863*^9, 3.5904891763616953`*^9, {3.598953321133809*^9, 
   3.5989533424138393`*^9}, {3.621926882077794*^9, 3.62192689365781*^9}, {
   3.69751903157899*^9, 3.697519073901537*^9}, 3.697519350140851*^9, {
   3.697519505683546*^9, 3.6975195575954065`*^9}, {3.6975196549682117`*^9, 
   3.697519797977826*^9}, {3.697527532214079*^9, 3.6975275324766064`*^9}, {
   3.7288455777203317`*^9, 3.728845618105756*^9}, {3.728845660440292*^9, 
   3.7288456682287955`*^9}, 3.729056371346322*^9, {3.8237978754551706`*^9, 
   3.823797878541167*^9}, {3.823797943604908*^9, 3.8237979569929953`*^9}, 
   3.8239306410982246`*^9, 3.823930688514742*^9, {3.906122551795252*^9, 
   3.9061225790193205`*^9}, {3.906122625890994*^9, 3.9061226276708574`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"1ef70e3e-92ab-4b26-b89a-417e8c997b58"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"63540767-4dbb-4fb7-a1b4-7d22c216b117"],

Cell[BoxData[
 RowBox[{"Refine", "[", 
  RowBox[{
   RowBox[{"f", "[", "u", "]"}], ",", 
   RowBox[{"u", ">", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8237979252561116`*^9, 3.823797933759804*^9}, {
  3.823797970396138*^9, 3.823797970958587*^9}, {3.8239308058188066`*^9, 
  3.823930820163128*^9}, {3.906122656839752*^9, 3.9061226576044693`*^9}, {
  3.906168332222375*^9, 3.9061683343469114`*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"22250020-f027-4581-a125-99453510294d"],

Cell[BoxData[
 RowBox[{"Assuming", "[", 
  RowBox[{
   RowBox[{"u", ">", "0"}], ",", " ", 
   RowBox[{"Simplify", "@", 
    RowBox[{"f", "[", "u", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8237979800624747`*^9, 3.8237979817445536`*^9}, {
  3.906122661110366*^9, 3.9061226617977066`*^9}, {3.9061683383462124`*^9, 
  3.906168343079208*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"8b07e0c4-232f-42ce-9f3d-0f1a43bb39ee"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"f23a4b8c-1eb1-4934-bdd3-d76f047f061d"],

Cell[TextData[{
 StyleBox["Exercise: ",
  FontWeight->"Bold"],
 "and if x<0?"
}], "Text",
 CellChangeTimes->{{3.793128071767908*^9, 3.7931281008217955`*^9}, 
   3.793128146623452*^9, {3.793128675812248*^9, 3.7931286826861773`*^9}, {
   3.8239304492989006`*^9, 3.8239304715947294`*^9}, {3.9061222024188004`*^9, 
   3.906122258152427*^9}, {3.906122678675853*^9, 3.9061226881658506`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"d5706827-7dd8-4c2b-acb1-50ed5ceafd0c"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"d525bdfd-d6bb-4167-90a2-0ebebd9f47db"],

Cell[BoxData[
 RowBox[{"Refine", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"x", "<", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8237979252561116`*^9, 3.823797933759804*^9}, {
  3.823797970396138*^9, 3.823797970958587*^9}, {3.8239308058188066`*^9, 
  3.823930820163128*^9}, {3.906122656839752*^9, 3.9061226576044693`*^9}, {
  3.906122717720109*^9, 3.9061227180787387`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"eaef780c-ff5e-40b5-97aa-7358f9063104"],

Cell[BoxData[
 RowBox[{"Assuming", "[", 
  RowBox[{
   RowBox[{"x", "<", "0"}], ",", " ", 
   RowBox[{"Simplify", "@", 
    RowBox[{"f", "[", "x", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8237979800624747`*^9, 3.8237979817445536`*^9}, {
  3.906122661110366*^9, 3.9061226617977066`*^9}, {3.906122721031807*^9, 
  3.9061227214997807`*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"d80a1652-54bb-45b2-aebc-420d7883244e"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["6.5 Role of \[OpenCurlyDoubleQuote]_\
\[CloseCurlyDoubleQuote] in the definition of a function",
 FontSize->24]], "Subsection",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
   3.7931288592437024`*^9, 3.793128859649885*^9}, 3.7931289463928895`*^9, {
   3.906122729253314*^9, 3.9061227512077584`*^9}, {3.906176744152676*^9, 
   3.906176744893052*^9}},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"ced326cf-ecbd-4c07-b4fe-ac561534305d"],

Cell[TextData[{
 StyleBox["Careful:\n      ",
  FontWeight->"Bold"],
 " writing (e.g.) \[OpenCurlyDoubleQuote]x\[CloseCurlyDoubleQuote] instead of \
\[OpenCurlyDoubleQuote]x_\[CloseCurlyDoubleQuote] in the definition of a \
function, defines the function  ",
 StyleBox["only",
  FontSlant->"Italic"],
 " if the ",
 "argument is exactly x .\nSo, don\[CloseCurlyQuote]t forget it."
}], "Text",
 CellChangeTimes->{{3.7603780076118107`*^9, 3.760378036483801*^9}, {
   3.7603785639633107`*^9, 3.760378565370223*^9}, {3.7603787240643234`*^9, 
   3.7603787299665985`*^9}, 3.7931287929457536`*^9, 3.793128958524782*^9, {
   3.8237979945447736`*^9, 3.82379800714074*^9}, {3.906122761685747*^9, 
   3.906122922740419*^9}, {3.9061229854238205`*^9, 3.906122990203931*^9}, {
   3.906123029407984*^9, 3.9061230426636963`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"cca9c448-2b3a-4d5e-aa17-0ada7f4ed651"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "x", "]"}], ":=", 
  RowBox[{
   SuperscriptBox["x", "2"], "-", 
   SuperscriptBox["x", "3"]}]}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5433076558968477`*^9, 3.5433076565052485`*^9}, 
   3.5433088183484893`*^9, 3.6660777200195036`*^9, {3.697520096186181*^9, 
   3.6975201168106303`*^9}, 3.729056371346322*^9, {3.7603791866146016`*^9, 
   3.760379187514559*^9}, {3.793084095660797*^9, 3.793084099051647*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"66317a01-ad4a-447e-9cc2-6fd3e0f72385"],

Cell[BoxData[
 RowBox[{"g", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.792992368787766*^9, 3.7929923696940594`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"20e3cc1e-bebe-4d7f-8bea-3530e5d33cf5"],

Cell[BoxData[
 RowBox[{"g", "[", "1", "]"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5433076599840546`*^9, 3.543307660093255*^9}, 
   3.5433088183484893`*^9, 3.6660777241495094`*^9, 3.69752011934454*^9, 
   3.729056371346322*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"e9e906bf-d827-464b-8caf-b46f61a91aa9"],

Cell[BoxData[
 RowBox[{"x", "=", "1"}]], "Input",
 CellChangeTimes->{{3.7930843194512925`*^9, 3.793084320089781*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"b367feb9-89d9-4bed-a69e-52b4f82c4381"],

Cell[BoxData[
 RowBox[{"g", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.9061229402251205`*^9, 3.906122942198943*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"63141717-d4e6-4baf-b56d-23d38e83a9d4"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"3968a82a-fe6d-4ca2-bf02-b8a30d0e2f26"],

Cell[TextData[{
 StyleBox["Note:",
  FontWeight->"Bold"],
 " This can however be used to assign the value of a function for particular \
values of the arguments"
}], "Text",
 CellChangeTimes->{{3.7603780076118107`*^9, 3.760378036483801*^9}, {
   3.7603785639633107`*^9, 3.760378565370223*^9}, {3.7603787240643234`*^9, 
   3.7603787299665985`*^9}, 3.7931287929457536`*^9, 3.793128958524782*^9, {
   3.7931290112160892`*^9, 3.7931290134968033`*^9}, {3.823798055522421*^9, 
   3.823798056116478*^9}, {3.906123001151062*^9, 3.9061231276044416`*^9}, {
   3.9061706960408335`*^9, 3.906170715250233*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"1e07459e-085d-44d5-8b61-93355706a8ae"],

Cell[TextData[{
 StyleBox["Exercise: ",
  FontWeight->"Bold"],
 " Define the function  f : ",
 Cell[BoxData[
  TemplateBox[{},
   "Reals"]],ExpressionUUID->"e2f1b8f9-dacd-4d24-ad03-0f92e9a87e87"],
 "\[Rule] ",
 Cell[BoxData[
  TemplateBox[{},
   "Reals"]],ExpressionUUID->"911b7ffa-b1e8-4039-b487-266806a7a057"],
 "such that\n    f(x) =   ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"sin", 
     RowBox[{"(", "x", ")"}]}], "x"], TraditionalForm]],ExpressionUUID->
  "98d8bf8c-7439-484e-bf83-56783cd310e4"],
 "  if  x\[ImplicitPlus] \[NotEqual] 0\n    f(x) =   1  f  x\[ImplicitPlus] = \
0\n(",
 StyleBox["without ",
  FontSlant->"Italic"],
 "using \[OpenCurlyDoubleQuote]If\[CloseCurlyDoubleQuote] or similar \
constructs)    "
}], "Text",
 CellChangeTimes->{{3.793128071767908*^9, 3.7931281008217955`*^9}, 
   3.793128146623452*^9, {3.793128675812248*^9, 3.7931286826861773`*^9}, {
   3.7931288775836887`*^9, 3.7931288840503845`*^9}, 3.7931290305235744`*^9, {
   3.8239311073682113`*^9, 3.823931107782059*^9}, {3.906123132525004*^9, 
   3.9061231982366056`*^9}, {3.906290492763584*^9, 3.906290498529379*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"1b60f8e5-9ef1-4352-ba90-9303b729742a"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"c8c1b4ec-2192-445f-89d1-87b890f621c6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  FractionBox[
   RowBox[{"Sin", "[", "x", "]"}], "x"]}]], "Input",
 CellLabel->"In[24]:=",ExpressionUUID->"37759471-204c-4475-bfb7-497767713883"],

Cell[BoxData[
 RowBox[{"f", "[", "0", "]"}]], "Input",
 CellLabel->"In[25]:=",ExpressionUUID->"55a8b4ac-2f47-4c7c-9b14-7b8ad0545bbb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "0", "]"}], ":=", "1"}]], "Input",
 CellChangeTimes->{{3.5904896315392947`*^9, 3.590489661943748*^9}, 
   3.697520472586729*^9, 3.729056371346322*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"ea23fc49-ad03-4411-a72b-65fe9febacf7"],

Cell[BoxData[
 RowBox[{"f", "[", "0", "]"}]], "Input",
 CellLabel->"In[27]:=",ExpressionUUID->"992a8c4e-8402-4803-98c4-13836a1fbdcd"],

Cell["or else   f[0] = 1  (see next subsection)", "Text",
 CellChangeTimes->{{3.7603780076118107`*^9, 3.760378036483801*^9}, {
   3.7603785639633107`*^9, 3.760378565370223*^9}, {3.7603787240643234`*^9, 
   3.7603787299665985`*^9}, 3.7931287929457536`*^9, 3.793128958524782*^9, {
   3.7931290112160892`*^9, 3.7931290134968033`*^9}, {3.793129072594925*^9, 
   3.793129084076256*^9}, {3.8237980807346115`*^9, 3.8237980813994474`*^9}, {
   3.9061232262825394`*^9, 3.9061232400220814`*^9}, {3.9061707384942904`*^9, 
   3.9061707448918457`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"7a54709d-53e6-43f2-9e1d-ad96dd283587"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["6.6 Using \[OpenCurlyDoubleQuote]",
  FontSize->24],
 StyleBox[":=\[CloseCurlyDoubleQuote] or  \[OpenCurlyDoubleQuote]=\
\[CloseCurlyDoubleQuote] in function definition?", "Subchapter",
  FontSize->24]
}], "Subsection",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
  3.7931288592437024`*^9, 3.793128859649885*^9}, {3.906122438732582*^9, 
  3.9061224420392823`*^9}, {3.906168401047079*^9, 3.9061684299073887`*^9}, {
  3.9061686550705447`*^9, 3.9061686626130424`*^9}, {3.906170656189993*^9, 
  3.906170656623913*^9}},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"d45afb1d-35a1-4bdb-9b0b-e3dd5ced4fb9"],

Cell[TextData[{
 "Two ways of defining a function:\n",
 StyleBox["\[FilledSmallCircle] ",
  FontWeight->"Bold"],
 " ",
 StyleBox["=",
  FontColor->RGBColor[1, 0, 0]],
 " ",
 StyleBox[" \"Set\"\n\[FilledSmallCircle] ",
  FontWeight->"Bold"],
 StyleBox[":=",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["  \"Set Delayed\"  \n",
  FontWeight->"Bold"],
 "The difference is on ",
 StyleBox["when",
  FontWeight->"Bold"],
 " the definition is executed"
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.906168461085075*^9, 3.9061685183649497`*^9}, {
  3.90616866592546*^9, 3.9061686799959927`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"b8f5de23-8f7b-4b58-b80d-54f583c8b439"],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{{3.6666841131405487`*^9, 
  3.6666841175705547`*^9}},ExpressionUUID->"b5b942db-56be-4319-bbf8-\
f6c2e23316c0"],

Cell[TextData[{
 StyleBox["\[FilledSmallCircle] \"Set\":  ",
  FontWeight->"Bold"],
 "the right hand side hand side (including the variables on which the \
function depends) is",
 StyleBox[" evaluated at the moment in which the definition is executed\n\
\[FilledSmallCircle] \"Set Delayed\": ",
  FontWeight->"Bold"],
 "the right  hand side will be (re)",
 StyleBox["evaluated each time the function is called ",
  FontWeight->"Bold"],
 "\n    (this is why Set Delayed does not produce Output)"
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.9061684827795525`*^9, 3.9061685038209295`*^9}, {
  3.906168684620635*^9, 3.9061687167457037`*^9}, {3.906168765915042*^9, 
  3.9061688894627295`*^9}, {3.906169929314697*^9, 3.906169945324429*^9}, {
  3.9061837665112104`*^9, 3.906183822106848*^9}, {3.906290514112665*^9, 
  3.9062905384617605`*^9}, {3.906290577691554*^9, 3.9062905784408617`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"79dd2432-4a11-4a70-8c68-c88a52a789cf"],

Cell["\<\
The two procedures are not equivalent if 
- the variables on which the function depends have a value assigned at the \
moment of the definition
- the r.h.s. contains symbols
because with SET the variables and the symbols are (forever) given the value \
that they have at the moment of the definition,\
\>", "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.9061684827795525`*^9, 3.9061685038209295`*^9}, {
  3.906168684620635*^9, 3.9061687167457037`*^9}, {3.906168765915042*^9, 
  3.906168958215855*^9}, {3.9061700210523915`*^9, 3.9061701018142443`*^9}, {
  3.9062905882669563`*^9, 3.9062906729523935`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"c3b2e2f4-c25c-482b-b222-397c2d0125a9"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"5d105119-f9c7-4383-a8b9-5a4c840bfc02"],

Cell[TextData[StyleBox["Example 1",
 FontSlant->"Italic"]], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.9061689008898773`*^9, 3.9061689017230167`*^9}, 
   3.906290688714656*^9, {3.9062907430355744`*^9, 3.906290749122178*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"d955d9ca-51e1-47a3-b7e1-5bc03141a200"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=", "5"}], ";"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.9062906996129274`*^9, 3.9062907033987703`*^9}, 
   3.9062907660146265`*^9},ExpressionUUID->"03133f6a-6aef-489c-b6e9-\
b9c219c1d7ee"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], " ", ":=", " ", "x"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.906169004701485*^9, 3.906169004920918*^9}, {
  3.906169960347892*^9, 3.906169963284718*^9}, {3.906290705908501*^9, 
  3.906290706295854*^9}, {3.906290770496274*^9, 3.9062907717052345`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"aee16ede-6059-417d-aad2-e491a8cd1b3c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"h", "[", "x_", "]"}], " ", "=", " ", "x"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.9061690071298404`*^9, 3.906169007551279*^9}, {
  3.906169965958956*^9, 3.9061699686450915`*^9}, {3.9062907093576517`*^9, 
  3.9062907098134737`*^9}, {3.906290773770425*^9, 3.9062907739541907`*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"9c52b3fb-c2ab-42ae-90a8-c26c0ea1f1ee"]
}, Closed]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{{3.666684299110809*^9, 
  3.6666843030008144`*^9}},ExpressionUUID->"ed08a16a-099b-4945-994c-\
f00eef18fbf6"],

Cell[BoxData[
 RowBox[{"g", "[", "1", "]"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.636460360732552*^9, 3.636460361735609*^9}, {
  3.6666843968109455`*^9, 3.6666843972409463`*^9}, {3.9061690098323317`*^9, 
  3.9061690099878526`*^9}, {3.9061699716820407`*^9, 3.9061699718382573`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"dd8ae841-2224-4694-8c87-d51eb6aedfbb"],

Cell[BoxData[
 RowBox[{"h", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.6666844045309563`*^9, 3.666684404920957*^9}, {
  3.906169011503727*^9, 3.906169012471922*^9}, {3.9061699741339192`*^9, 
  3.906169974305751*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"25f4c8d8-c5c1-4365-a90a-58c8ee72e4db"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.906290723980341*^9, 3.906290727355265*^9}, {
  3.9062907889813485`*^9, 3.9062908019146805`*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"a0730a14-bd18-4237-9ad7-212bc191236f"],

Cell[BoxData[
 RowBox[{"g", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.9062907315643263`*^9, 3.906290732260038*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"6e0681a9-82f5-4a46-b41e-cd46dc927569"],

Cell[BoxData[
 RowBox[{"h", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.9062907341465354`*^9, 3.906290734889063*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"891042a0-a86c-4a55-84db-40b63ec4c7d5"],

Cell["Correct?", "Text",
 CellDingbat->None,
 ShowGroupOpener->False,
 CellFrameMargins->8,
 CellChangeTimes->{{3.9061689971197796`*^9, 3.906168999171926*^9}},
 Background->GrayLevel[
  0.85],ExpressionUUID->"d5e16b1c-5dbe-4cbc-a7ba-2a2954ad09b2"],

Cell[BoxData[
 RowBox[{"?", "g"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.906169014760948*^9, 3.9061690150416975`*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"012a707f-bc82-418b-aaa9-e657d44bb162"],

Cell[BoxData[
 RowBox[{"?", "h"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.906169056568435*^9, 3.9061690570940876`*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"d84e4f4c-7875-480b-8ac4-bbf1959e87e7"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"d43415e4-cf29-46fc-bf4c-90cf81e5a965"],

Cell[TextData[StyleBox["Example 2",
 FontSlant->"Italic"]], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.9061689008898773`*^9, 3.9061689017230167`*^9}, 
   3.906290688714656*^9, {3.9062907430355744`*^9, 3.906290749122178*^9}, {
   3.906290830467732*^9, 3.9062908306846113`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"22ce1329-728c-4ede-aa57-0d38dae773c4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "x", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p", "=", "3"}], ";"}]}], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.9062906996129274`*^9, 3.9062907033987703`*^9}, {
  3.906290832347747*^9, 3.906290839967647*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"ba225f91-c434-45f2-9d48-0732f84e3ca0"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.906169021729511*^9, 
  3.9061690242757864`*^9}},ExpressionUUID->"197ef789-5207-4707-85cf-\
5fd15178e002"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"x", "+", "p"}]}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.906169004701485*^9, 3.906169004920918*^9}, {
  3.906169960347892*^9, 3.906169963284718*^9}, {3.906290705908501*^9, 
  3.906290706295854*^9}, {3.9062908431076593`*^9, 3.906290844297821*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"3a4fac13-ef4f-47f6-93b8-d9e1c48dae74"],

Cell[BoxData[
 RowBox[{
  RowBox[{"h", "[", "x_", "]"}], " ", "=", " ", 
  RowBox[{"x", "+", "p"}]}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.9061690071298404`*^9, 3.906169007551279*^9}, {
  3.906169965958956*^9, 3.9061699686450915`*^9}, {3.9062907093576517`*^9, 
  3.9062907098134737`*^9}, {3.906290847913354*^9, 3.906290848329348*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"f9750efa-b0c9-430d-b5a3-59402d319aac"],

Cell[BoxData[
 RowBox[{"g", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.906290851863329*^9, 3.906290852717391*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"caf0e7fd-cd4a-455d-91f0-412dd0608022"],

Cell[BoxData[
 RowBox[{"h", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.9062908543354807`*^9, 3.9062908553241777`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"3c96c4fd-a25a-4297-96e3-d701d9d27c45"],

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "=", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.906290856931183*^9, 3.906290858772174*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"d3f511e6-33af-4dd4-ac60-f324f802d630"],

Cell[BoxData[
 RowBox[{"g", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.906290860188634*^9, 3.90629086099035*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"5004d864-ecae-4b0e-a4f9-c6f4e6ff932a"],

Cell[BoxData[
 RowBox[{"h", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.9062908622509165`*^9, 3.9062908631710052`*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"92d2ea35-8c50-4dc7-9041-b58545048e10"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"67bce838-d6de-453e-89c4-275490110160"],

Cell[TextData[{
 StyleBox["Thus, be careful with \[OpenCurlyDoubleQuote]=\
\[CloseCurlyDoubleQuote]!",
  FontWeight->"Bold"],
 "\n\n\[FilledSmallCircle] In general, it is safer to use :=\n\nUse := or = \
depending on what you need to do.\n\[FilledSmallCircle] E.g., use \
\[OpenCurlyDoubleQuote]=\[CloseCurlyDoubleQuote] if you want that a specific \
value of a symbol is used (e.g., a global parameter set at the beginning of \
the computations)"
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.687633073338108*^9, 3.687633095739041*^9}, {
  3.9061691120767727`*^9, 3.906169222654109*^9}, {3.9061693521411*^9, 
  3.906169377463044*^9}, {3.9061694143440676`*^9, 3.906169447675332*^9}, {
  3.9061698848954535`*^9, 3.906169891934472*^9}, {3.906170117039101*^9, 
  3.90617014282771*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"c855e90f-672a-45a5-b709-7805c6b3eb3c"]
}, Closed]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{{3.5995564695063467`*^9, 
  3.599556474866354*^9}},ExpressionUUID->"f2d8d44b-b64e-494d-ba99-\
781afdb5daa4"],

Cell[TextData[{
 StyleBox["Exercise:",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " You want to define a random number. \nNative ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " functions:\n            ",
 StyleBox["Random",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Real",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["[ ]  :  random number in interval (0,1)\n",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "            ",
 StyleBox["Random",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Real",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["[ Interval] :  random number in specified interval\n",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "Which is difference between\n",
 StyleBox["  ",
  FontFamily->"Terminal",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["rr1 = RandomReal[]\n  rr2 := RandomReal[]",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["\n",
  FontFamily->"Terminal",
  FontColor->RGBColor[1, 0, 0]],
 "? "
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.591087122850296*^9, 3.591087171366381*^9}, {
  3.5995567381067224`*^9, 3.5995567414767275`*^9}, {3.6666846875413527`*^9, 
  3.6666847103013844`*^9}, {3.6876331136112175`*^9, 3.6876332296857624`*^9}, {
  3.906169236165396*^9, 3.906169347621043*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"9821a36b-47b8-4f45-b975-fae7b87ffb80"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",
 CellDingbat->None,
 ShowGroupOpener->False,
 CellFrameMargins->8,ExpressionUUID->"928c3cb0-f792-46cf-a5a6-81097eabf3da"],

Cell[BoxData[
 RowBox[{"rr1", "=", 
  RowBox[{"RandomReal", "[", "]"}]}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5910871464687376`*^9, 3.5910871757655888`*^9}, {
  3.5995567044866753`*^9, 3.5995567053366766`*^9}, {3.599568105912359*^9, 
  3.5995681071423607`*^9}, {3.666684782091485*^9, 3.666684782391485*^9}, {
  3.687633244451229*^9, 3.6876332468735695`*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"116ec078-19ed-43d7-8584-73c26480bb5a"],

Cell[BoxData["rr1"], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.666684786521491*^9, 3.6666847870914917`*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"94fc8a67-c4b7-4b72-b46d-9982e4c07b0a"],

Cell[BoxData["rr1"], "Input",
 CellChangeTimes->{{3.6666847894714956`*^9, 3.6666847899614964`*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"a5d4fa3d-8b22-41f1-869a-579d98e7de88"],

Cell[BoxData[
 RowBox[{"rr2", ":=", 
  RowBox[{"RandomReal", "[", "]"}]}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.591087184205204*^9, 3.5910871846576047`*^9}, {
  3.6666847944815025`*^9, 3.666684794921503*^9}},
 CellLabel->
  "In[105]:=",ExpressionUUID->"2af70304-366c-409d-b8d3-05c4e4ed233b"],

Cell[BoxData["rr2"], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.6666847967415056`*^9, 3.6666847971215057`*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"058205e0-6ed6-40e3-8583-e7ccd7b965ed"],

Cell[BoxData["rr2"], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.6666847990215087`*^9, 3.66668479982151*^9}},
 CellLabel->
  "In[107]:=",ExpressionUUID->"36e56c7b-a738-4ff1-bb61-8e2247eaecbd"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"412d41ad-b8fe-4bb0-8027-22fa1deb18f2"],

Cell[TextData[{
 StyleBox["Note: ",
  FontWeight->"Bold"],
 StyleBox[" Using \[OpenCurlyDoubleQuote]=\[CloseCurlyDoubleQuote] or \
\[OpenCurlyDoubleQuote]:=\[CloseCurlyDoubleQuote] may affect the execution \
time of a function \n",
  FontWeight->"Plain"],
 StyleBox["\nExercise: ",
  FontWeight->"Bold"],
 StyleBox["Compare the time  ",
  FontWeight->"Plain"],
 StyleBox["Mathematica",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 StyleBox["  takes to make the graph of",
  FontWeight->"Plain"],
 ":\n\[FilledSmallCircle]  ",
 Cell[BoxData[
  RowBox[{" ", 
   RowBox[{
    RowBox[{"test1", "[", "x_", "]"}], ":=", " ", 
    RowBox[{"Expand", "[", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Sin", "[", "x", "]"}]}], ")"}], "200"], "]"}]}]}]],
  ExpressionUUID->"1afa2706-8c31-478a-8b77-b4309ba88a11"],
 " \n\[FilledSmallCircle]   ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"test2", "[", "x_", "]"}], " ", "=", " ", 
   RowBox[{"Expand", "[", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"Sin", "[", "x", "]"}]}], ")"}], "200"], "]"}]}]],
  ExpressionUUID->"b036af66-6ab9-449f-9b1d-9c0741a15c13"],
 "\nand explain the result\n\nThe time used by Mathematica to process a \
command is given by\n      ",
 StyleBox["Timing[  command]\n",
  FontWeight->"Bold"],
 StyleBox["which produces\n",
  FontWeight->"Plain"],
 StyleBox["     ",
  FontWeight->"Bold"],
 StyleBox["{used time,  output of \[OpenCurlyDoubleQuote]command\
\[CloseCurlyDoubleQuote]}",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["     ",
  FontWeight->"Bold"]
}], "Text",
 CellDingbat->None,
 ShowGroupOpener->False,
 CellChangeTimes->{{3.9061696845011435`*^9, 3.906169791270585*^9}, {
   3.9061701610564237`*^9, 3.9061702970523376`*^9}, {3.906175867421174*^9, 
   3.9061759319008536`*^9}, 3.9061843642654486`*^9, {3.9061846165767503`*^9, 
   3.9061846185861626`*^9}},
 FontFamily->"Times",
 FontWeight->"Normal",
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"7d57bba3-ad9c-48f2-9e5c-5d3892eb5b3f"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"4348e5e7-5959-40dc-971c-683aa5c38aa4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"test1", "[", "x_", "]"}], ":=", 
  RowBox[{"Expand", "[", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      RowBox[{"1", "+", 
       RowBox[{"Sin", "[", "x", "]"}]}], "2"], ")"}], "200"], 
   "]"}]}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.6666850284418297`*^9, 3.666685039071845*^9}, {
  3.6666851927420597`*^9, 3.6666851931720605`*^9}, {3.9061847099408855`*^9, 
  3.9061847102590704`*^9}, {3.9061848029276366`*^9, 3.9061848031520324`*^9}, {
  3.906186455186346*^9, 3.906186456052554*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"376bd8d1-efc8-41f0-bf72-438d647053b7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", "x", "]"}], ";"}], "       ", 
  StyleBox[
   RowBox[{"(*", " ", 
    RowBox[{
    "this", " ", "precaution", " ", "is", " ", "recommended", " ", "before", 
     " ", "using", " ", 
     RowBox[{"SET", "!"}]}], "  ", "*)"}],
   FontColor->RGBColor[1, 0, 1]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"test2", "[", "x_", "]"}], "=", 
   RowBox[{"Expand", "[", 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox[
       RowBox[{"1", "+", 
        RowBox[{"Sin", "[", "x", "]"}]}], "2"], ")"}], "200"], "]"}]}], 
  ";"}]}], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.666685043301851*^9, 3.6666850446118526`*^9}, 
   3.6666850792119007`*^9, {3.666685200572071*^9, 3.6666852195220976`*^9}, {
   3.906169828544186*^9, 3.906169852998307*^9}, {3.906184714460683*^9, 
   3.90618471479212*^9}, {3.9061847990784163`*^9, 3.9061847994963045`*^9}, 
   3.9061864522325487`*^9},
 CellLabel->"In[75]:=",ExpressionUUID->"67c1ffb5-b743-48e0-998d-f2eb628ab415"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"test1", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", 
      RowBox[{"2", "Pi"}]}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], "//", "Timing"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.666685109931944*^9, 3.6666851147619505`*^9}, {
  3.666685255262148*^9, 3.6666852694221673`*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"9ad024cc-1f1d-4423-b0ee-58307a758ad2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"test2", "[", "x", "]"}], "//", "Evaluate"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", 
      RowBox[{"2", "Pi"}]}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], "//", "Timing"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.666685289192195*^9, 3.6666852989822087`*^9}, {
  3.906186495100309*^9, 3.9061864969690723`*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"de00cb0a-456e-4b49-b5a3-e9ce673052f6"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",
 CellDingbat->None,
 ShowGroupOpener->False,
 CellFrameMargins->8,ExpressionUUID->"c0ffae2d-0eb2-4ff2-baa7-b074a1411336"],

Cell[TextData[{
 StyleBox["Answer:",
  FontSlant->"Italic"],
 "\n- During the evaluation of test1 a numerical value is substituted to x \
and then ",
 StyleBox["numerical",
  FontSlant->"Italic"],
 " sums and powers are made (there is nothing to expand)\n- test 2 first ",
 StyleBox["symbolically ",
  FontSlant->"Italic"],
 "expand the power of the bynomial (slow!) and then substitutes into the \
resulting expression the numerical value to x\nCheck this with \
\[OpenCurlyDoubleQuote]Trace\[CloseCurlyDoubleQuote]"
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.687633354428707*^9, {3.9061702507643113`*^9, 3.9061702525095015`*^9}, {
   3.906170306092328*^9, 3.9061706299887466`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"b756ca5b-e172-4b77-9c90-bc463bd1e38e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"test1", "[", "x_", "]"}], ":=", 
  RowBox[{"Expand", "[", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"Sin", "[", "x", "]"}]}], ")"}], "200"], "]"}]}]], "Input",
 CellChangeTimes->{{3.906186679600313*^9, 3.906186686334695*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"6451a507-de9d-4f0e-93da-127b13c5ffab"],

Cell[BoxData[
 RowBox[{
  RowBox[{"test1", "[", ".2", "]"}], "//", "Trace"}]], "Input",
 CellChangeTimes->{{3.9061866875439243`*^9, 3.9061866999813194`*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"80e5483a-b1da-4f96-b80b-1846cd503924"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Expand", "[", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"Sin", "[", ".1", "]"}]}], ")"}], "200"], "]"}], "//", 
  "Trace"}]], "Input",
 CellChangeTimes->{{3.666679941230138*^9, 3.666679988710204*^9}, {
  3.906170535154254*^9, 3.906170536336895*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"6345cd1c-5c7e-43da-a8cb-7a16954acd30"],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"Sin", "[", "x", "]"}]}], ")"}], "200"], "]"}]], "Input",
 CellChangeTimes->{{3.666679945090143*^9, 3.666679950680151*^9}, {
   3.6666799946102123`*^9, 3.6666799957402143`*^9}, {3.9061705400864916`*^9, 
   3.906170540445929*^9}, 3.9061863768743544`*^9},
 CellLabel->"In[73]:=",ExpressionUUID->"56dd8995-4ddc-499b-ad5b-08558cb94616"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["7. Help and documentation", "Section",
 CellChangeTimes->{{3.7603305394751625`*^9, 3.760330552624377*^9}, 
   3.7603305908582544`*^9, {3.760330621878708*^9, 3.7603306472378387`*^9}, {
   3.760330680982297*^9, 3.76033068354846*^9}, {3.7603798770441265`*^9, 
   3.7603798807094717`*^9}, {3.7603842108160725`*^9, 3.760384216686191*^9}, {
   3.760453391881394*^9, 3.7604533948679066`*^9}, {3.9061232577020144`*^9, 
   3.9061232616923876`*^9}, {3.9061707641725674`*^9, 3.906170773350313*^9}},
 FontSize->24,
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"1e274ede-e835-4649-aaf1-6f3b76f1e2cd"],

Cell[TextData[{
 "There are two types of help:\n\n",
 StyleBox["\[FilledSmallCircle]",
  FontWeight->"Bold"],
 "  a short description of each command (",
 StyleBox["?command)",
  FontWeight->"Bold"],
 "\n\n",
 StyleBox["\[FilledSmallCircle]",
  FontWeight->"Bold"],
 " a complete dcumentation/help system  (with description of all commands, \
tutorials, and much more) which can be accessed\n   ",
 StyleBox["\[FilledSmallCircle]\[FilledSmallCircle] ",
  FontWeight->"Bold"],
 "  from the ",
 StyleBox["\[OpenCurlyDoubleQuote]Help\[CloseCurlyDoubleQuote] ",
  FontWeight->"Bold"],
 "menu",
 StyleBox["  \n   \[FilledSmallCircle]\[FilledSmallCircle] ",
  FontWeight->"Bold"],
 " pressing ",
 StyleBox["F1 ",
  FontWeight->"Bold"],
 " \n   \[FilledSmallCircle]\[FilledSmallCircle]  clicking on \
\[OpenCurlyDoubleQuote]i\[CloseCurlyDoubleQuote] in the ineractive menu that \
appears when typing a command or  ?command"
}], "Text",
 CellChangeTimes->{{3.7603792450011234`*^9, 3.760379252699852*^9}, 
   3.7931291777801065`*^9, 3.7931292292680445`*^9, {3.906123264113551*^9, 
   3.906123284055916*^9}, {3.9061235342412834`*^9, 3.906123772076009*^9}, {
   3.9061238162139096`*^9, 3.9061238814104967`*^9}, {3.9061849060882053`*^9, 
   3.906184935094472*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"a92ce12e-f34c-4bd0-b760-83fdb590b974"],

Cell[CellGroupData[{

Cell["", "Subsubsection",
 CellChangeTimes->{{3.906185262982196*^9, 3.90618526299117*^9}, {
  3.906290928802599*^9, 
  3.906290932013114*^9}},ExpressionUUID->"c9aad663-6117-4fe2-9df4-\
0ef2b2ebc9cf"],

Cell["Example:  info on the command \[OpenCurlyDoubleQuote]Expand\
\[CloseCurlyDoubleQuote]", "Text",
 CellChangeTimes->{{3.793128071767908*^9, 3.7931281008217955`*^9}, 
   3.793128146623452*^9, {3.793128675812248*^9, 3.7931286826861773`*^9}, {
   3.7931288775836887`*^9, 3.7931288840503845`*^9}, 3.7931290305235744`*^9, 
   3.793129150630938*^9, 3.793129248047571*^9, {3.906123782282278*^9, 
   3.906123795611409*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"d4ce8db7-b633-4cf7-8b8d-850f5802a97b"],

Cell[BoxData[
 RowBox[{"?", "Expand"}]], "Input",
 CellChangeTimes->{{3.823931464729306*^9, 3.823931470673274*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"ff1e93ed-3f8f-41b9-a531-fb0c39b80bf7"],

Cell[BoxData["Expand"], "Input",
 CellChangeTimes->{{3.8239314732260275`*^9, 
  3.8239314838753023`*^9}},ExpressionUUID->"04f50beb-3807-4ef7-b3eb-\
cd2012fbd8a7"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "8. ",
 StyleBox["Organization of the notebook: \[OpenCurlyDoubleQuote]elegant\
\[CloseCurlyDoubleQuote] formulas, sections, text cells .... ",
  FontSize->24]
}], "Section",
 CellChangeTimes->{{3.7603305394751625`*^9, 3.760330552624377*^9}, 
   3.7603305908582544`*^9, {3.760330621878708*^9, 3.7603306472378387`*^9}, {
   3.760330680982297*^9, 3.76033068354846*^9}, {3.7603798770441265`*^9, 
   3.7603798807094717`*^9}, {3.7603842108160725`*^9, 3.760384216686191*^9}, {
   3.760453391881394*^9, 3.7604533948679066`*^9}, {3.9061232577020144`*^9, 
   3.9061232616923876`*^9}, {3.9061707641725674`*^9, 3.906170773350313*^9}, {
   3.9061708036890273`*^9, 3.906170814408569*^9}},
 FontSize->24,
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"9e54262b-7488-4d80-86a9-05a6a825aa0f"],

Cell[TextData[{
 "The display of the input can be improved using  2-dimensional notation ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     FractionBox["x", "y"], ",", 
     FormBox[
      SuperscriptBox["x", "y"],
      TraditionalForm], " ", ",", "etc"}], ")"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "59b2d2c4-55f7-4405-8118-06f7e240a43a"],
 ",  greek symbols  etc.\n\[Bullet] either inserting symbols/placeholders \
from a ",
 StyleBox["palette",
  FontWeight->"Bold"],
 " (from the  ",
 StyleBox["Palettes",
  FontSlant->"Italic"],
 " menu",
 ")",
 StyleBox["\n\[Bullet]",
  FontSlant->"Italic"],
 " or using  ",
 StyleBox["key shortcuts",
  FontWeight->"Bold"]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5995538659767013`*^9, 3.59955390074775*^9}, {
  3.793086196549782*^9, 3.7930862025483894`*^9}, {3.823798311778555*^9, 
  3.8237983146855845`*^9}, {3.906124562622314*^9, 3.90612476141625*^9}, {
  3.9061708316062164`*^9, 3.9061708520038013`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"22026f64-95b6-4af3-b5ea-2d2cc1f28c9b"],

Cell[TextData[{
 StyleBox["Examples of ",
  FontSlant->"Italic"],
 StyleBox["key shortcuts:",
  FontWeight->"Bold"],
 StyleBox["\n    ",
  FontSlant->"Italic"],
 Cell[BoxData[
  RowBox[{
   RowBox[{"Sqrt", "[", " ", "]"}], "   ", "\[Rule]", "   ", 
   SqrtBox["\[Placeholder]"]}]],ExpressionUUID->
  "cf22e07b-c297-4180-a1b2-b89afe74050a"],
 "               (",
 StyleBox["CTRL 2",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 ")\n       ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"x", "/", "y"}], "       ", "\[Rule]", "   ", 
   FractionBox["x", "y"]}]],ExpressionUUID->
  "de5e7ee8-caa5-4bc3-b2ac-396c15f9a4d5"],
 "                 (",
 StyleBox["CTRL /",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 ")\n       ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"x", "^", "3"}], "       ", "\[Rule]", "   ", 
   SuperscriptBox["x", "3"]}]],ExpressionUUID->
  "4f0d0c30-935f-42ab-888f-8ab5ce6dc82d"],
 "                  (",
 StyleBox["CTRL  6",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 ")\n            \[Alpha]                                       (",
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["ESC a ESC",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 " )"
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.9061247631970463`*^9, 3.9061247689235425`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"2cacf23a-12f9-4897-9c46-93cf61aa7bf8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["2", "3"], "    ", 
   SuperscriptBox["x", "87"], "    ", "\[Alpha]", "     ", 
   TemplateBox[{},
    "Reals"], "      ", "\[Alpha]"}], " ", "\[Element]", " ", 
  TemplateBox[{},
   "Reals"], "   "}]], "Input",
 CellChangeTimes->{{3.906185306418394*^9, 
  3.906185469910757*^9}},ExpressionUUID->"2501b37d-482e-456c-9e67-\
ddc98bb570f8"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"9e8c152c-75d3-4093-b98d-eae203c8bc77"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   StyleBox["Exercise",
    FontWeight->"Bold"], 
   StyleBox[":",
    FontWeight->"Bold"], 
   StyleBox[" ",
    FontWeight->"Bold"], 
   RowBox[{"using", " ", "only", " ", "the", " ", "keyboard"}]}], ",", " ", 
  "write"}], "\[IndentingNewLine]", 
 RowBox[{"      ", 
  RowBox[{"\[Eta]", " ", ",", "     ", 
   SqrtBox[
    RowBox[{"4", " ", "\[Beta]"}]], "  ", ",", "    ", 
   SuperscriptBox["x", 
    RowBox[{"3", "\[Alpha]"}]], "  ", ",", "   ", 
   FractionBox["5", "3"], "   ", ",", "     ", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      SqrtBox[
       RowBox[{"x", "+", 
        SuperscriptBox["x", "2"]}]], 
      RowBox[{"2", "-", "x"}]], ")"}], "67"], "    "}]}]}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.793129639812628*^9, {3.823798350145771*^9, 3.823798374843071*^9}, {
   3.9061247911527095`*^9, 3.9061248273655853`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"3c6aedd3-7d19-47ce-8dd4-c1bec1f50b67"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Formatting styles (\[OpenCurlyDoubleQuote]Forms\
\[CloseCurlyDoubleQuote])",
 FontWeight->"Plain"]], "Subsection",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
   3.7931288592437024`*^9, 3.793128859649885*^9}, 3.7931289463928895`*^9, {
   3.7931291135384836`*^9, 3.793129117412557*^9}, 3.79312929214715*^9, {
   3.9061248333961077`*^9, 3.906124855041151*^9}, {3.906124896151121*^9, 
   3.906124900077625*^9}, {3.906125000176161*^9, 3.9061250089200335`*^9}, {
   3.906170865643775*^9, 3.9061708767890625`*^9}},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"4105bbde-19ae-468a-beff-9e360c152eb9"],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " uses different formats for the mathematical notations in the  input and \
output cells\nMain formats: \n  \[Bullet]",
 StyleBox[" Input Form: ",
  FontWeight->"Bold"],
 "only inline ",
 "alphanumerical characters.",
 StyleBox["\n  ",
  FontWeight->"Bold"],
 "\[Bullet]",
 StyleBox[" Standard Form: ",
  FontWeight->"Bold"],
 "it\[CloseCurlyQuote]s the ",
 "form used for the display of input and output; can be made 2-dimensional ",
 StyleBox["\n  ",
  FontWeight->"Bold"],
 "\[Bullet]",
 StyleBox[" Traditional Form: ",
  FontWeight->"Bold"],
 "suitable for printing a",
 " notebook\n  \[Bullet]",
 StyleBox[" Full Form: ",
  FontWeight->"Bold"],
 "internal representation of all objects"
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.540182186103407*^9, 3.540182219253465*^9}, {
  3.5995536863264494`*^9, 3.59955368672645*^9}, {3.8237982250964994`*^9, 
  3.8237982256810713`*^9}, {3.9061248684492273`*^9, 3.906125087792801*^9}, {
  3.906125131407778*^9, 3.906125204001708*^9}, {3.906185637549939*^9, 
  3.9061856403091326`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"c4708b1a-6869-406b-bbe6-187b8fe69486"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"6db02995-ca2b-40a8-ad06-fba1550248aa"],

Cell[BoxData[
 StyleBox["Example",
  FontWeight->"Bold"]], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.793129639812628*^9, {3.823798350145771*^9, 3.823798374843071*^9}, {
   3.9061247911527095`*^9, 3.9061248273655853`*^9}, {3.9061252265090523`*^9, 
   3.9061252291338806`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"bc040fa4-1c89-44c8-b394-7626b6050379"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   SuperscriptBox["x", "2"], 
   RowBox[{"Log", "[", "x", "]"}]], "+", 
  RowBox[{"Sin", "[", 
   SqrtBox["x"], "]"}]}]], "Input",
 CellChangeTimes->{{3.906185712507921*^9, 3.9061857257833767`*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"73a501c3-acc1-44da-b1cd-027dbd524360"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"x", "^", "2"}], "/", 
   RowBox[{"Log", "[", "y", "]"}]}], " ", "+", " ", 
  RowBox[{"Sin", "[", 
   RowBox[{"Sqrt", "[", "x", "]"}], "]"}], " "}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.8243818477134256`*^9, 3.8243818519934998`*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"320821f1-2248-4562-aa3f-9e2558b1df93"],

Cell[BoxData[
 RowBox[{"%", " ", "//", " ", "StandardForm"}]], "Input",
 CellChangeTimes->{{3.7929929640655785`*^9, 3.7929929693143425`*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"75e9ebdf-43ed-4203-bbea-b8f935146c1d"],

Cell[BoxData[
 RowBox[{"%%", " ", "//", "  ", "InputForm"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{3.793085769253793*^9},
 CellLabel->"In[70]:=",ExpressionUUID->"4c0fe816-0579-446e-a388-a4d3a9d71836"],

Cell[BoxData[
 RowBox[{"%%%", " ", "//", " ", "FullForm"}]], "Input",
 CellChangeTimes->{{3.540182141237728*^9, 3.540182146292137*^9}, {
   3.7604275762117434`*^9, 3.760427579949723*^9}, 3.906125362209747*^9},
 CellLabel->"In[71]:=",ExpressionUUID->"46d1e783-01af-4249-b1af-74fd32d16aa1"],

Cell[BoxData[
 RowBox[{"%%%%", "//", " ", "TraditionalForm"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.7604274440478354`*^9, 3.7604274498551984`*^9}, {
   3.7930857904465876`*^9, 3.7930857905733557`*^9}, 3.906125378142948*^9},
 CellLabel->"In[72]:=",ExpressionUUID->"32be3bcd-e3f4-4dae-b667-8ff96b5a4efe"],

Cell["\<\
The first three are equivalent.
Traditional Form is not equivalent to the others (it might not be \
interpretable in a unique way): avoid it, possibly except for comments etc.\
\>", "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5401821560421543`*^9, 3.5401821615489635`*^9}, {
  3.8237982545255127`*^9, 3.823798286664531*^9}, {3.906125242102212*^9, 
  3.9061253307356787`*^9}, {3.90612538134494*^9, 3.9061253977007*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"da49b3a1-c514-47af-8191-1348b40244be"]
}, Closed]]
}, Closed]],

Cell[TextData[StyleBox["Organization of notebooks: hierarchy of sections, \
text cells",
 FontWeight->"Plain"]], "Subsection",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
   3.7931288592437024`*^9, 3.793128859649885*^9}, 3.7931289463928895`*^9, {
   3.7931291135384836`*^9, 3.793129117412557*^9}, 3.79312929214715*^9, 
   3.8243857759869723`*^9, {3.906125403401844*^9, 3.906125455495083*^9}},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"90dffe85-bee8-4c74-9c54-3f69af8949f5"],

Cell[CellGroupData[{

Cell["Text cells", "Subsection",
 CellChangeTimes->{{3.906125844721135*^9, 
  3.9061258512676687`*^9}},ExpressionUUID->"d7cab3a0-087e-4da7-8245-\
9055b209fec6"],

Cell[TextData[{
 "Insertions of  ",
 StyleBox["comments",
  FontWeight->"Bold"],
 ": \n\[FilledSmallCircle] inside an input cell :    ",
 StyleBox["(*   comments   *)\n\[FilledSmallCircle] ",
  FontWeight->"Bold"],
 "in",
 StyleBox[" ",
  FontWeight->"Bold"],
 "a",
 StyleBox[" text cell",
  FontWeight->"Bold"]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.8237983909643793`*^9, 3.823798393204669*^9}, {
   3.824381962243046*^9, 3.824382003295278*^9}, {3.824382048274358*^9, 
   3.8243820647391376`*^9}, 3.824385769407932*^9, {3.824385806055045*^9, 
   3.824385806439921*^9}, {3.8244444135046506`*^9, 3.8244444205679216`*^9}, {
   3.9061254800575438`*^9, 3.9061255331592207`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"c5d5e83d-7363-4ca9-b70d-02a8b0e8f1cb"],

Cell["\<\
ALT7:
- Creates a text cell at the cursor position
- Changes an existing cell to a text cell

(Alternatively: use menu  Format\[Rule]Style\[Rule]Text). \
\>", "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.8237983909643793`*^9, 3.823798393204669*^9}, {
   3.824381962243046*^9, 3.824382003295278*^9}, {3.824382048274358*^9, 
   3.8243820647391376`*^9}, 3.824385769407932*^9, {3.8243858118160515`*^9, 
   3.824385940191264*^9}, {3.8243860029314995`*^9, 3.8243860032637715`*^9}, {
   3.82455893147322*^9, 3.8245589350174856`*^9}, {3.9061255413604393`*^9, 
   3.906125636286277*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"6f19e8ca-3acc-413a-babc-4a0bd6990676"],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{3.793129399304299*^9, 
  3.8243820708023005`*^9},ExpressionUUID->"aecae095-ba45-4385-ab13-\
b16f6c4c3cef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Simplify", "[", 
   SqrtBox[
    SuperscriptBox["x", "2"]], " ", "]"}], "   ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "will", " ", "not", " ", "be", " ", "simplified", " ", 
    "because", " ", "x", " ", "is", " ", "not", " ", "a", " ", "positive", 
    " ", "real"}], " ", "*)"}], "     "}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.697531189363428*^9, 3.6975311895474772`*^9}, {
  3.72949371761353*^9, 3.7294937823445864`*^9}, {3.7930865295086827`*^9, 
  3.793086534179656*^9}, {3.8243820773544874`*^9, 3.8243820832999053`*^9}, {
  3.9061256513053503`*^9, 3.9061257096246395`*^9}, {3.90618690757833*^9, 
  3.9061869449168344`*^9}, {3.9062909794466624`*^9, 
  3.906290981907507*^9}},ExpressionUUID->"93cd1a36-3d11-4f45-a1aa-\
abe0ce4672f4"],

Cell["this cell will become a text cell (pressing  ALT 7)", "Text",
 CellChangeTimes->{{3.793086600922954*^9, 3.7930866009239273`*^9}, {
   3.7930866419571953`*^9, 3.7930866427640038`*^9}, {3.7931294121287937`*^9, 
   3.7931294141595716`*^9}, 3.8237984052194457`*^9, {3.8243821041974206`*^9, 
   3.8243821041974206`*^9}, {3.8245588784797955`*^9, 
   3.8245588850853596`*^9}, {3.9061257108482323`*^9, 3.906125762844223*^9}, 
   3.906187021882922*^9},ExpressionUUID->"55416964-27d6-4622-a2a7-\
d6b9e77acffd"],

Cell[TextData[{
 "(To change it back to an input cell press ",
 StyleBox["ALT 9)",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.906125741171604*^9, 3.9061257792118425`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"4bc4e974-99ac-49eb-96b9-49ccfa701c44"]
}, Closed]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{3.793129429703486*^9, 
  3.824382121880478*^9},ExpressionUUID->"2e7d247b-eaae-44d7-a88a-\
458d19c0c033"],

Cell["\<\
Advantages of text cells:
\[FilledSmallCircle] cannot be executed
\[FilledSmallCircle] better formatting/more easily readable\
\>", "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.823798420738587*^9, 3.823798422240716*^9}, {
  3.8243821254203725`*^9, 3.8243821399236345`*^9}, {3.906125786761575*^9, 
  3.9061258349674597`*^9}, {3.906170923079906*^9, 3.9061709325567503`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"6e1d76e0-2af4-48bc-8cbb-18e83e0751b3"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[" Sections", "Subsection",
 CellChangeTimes->{
  3.7931294335456495`*^9, 3.824382155187254*^9, {3.9061258564701777`*^9, 
   3.9061258594133987`*^9}},ExpressionUUID->"1b882f63-9393-49a6-9fa4-\
19af4f4e610d"],

Cell["\<\
Notebooks can be hierarchically organized in sections, subsections, ...\
\>", "Text",
 CellChangeTimes->{{3.729448548818262*^9, 3.7294485652725544`*^9}, {
  3.9061258669698577`*^9, 3.906125907389674*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"e46ebc81-2f7d-4c8f-84bc-458f480ec281"],

Cell["\<\
ALT 1, ... ..., ALT 6
   create (or convert to) \
\[OpenCurlyDoubleQuote]title\[CloseCurlyDoubleQuote], \
\[OpenCurlyDoubleQuote]subtitle\[CloseCurlyDoubleQuote], \
\[OpenCurlyDoubleQuote]chapter\[CloseCurlyDoubleQuote],...., \
\[OpenCurlyDoubleQuote]subsubsection\[CloseCurlyDoubleQuote]  cells
(or use meu Format\[Rule]Style\[Rule] .... )\
\>", "Text",
 CellChangeTimes->{{3.7294486208900104`*^9, 3.7294486396194153`*^9}, {
  3.823798430323166*^9, 3.823798434094381*^9}, {3.824382188388422*^9, 
  3.8243822833907576`*^9}, {3.8243859629122667`*^9, 3.8243860622255926`*^9}, {
  3.8245589069822316`*^9, 3.8245589222527747`*^9}, {3.9061259111722975`*^9, 
  3.906125953999576*^9}, {3.9061259843159194`*^9, 3.906126063439824*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"cc0c59a4-2b85-4b2f-af1f-1cf196ba9fae"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["9. Exact and approximate numerical computations", "Section",
 CellChangeTimes->{{3.7603305394751625`*^9, 3.760330552624377*^9}, 
   3.7603305908582544`*^9, {3.760330621878708*^9, 3.7603306472378387`*^9}, {
   3.760330680982297*^9, 3.76033068354846*^9}, {3.7603798770441265`*^9, 
   3.7603798807094717`*^9}, {3.7603842108160725`*^9, 3.760384216686191*^9}, {
   3.760453391881394*^9, 3.7604533948679066`*^9}, {3.9061232577020144`*^9, 
   3.9061232616923876`*^9}, {3.9061707641725674`*^9, 3.906170773350313*^9}, {
   3.9061708036890273`*^9, 3.906170814408569*^9}, {3.9061709528599725`*^9, 
   3.906170978260231*^9}},
 FontSize->24,
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"f50fc487-e42c-415b-a994-d1b225ea2a9d"],

Cell[TextData[{
 StyleBox["Mathematica\n",
  FontSlant->"Italic"],
 "\[Bullet]  can make both  EXACT and APPROXIMATE",
 StyleBox[" ",
  FontWeight->"Bold"],
 "computations \nand \n\[Bullet] works with different types of numbers:\n  \
\[Bullet]\[Bullet] exact \n  \[Bullet]\[Bullet] machine-precision \n  \
\[Bullet]\[Bullet] arbitrary precision"
}], "Text",
 CellChangeTimes->{{3.543321041124955*^9, 3.5433210421701574`*^9}, {
  3.6975286355507836`*^9, 3.697528636535693*^9}, {3.824382481984557*^9, 
  3.8243824827188845`*^9}, {3.906126423146224*^9, 3.906126515403223*^9}, {
  3.9061269105217447`*^9, 3.906127017352251*^9}, {3.9061274381090345`*^9, 
  3.9061274395953336`*^9}, {3.9061274755598607`*^9, 3.906127590552007*^9}, {
  3.906172183771125*^9, 3.906172256212227*^9}, {3.906173402464159*^9, 
  3.9061734035267906`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"2d871192-e76d-4a35-9377-8be20be86c6a"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["9.1 \[OpenCurlyDoubleQuote]Exact\
\[CloseCurlyDoubleQuote] arithmetics",
 FontSize->24]], "Subsection",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
   3.7931288592437024`*^9, 3.793128859649885*^9}, {3.906122438732582*^9, 
   3.9061224420392823`*^9}, {3.906168401047079*^9, 3.9061684299073887`*^9}, {
   3.9061686550705447`*^9, 3.9061686626130424`*^9}, {3.906170656189993*^9, 
   3.906170656623913*^9}, {3.9061723214090967`*^9, 3.9061723276589093`*^9}, {
   3.9061728852532835`*^9, 3.9061728917137375`*^9}, 3.9061753842178364`*^9},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"bc36ccb1-ffaf-4f88-8d30-c0b033eecd59"],

Cell[TextData[{
 "In ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "\n   \[Bullet] Integers\n   \[Bullet] Rationals\n   \[Bullet] Complex \
numbers with integer or rational real and imaginary parts\n   \[Bullet] \
Certain \[OpenCurlyDoubleQuote]notable\[CloseCurlyDoubleQuote] reals (\[Pi], \
E, ...)\nare EXACT numbers\n \n",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " performs all operations on them EXACTLY"
}], "Text",
 CellChangeTimes->{{3.543321041124955*^9, 3.5433210421701574`*^9}, {
  3.6975286355507836`*^9, 3.697528636535693*^9}, {3.824382481984557*^9, 
  3.8243824827188845`*^9}, {3.906126423146224*^9, 3.906126515403223*^9}, {
  3.9061269105217447`*^9, 3.906127017352251*^9}, {3.9061274381090345`*^9, 
  3.9061274395953336`*^9}, {3.9061274755598607`*^9, 3.906127590552007*^9}, {
  3.906172183771125*^9, 3.906172256212227*^9}, {3.9061723499715033`*^9, 
  3.906172398297662*^9}, {3.9061734181172523`*^9, 3.906173437986924*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"afa612c2-d71c-46f3-9d17-2be7120b0d45"],

Cell[TextData[{
 StyleBox["Careful:",
  FontWeight->"Bold"],
 "  \[OpenCurlyDoubleQuote]Exact\[CloseCurlyDoubleQuote] is great, but might \
be slow!"
}], "Text",
 CellChangeTimes->{{3.9061724089640355`*^9, 3.9061724649072328`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"7518a187-c226-4e4e-a29b-e337b2c88aa8"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"ed74bc80-559b-4f33-9635-72d15fa92d74"],

Cell[BoxData[
 SuperscriptBox["56", "230"]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.590490219878728*^9, 3.590490246149174*^9}, {
  3.6975288119767146`*^9, 3.697528819955387*^9}, {3.729446102526783*^9, 
  3.7294461041217318`*^9}, {3.7294910279855995`*^9, 3.729491032285898*^9}, {
  3.760893734089588*^9, 3.760893735381116*^9}, {3.760940492633233*^9, 
  3.760940492818469*^9}, {3.793599346223444*^9, 3.793599366443802*^9}, {
  3.9061873927294054`*^9, 
  3.9061874113130054`*^9}},ExpressionUUID->"ba0ad38c-fdfb-4934-95ce-\
76347b23b3ef"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "3"], "+", 
  FractionBox["3", "4"]}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{3.697528878207614*^9, 3.6975289106691003`*^9},
 CellLabel->"In[87]:=",ExpressionUUID->"f4d083b5-092f-4689-b6c2-d6b12cf09821"],

Cell[BoxData[
 SuperscriptBox["%", "2"]], "Input",
 CellChangeTimes->{{3.7294461793965054`*^9, 3.729446184662905*^9}, {
  3.7609405484459276`*^9, 3.7609405497403545`*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"4b1eb76d-6a4a-472d-8290-5a67396f8c6a"],

Cell[BoxData[
 SqrtBox[
  RowBox[{"-", "4"}]]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5433213978351817`*^9, 3.5433214005027866`*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"21c93152-cd75-4a31-b6fe-b6201c505c50"],

Cell[BoxData[
 FractionBox[
  RowBox[{"10", "-", 
   RowBox[{"5", 
    StyleBox["I",
     FontColor->RGBColor[0, 0, 1]]}]}], 
  RowBox[{"2", "+", 
   StyleBox["I",
    FontColor->RGBColor[0, 0, 1]]}]]], "Input",
 ShowGroupOpener->False,
 CellLabel->"In[90]:=",ExpressionUUID->"19d78ae6-42b2-40e4-b3b9-67828af7bfcd"],

Cell[BoxData[
 RowBox[{
  StyleBox["Abs",
   FontColor->GrayLevel[0]], "[", 
  RowBox[{"1", "+", "I"}], "]"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{3.8243825157046375`*^9},
 CellLabel->"In[91]:=",ExpressionUUID->"a024cb25-8656-43db-b498-5e296a3de922"],

Cell[BoxData[
 SuperscriptBox["%", "2"]], "Input",
 CellChangeTimes->{{3.8244448252423964`*^9, 3.8244448260412393`*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"3c8879da-65e6-4048-861c-d485988d461b"],

Cell[BoxData[
 RowBox[{"Sin", "[", "\[Pi]", "]"}]], "Input",
 CellChangeTimes->{{3.906127203223585*^9, 3.9061272045286684`*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"d39a5a29-546a-4f15-8a5e-e0b61e505f6b"],

Cell[BoxData[
 RowBox[{"ArcCos", "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.761055400515419*^9, 3.761055407496215*^9}, {
  3.824382529925872*^9, 3.824382537610817*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"58a12945-0442-4458-8ed3-f839266ad836"],

Cell[BoxData[
 SuperscriptBox["E", 
  RowBox[{"Log", "[", "2", "]"}]]], "Input",
 CellChangeTimes->{{3.7610554114247475`*^9, 3.7610554245389977`*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"58760685-60df-4240-90c9-6c6497e9e23c"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"b5427799-c13d-4f84-90a3-373ab9de2bb8"],

Cell[TextData[{
 StyleBox["The",
  FontWeight->"Bold"],
 " ",
 StyleBox["evalutation of expressions containing all exact arguments is exact",
  FontWeight->"Bold"],
 "\n\n(this means that most outputs are not evaluated numerically)"
}], "Text",
 CellChangeTimes->{{3.9061724089640355`*^9, 3.9061724649072328`*^9}, {
  3.906172517591159*^9, 3.906172538411392*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"891078e5-8b60-42c3-bc15-5309e7cee824"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"50fee9b6-adab-4088-a624-ce54a59dcd13"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"Sin", "[", 
   FractionBox["Pi", "14"], "]"}]}]], "Input",
 CellChangeTimes->{{3.7609346742422037`*^9, 3.760934676024229*^9}, 
   3.761055144777048*^9, {3.7935996169895463`*^9, 3.7935996175165367`*^9}, {
   3.8243825489217863`*^9, 3.8243825497964277`*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"d5e0f5df-25ca-47ff-8f54-4479baaa5506"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   SuperscriptBox["%", "2"], "+", 
   SuperscriptBox[
    RowBox[{"Cos", "[", 
     FractionBox["Pi", "14"], "]"}], "2"]}]}]], "Input",
 CellChangeTimes->{{3.7609346742422037`*^9, 3.760934676024229*^9}, {
   3.793599681998571*^9, 3.7935996921770225`*^9}, 3.8243825592307577`*^9, 
   3.906187545012458*^9},
 CellLabel->"In[96]:=",ExpressionUUID->"f5e5a0f0-3f9c-46a6-af6c-aa0d5aee9318"],

Cell[BoxData[
 RowBox[{"%", "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.8243825648960834`*^9, 3.824382566208273*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"e22eb1d9-c20d-4f1e-8065-eb0865aa2c24"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["9.2 \[OpenCurlyDoubleQuote]",
  FontSize->24],
 StyleBox["Machine-precision\[CloseCurlyDoubleQuote] arithmetics",
  FontSize->24,
  Background->RGBColor[0., 1., 1.]]
}], "Subsection",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
   3.7931288592437024`*^9, 3.793128859649885*^9}, {3.906122438732582*^9, 
   3.9061224420392823`*^9}, {3.906168401047079*^9, 3.9061684299073887`*^9}, {
   3.9061686550705447`*^9, 3.9061686626130424`*^9}, {3.906170656189993*^9, 
   3.906170656623913*^9}, {3.9061723214090967`*^9, 3.9061723276589093`*^9}, {
   3.9061725932078876`*^9, 3.906172617258586*^9}, {3.906172897817094*^9, 
   3.9061729146220555`*^9}, 3.9061753781156397`*^9},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"806f31a3-7afd-4168-82ad-df857972011c"],

Cell[CellGroupData[{

Cell[TextData[{
 "Real and complex numbers are, by default, ",
 StyleBox["machine-precision",
  FontWeight->"Bold"],
 " numbers \n(\[Tilde] floating point)\n\nOperations on them are performed \
numerically (hence, fast and approximate)"
}], "Text",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6867178423612733`*^9, 3.686717843598961*^9}, 
   3.6975316232768445`*^9, {3.7609339325149903`*^9, 3.7609340562018733`*^9}, {
   3.793550673510161*^9, 3.793550674621249*^9}, 3.793599742400126*^9, {
   3.824382576848361*^9, 3.824382577764818*^9}, {3.9061277735904846`*^9, 
   3.9061278418516364`*^9}, 3.9061278726355658`*^9, {3.906172651779663*^9, 
   3.906172681610464*^9}, {3.906172738452128*^9, 3.906172754609226*^9}, {
   3.9061729165751505`*^9, 3.9061729425385866`*^9}},
 FontWeight->"Plain",
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"00099a4c-14f2-4e59-b904-ff12dd091b79"],

Cell["", "Subsubsection",
 CellGroupingRules->{
  "GroupTogetherGrouping", 
   10000.},ExpressionUUID->"c0cdcb8e-7664-439a-bc05-62c069b6bc35"],

Cell[BoxData[
 RowBox[{"2.1", "+", "3.0"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.906127881666758*^9, 3.9061278846946735`*^9}, {
  3.9061727997235303`*^9, 3.9061728192970743`*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"bab0fb90-d339-4cb1-ac61-51ae177de5e1"],

Cell["\<\
Operations involving both exact and machine-precision numbers give \
machine-precision results\
\>", "Text",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6867178423612733`*^9, 3.686717843598961*^9}, 
   3.6975316232768445`*^9, {3.7609339325149903`*^9, 3.7609340562018733`*^9}, {
   3.793550673510161*^9, 3.793550674621249*^9}, 3.793599742400126*^9, {
   3.824382576848361*^9, 3.824382577764818*^9}, {3.9061277735904846`*^9, 
   3.9061278418516364`*^9}, 3.9061278726355658`*^9, {3.906172651779663*^9, 
   3.906172732815851*^9}, {3.906172771737644*^9, 3.906172786291397*^9}, {
   3.9061734528200116`*^9, 3.9061734533378687`*^9}, {3.9061876701067486`*^9, 
   3.9061876711727695`*^9}},
 FontWeight->"Plain",
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"84c0ecdb-8cfe-47de-b965-326fd920f1fe"],

Cell[BoxData[
 RowBox[{"2.1", "+", "3"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.9061727890258684`*^9, 3.906172825453466*^9}},
 CellLabel->"In[99]:=",ExpressionUUID->"617a3f51-5624-4332-9d19-22edb2e61761"],

Cell[TextData[{
 "To transform an exact number into a machine-precision number:",
 StyleBox[" \n     N[ ]",
  FontWeight->"Bold"]
}], "Text",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.6975316232768445`*^9, {3.906127891089172*^9, 3.9061279730259404`*^9}, {
   3.906172691174324*^9, 3.9061726933091683`*^9}},
 Background->RGBColor[
  0, 1, 0],ExpressionUUID->"af0460a3-029f-4a6e-baa1-34b878fbc2fd"]
}, Closed]],

Cell[BoxData[
 RowBox[{"N", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.906127977191988*^9, 3.9061279781289773`*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"9d8c0efc-07f1-4641-889f-8feda8fd61bb"],

Cell[BoxData[
 RowBox[{"N", "[", "Pi", "]"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5433213978351817`*^9, 3.5433214005027866`*^9}, {
  3.760935001730486*^9, 3.760935002471792*^9}, {3.9061279814239144`*^9, 
  3.906127984219083*^9}},
 CellLabel->
  "In[105]:=",ExpressionUUID->"fbbd4cfc-9959-4a7d-b8eb-8b4e0f6cf388"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["9.3 \[OpenCurlyDoubleQuote]",
  FontSize->24],
 StyleBox["Arbitrary precision\[CloseCurlyDoubleQuote] arithmetics",
  FontSize->24,
  Background->RGBColor[0., 1., 1.]]
}], "Subsection",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
   3.7931288592437024`*^9, 3.793128859649885*^9}, {3.906122438732582*^9, 
   3.9061224420392823`*^9}, {3.906168401047079*^9, 3.9061684299073887`*^9}, {
   3.9061686550705447`*^9, 3.9061686626130424`*^9}, {3.906170656189993*^9, 
   3.906170656623913*^9}, {3.9061723214090967`*^9, 3.9061723276589093`*^9}, {
   3.9061725932078876`*^9, 3.906172617258586*^9}, {3.906172873440806*^9, 
   3.906172880160252*^9}, 3.9061753707592196`*^9},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"2150f05d-e95f-4f09-9721-f602086282d7"],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " can handle real numbers with any numer of digits (hence, ",
 StyleBox["arbitrarily large or small",
  FontWeight->"Bold"],
 ") and while working with them ",
 StyleBox["attempts",
  FontSlant->"Italic"],
 " to keep that precision."
}], "Text",
 CellChangeTimes->{{3.9061280306540236`*^9, 3.9061280688961325`*^9}, {
   3.906128106370633*^9, 3.9061281637927375`*^9}, 3.9061729820357704`*^9, {
   3.9061765804864902`*^9, 3.9061766258372693`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"5fe9c941-c2d2-4bce-8ab0-5ed515ff7b2e"],

Cell["\<\
If you need this, consult the documentation.
Just a few examples:\
\>", "Text",
 CellChangeTimes->{{3.9061280306540236`*^9, 3.9061280688961325`*^9}, {
  3.906128106370633*^9, 3.9061281637927375`*^9}, {3.9061729836603785`*^9, 
  3.906172987977559*^9}, {3.906176627930818*^9, 3.906176636298337*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"3780dfb1-db24-4904-b821-046d70218dd1"],

Cell[TextData[{
 "Approximate an exact number/expression into one with a given precision:\n   \
      ",
 StyleBox["N[ expression,  number of digits]  ",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.6975316232768445`*^9, {3.7610555021511903`*^9, 3.761055510591242*^9}, {
   3.9061281751809587`*^9, 3.906128212524439*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"bda657a3-ca3f-467a-b658-f8a22bef3d59"],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"Pi", ",", "50"}], "]"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5433213978351817`*^9, 3.5433214005027866`*^9}, 
   3.7609350201073604`*^9, 3.760940925465253*^9, {3.7935998963197565`*^9, 
   3.793599899635562*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"9aafa75e-74da-48d1-bb52-1b520cc062b6"],

Cell[BoxData[
 RowBox[{"N", "[", " ", 
  RowBox[{"E", ",", " ", "121"}], "]"}]], "Input",
 CellChangeTimes->{{3.7609350527927184`*^9, 3.760935059867734*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"d46942fc-b779-4cf8-89db-8316ec551ef5"],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Log", "[", "2", "]"}], "+", 
    SuperscriptBox["E", "12"]}], ",", "34"}], "]"}]], "Input",
 CellChangeTimes->{{3.9061730037464323`*^9, 3.906173024785658*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"7db06249-e27f-447d-8663-5166b161182b"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["9.4 Displaying decimal digits",
 FontSize->24]], "Subsection",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
   3.7931288592437024`*^9, 3.793128859649885*^9}, {3.906122438732582*^9, 
   3.9061224420392823`*^9}, {3.906168401047079*^9, 3.9061684299073887`*^9}, {
   3.9061686550705447`*^9, 3.9061686626130424`*^9}, {3.906170656189993*^9, 
   3.906170656623913*^9}, {3.9061723214090967`*^9, 3.9061723276589093`*^9}, {
   3.9061725932078876`*^9, 3.906172617258586*^9}, {3.906172873440806*^9, 
   3.906172880160252*^9}, {3.9061736505231705`*^9, 3.9061736552513447`*^9}, 
   3.906174497995718*^9, {3.9061746474404917`*^9, 3.9061746644252625`*^9}},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"901d8355-bc0c-49e7-ae3b-b4593ab9fe65"],

Cell["Example of exact rational number", "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.6975215360350533`*^9, 3.6975316232921305`*^9, {3.7294467340358796`*^9, 
   3.7294467362801037`*^9}, {3.9061737203873696`*^9, 3.906173753045144*^9}, 
   3.906174204366558*^9},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"5ceef3f4-c716-4107-891a-74a0bf071fec"],

Cell[BoxData[
 RowBox[{"1", "+", 
  FractionBox["1", 
   SuperscriptBox["10", "10"]]}]], "Input",
 CellChangeTimes->{{3.7609350979598837`*^9, 3.7609351005900307`*^9}, {
   3.7609351475382147`*^9, 3.7609351513449373`*^9}, 3.7609352630338545`*^9},
 CellLabel->
  "In[106]:=",ExpressionUUID->"cd71c07b-22dd-4476-9b5d-cf4af2988829"],

Cell["Example of machine-precision real number", "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.6975215315478654`*^9, 3.6975316232921305`*^9, {3.9061737353772144`*^9, 
   3.906173748407464*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"aec02c2d-d6f4-473b-abac-cfc266344f20"],

Cell[BoxData[
 RowBox[{"1.", "+", 
  FractionBox["1", 
   SuperscriptBox["10", "10"]]}]], "Input",
 CellChangeTimes->{{3.7609350979598837`*^9, 3.7609351005900307`*^9}, {
   3.7609351475382147`*^9, 3.7609351513449373`*^9}, 3.7609352630338545`*^9, 
   3.7609353002883472`*^9},
 CellLabel->
  "In[107]:=",ExpressionUUID->"04f4c816-aabf-4b5c-b548-a3bab379d37a"],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{{3.793550823859538*^9, 
  3.7935508273123283`*^9}},ExpressionUUID->"fe4be806-348b-477c-a648-\
401371e820d6"],

Cell["\<\
??? 
Can we see the first 12 digits?\
\>", "Text",
 CellChangeTimes->{{3.5433096125926847`*^9, 3.5433096344795227`*^9}, 
   3.5433097046640463`*^9, {3.5904817928281775`*^9, 3.5904817948873806`*^9}, 
   3.6975316232768445`*^9, {3.7609343151466136`*^9, 3.7609343244462233`*^9}, {
   3.8243828727863245`*^9, 3.8243828843762884`*^9}, {3.9061737652190604`*^9, 
   3.9061737773908014`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"ec2b4331-e822-49ec-b7d6-74d51eb22610"],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"1.", "+", 
    FractionBox["1", 
     SuperscriptBox["10", "10"]]}], ",", "12"}], "]"}]], "Input",
 CellChangeTimes->{{3.760941606953205*^9, 3.760941634218142*^9}, {
  3.7935508684202747`*^9, 3.79355088015292*^9}, {3.793601083745778*^9, 
  3.793601084163661*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"f7865e27-803a-44ea-abbf-02fed1846b34"],

Cell[BoxData[
 RowBox[{"1.0000000001`", " "}]], "Input",
 CellChangeTimes->{{3.906187958008535*^9, 
  3.906187958013521*^9}},ExpressionUUID->"e1107dc9-bf97-45f2-9d1c-\
1a7e0f0877e0"],

Cell["??? ", "Text",
 CellChangeTimes->{{3.5433096125926847`*^9, 3.5433096344795227`*^9}, 
   3.5433097046640463`*^9, {3.5904817928281775`*^9, 3.5904817948873806`*^9}, 
   3.6975316232768445`*^9, {3.7609343151466136`*^9, 3.7609343244462233`*^9}, {
   3.8243828727863245`*^9, 3.8243828843762884`*^9}, {3.9061737652190604`*^9, 
   3.9061737773908014`*^9}, 3.906174742475893*^9},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"56b11528-3606-4103-aab9-ea91484915ee"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"f03a03a8-a185-4c4f-bb92-76808eeadaa8"],

Cell[CellGroupData[{

Cell[TextData[{
 "By default, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " displays machine-precision numbers with at most 5 decimal digits, and does \
not display the trailing zeroes"
}], "Text",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.5433082081222177`*^9, 3.543308229135454*^9}, {
   3.5436301643668547`*^9, 3.5436302019473205`*^9}, {3.5904818883003445`*^9, 
   3.5904818891115465`*^9}, {3.697521589960878*^9, 3.6975216254675913`*^9}, 
   3.6975220242042456`*^9, 3.6975316232921305`*^9, {3.824382891117529*^9, 
   3.8243828917294035`*^9}, {3.906173786903668*^9, 3.906173852128121*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"9372ebfd-b26c-4df1-ad41-bb25fb1fa325"],

Cell[TextData[{
 "How to display more digits?\n       ",
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["NumberForm[ expr , n ]",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\nprints ",
 Cell[BoxData[
  StyleBox["expr", "TI"]], "InlineFormula",ExpressionUUID->
  "eac77176-4cb1-4973-9e1e-fe88cd71c79b"],
 " with all numbers with ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula",ExpressionUUID->
  "27ca85b0-c8e6-4234-9ddf-e91a2166329f"],
 " digits (but no trailing zeroes)"
}], "Text",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6975215640576754`*^9, 3.6975215654435215`*^9}, {
   3.697521605382752*^9, 3.6975216088857822`*^9}, {3.697521786618272*^9, 
   3.6975218010207453`*^9}, 3.697521941366248*^9, {3.697522005210631*^9, 
   3.6975220091967363`*^9}, {3.697522051273153*^9, 3.697522088900485*^9}, {
   3.6975221571775093`*^9, 3.6975222216038055`*^9}, {3.697522367467848*^9, 
   3.6975224057366085`*^9}, 3.6975316232921305`*^9, {3.729447120644966*^9, 
   3.729447224269207*^9}, {3.7294477127543383`*^9, 3.729447741473361*^9}, {
   3.7294478692543626`*^9, 3.729447878785322*^9}, {3.760935385667508*^9, 
   3.7609354139696083`*^9}, {3.8243828959330235`*^9, 3.824382915869837*^9}, {
   3.82438351107182*^9, 3.824383542577602*^9}, {3.906173874511944*^9, 
   3.9061739506522074`*^9}, {3.906173989413422*^9, 3.90617409637761*^9}, {
   3.9061741381999435`*^9, 3.9061741394026766`*^9}, {3.9061742560959644`*^9, 
   3.9061742856935606`*^9}, 3.906174406690372*^9},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"076b261a-391d-45cb-a00f-a5963af5b10d"]
}, Closed]],

Cell[BoxData[
 RowBox[{"NumberForm", "[", 
  RowBox[{
   RowBox[{"1.", "+", 
    FractionBox["1", 
     SuperscriptBox["10", "10"]]}], ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.7609350979598837`*^9, 3.7609351005900307`*^9}, {
   3.7609351475382147`*^9, 3.7609351513449373`*^9}, 3.7609352630338545`*^9, 
   3.7609353002883472`*^9, 3.7609353602232876`*^9, {3.7609418316197863`*^9, 
   3.7609418319534845`*^9}, 3.7609420797478256`*^9, {3.7936011914922094`*^9, 
   3.7936012165164633`*^9}, {3.8243830895527997`*^9, 
   3.8243830962633266`*^9}, {3.8244456404141135`*^9, 3.824445645789448*^9}, 
   3.9061739617794104`*^9, 3.9061741437948103`*^9, {3.906174303604864*^9, 
   3.9061743186788864`*^9}},
 CellLabel->
  "In[110]:=",ExpressionUUID->"cbd0c1ce-fa74-433b-9f50-d671ea35b0d9"],

Cell[BoxData[
 RowBox[{"NumberForm", "[", 
  RowBox[{
   RowBox[{"1.", "+", 
    FractionBox["1", 
     SuperscriptBox["10", "10"]]}], ",", "11"}], "]"}]], "Input",
 CellChangeTimes->{{3.9061743256779366`*^9, 3.9061743258021884`*^9}},
 CellLabel->
  "In[111]:=",ExpressionUUID->"522c0976-4f17-4a38-99fd-0c469ece47c7"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",
 CellChangeTimes->{{3.9061761540952024`*^9, 3.9061761551581593`*^9}, {
  3.9061762814302855`*^9, 
  3.9061762816172504`*^9}},ExpressionUUID->"e1cc692c-dc59-4f0f-8c08-\
b2ad36685d2b"],

Cell[TextData[{
 "Note:\nTo print also the traling zeroes, use\n      ",
 StyleBox["NumberForm[expr , {n , c } ]\[LineSeparator]",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["which prints ",
  FontColor->GrayLevel[0]],
 Cell[BoxData[
  StyleBox["expr", "TI"]], "InlineFormula",
  FontColor->GrayLevel[0],ExpressionUUID->
  "ceb3f424-3789-4e99-9ae9-7f7c001efa30"],
 StyleBox[" with all numbers with ",
  FontColor->GrayLevel[0]],
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula",
  FontColor->GrayLevel[0],ExpressionUUID->
  "ade97582-ed50-49d2-8982-6dbf6a910a70"],
 StyleBox[" digits, c of which after the decimal point  (including the \
trailing zeroes)",
  FontColor->GrayLevel[0]]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.6975215640576754`*^9, 3.6975215654435215`*^9}, {
   3.697521605382752*^9, 3.6975216088857822`*^9}, {3.697521786618272*^9, 
   3.6975218010207453`*^9}, 3.697521941366248*^9, {3.697522005210631*^9, 
   3.6975220091967363`*^9}, {3.697522051273153*^9, 3.697522088900485*^9}, {
   3.6975221571775093`*^9, 3.6975222216038055`*^9}, {3.697522367467848*^9, 
   3.6975224057366085`*^9}, 3.6975316232921305`*^9, {3.729447120644966*^9, 
   3.729447224269207*^9}, {3.7294477127543383`*^9, 3.729447741473361*^9}, {
   3.7294478692543626`*^9, 3.729447878785322*^9}, {3.760935385667508*^9, 
   3.7609354139696083`*^9}, {3.8243828959330235`*^9, 3.824382915869837*^9}, {
   3.82438351107182*^9, 3.824383542577602*^9}, {3.906173874511944*^9, 
   3.9061739506522074`*^9}, {3.906173989413422*^9, 3.90617409637761*^9}, {
   3.9061741381999435`*^9, 3.9061741394026766`*^9}, {3.9061742560959644`*^9, 
   3.9061742856935606`*^9}, {3.906174341552991*^9, 3.906174371455263*^9}, {
   3.906174790265967*^9, 3.906174792058248*^9}, {3.9061748888389997`*^9, 
   3.9061748892444367`*^9}, {3.906176159032289*^9, 3.9061761603892803`*^9}, {
   3.906176298196514*^9, 3.90617630309153*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"b7d39a49-4c0a-426e-a56e-5ba3297ad0b2"],

Cell[BoxData[
 RowBox[{"NumberForm", "[", 
  RowBox[{
   RowBox[{"1.", "+", 
    FractionBox["1", 
     SuperscriptBox["10", "10"]]}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7609350979598837`*^9, 3.7609351005900307`*^9}, {
   3.7609351475382147`*^9, 3.7609351513449373`*^9}, 3.7609352630338545`*^9, 
   3.7609353002883472`*^9, {3.7609353602232876`*^9, 3.7609353687846813`*^9}, 
   3.7609419480614867`*^9, {3.8243831058629007`*^9, 3.824383159009457*^9}, {
   3.906174149309127*^9, 3.906174151980393*^9}, {3.906174291749782*^9, 
   3.9061743004493537`*^9}, {3.9061744202489586`*^9, 3.9061744475164547`*^9}},
 CellLabel->
  "In[109]:=",ExpressionUUID->"3adf1241-6085-46fe-82e8-a97ae78089d3"],

Cell["NB: modificabile da Edit \[Rule] Preferences \[Rule] .....", "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5433082081222177`*^9, 3.543308229135454*^9}, {
   3.5436301643668547`*^9, 3.5436302019473205`*^9}, {3.5904818883003445`*^9, 
   3.5904818891115465`*^9}, {3.697521589960878*^9, 3.6975216254675913`*^9}, 
   3.6975220242042456`*^9, 3.6975316232921305`*^9, {3.7935564304018965`*^9, 
   3.7935564637017255`*^9}, {3.8243833148818445`*^9, 3.82438334472101*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"7cba6840-4355-4ea0-9a44-c7d4ef1c84c6"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["9.5 Efficiency: avoid exact arithmetic if you don\
\[CloseCurlyQuote]t need it!",
 FontSize->24]], "Subsection",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
   3.7931288592437024`*^9, 3.793128859649885*^9}, {3.906122438732582*^9, 
   3.9061224420392823`*^9}, {3.906168401047079*^9, 3.9061684299073887`*^9}, {
   3.9061686550705447`*^9, 3.9061686626130424`*^9}, {3.906170656189993*^9, 
   3.906170656623913*^9}, {3.9061723214090967`*^9, 3.9061723276589093`*^9}, {
   3.9061725932078876`*^9, 3.906172617258586*^9}, {3.906172873440806*^9, 
   3.906172880160252*^9}, {3.9061736505231705`*^9, 3.9061736552513447`*^9}, 
   3.906174497995718*^9, {3.9061746474404917`*^9, 3.9061746644252625`*^9}, {
   3.906174879712568*^9, 3.906174885980325*^9}, {3.9061749331518884`*^9, 
   3.9061749496227055`*^9}, {3.9061754112555304`*^9, 3.90617541929416*^9}, {
   3.9061757013392744`*^9, 3.9061757131593404`*^9}, {3.9061762942639637`*^9, 
   3.9061762947801285`*^9}},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"d4ef4e1a-f48c-4c45-aee9-5688ea3df8c5"],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Mathematica",
  FontSize->16,
  FontSlant->"Italic"],
 StyleBox[" uses different internal algorithms for exact and approximate \
computations.",
  FontSize->16]
}], "Text",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.590813587422861*^9, 3.5908135952228746`*^9}, 
   3.6975316232921305`*^9, {3.824383594887762*^9, 3.8243836116794176`*^9}, {
   3.9061749577926536`*^9, 3.906175059390772*^9}},
 FontSize->36,
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"5412f56c-152e-48d5-ab07-9df8bc42f45a"],

Cell[TextData[{
 StyleBox["However, t",
  FontSize->16],
 StyleBox["he \[OpenCurlyDoubleQuote]types\[CloseCurlyDoubleQuote] of the \
numbers (and other objects) need not be specified.\n\n",
  FontSize->16],
 StyleBox["Mathematica",
  FontSize->16,
  FontSlant->"Italic"],
 StyleBox[" makes assumptions  on them (e.g., if all numbers in an expression \
are exact, ",
  FontSize->16],
 StyleBox["Mathematica",
  FontSize->16,
  FontSlant->"Italic"],
 StyleBox[" assumes that the result must be exact) and use the approprie \
algorithms.",
  FontSize->16]
}], "Text",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.590813587422861*^9, 3.5908135952228746`*^9}, 
   3.6975316232921305`*^9, {3.824383594887762*^9, 3.8243836116794176`*^9}, {
   3.9061749577926536`*^9, 3.906175008605729*^9}, {3.9061750624057045`*^9, 
   3.9061752933807015`*^9}, {3.906175350677267*^9, 3.9061753559104185`*^9}, 
   3.906175447246215*^9},
 FontSize->36,
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"2316f949-a978-4cc4-adc0-3ef0d2fa8b5e"],

Cell["", "Subsubsection",
 CellGroupingRules->{
  "GroupTogetherGrouping", 
   10000.},ExpressionUUID->"b5ed8623-b3d5-4c5f-995b-e03fc884162a"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], "+", "1"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.7609350979598837`*^9, 3.7609351005900307`*^9}, {
  3.90617637578034*^9, 3.9061763901370416`*^9}},
 CellLabel->
  "In[194]:=",ExpressionUUID->"f8074a07-9ea2-44cb-a7cb-1f24b258d7bc"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2.0"], "+", "1"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.7609350979598837`*^9, 3.760935113376199*^9}, 
   3.7609411400513287`*^9, {3.824445205621993*^9, 3.824445207758098*^9}, {
   3.9061763804042654`*^9, 3.906176397494744*^9}},
 CellLabel->
  "In[195]:=",ExpressionUUID->"d6594b87-3914-4551-991a-a99ffeb81b2d"],

Cell[TextData[{
 StyleBox["Algorithms for exact arithmetics are ",
  FontSize->16],
 StyleBox["much slower",
  FontSize->16,
  FontWeight->"Bold"],
 StyleBox[" than those for machine-precision ",
  FontSize->16],
 StyleBox["arithmetics, and execution times may then be ",
  FontSize->16],
 StyleBox["much longer",
  FontSize->16,
  FontWeight->"Bold"],
 StyleBox[".\n\nIf you don\[CloseCurlyQuote]t need exact result, avoids \
Mathematica working in exact arithemtics. \nThis is especially important in \
complicated/repetitive computations.\n\nThe simplest way to do this  is to be \
sure that not all numers in the expression to be computed are exact, e.g. by \
insert some machine-precision number. \n(E.g., write ",
  FontSize->16],
 StyleBox["1.",
  FontFamily->"Terminal",
  FontSize->16,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" instead of ",
  FontSize->16],
 StyleBox[" ",
  FontSize->16,
  FontWeight->"Bold"],
 StyleBox["1",
  FontFamily->"Terminal",
  FontSize->16,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["  ",
  FontSize->16,
  FontWeight->"Bold"],
 StyleBox["or approximate some number/exprssion with  ",
  FontSize->16],
 StyleBox["N",
  FontFamily->"Terminal",
  FontSize->16,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[")",
  FontSize->16]
}], "Text",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.6975316232921305`*^9, {3.7294479951446314`*^9, 3.7294479953463545`*^9}, {
   3.8243836142507706`*^9, 3.824383618649934*^9}, {3.906175314953602*^9, 
   3.906175345913499*^9}, {3.9061754496831007`*^9, 3.906175462016713*^9}, {
   3.9061755063137712`*^9, 3.906175695375586*^9}},
 FontSize->36,
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"8c39b114-1cc4-483d-bc6c-f88f7dc42e24"],

Cell[" ", "Subsubsection",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.6975316232921305`*^9},ExpressionUUID->"e8f8952d-a159-4acb-a40f-\
8165c0999a27"],

Cell[TextData[{
 StyleBox["Exercise",
  FontWeight->"Bold"],
 "\nCompare times for a repetitive computation with integers and reals\n\n\
E.g. compute\n   ",
 Cell[BoxData[
  RowBox[{
   StyleBox["  ",
    FontColor->GrayLevel[0]], 
   RowBox[{
    StyleBox["ArcTan",
     FontColor->GrayLevel[0]], 
    StyleBox["[",
     FontColor->GrayLevel[0]], 
    RowBox[{
     StyleBox["Log",
      FontColor->GrayLevel[0]], 
     StyleBox["[",
      FontColor->GrayLevel[0]], 
     RowBox[{
      StyleBox["Sin",
       FontColor->GrayLevel[0]], 
      StyleBox["[",
       FontColor->GrayLevel[0]], 
      SuperscriptBox[
       StyleBox["E",
        FontColor->GrayLevel[0]], 
       SuperscriptBox["n", 
        RowBox[{"-", "3"}]]], 
      StyleBox["]",
       FontColor->GrayLevel[0]]}], 
     StyleBox["]",
      FontColor->GrayLevel[0]]}], 
    StyleBox["]",
     FontColor->GrayLevel[0]]}]}]], "Input",
  CellChangeTimes->{{3.6219288116024957`*^9, 3.6219288371735315`*^9}, {
   3.824446096260079*^9, 3.824446218676437*^9}},ExpressionUUID->
  "fb4d4f08-ac9a-48d2-996b-5358a5ad5abf"],
 "\nfor n=1,....,100000  "
}], "Text",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.6975316232921305`*^9, {3.9061757255067663`*^9, 3.9061757871957693`*^9}, {
   3.9061759588734565`*^9, 3.9061760002418904`*^9}, {3.9061883273046923`*^9, 
   3.906188341767996*^9}},
 Background->RGBColor[
  0, 1, 0],ExpressionUUID->"d888e7f1-0a5f-4568-ade1-19a34c36a8c1"],

Cell[TextData[{
 "To make a loop: \n     ",
 StyleBox["Do[ expression, {iterator, number of iterations} ]",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6219287461724043`*^9, 3.621928749092408*^9}, 
   3.697530028301708*^9, 3.6975316232921305`*^9, {3.760942711038555*^9, 
   3.760942714890214*^9}, {3.9061758131426263`*^9, 3.9061758391316957`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"edd5d78c-55b6-4a29-9f5d-7c712d9349fa"]
}, Closed]],

Cell[BoxData[
 RowBox[{"Do", "[", " ", 
  RowBox[{
   RowBox[{"x", "=", "n"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"n", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.90618840207283*^9, 3.906188438116768*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"95449a33-122c-484a-a6b6-42194a38182d"],

Cell[BoxData["x"], "Input",
 CellChangeTimes->{3.9061884397155895`*^9},
 CellLabel->
  "In[114]:=",ExpressionUUID->"dd59dd4d-b6dd-43d0-a02f-c3abe7f8464a"],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{{3.76094263012569*^9, 
  3.760942632893094*^9}},ExpressionUUID->"32b8edb8-0caf-4aba-9f43-\
93280c47e62d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   StyleBox[
    RowBox[{"   ", 
     StyleBox[" ",
      FontColor->GrayLevel[0]]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"ArcTan", "[", 
      RowBox[{"Log", "[", 
       RowBox[{"Sin", "[", 
        RowBox[{"Exp", "[", 
         SuperscriptBox["n", 
          RowBox[{"-", "3"}]], "]"}], "]"}], "]"}], "]"}],
     FontColor->GrayLevel[0]], 
    StyleBox["  ",
     FontColor->GrayLevel[0]], 
    StyleBox[",",
     FontColor->GrayLevel[0]], 
    StyleBox["      ",
     FontColor->GrayLevel[0]], 
    StyleBox["     ",
     FontColor->RGBColor[1, 0, 0]], 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "100000"}], "}"}]}], "]"}], "//", 
  "Timing"}]], "Input",
 CellChangeTimes->{{3.6219288116024957`*^9, 3.6219288371735315`*^9}, {
  3.824446096260079*^9, 3.824446218676437*^9}, {3.9061760190009193`*^9, 
  3.906176021094177*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"a40dae3a-569a-4edb-b78b-652e496530b1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   StyleBox[
    RowBox[{"  ", 
     StyleBox["  ",
      FontColor->GrayLevel[0]]}]], 
   RowBox[{
    RowBox[{
     StyleBox["ArcTan",
      FontColor->GrayLevel[0]], 
     StyleBox["[",
      FontColor->GrayLevel[0]], 
     RowBox[{
      StyleBox["Log",
       FontColor->GrayLevel[0]], 
      StyleBox["[",
       FontColor->GrayLevel[0]], 
      RowBox[{
       StyleBox["Sin",
        FontColor->GrayLevel[0]], 
       StyleBox["[",
        FontColor->GrayLevel[0]], 
       RowBox[{
        StyleBox["Exp",
         FontColor->GrayLevel[0]], 
        StyleBox["[",
         FontColor->GrayLevel[0]], 
        StyleBox[" ",
         FontColor->GrayLevel[0]], 
        SuperscriptBox[
         RowBox[{
          StyleBox["(",
           FontColor->GrayLevel[0]], 
          StyleBox[
           RowBox[{"N", "[", "n", "]"}],
           FontColor->RGBColor[1, 0, 0]], 
          StyleBox[")",
           FontColor->GrayLevel[0]]}], 
         RowBox[{"-", "3"}]], 
        StyleBox["]",
         FontColor->GrayLevel[0]]}], 
       StyleBox["]",
        FontColor->GrayLevel[0]]}], 
      StyleBox["]",
       FontColor->GrayLevel[0]]}], 
     StyleBox["]",
      FontColor->GrayLevel[0]]}], 
    StyleBox[" ",
     FontColor->GrayLevel[0]], 
    StyleBox[",",
     FontColor->GrayLevel[0]], 
    StyleBox[" ",
     FontColor->GrayLevel[0]], 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "100000"}], "}"}]}], "]"}], "//", 
  "Timing"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.540180696831191*^9, 3.5401807094048133`*^9}, {
  3.5401810406713953`*^9, 3.5401810420597973`*^9}, {3.543322423371784*^9, 
  3.543322427146991*^9}, {3.543322464587057*^9, 3.5433224656478586`*^9}, {
  3.5904916288888025`*^9, 3.590491629122803*^9}, {3.5904918175867343`*^9, 
  3.590491819053137*^9}, {3.598963091957757*^9, 3.5989631031277723`*^9}, {
  3.598963142677828*^9, 3.5989631457678328`*^9}, {3.5989632101179223`*^9, 
  3.598963218657934*^9}, {3.5989633288880887`*^9, 3.5989633592681313`*^9}, {
  3.6219287650024304`*^9, 3.6219287659524317`*^9}, {3.6219288247025137`*^9, 
  3.6219288279325185`*^9}, {3.6219289130136375`*^9, 3.6219289195736465`*^9}, {
  3.6660800205998344`*^9, 3.666080030949849*^9}, {3.824383962459319*^9, 
  3.824383969340043*^9}, {3.9061760370272255`*^9, 3.9061760462367134`*^9}},
 CellLabel->
  "In[116]:=",ExpressionUUID->"a6070573-a427-4bdb-a690-10ae3c4eeb10"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontColor->GrayLevel[0]]}]], 
   RowBox[{
    RowBox[{
     StyleBox["ArcTan",
      FontColor->GrayLevel[0]], 
     StyleBox["[",
      FontColor->GrayLevel[0]], 
     RowBox[{
      StyleBox["Log",
       FontColor->GrayLevel[0]], 
      StyleBox["[",
       FontColor->GrayLevel[0]], 
      RowBox[{
       StyleBox["Sin",
        FontColor->GrayLevel[0]], 
       StyleBox["[",
        FontColor->GrayLevel[0]], 
       RowBox[{
        StyleBox["Exp",
         FontColor->GrayLevel[0]], 
        StyleBox["[",
         FontColor->GrayLevel[0]], 
        StyleBox[" ",
         FontColor->GrayLevel[0]], 
        SuperscriptBox[
         RowBox[{
          StyleBox["(",
           FontColor->GrayLevel[0]], 
          RowBox[{
           StyleBox["1.",
            FontColor->RGBColor[1, 0, 0]], 
           StyleBox["n",
            FontColor->GrayLevel[0]]}], 
          StyleBox[")",
           FontColor->GrayLevel[0]]}], 
         RowBox[{"-", "3"}]], 
        StyleBox["]",
         FontColor->GrayLevel[0]]}], 
       StyleBox["]",
        FontColor->GrayLevel[0]]}], 
      StyleBox["]",
       FontColor->GrayLevel[0]]}], 
     StyleBox["]",
      FontColor->GrayLevel[0]]}], 
    StyleBox[" ",
     FontColor->GrayLevel[0]], 
    StyleBox[",",
     FontColor->GrayLevel[0]], 
    StyleBox[" ",
     FontColor->GrayLevel[0]], 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "100000"}], "}"}]}], "]"}], "//", 
  "Timing"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.5433225409179907`*^9, 3.5433225887320747`*^9, {3.590491860284009*^9, 
   3.5904918607052097`*^9}, {3.6219288413435373`*^9, 
   3.6219289271536574`*^9}, {3.824383995136288*^9, 3.8243840022824817`*^9}, {
   3.9061760547659545`*^9, 3.906176055906083*^9}},
 CellLabel->
  "In[117]:=",ExpressionUUID->"c10dd14a-3671-430b-b2bc-5dd4356b2b75"]
}, Closed]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{{3.8243840296662884`*^9, 
  3.8243840350868697`*^9}},ExpressionUUID->"11cf42fa-b027-4630-be20-\
c67ab1181a32"],

Cell[TextData[{
 "NB: In ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ",  \[OpenCurlyDoubleQuote]Do\[CloseCurlyDoubleQuote] does not produce an \
output."
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.6867178888681135`*^9, 3.6867179395927095`*^9}, {
   3.6975225921532993`*^9, 3.6975225924050045`*^9}, 3.6975316232921305`*^9, {
   3.9061760650238934`*^9, 3.9061760772067223`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"b2ee6575-3aa5-4625-9ef7-8c7a12b1c2bd"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["9.6. \[OpenCurlyDoubleQuote]Types\
\[CloseCurlyDoubleQuote] of objects",
 FontSize->24]], "Subsection",
 CellChangeTimes->{{3.7603305394751625`*^9, 3.760330552624377*^9}, 
   3.7603305908582544`*^9, {3.760330621878708*^9, 3.7603306472378387`*^9}, {
   3.760330680982297*^9, 3.76033068354846*^9}, {3.7603798770441265`*^9, 
   3.7603798807094717`*^9}, {3.7603842108160725`*^9, 3.760384216686191*^9}, {
   3.760453391881394*^9, 3.7604533948679066`*^9}, {3.9061232577020144`*^9, 
   3.9061232616923876`*^9}, {3.9061707641725674`*^9, 3.906170773350313*^9}, {
   3.9061708036890273`*^9, 3.906170814408569*^9}, {3.9061709528599725`*^9, 
   3.906170978260231*^9}, 3.9061768585099773`*^9, {3.906176917373109*^9, 
   3.9061769285988455`*^9}, {3.906178501008132*^9, 3.906178509412837*^9}, {
   3.906178546666103*^9, 3.9061785486038666`*^9}},
 FontSize->24,
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"9e31deb0-fe06-49f7-ba99-18cd1e7a7efb"],

Cell[CellGroupData[{

Cell[TextData[{
 "In ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", ",
 StyleBox["everything is an expression",
  FontWeight->"Bold"],
 "\n             ",
 StyleBox[" At the core of Mathematica is the foundational idea that \
everything\[LongDash]data, programs,\n              formulas, graphics, \
documents\[LongDash]can be represented as symbolic expressions",
  FontSlant->"Italic"],
 "\nHowever, expressions can be of different \[OpenCurlyDoubleQuote]types\
\[CloseCurlyDoubleQuote]."
}], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.5433096125926847`*^9, 3.5433096344795227`*^9}, 
   3.5433097046640463`*^9, {3.5904817928281775`*^9, 3.5904817948873806`*^9}, 
   3.6975316232768445`*^9, 3.7935507780783405`*^9, {3.824382614598651*^9, 
   3.8243826152391024`*^9}, {3.9061732614272566`*^9, 3.906173324295828*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"86b3bd5d-e23e-4ccf-ab9f-ef44a6b07b41"],

Cell[TextData[{
 "The \[OpenCurlyDoubleQuote]type\[CloseCurlyDoubleQuote] is called ",
 StyleBox["Head",
  FontWeight->"Bold"],
 "\n   ",
 StyleBox["Head[expr]",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.5433096125926847`*^9, 3.5433096131542854`*^9}, {
   3.54330966124917*^9, 3.543309708470453*^9}, 3.6975316232768445`*^9, {
   3.906173331417299*^9, 3.906173337668731*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"1b44f1c3-6f6b-48b9-a5e7-ea30b3e98241"]
}, Closed]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{{3.824382698396799*^9, 
  3.8243827020072994`*^9}},ExpressionUUID->"72ff8922-2938-417d-a60a-\
c111febdd533"],

Cell["\<\
E.g., integers and reals are different objects and have different Heads\
\>", "Text",
 CellChangeTimes->{{3.5433096125926847`*^9, 3.5433096234347034`*^9}, 
   3.6975316232768445`*^9, {3.9061731889556627`*^9, 3.9061732401636233`*^9}, {
   3.9061764424287567`*^9, 3.9061764685607758`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"157ab409-59c2-4aa1-9275-8724f725b6d5"],

Cell[BoxData[
 RowBox[{"Head", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.7609350979598837`*^9, 3.7609351005900307`*^9}, {
  3.7609351475382147`*^9, 3.7609351513449373`*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"dbf5a2f2-48b9-428f-bbb6-a30f009e935a"],

Cell[BoxData[
 RowBox[{"Head", "[", "2.0", "]"}]], "Input",
 CellChangeTimes->{{3.7609350979598837`*^9, 3.7609351005900307`*^9}, {
  3.7609351475382147`*^9, 3.760935160444475*^9}},
 CellLabel->
  "In[120]:=",ExpressionUUID->"58d2c990-b0b9-47c3-a310-ecd31707a1dd"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"82813363-ec14-4d7d-8f46-d1021e079b28"],

Cell["So are symbols, strings, graphics, ...", "Text",
 CellChangeTimes->{{3.5433096125926847`*^9, 3.5433096234347034`*^9}, 
   3.6975316232768445`*^9, {3.9061731889556627`*^9, 3.9061732401636233`*^9}, {
   3.9061764858679156`*^9, 3.9061764983342757`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"f4b23686-3b6b-4611-815b-7ae17bf4b233"],

Cell[BoxData[
 RowBox[{"Head", "[", "a", "]"}]], "Input",
 CellChangeTimes->{{3.7609350979598837`*^9, 3.7609351005900307`*^9}, {
  3.7609351475382147`*^9, 3.7609351646718845`*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"bf79cb3d-0583-4550-b80a-1474fe908c80"],

Cell[BoxData[
 RowBox[{"a", "=", "1"}]], "Input",
 CellChangeTimes->{{3.906188708719016*^9, 3.9061887094385376`*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"ab17feef-b2ec-4d83-897b-a1296bcf0612"],

Cell[BoxData[
 RowBox[{"Head", "[", "a", "]"}]], "Input",
 CellChangeTimes->{{3.9061887118029985`*^9, 3.906188716240893*^9}},
 CellLabel->
  "In[123]:=",ExpressionUUID->"f6ec645e-ec21-4e57-8c0f-05cf9f5ebaeb"],

Cell[BoxData[
 RowBox[{"Head", "[", "\"\<ciao\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.7609350979598837`*^9, 3.7609351005900307`*^9}, {
  3.7609351475382147`*^9, 3.7609351513449373`*^9}, {3.7609351852675*^9, 
  3.760935188669453*^9}, {3.824445363007084*^9, 3.824445380334917*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"bb9598a1-46c3-4957-bc6d-3bcea5bfd403"],

Cell[BoxData[
 RowBox[{"Head", "[", "  ", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "Pi"}], "}"}]}], "]"}], "  ", "]"}]], "Input",
 CellChangeTimes->{{3.7609350979598837`*^9, 3.7609351005900307`*^9}, {
  3.7609351475382147`*^9, 3.7609351513449373`*^9}, {3.76093519507473*^9, 
  3.760935195576327*^9}, {3.906176524497791*^9, 3.906176533905196*^9}, {
  3.906188735171463*^9, 3.9061887380746408`*^9}},
 CellLabel->
  "In[125]:=",ExpressionUUID->"38dd7ef9-f1d1-4e3d-937a-caae79ac22da"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["10. Lists", "Section",
 CellChangeTimes->{{3.7603305394751625`*^9, 3.760330552624377*^9}, 
   3.7603305908582544`*^9, {3.760330621878708*^9, 3.7603306472378387`*^9}, {
   3.760330680982297*^9, 3.76033068354846*^9}, {3.7603798770441265`*^9, 
   3.7603798807094717`*^9}, {3.7603842108160725`*^9, 3.760384216686191*^9}, {
   3.760453391881394*^9, 3.7604533948679066`*^9}, {3.9061232577020144`*^9, 
   3.9061232616923876`*^9}, {3.9061707641725674`*^9, 3.906170773350313*^9}, {
   3.9061708036890273`*^9, 3.906170814408569*^9}, {3.9061709528599725`*^9, 
   3.906170978260231*^9}, {3.9061794829883885`*^9, 3.9061794863316145`*^9}},
 FontSize->24,
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"04e071b2-1e7c-4ad1-9957-0d19dfe951c7"],

Cell[CellGroupData[{

Cell["Lists", "Subsection",
 CellChangeTimes->{{3.9061785579335504`*^9, 
  3.906178560166524*^9}},ExpressionUUID->"49a1a0d2-d28e-4d14-b88c-\
0d88b08e8b21"],

Cell[TextData[{
 StyleBox["Li",
  FontWeight->"Bold"],
 StyleBox["sts ",
  FontWeight->"Bold"],
 "are omnipresent ",
 StyleBox[" ",
  FontWeight->"Bold"],
 "in ",
 StyleBox["Mathematica.",
  FontSlant->"Italic"],
 StyleBox["\n\n",
  FontWeight->"Bold"],
 StyleBox["Reason:",
  FontSlant->"Italic"],
 StyleBox[" ",
  FontWeight->"Bold"],
 "lists are the basic data ",
 "structure used to represent objects, both from ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " and the user.\n\nIt is necessary to know how to work with lists."
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5439089520205564`*^9, 3.543909012501863*^9}, 
   3.543909303427774*^9, {3.9061769602529755`*^9, 3.906177075152599*^9}, {
   3.906177198198824*^9, 3.906177220037217*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"babb4413-30a8-4b3a-a483-54bc80f61028"],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",ExpressionUUID->"d863dff5-c136-4465-a08e-f7ead83a2774"],

Cell[TextData[{
 "A list is created and represented as a set of expressions\n\[Bullet] ",
 StyleBox["separated by commas",
  FontWeight->"Bold"],
 " \n\[Bullet]",
 StyleBox[" (hierarchically) enclosed in curly brackets",
  FontWeight->"Bold"]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5439093213834057`*^9, 3.543909327405016*^9}, {
   3.5439094899261017`*^9, 3.5439095252757635`*^9}, 3.666074190018239*^9, {
   3.666081295701619*^9, 3.666081298421623*^9}, {3.906177086743634*^9, 
   3.90617714685417*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"2a195083-31df-46a8-b186-f86d6ff3abdb"],

Cell["\<\
Example: A list of three elements (a symbol, a  number, a string)\
\>", "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5439093856555185`*^9, 3.5439094546076393`*^9}, {
  3.906177159114914*^9, 3.9061771878022146`*^9}, {3.906177235400422*^9, 
  3.9061772392532873`*^9}},
 Background->RGBColor[
  0, 1, 0],ExpressionUUID->"4db1f1c7-fba5-4e5d-9a0a-85c178f5f706"],

Cell[BoxData[
 RowBox[{"u", "=", 
  RowBox[{
   StyleBox["{",
    FontColor->RGBColor[1, 0, 0]], 
   RowBox[{"u1", ",", "23", ",", "\"\<ciao\>\""}], 
   StyleBox["}",
    FontColor->RGBColor[1, 0, 0]]}]}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5439094342028036`*^9, 3.543909459116048*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"6d5bf1ea-d1c8-48eb-b88f-e7c98678c19a"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Working with the elements of a list", "Subsection",
 CellChangeTimes->{{3.543909482656489*^9, 3.5439094864784956`*^9}, {
   3.906178572700075*^9, 3.906178584170062*^9}, 3.9061788748369236`*^9, {
   3.906179181625347*^9, 
   3.906179188358429*^9}},ExpressionUUID->"e8247ec4-dcfa-49f0-b97c-\
6c37179b780c"],

Cell[TextData[{
 "Elements of a list\n   ",
 StyleBox["list[[position]]",
  FontWeight->"Bold"],
 " "
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.543909406528355*^9, {3.603179761023389*^9, 3.6031797620833907`*^9}, {
   3.906177191719634*^9, 3.9061771922507663`*^9}, {3.9061772447057447`*^9, 
   3.9061772503325443`*^9}, {3.906178892519804*^9, 3.9061789103455114`*^9}},
 Background->RGBColor[
  0, 1, 0],ExpressionUUID->"93f61da6-ed8e-48c8-b870-dd0d301e64bc"],

Cell[BoxData[
 RowBox[{"u", 
  StyleBox["[",
   FontColor->RGBColor[1, 0, 0]], 
  StyleBox[
   RowBox[{"[", "1", "]"}],
   FontColor->RGBColor[1, 0, 0]], 
  StyleBox["]",
   FontColor->RGBColor[1, 0, 0]]}]], "Input",
 ShowGroupOpener->False,
 CellLabel->
  "In[127]:=",ExpressionUUID->"7c142565-4a21-404d-a2e4-353f8a0ee7b3"],

Cell[BoxData[
 RowBox[{"u", "[", 
  RowBox[{"[", "3", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.543909470753668*^9, 3.5439094720484705`*^9}, {
  3.5995607457889376`*^9, 3.5995607472389393`*^9}, {3.906177254614221*^9, 
  3.9061772582859683`*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"d51480dd-52f5-4076-a74b-bc7755c1bd99"],

Cell[TextData[{
 "NB: need a ",
 StyleBox["pair",
  FontSlant->"Italic"],
 " of square brackets\n\n(u[1] is the value at x=1 of the function u(x) )"
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.906177263836341*^9, 3.9061773224373612`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"fd574227-2de2-4088-8bd1-f4e757fb8504"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"19ed6f41-5d2c-4faf-977c-05bef2cecb24"],

Cell["The elements of a list can themselves be lists:", "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5439095450721984`*^9, 3.543909567271037*^9}, {
  3.906177349123105*^9, 3.906177370335354*^9}},
 Background->RGBColor[
  0, 1, 0],ExpressionUUID->"a74ea9f2-fe43-4611-9993-6882bcbaafad"],

Cell[BoxData[
 RowBox[{"M", "=", 
  RowBox[{
   StyleBox["{",
    FontColor->RGBColor[1, 0, 0]], 
   RowBox[{
    StyleBox["c",
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox[",",
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox[" ",
     FontColor->RGBColor[1, 0, 0]], 
    RowBox[{
     StyleBox["{",
      FontColor->RGBColor[1, 0, 0]], 
     StyleBox[
      RowBox[{"a", ",", "b"}],
      FontColor->GrayLevel[0]], 
     StyleBox["}",
      FontColor->RGBColor[1, 0, 0]]}], 
    StyleBox[",",
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox[" ",
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox["u",
     FontColor->RGBColor[1, 0, 0]]}], 
   StyleBox["}",
    FontColor->RGBColor[1, 0, 0]]}]}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5439095720758457`*^9, 3.543909579142658*^9}, {
  3.5439096405287657`*^9, 3.543909643211971*^9}, {3.599560976779261*^9, 
  3.59956098352927*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"eaab2996-8e5f-44d2-8fb8-955c53d9532c"],

Cell[BoxData[
 RowBox[{"M", 
  StyleBox["[",
   FontColor->RGBColor[1, 0, 0]], 
  StyleBox[
   RowBox[{"[", "2", "]"}],
   FontColor->RGBColor[1, 0, 0]], 
  StyleBox["]",
   FontColor->RGBColor[1, 0, 0]]}]], "Input",
 CellChangeTimes->{{3.599554353018383*^9, 3.5995543531983833`*^9}},
 CellLabel->
  "In[205]:=",ExpressionUUID->"74339335-006b-431e-8d89-7a6eb411dd83"],

Cell[BoxData[
 RowBox[{"M", 
  StyleBox["[",
   FontColor->RGBColor[1, 0, 0]], 
  StyleBox[
   RowBox[{"[", 
    RowBox[{"2", ",", "1"}], "]"}],
   FontColor->RGBColor[1, 0, 0]], 
  StyleBox["]",
   FontColor->RGBColor[1, 0, 0]]}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5439096014974976`*^9, 3.543909602386699*^9}},
 CellLabel->
  "In[206]:=",ExpressionUUID->"c7c3e653-e921-4cd9-bd36-0639633763d3"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"21d4bfff-7fe7-4688-b062-adbac8f94713"],

Cell[TextData[{
 "In such a case, the list has different ",
 StyleBox["levels",
  FontWeight->"Bold"]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.906177392129964*^9, 3.9061774144861665`*^9}},
 Background->RGBColor[
  0, 1, 0],ExpressionUUID->"3c1a7384-8031-479d-ab77-0a2477726d46"],

Cell[BoxData[
 RowBox[{
  StyleBox["Level",
   FontColor->RGBColor[1, 0, 0]], 
  StyleBox["[",
   FontColor->RGBColor[1, 0, 0]], 
  RowBox[{
   StyleBox["M",
    FontColor->RGBColor[1, 0, 0]], ",", 
   StyleBox[
    RowBox[{"{", "1", "}"}],
    FontColor->RGBColor[0, 0, 1]]}], 
  StyleBox["]",
   FontColor->RGBColor[1, 0, 0]]}]], "Input",
 CellChangeTimes->{{3.5439096232907357`*^9, 3.5439096236963367`*^9}},
 CellLabel->
  "In[207]:=",ExpressionUUID->"7bd8a46b-88ea-43cb-aec0-d195d834a6fd"],

Cell[BoxData[
 RowBox[{
  StyleBox["Level",
   FontColor->RGBColor[1, 0, 0]], 
  StyleBox["[",
   FontColor->RGBColor[1, 0, 0]], 
  RowBox[{
   StyleBox["M",
    FontColor->RGBColor[1, 0, 0]], ",", 
   StyleBox[
    RowBox[{"{", "2", "}"}],
    FontColor->RGBColor[0, 0, 1]]}], 
  StyleBox["]",
   FontColor->RGBColor[1, 0, 0]]}]], "Input",
 CellChangeTimes->{{3.543909627143943*^9, 3.5439096275495434`*^9}},
 CellLabel->
  "In[208]:=",ExpressionUUID->"6977192e-a43f-4060-92bf-8f8006b62b15"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"dee0b185-5a10-4d71-ae1f-db9fb61670d6"],

Cell[TextData[{
 StyleBox["Exercise:",
  FontWeight->"Bold"],
 " Let\n  A = { {a11,a12}, {a21 , {a221,a222}} }\nUsing ",
 StyleBox["Extract  ",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "and  ",
 StyleBox[" Level",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\n\[Bullet] extract the element of A in positoin  {2,2,1}\n\[Bullet] crate \
a list of all elements of A at levels 2 and 3\n\nSuggestion: look at the \
syntax of the commandsi in the Help "
}], "Text",
 CellChangeTimes->{{3.9061787459827194`*^9, 3.9061788591912136`*^9}},
 Background->RGBColor[
  0, 1, 0],ExpressionUUID->"59d2321b-2a0d-41f6-8ec1-1f17099ae3f2"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"1956afe5-231f-4f28-b961-9a6ae821b3b4"],

Cell[TextData[{
 " Deleting elements from a list:\n      ",
 StyleBox["Delete[ list, position(s)]",
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.90617924764672*^9, 3.906179301693321*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"69af722d-74a7-4918-919d-1c72e71df935"],

Cell[BoxData[
 RowBox[{"Delete", "[", 
  RowBox[{"M", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.9061793115351257`*^9, 3.9061793150391273`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"5c17ec28-ebaa-48ab-9f28-96b93198940b"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["(Algorithmically) creating lists", "Subsection",
 CellChangeTimes->{{3.9061785971019883`*^9, 3.906178629835807*^9}, {
  3.90617892597311*^9, 
  3.9061789423354797`*^9}},ExpressionUUID->"fd0c916e-8199-4b42-b15e-\
0f9c86f0c284"],

Cell[TextData[{
 "Lists can also be created with the command\n     ",
 StyleBox["Table[ expression,  iterators ]",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.599554367979404*^9, 3.5995543688594055`*^9}, {
   3.90617744574397*^9, 3.906177482360218*^9}, 3.9061890406333213`*^9},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"fcd82de8-f5e7-415d-89b1-0916728572c4"],

Cell[BoxData[
 RowBox[{
  StyleBox["Table",
   FontColor->RGBColor[1, 0, 0]], "[", 
  StyleBox[" ",
   FontColor->RGBColor[1, 0, 0]], 
  RowBox[{
   StyleBox["n",
    FontColor->GrayLevel[0]], 
   StyleBox[" ",
    FontColor->GrayLevel[0]], 
   StyleBox[",",
    FontColor->GrayLevel[0]], 
   StyleBox[" ",
    FontColor->GrayLevel[0]], 
   StyleBox[
    RowBox[{"{", 
     RowBox[{"n", ",", "5"}], "}"}],
    FontColor->RGBColor[1, 0, 0]]}], 
  StyleBox["]",
   FontColor->GrayLevel[0]]}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.591089341021268*^9, 3.59108934211327*^9}, 
   3.599561106139442*^9, {3.666081609082058*^9, 3.6660816402321014`*^9}, {
   3.9061775101272044`*^9, 3.9061775135482683`*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"fccfd959-8e6f-410a-b67e-e73a58e6df1c"],

Cell[BoxData[
 RowBox[{
  StyleBox["Table",
   FontColor->RGBColor[1, 0, 0]], "[", 
  StyleBox[" ",
   FontColor->RGBColor[1, 0, 0]], 
  RowBox[{
   StyleBox["n",
    FontColor->GrayLevel[0]], 
   StyleBox[" ",
    FontColor->GrayLevel[0]], 
   StyleBox[",",
    FontColor->GrayLevel[0]], 
   StyleBox[" ",
    FontColor->GrayLevel[0]], 
   StyleBox[
    RowBox[{"{", 
     RowBox[{"n", ",", 
      RowBox[{"-", "3"}], ",", "5"}], "}"}],
    FontColor->RGBColor[1, 0, 0]]}], 
  StyleBox["]",
   FontColor->GrayLevel[0]]}]], "Input",
 CellChangeTimes->{{3.906177521452655*^9, 3.906177521936198*^9}},
 CellLabel->
  "In[131]:=",ExpressionUUID->"e5bf574f-17dc-41dc-88ce-38bc1ae77e8d"],

Cell[BoxData[
 RowBox[{
  StyleBox["Table",
   FontColor->RGBColor[1, 0, 0]], "[", 
  StyleBox[" ",
   FontColor->RGBColor[1, 0, 0]], 
  RowBox[{
   StyleBox["n",
    FontColor->GrayLevel[0]], 
   StyleBox[" ",
    FontColor->GrayLevel[0]], 
   StyleBox[",",
    FontColor->GrayLevel[0]], 
   StyleBox[" ",
    FontColor->GrayLevel[0]], 
   StyleBox[
    RowBox[{"{", 
     RowBox[{"n", ",", 
      RowBox[{"-", "3"}], ",", "5", ",", 
      FractionBox[
       StyleBox["1",
        FontColor->RGBColor[1, 0, 0]], "2"]}], "}"}],
    FontColor->RGBColor[1, 0, 0]]}], 
  StyleBox["]",
   FontColor->GrayLevel[0]]}]], "Input",
 CellChangeTimes->{{3.90617752818545*^9, 3.906177547508482*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"331c39c1-e343-4f2e-a24e-47722d0026c9"]
}, Closed]],

Cell[CellGroupData[{

Cell["Dimensions of lists", "Subsection",
 CellChangeTimes->{{3.906178667442917*^9, 
  3.906178673801476*^9}},ExpressionUUID->"ad4439d9-dbc5-44eb-aa84-\
6e4640b4cf7a"],

Cell[TextData[{
 "Dimensions of a list:\n-  ",
 StyleBox["Length",
  FontFamily->"Tahoma",
  FontSize->12,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["[lista]",
  FontFamily->"Tahoma",
  FontSize->12,
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " gives the number of elemnts (at first level)\n-  ",
 StyleBox["Dimensions",
  FontFamily->"Tahoma",
  FontSize->12,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["[lista]",
  FontFamily->"Tahoma",
  FontSize->12,
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ",
  FontFamily->"Tahoma",
  FontSize->12,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 " gives the lenghs\n          \[Dash] of the list\n         \[Dash] and of \
its sublists (in the levels in which they all the same length)\n(in form of \
list!)"
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5910839133942585`*^9, 3.59108391378426*^9}, {
  3.906178980801749*^9, 3.906179092101983*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"16da8c2f-0643-4a7e-9ee5-5144421b4ee6"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"d60bc282-b4d5-444b-aa42-c159806da4f1"],

Cell[BoxData["M"], "Input",
 CellChangeTimes->{{3.591083928963086*^9, 3.5910839306790895`*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"2ad41005-b03b-48a9-8b9a-3f0aac074cc7"],

Cell[BoxData[
 RowBox[{"Length", "[", "M", "]"}]], "Input",
 CellChangeTimes->{{3.543910252642641*^9, 3.543910260707855*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"d5e91d28-c7b4-402b-a2ae-8092ab9b2179"],

Cell[BoxData[
 RowBox[{"Dimensions", "[", " ", "M", "]"}]], "Input",
 CellChangeTimes->{{3.9061793458901567`*^9, 3.906179356189437*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"3fd2541c-9f54-45c1-9df4-5466d8c8d93d"],

Cell[BoxData[
 RowBox[{"Dimensions", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     StyleBox[
      RowBox[{"a1", ",", "a2"}],
      FontColor->RGBColor[0, 0, 1]], 
     StyleBox["}",
      FontColor->RGBColor[0, 0, 1]]}], ",", 
    StyleBox[
     RowBox[{"{", 
      RowBox[{"a3", ",", "a4"}], "}"}],
     FontColor->RGBColor[0, 0, 1]]}], 
   StyleBox["}",
    FontColor->RGBColor[0, 0, 1]]}], "]"}]], "Input",
 CellChangeTimes->{{3.599554583869706*^9, 3.599554620209757*^9}, {
  3.9061793873076053`*^9, 3.9061794176175804`*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"70ccfb0e-840b-42fe-b425-bf2a3b523691"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[" Example of appearance of lists in Mathematica", "Subsection",
 CellChangeTimes->{{3.599561184020551*^9, 3.5995611872505555`*^9}, {
  3.9061786422391663`*^9, 3.9061786481105075`*^9}, {3.906178951472064*^9, 
  3.906178967970667*^9}},ExpressionUUID->"6bfecf2e-843b-45a5-8be4-\
8f6bc9b2f671"],

Cell["The elements of a list may be images, sounds, ...", "Text",
 CellChangeTimes->{{3.543909850551935*^9, 3.543909880815988*^9}, {
  3.5910834759382906`*^9, 3.5910834776230936`*^9}, {3.5910837460839653`*^9, 
  3.591083747113567*^9}, {3.906177555163524*^9, 3.9061776113529243`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"852cc1a5-3958-4d77-97b9-c839f3601125"],

Cell[BoxData[
 RowBox[{"M1", "=", 
  RowBox[{"Table", "[", "      ", 
   RowBox[{
    StyleBox[
     RowBox[{"Plot", "[", 
      RowBox[{
       SuperscriptBox["x", "n"], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}],
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox["   ",
     FontColor->RGBColor[1, 0, 0]], ",", "        ", 
    RowBox[{"{", 
     RowBox[{"n", ",", "0", ",", "2"}], "}"}]}], "]"}]}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.543909971810948*^9, 3.5439099921377835`*^9}, {
  3.543910096657967*^9, 3.543910100635974*^9}, {3.591083724477927*^9, 
  3.591083725413929*^9}, {3.5910894145597973`*^9, 3.5910894183662043`*^9}, {
  3.5995544581695304`*^9, 3.5995544582495303`*^9}, {3.9061892426591053`*^9, 
  3.9061892430878086`*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"d09a121e-2664-47e7-973a-ab3c219c7728"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"6c7c5d29-d34b-4b56-ba3f-83ca5833850c"],

Cell["Why? What is a \"plot\"? How is it represented?", "Text",
 CellChangeTimes->{{3.543910020108633*^9, 3.543910045443077*^9}, {
  3.591083716833914*^9, 3.5910837799828243`*^9}, {3.9061776193830156`*^9, 
  3.9061776422131367`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"969e9933-baa0-461b-ae54-c7361ea3addd"],

Cell[BoxData[
 RowBox[{"pl", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    SuperscriptBox["x", "0"], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.543911448276541*^9, 3.5439114756389894`*^9}, {
  3.5910837843196325`*^9, 3.59108381135448*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"bbb88856-0b13-4d88-8338-1ba540774d97"],

Cell[BoxData[
 RowBox[{
  StyleBox[" ",
   FontColor->RGBColor[1, 0, 0]], 
  StyleBox[
   RowBox[{"pl", "//", "InputForm"}],
   FontColor->RGBColor[0, 0, 1]]}]], "Input",
 CellChangeTimes->{{3.5439100642411103`*^9, 3.5439101186228056`*^9}, {
  3.54391015489287*^9, 3.543910156733673*^9}, {3.543911460740963*^9, 
  3.5439114608813634`*^9}},
 CellLabel->
  "In[139]:=",ExpressionUUID->"94de4fd3-c333-43e9-b404-2d2c250a4609"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"6ded6e14-42d1-4c65-a028-cfb18b98d317"],

Cell["\<\
Besides the Head (\"Graphics\") it\[CloseCurlyQuote]s a list of lists (lists \
are omnipresents!)\
\>", "Text",
 CellChangeTimes->{{3.5439101276240215`*^9, 3.543910142958849*^9}, {
  3.543910191677734*^9, 3.543910218884182*^9}, {3.543911255085802*^9, 
  3.5439112552886024`*^9}, {3.9061777065220118`*^9, 3.906177739124975*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"cd1ae3ff-69ed-4fb8-9027-a1c27c7cfeb9"],

Cell["Can we work with/modify/put our hands into this list?", "Text",
 CellChangeTimes->{{3.5439101276240215`*^9, 3.543910142958849*^9}, {
  3.543910191677734*^9, 3.543910218884182*^9}, {3.543911255085802*^9, 
  3.5439112886258607`*^9}, {3.5439114871830096`*^9, 3.5439115297554846`*^9}, {
  3.906177763537921*^9, 3.906177818885641*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"fffea79f-ad80-4d62-a2a9-efa195b695b1"],

Cell["Which are its elements (at the first level)?", "Text",
 CellChangeTimes->{{3.5439101276240215`*^9, 3.543910142958849*^9}, {
  3.543910191677734*^9, 3.543910218884182*^9}, {3.543911255085802*^9, 
  3.5439112886258607`*^9}, {3.5439114871830096`*^9, 3.5439115297554846`*^9}, {
  3.906177763537921*^9, 3.9061778205265536`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"327004ca-d60d-43dc-86c1-4420559b6e52"],

Cell[BoxData[
 RowBox[{"Length", "[", "pl", "]"}]], "Input",
 CellChangeTimes->{{3.9061894918403406`*^9, 3.906189499020367*^9}},
 CellLabel->
  "In[140]:=",ExpressionUUID->"e9091489-13b7-4fd9-b6f0-d758eced2128"],

Cell[BoxData[
 RowBox[{"pl", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5439113451603603`*^9, 3.543911347344364*^9}, {
  3.5910838310105143`*^9, 3.591083832024516*^9}, {3.603180326674181*^9, 
  3.603180327964183*^9}, {3.6660821763928523`*^9, 3.6660821792728567`*^9}, {
  3.906177828913687*^9, 3.9061778301946297`*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"ec50a4ca-8ea7-4f99-9a5f-408ef699856e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pl", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "//", "InputForm"}]], "Input",
 CellChangeTimes->{{3.9061780728978643`*^9, 3.906178076146373*^9}},
 CellLabel->
  "In[142]:=",ExpressionUUID->"7d0f2d7d-5778-4cd9-b9f2-8f0584ee1409"],

Cell[BoxData[
 RowBox[{"pl", "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.543911354052376*^9, 3.543911355159978*^9}},
 CellLabel->
  "In[143]:=",ExpressionUUID->"c907625c-26d8-4699-87aa-c8090c313aae"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"30034168-1acc-4da2-843b-5b49c9448bdb"],

Cell[TextData[{
 "Let us remove the second element from the list\n       ",
 StyleBox["Delete[list, position of the element to be deleted]",
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.5439115404259033`*^9, 3.543911553389526*^9}, {
  3.543911591515993*^9, 3.5439115970696025`*^9}, {3.5910838540361547`*^9, 
  3.5910838618361683`*^9}, {3.906177860308858*^9, 3.9061778949327326`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"ea9ead14-6553-4e11-93e9-e50823d858f7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Delete", "[", 
   RowBox[{"pl", ",", "2"}], "]"}], "//", "InputForm"}]], "Input",
 CellChangeTimes->{{3.9061896251020536`*^9, 3.906189627370199*^9}},
 CellLabel->
  "In[145]:=",ExpressionUUID->"de8727da-31b0-4e5e-929a-0517cddd87ca"],

Cell[TextData[{
 "It is possible to manipulate all objects (graphics, ...) at a very low \
level.\nThis is one of the reason of the versatility of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ": it is really possible to have it doing what you want!"
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5439114267485037`*^9, 3.543911426998104*^9}, 
   3.5910838874826136`*^9, {3.599554547919656*^9, 3.5995545498096585`*^9}, {
   3.9061779284278803`*^9, 3.9061780388403587`*^9}, 3.90629109832843*^9},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"449b50c7-87c1-44f3-a0de-af8cedf08a2b"],

Cell["\<\
Exercise: changing the values in 
    RGBColor[0.368417, 0.506779, 0.709798]
try to make the line, e.g, red\
\>", "Text",
 CellChangeTimes->{{3.6031954992120743`*^9, 3.6031955917422037`*^9}, {
  3.906178041651569*^9, 3.906178048471818*^9}, {3.9061780904411745`*^9, 
  3.906178124900904*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"4156c84a-9fbc-43ab-8808-12a0b1e8f3aa"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Open  ]]
},
WindowSize->{1152., 592.8},
WindowMargins->{{-5.3999999999999995`, Automatic}, {
  Automatic, -5.3999999999999995`}},
ShowGroupOpener->{"InsideFrame", "Inline"},
FrontEndVersion->"13.0 for Microsoft Windows (64-bit) (February 4, 2022)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]]}, Visible -> False, 
  FrontEndVersion -> "13.0 for Microsoft Windows (64-bit) (February 4, 2022)",
   StyleDefinitions -> "PrivateStylesheetFormatting.nb"],
ExpressionUUID->"15ee9712-733e-4dc2-a566-6efaf834fd02"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1362, 22, 77, "Text",ExpressionUUID->"94be3d96-78df-4e05-b867-d3d278ae1776"],
Cell[CellGroupData[{
Cell[1945, 46, 679, 15, 176, "Title",ExpressionUUID->"328d4016-7c60-48ce-a8cd-126889825232"],
Cell[CellGroupData[{
Cell[2649, 65, 521, 9, 66, "Section",ExpressionUUID->"6170f93c-5736-45a1-a4cb-02629c6fdae8"],
Cell[CellGroupData[{
Cell[3195, 78, 479, 12, 75, "Subsection",ExpressionUUID->"8becf62f-7370-48ce-980b-0bf022c800ab"],
Cell[3677, 92, 407, 10, 35, "Text",ExpressionUUID->"d4a2e060-819f-4fe7-a799-f3cedddfe041"],
Cell[4087, 104, 916, 20, 120, "Text",ExpressionUUID->"91de3251-e7ec-4a9d-a52a-5d4fa863c1f7"],
Cell[5006, 126, 1059, 30, 120, "Text",ExpressionUUID->"d61104be-e8a8-431f-ae91-c04ae9d24e32"],
Cell[6068, 158, 496, 13, 74, "Text",ExpressionUUID->"576227af-900a-440f-9e6a-17725cb1da7b"],
Cell[6567, 173, 304, 6, 51, "Text",ExpressionUUID->"5a193c0d-29e8-422f-970e-db43cd9f18a4"]
}, Closed]],
Cell[CellGroupData[{
Cell[6908, 184, 451, 8, 75, "Subsection",ExpressionUUID->"ed07186d-e896-4ce5-b748-438db350947b"],
Cell[7362, 194, 633, 16, 74, "Text",ExpressionUUID->"0bafd984-1036-4cc1-a9d9-cc578d99f969"],
Cell[CellGroupData[{
Cell[8020, 214, 80, 0, 44, "Subsubsection",ExpressionUUID->"67e856a3-2111-4202-8438-cdd811ba2bc7"],
Cell[8103, 216, 338, 8, 28, "Input",ExpressionUUID->"d1647a79-0254-4b8d-9d08-d103ed4242ce"],
Cell[8444, 226, 305, 7, 28, "Input",ExpressionUUID->"8ed4a36e-4e38-4777-ade1-14e1a0471857"],
Cell[8752, 235, 199, 4, 35, "Text",ExpressionUUID->"2ad708e2-fb12-4c15-bcc9-19f968933625"],
Cell[8954, 241, 416, 7, 32, "Input",ExpressionUUID->"35913783-360a-4dfd-8552-8d6f530357fb"]
}, Closed]],
Cell[CellGroupData[{
Cell[9407, 253, 80, 0, 44, "Subsubsection",ExpressionUUID->"e565223c-d1db-4ef0-bfcc-bc4baea91326"],
Cell[9490, 255, 589, 14, 97, "Text",ExpressionUUID->"03fca7a8-9c3f-4d31-a0bd-89757f7b71fa"]
}, Closed]],
Cell[CellGroupData[{
Cell[10116, 274, 156, 3, 44, "Subsubsection",ExpressionUUID->"c7927412-987f-45df-a465-523c05b30aa3"],
Cell[10275, 279, 412, 10, 28, "Input",ExpressionUUID->"ead762ff-2e2e-4411-8b4a-5a039432abdb"],
Cell[10690, 291, 354, 8, 32, "Input",ExpressionUUID->"3a675a98-7718-4753-9af5-c64351f0be3b"]
}, Closed]],
Cell[CellGroupData[{
Cell[11081, 304, 154, 3, 44, "Subsubsection",ExpressionUUID->"910dc7f4-dc54-461a-8e55-c21d48436686"],
Cell[11238, 309, 466, 9, 74, "Text",ExpressionUUID->"e30190e9-98d5-45c6-9ba9-80b31692cabc"],
Cell[11707, 320, 390, 8, 58, "Text",ExpressionUUID->"5facc633-bd36-4adf-b957-7c11b2ef8910"],
Cell[12100, 330, 190, 3, 28, "Input",ExpressionUUID->"0e51c72a-c159-427d-98b8-e2d95b7a35d4"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[12339, 339, 538, 9, 75, "Subsection",ExpressionUUID->"9d432bfb-d497-4c6f-b73b-aa42d6c3e8cf"],
Cell[12880, 350, 729, 18, 124, "Text",ExpressionUUID->"d0c2ca70-34f2-47bf-9c2a-4a2c652c6069"],
Cell[13612, 370, 1559, 47, 120, "Text",ExpressionUUID->"2fc837ad-0e84-4546-96c6-32b1f8099a00"],
Cell[CellGroupData[{
Cell[15196, 421, 80, 0, 44, "Subsubsection",ExpressionUUID->"8e907b29-4b94-450c-ab6c-c72e6d7523e5"],
Cell[15279, 423, 229, 5, 32, "Input",ExpressionUUID->"e99ad195-5aa1-4165-9c6a-c3b44bc85868"],
Cell[15511, 430, 133, 2, 28, "Input",ExpressionUUID->"fac8a332-3676-4f61-bc69-bd03d0bc34fd"],
Cell[15647, 434, 133, 2, 28, "Input",ExpressionUUID->"24e3da9c-4726-4a23-a17c-5ce068d31926"]
}, Closed]],
Cell[CellGroupData[{
Cell[15817, 441, 80, 0, 44, "Subsubsection",ExpressionUUID->"263860b6-a1a5-4b17-a996-046990ebfb20"],
Cell[15900, 443, 384, 8, 74, "Text",ExpressionUUID->"7d14578a-6d29-4aa6-a889-8c7f9359fd00"],
Cell[16287, 453, 207, 3, 28, "Input",ExpressionUUID->"01d396d1-5219-4f1c-844f-9130a7f41379"]
}, Closed]],
Cell[CellGroupData[{
Cell[16531, 461, 80, 0, 44, "Subsubsection",ExpressionUUID->"36bcb70f-b571-4c96-be68-dc31b0090265"],
Cell[16614, 463, 311, 8, 74, "Text",ExpressionUUID->"293609f8-6ea4-417a-9edb-172adc4eb5fc"],
Cell[16928, 473, 865, 22, 99, "Text",ExpressionUUID->"1dee82b4-d076-4230-b4ac-1ca357fee514"]
}, Closed]],
Cell[CellGroupData[{
Cell[17830, 500, 153, 3, 44, "Subsubsection",ExpressionUUID->"5330c075-fc6d-4ff5-a58c-f8667c459730"],
Cell[17986, 505, 883, 18, 97, "Text",ExpressionUUID->"da4abf5f-6a38-4bce-8027-b7c75cd3bb47"],
Cell[18872, 525, 295, 5, 28, "Input",ExpressionUUID->"cdd88a86-b5c0-4721-8f36-b128183837c8"],
Cell[19170, 532, 636, 10, 51, "Text",ExpressionUUID->"e3249aa2-3326-4eca-935c-4ee7de83bbe5"],
Cell[19809, 544, 284, 5, 28, "Input",ExpressionUUID->"bcf3071d-8f85-4c1e-aaff-6745ba184944"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[20142, 555, 417, 7, 75, "Subsection",ExpressionUUID->"d98bb96f-2598-4893-9ca6-53081aec67c6"],
Cell[20562, 564, 531, 11, 51, "Text",ExpressionUUID->"61aefa02-d4d1-424d-886e-075364ea90ea"],
Cell[21096, 577, 1351, 27, 120, "Text",ExpressionUUID->"1ef70e3e-92ab-4b26-b89a-417e8c997b58"],
Cell[CellGroupData[{
Cell[22472, 608, 80, 0, 44, "Subsubsection",ExpressionUUID->"63540767-4dbb-4fb7-a1b4-7d22c216b117"],
Cell[22555, 610, 481, 9, 28, "Input",ExpressionUUID->"22250020-f027-4581-a125-99453510294d"],
Cell[23039, 621, 425, 9, 28, "Input",ExpressionUUID->"8b07e0c4-232f-42ce-9f3d-0f1a43bb39ee"]
}, Closed]],
Cell[CellGroupData[{
Cell[23501, 635, 80, 0, 44, "Subsubsection",ExpressionUUID->"f23a4b8c-1eb1-4934-bdd3-d76f047f061d"],
Cell[23584, 637, 478, 10, 51, "Text",ExpressionUUID->"d5706827-7dd8-4c2b-acb1-50ed5ceafd0c"]
}, Closed]],
Cell[CellGroupData[{
Cell[24099, 652, 80, 0, 44, "Subsubsection",ExpressionUUID->"d525bdfd-d6bb-4167-90a2-0ebebd9f47db"],
Cell[24182, 654, 481, 9, 28, "Input",ExpressionUUID->"eaef780c-ff5e-40b5-97aa-7358f9063104"],
Cell[24666, 665, 425, 9, 28, "Input",ExpressionUUID->"d80a1652-54bb-45b2-aebc-420d7883244e"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[25140, 680, 516, 9, 75, "Subsection",ExpressionUUID->"ced326cf-ecbd-4c07-b4fe-ac561534305d"],
Cell[25659, 691, 902, 18, 97, "Text",ExpressionUUID->"cca9c448-2b3a-4d5e-aa17-0ada7f4ed651"],
Cell[26564, 711, 549, 11, 29, "Input",ExpressionUUID->"66317a01-ad4a-447e-9cc2-6fd3e0f72385"],
Cell[27116, 724, 201, 3, 28, "Input",ExpressionUUID->"20e3cc1e-bebe-4d7f-8bea-3530e5d33cf5"],
Cell[27320, 729, 325, 6, 28, "Input",ExpressionUUID->"e9e906bf-d827-464b-8caf-b46f61a91aa9"],
Cell[27648, 737, 196, 3, 28, "Input",ExpressionUUID->"b367feb9-89d9-4bed-a69e-52b4f82c4381"],
Cell[27847, 742, 201, 3, 28, "Input",ExpressionUUID->"63141717-d4e6-4baf-b56d-23d38e83a9d4"],
Cell[CellGroupData[{
Cell[28073, 749, 80, 0, 44, "Subsubsection",ExpressionUUID->"3968a82a-fe6d-4ca2-bf02-b8a30d0e2f26"],
Cell[28156, 751, 687, 13, 51, "Text",ExpressionUUID->"1e07459e-085d-44d5-8b61-93355706a8ae"],
Cell[28846, 766, 1215, 31, 124, "Text",ExpressionUUID->"1b60f8e5-9ef1-4352-ba90-9303b729742a"]
}, Closed]],
Cell[CellGroupData[{
Cell[30098, 802, 80, 0, 44, "Subsubsection",ExpressionUUID->"c8c1b4ec-2192-445f-89d1-87b890f621c6"],
Cell[30181, 804, 210, 5, 45, "Input",ExpressionUUID->"37759471-204c-4475-bfb7-497767713883"],
Cell[30394, 811, 133, 2, 28, "Input",ExpressionUUID->"55a8b4ac-2f47-4c7c-9b14-7b8ad0545bbb"],
Cell[30530, 815, 273, 5, 28, "Input",ExpressionUUID->"ea23fc49-ad03-4411-a72b-65fe9febacf7"],
Cell[30806, 822, 133, 2, 28, "Input",ExpressionUUID->"992a8c4e-8402-4803-98c4-13836a1fbdcd"],
Cell[30942, 826, 629, 9, 51, "Text",ExpressionUUID->"7a54709d-53e6-43f2-9e1d-ad96dd283587"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[31620, 841, 685, 14, 75, "Subsection",ExpressionUUID->"d45afb1d-35a1-4bdb-9b0b-e3dd5ced4fb9"],
Cell[32308, 857, 712, 24, 120, "Text",ExpressionUUID->"b8f5de23-8f7b-4b58-b80d-54f583c8b439"],
Cell[CellGroupData[{
Cell[33045, 885, 156, 3, 44, "Subsubsection",ExpressionUUID->"b5b942db-56be-4319-bbf8-f6c2e23316c0"],
Cell[33204, 890, 989, 20, 120, "Text",ExpressionUUID->"79dd2432-4a11-4a70-8c68-c88a52a789cf"],
Cell[34196, 912, 712, 14, 120, "Text",ExpressionUUID->"c3b2e2f4-c25c-482b-b222-397c2d0125a9"]
}, Closed]],
Cell[CellGroupData[{
Cell[34945, 931, 80, 0, 44, "Subsubsection",ExpressionUUID->"5d105119-f9c7-4383-a8b9-5a4c840bfc02"],
Cell[35028, 933, 329, 6, 51, "Text",ExpressionUUID->"d955d9ca-51e1-47a3-b7e1-5bc03141a200"],
Cell[35360, 941, 247, 6, 28, "Input",ExpressionUUID->"03133f6a-6aef-489c-b6e9-b9c219c1d7ee"],
Cell[35610, 949, 405, 7, 28, "Input",ExpressionUUID->"aee16ede-6059-417d-aad2-e491a8cd1b3c"],
Cell[36018, 958, 412, 7, 28, "Input",ExpressionUUID->"9c52b3fb-c2ab-42ae-90a8-c26c0ea1f1ee"]
}, Closed]],
Cell[CellGroupData[{
Cell[36467, 970, 154, 3, 44, "Subsubsection",ExpressionUUID->"ed08a16a-099b-4945-994c-f00eef18fbf6"],
Cell[36624, 975, 380, 6, 28, "Input",ExpressionUUID->"dd8ae841-2224-4694-8c87-d51eb6aedfbb"],
Cell[37007, 983, 301, 5, 28, "Input",ExpressionUUID->"25f4c8d8-c5c1-4365-a90a-58c8ee72e4db"],
Cell[37311, 990, 265, 5, 28, "Input",ExpressionUUID->"a0730a14-bd18-4237-9ad7-212bc191236f"],
Cell[37579, 997, 201, 3, 28, "Input",ExpressionUUID->"6e0681a9-82f5-4a46-b41e-cd46dc927569"],
Cell[37783, 1002, 201, 3, 28, "Input",ExpressionUUID->"891042a0-a86c-4a55-84db-40b63ec4c7d5"],
Cell[37987, 1007, 247, 6, 51, "Text",ExpressionUUID->"d5e16b1c-5dbe-4cbc-a7ba-2a2954ad09b2"],
Cell[38237, 1015, 216, 4, 28, "Input",ExpressionUUID->"012a707f-bc82-418b-aaa9-e657d44bb162"],
Cell[38456, 1021, 216, 4, 28, "Input",ExpressionUUID->"d84e4f4c-7875-480b-8ac4-bbf1959e87e7"]
}, Closed]],
Cell[CellGroupData[{
Cell[38709, 1030, 80, 0, 44, "Subsubsection",ExpressionUUID->"d43415e4-cf29-46fc-bf4c-90cf81e5a965"],
Cell[38792, 1032, 381, 7, 51, "Text",ExpressionUUID->"22ce1329-728c-4ede-aa57-0d38dae773c4"],
Cell[39176, 1041, 369, 8, 48, "Input",ExpressionUUID->"ba225f91-c434-45f2-9d48-0732f84e3ca0"],
Cell[39548, 1051, 154, 3, 28, "Input",ExpressionUUID->"197ef789-5207-4707-85cf-5fd15178e002"],
Cell[39705, 1056, 428, 8, 28, "Input",ExpressionUUID->"3a4fac13-ef4f-47f6-93b8-d9e1c48dae74"],
Cell[40136, 1066, 433, 8, 28, "Input",ExpressionUUID->"f9750efa-b0c9-430d-b5a3-59402d319aac"],
Cell[40572, 1076, 199, 3, 28, "Input",ExpressionUUID->"caf0e7fd-cd4a-455d-91f0-412dd0608022"],
Cell[40774, 1081, 203, 3, 28, "Input",ExpressionUUID->"3c96c4fd-a25a-4297-96e3-d701d9d27c45"],
Cell[40980, 1086, 212, 4, 28, "Input",ExpressionUUID->"d3f511e6-33af-4dd4-ac60-f324f802d630"],
Cell[41195, 1092, 198, 3, 28, "Input",ExpressionUUID->"5004d864-ecae-4b0e-a4f9-c6f4e6ff932a"],
Cell[41396, 1097, 203, 3, 28, "Input",ExpressionUUID->"92d2ea35-8c50-4dc7-9041-b58545048e10"]
}, Closed]],
Cell[CellGroupData[{
Cell[41636, 1105, 80, 0, 44, "Subsubsection",ExpressionUUID->"67bce838-d6de-453e-89c4-275490110160"],
Cell[41719, 1107, 885, 17, 189, "Text",ExpressionUUID->"c855e90f-672a-45a5-b709-7805c6b3eb3c"]
}, Closed]],
Cell[CellGroupData[{
Cell[42641, 1129, 154, 3, 44, "Subsubsection",ExpressionUUID->"f2d8d44b-b64e-494d-ba99-781afdb5daa4"],
Cell[42798, 1134, 1537, 48, 228, "Text",ExpressionUUID->"9821a36b-47b8-4f45-b975-fae7b87ffb80"]
}, Closed]],
Cell[CellGroupData[{
Cell[44372, 1187, 147, 3, 44, "Subsubsection",ExpressionUUID->"928c3cb0-f792-46cf-a5a6-81097eabf3da"],
Cell[44522, 1192, 462, 9, 28, "Input",ExpressionUUID->"116ec078-19ed-43d7-8584-73c26480bb5a"],
Cell[44987, 1203, 205, 4, 28, "Input",ExpressionUUID->"94fc8a67-c4b7-4b72-b46d-9982e4c07b0a"],
Cell[45195, 1209, 182, 3, 28, "Input",ExpressionUUID->"a5d4fa3d-8b22-41f1-869a-579d98e7de88"],
Cell[45380, 1214, 311, 7, 28, "Input",ExpressionUUID->"2af70304-366c-409d-b8d3-05c4e4ed233b"],
Cell[45694, 1223, 207, 4, 28, "Input",ExpressionUUID->"058205e0-6ed6-40e3-8583-e7ccd7b965ed"],
Cell[45904, 1229, 204, 4, 28, "Input",ExpressionUUID->"36e56c7b-a738-4ff1-bb61-8e2247eaecbd"]
}, Closed]],
Cell[CellGroupData[{
Cell[46145, 1238, 80, 0, 44, "Subsubsection",ExpressionUUID->"412d41ad-b8fe-4bb0-8027-22fa1deb18f2"],
Cell[46228, 1240, 2065, 61, 259, "Text",ExpressionUUID->"7d57bba3-ad9c-48f2-9e5c-5d3892eb5b3f"]
}, Closed]],
Cell[CellGroupData[{
Cell[48330, 1306, 80, 0, 44, "Subsubsection",ExpressionUUID->"4348e5e7-5959-40dc-971c-683aa5c38aa4"],
Cell[48413, 1308, 635, 15, 45, "Input",ExpressionUUID->"376bd8d1-efc8-41f0-bf72-438d647053b7"],
Cell[49051, 1325, 1039, 27, 65, "Input",ExpressionUUID->"67c1ffb5-b743-48e0-998d-f2eb628ab415"],
Cell[50093, 1354, 553, 14, 28, "Input",ExpressionUUID->"9ad024cc-1f1d-4423-b0ee-58307a758ad2"],
Cell[50649, 1370, 587, 15, 28, "Input",ExpressionUUID->"de00cb0a-456e-4b49-b5a3-e9ce673052f6"]
}, Closed]],
Cell[CellGroupData[{
Cell[51273, 1390, 147, 3, 44, "Subsubsection",ExpressionUUID->"c0ffae2d-0eb2-4ff2-baa7-b074a1411336"],
Cell[51423, 1395, 791, 19, 166, "Text",ExpressionUUID->"b756ca5b-e172-4b77-9c90-bc463bd1e38e"],
Cell[52217, 1416, 373, 9, 32, "Input",ExpressionUUID->"6451a507-de9d-4f0e-93da-127b13c5ffab"],
Cell[52593, 1427, 236, 4, 28, "Input",ExpressionUUID->"80e5483a-b1da-4f96-b80b-1846cd503924"],
Cell[52832, 1433, 397, 10, 32, "Input",ExpressionUUID->"6345cd1c-5c7e-43da-a8cb-7a16954acd30"],
Cell[53232, 1445, 442, 9, 32, "Input",ExpressionUUID->"56dd8995-4ddc-499b-ad5b-08558cb94616"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[53735, 1461, 601, 9, 52, "Section",ExpressionUUID->"1e274ede-e835-4649-aaf1-6f3b76f1e2cd"],
Cell[54339, 1472, 1342, 33, 212, "Text",ExpressionUUID->"a92ce12e-f34c-4bd0-b760-83fdb590b974"],
Cell[CellGroupData[{
Cell[55706, 1509, 199, 4, 44, "Subsubsection",ExpressionUUID->"c9aad663-6117-4fe2-9df4-0ef2b2ebc9cf"],
Cell[55908, 1515, 512, 8, 51, "Text",ExpressionUUID->"d4ce8db7-b633-4cf7-8b8d-850f5802a97b"],
Cell[56423, 1525, 194, 3, 28, "Input",ExpressionUUID->"ff1e93ed-3f8f-41b9-a531-fb0c39b80bf7"],
Cell[56620, 1530, 162, 3, 28, "Input",ExpressionUUID->"04f50beb-3807-4ef7-b3eb-cd2012fbd8a7"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[56831, 1539, 800, 15, 52, "Section",ExpressionUUID->"9e54262b-7488-4d80-86a9-05a6a825aa0f"],
Cell[57634, 1556, 1103, 33, 103, "Text",ExpressionUUID->"22026f64-95b6-4af3-b5ea-2d2cc1f28c9b"],
Cell[58740, 1591, 1408, 47, 148, "Text",ExpressionUUID->"2cacf23a-12f9-4897-9c46-93cf61aa7bf8"],
Cell[60151, 1640, 387, 11, 45, "Input",ExpressionUUID->"2501b37d-482e-456c-9e67-ddc98bb570f8"],
Cell[CellGroupData[{
Cell[60563, 1655, 80, 0, 44, "Subsubsection",ExpressionUUID->"9e8c152c-75d3-4093-b98d-eae203c8bc77"],
Cell[60646, 1657, 1001, 30, 100, "Text",ExpressionUUID->"3c6aedd3-7d19-47ce-8dd4-c1bec1f50b67"]
}, Closed]],
Cell[CellGroupData[{
Cell[61684, 1692, 676, 11, 69, "Subsection",ExpressionUUID->"4105bbde-19ae-468a-beff-9e360c152eb9"],
Cell[62363, 1705, 1201, 34, 166, "Text",ExpressionUUID->"c4708b1a-6869-406b-bbe6-187b8fe69486"],
Cell[CellGroupData[{
Cell[63589, 1743, 80, 0, 44, "Subsubsection",ExpressionUUID->"6db02995-ca2b-40a8-ad06-fba1550248aa"],
Cell[63672, 1745, 383, 9, 48, "Text",ExpressionUUID->"bc040fa4-1c89-44c8-b394-7626b6050379"],
Cell[64058, 1756, 316, 8, 50, "Input",ExpressionUUID->"73a501c3-acc1-44da-b1cd-027dbd524360"],
Cell[64377, 1766, 378, 9, 28, "Input",ExpressionUUID->"320821f1-2248-4562-aa3f-9e2558b1df93"],
Cell[64758, 1777, 220, 3, 28, "Input",ExpressionUUID->"75e9ebdf-43ed-4203-bbea-b8f935146c1d"],
Cell[64981, 1782, 216, 4, 28, "Input",ExpressionUUID->"4c0fe816-0579-446e-a388-a4d3a9d71836"],
Cell[65200, 1788, 288, 4, 28, "Input",ExpressionUUID->"46d1e783-01af-4249-b1af-74fd32d16aa1"],
Cell[65491, 1794, 322, 5, 28, "Input",ExpressionUUID->"32be3bcd-e3f4-4dae-b667-8ff96b5a4efe"],
Cell[65816, 1801, 529, 10, 97, "Text",ExpressionUUID->"da49b3a1-c514-47af-8191-1348b40244be"]
}, Closed]]
}, Closed]],
Cell[66372, 1815, 536, 9, 69, "Subsection",ExpressionUUID->"90dffe85-bee8-4c74-9c54-3f69af8949f5"],
Cell[CellGroupData[{
Cell[66933, 1828, 160, 3, 36, "Subsection",ExpressionUUID->"d7cab3a0-087e-4da7-8245-9055b209fec6"],
Cell[67096, 1833, 784, 21, 97, "Text",ExpressionUUID->"c5d5e83d-7363-4ca9-b70d-02a8b0e8f1cb"],
Cell[67883, 1856, 688, 15, 143, "Text",ExpressionUUID->"6f19e8ca-3acc-413a-babc-4a0bd6990676"],
Cell[CellGroupData[{
Cell[68596, 1875, 152, 3, 44, "Subsubsection",ExpressionUUID->"aecae095-ba45-4385-ab13-b16f6c4c3cef"],
Cell[68751, 1880, 804, 17, 38, "Input",ExpressionUUID->"93cd1a36-3d11-4f45-a1aa-abe0ce4672f4"],
Cell[69558, 1899, 506, 7, 35, "Text",ExpressionUUID->"55416964-27d6-4622-a2a7-d6b9e77acffd"],
Cell[70067, 1908, 331, 9, 51, "Text",ExpressionUUID->"4bc4e974-99ac-49eb-96b9-49ccfa701c44"]
}, Closed]],
Cell[CellGroupData[{
Cell[70435, 1922, 150, 3, 44, "Subsubsection",ExpressionUUID->"2e7d247b-eaae-44d7-a88a-458d19c0c033"],
Cell[70588, 1927, 482, 10, 97, "Text",ExpressionUUID->"6e1d76e0-2af4-48bc-8cbb-18e83e0751b3"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[71119, 1943, 211, 4, 53, "Subsection",ExpressionUUID->"1b882f63-9393-49a6-9fa4-19af4f4e610d"],
Cell[71333, 1949, 304, 6, 51, "Text",ExpressionUUID->"e46ebc81-2f7d-4c8f-84bc-458f480ec281"],
Cell[71640, 1957, 826, 15, 97, "Text",ExpressionUUID->"cc0c59a4-2b85-4b2f-af1f-1cf196ba9fae"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[72515, 1978, 727, 11, 52, "Section",ExpressionUUID->"f50fc487-e42c-415b-a994-d1b225ea2a9d"],
Cell[73245, 1991, 915, 18, 189, "Text",ExpressionUUID->"2d871192-e76d-4a35-9377-8be20be86c6a"],
Cell[CellGroupData[{
Cell[74185, 2013, 698, 11, 75, "Subsection",ExpressionUUID->"bc36ccb1-ffaf-4f88-8d30-c0b033eecd59"],
Cell[74886, 2026, 1044, 20, 212, "Text",ExpressionUUID->"afa612c2-d71c-46f3-9d17-2be7120b0d45"],
Cell[75933, 2048, 321, 8, 51, "Text",ExpressionUUID->"7518a187-c226-4e4e-a29b-e337b2c88aa8"],
Cell[CellGroupData[{
Cell[76279, 2060, 80, 0, 44, "Subsubsection",ExpressionUUID->"ed74bc80-559b-4f33-9635-72d15fa92d74"],
Cell[76362, 2062, 551, 10, 29, "Input",ExpressionUUID->"ba0ad38c-fdfb-4934-95ce-76347b23b3ef"],
Cell[76916, 2074, 261, 6, 45, "Input",ExpressionUUID->"f4d083b5-092f-4689-b6c2-d6b12cf09821"],
Cell[77180, 2082, 250, 4, 29, "Input",ExpressionUUID->"4b1eb76d-6a4a-472d-8290-5a67396f8c6a"],
Cell[77433, 2088, 230, 5, 30, "Input",ExpressionUUID->"21c93152-cd75-4a31-b6fe-b6201c505c50"],
Cell[77666, 2095, 315, 10, 44, "Input",ExpressionUUID->"19d78ae6-42b2-40e4-b3b9-67828af7bfcd"],
Cell[77984, 2107, 268, 7, 28, "Input",ExpressionUUID->"a024cb25-8656-43db-b498-5e296a3de922"],
Cell[78255, 2116, 199, 3, 29, "Input",ExpressionUUID->"3c8879da-65e6-4048-861c-d485988d461b"],
Cell[78457, 2121, 207, 3, 28, "Input",ExpressionUUID->"d39a5a29-546a-4f15-8a5e-e0b61e505f6b"],
Cell[78667, 2126, 253, 4, 28, "Input",ExpressionUUID->"58a12945-0442-4458-8ed3-f839266ad836"],
Cell[78923, 2132, 229, 4, 29, "Input",ExpressionUUID->"58760685-60df-4240-90c9-6c6497e9e23c"]
}, Closed]],
Cell[CellGroupData[{
Cell[79189, 2141, 80, 0, 44, "Subsubsection",ExpressionUUID->"b5427799-c13d-4f84-90a3-373ab9de2bb8"],
Cell[79272, 2143, 453, 11, 97, "Text",ExpressionUUID->"891078e5-8b60-42c3-bc15-5309e7cee824"]
}, Closed]],
Cell[CellGroupData[{
Cell[79762, 2159, 80, 0, 44, "Subsubsection",ExpressionUUID->"50fee9b6-adab-4088-a624-ce54a59dcd13"],
Cell[79845, 2161, 375, 7, 45, "Input",ExpressionUUID->"d5e0f5df-25ca-47ff-8f54-4479baaa5506"],
Cell[80223, 2170, 424, 10, 45, "Input",ExpressionUUID->"f5e5a0f0-3f9c-46a6-af6c-aa0d5aee9318"],
Cell[80650, 2182, 204, 3, 28, "Input",ExpressionUUID->"e22eb1d9-c20d-4f1e-8065-eb0865aa2c24"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[80903, 2191, 831, 16, 75, "Subsection",ExpressionUUID->"806f31a3-7afd-4168-82ad-df857972011c"],
Cell[CellGroupData[{
Cell[81759, 2211, 936, 18, 120, "Text",ExpressionUUID->"00099a4c-14f2-4e59-b904-ff12dd091b79",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[82698, 2231, 142, 3, 44, "Subsubsection",ExpressionUUID->"c0cdcb8e-7664-439a-bc05-62c069b6bc35",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[82843, 2236, 308, 5, 28, "Input",ExpressionUUID->"bab0fb90-d339-4cb1-ac61-51ae177de5e1",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[83154, 2243, 860, 16, 51, "Text",ExpressionUUID->"84c0ecdb-8cfe-47de-b965-326fd920f1fe",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[84017, 2261, 253, 4, 28, "Input",ExpressionUUID->"617a3f51-5624-4332-9d19-22edb2e61761",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[84273, 2267, 458, 11, 74, "Text",ExpressionUUID->"af0460a3-029f-4a6e-baa1-34b878fbc2fd",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[84746, 2281, 205, 4, 28, "Input",ExpressionUUID->"9d8c0efc-07f1-4641-889f-8feda8fd61bb"],
Cell[84954, 2287, 333, 7, 28, "Input",ExpressionUUID->"fbbd4cfc-9959-4a7d-b8eb-8b4e0f6cf388"]
}, Closed]],
Cell[CellGroupData[{
Cell[85324, 2299, 831, 16, 75, "Subsection",ExpressionUUID->"2150f05d-e95f-4f09-9721-f602086282d7"],
Cell[86158, 2317, 601, 15, 74, "Text",ExpressionUUID->"5fe9c941-c2d2-4bce-8ab0-5ed515ff7b2e"],
Cell[86762, 2334, 397, 8, 74, "Text",ExpressionUUID->"3780dfb1-db24-4904-b821-046d70218dd1"],
Cell[87162, 2344, 523, 14, 76, "Text",ExpressionUUID->"bda657a3-ca3f-467a-b658-f8a22bef3d59"],
Cell[87688, 2360, 359, 8, 28, "Input",ExpressionUUID->"9aafa75e-74da-48d1-bb52-1b520cc062b6"],
Cell[88050, 2370, 236, 4, 28, "Input",ExpressionUUID->"d46942fc-b779-4cf8-89db-8316ec551ef5"],
Cell[88289, 2376, 312, 8, 32, "Input",ExpressionUUID->"7db06249-e27f-447d-8663-5166b161182b"]
}, Closed]],
Cell[CellGroupData[{
Cell[88638, 2389, 807, 12, 75, "Subsection",ExpressionUUID->"901d8355-bc0c-49e7-ae3b-b4593ab9fe65"],
Cell[89448, 2403, 365, 7, 51, "Text",ExpressionUUID->"5ceef3f4-c716-4107-891a-74a0bf071fec"],
Cell[89816, 2412, 328, 7, 47, "Input",ExpressionUUID->"cd71c07b-22dd-4476-9b5d-cf4af2988829"],
Cell[90147, 2421, 297, 6, 51, "Text",ExpressionUUID->"aec02c2d-d6f4-473b-abac-cfc266344f20"],
Cell[90447, 2429, 357, 8, 47, "Input",ExpressionUUID->"04f4c816-aabf-4b5c-b548-a3bab379d37a"],
Cell[CellGroupData[{
Cell[90829, 2441, 154, 3, 44, "Subsubsection",ExpressionUUID->"fe4be806-348b-477c-a648-401371e820d6"],
Cell[90986, 2446, 484, 10, 74, "Text",ExpressionUUID->"ec2b4331-e822-49ec-b7d6-74d51eb22610"],
Cell[91473, 2458, 403, 10, 47, "Input",ExpressionUUID->"f7865e27-803a-44ea-abbf-02fed1846b34"],
Cell[91879, 2470, 182, 4, 28, "Input",ExpressionUUID->"e1107dc9-bf97-45f2-9d1c-1a7e0f0877e0"],
Cell[92064, 2476, 466, 7, 51, "Text",ExpressionUUID->"56b11528-3606-4103-aab9-ea91484915ee"]
}, Closed]],
Cell[CellGroupData[{
Cell[92567, 2488, 80, 0, 44, "Subsubsection",ExpressionUUID->"f03a03a8-a185-4c4f-bb92-76808eeadaa8"],
Cell[CellGroupData[{
Cell[92672, 2492, 750, 15, 74, "Text",ExpressionUUID->"9372ebfd-b26c-4df1-ad41-bb25fb1fa325",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[93425, 2509, 1638, 33, 97, "Text",ExpressionUUID->"076b261a-391d-45cb-a00f-a5963af5b10d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[95078, 2545, 785, 15, 47, "Input",ExpressionUUID->"cbd0c1ce-fa74-433b-9f50-d671ea35b0d9"],
Cell[95866, 2562, 317, 8, 47, "Input",ExpressionUUID->"522c0976-4f17-4a38-99fd-0c469ece47c7"]
}, Closed]],
Cell[CellGroupData[{
Cell[96220, 2575, 208, 4, 44, "Subsubsection",ExpressionUUID->"e1cc692c-dc59-4f0f-8c08-b2ad36685d2b"],
Cell[96431, 2581, 2013, 39, 120, "Text",ExpressionUUID->"b7d39a49-4c0a-426e-a56e-5ba3297ad0b2"],
Cell[98447, 2622, 751, 15, 47, "Input",ExpressionUUID->"3adf1241-6085-46fe-82e8-a97ae78089d3"],
Cell[99201, 2639, 566, 8, 51, "Text",ExpressionUUID->"7cba6840-4355-4ea0-9a44-c7d4ef1c84c6"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[99816, 2653, 1116, 17, 75, "Subsection",ExpressionUUID->"d4ef4e1a-f48c-4c45-aee9-5688ea3df8c5"],
Cell[CellGroupData[{
Cell[100957, 2674, 580, 15, 51, "Text",ExpressionUUID->"5412f56c-152e-48d5-ab07-9df8bc42f45a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[101540, 2691, 1073, 28, 123, "Text",ExpressionUUID->"2316f949-a978-4cc4-adc0-3ef0d2fa8b5e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[102616, 2721, 142, 3, 44, "Subsubsection",ExpressionUUID->"b5ed8623-b3d5-4c5f-995b-e03fc884162a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[102761, 2726, 328, 7, 44, "Input",ExpressionUUID->"f8074a07-9ea2-44cb-a7cb-1f24b258d7bc",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[103092, 2735, 404, 8, 45, "Input",ExpressionUUID->"d6594b87-3914-4551-991a-a99ffeb81b2d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[103499, 2745, 1826, 56, 246, "Text",ExpressionUUID->"8c39b114-1cc4-483d-bc6c-f88f7dc42e24",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[105328, 2803, 210, 5, 44, "Subsubsection",ExpressionUUID->"e8f8952d-a159-4acb-a40f-8165c0999a27",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[105541, 2810, 1493, 47, 170, "Text",ExpressionUUID->"d888e7f1-0a5f-4568-ade1-19a34c36a8c1",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[107037, 2859, 603, 14, 76, "Text",ExpressionUUID->"edd5d78c-55b6-4a29-9f5d-7c712d9349fa",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[107655, 2876, 310, 8, 28, "Input",ExpressionUUID->"95449a33-122c-484a-a6b6-42194a38182d"],
Cell[107968, 2886, 154, 3, 28, "Input",ExpressionUUID->"dd59dd4d-b6dd-43d0-a02f-c3abe7f8464a"],
Cell[CellGroupData[{
Cell[108147, 2893, 151, 3, 44, "Subsubsection",ExpressionUUID->"32b8edb8-0caf-4aba-9f43-93280c47e62d"],
Cell[108301, 2898, 971, 31, 32, "Input",ExpressionUUID->"a40dae3a-569a-4edb-b78b-652e496530b1"],
Cell[109275, 2931, 2437, 70, 32, "Input",ExpressionUUID->"a6070573-a427-4bdb-a690-10ae3c4eeb10"],
Cell[111715, 3003, 1937, 66, 32, "Input",ExpressionUUID->"c10dd14a-3671-430b-b2bc-5dd4356b2b75"]
}, Closed]],
Cell[CellGroupData[{
Cell[113689, 3074, 156, 3, 44, "Subsubsection",ExpressionUUID->"11cf42fa-b027-4630-be20-c67ab1181a32"],
Cell[113848, 3079, 491, 12, 51, "Text",ExpressionUUID->"b2ee6575-3aa5-4625-9ef7-8c7a12b1c2bd"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[114388, 3097, 962, 15, 75, "Subsection",ExpressionUUID->"9e31deb0-fe06-49f7-ba99-18cd1e7a7efb"],
Cell[CellGroupData[{
Cell[115375, 3116, 956, 21, 120, "Text",ExpressionUUID->"86b3bd5d-e23e-4ccf-ab9f-ef44a6b07b41",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[116334, 3139, 565, 14, 74, "Text",ExpressionUUID->"1b44f1c3-6f6b-48b9-a5e7-ea30b3e98241",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[116936, 3158, 154, 3, 44, "Subsubsection",ExpressionUUID->"72ff8922-2938-417d-a60a-c111febdd533"],
Cell[117093, 3163, 387, 7, 51, "Text",ExpressionUUID->"157ab409-59c2-4aa1-9275-8724f725b6d5"],
Cell[117483, 3172, 263, 5, 28, "Input",ExpressionUUID->"dbf5a2f2-48b9-428f-bbb6-a30f009e935a"],
Cell[117749, 3179, 263, 5, 28, "Input",ExpressionUUID->"58d2c990-b0b9-47c3-a310-ecd31707a1dd"]
}, Closed]],
Cell[CellGroupData[{
Cell[118049, 3189, 80, 0, 44, "Subsubsection",ExpressionUUID->"82813363-ec14-4d7d-8f46-d1021e079b28"],
Cell[118132, 3191, 346, 5, 51, "Text",ExpressionUUID->"f4b23686-3b6b-4611-815b-7ae17bf4b233"],
Cell[118481, 3198, 263, 5, 28, "Input",ExpressionUUID->"bf79cb3d-0583-4550-b80a-1474fe908c80"],
Cell[118747, 3205, 200, 4, 28, "Input",ExpressionUUID->"ab17feef-b2ec-4d83-897b-a1296bcf0612"],
Cell[118950, 3211, 208, 4, 28, "Input",ExpressionUUID->"f6ec645e-ec21-4e57-8c0f-05cf9f5ebaeb"],
Cell[119161, 3217, 367, 6, 28, "Input",ExpressionUUID->"bb9598a1-46c3-4957-bc6d-3bcea5bfd403"],
Cell[119531, 3225, 569, 12, 28, "Input",ExpressionUUID->"38dd7ef9-f1d1-4e3d-937a-caae79ac22da"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[120161, 3244, 739, 11, 52, "Section",ExpressionUUID->"04e071b2-1e7c-4ad1-9957-0d19dfe951c7"],
Cell[CellGroupData[{
Cell[120925, 3259, 155, 3, 53, "Subsection",ExpressionUUID->"49a1a0d2-d28e-4d14-b88c-0d88b08e8b21"],
Cell[121083, 3264, 855, 28, 143, "Text",ExpressionUUID->"babb4413-30a8-4b3a-a483-54bc80f61028"],
Cell[CellGroupData[{
Cell[121963, 3296, 81, 0, 44, "Subsubsection",ExpressionUUID->"d863dff5-c136-4465-a08e-f7ead83a2774"],
Cell[122047, 3298, 612, 14, 97, "Text",ExpressionUUID->"2a195083-31df-46a8-b186-f86d6ff3abdb"],
Cell[122662, 3314, 376, 8, 51, "Text",ExpressionUUID->"4db1f1c7-fba5-4e5d-9a0a-85c178f5f706"],
Cell[123041, 3324, 391, 11, 28, "Input",ExpressionUUID->"6d5bf1ea-d1c8-48eb-b88f-e7c98678c19a"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[123481, 3341, 310, 5, 53, "Subsection",ExpressionUUID->"e8247ec4-dcfa-49f0-b97c-6c37179b780c"],
Cell[123794, 3348, 475, 12, 74, "Text",ExpressionUUID->"93f61da6-ed8e-48c8-b870-dd0d301e64bc"],
Cell[124272, 3362, 324, 11, 28, "Input",ExpressionUUID->"7c142565-4a21-404d-a2e4-353f8a0ee7b3"],
Cell[124599, 3375, 332, 7, 28, "Input",ExpressionUUID->"d51480dd-52f5-4076-a74b-bc7755c1bd99"],
Cell[124934, 3384, 343, 9, 97, "Text",ExpressionUUID->"fd574227-2de2-4088-8bd1-f4e757fb8504"],
Cell[CellGroupData[{
Cell[125302, 3397, 80, 0, 44, "Subsubsection",ExpressionUUID->"19ed6f41-5d2c-4faf-977c-05bef2cecb24"],
Cell[125385, 3399, 295, 5, 51, "Text",ExpressionUUID->"a74ea9f2-fe43-4611-9993-6882bcbaafad"],
Cell[125683, 3406, 990, 33, 28, "Input",ExpressionUUID->"eaab2996-8e5f-44d2-8fb8-955c53d9532c"],
Cell[126676, 3441, 367, 11, 28, "Input",ExpressionUUID->"74339335-006b-431e-8d89-7a6eb411dd83"],
Cell[127046, 3454, 417, 13, 28, "Input",ExpressionUUID->"c7c3e653-e921-4cd9-bd36-0639633763d3"]
}, Closed]],
Cell[CellGroupData[{
Cell[127500, 3472, 80, 0, 44, "Subsubsection",ExpressionUUID->"21d4bfff-7fe7-4688-b062-adbac8f94713"],
Cell[127583, 3474, 296, 8, 51, "Text",ExpressionUUID->"3c1a7384-8031-479d-ab77-0a2477726d46"],
Cell[127882, 3484, 493, 16, 28, "Input",ExpressionUUID->"7bd8a46b-88ea-43cb-aec0-d195d834a6fd"],
Cell[128378, 3502, 491, 16, 28, "Input",ExpressionUUID->"6977192e-a43f-4060-92bf-8f8006b62b15"]
}, Closed]],
Cell[CellGroupData[{
Cell[128906, 3523, 80, 0, 44, "Subsubsection",ExpressionUUID->"dee0b185-5a10-4d71-ae1f-db9fb61670d6"],
Cell[128989, 3525, 647, 17, 189, "Text",ExpressionUUID->"59d2321b-2a0d-41f6-8ec1-1f17099ae3f2"]
}, Closed]],
Cell[CellGroupData[{
Cell[129673, 3547, 80, 0, 44, "Subsubsection",ExpressionUUID->"1956afe5-231f-4f28-b961-9a6ae821b3b4"],
Cell[129756, 3549, 288, 7, 74, "Text",ExpressionUUID->"69af722d-74a7-4918-919d-1c72e71df935"],
Cell[130047, 3558, 230, 4, 28, "Input",ExpressionUUID->"5c17ec28-ebaa-48ab-9f28-96b93198940b"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[130326, 3568, 232, 4, 53, "Subsection",ExpressionUUID->"fd0c916e-8199-4b42-b15e-0f9c86f0c284"],
Cell[130561, 3574, 478, 12, 76, "Text",ExpressionUUID->"fcd82de8-f5e7-415d-89b1-0916728572c4"],
Cell[131042, 3588, 801, 26, 28, "Input",ExpressionUUID->"fccfd959-8e6f-410a-b67e-e73a58e6df1c"],
Cell[131846, 3616, 681, 24, 28, "Input",ExpressionUUID->"e5bf574f-17dc-41dc-88ce-38bc1ae77e8d"],
Cell[132530, 3642, 771, 27, 44, "Input",ExpressionUUID->"331c39c1-e343-4f2e-a24e-47722d0026c9"]
}, Closed]],
Cell[CellGroupData[{
Cell[133338, 3674, 167, 3, 53, "Subsection",ExpressionUUID->"ad4439d9-dbc5-44eb-aa84-6e4640b4cf7a"],
Cell[133508, 3679, 1084, 36, 166, "Text",ExpressionUUID->"16da8c2f-0643-4a7e-9ee5-5144421b4ee6"],
Cell[CellGroupData[{
Cell[134617, 3719, 80, 0, 44, "Subsubsection",ExpressionUUID->"d60bc282-b4d5-444b-aa42-c159806da4f1"],
Cell[134700, 3721, 178, 3, 28, "Input",ExpressionUUID->"2ad41005-b03b-48a9-8b9a-3f0aac074cc7"],
Cell[134881, 3726, 208, 4, 28, "Input",ExpressionUUID->"d5e91d28-c7b4-402b-a2ae-8092ab9b2179"],
Cell[135092, 3732, 219, 4, 28, "Input",ExpressionUUID->"3fd2541c-9f54-45c1-9df4-5466d8c8d93d"],
Cell[135314, 3738, 623, 19, 28, "Input",ExpressionUUID->"70ccfb0e-840b-42fe-b425-bf2a3b523691"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[135986, 3763, 295, 4, 53, "Subsection",ExpressionUUID->"6bfecf2e-843b-45a5-8be4-8f6bc9b2f671"],
Cell[136284, 3769, 373, 5, 51, "Text",ExpressionUUID->"852cc1a5-3958-4d77-97b9-c839f3601125"],
Cell[136660, 3776, 908, 23, 31, "Input",ExpressionUUID->"d09a121e-2664-47e7-973a-ab3c219c7728"],
Cell[CellGroupData[{
Cell[137593, 3803, 80, 0, 44, "Subsubsection",ExpressionUUID->"6c7c5d29-d34b-4b56-ba3f-83ca5833850c"],
Cell[137676, 3805, 323, 5, 51, "Text",ExpressionUUID->"969e9933-baa0-461b-ae54-c7361ea3addd"],
Cell[138002, 3812, 415, 11, 32, "Input",ExpressionUUID->"bbb88856-0b13-4d88-8338-1ba540774d97"],
Cell[138420, 3825, 422, 11, 28, "Input",ExpressionUUID->"94de4fd3-c333-43e9-b404-2d2c250a4609"]
}, Closed]],
Cell[CellGroupData[{
Cell[138879, 3841, 80, 0, 44, "Subsubsection",ExpressionUUID->"6ded6e14-42d1-4c65-a028-cfb18b98d317"],
Cell[138962, 3843, 427, 8, 51, "Text",ExpressionUUID->"cd1ae3ff-69ed-4fb8-9027-a1c27c7cfeb9"],
Cell[139392, 3853, 426, 6, 51, "Text",ExpressionUUID->"fffea79f-ad80-4d62-a2a9-efa195b695b1"],
Cell[139821, 3861, 419, 6, 51, "Text",ExpressionUUID->"327004ca-d60d-43dc-86c1-4420559b6e52"],
Cell[140243, 3869, 211, 4, 28, "Input",ExpressionUUID->"e9091489-13b7-4fd9-b6f0-d758eced2128"],
Cell[140457, 3875, 430, 8, 28, "Input",ExpressionUUID->"ec50a4ca-8ea7-4f99-9a5f-408ef699856e"],
Cell[140890, 3885, 262, 6, 28, "Input",ExpressionUUID->"7d0f2d7d-5778-4cd9-b9f2-8f0584ee1409"],
Cell[141155, 3893, 227, 5, 28, "Input",ExpressionUUID->"c907625c-26d8-4699-87aa-c8090c313aae"]
}, Closed]],
Cell[CellGroupData[{
Cell[141419, 3903, 80, 0, 44, "Subsubsection",ExpressionUUID->"30034168-1acc-4da2-843b-5b49c9448bdb"],
Cell[141502, 3905, 484, 9, 74, "Text",ExpressionUUID->"ea9ead14-6553-4e11-93e9-e50823d858f7"],
Cell[141989, 3916, 267, 6, 28, "Input",ExpressionUUID->"de8727da-31b0-4e5e-929a-0517cddd87ca"],
Cell[142259, 3924, 603, 12, 74, "Text",ExpressionUUID->"449b50c7-87c1-44f3-a0de-af8cedf08a2b"],
Cell[142865, 3938, 394, 9, 97, "Text",ExpressionUUID->"4156c84a-9fbc-43ab-8808-12a0b1e8f3aa"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Open  ]]
}
]
*)