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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    157715,       4099]
NotebookOptionsPosition[    125440,       3631]
NotebookOutlinePosition[    126566,       3666]
CellTagsIndexPosition[    126523,       3663]
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 1 (October \
6, 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}},
 FontSize->12,
 Background->None,ExpressionUUID->"ce3fc3e2-c067-4126-8767-5f87fe045881"],

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?",
  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},
 Background->RGBColor[
  1., 0., 0.],ExpressionUUID->"b5a1964b-aa57-4f2f-b36b-b81a5f61a50d"],

Cell[TextData[StyleBox["NB : To open a section of this notebook click on the \
button, if present.\nOtherwise, to open all the cells in a section, select \
them and press ALT + CGO  (or use the menu Cell\[Rule]Grouping\[Rule]Open All \
Subgroups).\[LineSeparator]To select all the cells of the notebooks, use  \
CTRL+A",
 FontSize->12]], "Text",
 CellChangeTimes->{{3.7604539424883003`*^9, 3.760453957356061*^9}, {
  3.760454013424907*^9, 3.760454114084244*^9}, {3.7930014940117555`*^9, 
  3.7930015369808016`*^9}, {3.7931254998270607`*^9, 3.793125554454295*^9}, {
  3.8237946303908854`*^9, 3.8237946717945075`*^9}, {3.8238650468292117`*^9, 
  3.8238650553872647`*^9}, {3.9055146494733753`*^9, 3.9055147386446548`*^9}, {
  3.9055147882224016`*^9, 3.9055148289642267`*^9}, {3.9055717881544695`*^9, 
  3.9055717934542513`*^9}},
 FontSize->14,ExpressionUUID->"edb7b4c4-6b5b-4a25-b6c4-3ffc763af743"],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["1. What is ",
  FontSize->24],
 StyleBox["Mathematica",
  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}},
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"6765ebdc-4916-4573-8682-205b49bf746c"],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Mathematica",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 StyleBox[" ",
  FontSlant->"Italic"],
 "(nowdays:",
 StyleBox[" The Wolfram Language",
  FontSlant->"Italic"],
 ") is a programming language\n\[Dash] extremely versatile\n\[Dash]  \
extremely powerful\n\[Dash] with certain characteristics/limitations/tastes. \
E.g, is a functional language; is interpreted; ..."
}], "Text",
 CellFrame->False,
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.590480322456753*^9, 3.590480348539999*^9}, {
   3.665988480284237*^9, 3.665988512554282*^9}, {3.72884374274714*^9, 
   3.7288437497667093`*^9}, 3.7290563713306975`*^9, {3.7603267901372733`*^9, 
   3.76032681042628*^9}, {3.823794775085413*^9, 3.8237948020269938`*^9}, {
   3.9055151887115917`*^9, 3.905515315533069*^9}, {3.905515561513877*^9, 
   3.9055155742154293`*^9}, {3.905524074940197*^9, 3.9055240864358206`*^9}, {
   3.905577498048093*^9, 3.9055774983526025`*^9}},
 FontFamily->"Times New Roman",
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"7a976594-c453-4906-b5d0-58759bc5e002"],

Cell[TextData[{
 "The basic difference from traditional programming languages (Fortran, C, \
Pascal, Basic,..) and from sofware packages such as Matlab is that these are \
(at least natively) oriented towards numerical computations. \n",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", like other programs (Maple, MuPad, ...) can perform ",
 StyleBox["also",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " symbolic computations."
}], "Text",
 CellFrame->False,
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6974349220337243`*^9, 3.697434923440632*^9}, {
   3.6974349539503503`*^9, 3.6974349743270416`*^9}, 3.7290563713306975`*^9, {
   3.760326861538273*^9, 3.760326937320346*^9}, {3.8237948105685315`*^9, 
   3.8237948232693915`*^9}, {3.905515320395197*^9, 3.9055154331516285`*^9}, {
   3.905515489927515*^9, 3.9055155503194013`*^9}},
 FontFamily->"Times New Roman",
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"7035e16a-706a-455f-bd92-7484eace1569"],

Cell[TextData[Cell[BoxData[{
 FormBox[
  RowBox[{
  "Programs", " ", "of", " ", "this", " ", "type", " ", "are", " ", "known", 
   " ", "with", " ", "various", " ", 
   RowBox[{"names", ":", "\[LineSeparator]", 
    RowBox[{"\[Bullet]", " ", 
     StyleBox[
      RowBox[{"C", 
       StyleBox["omputer",
        FontSlant->"Italic"]}]], 
     StyleBox[" ",
      FontSlant->"Italic"], 
     StyleBox["Mathematics",
      FontSlant->"Italic"], 
     StyleBox[" ",
      FontSlant->"Italic"], 
     StyleBox["Systems",
      FontSlant->"Italic"]}]}]}], TraditionalForm], "\n", 
 FormBox[
  StyleBox[
   RowBox[{"\[Bullet]", " ", "Computer", " ", "Algebra", " ", "Systems"}],
   FontSlant->"Italic"], TraditionalForm], "\n", 
 FormBox[
  StyleBox[
   RowBox[{
   "\[Bullet]", " ", "Symbolic", " ", "Mathematics", " ", "Software", " ", 
    "Packages"}],
   FontSlant->"Italic"], TraditionalForm], "\n", 
 FormBox["...", TraditionalForm]}],
 FontFamily->
  "Times New Roman",ExpressionUUID->"ba89fbb7-3315-4ab5-910c-9d116b3d54cf"]], \
"Text",
 CellFrame->False,
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6219258827253947`*^9, 3.621925883125396*^9}, 
   3.7290563713306975`*^9, {3.76032688227495*^9, 3.7603268824535646`*^9}, {
   3.7604542927818527`*^9, 3.760454292830429*^9}, {3.760454330412013*^9, 
   3.7604543415622125`*^9}, {3.792953487303092*^9, 3.7929534889486876`*^9}, {
   3.905515589425787*^9, 3.905515629200458*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"d5bac1b1-cea2-4bdb-bd53-1aa6ffab938b"],

Cell[TextData[{
 "However, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " is orientated both tho\n\[Bullet] symbolic computations\n\[Bullet] \
numerical computations"
}], "Text",
 CellFrame->False,
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6974349220337243`*^9, 3.697434923440632*^9}, {
   3.6974349539503503`*^9, 3.6974349743270416`*^9}, 3.7290563713306975`*^9, {
   3.760326861538273*^9, 3.7603269522576275`*^9}, 3.823794834346612*^9, {
   3.9055156318641357`*^9, 3.905515670252981*^9}},
 FontFamily->"Times New Roman",
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"3d1cfbe7-9afc-4df3-999c-f31952def1c5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["2. Input-Output  ",
 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.9056550148239064`*^9},
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"f2952bc7-722e-463c-a803-e9d2bc1663bd"],

Cell["\<\
Start Mathematica
(details depend on operation system)\
\>", "Text",
 CellFrame->False,
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5432955978413267`*^9, 3.543295631100585*^9}, {
   3.543629973141719*^9, 3.5436299789761286`*^9}, 3.590483829171503*^9, {
   3.6867153609404826`*^9, 3.6867154381728125`*^9}, {3.697435019128536*^9, 
   3.6974350265977125`*^9}, 3.7290563713306975`*^9, {3.9055158993859053`*^9, 
   3.905515938790106*^9}, {3.905569770375557*^9, 3.905569772671273*^9}},
 Background->GrayLevel[
  0.900008],ExpressionUUID->"92c2962f-4033-4431-8dd1-4cd27312bc15"],

Cell[TextData[{
 "A window with a blank electronic sheet opens: it is called  ",
 StyleBox["notebook",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]]
}], "Text",
 CellChangeTimes->{{3.9056544465591145`*^9, 3.9056544654669476`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"94a75dd8-8967-47e6-94e8-1638b67c422c"],

Cell[TextData[{
 "The typical usage of  ",
 StyleBox["Mathematica\n\[Dash]",
  FontSlant->"Italic"],
 " uses the graphics interface provided by the notebook\n\[Dash] creates a \
file  ",
 StyleBox["*.nb",
  FontSlant->"Italic"],
 "   (called ",
 StyleBox["notebook )  ",
  FontSlant->"Italic"],
 "that can be saved, updated, etc.\n\n(Be careful: ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " does not create backup copies of the notebook; if necessary, save it)"
}], "Text",
 CellFrame->False,
 ShowGroupOpener->False,
 CellChangeTimes->{{3.543295670787055*^9, 3.5432956786494684`*^9}, {
   3.5432972397296104`*^9, 3.5432972731760693`*^9}, 3.7290563713306975`*^9, {
   3.792989402979909*^9, 3.792989409728854*^9}, 3.7929964477458105`*^9, {
   3.8237948545928564`*^9, 3.8237948583552027`*^9}, {3.905515975181534*^9, 
   3.905516132052116*^9}, {3.90556987524199*^9, 3.9055698806814904`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"23014a5c-e5f1-45eb-b828-52c84262230f"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"98b826af-1cb2-4c25-b8ce-cac1c6d8425a"],

Cell[TextData[{
 "A notebook is organized in ",
 StyleBox["cells",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[", which are labelled \[OpenCurlyDoubleQuote]in\
\[CloseCurlyDoubleQuote] and \[OpenCurlyDoubleQuote]out\
\[CloseCurlyDoubleQuote] and are ",
  FontColor->GrayLevel[0]],
 StyleBox["numered ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["progressively:",
  FontColor->GrayLevel[0]],
 "\n\[Dash] you enter your command in an \[OpenCurlyDoubleQuote]",
 StyleBox["IN\[CloseCurlyDoubleQuote] cell",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 "\n",
 StyleBox["    use   ",
  FontSize->12],
 StyleBox["SHIFT ENTER",
  FontSize->12,
  FontWeight->"Bold"],
 StyleBox[" (or ENTER of the numerics keypad)",
  FontSize->12],
 "\n\[Dash] ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " writes the result in an \[OpenCurlyDoubleQuote]",
 StyleBox["OUT\[CloseCurlyDoubleQuote] cell ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 "\n",
 "Examples:"
}], "Text",
 CellFrame->False,
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.7290563713306975`*^9, 3.7929894342230654`*^9, 3.823794864612187*^9, {
   3.90551623618299*^9, 3.905516492003466*^9}, {3.905516537143152*^9, 
   3.9055165847634153`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"18e494c1-e226-4400-aa11-8770df08ecba"],

Cell[BoxData[
 RowBox[{"2", "+", "3"}]], "Input",
 CellChangeTimes->{{3.9055777303203545`*^9, 
  3.9055777316948366`*^9}},ExpressionUUID->"093bed79-e093-41bd-a651-\
ecd3fee39c4d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"01943be2-cd59-4f00-b280-96d577c440de"],

Cell[TextData[{
 "The result, written in the OUT cell, is memorized by ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " and accessible with the command ",
 StyleBox["\n      ",
  FontWeight->"Bold"],
 StyleBox["% cell number\n",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["(Shortenings:",
  FontSize->14],
 StyleBox[" ",
  FontSize->14,
  FontWeight->"Bold"],
 StyleBox["%",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" calls the last OUT, ",
  FontSize->14],
 StyleBox[" ",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["%%",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["  the second to last, etc.)",
  FontSize->14]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.6974350850531845`*^9, 3.6974350957563705`*^9}, 
   3.7290563713306975`*^9, {3.8237948813074646`*^9, 3.823794885266224*^9}, {
   3.905516505253048*^9, 3.9055165328224382`*^9}, {3.9055165953323245`*^9, 
   3.9055166605905013`*^9}, {3.9055167294247656`*^9, 3.9055167642053747`*^9}, 
   3.905569917142583*^9},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"e139d0b9-d9c6-48b3-9e15-ccb38d694138"],

Cell[BoxData["%"], "Input",
 CellChangeTimes->{
  3.793125641701463*^9, {3.823843236338279*^9, 
   3.8238432417144575`*^9}},ExpressionUUID->"5e0cdaeb-a590-408a-bcdf-\
7edaf29b9126"],

Cell[BoxData[
 RowBox[{"3", "+", "%1"}]], "Input",
 CellChangeTimes->{{3.7931256473564067`*^9, 
  3.7931256511055403`*^9}},ExpressionUUID->"586bdcff-2221-43c0-838d-\
2b352b364444"],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.5433133527970457`*^9, 3.5433133572430534`*^9}, 
   3.6974351053980303`*^9, 
   3.7290563713306975`*^9},ExpressionUUID->"da2be8fb-98a4-409b-b2e9-\
5aa3cc617595"],

Cell[TextData[{
 "NB: \n1. Mathematica \[OpenCurlyDoubleQuote]reminds\[CloseCurlyDoubleQuote] \
all outputs until the session is terminated.\n2. \[OpenCurlyDoubleQuote]",
 StyleBox[";",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["\[CloseCurlyDoubleQuote] suppresses the ",
  FontColor->GrayLevel[0]],
 StyleBox["display",
  FontSlant->"Italic",
  FontColor->GrayLevel[0]],
 StyleBox[" of an output, not the assignment.",
  FontColor->GrayLevel[0]]
}], "Text",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6974350850531845`*^9, 3.6974351680458803`*^9}, 
   3.7290563713306975`*^9, {3.905516780663116*^9, 3.9055168702638097`*^9}, 
   3.905569988885844*^9, {3.90557006766092*^9, 3.905570148347768*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"e3a0a9c8-d93c-4663-bc26-3aa73d29019f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=", "1"}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.90557015034077*^9, 
  3.9055701579558954`*^9}},ExpressionUUID->"e8710272-1757-4229-bf6b-\
26a30139349a"],

Cell[BoxData["%"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.9055701604142513`*^9},ExpressionUUID->"a12e749a-971c-4eac-8d52-\
3487a857e340"],

Cell[BoxData["x"], "Code",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.905570162721379*^9, {3.905654627564685*^9, 
   3.9056546373317637`*^9}},ExpressionUUID->"699f23da-7783-44eb-9d5f-\
2c218f447a0b"],

Cell["", "Subsubsection",
 CellGroupingRules->{
  "GroupTogetherGrouping", 
   10000.},ExpressionUUID->"058ef7ee-0b5c-40e3-8aca-019d71992f4a"],

Cell["\<\
Commands may be distributed on more lines (useful, for long expressions), but \
each line except the last must be left \[OpenCurlyDoubleQuote]open\
\[CloseCurlyDoubleQuote] (uncomputable)\
\>", "Text",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.543295873603011*^9, 3.54329591884309*^9}, {
   3.5432959508543468`*^9, 3.5432959645043707`*^9}, {3.5432970312196445`*^9, 
   3.5432971006085663`*^9}, {3.543297309009332*^9, 3.5432973350769777`*^9}, 
   3.7290563713306975`*^9, {3.823794898267085*^9, 3.8237949189252715`*^9}, {
   3.9055168737935767`*^9, 3.905516958745947*^9}, {3.905517008719182*^9, 
   3.905517027203764*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"4730a593-7b39-4fc4-865b-eedd2a31656f"],

Cell[BoxData[
 RowBox[{"x", "=", 
  RowBox[{"2", "+", "\[IndentingNewLine]", "3"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6659923249195623`*^9, 3.6659923352795763`*^9}, 
   3.7290563713306975`*^9, {3.7603387931572485`*^9, 3.760338841977441*^9}, {
   3.7603388771571827`*^9, 3.7603389033357744`*^9}, {3.792996971335982*^9, 
   3.792997051942409*^9}, {3.8238433988500657`*^9, 3.8238434017216682`*^9}, 
   3.8238434556987514`*^9, {3.9055169887081327`*^9, 
   3.9055170051051817`*^9}},ExpressionUUID->"3df308da-af8c-4b6d-b092-\
defc3bcd02aa"],

Cell[BoxData[{
 RowBox[{"x", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"+", "3"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6659923249195623`*^9, 3.6659923352795763`*^9}, 
   3.7290563713306975`*^9, {3.7603387931572485`*^9, 3.760338841977441*^9}, {
   3.7603388771571827`*^9, 3.7603389033357744`*^9}, {3.792996971335982*^9, 
   3.792997051942409*^9}, {3.8238433988500657`*^9, 3.8238434017216682`*^9}, 
   3.8238434556987514`*^9, 
   3.9055169887081327`*^9},ExpressionUUID->"e7eac378-306c-4c29-9206-\
af34da784255"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"b214a463-06b8-4ecc-9363-ef1aceb8042a"],

Cell[TextData[{
 "The result, written in the OUT cell, is memorized by ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " and accessible with the command ",
 StyleBox["\n      ",
  FontWeight->"Bold"],
 StyleBox["% cell number\n",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["(Shortenings:",
  FontSize->14],
 StyleBox[" ",
  FontSize->14,
  FontWeight->"Bold"],
 StyleBox["%",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" calls the last OUT, ",
  FontSize->14],
 StyleBox[" ",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["%%",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["  the second to last, etc.)",
  FontSize->14]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.6974350850531845`*^9, 3.6974350957563705`*^9}, 
   3.7290563713306975`*^9, {3.8237948813074646`*^9, 3.823794885266224*^9}, {
   3.905516505253048*^9, 3.9055165328224382`*^9}, {3.9055165953323245`*^9, 
   3.9055166605905013`*^9}, {3.9055167294247656`*^9, 3.9055167642053747`*^9}, 
   3.905569917142583*^9},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"5120fe07-b321-42a2-a7cd-235ce84b3710"],

Cell[BoxData["%"], "Input",
 CellChangeTimes->{
  3.793125641701463*^9, {3.823843236338279*^9, 
   3.8238432417144575`*^9}},ExpressionUUID->"dd0f049d-7357-4ab0-838d-\
56d4dc7797d9"],

Cell[BoxData[
 RowBox[{"3", "+", "%1"}]], "Input",
 CellChangeTimes->{{3.7931256473564067`*^9, 
  3.7931256511055403`*^9}},ExpressionUUID->"dce8c1f2-ffca-47e1-a51e-\
227a39980178"],

Cell[TextData[{
 "To execute a sequence of commands:\n\n1. Use different input cells\n\n2. \
Use a single input cell, however writing them\n    \[LongDash] on different \
lines \n     and/or \n    \[LongDash] separated by   ",
 StyleBox[";",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "   (",
 StyleBox["I raccomend this: ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 "more readable; formatting might be lost)."
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.543295873603011*^9, 3.54329591884309*^9}, {
   3.5432959508543468`*^9, 3.5432959645043707`*^9}, {3.5432970312196445`*^9, 
   3.543297046320471*^9}, {3.5432971131977882`*^9, 3.54329714854745*^9}, {
   3.5432973478378005`*^9, 3.5432973674002347`*^9}, {3.598952527420698*^9, 
   3.5989525505007305`*^9}, {3.6219260196755867`*^9, 3.621926020865588*^9}, {
   3.6974351966268644`*^9, 3.697435218941388*^9}, 3.7290563713306975`*^9, {
   3.7603272152698593`*^9, 3.7603272443899713`*^9}, {3.7929895582152815`*^9, 
   3.792989590634965*^9}, {3.8237949629625416`*^9, 3.8237949956085367`*^9}, {
   3.905517078458329*^9, 3.9055172892527823`*^9}, {3.905524137467415*^9, 
   3.9055241451713247`*^9}, {3.905570204790449*^9, 3.905570210235876*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"4a7248c4-27a5-4985-824e-398f13c30ccc"],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.7931257378169756`*^9},ExpressionUUID->"3767bf4a-536b-49d6-b82e-\
34678fe348d4"],

Cell[BoxData[{
 RowBox[{"x", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"y", "=", 
  RowBox[{"2", "x"}]}]}], "Input",
 CellChangeTimes->{{3.543297381175059*^9, 3.54329738729027*^9}, 
   3.5904843762800646`*^9, 
   3.7290563713306975`*^9},ExpressionUUID->"1a7a97fa-cc7d-40f3-8af4-\
d8a4229a46ba"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"y", "=", 
  RowBox[{"2", "x"}]}]}], "Input",
 CellChangeTimes->{{3.9055781774222507`*^9, 
  3.9055781776848116`*^9}},ExpressionUUID->"f643f1df-8741-4704-b663-\
3a3337e52f6c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=", "2"}], ";", " ", 
  RowBox[{"y", "=", 
   RowBox[{"2", "x"}]}]}]], "Input",
 CellChangeTimes->{{3.543297381175059*^9, 3.54329738729027*^9}, 
   3.5904843762800646`*^9, 3.5904844081353207`*^9, {3.7288441257668085`*^9, 
   3.7288441284122562`*^9}, 3.7290563713306975`*^9, {3.8237950272228875`*^9, 
   3.823795027800619*^9}, {3.9055173023911996`*^9, 3.9055173027588453`*^9}, {
   3.905524153516818*^9, 
   3.9055241539625406`*^9}},ExpressionUUID->"e6c2119e-23bb-4c87-b353-\
274d0fa7d57b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["3. Architecture of ",
  FontSize->24,
  FontSlant->"Italic"],
 StyleBox["Mathematica",
  FontSize->24,
  FontSlant->"Italic"],
 StyleBox[": Kernel and Front End",
  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.9056550148239064`*^9, 
   3.905655092004068*^9},
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"c543aa15-20f7-43b5-9b4c-51360427fb55"],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " consists of two different programs:\n",
 StyleBox["\[FilledCircle]",
  FontSize->12],
 " The ",
 StyleBox["Kernel, ",
  FontWeight->"Bold"],
 "which executs all the computations\n",
 StyleBox["\[FilledCircle] ",
  FontSize->12],
 " The ",
 StyleBox["Front End",
  FontWeight->"Bold"],
 ", which is the user interface"
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.5433055891408176`*^9, 3.7290563713306975`*^9, 3.823795123737399*^9, {
   3.9055189316165705`*^9, 3.9055190232681427`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"c176086c-4fa2-4a5c-8d4a-42b964cde6d2"],

Cell["\<\
The Kernel is independent of the operating system  \[Rule]  portability of \
programs written in Mathematica
(except for round-off errors, which are platform-dependent)

The Front End is adapted to the various operating systems \[Rule]  small \
differences between different versions.\
\>", "Text",
 CellChangeTimes->{{3.793125869955928*^9, 3.7931258823436575`*^9}, {
   3.823795133411272*^9, 3.823795158788689*^9}, {3.9055190255351105`*^9, 
   3.9055190715405884`*^9}, {3.9055193564745207`*^9, 3.905519476279978*^9}, 
   3.905519722824198*^9, 3.905524298581114*^9, {3.905570245557755*^9, 
   3.9055702518997164`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"5cbbf95b-6b92-45b2-a65d-68ffc6da3b46"],

Cell[TextData[{
 "The user exchanges data with the Front End, which in turn exchanges them \
with the Kernel (which executes them)\n                              ",
 StyleBox["        User \[LeftRightArrow] FrontEnd \[LeftRightArrow] Kernel",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.5433056285308867`*^9, 3.7290563713306975`*^9, {3.905519481722971*^9, 
   3.905519550823864*^9}, {3.905570268851651*^9, 3.905570298135762*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"5cfd502d-ba69-4fcb-b11f-8e37cde25f61"],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{3.823795178878607*^9, 
  3.905570315213107*^9},ExpressionUUID->"f4bec09f-4427-40e6-819f-\
14cbe5b6079c"],

Cell[TextData[{
 StyleBox["Fact :",
  FontWeight->"Bold"],
 "\n     Every command entered in a Notebook is executed elsewhere (in the \
Kernel)\n",
 StyleBox["Corollaries:",
  FontWeight->"Bold"],
 "\n    \[FilledSmallCircle] It doesn\[CloseCurlyQuote]t matter at which \
point of the Notebook a command is written and executed\n    \
\[FilledSmallCircle] It\[CloseCurlyQuote]s only the order of executions of \
the commands that matters: the Kernel numbers them progressively.\n    \
\[FilledSmallCircle] The Kernel \[OpenCurlyDoubleQuote]remembers\
\[CloseCurlyDoubleQuote] an output  even if the corresponding cell (in the \
FrontEnd) is cancelled.\n    \[FilledSmallCircle] Pay attention to \
assignments such as  x = 3 because the Kernel remembers them!"
}], "Text",
 CellChangeTimes->{{3.7931259671212225`*^9, 3.793125970511057*^9}, {
  3.823795181006797*^9, 3.8237952501307216`*^9}, {3.9055196476719217`*^9, 
  3.9055197355135403`*^9}, {3.9055203982529087`*^9, 3.905520507472478*^9}, {
  3.905520554768265*^9, 3.9055205594556*^9}, {3.90552059575928*^9, 
  3.9055207046215425`*^9}, {3.9055243174475613`*^9, 3.9055243414968348`*^9}, {
  3.905570324612235*^9, 3.905570365506172*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"93ef382c-3b45-4446-a886-da198cea598b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{{3.9055703695548086`*^9, 
  3.9055703710884495`*^9}},ExpressionUUID->"15202931-f0c2-4642-978f-\
e0ac61b4396a"],

Cell["\<\
\[FilledSmallCircle] When you close Mathematica, the Kernel is terminated \
\[LongDash] and all its content is lost.
   Instead, a Notebook may be saved as a file and (re)executed once \
Mathematica is restarted.\
\>", "Text",
 CellChangeTimes->{{3.7931259833049316`*^9, 3.7931259901939526`*^9}, {
   3.8237952603778086`*^9, 3.823795287635994*^9}, {3.905520715623576*^9, 
   3.905520816182021*^9}, 3.9055703760185814`*^9},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"f9e96f64-4ea8-4e99-a4d8-19d0d47cb156"],

Cell[TextData[{
 "\[FilledSmallCircle]  Notebooks in use within a given ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " session use (by default) the same Kernel.\n    \[Implies] it does not \
matter in which of them you enter a command (they all \
\[OpenCurlyDoubleQuote]talk\[CloseCurlyDoubleQuote] to the same Kernel)"
}], "Text",
 PageWidth:>Infinity,
 ShowGroupOpener->False,
 CellChangeTimes->{{3.543305655004133*^9, 3.543305718215444*^9}, {
   3.5989528642521696`*^9, 3.5989528672121735`*^9}, {3.697435407127179*^9, 
   3.69743542447222*^9}, 3.7290563713306975`*^9, {3.9055208208985868`*^9, 
   3.905520896338438*^9}, {3.905570384722144*^9, 3.9055704314820337`*^9}},
 TextAlignment->Left,
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"4a50f9f3-fc16-47b6-9746-86659f230427"],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.5433057353598742`*^9, 3.5433057389166803`*^9}, 
   3.7290563713306975`*^9},ExpressionUUID->"81a5a7f5-d198-4d21-a7ba-\
cc7cb6939121"],

Cell[TextData[{
 "Example: execute the command\n  ",
 StyleBox[" x=8.1",
  FontFamily->"Courier New"],
 "\nthen cancel the Input and Output cells and execute the command\n    x"
}], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.6219263461470437`*^9, 3.7290563713306975`*^9, {3.792989793352533*^9, 
   3.792989796320587*^9}, {3.90552091831452*^9, 3.9055209777003393`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"0c16665b-84fe-46b7-9b21-bd715c431d60"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["4. Symbolic computations 1: Operations on polynomials", "Chapter",
 CellChangeTimes->{{3.7603305394751625`*^9, 3.760330552624377*^9}, 
   3.7603305908582544`*^9, {3.760330621878708*^9, 3.7603306472378387`*^9}, {
   3.7603798587701907`*^9, 3.7603798746499395`*^9}, {3.905521259124189*^9, 
   3.9055212592753143`*^9}, {3.905521337611317*^9, 3.905521362836508*^9}, {
   3.905522454249137*^9, 3.9055224549844584`*^9}, {3.905524389268314*^9, 
   3.9055243984433517`*^9}, {3.9055677660821476`*^9, 3.9055677692045207`*^9}},
 FontSize->24,
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"19e84f6a-1117-41a0-a3d0-54abd69bfe1c"],

Cell[TextData[{
 "To give a look at what, and how,  ",
 StyleBox["Mathematica ",
  FontSlant->"Italic"],
 "does, let us begin with ",
 "symbolic computations"
}], "Text",
 CellFrame->False,
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.7290563713306975`*^9, {3.9055213800868587`*^9, 3.905521441930726*^9}, 
   3.905524411327388*^9},ExpressionUUID->"ba621b5e-016c-44be-a6a8-\
e5411eb8ec25"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["4.1 Symbolic operations on polynomials",
 FontSize->24,
 FontColor->GrayLevel[0]]], "Section",
 CellChangeTimes->{{3.7603308525788794`*^9, 3.7603308717124143`*^9}, {
  3.7604544229795322`*^9, 3.7604544318817544`*^9}, {3.9055214612523317`*^9, 
  3.9055214775897026`*^9}},
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"7a80eb35-9cfb-4802-86f2-1ac12f2dc5bb"],

Cell[CellGroupData[{

Cell["Expansions and factorization", "Subsection",
 CellChangeTimes->{{3.9055234601425323`*^9, 
  3.9055235023866158`*^9}},ExpressionUUID->"7da6b9d3-8bdb-4ae0-99cc-\
e5dab38d592a"],

Cell[TextData[{
 "Expansion of a polynomial into monomials, factorization of a polynomial\n   \
  ",
 StyleBox["Expand[ polynomial]",
  FontWeight->"Bold"],
 "\n     ",
 StyleBox["Factor[ polynomial ]\n     \n",
  FontWeight->"Bold"],
 "NB: Here, \[OpenCurlyDoubleQuote]polynomial\[CloseCurlyDoubleQuote] is the \
expression of the polynomial",
 StyleBox["     ",
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.7931260538741693`*^9, 3.7931260538741693`*^9}, 
   3.7931260926620984`*^9, {3.905521483166831*^9, 3.905521518090457*^9}, {
   3.905570478072192*^9, 3.905570528813552*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"02167c78-b208-455a-85bd-1b8646953b95"],

Cell[BoxData[
 RowBox[{"Expand", "[", " ", 
  StyleBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "+", "b", "+", "c"}], ")"}], "^", "3"}],
   FontColor->RGBColor[0, 0, 1]], 
  StyleBox["  ",
   FontColor->RGBColor[0, 0, 1]], "]"}]], "Input",ExpressionUUID->"a9d6f46b-\
a4c4-4c1d-816a-4d4e00c0e827"],

Cell[BoxData[
 RowBox[{"Factor", "[", "%", "]"}]], "Input",ExpressionUUID->"ac4170f6-2975-42bf-87b2-be6f3eff262b"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"4129757f-b643-4e33-9ca8-db349dcb884f"],

Cell[TextData[{
 StyleBox["Notes",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ": \n          1. The arguments of functions are always delimited by square \
brackets    ",
 StyleBox[" [ ]",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "       (NOT  round brackets    ",
 StyleBox[" (  ) ",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[")",
  FontColor->GrayLevel[0]],
 "\n               Examples:  ",
 StyleBox["Sin[x],  Log[3x+1], .....\n               ",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 "\n          2. The names of all native commands in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " are capitalized\n          ",
 "\n          3.  ",
 StyleBox[" (  )",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "  group terms together (as in math) \n \n         4.   ",
 StyleBox["f[x]",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "    is the same as     ",
 StyleBox["f@x",
  FontWeight->"Bold",
  FontColor->RGBColor[1., 0., 0.]],
 "   and    ",
 StyleBox["x//f",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "                   "
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5432974724040194`*^9, 3.543297492356454*^9}, {
   3.590480789942774*^9, 3.590480790332775*^9}, {3.6867155460127115`*^9, 
   3.6867155596611567`*^9}, {3.686717361083518*^9, 3.6867173636181345`*^9}, {
   3.697435488792112*^9, 3.6974355122159557`*^9}, 3.7290563713306975`*^9, {
   3.7603277881845765`*^9, 3.7603278119264164`*^9}, {3.823795389825655*^9, 
   3.8237954261142464`*^9}, 3.905521525794051*^9, {3.9055216496365213`*^9, 
   3.9055217214296503`*^9}, {3.905521760167492*^9, 3.90552188787348*^9}, {
   3.9055219620286074`*^9, 3.9055220187602034`*^9}, {3.9055705493946123`*^9, 
   3.9055705669457483`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"e343e3db-3299-4ddd-afbc-ec0d613faf41"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.793126150649802*^9, 
  3.7931261541026144`*^9}},ExpressionUUID->"677482c8-364a-408a-8b43-\
8f4ca7a002da"],

Cell["\<\
Example: compute cos(\[Pi])

(\[Pi]  is \[OpenCurlyDoubleQuote]Pi\[CloseCurlyDoubleQuote])\
\>", "Text",
 CellChangeTimes->{
  3.6219263461470437`*^9, 3.7290563713306975`*^9, {3.792989793352533*^9, 
   3.792989796320587*^9}, {3.90552091831452*^9, 3.9055209777003393`*^9}, 
   3.9055220796750746`*^9, {3.9055221170858192`*^9, 3.9055221363277287`*^9}, {
   3.9055705774945364`*^9, 3.905570585378411*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"0a4370f2-1112-48bb-98af-565aa6d3bccc"],

Cell[BoxData[
 RowBox[{"ArcSin", "@", 
  RowBox[{"Cos", "[", "Pi", "]"}]}]], "Input",
 CellChangeTimes->{{3.8237954399441414`*^9, 3.823795445129141*^9}, {
  3.823844391152134*^9, 3.823844393135672*^9}, {3.9055220323157625`*^9, 
  3.905522038548396*^9}, {3.9055790691760035`*^9, 
  3.9055790752380447`*^9}},ExpressionUUID->"24cd0b78-49e3-4f33-a700-\
1f9e8700fd39"],

Cell[BoxData[
 RowBox[{"Cos", "@", "Pi"}]], "Input",
 CellChangeTimes->{{3.823795448596713*^9, 3.8237954490866957`*^9}, {
  3.8238444071211147`*^9, 3.823844407279689*^9}, {3.9055220264330893`*^9, 
  3.905522027791785*^9}},ExpressionUUID->"4bc1c1aa-acf6-4bd2-ad47-\
ddb40a86a579"],

Cell[BoxData[
 RowBox[{"Pi", "//", "Cos"}]], "Input",
 CellChangeTimes->{{3.823795452554914*^9, 3.8237954539079833`*^9}, {
  3.9055789804321303`*^9, 
  3.905579001121815*^9}},ExpressionUUID->"1f44108d-4715-4c7a-b128-\
64c68872fa63"],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.7931261793305826`*^9},ExpressionUUID->"ac84e3f4-9fa2-4894-a675-\
b9b0f984ec4a"],

Cell[TextData[{
 "Now compute arcsin(cos(\[Pi]))  \n(arcsin is \[OpenCurlyDoubleQuote]ArcSin\
\[CloseCurlyDoubleQuote]) \nYou can: \n\n- ",
 StyleBox["rewrite",
  FontSlant->"Italic"],
 " everything\n\n- ",
 StyleBox["go back ",
  FontSlant->"Italic"],
 "to one of the previous cells and insert\n      ArcSin[        ....   ]\n    \
  ArcSin@ ... \n      ...  // ArcSin\n\n- ",
 StyleBox["copyand paste  ",
  FontSlant->"Italic"],
 "one of the ",
 "cells and do the same thing"
}], "Text",
 CellChangeTimes->{{3.7603278955280557`*^9, 3.760328040538474*^9}, {
  3.823795475281083*^9, 3.823795492751483*^9}, {3.9055220917649727`*^9, 
  3.905522245910968*^9}, {3.905570598417407*^9, 3.905570640028268*^9}, {
  3.905579028414646*^9, 3.905579031090187*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"e1d346c1-dcab-4ab6-bf72-7da3c0e6f756"],

Cell[BoxData[
 RowBox[{"ArcSin", "[", 
  RowBox[{"Cos", "[", "Pi", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.9055790418073797`*^9, 
  3.9055790579601007`*^9}},ExpressionUUID->"3b703c57-c89a-4ef2-964c-\
1fe8628fb1b6"],

Cell[BoxData[
 RowBox[{"ArcSin", "[", 
  RowBox[{"Cos", "@", "Pi"}], "]"}]], "Input",
 CellChangeTimes->{{3.905570664311809*^9, 3.905570667456295*^9}, 
   3.9055790968812437`*^9},ExpressionUUID->"12d24e1d-44bd-4c7c-bb21-\
fe8d204aca28"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"53a1af50-b3ad-4cda-862f-c0e848b80df2"],

Cell["\<\
The previous expansions and factorizations were easy. 
Let\[CloseCurlyQuote]s try something more challenging:\
\>", "Text",
 CellChangeTimes->{{3.7931262978212614`*^9, 3.793126301164235*^9}, {
   3.8237955159462643`*^9, 3.8237955219770117`*^9}, {3.905522522082883*^9, 
   3.905522579947422*^9}, 3.90557067539462*^9},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"b64dce92-c59b-4999-8e6e-a4805bbeaa20"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"a", "+", "b", "+", "c"}], ")"}], 
   StyleBox["^",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["20",
    FontColor->RGBColor[1, 0, 0]]}], "//", "Expand"}]], "Input",
 CellChangeTimes->{{3.90557069463838*^9, 3.905570694716486*^9}, {
  3.9055791361678295`*^9, 
  3.9055791729815245`*^9}},ExpressionUUID->"7d0de161-24fc-4bcd-9586-\
9a78b8e8b8e9"],

Cell[BoxData[
 RowBox[{"%", "//", "Factor"}]], "Input",ExpressionUUID->"e98e500e-8636-408a-aaff-d5346492dbe4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"6e38d530-f7d1-44cc-a1ae-629397b70b1e"],

Cell["Something even more challenging?", "Text",
 CellChangeTimes->{{3.7931262978212614`*^9, 3.793126301164235*^9}, {
   3.8237955159462643`*^9, 3.8237955219770117`*^9}, {3.905522522082883*^9, 
   3.905522579947422*^9}, 3.90557067539462*^9, {3.9055707418091745`*^9, 
   3.9055707470485897`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"03ca60a3-8111-4791-b921-e1c762e23ae0"],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"a", "+", "b", "+", "c"}], ")"}], 
   StyleBox["^",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["200",
    FontColor->RGBColor[1, 0, 0]]}], 
  StyleBox["]",
   FontColor->RGBColor[1, 0, 0]]}]], "Input",
 CellChangeTimes->{{3.905579395562118*^9, 
  3.905579400730749*^9}},ExpressionUUID->"493342ca-0e04-4265-9596-\
5ebc467e3a39"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "Subsubsection",
 CellChangeTimes->{
  3.823844715551557*^9, {3.823844805231214*^9, 3.8238448415590453`*^9}, 
   3.9055226075269966`*^9, {3.9055707527386513`*^9, 
   3.9055707658489947`*^9}},ExpressionUUID->"eeb96acb-f003-4e44-b349-\
84d34e1866a7"],

Cell["\<\
If the output is very large, a shortened text is shown (this prevents long \
transfer times from the Kernel to the FrontEnd) \
\>", "Text",
 CellChangeTimes->{{3.9055226270251827`*^9, 3.905522665733447*^9}, {
  3.905522723343988*^9, 3.905522747347511*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"e14e0501-93ae-4e63-a690-fd8061f3cd4f"],

Cell[BoxData[
 RowBox[{"Factor", "@", "%"}]], "Input",ExpressionUUID->"9ad4d311-4fad-4c0f-9593-9e1dda46678a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",ExpressionUUID->"1e21503c-c395-46a5-bedb-0c4567b625c4"],

Cell[TextData[{
 StyleBox["Note: ",
  FontWeight->"Bold"],
 "A",
 "n output may be very (even extremely) large\n   \[Bullet] In such a case, ",
 StyleBox["if possible",
  FontSlant->"Italic"],
 ", ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " shows a shortened version.  \n   \[Bullet] However, it might happen that \
the program becomes unresponsive (and even crashes).\n   \[Bullet] If in \
doubt test all codes  with small numbers\n\n To reduce the size of the \
FrontEnd, it may also be useful \n   \[Bullet] suppress the output  with \
\[OpenCurlyDoubleQuote]:\[CloseCurlyDoubleQuote] \n   \[Bullet] cancel the \
output cell (results remains  memorized)"
}], "Text",
 CellChangeTimes->{{3.7931263720604825`*^9, 3.7931263748571424`*^9}, {
   3.823795578633686*^9, 3.8237956015768614`*^9}, {3.90552282030928*^9, 
   3.9055229270167027`*^9}, {3.9055230050557632`*^9, 
   3.9055230937359605`*^9}, {3.905523385704773*^9, 3.9055234426074677`*^9}, 
   3.9055235134514446`*^9, {3.9055707910199995`*^9, 3.9055708491107044`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"447d0690-83de-4e35-85e6-8d553673c641"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[OpenCurlyDoubleQuote]Symplifying\[CloseCurlyDoubleQuote] polynomials \
and expressions", "Subsection",
 CellChangeTimes->{{3.9055234601425323`*^9, 3.9055235023866158`*^9}, {
  3.905523534718034*^9, 
  3.9055235629957232`*^9}},ExpressionUUID->"aa992332-dcbb-4b50-b0f5-\
5a1974f80ab8"],

Cell[TextData[{
 "- ",
 StyleBox["Simplify[expression]",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\n- ",
 StyleBox["FullSimplify[expression]",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.7290563713306975`*^9, {3.8238649958126645`*^9, 3.8238649996033125`*^9}, 
   3.905523565651561*^9},
 FontWeight->"Plain",
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"fd2af709-cd0d-46d6-bb8f-16579a0f5d05"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"3cf922d2-8d4b-4ded-a7ff-872649c956e8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", "b", "+", "c"}], ")"}], "5"], "-", "1"}], " ", "//", 
  "Factor"}]], "Input",ExpressionUUID->"b5df98f1-f31d-4031-be74-760651b62938"],

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input",ExpressionUUID->"f9406ac3-ae3f-41f0-bcbb-d7ff93daa500"],

Cell[BoxData[
 RowBox[{"%%", "//", "FullSimplify"}]], "Input",ExpressionUUID->"5362d426-e39f-4e17-96fc-e7a722ba8e06"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", "x", "]"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "x", "]"}], "2"]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.9055795503331575`*^9, 
  3.9055795672589507`*^9}},ExpressionUUID->"078579ee-08fb-4482-9716-\
7b77303710f8"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["4.2 ",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox["Solutions of equations (Solve, NSolve, FindRoot)",
  FontColor->GrayLevel[0]]
}], "Section",
 CellChangeTimes->{{3.7603308525788794`*^9, 3.7603308717124143`*^9}, {
  3.7604544229795322`*^9, 3.7604544318817544`*^9}, {3.760454463876953*^9, 
  3.760454470364952*^9}, {3.823864950756915*^9, 3.823864951334132*^9}, {
  3.905523706669627*^9, 3.9055237243250885`*^9}},
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"7914dbf5-7d2b-4f60-92e5-32f2cecbf038"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["4.2.1 Exact solutions of algebraic equations",
 FontColor->GrayLevel[0]]], "Subsection",
 CellChangeTimes->{{3.760330922440173*^9, 3.760330931640731*^9}, {
  3.7604545055616674`*^9, 3.7604545114790196`*^9}, {3.9055237446057816`*^9, 
  3.9055238161246433`*^9}},
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"c10ca115-c414-46b5-ac81-300bdbe1e852"],

Cell[TextData[{
 "Roots of polynomials:\n     ",
 StyleBox["Solve[polynomial == 0,variables]\n",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "or ",
 StyleBox["\n",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "     ",
 StyleBox["Solve[polynomial1 == polynomial2, variables]\n\n",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["NB:   ",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox["==    not    =\n",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox["(using \[OpenCurlyDoubleQuote]=\[CloseCurlyDoubleQuote] \[Implies] \
disaster!) ",
  FontFamily->"Terminal",
  FontColor->GrayLevel[0]]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.543306201942094*^9, 3.5433062610037975`*^9}, {
   3.543306294403456*^9, 3.5433063123122873`*^9}, 3.7290563713306975`*^9, {
   3.823795745323236*^9, 3.8237957662744107`*^9}, {3.9055244772989674`*^9, 
   3.9055245937062006`*^9}, {3.9055708870555525`*^9, 3.9055709246377296`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"84cbae44-9dc4-4267-992f-e692a55caf9c"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    StyleBox[
     RowBox[{
      RowBox[{"x", "^", "3"}], "-", 
      RowBox[{"2", "x"}], "+", "1"}],
     FontColor->RGBColor[0, 0, 1]], 
    StyleBox["==",
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox["0",
     FontColor->RGBColor[0, 0, 1]]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.8237957715795145`*^9, 3.823795772605183*^9}, 
   3.8239257421513233`*^9, {3.823925836969754*^9, 3.8239258381981106`*^9}, {
   3.9055245972678094`*^9, 3.905524598486187*^9}, 
   3.9055709757423506`*^9},ExpressionUUID->"a9fca86d-2c00-4ef9-9015-\
6f6043644f91"],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.793126838578541*^9},ExpressionUUID->"d4b5f038-430f-4418-9916-\
528da0adb3d6"],

Cell["\<\
What\[CloseCurlyQuote]s happening?  
We had assigned a value to the symbol x !\
\>", "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.729056371346322*^9, {3.760328588017545*^9, 3.7603285934410863`*^9}, {
   3.7603288129866776`*^9, 3.7603288568137164`*^9}, 3.7931268942998557`*^9, {
   3.905524604673766*^9, 3.9055246324332404`*^9}, 3.905570950925641*^9, {
   3.9055709896189127`*^9, 3.9055709953403234`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"781e39c0-cf47-405e-87a3-485dd0bc3057"],

Cell[BoxData["x"], "Input",
 CellChangeTimes->{
  3.793126996273836*^9},ExpressionUUID->"75d29fbe-4024-42c6-9982-\
0a5b17febb3d"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["",
 FontFamily->"Terminal",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]]], "Subsubsection",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.729056371346322*^9, {3.7603287839185247`*^9, 3.7603288217510147`*^9}, {
   3.905524733641712*^9, 3.9055247500696354`*^9}, {3.9055710223209147`*^9, 
   3.9055710243883853`*^9}, {3.9055799052436166`*^9, 3.90557990654643*^9}, 
   3.9056552461973414`*^9},ExpressionUUID->"e2dca5e5-01a7-4f10-ad70-\
6aa84bf3c7cb"],

Cell[TextData[{
 "We need to cancel it:\n       ",
 StyleBox["Clear[ symbols ]",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.729056371346322*^9, {3.7603287839185247`*^9, 3.7603288217510147`*^9}, {
   3.905524733641712*^9, 3.9055247500696354`*^9}, {3.9055710223209147`*^9, 
   3.9055710243883853`*^9}, {3.9055799052436166`*^9, 3.90557990654643*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"36f47bc1-b1e9-41d0-a2b1-df02bfe8437a"],

Cell[BoxData[
 RowBox[{
  StyleBox["Clear",
   FontColor->RGBColor[1, 0, 0]], "[", "x", "]"}]], "Input",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.729056371346322*^9},ExpressionUUID->"c6e8df27-60b2-483a-bc45-\
46405c160576"],

Cell[BoxData["x"], "Input",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.729056371346322*^9},ExpressionUUID->"e2f2bb8a-186e-4297-958c-\
e7d1a7087b57"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   StyleBox[
    RowBox[{
     RowBox[{
      SuperscriptBox["x", "3"], "-", 
      RowBox[{"2", "x"}], "+", "1"}], "==", "0"}],
    FontColor->RGBColor[0, 0, 1]], ",", "x"}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.5989572379345613`*^9, 3.6659951147644677`*^9, {3.665995289274712*^9, 
   3.665995289914713*^9}, 3.6974450418533487`*^9, {3.69744519238494*^9, 
   3.6974451936293955`*^9}, {3.697445225882925*^9, 3.697445228446433*^9}, 
   3.729056371346322*^9, {3.760341088415078*^9, 
   3.760341089186864*^9}},ExpressionUUID->"e7f09a8a-c0a0-4eda-aea4-\
e8227f0729d4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"x", "/.", "%"}]], "Input",
 CellChangeTimes->{{3.9055800897635813`*^9, 
  3.9055800922979565`*^9}},ExpressionUUID->"dd33098b-dbd5-4698-8956-\
e389260331af"],

Cell[BoxData[
 RowBox[{"x", "/.", 
  RowBox[{"Solve", "[", 
   RowBox[{
    StyleBox[
     RowBox[{
      RowBox[{
       SuperscriptBox["x", "3"], "-", 
       RowBox[{"2", "x"}], "+", "1"}], "==", "0"}],
     FontColor->RGBColor[0, 0, 1]], ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.9055801099415617`*^9, 
  3.905580110328026*^9}},ExpressionUUID->"e1403c0f-ca08-4950-a4d1-\
81c880a506f7"],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{3.7931271503968596`*^9, 
  3.905571041609064*^9},ExpressionUUID->"dba6ec31-c412-4fae-8372-\
d6b9260f860e"],

Cell[TextData[{
 StyleBox["???\n\nSolve returns a ",
  FontSize->14],
 StyleBox["list of \"substituting rules\"",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" : the list of values which, substituted to the variable, satisfy \
the equation.\n(We will see laer how to work with lists and substitution \
rules)",
  FontSize->14]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.729056371346322*^9, {3.9055247597142925`*^9, 3.905524862488954*^9}, {
   3.9055672493819876`*^9, 3.9055672513549185`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"374c77aa-0b0e-4486-b986-5c1f84fb8d75"]
}, Open  ]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{3.7931271208080845`*^9, 
  3.905571038666977*^9},ExpressionUUID->"72be0a20-b0c8-432e-8f95-\
dea9e0787572"],

Cell[TextData[{
 StyleBox["The list of roots is obtained with\n  ",
  FontSize->14],
 "        ",
 StyleBox["x  /.  Solve[equazione, x]",
  FontWeight->"Bold"],
 StyleBox[" \n(\[OpenCurlyDoubleQuote]expression /.\[CloseCurlyDoubleQuote] \
means \[OpenCurlyDoubleQuote]replaces expression with what follows\
\[CloseCurlyDoubleQuote])          ",
  FontSize->14]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.6867157189411077`*^9, 3.6867157919073305`*^9}, {
   3.686715831823976*^9, 3.686715867544468*^9}, 3.729056371346322*^9, {
   3.7603289539662504`*^9, 3.7603289937529373`*^9}, {3.9055248701257544`*^9, 
   3.905524953803507*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"0ce8d30e-4175-468a-afd4-8e20fd9f0b95"],

Cell[BoxData[
 RowBox[{"x", "/.", "%"}]], "Input",
 CellChangeTimes->{{3.8239263105169373`*^9, 3.823926311453021*^9}, 
   3.905524966156499*^9},ExpressionUUID->"01244f8f-0427-4721-9860-\
58b436737825"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"5dc6fcb9-61c3-4f9b-abfc-d7edabb2df08"],

Cell["\<\
Might seem strange, but there is a logic.
E.g., we can work with all the roots at once:\
\>", "Text",
 CellChangeTimes->{{3.793127230648205*^9, 3.793127246754342*^9}, {
   3.9055250507169385`*^9, 3.9055251227525826`*^9}, {3.905571070838894*^9, 
   3.905571071439517*^9}, 3.9055711049563246`*^9},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"cb12a38e-d0b2-4e2a-8a84-c5718ca3db6d"],

Cell[TextData[StyleBox["To avoid re-computing each time the solutions, give \
it a name:",
 FontSize->14]], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.6867157189411077`*^9, 3.6867157919073305`*^9}, {
   3.686715831823976*^9, 3.6867159317835135`*^9}, 3.729056371346322*^9, {
   3.76032907057631*^9, 3.760329080535612*^9}, {3.9055249839963017`*^9, 
   3.9055250192291856`*^9}, {3.9055672353696175`*^9, 3.9055672410870314`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"a7f2617a-2fdd-4f77-a3bf-9b76e4b0601e"],

Cell[BoxData[
 RowBox[{"sol", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    StyleBox[
     RowBox[{
      RowBox[{
       SuperscriptBox["x", "3"], "-", 
       RowBox[{"2", "x"}], "+", "1"}], "==", "0"}],
     FontColor->RGBColor[0, 0, 1]], ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.760329088441563*^9, 3.760329099572587*^9}, {
  3.760329146142915*^9, 3.760329151900501*^9}, {3.7604219909693613`*^9, 
  3.7604220054279327`*^9}},ExpressionUUID->"81dbd45e-3d02-4f31-81f2-\
37af428b5a7c"],

Cell[BoxData[
 RowBox[{"x", "/.", "sol"}]], "Input",
 CellChangeTimes->{{3.8239264173114414`*^9, 
  3.8239264190372267`*^9}},ExpressionUUID->"efe74917-4583-4467-8c78-\
2421b9e26d69"],

Cell["Add 1 to all roots:", "Text",
 CellChangeTimes->{{3.7603295370690403`*^9, 3.7603295457579284`*^9}, {
   3.760376606132143*^9, 3.7603766078962584`*^9}, {3.9055251355058575`*^9, 
   3.905525146041724*^9}, 3.905571074918255*^9},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"b3c10051-42cc-4ce6-861a-12c082c4100f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "+", "1"}], "/.", "sol"}]], "Input",
 CellChangeTimes->{{3.5989575534160028`*^9, 3.598957554946005*^9}, {
   3.5989576230261*^9, 3.598957625586104*^9}, 
   3.729056371346322*^9},ExpressionUUID->"0f836bd8-4d2a-4285-8f6a-\
541e8575e2b5"],

Cell["or compute their square", "Text",
 CellChangeTimes->{{3.7603295370690403`*^9, 3.760329575931087*^9}, {
  3.7603766210424423`*^9, 3.760376628301451*^9}, {3.905525151200141*^9, 
  3.9055251592425585`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"e5f5b87b-48b2-44a2-be49-e76a35feed6d"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   SuperscriptBox["x", "2"], " ", "/.", "sol"}]}]], "Input",
 CellChangeTimes->{{3.590486403441225*^9, 3.590486415500046*^9}, {
   3.598953020132388*^9, 3.598953037602412*^9}, {3.5989574045257945`*^9, 
   3.598957406455797*^9}, {3.665995285284706*^9, 3.665995285444707*^9}, {
   3.665995318544753*^9, 3.6659953188847537`*^9}, {3.686715808625101*^9, 
   3.6867158090410957`*^9}, 3.729056371346322*^9, {3.793000412406275*^9, 
   3.793000416675432*^9}, {3.823795892136541*^9, 
   3.8237958953079853`*^9}},ExpressionUUID->"9e6ed086-62de-4089-a486-\
a8f23e143e61"],

Cell["or check that they sastisfy the equation:", "Text",
 CellChangeTimes->{{3.7603295370690403`*^9, 3.7603295457579284`*^9}, {
   3.7603295907461076`*^9, 3.7603295989259872`*^9}, {3.760376632442566*^9, 
   3.7603766383664117`*^9}, 3.79312725817354*^9, {3.905525161982544*^9, 
   3.905525177317422*^9}, 3.9055255949055614`*^9},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"1c3ab493-8a73-40bd-b021-b3cf5da93ce9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["x", "3"], "-", 
   RowBox[{"2", "x"}], "+", "1"}], "/.", "sol"}]], "Input",ExpressionUUID->\
"5b8e3a49-c3fa-4a63-a23f-dda0f54c9fee"],

Cell["???", "Text",
 CellChangeTimes->{{3.9055251951977854`*^9, 3.9055251976644115`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"f968fa85-faa0-4b5c-99c2-81a9ddc15e11"]
}, Open  ]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{{3.823795902984303*^9, 
  3.823795906131551*^9}},ExpressionUUID->"f7200fad-993e-4ff5-9c7e-\
a779a70039f4"],

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input",ExpressionUUID->"c4eabd73-5687-4b90-bd43-134e49519d6e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"df16ed39-5d72-4da7-812b-8b12cdb20673"],

Cell["Other example", "Text",
 CellChangeTimes->{{3.7603295370690403`*^9, 3.7603295457579284`*^9}, {
   3.7603295907461076`*^9, 3.7603295989259872`*^9}, {3.760376632442566*^9, 
   3.7603766383664117`*^9}, 3.79312725817354*^9, {3.905525161982544*^9, 
   3.905525177317422*^9}, 3.9055255949055614`*^9, {3.9055256384742355`*^9, 
   3.9055256411375437`*^9}, {3.9055711322930193`*^9, 3.9055711476220264`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"b219e594-60af-4dc3-95e1-c3b905f89427"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "3"], "+", 
     SuperscriptBox["x", "2"], "-", "1"}], "\[Equal]", "0"}], ",", "x", ",", 
   " ", 
   RowBox[{"Cubics", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9055256529439077`*^9, 3.9055256607105007`*^9}, {
  3.905580566356246*^9, 
  3.9055805751163034`*^9}},ExpressionUUID->"c1dcd22c-013d-47df-917f-\
3efd23ab24a8"],

Cell["???", "Text",
 CellChangeTimes->{{3.9055251951977854`*^9, 3.9055251976644115`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"6589b23b-990b-4438-b885-44bac297671b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"c9dce9b1-793b-42e0-87ff-23b99ba7c635"],

Cell[TextData[{
 "In the last versions (beginning with v. 12), to prevent large outputs, by \
default  ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " does not give the complete expressions of the zeroes of polynomials of \
third and fourth degree if they involve roots.\nNeed ask ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to do it:"
}], "Text",
 CellChangeTimes->{{3.7931273143478265`*^9, 3.7931273179934187`*^9}, 
   3.8237959187144413`*^9, {3.823796317718635*^9, 3.823796381106271*^9}, {
   3.823796529292101*^9, 3.823796613980673*^9}, {3.9055254714661026`*^9, 
   3.9055254942062044`*^9}, {3.9055255836128306`*^9, 3.905525585072191*^9}, {
   3.9055257080743566`*^9, 3.9055258294331837`*^9}, {3.9055259238115444`*^9, 
   3.9055259586713285`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"2634a843-252f-4207-9a15-7bffc99445d6"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "3"], "+", 
     SuperscriptBox["x", "2"], "-", "1"}], "\[Equal]", "0"}], ",", "x", 
   StyleBox[",",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox[
    RowBox[{"Cubics", "->", "True"}],
    FontColor->RGBColor[1, 0, 0]]}], "]"}]], "Input",
 CellChangeTimes->{{3.9055256529439077`*^9, 3.9055256607105007`*^9}, {
  3.9055258455516267`*^9, 3.905525859436041*^9}, {3.905525964388549*^9, 
  3.9055259656929607`*^9}},ExpressionUUID->"e7c1c91b-0994-488b-82fc-\
96c46b2e0762"],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.793127313238716*^9},ExpressionUUID->"f41b611b-91c7-4cf2-aea7-\
56db0bca8590"],

Cell["Of course, solutions may be complicated ", "Text",
 CellChangeTimes->{{3.7931273143478265`*^9, 3.7931273179934187`*^9}, 
   3.8237959187144413`*^9, {3.823796317718635*^9, 3.823796381106271*^9}, {
   3.823796529292101*^9, 3.823796613980673*^9}, {3.9055254714661026`*^9, 
   3.9055254942062044`*^9}, {3.9055255836128306`*^9, 3.905525585072191*^9}, {
   3.905525971788732*^9, 3.905525972692588*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"61445c34-259c-43be-bafe-11375a931eaa"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "4"], "-", 
     SuperscriptBox["x", "3"], "+", "1"}], "\[Equal]", "0"}], ",", "x", ",", 
   StyleBox[
    RowBox[{"Quartics", "->", "True"}],
    FontColor->RGBColor[1, 0, 0]]}], "]"}]], "Input",
 CellChangeTimes->{{3.823795939824458*^9, 3.82379594023322*^9}, {
  3.8237962572884274`*^9, 3.823796261397358*^9}, {3.8237966194160357`*^9, 
  3.823796624568531*^9}, {3.823796696225629*^9, 3.8237967101370444`*^9}, {
  3.823926842141082*^9, 3.823926842643599*^9}, {3.823926994204137*^9, 
  3.8239270066130085`*^9}, {3.8239271173077836`*^9, 
  3.823927118651171*^9}},ExpressionUUID->"120db295-f4f4-464e-a13a-\
51dc53cd6991"],

Cell["or Solve might not be able to compute them:", "Text",
 CellChangeTimes->{{3.793127341010559*^9, 3.7931273462129517`*^9}, {
  3.8237959714792085`*^9, 3.823795978887618*^9}, {3.905525984669467*^9, 
  3.9055259976476803`*^9}, {3.9055260311597824`*^9, 3.905526038901498*^9}, {
  3.905571186383304*^9, 3.905571195073942*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"1150978e-d69d-4137-81f4-9f6081540106"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["pippo", "7"], "-", 
     RowBox[{"a", " ", 
      SuperscriptBox["pippo", "3"]}], "+", "1"}], "\[Equal]", "0"}], ",", 
   "pippo"}], "]"}]], "Input",
 CellChangeTimes->{{3.905580705923579*^9, 
  3.9055807206251535`*^9}},ExpressionUUID->"b4054aca-71ba-47aa-a4ce-\
e2db9353adfa"],

Cell[BoxData[
 RowBox[{"sol7", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      SuperscriptBox["x", "7"], "-", 
      RowBox[{"a", " ", 
       SuperscriptBox["x", "3"]}], "+", "1"}], "\[Equal]", "0"}], ",", "x"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{
  3.823796659032815*^9, {3.9055260147258115`*^9, 3.905526058567066*^9}, {
   3.9055262096027412`*^9, 3.905526211843545*^9}, {3.905566966404463*^9, 
   3.905566968365494*^9}},ExpressionUUID->"77709b3f-934c-4d3e-941a-\
aafd05d2b0cb"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"bbbcc32a-2b49-433a-96c3-064339510ed8"],

Cell[TextData[{
 "In such a case, however, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \"knows something\" on the solutions"
}], "Text",
 CellChangeTimes->{{3.7931273622366133`*^9, 3.79312736611122*^9}, {
  3.823796645265215*^9, 3.8237966491422005`*^9}, {3.9055260713554068`*^9, 
  3.905526076417919*^9}, {3.9055261373823137`*^9, 3.9055261739772625`*^9}, {
  3.905571210335868*^9, 3.9055712126065474`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"9597f673-d175-446d-b217-d5513640ce74"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["x", "7"], "-", 
    RowBox[{"a", " ", 
     SuperscriptBox["x", "3"]}], "+", "1"}], ")"}], "/.", "sol7"}]], "Input",
 CellChangeTimes->{
  3.82379666237568*^9, {3.823927363395379*^9, 3.8239273680832214`*^9}, {
   3.9055261876992807`*^9, 3.9055262233160615`*^9}, {3.905566976978324*^9, 
   3.9055669774155827`*^9}},ExpressionUUID->"6a5ab084-fe04-4f3d-9ca3-\
5d6e619be5b5"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"%", "//", " ", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.905526217119339*^9, 
  3.9055262259410734`*^9}},ExpressionUUID->"07c0b941-03c5-4b13-ab1a-\
f89279b1cd69"],

Cell[TextData[{
 StyleBox["and can ",
  FontSize->14],
 StyleBox["evaluate them numerically  ",
  FontSize->14,
  FontWeight->"Bold"],
 StyleBox["if the coefficients are numbers  (",
  FontSize->14],
 StyleBox[" sol7 /. a\[Rule]2  ",
  FontSize->14,
  FontWeight->"Bold"],
 StyleBox["e.g.",
  FontSize->14],
 StyleBox[" )\n  ",
  FontSize->14,
  FontWeight->"Bold"],
 StyleBox["        ",
  FontSize->14],
 StyleBox["N[expression]  ",
  FontSize->14,
  FontWeight->"Bold"],
 StyleBox[":  evaluates numericaly \[OpenCurlyDoubleQuote]expression\
\[CloseCurlyDoubleQuote]",
  FontSize->14]
}], "Text",
 CellChangeTimes->{{3.793127403508167*^9, 3.793127428526912*^9}, {
  3.9055262359558287`*^9, 3.905526294644453*^9}, {3.90556699616059*^9, 
  3.9055670614169636`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"f08a1623-083a-4327-928b-3b544ed248f5"],

Cell[BoxData[
 RowBox[{"N", "[", "Pi", "]"}]], "Input",
 CellChangeTimes->{{3.9055808759818387`*^9, 
  3.905580877241676*^9}},ExpressionUUID->"da5fad06-0091-491c-a8f7-\
c5cd9d506e81"],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"x", "/.", "sol7"}], "]"}]], "Input",
 CellChangeTimes->{{3.905580895434712*^9, 
  3.905580910888471*^9}},ExpressionUUID->"c88b77bf-ff8d-44e3-937a-\
cc46897d0f99"],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"sol7", "/.", 
   RowBox[{"a", "->", "2"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.8237966802625895`*^9, {3.823796736093367*^9, 3.8237967375692043`*^9}, {
   3.823927305955136*^9, 3.823927308266883*^9}, {3.9055263018862295`*^9, 
   3.9055263023033295`*^9}, {3.905566990599435*^9, 
   3.9055669926770744`*^9}},ExpressionUUID->"12ec1a87-2144-4e76-b47b-\
bcbbf7feca79"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["4.2.2 Numerical (\[Implies] approximate) solutions of \
algebraic equations",
 FontColor->GrayLevel[0]]], "Subsection",
 CellChangeTimes->{{3.760330922440173*^9, 3.760330931640731*^9}, {
  3.7604545055616674`*^9, 3.760454564754893*^9}, {3.9055237468526*^9, 
  3.9055237470355153`*^9}, {3.9055237906943417`*^9, 3.905523821522744*^9}},
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"bbccefde-8be9-4d90-a5c8-5ec81a3c15b2"],

Cell[TextData[{
 StyleBox["Search of numerical (\[Implies] approximated) roots of algebraic \
equations with numerical coefficients:\n     ",
  FontSize->14],
 StyleBox["NSolve[equation,variables]",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 ":"
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.621926585067378*^9, 3.6219265866973805`*^9}, {
   3.7288447075431557`*^9, 3.7288447125091205`*^9}, 3.729056371346322*^9, {
   3.905566944919795*^9, 3.9055669556167817`*^9}, {3.905567069726894*^9, 
   3.905567133932641*^9}, 3.9055672681109915`*^9},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"2fd39633-40d2-4bbe-b316-03863e171a2f"],

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "5"], "-", 
     SuperscriptBox["x", "3"], "+", "1"}], "\[Equal]", "0"}], ",", "x"}], 
  "]"}]], "Input",ExpressionUUID->"5150b380-7673-4d76-bf1c-8b1481864186"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.905581016847704*^9, 
  3.90558102063312*^9}},ExpressionUUID->"cf1d494f-719b-42a6-9975-\
eca31b57f6f4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["4.2.3 Numerical  solutions of (even non algebraic) \
equations",
 FontColor->GrayLevel[0]]], "Subsection",
 CellChangeTimes->{{3.760330922440173*^9, 3.760330931640731*^9}, {
  3.7604545055616674`*^9, 3.7604545363681707`*^9}, {3.760454567309761*^9, 
  3.7604545729458714`*^9}, {3.905523757100005*^9, 3.905523757285389*^9}, {
  3.905523830966772*^9, 3.9055238603296957`*^9}},
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"b2a556a4-a546-4f12-a201-819366799859"],

Cell[TextData[{
 StyleBox["Search of numerical solution of an (even trascendental) equation, ",
  FontSize->14],
 StyleBox["near a point",
  FontSize->14,
  FontSlant->"Italic"],
 StyleBox[":\n      ",
  FontSize->14],
 StyleBox["FindRoot[ equation , ",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["{variable , initialization point}  ",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["]",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.729056371346322*^9, {3.8239277194498606`*^9, 3.823927740544938*^9}, {
   3.905567290665847*^9, 3.905567399973934*^9}, {3.905571251347976*^9, 
   3.9055712551479473`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"29d552e2-a478-4a3d-8c1d-f132c236838d"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"c632589e-aa67-4d1b-ae04-cee5ba048b79"],

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "\[Equal]", 
    FractionBox["x", "2"]}], ",", 
   StyleBox["x",
    FontColor->RGBColor[1, 0, 0]]}], "]"}]], "Input",
 CellChangeTimes->{{3.792991479747476*^9, 3.7929914899168987`*^9}, {
  3.905567458270241*^9, 
  3.9055674594101224`*^9}},ExpressionUUID->"fbe6e222-c7a1-4393-9dd5-\
431630ec43b3"],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.905581119526491*^9},ExpressionUUID->"807e85aa-5fad-4a56-9580-\
11f04c10216b"],

Cell[BoxData[
 RowBox[{"FindRoot", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "\[Equal]", 
    FractionBox["x", "2"]}], ",", 
   StyleBox[
    RowBox[{"{", 
     RowBox[{"x", ",", "1.5"}], "}"}],
    FontColor->RGBColor[1, 0, 0]]}], "]"}]], "Input",
 CellChangeTimes->{
  3.905567424759245*^9, {3.90556746315669*^9, 
   3.905567464282143*^9}},ExpressionUUID->"883a13c3-73b3-41d6-b258-\
35cfc74ddd65"]
}, Open  ]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{3.793127605385867*^9, 
  3.905571329457068*^9},ExpressionUUID->"4aea4f2d-d10f-4917-909a-\
d2eb1f816b2c"],

Cell[TextData[{
 "Correct?\nPlot the graphs of sin(x) and ",
 Cell[BoxData[
  FormBox[
   FractionBox["x", "2"], TraditionalForm]],ExpressionUUID->
  "74d56b8e-707c-4ba1-acb5-9f70770a6215"],
 ", e.g. in the interval  (-\[Pi], \[Pi])"
}], "Text",
 CellChangeTimes->{{3.793127606526216*^9, 3.793127610087888*^9}, {
  3.823796777039627*^9, 3.823796779116452*^9}, {3.9055674677177763`*^9, 
  3.905567530983594*^9}, {3.905571262726794*^9, 
  3.9055712670405936`*^9}},ExpressionUUID->"e4501803-38ae-4651-99f2-\
dda6b0a744a4"],

Cell[TextData[{
 "  ",
 StyleBox["Plot[ ",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["function",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[",   ",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["{left limit point, right limit point}",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["]\n\n Plot[   ",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["{function1, function2,....}  ",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[",   ",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["{left limit point, right limit point}   ",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["]",
  FontFamily->"Terminal",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 " "
}], "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.793127639078231*^9}, {
  3.823927859041222*^9, 3.8239278836814146`*^9}, {3.9055675337329507`*^9, 
  3.905567549169262*^9}, {3.9055676336138077`*^9, 3.9055676624133573`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"3b6b000f-891f-457d-8124-f4ea3ad9ba26"],

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"x", "/", "2"}]}], "}"}], "  ", ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", " ", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", "Blue"}], "}"}]}]}], "  ", "]"}]], "Input",
 CellChangeTimes->{{3.905581302328796*^9, 3.905581334660251*^9}, {
  3.9055814354885473`*^9, 
  3.905581453747487*^9}},ExpressionUUID->"7e56e37c-e27d-42b8-9ac6-\
1a4d7245f562"]
}, Open  ]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{3.793127639812539*^9, 
  3.9055713394272213`*^9},ExpressionUUID->"4a6b48b1-35b1-4dd9-993e-\
ff5a628cfd72"],

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    StyleBox[
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], ",", 
      RowBox[{"x", "/", "2"}]}],
     FontColor->RGBColor[0, 0, 1]], 
    StyleBox["}",
     FontColor->RGBColor[0, 0, 1]]}], 
   StyleBox[" ",
    FontColor->RGBColor[0, 0, 1]], 
   StyleBox[",",
    FontColor->RGBColor[0, 0, 1]], 
   StyleBox[
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}],
    FontColor->RGBColor[0, 0, 1]]}], "]"}]], "Input",ExpressionUUID->\
"0017ed58-1396-49e9-bab7-1f8f922669e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{3.793127640358768*^9, 
  3.905571352412648*^9},ExpressionUUID->"65884806-d4ee-437d-86cf-\
9911e514ec4a"],

Cell[" Can we choose the color the two graphs ?", "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, 
   3.7931276821302137`*^9, {3.905567680967654*^9, 3.905567709172029*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"35ca9ec2-e2da-4fe8-a835-e6f07a2632ca"],

Cell[BoxData[
 RowBox[{"pl", "=", 
  RowBox[{"Plot", "[", "   ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      StyleBox[
       RowBox[{"Sin", "[", "x", "]"}],
       FontColor->RGBColor[0, 0, 1]], 
      StyleBox[",",
       FontColor->RGBColor[0, 0, 1]], 
      FractionBox[
       StyleBox["x",
        FontColor->RGBColor[0, 0, 1]], "2"]}], "}"}], "  ", ",", 
    StyleBox[
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}],
     FontColor->RGBColor[0, 0, 1]], 
    StyleBox[",",
     FontColor->RGBColor[0, 0, 1]], 
    StyleBox["    ",
     FontColor->RGBColor[1, 0, 0]], 
    RowBox[{
     StyleBox["PlotStyle",
      FontColor->RGBColor[1, 0, 0]], 
     StyleBox["\[Rule]",
      FontColor->RGBColor[1, 0, 0]], 
     RowBox[{"{", 
      RowBox[{"Red", ",", "Blue"}], "}"}]}]}], "  ", "]"}]}]], "Input",
 CellChangeTimes->{{3.905567742218935*^9, 3.905567744279583*^9}, {
  3.9055824366275215`*^9, 
  3.905582438360853*^9}},ExpressionUUID->"80ce2f30-ef77-4374-af90-\
71422a72f969"],

Cell[BoxData[
 RowBox[{"f", "[", "pl", "]"}]], "Input",
 CellChangeTimes->{{3.9055824416659265`*^9, 
  3.905582443349841*^9}},ExpressionUUID->"9cc42505-75f1-4b17-8085-\
c235e6659366"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["5. Symbolic computations 2: calculus (real functions)", "Chapter",
 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.9055677507041416`*^9, 3.905567826681959*^9}},
 FontSize->24,
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"e8029dc5-9af4-45b9-ba98-895193da8b9b"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"19f4ff44-f8fc-4d66-b309-3cd6770afcc1"],

Cell[TextData[{
 "Derivative of functions  ",
 Cell[BoxData[
  TemplateBox[{},
   "Reals"]],ExpressionUUID->"7ad25ef3-a15c-4635-99e7-749518683b8a"],
 "\[Rule]",
 Cell[BoxData[
  TemplateBox[{},
   "Reals"]],ExpressionUUID->"bf665fd0-a9b4-4a4b-ab87-f0de43096130"],
 "\n      ",
 StyleBox["D[  function  ,  variable  ]\n",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "Indefinite integral\n     ",
 StyleBox["Integrate[  function ,  variable  ]\n     \n",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["(here, \[OpenCurlyDoubleQuote]function\[CloseCurlyDoubleQuote] is \
an expression containing the variable)",
  FontFamily->"Terminal",
  FontColor->GrayLevel[0]],
 StyleBox["     ",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.598958967120982*^9, 3.729056371346322*^9, {3.823928177048009*^9, 
   3.823928203304582*^9}, {3.9055678384051037`*^9, 3.905567982679137*^9}, {
   3.9055714237155743`*^9, 3.9055714636485157`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"f46afdb6-daf9-4297-9c33-b1b5216815fd"],

Cell[BoxData[
 RowBox[{"D", "[", "  ", 
  RowBox[{
   RowBox[{"a", " ", "x"}], ",", " ", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.905581551237028*^9, 
  3.905581562708989*^9}},ExpressionUUID->"3312d550-6fe4-4de5-a57e-\
af2217c84e69"],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"a", " ", "x"}], ",", " ", "a"}], "]"}]], "Input",
 CellChangeTimes->{{3.905581568297639*^9, 
  3.905581572926487*^9}},ExpressionUUID->"de4191cf-8f5f-4372-8c79-\
25ad6ac99290"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"96b3c928-2e88-435b-9742-457b40585623"],

Cell[BoxData[
 RowBox[{"D", "[", " ", 
  RowBox[{
   RowBox[{"a", " ", "x"}], "  ", ",", "x"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.7603770784184732`*^9, 3.760377082095334*^9}, {
  3.793081707442224*^9, 3.793081714689598*^9}, {3.823928241417094*^9, 
  3.8239282431281815`*^9}, {3.8239283490734434`*^9, 
  3.8239283621760006`*^9}},ExpressionUUID->"ce783fd8-6a88-4183-a292-\
878961b8a950"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"a", " ", "x"}], " ", ",", "x"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.7603772430156574`*^9, 
  3.7603772445919228`*^9}},ExpressionUUID->"4790778c-1c5a-428b-85c9-\
b02fe5cbea44"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"3e139850-d25b-4d3c-853f-5624cc06b814"],

Cell[TextData[{
 "n-th derivative of function  ",
 Cell[BoxData[
  TemplateBox[{},
   "Reals"]],ExpressionUUID->"13fae473-85a9-44fe-bd90-358c77da017d"],
 "\[Rule]",
 Cell[BoxData[
  TemplateBox[{},
   "Reals"]],ExpressionUUID->"57717838-bcf5-49c4-9b27-43fa74c1a1b5"],
 "\n      ",
 StyleBox["D[  function  ,  {variable,n}  ]",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.598958967120982*^9, 3.729056371346322*^9, {3.823928177048009*^9, 
   3.823928203304582*^9}, {3.9055678384051037`*^9, 3.905567982679137*^9}, {
   3.9055690609362087`*^9, 3.905569078313445*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"d202c382-c50e-4f46-a522-6c637c083ed3"],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"a", " ", 
    SuperscriptBox["x", "2"]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.905569080545111*^9, 
  3.905569090009133*^9}},ExpressionUUID->"8bafdbfc-05d9-4d2c-96dc-\
ef9cd59bd334"]
}, Closed]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{{3.6975185461390505`*^9, 3.6975185488573265`*^9}, 
   3.729056371346322*^9},ExpressionUUID->"cf5781a7-5f44-46a1-9e21-\
ce539d23a428"],

Cell["\<\
Easy.
Something more complicate?\
\>", "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, {
  3.7931277315992055`*^9, 3.7931277371286783`*^9}, {3.8237968038859854`*^9, 
  3.8237968044278708`*^9}, {3.9055679894404144`*^9, 3.905568002706266*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"3d1ffa65-bec5-42d1-a641-f4e7c8215386"],

Cell[BoxData[
 RowBox[{"D", "[", "     ", 
  RowBox[{
   StyleBox[
    RowBox[{"ArcTan", "[", "    ", 
     RowBox[{"Log", "[", 
      RowBox[{"x", "^", 
       RowBox[{"Sin", "[", "x", "]"}]}], " ", "]"}], "  ", "]"}],
    FontColor->RGBColor[0, 0, 1]], 
   StyleBox[" ",
    FontColor->RGBColor[0, 0, 1]], ",", "x"}], "]"}]], "Input",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.598958967120982*^9, 3.729056371346322*^9, 3.792991958544146*^9, {
   3.793081756280421*^9, 3.7930817618332562`*^9}, {3.8239284401052384`*^9, 
   3.8239284574159746`*^9}},ExpressionUUID->"30c324c8-adba-4d2f-af21-\
da6daaadab33"],

Cell[BoxData[
 RowBox[{"Integrate", "[", "   ", 
  RowBox[{
   RowBox[{"ArcTan", "[", 
    RowBox[{"Log", "[", 
     SuperscriptBox["x", 
      RowBox[{"Sin", "[", "x", "]"}]], "]"}], "]"}], "  ", ",", " ", "x"}], 
  "   ", "]"}]], "Input",ExpressionUUID->"4ee58c57-e198-4c6f-a2a6-\
e574153d217e"]
}, Closed]],

Cell[CellGroupData[{

Cell["  ", "Subsubsection",
 CellChangeTimes->{3.7931277497194633`*^9, 3.9055714848925915`*^9, 
  3.90566056337086*^9},ExpressionUUID->"36f6ac67-fec0-4495-a589-221fafdcadd3"],

Cell[TextData[{
 " Can\[CloseCurlyQuote]t do it! \nTo stop/quit the computation:\n       ",
 StyleBox["ALT,",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["        ",
  FontWeight->"Bold"],
 "or        ",
 StyleBox["ALT.",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\nor\n      Menu \[OpenCurlyDoubleQuote]Evaluation\[CloseCurlyDoubleQuote] \
\[Rule]  \[OpenCurlyDoubleQuote]Abort evaluation\[CloseCurlyDoubleQuote]      \
 "
}], "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, 
   3.7931277606387405`*^9, {3.905568012784791*^9, 3.9055681098162932`*^9}, {
   3.9055683201784086`*^9, 3.905568325707635*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"f8b220da-d2c8-40ce-a850-d9b6fc7be538"],

Cell[TextData[{
 "Nevertheless, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " can compute many (even difficult) integrals :"
}], "Text",
 CellChangeTimes->{{3.7931277731514363`*^9, 3.79312777579198*^9}, {
  3.8237975998768225`*^9, 3.823797602319811*^9}, {3.9055681184206038`*^9, 
  3.905568148895224*^9}},ExpressionUUID->"7360bdd7-6af8-4aa0-90fe-\
f50b2a800665"],

Cell[BoxData[
 RowBox[{"Integrate", "[", "  ", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"Cos", "[", "x", "]"}], " ", 
      RowBox[{"Log", "[", "x", "]"}]}], "+", 
     FractionBox[
      RowBox[{"Sin", "[", "x", "]"}], "x"]}], 
    RowBox[{"1", "+", 
     SuperscriptBox[
      RowBox[{"Log", "[", 
       SuperscriptBox["x", 
        RowBox[{"Sin", "[", "x", "]"}]], "]"}], "2"]}]], ",", " ", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.823928628967285*^9, 3.8239286443198175`*^9}, {
  3.9055818468297358`*^9, 
  3.905581858425943*^9}},ExpressionUUID->"9d1bf505-2e14-4bee-903b-\
670a7394ed00"]
}, Open  ]],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{3.7931277955998373`*^9, 
  3.905571507091625*^9},ExpressionUUID->"c53fb82a-0669-47b1-b028-\
0db2ae80b768"],

Cell[TextData[{
 "Uhmm..... Is ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " cheating?\nThat it, does she remember that she had obtained this function \
as a derivative?\n \nTo doublecheck, quit the kernel, restart a new one, and \
try again:"
}], "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, 
   3.793127802207411*^9, {3.8237976103784585`*^9, 3.8237976109164276`*^9}, {
   3.905568152435832*^9, 3.9055682602672653`*^9}, {3.9055715142878113`*^9, 
   3.9055715154330215`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"52839b19-8ba1-40af-ae4a-4272c883fe32"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"a81ff0bd-22ef-4101-9f7d-965df7f86965"],

Cell[TextData[{
 "To close the Kernel (without closing the notebook)\n   \[Bullet] ",
 StyleBox["Quit[ ]",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\n   \[Bullet] Menu \[OpenCurlyDoubleQuote]Evaluation\
\[CloseCurlyDoubleQuote] \[Rule] \[OpenCurlyDoubleQuote]Quit Kernel\
\[CloseCurlyDoubleQuote] \[Rule] \[OpenCurlyDoubleQuote]Local\
\[CloseCurlyDoubleQuote] (or the name of the Kernel you\[CloseCurlyQuote]re \
using, if different)"
}], "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, 
   3.7931278077058425`*^9, {3.8237976213984137`*^9, 3.82379762194722*^9}, {
   3.9055682641672688`*^9, 3.9055683150844655`*^9}, {3.9055715266610904`*^9, 
   3.905571526939433*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"d354793f-5fae-4209-a99d-183a639e9b77"],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",ExpressionUUID->"7d29aef8-97f4-4a5b-a4c8-41b562b90b7e"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   StyleBox[
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"Cos", "[", "x", "]"}], " ", 
       RowBox[{"Log", "[", "x", "]"}]}], "+", 
      FractionBox[
       RowBox[{"Sin", "[", "x", "]"}], "x"]}], 
     RowBox[{"1", "+", 
      SuperscriptBox[
       RowBox[{"Log", "[", 
        SuperscriptBox["x", 
         RowBox[{"Sin", "[", "x", "]"}]], "]"}], "2"]}]],
    FontColor->RGBColor[0, 0, 1]], ",", "x"}], "]"}]], "Input",ExpressionUUID->\
"5721a513-0bef-440b-80b4-8ba849b25681"],

Cell[TextData[{
 "(Why did ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " take longer this time?)"
}], "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, 
   3.7931278402460876`*^9, {3.823797633805891*^9, 3.823797638857277*^9}, {
   3.90556833318244*^9, 3.9055683503362293`*^9}, {3.905571557592104*^9, 
   3.9055715641981344`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"c0c96ff2-74d4-48d9-84d4-1a2d6a3bbee5"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"a1e89c31-b9ee-4e9d-aa6c-c8297ac66a18"],

Cell[TextData[{
 "Partial derivatives of function  ",
 Cell[BoxData[
  SuperscriptBox[
   TemplateBox[{},
    "Reals"], "m"]],ExpressionUUID->"24e80ecf-03a4-4aef-99d9-3390928c614d"],
 "\[Rule] ",
 Cell[BoxData[
  TemplateBox[{},
   "Reals"]],ExpressionUUID->"c63e6eb0-c3df-4616-b7b8-4ecd25a5cc1c"],
 "\n      ",
 StyleBox["D[  function  ,  variable   ] \n    D[  function  ,  variable1, \
variable 2, ....}  ]",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.598958967120982*^9, 3.729056371346322*^9, {3.823928177048009*^9, 
   3.823928203304582*^9}, {3.9055678384051037`*^9, 3.905567982679137*^9}, {
   3.905568910496174*^9, 3.905568980974468*^9}, 3.905569043085308*^9, {
   3.9055691006354694`*^9, 3.905569123947084*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"8d34d283-fd63-4922-8370-54ce2e4e68a0"],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"2", "x", " ", "y"}], " ", "+", " ", 
    SuperscriptBox["y", "2"]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.9055689414575295`*^9, 3.9055689491912413`*^9}, {
  3.9055689933835726`*^9, 
  3.905568995578071*^9}},ExpressionUUID->"a9f004e2-b151-40cd-ac54-\
81537b4f052c"],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"2", "x", " ", "y"}], " ", "+", 
    SuperscriptBox["y", "2"]}], ",", "x", ",", "y"}], "]"}]], "Input",
 CellChangeTimes->{{3.905568986737638*^9, 3.905569018670799*^9}, {
  3.9055691267420297`*^9, 
  3.9055691287695208`*^9}},ExpressionUUID->"0955e786-af2d-4036-b3fa-\
70e4fb320144"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"0fb29a11-7659-4dbe-9eb7-c05e51daf57b"],

Cell[TextData[{
 "Jacobian matrix of function  ",
 Cell[BoxData[
  SuperscriptBox[
   TemplateBox[{},
    "Reals"], "m"]],ExpressionUUID->"ccda026d-2d00-450d-bb72-a63fbe8be4b4"],
 "\[Rule] ",
 Cell[BoxData[
  SuperscriptBox[
   TemplateBox[{},
    "Reals"], "n"]],ExpressionUUID->"af45a674-ba1f-4756-8912-35c5ea6008eb"],
 "\n       ",
 StyleBox["D[  function   ,  {{ variables }}   ]      ",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["(n=1)",
  FontFamily->"Terminal",
  FontColor->GrayLevel[0]],
 StyleBox[" ",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\n      ",
 StyleBox["D[  { function1,..., functionn}  ,  {{variables}}   ]   ",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["(n>1)",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->GrayLevel[0]]
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{
  3.598958967120982*^9, 3.729056371346322*^9, {3.823928177048009*^9, 
   3.823928203304582*^9}, {3.9055678384051037`*^9, 3.905567982679137*^9}, {
   3.905568910496174*^9, 3.905568980974468*^9}, 3.905569043085308*^9, {
   3.9055691006354694`*^9, 3.9055692737756658`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"48970e25-867f-481c-a7f6-faf30d47646a"],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"2", "x", " ", "y"}], " ", "+", 
    SuperscriptBox["y", "2"]}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9055691788423395`*^9, 
  3.905569180691387*^9}},ExpressionUUID->"5ad99914-1891-44e4-b8ee-\
8a613911a84b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["6. Definition of functions", "Chapter",
 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.90556835952182*^9, 3.905568373264468*^9}},
 FontSize->24,
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"68176c1c-ca09-4008-972c-dd04796d182b"],

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->"e5363f28-60b7-4df5-ab13-afe83832f703"],

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->"737e7201-af7e-4703-b4da-\
134aa697b182"],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"e8f454cc-ca54-443c-820d-b5753ea31aba"],

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->"dc1fb7f3-2a11-46bd-a19a-e0c56d5440e4"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"351fd7ea-2669-4afa-839a-5b0dc08370f1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   StyleBox["x_",
    FontColor->RGBColor[0, 0, 1]], "]"}], 
  StyleBox[
   RowBox[{":", 
    StyleBox["=",
     FontColor->RGBColor[1, 0, 0]]}]], 
  RowBox[{
   SuperscriptBox["x", "2"], " ", "-", " ", 
   RowBox[{"2", 
    SuperscriptBox["x", "3"], " "}]}]}]], "Input",
 CellChangeTimes->{{3.823929492869288*^9, 3.823929494509387*^9}, {
  3.823929685564829*^9, 3.8239296954537296`*^9}, {3.9055693639548297`*^9, 
  3.9055693771588197`*^9}},ExpressionUUID->"1a40a898-477b-4ee9-b0b1-\
60f7441563ef"],

Cell[BoxData[
 RowBox[{"f", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.823929614790759*^9, 3.823929622077878*^9}, {
  3.9055693790524964`*^9, 
  3.9055693827674294`*^9}},ExpressionUUID->"b46c3d62-46b5-4239-af35-\
402c37ea03d5"],

Cell[BoxData[
 RowBox[{"f", "[", "y", "]"}]], "Input",
 CellChangeTimes->{{3.8239296499025035`*^9, 3.8239296574852114`*^9}, {
  3.905569385671208*^9, 
  3.905569386317958*^9}},ExpressionUUID->"080517d1-ec9e-467e-9010-\
7944e656bf7e"],

Cell[BoxData[
 RowBox[{"f", "[", "pippo", "]"}]], "Input",
 CellChangeTimes->{{3.7604254472161827`*^9, 3.7604254487121286`*^9}, {
  3.793082412031335*^9, 3.793082412592894*^9}, {3.8239293564208603`*^9, 
  3.823929367701296*^9}, {3.905569388125458*^9, 
  3.9055693892441916`*^9}},ExpressionUUID->"7a8321f6-9395-41c4-976e-\
a854f91e8955"],

Cell[BoxData[
 RowBox[{"f", "[", "I", "]"}]], "Input",
 CellChangeTimes->{{3.760455007366826*^9, 3.760455008192766*^9}, {
  3.9055693942112865`*^9, 
  3.9055693976690397`*^9}},ExpressionUUID->"22ff7e3d-66ac-44ba-b98c-\
ac41e9b15353"]
}, Closed]],

Cell[CellGroupData[{

Cell["", "Subsubsection",ExpressionUUID->"ac94cfe4-85ad-4c51-83ca-1b7dae865a15"],

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->"55ab07fa-1bff-44bb-85ff-13db4663f6a1"],

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->"61154add-7831-4ac8-8125-851c6a10a5e7"],

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->"5dbcf43a-8712-44cb-a5ad-1b270d26865b"],

Cell[BoxData[
 SuperscriptBox["x", "3"]], "Input",
 CellChangeTimes->{{3.905582559151064*^9, 
  3.9055825605027647`*^9}},ExpressionUUID->"0917f7d3-483e-4c8d-8ae6-\
21e6a2cd366b"],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.793128058786978*^9},ExpressionUUID->"9af4aa00-26a4-432a-baaf-\
c0913c345d4c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.9055825226116076`*^9, 
  3.9055825257211103`*^9}},ExpressionUUID->"48c4c88f-87d4-46f6-96b0-\
e36d4459e9ab"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", " ", 
  RowBox[{
   SuperscriptBox["x", "3"], "+", 
   RowBox[{"2", "y", " ", 
    SuperscriptBox["x", "2"]}], "+", "x", " ", "-", "y"}]}]], "Input",
 CellChangeTimes->{{3.9055825298711567`*^9, 3.9055825744252253`*^9}, {
  3.90558265494899*^9, 3.905582659371916*^9}, {3.9055827179826555`*^9, 
  3.905582718991691*^9}},ExpressionUUID->"0a7317d7-9513-4577-94fb-\
525c952bf7b6"],

Cell[BoxData[
 RowBox[{"df", "=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y"}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}], "}"}]}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.9055825944800525`*^9, 3.905582642471348*^9}, {
  3.905582682339579*^9, 
  3.9055826828631735`*^9}},ExpressionUUID->"abaef242-6aae-49ad-a2e4-\
8ba2b3708f57"],

Cell[BoxData[
 RowBox[{"cp", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"df", "==", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.905582689333739*^9, 3.9055827012788916`*^9}, {
  3.9055827567986517`*^9, 
  3.905582787400404*^9}},ExpressionUUID->"2d07f7ad-d773-423e-8832-\
25787fd8c3b7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x", ",", "y"}], "]"}], "/.", "cp"}]], "Input",
 CellChangeTimes->{
  3.905582750183956*^9, {3.905582792236079*^9, 
   3.9055827960401564`*^9}},ExpressionUUID->"5ac9d852-3e82-4da3-af5b-\
95b793d30ed3"],

Cell[BoxData[
 RowBox[{"hf", "=", 
  RowBox[{"D", "[", " ", 
   RowBox[{"df", ",", " ", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.9055828666907687`*^9, 
  3.90558287308846*^9}},ExpressionUUID->"afa279ff-e94a-4132-8334-\
e1023db124a9"],

Cell[BoxData[
 RowBox[{"hf", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.905582891457733*^9, 
  3.9055828944893627`*^9}},ExpressionUUID->"edfd5efc-8df9-45b6-8fbb-\
e68040912176"],

Cell[BoxData[
 RowBox[{"hf", "/.", "cp"}]], "Input",
 CellChangeTimes->{{3.9055829425419774`*^9, 
  3.905582944503723*^9}},ExpressionUUID->"feeff907-581b-4322-a241-\
25562e2e5b77"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Eigenvalues", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         FractionBox["5", 
          SqrtBox["2"]]}], "+", 
        RowBox[{"3", " ", 
         SqrtBox["2"]}]}], ",", 
       RowBox[{"2", " ", 
        SqrtBox["2"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", " ", 
        SqrtBox["2"]}], ",", "0"}], "}"}]}], "}"}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.905582954085582*^9, 
  3.905582983092014*^9}},ExpressionUUID->"62120a8e-f781-442f-85df-\
0c77f0888059"],

Cell[BoxData[
 RowBox[{"cp", "//", "N"}]], "Input",
 CellChangeTimes->{{3.9055830082764993`*^9, 
  3.9055830095411797`*^9}},ExpressionUUID->"54e4cd9f-ee31-4e40-94d6-\
ab3287983079"],

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.905582987979701*^9, 
  3.9055830275743294`*^9}},ExpressionUUID->"b1a1be00-2cb6-41ed-ba94-\
4e3768c4f9ad"],

Cell[BoxData["l"], "Input",
 CellChangeTimes->{
  3.9056542086367545`*^9},ExpressionUUID->"8452bea8-7017-4954-ab3e-\
a43efd6234cb"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lecture 2", "Subtitle",
 CellChangeTimes->{{3.905571681835188*^9, 
  3.9055716860030565`*^9}},ExpressionUUID->"7136a581-9ade-45d0-aa5b-\
6be18c329799"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Primi Esempi",
 FontSize->24]], "Section",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"dc00a390-6818-4088-8a1c-53e86e70af1b"],

Cell[TextData[{
 StyleBox["Esercizio",
  FontWeight->"Bold"],
 ": scrivere una funzione che prende come argomento una funzione ",
 StyleBox["R",
  FontWeight->"Bold"],
 "\[Rule]",
 StyleBox["R",
  FontWeight->"Bold"],
 " (data come espressione contenente la variabile \[OpenCurlyDoubleQuote]x\
\[CloseCurlyDoubleQuote]) e ne fa il grafico nell\[CloseCurlyQuote]intervallo \
0 < x < 1"
}], "Text",
 CellChangeTimes->{{3.793128071767908*^9, 3.7931281008217955`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"78497283-77c8-4342-8d68-c24549b9811d"],

Cell[BoxData[
 RowBox[{"x", "//", "Clear"}]], "Input",
 CellChangeTimes->{
  3.823929935846405*^9, {3.8239299711735373`*^9, 
   3.823929972260439*^9}},ExpressionUUID->"91c2b90b-b99c-460b-8867-\
3957ffbcfcc6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pl", "[", "expr_", "]"}], " ", ":=", " ", 
  RowBox[{"Plot", "[", 
   RowBox[{"expr", ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}]], "Input",E\
xpressionUUID->"8f3d2841-d47d-4361-bb31-b00898196423"],

Cell["Prova:", "Text",
 CellChangeTimes->{{3.7931281166618347`*^9, 
  3.7931281204612713`*^9}},ExpressionUUID->"57ebf325-f7cb-4fa0-9643-\
733468ea806e"],

Cell[BoxData[
 RowBox[{"pl", "[", " ", 
  RowBox[{"Sin", "[", "x", "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.823797730007721*^9, 3.823797765927846*^9}, {
  3.823929879149024*^9, 3.823929897892555*^9}, {3.8239299503168044`*^9, 
  3.8239299686919355`*^9}},ExpressionUUID->"af4ef0cf-6c9a-4d44-9da4-\
3cd758b22b33"],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.793128141155981*^9},ExpressionUUID->"90b55159-81a1-487b-9421-\
5a0a28229318"],

Cell[TextData[{
 StyleBox["Esercizio:",
  FontWeight->"Bold"],
 " scrivere una funzione  \n                           pl(expr,a,b)\nche fa \
il grafico della funzione di x la cui espressione e` expr nell\
\[CloseCurlyQuote] intervallo a < x < b con a e b qualunque"
}], "Text",
 CellChangeTimes->{{3.793128071767908*^9, 3.7931281008217955`*^9}, 
   3.793128146623452*^9, {3.8239300172440186`*^9, 3.823930049980094*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"00cc6cc8-ea7d-4736-b3d2-d29c7a4f86eb"],

Cell[CellGroupData[{

Cell[" ", "Subsubsection",
 CellChangeTimes->{{3.8239300223102236`*^9, 
  3.8239300255565367`*^9}},ExpressionUUID->"6a029c2c-19ac-4602-b85e-\
efa95d8369ba"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pl", "[", 
   RowBox[{"expr_", ",", "a_", ",", 
    RowBox[{"b_Automatic", ":", "2"}]}], "]"}], ":=", 
  RowBox[{"Plot", "[", 
   RowBox[{"expr", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "a", ",", "b"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.823930282045566*^9, 
  3.8239303011473155`*^9}},ExpressionUUID->"6407a6f5-8609-4f7b-a9a8-\
5fc462a693eb"],

Cell[BoxData[
 RowBox[{"pl", "[", 
  RowBox[{
   SuperscriptBox["E", 
    RowBox[{"x", "-", "1"}]], ",", " ", 
   RowBox[{"-", "3"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.823930312876837*^9, 
  3.82393031303538*^9}},ExpressionUUID->"c17a6417-f659-4c44-a6d5-\
41d670d3950d"],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.7931281630102386`*^9},ExpressionUUID->"b98f4f3d-5d81-454d-b4ed-\
7e7dd0894050"],

Cell["\<\
Possiamo usare lo stesso simbolo (nome: \[OpenCurlyDoubleQuote]pl\
\[CloseCurlyDoubleQuote]) per le due funzioni? 
S\[IGrave], perch\[EAcute] hanno un diverso numero di argomenti. \
\>", "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, 
   3.7931279940583453`*^9, {3.823797797417466*^9, 3.823797800775617*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"c43fd04b-d64a-48f6-bd57-e1ca153b34fd"],

Cell[TextData[{
 "Per chiedere a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " cosa \[EGrave] un simbolo \[OpenCurlyDoubleQuote]symb\
\[CloseCurlyDoubleQuote]\n     ",
 StyleBox["? symb",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 " "
}], "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, 
   3.7931281905822954`*^9, {3.823797804509209*^9, 3.8237978052487516`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"db7a7210-75c1-4d1c-b804-4c2c634cd6cd"],

Cell[BoxData[
 RowBox[{"?", "pl"}]], "Input",
 CellChangeTimes->{{3.793128637166646*^9, 
  3.793128637992304*^9}},ExpressionUUID->"c346b88e-c14c-474f-adab-\
ff349395498f"],

Cell[BoxData["pl"], "Input",
 CellChangeTimes->{{3.823930267365569*^9, 
  3.823930267547117*^9}},ExpressionUUID->"c72492ba-72ba-4397-8e29-\
ba32d11b1722"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{
  3.7931286489464035`*^9},ExpressionUUID->"becd4133-bcad-4561-95ba-\
5dca38df6f4f"],

Cell[TextData[{
 "Quando si esegue una funzione, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "\n\[FilledSmallCircle] sostituisce l'argomento alla \"x\" che appare \
nell'espressione al secondo membro della definizione    ",
 StyleBox["f[x_]:=....   ",
  FontFamily->"Terminal",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\n\[FilledSmallCircle] ed eventualmente fa dei conti e delle semplificazioni"
}], "Text",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.729056371346322*^9},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"bcbc0944-46ec-49f1-98bd-2ccf5f51327a"],

Cell[TextData[{
 StyleBox["Esempio:",
  FontWeight->"Bold"],
 "  se si definisce\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->
  "997bac15-a6fe-4f99-828c-0dd87cd9e299"],
 "       ( Sqrt[u^2] )",
 StyleBox["\n",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 StyleBox["quale sar\[AGrave] il risultato di ",
  FontFamily->"Times New Roman",
  FontSize->16],
 StyleBox[" ",
  FontFamily->"Times New Roman",
  FontWeight->"Bold"],
 StyleBox["f[2] ",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 StyleBox["?  E di  ",
  FontFamily->"Times New Roman"],
 StyleBox["f[x] ",
  FontFamily->"Times New Roman",
  FontWeight->"Bold"],
 StyleBox["  o di   ",
  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}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"9f16251a-70ca-4827-b194-6ffcb780ad07"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "u_", "]"}], ":=", " ", 
  RowBox[{"Sqrt", "[", " ", 
   SuperscriptBox["u", "2"], " ", "]"}]}]], "Input",ExpressionUUID->"451a2396-\
5bef-4a6f-8516-2e4c71895434"],

Cell[BoxData[
 RowBox[{"f", "[", "2", "]"}]], "Input",ExpressionUUID->"b89d95c2-abff-4000-889f-0c2430b2d290"],

Cell[BoxData[
 RowBox[{"f", "[", "x", "]"}]], "Input",ExpressionUUID->"3fde7621-c607-4f9c-9594-3bd9b6f4bafc"],

Cell["\<\
Perche` non semplifica?
Possiamo forzarlo? \
\>", "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, 
   3.793128767562643*^9},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"d91899f0-bc9f-4aca-aa99-811909dc653c"],

Cell[BoxData[
 RowBox[{"FullSimplify", "@", "%"}]], "Input",
 CellChangeTimes->{{3.823930599362142*^9, 
  3.8239306072097926`*^9}},ExpressionUUID->"56fd149f-5ac3-4d45-aabf-\
7d91268e2e19"],

Cell["\<\
No.
\[CapitalEGrave] ragionevole?  \
\>", "Text",
 CellChangeTimes->{{3.793127624472603*^9, 3.7931276266329093`*^9}, 
   3.7931287944917364`*^9, {3.8237978370635767`*^9, 3.8237978378507357`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"858f3f07-d07a-4983-9a28-c74ade612a6d"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SqrtBox[
    SuperscriptBox["u", "2"]], TraditionalForm]],ExpressionUUID->
  "ed637656-cbd5-423c-931e-ab4a6fc25b13"],
 " =  u    solo se  ",
 StyleBox["u ",
  FontSlant->"Italic"],
 " \[EGrave] un reale positivo.\nSe non ha questa informazione sull\
\[CloseCurlyQuote]argomento, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " non fa la semplificazione."
}], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"22974b9d-9da5-4457-8405-111662c4ca90"],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.760454981586671*^9},ExpressionUUID->"55714328-340c-4b71-91fc-\
62e4407a8fec"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Assunzioni",
 FontSize->24]], "Section",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
  3.7931288592437024`*^9, 3.793128859649885*^9}},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"ccd08032-d434-4fdb-8820-2384a8aa076f"],

Cell[TextData[{
 "Dobbiamo dire a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " che l\[CloseCurlyQuote]argomento \[EGrave] un reale positivo, affinche \
faccia la semplificazione.\nCome si fa?"
}], "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}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"3b432993-7394-4bee-8355-bca5805baa80"],

Cell[TextData[{
 "       ",
 StyleBox["Refine[ expr ,  condizione   ]\n",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["valuta  expr  assumendo vera la condizione",
  FontColor->GrayLevel[0]],
 "\n       ",
 StyleBox["Assuming[    condizione ,  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",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"6dec8c98-f777-4262-a3a2-a170c0af8013"],

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}},ExpressionUUID->"4383dff9-1d7a-47ed-9281-\
ecab8c10a033"],

Cell[BoxData[
 RowBox[{"Assuming", "[", 
  RowBox[{
   RowBox[{"x", "<", "0"}], ",", " ", 
   RowBox[{"Simplify", "@", 
    RowBox[{"f", "[", "x", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8237979800624747`*^9, 
  3.8237979817445536`*^9}},ExpressionUUID->"b2dc7990-b412-48ca-849e-\
d12ecf5fd5cd"],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.793128937883232*^9},ExpressionUUID->"c4648c86-b11e-452e-bb9e-\
240cd8922042"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Ruolo di _ nella def. delle funzioni",
 FontSize->24]], "Section",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
   3.7931288592437024`*^9, 3.793128859649885*^9}, 3.7931289463928895`*^9},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"90fb72d0-7fe4-4a2b-ac19-2ea22543d6ce"],

Cell[TextData[{
 StyleBox["Attenzione: ",
  FontWeight->"Bold"],
 "non dimenticare il _ nella definizione di una funzione, se no la funzione  \
\[EGrave] definita ",
 StyleBox["solo ",
  FontSlant->"Italic"],
 "se l\[CloseCurlyQuote]argomento \[EGrave] esattamente  x ."
}], "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}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"da67f453-d4bb-496c-bb6a-d9ad2dfc0ae5"],

Cell[BoxData[
 RowBox[{"Clear", "[", "g", "]"}]], "Input",
 CellChangeTimes->{{3.793084270879117*^9, 
  3.7930842730513287`*^9}},ExpressionUUID->"caa78cf2-1738-4ae3-b09c-\
8f1a22df9332"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "x", "]"}], ":=", 
  RowBox[{
   SuperscriptBox["x", "2"], "-", 
   SuperscriptBox["x", "3"]}]}]], "Input",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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}},ExpressionUUID->"f8fad9e8-f14f-44ea-8e2f-\
fb99abd883a6"],

Cell[BoxData[
 RowBox[{"g", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.792992368787766*^9, 
  3.7929923696940594`*^9}},ExpressionUUID->"4b5613f4-ad86-4c4a-b7b4-\
03f2dc1b8c99"],

Cell[BoxData[
 RowBox[{"g", "[", "1", "]"}]], "Input",
 ShowGroupOpener->False,
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.5433076599840546`*^9, 3.543307660093255*^9}, 
   3.5433088183484893`*^9, 3.6660777241495094`*^9, 3.69752011934454*^9, 
   3.729056371346322*^9},ExpressionUUID->"9a372fea-bc85-448b-ac7a-\
4388169be964"],

Cell[BoxData[
 RowBox[{"x", "=", "1"}]], "Input",
 CellChangeTimes->{{3.7930843194512925`*^9, 
  3.793084320089781*^9}},ExpressionUUID->"20602c7c-b6ab-4ede-8a94-\
df4c84dd9d86"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "x", "]"}], "//", "Trace"}]], "Input",
 CellChangeTimes->{{3.7930843265562096`*^9, 3.793084327834647*^9}, {
  3.82393099675414*^9, 
  3.8239309985059733`*^9}},ExpressionUUID->"a8bc10d8-cee4-406c-a84c-\
c861aec58cf0"],

Cell["\<\
Naturalmente, si pu\[OGrave] sfruttare (positivamente) questo fatto per \
assegnare particolari valori ad una funzione\
\>", "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}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"56bc933e-c779-42fe-af8c-25f86cdca444"],

Cell[TextData[{
 StyleBox["Esercizio: ",
  FontWeight->"Bold"],
 " Definire la funzione  f  che ha valori\n    f(x) =   ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"sin", 
     RowBox[{"(", "x", ")"}]}], "x"], TraditionalForm]],ExpressionUUID->
  "99e500d2-1ee5-479c-ba10-ef2fc1b59be9"],
 "  se x\[ImplicitPlus] \[NotEqual] 0\n    f(x) =   1  se x\[ImplicitPlus] = \
0\n(",
 StyleBox["senza",
  FontSlant->"Italic"],
 " usare un \[OpenCurlyDoubleQuote]If\[CloseCurlyDoubleQuote] o simili)    "
}], "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}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"776e127b-471d-479d-a69e-082f28036a04"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  FractionBox[
   RowBox[{"Sin", "[", "x", "]"}], "x"]}]], "Input",ExpressionUUID->"4ff00fe7-\
26f8-4b97-aaf9-15e2c9150783"],

Cell[BoxData[
 RowBox[{"f", "[", "0", "]"}]], "Input",ExpressionUUID->"192aa11c-a4ba-4151-bdcb-393306f665d7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "0", "]"}], ":=", "1"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.5904896315392947`*^9, 3.590489661943748*^9}, 
   3.697520472586729*^9, 
   3.729056371346322*^9},ExpressionUUID->"10438bfe-d40c-4661-a123-\
06ed7063dfbe"],

Cell[BoxData[
 RowBox[{"?", "f"}]], "Input",
 CellChangeTimes->{{3.760426668807791*^9, 3.7604266690933027`*^9}, {
  3.7930842907541623`*^9, 3.793084291186005*^9}, {3.7930844730578685`*^9, 
  3.7930844735141582`*^9}},ExpressionUUID->"a12ad13a-d107-4a61-bc57-\
3465059bf0be"],

Cell[BoxData[
 RowBox[{"f", "[", "0", "]"}]], "Input",ExpressionUUID->"e9b8026b-be4d-40c2-a2ca-cc2da9ac9120"],

Cell["oppure anche   f[0] = 1 (poi si capir\[AGrave])", "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}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"811e2903-0a26-4fe7-9f9d-84aa98df1290"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Definizioni iterative di funzioni",
 FontSize->24]], "Section",
 CellChangeTimes->{{3.7931280204658203`*^9, 3.793128024004758*^9}, {
   3.7931288592437024`*^9, 3.793128859649885*^9}, 3.7931289463928895`*^9, {
   3.7931291135384836`*^9, 3.793129117412557*^9}},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"89b8fb33-00f4-4960-a11d-838e8f64064b"],

Cell["Solo un esempio : il fattoriale", "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},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"f3e293d1-2f59-49aa-9d30-5344586e80b6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "0", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "[", "n_", "]"}], ":=", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"n", "-", "1"}], "]"}], "n"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.590489734109475*^9, 3.59048977117514*^9}, 
   3.729056371346322*^9},ExpressionUUID->"2533d832-cf3d-4ae0-af30-\
c62bd0cbcdd0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "3", "]"}], "//", "Trace"}]], "Input",
 CellChangeTimes->{{3.7930846175647383`*^9, 3.7930846278346696`*^9}, {
  3.8239313270090685`*^9, 
  3.8239313284324646`*^9}},ExpressionUUID->"da8585af-8c65-4ceb-8328-\
f5665c52032a"],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.7931290856852064`*^9},ExpressionUUID->"06a1fed1-5806-46ad-81a4-\
79cfa9dc998f"],

Cell["\[CapitalEGrave] efficiente?", "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.7931291817479305`*^9, {3.8237981004929705`*^9, 3.823798101385696*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"80d0c5bb-6186-4574-90ab-76b6fb85a5fc"],

Cell[BoxData[
 RowBox[{"f", "[", "230", "]"}]], "Input",
 CellChangeTimes->{{3.7930846175647383`*^9, 3.7930846278346696`*^9}, {
  3.79312919190238*^9, 
  3.793129193135887*^9}},ExpressionUUID->"837c0c4a-6553-4e6d-aa59-\
0f936698ea60"],

Cell["Come lavora?", "Text",
 CellChangeTimes->{{3.760379333940823*^9, 
  3.760379340758815*^9}},ExpressionUUID->"ea687d91-9759-42d1-8866-\
c40fca685297"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "3", "]"}], "//", "Trace"}]], "Input",ExpressionUUID->\
"06d136c0-87ea-4908-ae83-d9c5d3205f46"],

Cell[BoxData[
 RowBox[{"Clear", "[", "f", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6660779273197937`*^9, 3.666077930929799*^9}, 
   3.729056371346322*^9},ExpressionUUID->"93f65876-756e-487f-acc7-\
afb159dcefd2"]
}, Closed]],

Cell[CellGroupData[{

Cell["8. Help", "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}},
 FontSize->24,
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"7351877d-8066-474f-a964-a55013a3fa54"],

Cell[TextData[{
 "Ci sono due help:\n\[FilledSmallCircle]  breve descrizione di un comando \
(Dall\[CloseCurlyQuote]INPUT :  ",
 StyleBox["?comando)",
  FontWeight->"Bold"],
 "\n\[FilledSmallCircle]  manuale (con descrizione di tutte le funzioni, \
tutorials, e altro)\n   \[FilledSmallCircle]\[FilledSmallCircle]  o dal MENU  \
",
 StyleBox["\[OpenCurlyDoubleQuote]Help\[CloseCurlyDoubleQuote]  \n   ",
  FontWeight->"Bold"],
 "\[FilledSmallCircle]\[FilledSmallCircle]  o con  ",
 StyleBox["F1 ",
  FontWeight->"Bold"],
 " (anche sulla parola)\n   \[FilledSmallCircle]\[FilledSmallCircle]  o da \
\[OpenCurlyDoubleQuote]i\[CloseCurlyDoubleQuote] sul menu interattivo"
}], "Text",
 CellChangeTimes->{{3.7603792450011234`*^9, 3.760379252699852*^9}, 
   3.7931291777801065`*^9, 3.7931292292680445`*^9},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"73180240-d92f-49ea-82c3-4667707a8edf"],

Cell["Esempio : chiediamo aiuto per il comando \[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},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"c1333033-c85e-4c8d-b01f-eec5d3b11dbf"],

Cell[BoxData[
 RowBox[{"?", "Expand"}]], "Input",
 CellChangeTimes->{{3.823931464729306*^9, 
  3.823931470673274*^9}},ExpressionUUID->"e82f496f-09b0-4b94-badf-\
2bdbb9c9432b"],

Cell[BoxData["Expand"], "Input",
 CellChangeTimes->{{3.8239314732260275`*^9, 
  3.8239314838753023`*^9}},ExpressionUUID->"6f364278-5e41-4736-9427-\
209845345db3"],

Cell["\<\
(dal men\[UGrave] interattivo, anche prima di aver scritto tutto il comando)\
\>", "Text",
 CellChangeTimes->{{3.760379448803259*^9, 3.760379466518168*^9}, {
  3.792992476254651*^9, 3.792992517973962*^9}, {3.823798191984699*^9, 
  3.823798208515704*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"004fa858-7510-4009-94fd-91e296f5c249"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7929924453757467`*^9, 3.7929925212859745`*^9}, 
   3.7931292629659605`*^9},ExpressionUUID->"1fe730c1-aadc-4d0a-bb8a-\
750a338295e0"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["9. Formule \[OpenCurlyDoubleQuote]eleganti\
\[CloseCurlyDoubleQuote]  (= leggibili meglio!) (in Standard Form)",
 FontSize->24]], "Section",
 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.793129360453397*^9, {3.823798303482915*^9, 3.8237983077198095`*^9}, {
   3.8239333119007297`*^9, 3.8239333126974154`*^9}, {3.8239333591729574`*^9, 
   3.8239333626361375`*^9}},
 FontColor->GrayLevel[0],
 Background->RGBColor[
  0., 1., 1.],ExpressionUUID->"1eba540e-65a2-4b83-a5a5-3c5c4e7be110"],

Cell[TextData[{
 "L'input si pu\[OGrave] rendere un po' pi\[UGrave] elegante con l'uso di \
apici, pedici, frazioni su due livelli, simboli greci, etc.\nVi si accede:\n\
\[Bullet] da una ",
 StyleBox["palette",
  FontWeight->"Bold"],
 " (dal ",
 StyleBox["Menu Palettes",
  FontSlant->"Italic"],
 ")",
 StyleBox["\n\[Bullet]",
  FontSlant->"Italic"],
 " con ",
 StyleBox["key shortcuts",
  FontWeight->"Bold"],
 ", che sono molti comodi:"
}], "Text",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.5995538659767013`*^9, 3.59955390074775*^9}, {
  3.793086196549782*^9, 3.7930862025483894`*^9}, {3.823798311778555*^9, 
  3.8237983146855845`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"61716230-f728-4c9f-b98e-a55cfc8cecae"],

Cell[TextData[{
 StyleBox["Esempi di ",
  FontSlant->"Italic"],
 StyleBox["key shortcuts:",
  FontWeight->"Bold"],
 StyleBox["\n    ",
  FontSlant->"Italic"],
 Cell[BoxData[
  RowBox[{
   RowBox[{"Sqrt", "[", " ", "]"}], "   ", "\[Rule]", "   ", 
   SqrtBox["\[Placeholder]"]}]],ExpressionUUID->
  "be42f9f9-454c-4459-9e29-87d904fbf6da"],
 "               (",
 StyleBox["CTRL 2",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 ")\n       ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"x", "/", "y"}], "       ", "\[Rule]", "   ", 
   FractionBox["x", "y"]}]],ExpressionUUID->
  "47afbb16-054d-4d17-a6de-9041316cbd55"],
 "                 (",
 StyleBox["CTRL /",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 ")\n       ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"x", "^", "3"}], "       ", "\[Rule]", "   ", 
   SuperscriptBox["x", "3"]}]],ExpressionUUID->
  "cf7ee1e1-9b4c-4708-bb01-f03b4c352953"],
 "                  (",
 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,
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"4201ee1c-30a4-4cc2-b0fa-9c47ab1044de"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Esercizio", ":", " ", "scrivere"}], ",", " ", 
  RowBox[{
  "usando", " ", "solo", " ", "la", " ", 
   "tastiera"}]}], "\[IndentingNewLine]", 
 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}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"15cc5fed-4238-41ff-a452-9047c188cd6c"]
}, Closed]]
}, Open  ]]
}, Open  ]]
},
PrintingStyleEnvironment->"Printout",
WindowToolbars->{},
WindowSize->{1152., 592.8},
WindowMargins->{{-5.3999999999999995`, Automatic}, {
  Automatic, -5.3999999999999995`}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{595.1999999999999, 841.8}},
ShowSelection->True,
ShowGroupOpener->{"InsideFrame", "Inline"},
GroupOpenerInsideFrame->True,
CellLabelAutoDelete->True,
FrontEndVersion->"13.0 for Microsoft Windows (64-bit) (February 4, 2022)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]]}, 
  WindowSize -> {582.6, 501.59999999999997`}, 
  WindowMargins -> {{279, Automatic}, {40.19999999999993, Automatic}}, 
  Visible -> False, FrontEndVersion -> 
  "13.0 for Microsoft Windows (64-bit) (February 4, 2022)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"],
ExpressionUUID->"6620ad5b-4f06-4822-8a95-a4b8edd7108a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1313, 22, 77, "Text",ExpressionUUID->"ce3fc3e2-c067-4126-8767-5f87fe045881"],
Cell[CellGroupData[{
Cell[1896, 46, 569, 14, 114, "Title",ExpressionUUID->"b5a1964b-aa57-4f2f-b36b-b81a5f61a50d"],
Cell[2468, 62, 895, 13, 69, "Text",ExpressionUUID->"edb7b4c4-6b5b-4a25-b6c4-3ffc763af743"],
Cell[CellGroupData[{
Cell[3388, 79, 502, 12, 66, "Section",ExpressionUUID->"6765ebdc-4916-4573-8682-205b49bf746c"],
Cell[CellGroupData[{
Cell[3915, 95, 1127, 25, 112, "Text",ExpressionUUID->"7a976594-c453-4906-b5d0-58759bc5e002",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[5045, 122, 1019, 22, 91, "Text",ExpressionUUID->"7035e16a-706a-455f-bd92-7484eace1569",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[6067, 146, 1573, 42, 135, "Text",ExpressionUUID->"d5bac1b1-cea2-4bdb-bd53-1aa6ffab938b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[7643, 190, 679, 16, 93, "Text",ExpressionUUID->"3d1cfbe7-9afc-4df3-999c-f31952def1c5",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8371, 212, 486, 8, 65, "Section",ExpressionUUID->"f2952bc7-722e-463c-a803-e9d2bc1663bd"],
Cell[8860, 222, 584, 12, 76, "Text",ExpressionUUID->"92c2962f-4033-4431-8dd1-4cd27312bc15"],
Cell[9447, 236, 351, 9, 52, "Text",ExpressionUUID->"94a75dd8-8967-47e6-94e8-1638b67c422c"],
Cell[9801, 247, 988, 24, 149, "Text",ExpressionUUID->"23014a5c-e5f1-45eb-b828-52c84262230f"],
Cell[CellGroupData[{
Cell[10814, 275, 80, 0, 45, "Subsubsection",ExpressionUUID->"98b826af-1cb2-4c25-b8ce-cac1c6d8425a"],
Cell[10897, 277, 1335, 42, 144, "Text",ExpressionUUID->"18e494c1-e226-4400-aa11-8770df08ecba"],
Cell[12235, 321, 179, 4, 29, "Input",ExpressionUUID->"093bed79-e093-41bd-a651-ecd3fee39c4d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12451, 330, 80, 0, 45, "Subsubsection",ExpressionUUID->"01943be2-cd59-4f00-b280-96d577c440de"],
Cell[12534, 332, 1262, 41, 105, "Text",ExpressionUUID->"e139d0b9-d9c6-48b3-9e15-ccb38d694138"],
Cell[13799, 375, 181, 4, 29, "Input",ExpressionUUID->"5e0cdaeb-a590-408a-bcdf-7edaf29b9126"],
Cell[13983, 381, 180, 4, 29, "Input",ExpressionUUID->"586bdcff-2221-43c0-838d-2b352b364444"],
Cell[CellGroupData[{
Cell[14188, 389, 264, 5, 45, "Subsubsection",ExpressionUUID->"da2be8fb-98a4-409b-b2e9-5aa3cc617595",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[14455, 396, 868, 20, 101, "Text",ExpressionUUID->"e3a0a9c8-d93c-4663-bc26-3aa73d29019f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[15326, 418, 249, 6, 29, "Input",ExpressionUUID->"e8710272-1757-4229-bf6b-26a30139349a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[15578, 426, 186, 4, 29, "Input",ExpressionUUID->"a12e749a-971c-4eac-8d52-3487a857e340",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[15767, 432, 235, 5, 52, "Code",ExpressionUUID->"699f23da-7783-44eb-9d5f-2c218f447a0b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[16005, 439, 142, 3, 45, "Subsubsection",ExpressionUUID->"058ef7ee-0b5c-40e3-8aca-019d71992f4a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[16150, 444, 780, 14, 52, "Text",ExpressionUUID->"4730a593-7b39-4fc4-865b-eedd2a31656f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[16933, 460, 589, 10, 48, "Input",ExpressionUUID->"3df308da-af8c-4b6d-b092-defc3bcd02aa",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[17525, 472, 564, 10, 48, "Input",ExpressionUUID->"e7eac378-306c-4c29-9206-af34da784255",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18138, 488, 80, 0, 45, "Subsubsection",ExpressionUUID->"b214a463-06b8-4ecc-9363-ef1aceb8042a"],
Cell[18221, 490, 1262, 41, 105, "Text",ExpressionUUID->"5120fe07-b321-42a2-a7cd-235ce84b3710"],
Cell[19486, 533, 181, 4, 29, "Input",ExpressionUUID->"dd0f049d-7357-4ab0-838d-56d4dc7797d9"],
Cell[19670, 539, 180, 4, 29, "Input",ExpressionUUID->"dce8c1f2-ffca-47e1-a51e-227a39980178"],
Cell[19853, 545, 1318, 25, 212, "Text",ExpressionUUID->"4a7248c4-27a5-4985-824e-398f13c30ccc"],
Cell[21174, 572, 131, 3, 28, "Input",ExpressionUUID->"3767bf4a-536b-49d6-b82e-34678fe348d4"],
Cell[21308, 577, 297, 7, 48, "Input",ExpressionUUID->"1a7a97fa-cc7d-40f3-8af4-d8a4229a46ba"],
Cell[21608, 586, 267, 7, 48, "Input",ExpressionUUID->"f643f1df-8741-4704-b663-3a3337e52f6c"],
Cell[21878, 595, 529, 11, 28, "Input",ExpressionUUID->"e6c2119e-23bb-4c87-b353-274d0fa7d57b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22456, 612, 662, 17, 66, "Section",ExpressionUUID->"c543aa15-20f7-43b5-9b4c-51360427fb55"],
Cell[23121, 631, 659, 22, 97, "Text",ExpressionUUID->"c176086c-4fa2-4a5c-8d4a-42b964cde6d2"],
Cell[23783, 655, 718, 14, 120, "Text",ExpressionUUID->"5cbbf95b-6b92-45b2-a65d-68ffc6da3b46"],
Cell[24504, 671, 590, 12, 74, "Text",ExpressionUUID->"5cfd502d-ba69-4fcb-b11f-8e37cde25f61"],
Cell[CellGroupData[{
Cell[25119, 687, 150, 3, 45, "Subsubsection",ExpressionUUID->"f4bec09f-4427-40e6-819f-14cbe5b6079c"],
Cell[25272, 692, 1277, 23, 189, "Text",ExpressionUUID->"93ef382c-3b45-4446-a886-da198cea598b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26586, 720, 156, 3, 45, "Subsubsection",ExpressionUUID->"15202931-f0c2-4642-978f-e0ac61b4396a"],
Cell[26745, 725, 522, 10, 74, "Text",ExpressionUUID->"f9e96f64-4ea8-4e99-a4d8-19d0d47cb156"],
Cell[27270, 737, 791, 16, 74, "Text",ExpressionUUID->"4a50f9f3-fc16-47b6-9746-86659f230427"],
Cell[CellGroupData[{
Cell[28086, 757, 236, 4, 45, "Subsubsection",ExpressionUUID->"81a5a7f5-d198-4d21-a7ba-cc7cb6939121",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[28325, 763, 505, 11, 120, "Text",ExpressionUUID->"0c16665b-84fe-46b7-9b21-bd715c431d60",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28891, 781, 630, 9, 72, "Chapter",ExpressionUUID->"19e84f6a-1117-41a0-a3d0-54abd69bfe1c"],
Cell[29524, 792, 392, 12, 35, "Text",ExpressionUUID->"ba621b5e-016c-44be-a6a8-e5411eb8ec25"],
Cell[CellGroupData[{
Cell[29941, 808, 387, 7, 66, "Section",ExpressionUUID->"7a80eb35-9cfb-4802-86f2-1ac12f2dc5bb"],
Cell[CellGroupData[{
Cell[30353, 819, 180, 3, 54, "Subsection",ExpressionUUID->"7da6b9d3-8bdb-4ae0-99cc-e5dab38d592a"],
Cell[30536, 824, 681, 17, 143, "Text",ExpressionUUID->"02167c78-b208-455a-85bd-1b8646953b95"],
Cell[31220, 843, 304, 9, 28, "Input",ExpressionUUID->"a9d6f46b-a4c4-4c1d-816a-4d4e00c0e827"],
Cell[31527, 854, 114, 1, 28, "Input",ExpressionUUID->"ac4170f6-2975-42bf-87b2-be6f3eff262b"],
Cell[CellGroupData[{
Cell[31666, 859, 80, 0, 45, "Subsubsection",ExpressionUUID->"4129757f-b643-4e33-9ca8-db349dcb884f"],
Cell[31749, 861, 1996, 56, 251, "Text",ExpressionUUID->"e343e3db-3299-4ddd-afbc-ec0d613faf41"],
Cell[33748, 919, 154, 3, 28, "Input",ExpressionUUID->"677482c8-364a-408a-8b43-8f4ca7a002da"],
Cell[33905, 924, 505, 11, 97, "Text",ExpressionUUID->"0a4370f2-1112-48bb-98af-565aa6d3bccc"],
Cell[34413, 937, 363, 7, 28, "Input",ExpressionUUID->"24cd0b78-49e3-4f33-a700-1f9e8700fd39"],
Cell[34779, 946, 279, 5, 28, "Input",ExpressionUUID->"4bc1c1aa-acf6-4bd2-ad47-ddb40a86a579"],
Cell[35061, 953, 232, 5, 28, "Input",ExpressionUUID->"1f44108d-4715-4c7a-b128-64c68872fa63"],
Cell[35296, 960, 131, 3, 28, "Input",ExpressionUUID->"ac84e3f4-9fa2-4894-a675-b9b0f984ec4a"],
Cell[35430, 965, 842, 20, 304, "Text",ExpressionUUID->"e1d346c1-dcab-4ab6-bf72-7da3c0e6f756"],
Cell[36275, 987, 220, 5, 28, "Input",ExpressionUUID->"3b703c57-c89a-4ef2-964c-1fe8628fb1b6"],
Cell[36498, 994, 236, 5, 28, "Input",ExpressionUUID->"12d24e1d-44bd-4c7c-bb21-fe8d204aca28"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36771, 1004, 80, 0, 45, "Subsubsection",ExpressionUUID->"53a1af50-b3ad-4cda-862f-c0e848b80df2"],
Cell[36854, 1006, 419, 8, 74, "Text",ExpressionUUID->"b64dce92-c59b-4999-8e6e-a4805bbeaa20"],
Cell[37276, 1016, 412, 12, 28, "Input",ExpressionUUID->"7d0de161-24fc-4bcd-9586-9a78b8e8b8e9"],
Cell[37691, 1030, 110, 1, 28, "Input",ExpressionUUID->"e98e500e-8636-408a-aaff-d5346492dbe4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37838, 1036, 80, 0, 45, "Subsubsection",ExpressionUUID->"6e38d530-f7d1-44cc-a1ae-629397b70b1e"],
Cell[37921, 1038, 388, 6, 51, "Text",ExpressionUUID->"03ca60a3-8111-4791-b921-e1c762e23ae0"],
Cell[38312, 1046, 411, 13, 28, "Input",ExpressionUUID->"493342ca-0e04-4265-9596-5ebc467e3a39"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38760, 1064, 257, 5, 45, "Subsubsection",ExpressionUUID->"eeb96acb-f003-4e44-b349-84d34e1866a7"],
Cell[39020, 1071, 356, 7, 51, "Text",ExpressionUUID->"e14e0501-93ae-4e63-a690-fd8061f3cd4f"],
Cell[39379, 1080, 109, 1, 28, "Input",ExpressionUUID->"9ad4d311-4fad-4c0f-9593-9e1dda46678a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39525, 1086, 81, 0, 45, "Subsubsection",ExpressionUUID->"1e21503c-c395-46a5-bedb-0c4567b625c4"],
Cell[39609, 1088, 1123, 23, 212, "Text",ExpressionUUID->"447d0690-83de-4e35-85e6-8d553673c641"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[40781, 1117, 291, 5, 54, "Subsection",ExpressionUUID->"aa992332-dcbb-4b50-b0f5-5a1974f80ab8"],
Cell[41075, 1124, 536, 18, 82, "Text",ExpressionUUID->"fd2af709-cd0d-46d6-bb8f-16579a0f5d05"],
Cell[CellGroupData[{
Cell[41636, 1146, 80, 0, 45, "Subsubsection",ExpressionUUID->"3cf922d2-8d4b-4ded-a7ff-872649c956e8"],
Cell[41719, 1148, 227, 6, 28, "Input",ExpressionUUID->"b5df98f1-f31d-4031-be74-760651b62938"],
Cell[41949, 1156, 116, 1, 28, "Input",ExpressionUUID->"f9406ac3-ae3f-41f0-bcbb-d7ff93daa500"],
Cell[42068, 1159, 117, 1, 28, "Input",ExpressionUUID->"5362d426-e39f-4e17-96fc-e7a722ba8e06"],
Cell[42188, 1162, 324, 9, 28, "Input",ExpressionUUID->"078579ee-08fb-4482-9716-7b77303710f8"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42573, 1178, 543, 12, 71, "Section",ExpressionUUID->"7914dbf5-7d2b-4f60-92e5-32f2cecbf038"],
Cell[CellGroupData[{
Cell[43141, 1194, 377, 6, 70, "Subsection",ExpressionUUID->"c10ca115-c414-46b5-ac81-300bdbe1e852"],
Cell[43521, 1202, 1211, 35, 209, "Text",ExpressionUUID->"84cbae44-9dc4-4267-992f-e692a55caf9c"],
Cell[44735, 1239, 622, 17, 28, "Input",ExpressionUUID->"a9fca86d-2c00-4ef9-9015-6f6043644f91"],
Cell[45360, 1258, 129, 3, 28, "Input",ExpressionUUID->"d4b5f038-430f-4418-9916-528da0adb3d6"],
Cell[45492, 1263, 516, 11, 74, "Text",ExpressionUUID->"781e39c0-cf47-405e-87a3-485dd0bc3057"],
Cell[46011, 1276, 129, 3, 28, "Input",ExpressionUUID->"75d29fbe-4024-42c6-9982-0a5b17febb3d"],
Cell[CellGroupData[{
Cell[46165, 1283, 535, 11, 50, "Subsubsection",ExpressionUUID->"e2dca5e5-01a7-4f10-ad70-6aa84bf3c7cb",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[46703, 1296, 590, 14, 78, "Text",ExpressionUUID->"36f47bc1-b1e9-41d0-a2b1-df02bfe8437a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[47296, 1312, 286, 8, 28, "Input",ExpressionUUID->"c6e8df27-60b2-483a-bc45-46405c160576",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[47585, 1322, 209, 5, 28, "Input",ExpressionUUID->"e2f2bb8a-186e-4297-958c-e7d1a7087b57",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[47797, 1329, 671, 16, 31, "Input",ExpressionUUID->"e7f09a8a-c0a0-4eda-aea4-e8227f0729d4",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[48483, 1348, 180, 4, 28, "Input",ExpressionUUID->"dd33098b-dbd5-4698-8956-e389260331af"],
Cell[48666, 1354, 400, 12, 31, "Input",ExpressionUUID->"e1403c0f-ca08-4950-a4d1-81c880a506f7"],
Cell[CellGroupData[{
Cell[49091, 1370, 152, 3, 45, "Subsubsection",ExpressionUUID->"dba6ec31-c412-4fae-8372-d6b9260f860e"],
Cell[49246, 1375, 637, 17, 112, "Text",ExpressionUUID->"374c77aa-0b0e-4486-b986-5c1f84fb8d75"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49920, 1397, 152, 3, 45, "Subsubsection",ExpressionUUID->"72be0a20-b0c8-432e-8f95-dea9e0787572"],
Cell[50075, 1402, 735, 17, 93, "Text",ExpressionUUID->"0ce8d30e-4175-468a-afd4-8e20fd9f0b95"],
Cell[50813, 1421, 201, 4, 28, "Input",ExpressionUUID->"01244f8f-0427-4721-9860-58b436737825"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51051, 1430, 80, 0, 45, "Subsubsection",ExpressionUUID->"5dc6fcb9-61c3-4f9b-abfc-d7edabb2df08"],
Cell[51134, 1432, 395, 8, 74, "Text",ExpressionUUID->"cb12a38e-d0b2-4e2a-8a84-c5718ca3db6d"],
Cell[51532, 1442, 527, 9, 49, "Text",ExpressionUUID->"a7f2617a-2fdd-4f77-a3bf-9b76e4b0601e"],
Cell[52062, 1453, 498, 13, 31, "Input",ExpressionUUID->"81dbd45e-3d02-4f31-81f2-37af428b5a7c"],
Cell[52563, 1468, 182, 4, 28, "Input",ExpressionUUID->"efe74917-4583-4467-8c78-2421b9e26d69"],
Cell[52748, 1474, 324, 5, 51, "Text",ExpressionUUID->"b3c10051-42cc-4ce6-861a-12c082c4100f"],
Cell[53075, 1481, 274, 6, 28, "Input",ExpressionUUID->"0f836bd8-4d2a-4285-8f6a-541e8575e2b5"],
Cell[53352, 1489, 302, 5, 51, "Text",ExpressionUUID->"e5f5b87b-48b2-44a2-be49-e76a35feed6d"],
Cell[53657, 1496, 599, 11, 28, "Input",ExpressionUUID->"9e6ed086-62de-4089-a486-a8f23e143e61"],
Cell[54259, 1509, 421, 6, 51, "Text",ExpressionUUID->"1c3ab493-8a73-40bd-b021-b3cf5da93ce9"],
Cell[54683, 1517, 186, 5, 28, "Input",ExpressionUUID->"5b8e3a49-c3fa-4a63-a23f-dda0f54c9fee"],
Cell[54872, 1524, 179, 3, 51, "Text",ExpressionUUID->"f968fa85-faa0-4b5c-99c2-81a9ddc15e11"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55088, 1532, 152, 3, 45, "Subsubsection",ExpressionUUID->"f7200fad-993e-4ff5-9c7e-a779a70039f4"],
Cell[55243, 1537, 116, 1, 28, "Input",ExpressionUUID->"c4eabd73-5687-4b90-bd43-134e49519d6e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55396, 1543, 80, 0, 45, "Subsubsection",ExpressionUUID->"df16ed39-5d72-4da7-812b-8b12cdb20673"],
Cell[55479, 1545, 497, 7, 51, "Text",ExpressionUUID->"b219e594-60af-4dc3-95e1-c3b905f89427"],
Cell[55979, 1554, 439, 12, 31, "Input",ExpressionUUID->"c1dcd22c-013d-47df-917f-3efd23ab24a8"],
Cell[56421, 1568, 179, 3, 51, "Text",ExpressionUUID->"6589b23b-990b-4438-b885-44bac297671b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56637, 1576, 80, 0, 45, "Subsubsection",ExpressionUUID->"c9dce9b1-793b-42e0-87ff-23b99ba7c635"],
Cell[56720, 1578, 859, 18, 97, "Text",ExpressionUUID->"2634a843-252f-4207-9a15-7bffc99445d6"],
Cell[57582, 1598, 570, 15, 31, "Input",ExpressionUUID->"e7c1c91b-0994-488b-82fc-96c46b2e0762"],
Cell[58155, 1615, 129, 3, 28, "Input",ExpressionUUID->"f41b611b-91c7-4cf2-aea7-56db0bca8590"],
Cell[58287, 1620, 492, 7, 51, "Text",ExpressionUUID->"61445c34-259c-43be-bafe-11375a931eaa"],
Cell[58782, 1629, 718, 16, 31, "Input",ExpressionUUID->"120db295-f4f4-464e-a13a-51dc53cd6991"],
Cell[59503, 1647, 416, 6, 51, "Text",ExpressionUUID->"1150978e-d69d-4137-81f4-9f6081540106"],
Cell[59922, 1655, 372, 11, 31, "Input",ExpressionUUID->"b4054aca-71ba-47aa-a4ce-e2db9353adfa"],
Cell[60297, 1668, 516, 14, 31, "Input",ExpressionUUID->"77709b3f-934c-4d3e-941a-aafd05d2b0cb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60850, 1687, 80, 0, 45, "Subsubsection",ExpressionUUID->"bbbcc32a-2b49-433a-96c3-064339510ed8"],
Cell[60933, 1689, 507, 11, 51, "Text",ExpressionUUID->"9597f673-d175-446d-b217-d5513640ce74"],
Cell[61443, 1702, 443, 11, 31, "Input",ExpressionUUID->"6a5ab084-fe04-4f3d-9ca3-5d6e619be5b5"],
Cell[61889, 1715, 208, 5, 28, "Input",ExpressionUUID->"07c0b941-03c5-4b13-ab1a-f89279b1cd69"],
Cell[62100, 1722, 855, 29, 70, "Text",ExpressionUUID->"f08a1623-083a-4327-928b-3b544ed248f5"],
Cell[62958, 1753, 183, 4, 28, "Input",ExpressionUUID->"da5fad06-0091-491c-a8f7-c5cd9d506e81"],
Cell[63144, 1759, 207, 5, 28, "Input",ExpressionUUID->"c88b77bf-ff8d-44e3-937a-cc46897d0f99"],
Cell[63354, 1766, 414, 9, 28, "Input",ExpressionUUID->"12ec1a87-2144-4e76-b47b-bcbbf7feca79"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[63817, 1781, 450, 7, 70, "Subsection",ExpressionUUID->"bbccefde-8be9-4d90-a5c8-5ec81a3c15b2"],
Cell[64270, 1790, 681, 16, 76, "Text",ExpressionUUID->"2fd39633-40d2-4bbe-b316-03863e171a2f"],
Cell[64954, 1808, 260, 7, 31, "Input",ExpressionUUID->"5150b380-7673-4d76-bf1c-8b1481864186"],
Cell[65217, 1817, 151, 3, 28, "Input",ExpressionUUID->"cf1d494f-719b-42a6-9975-eca31b57f6f4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65405, 1825, 490, 8, 70, "Subsection",ExpressionUUID->"b2a556a4-a546-4f12-a201-819366799859"],
Cell[65898, 1835, 929, 30, 75, "Text",ExpressionUUID->"29d552e2-a478-4a3d-8c1d-f132c236838d"],
Cell[CellGroupData[{
Cell[66852, 1869, 80, 0, 45, "Subsubsection",ExpressionUUID->"c632589e-aa67-4d1b-ae04-cee5ba048b79"],
Cell[66935, 1871, 395, 11, 43, "Input",ExpressionUUID->"fbe6e222-c7a1-4393-9dd5-431630ec43b3"],
Cell[67333, 1884, 129, 3, 28, "Input",ExpressionUUID->"807e85aa-5fad-4a56-9580-11f04c10216b"],
Cell[67465, 1889, 427, 13, 43, "Input",ExpressionUUID->"883a13c3-73b3-41d6-b258-35cfc74ddd65"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67929, 1907, 150, 3, 45, "Subsubsection",ExpressionUUID->"4aea4f2d-d10f-4917-909a-d2eb1f816b2c"],
Cell[68082, 1912, 519, 12, 61, "Text",ExpressionUUID->"e4501803-38ae-4651-99f2-dda6b0a744a4"],
Cell[68604, 1926, 1601, 58, 106, "Text",ExpressionUUID->"3b6b000f-891f-457d-8124-f4ea3ad9ba26"],
Cell[70208, 1986, 578, 16, 28, "Input",ExpressionUUID->"7e56e37c-e27d-42b8-9ac6-1a4d7245f562"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70823, 2007, 152, 3, 45, "Subsubsection",ExpressionUUID->"4a6b48b1-35b1-4dd9-993e-ff5a628cfd72"],
Cell[70978, 2012, 587, 20, 28, "Input",ExpressionUUID->"0017ed58-1396-49e9-bab7-1f8f922669e5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71602, 2037, 150, 3, 45, "Subsubsection",ExpressionUUID->"65884806-d4ee-437d-86cf-9911e514ec4a"],
Cell[71755, 2042, 289, 4, 51, "Text",ExpressionUUID->"35ca9ec2-e2da-4fe8-a835-e6f07a2632ca"],
Cell[72047, 2048, 1033, 33, 43, "Input",ExpressionUUID->"80ce2f30-ef77-4374-af90-71422a72f969"],
Cell[73083, 2083, 183, 4, 28, "Input",ExpressionUUID->"9cc42505-75f1-4b17-8085-c235e6659366"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[73339, 2095, 475, 7, 72, "Chapter",ExpressionUUID->"e8029dc5-9af4-45b9-ba98-895193da8b9b"],
Cell[CellGroupData[{
Cell[73839, 2106, 80, 0, 45, "Subsubsection",ExpressionUUID->"19f4ff44-f8fc-4d66-b309-3cd6770afcc1"],
Cell[73922, 2108, 1190, 34, 181, "Text",ExpressionUUID->"f46afdb6-daf9-4297-9c33-b1b5216815fd"],
Cell[75115, 2144, 238, 6, 28, "Input",ExpressionUUID->"3312d550-6fe4-4de5-a57e-af2217c84e69"],
Cell[75356, 2152, 232, 6, 28, "Input",ExpressionUUID->"de4191cf-8f5f-4372-8c79-25ad6ac99290"]
}, Closed]],
Cell[CellGroupData[{
Cell[75625, 2163, 80, 0, 37, "Subsubsection",ExpressionUUID->"96b3c928-2e88-435b-9742-457b40585623"],
Cell[75708, 2165, 395, 8, 28, "Input",ExpressionUUID->"ce783fd8-6a88-4183-a292-878961b8a950"],
Cell[76106, 2175, 249, 6, 28, "Input",ExpressionUUID->"4790778c-1c5a-428b-85c9-b02fe5cbea44"]
}, Closed]],
Cell[CellGroupData[{
Cell[76392, 2186, 80, 0, 37, "Subsubsection",ExpressionUUID->"3e139850-d25b-4d3c-853f-5624cc06b814"],
Cell[76475, 2188, 750, 21, 77, "Text",ExpressionUUID->"d202c382-c50e-4f46-a522-6c637c083ed3"],
Cell[77228, 2211, 302, 9, 32, "Input",ExpressionUUID->"8bafdbfc-05d9-4d2c-96dc-ef9cd59bd334"]
}, Closed]],
Cell[CellGroupData[{
Cell[77567, 2225, 179, 3, 37, "Subsubsection",ExpressionUUID->"cf5781a7-5f44-46a1-9e21-ce539d23a428"],
Cell[77749, 2230, 368, 8, 74, "Text",ExpressionUUID->"3d1ffa65-bec5-42d1-a641-f4e7c8215386"],
Cell[78120, 2240, 613, 16, 28, "Input",ExpressionUUID->"30c324c8-adba-4d2f-af21-da6daaadab33"],
Cell[78736, 2258, 297, 8, 33, "Input",ExpressionUUID->"4ee58c57-e198-4c6f-a2a6-e574153d217e"]
}, Closed]],
Cell[CellGroupData[{
Cell[79070, 2271, 174, 2, 37, "Subsubsection",ExpressionUUID->"36f6ac67-fec0-4495-a589-221fafdcadd3"],
Cell[79247, 2275, 809, 21, 147, "Text",ExpressionUUID->"f8b220da-d2c8-40ce-a850-d9b6fc7be538"],
Cell[80059, 2298, 371, 9, 35, "Text",ExpressionUUID->"7360bdd7-6af8-4aa0-90fe-f50b2a800665"],
Cell[80433, 2309, 628, 19, 61, "Input",ExpressionUUID->"9d1bf505-2e14-4bee-903b-670a7394ed00"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81098, 2333, 152, 3, 45, "Subsubsection",ExpressionUUID->"c53fb82a-0669-47b1-b028-0db2ae80b768"],
Cell[81253, 2338, 604, 13, 120, "Text",ExpressionUUID->"52839b19-8ba1-40af-ae4a-4272c883fe32"]
}, Closed]],
Cell[CellGroupData[{
Cell[81894, 2356, 80, 0, 37, "Subsubsection",ExpressionUUID->"a81ff0bd-22ef-4101-9f7d-965df7f86965"],
Cell[81977, 2358, 801, 16, 96, "Text",ExpressionUUID->"d354793f-5fae-4209-a99d-183a639e9b77"],
Cell[82781, 2376, 107, 1, 28, "Input",ExpressionUUID->"7d29aef8-97f4-4a5b-a4c8-41b562b90b7e"],
Cell[82891, 2379, 552, 17, 61, "Input",ExpressionUUID->"5721a513-0bef-440b-80b4-8ba849b25681"],
Cell[83446, 2398, 453, 11, 49, "Text",ExpressionUUID->"c0c96ff2-74d4-48d9-84d4-1a2d6a3bbee5"]
}, Closed]],
Cell[CellGroupData[{
Cell[83936, 2414, 80, 0, 37, "Subsubsection",ExpressionUUID->"a1e89c31-b9ee-4e9d-aa6c-c8297ac66a18"],
Cell[84019, 2416, 907, 24, 104, "Text",ExpressionUUID->"8d34d283-fd63-4922-8370-54ce2e4e68a0"],
Cell[84929, 2442, 384, 10, 32, "Input",ExpressionUUID->"a9f004e2-b151-40cd-ac54-81537b4f052c"],
Cell[85316, 2454, 387, 10, 32, "Input",ExpressionUUID->"0955e786-af2d-4036-b3fa-70e4fb320144"]
}, Closed]],
Cell[CellGroupData[{
Cell[85740, 2469, 80, 0, 37, "Subsubsection",ExpressionUUID->"0fb29a11-7659-4dbe-9eb7-c05e51daf57b"],
Cell[85823, 2471, 1317, 40, 105, "Text",ExpressionUUID->"48970e25-867f-481c-a7f6-faf30d47646a"],
Cell[87143, 2513, 401, 12, 31, "Input",ExpressionUUID->"5ad99914-1891-44e4-b8ee-8a613911a84b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[87593, 2531, 497, 8, 72, "Chapter",ExpressionUUID->"68176c1c-ca09-4008-972c-dd04796d182b"],
Cell[CellGroupData[{
Cell[88115, 2543, 479, 12, 74, "Subsection",ExpressionUUID->"e5363f28-60b7-4df5-ab13-afe83832f703"],
Cell[88597, 2557, 407, 10, 33, "Text",ExpressionUUID->"737e7201-af7e-4703-b4da-134aa697b182"],
Cell[CellGroupData[{
Cell[89029, 2571, 80, 0, 44, "Subsubsection",ExpressionUUID->"e8f454cc-ca54-443c-820d-b5753ea31aba"],
Cell[89112, 2573, 916, 20, 120, "Text",ExpressionUUID->"dc1fb7f3-2a11-46bd-a19a-e0c56d5440e4"]
}, Closed]],
Cell[CellGroupData[{
Cell[90065, 2598, 80, 0, 44, "Subsubsection",ExpressionUUID->"351fd7ea-2669-4afa-839a-5b0dc08370f1"],
Cell[90148, 2600, 543, 16, 28, "Input",ExpressionUUID->"1a40a898-477b-4ee9-b0b1-60f7441563ef"],
Cell[90694, 2618, 233, 5, 28, "Input",ExpressionUUID->"b46c3d62-46b5-4239-af35-402c37ea03d5"],
Cell[90930, 2625, 233, 5, 28, "Input",ExpressionUUID->"080517d1-ec9e-467e-9010-7944e656bf7e"],
Cell[91166, 2632, 336, 6, 28, "Input",ExpressionUUID->"7a8321f6-9395-41c4-976e-a854f91e8955"],
Cell[91505, 2640, 233, 5, 28, "Input",ExpressionUUID->"22ff7e3d-66ac-44ba-b98c-ac41e9b15353"]
}, Closed]],
Cell[CellGroupData[{
Cell[91775, 2650, 80, 0, 44, "Subsubsection",ExpressionUUID->"ac94cfe4-85ad-4c51-83ca-1b7dae865a15"],
Cell[91858, 2652, 1059, 30, 120, "Text",ExpressionUUID->"55ab07fa-1bff-44bb-85ff-13db4663f6a1"],
Cell[92920, 2684, 496, 13, 73, "Text",ExpressionUUID->"61154add-7831-4ac8-8125-851c6a10a5e7"],
Cell[93419, 2699, 304, 6, 50, "Text",ExpressionUUID->"5dbcf43a-8712-44cb-a5ad-1b270d26865b"],
Cell[93726, 2707, 178, 4, 28, "Input",ExpressionUUID->"0917f7d3-483e-4c8d-8ae6-21e6a2cd366b"],
Cell[93907, 2713, 129, 3, 28, "Input",ExpressionUUID->"9af4aa00-26a4-432a-baaf-c0913c345d4c"]
}, Closed]],
Cell[CellGroupData[{
Cell[94073, 2721, 162, 3, 44, "Subsubsection",ExpressionUUID->"48c4c88f-87d4-46f6-96b0-e36d4459e9ab"],
Cell[94238, 2726, 463, 11, 28, "Input",ExpressionUUID->"0a7317d7-9513-4577-94fb-525c952bf7b6"],
Cell[94704, 2739, 425, 12, 28, "Input",ExpressionUUID->"abaef242-6aae-49ad-a2e4-8ba2b3708f57"],
Cell[95132, 2753, 416, 12, 28, "Input",ExpressionUUID->"2d07f7ad-d773-423e-8832-25787fd8c3b7"],
Cell[95551, 2767, 257, 7, 28, "Input",ExpressionUUID->"5ac9d852-3e82-4da3-af5b-95b793d30ed3"],
Cell[95811, 2776, 318, 9, 28, "Input",ExpressionUUID->"afa279ff-e94a-4132-8334-e1023db124a9"],
Cell[96132, 2787, 188, 4, 28, "Input",ExpressionUUID->"edfd5efc-8df9-45b6-8fbb-e68040912176"],
Cell[96323, 2793, 180, 4, 28, "Input",ExpressionUUID->"feeff907-581b-4322-a241-25562e2e5b77"],
Cell[96506, 2799, 612, 22, 50, "Input",ExpressionUUID->"62120a8e-f781-442f-85df-0c77f0888059"],
Cell[97121, 2823, 181, 4, 28, "Input",ExpressionUUID->"54e4cd9f-ee31-4e40-94d6-ab3287983079"],
Cell[97305, 2829, 434, 13, 28, "Input",ExpressionUUID->"b1a1be00-2cb6-41ed-ba94-4e3768c4f9ad"],
Cell[97742, 2844, 131, 3, 28, "Input",ExpressionUUID->"8452bea8-7017-4954-ab3e-a43efd6234cb"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[97934, 2854, 157, 3, 53, "Subtitle",ExpressionUUID->"7136a581-9ade-45d0-aa5b-6be18c329799"],
Cell[CellGroupData[{
Cell[98116, 2861, 253, 5, 66, "Section",ExpressionUUID->"dc00a390-6818-4088-8a1c-53e86e70af1b"],
Cell[98372, 2868, 557, 15, 74, "Text",ExpressionUUID->"78497283-77c8-4342-8d68-c24549b9811d"],
Cell[98932, 2885, 208, 5, 28, "Input",ExpressionUUID->"91c2b90b-b99c-460b-8867-3957ffbcfcc6"],
Cell[99143, 2892, 284, 7, 28, "Input",ExpressionUUID->"8f3d2841-d47d-4361-bb31-b00898196423"],
Cell[99430, 2901, 152, 3, 35, "Text",ExpressionUUID->"57ebf325-f7cb-4fa0-9643-733468ea806e"],
Cell[99585, 2906, 320, 6, 28, "Input",ExpressionUUID->"af4ef0cf-6c9a-4d44-9da4-3cd758b22b33"],
Cell[99908, 2914, 129, 3, 28, "Input",ExpressionUUID->"90b55159-81a1-487b-9421-5a0a28229318"],
Cell[100040, 2919, 512, 10, 97, "Text",ExpressionUUID->"00cc6cc8-ea7d-4736-b3d2-d29c7a4f86eb"],
Cell[CellGroupData[{
Cell[100577, 2933, 156, 3, 45, "Subsubsection",ExpressionUUID->"6a029c2c-19ac-4602-b85e-efa95d8369ba"],
Cell[100736, 2938, 400, 11, 28, "Input",ExpressionUUID->"6407a6f5-8609-4f7b-a9a8-5fc462a693eb"],
Cell[101139, 2951, 277, 8, 29, "Input",ExpressionUUID->"c17a6417-f659-4c44-a6d5-41d670d3950d"],
Cell[101419, 2961, 131, 3, 28, "Input",ExpressionUUID->"b98f4f3d-5d81-454d-b4ed-7e7dd0894050"],
Cell[101553, 2966, 436, 8, 73, "Text",ExpressionUUID->"c43fd04b-d64a-48f6-bd57-e1ca153b34fd"],
Cell[101992, 2976, 502, 14, 73, "Text",ExpressionUUID->"db7a7210-75c1-4d1c-b804-4c2c634cd6cd"],
Cell[102497, 2992, 171, 4, 28, "Input",ExpressionUUID->"c346b88e-c14c-474f-adab-ff349395498f"],
Cell[102671, 2998, 154, 3, 28, "Input",ExpressionUUID->"c72492ba-72ba-4397-8e29-ba32d11b1722"],
Cell[102828, 3003, 149, 3, 48, "Input",ExpressionUUID->"becd4133-bcad-4561-95ba-5dca38df6f4f"],
Cell[102980, 3008, 645, 16, 100, "Text",ExpressionUUID->"bcbc0944-46ec-49f1-98bd-2ccf5f51327a"],
Cell[103628, 3026, 1380, 43, 17, "Text",ExpressionUUID->"9f16251a-70ca-4827-b194-6ffcb780ad07"],
Cell[105011, 3071, 207, 5, 17, "Input",ExpressionUUID->"451a2396-5bef-4a6f-8516-2e4c71895434"],
Cell[105221, 3078, 109, 1, 17, "Input",ExpressionUUID->"b89d95c2-abff-4000-889f-0c2430b2d290"],
Cell[105333, 3081, 109, 1, 17, "Input",ExpressionUUID->"3fde7621-c607-4f9c-9594-3bd9b6f4bafc"],
Cell[105445, 3084, 251, 7, 17, "Text",ExpressionUUID->"d91899f0-bc9f-4aca-aa99-811909dc653c"],
Cell[105699, 3093, 188, 4, 17, "Input",ExpressionUUID->"56fd149f-5ac3-4d45-aabf-7d91268e2e19"],
Cell[105890, 3099, 295, 7, 17, "Text",ExpressionUUID->"858f3f07-d07a-4983-9a28-c74ade612a6d"],
Cell[106188, 3108, 905, 22, 17, "Text",ExpressionUUID->"22974b9d-9da5-4457-8405-111662c4ca90"],
Cell[107096, 3132, 129, 3, 17, "Input",ExpressionUUID->"55714328-340c-4b71-91fc-62e4407a8fec"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[107274, 3141, 302, 6, 66, "Section",ExpressionUUID->"ccd08032-d434-4fdb-8820-2384a8aa076f"],
Cell[107579, 3149, 553, 12, 72, "Text",ExpressionUUID->"3b432993-7394-4bee-8355-bca5805baa80"],
Cell[108135, 3163, 1306, 27, 117, "Text",ExpressionUUID->"6dec8c98-f777-4262-a3a2-a170c0af8013"],
Cell[109444, 3192, 360, 8, 28, "Input",ExpressionUUID->"4383dff9-1d7a-47ed-9281-ecab8c10a033"],
Cell[109807, 3202, 304, 8, 28, "Input",ExpressionUUID->"b2dc7990-b412-48ca-849e-d12ecf5fd5cd"],
Cell[110114, 3212, 129, 3, 28, "Input",ExpressionUUID->"c4648c86-b11e-452e-bb9e-240cd8922042"]
}, Closed]],
Cell[CellGroupData[{
Cell[110280, 3220, 353, 6, 52, "Section",ExpressionUUID->"90fb72d0-7fe4-4a2b-ac19-2ea22543d6ce"],
Cell[110636, 3228, 643, 14, 49, "Text",ExpressionUUID->"da67f453-d4bb-496c-bb6a-d9ad2dfc0ae5"],
Cell[111282, 3244, 186, 4, 28, "Input",ExpressionUUID->"caa78cf2-1738-4ae3-b09c-8f1a22df9332"],
Cell[111471, 3250, 586, 13, 28, "Input",ExpressionUUID->"f8fad9e8-f14f-44ea-8e2f-fb99abd883a6"],
Cell[112060, 3265, 182, 4, 28, "Input",ExpressionUUID->"4b5613f4-ad86-4c4a-b7b4-03f2dc1b8c99"],
Cell[112245, 3271, 358, 7, 28, "Input",ExpressionUUID->"9a372fea-bc85-448b-ac7a-4388169be964"],
Cell[112606, 3280, 177, 4, 28, "Input",ExpressionUUID->"20602c7c-b6ab-4ede-8a94-df4c84dd9d86"],
Cell[112786, 3286, 260, 6, 28, "Input",ExpressionUUID->"a8bc10d8-cee4-406c-a84c-c861aec58cf0"],
Cell[113049, 3294, 556, 10, 49, "Text",ExpressionUUID->"56bc933e-c779-42fe-af8c-25f86cdca444"],
Cell[113608, 3306, 883, 21, 124, "Text",ExpressionUUID->"776e127b-471d-479d-a69e-082f28036a04"],
Cell[114494, 3329, 188, 5, 45, "Input",ExpressionUUID->"4ff00fe7-26f8-4b97-aaf9-15e2c9150783"],
Cell[114685, 3336, 109, 1, 28, "Input",ExpressionUUID->"192aa11c-a4ba-4151-bdcb-393306f665d7"],
Cell[114797, 3339, 310, 7, 28, "Input",ExpressionUUID->"10438bfe-d40c-4661-a123-06ed7063dfbe"],
Cell[115110, 3348, 273, 5, 28, "Input",ExpressionUUID->"a12ad13a-d107-4a61-bc57-3465059bf0be"],
Cell[115386, 3355, 109, 1, 28, "Input",ExpressionUUID->"e9b8026b-be4d-40c2-a2ca-cc2da9ac9120"],
Cell[115498, 3358, 527, 7, 49, "Text",ExpressionUUID->"811e2903-0a26-4fe7-9f9d-84aa98df1290"]
}, Closed]],
Cell[CellGroupData[{
Cell[116062, 3370, 402, 7, 52, "Section",ExpressionUUID->"89b8fb33-00f4-4960-a11d-838e8f64064b"],
Cell[116467, 3379, 386, 6, 49, "Text",ExpressionUUID->"f3e293d1-2f59-49aa-9d30-5344586e80b6"],
Cell[116856, 3387, 453, 12, 48, "Input",ExpressionUUID->"2533d832-cf3d-4ae0-af30-c62bd0cbcdd0"],
Cell[117312, 3401, 265, 6, 28, "Input",ExpressionUUID->"da8585af-8c65-4ceb-8328-f5665c52032a"],
Cell[117580, 3409, 131, 3, 28, "Input",ExpressionUUID->"06a1fed1-5806-46ad-81a4-79cfa9dc998f"],
Cell[117714, 3414, 506, 7, 49, "Text",ExpressionUUID->"80d0c5bb-6186-4574-90ab-76b6fb85a5fc"],
Cell[118223, 3423, 234, 5, 28, "Input",ExpressionUUID->"837c0c4a-6553-4e6d-aa59-0f936698ea60"],
Cell[118460, 3430, 154, 3, 33, "Text",ExpressionUUID->"ea687d91-9759-42d1-8866-c40fca685297"],
Cell[118617, 3435, 139, 3, 28, "Input",ExpressionUUID->"06d136c0-87ea-4908-ae83-d9c5d3205f46"],
Cell[118759, 3440, 264, 5, 28, "Input",ExpressionUUID->"93f65876-756e-487f-acc7-afb159dcefd2"]
}, Closed]],
Cell[CellGroupData[{
Cell[119060, 3450, 481, 8, 52, "Section",ExpressionUUID->"7351877d-8066-474f-a964-a55013a3fa54"],
Cell[119544, 3460, 890, 19, 161, "Text",ExpressionUUID->"73180240-d92f-49ea-82c3-4667707a8edf"],
Cell[120437, 3481, 473, 7, 49, "Text",ExpressionUUID->"c1333033-c85e-4c8d-b01f-eec5d3b11dbf"],
Cell[120913, 3490, 175, 4, 28, "Input",ExpressionUUID->"e82f496f-09b0-4b94-badf-2bdbb9c9432b"],
Cell[121091, 3496, 162, 3, 28, "Input",ExpressionUUID->"6f364278-5e41-4736-9427-209845345db3"],
Cell[121256, 3501, 357, 7, 49, "Text",ExpressionUUID->"004fa858-7510-4009-94fd-91e296f5c249"],
Cell[121616, 3510, 181, 3, 28, "Input",ExpressionUUID->"1fe730c1-aadc-4d0a-bb8a-750a338295e0"]
}, Closed]],
Cell[CellGroupData[{
Cell[121834, 3518, 682, 11, 52, "Section",ExpressionUUID->"1eba540e-65a2-4b83-a5a5-3c5c4e7be110"],
Cell[122519, 3531, 734, 22, 117, "Text",ExpressionUUID->"61716230-f728-4c9f-b98e-a55cfc8cecae"],
Cell[123256, 3555, 1336, 46, 144, "Text",ExpressionUUID->"4201ee1c-30a4-4cc2-b0fa-9c47ab1044de"],
Cell[124595, 3603, 805, 23, 96, "Text",ExpressionUUID->"15cc5fed-4238-41ff-a452-9047c188cd6c"]
}, Closed]]
}, Open  ]]
}, Open  ]]
}
]
*)