(* 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[     63756,       1251]
NotebookOptionsPosition[     61774,       1217]
NotebookOutlinePosition[     62253,       1235]
CellTagsIndexPosition[     62210,       1232]
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\nExercise for the \
first three lectures (October 28, 2023)"
}], "Text",
 CellFrame->{{0, 0}, {0.5, 0}},
 CellChangeTimes->{{3.6030403380477047`*^9, 3.6030403496377206`*^9}, {
   3.6042342921245947`*^9, 3.604234293844597*^9}, {3.6659842250605717`*^9, 
   3.665984234810585*^9}, {3.665988776604652*^9, 3.6659887774046535`*^9}, {
   3.666106805730517*^9, 3.666106807983646*^9}, {3.686715090311494*^9, 
   3.68671511399888*^9}, {3.6973875672817383`*^9, 3.6973875784126663`*^9}, {
   3.697434883527854*^9, 3.697434886700633*^9}, {3.7288472476388865`*^9, 
   3.728847250442567*^9}, 3.7290563713306975`*^9, {3.7603265886670856`*^9, 
   3.760326590879668*^9}, {3.792953448635523*^9, 3.7929534512106314`*^9}, {
   3.793001443067047*^9, 3.793001457902358*^9}, {3.793125487673247*^9, 
   3.7931254933125515`*^9}, {3.823794609368146*^9, 3.8237946203338003`*^9}, {
   3.905514199116931*^9, 3.90551422872608*^9}, {3.9055144580037365`*^9, 
   3.9055145289462028`*^9}, 3.905524053605975*^9, {3.9056541789884577`*^9, 
   3.90565419524717*^9}, {3.906167256174015*^9, 3.9061672588858814`*^9}, {
   3.9067247773353424`*^9, 3.906724780763774*^9}, {3.9074107712454653`*^9, 
   3.9074107934173474`*^9}, {3.907507135155755*^9, 3.9075071356480827`*^9}},
 FontSize->12,
 Background->None,ExpressionUUID->"b016031e-6c8e-4a66-ac65-1747af6335ee"],

Cell[CellGroupData[{

Cell["Exercises for lectures 1-3", "Title",
 CellChangeTimes->{{3.6661072320849032`*^9, 3.6661072427585135`*^9}, {
  3.6661104489970016`*^9, 3.66611045504701*^9}, {3.66685386493797*^9, 
  3.6668538678979745`*^9}, {3.729603406077321*^9, 3.729603410616357*^9}, {
  3.9074107978591924`*^9, 3.9074108114308844`*^9}, {3.9074113340919065`*^9, 
  3.9074113346333585`*^9}},ExpressionUUID->"f729008c-babd-4da4-bc56-\
be901629beba"],

Cell["\<\
1. Create a list of the squares of the natural numbers between 1 and 99. \
Extract its 11th element. \
\>", "Text",
 CellChangeTimes->{{3.666107539131465*^9, 3.666107601891055*^9}, {
   3.666108241794655*^9, 3.6661082624828386`*^9}, 3.666108368004874*^9, 
   3.6661085551218023`*^9, {3.697602269802958*^9, 3.6976022701192026`*^9}, {
   3.9074108215034533`*^9, 3.9074108771643515`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"60ed2545-9357-4dd9-9a2f-7ac787a18d14"],

Cell[TextData[{
 "2. Define a function f(n) which produces the approximation of  ",
 Cell[BoxData[
  FormBox[
   SqrtBox["3"], TraditionalForm]],ExpressionUUID->
  "4186818a-c307-4525-8861-61431116cbd8"],
 "-1  with n decimal digits."
}], "Text",
 CellChangeTimes->{{3.6661072470917616`*^9, 3.6661072500919333`*^9}, {
  3.6661076370720673`*^9, 3.6661076375670958`*^9}, {3.6661076714910355`*^9, 
  3.66610772121588*^9}, {3.666107774232912*^9, 3.6661078209845862`*^9}, {
  3.69760227195304*^9, 3.6976022881977787`*^9}, {3.9074109120282073`*^9, 
  3.907410960601859*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"64e41634-1614-4033-8581-bd92fcdf0616"],

Cell[TextData[{
 "3. Determine the zeroes of the polynomial  ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["x", "3"], "-", 
   RowBox[{"2", "x"}], "+", "1"}]],ExpressionUUID->
  "b0b7fa14-c917-4bd4-b3df-f403ecac4d7a"]
}], "Text",
 CellChangeTimes->{{3.666107723280998*^9, 3.666107724177049*^9}, {
  3.666107836467472*^9, 3.666107836841493*^9}, {3.666108570021824*^9, 
  3.666108585521845*^9}, {3.6661088578932266`*^9, 3.6661088884032693`*^9}, {
  3.6661089621033726`*^9, 3.666108986183406*^9}, {3.697602289931883*^9, 
  3.697602290363816*^9}, {3.907410963520753*^9, 3.9074109789791517`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"f994dc9a-238f-4cb5-b156-e4f1eaa9a8d4"],

Cell[TextData[{
 "4. Compute the length of the ellipse of semiaxes  a=2 and b=1?  \n\
[Suggestions: a parametrization of the ellipse is\n       t \[Rule]   (a  \
cos(t) , b sin(t) ) ,    0\[LessEqual] t\[LessEqual]2\[Pi] .\nThe length of a \
curve t\[Rule] \[Gamma](t) =  (x(t),y(t))  is the integral of ||\[Gamma]\
\[CloseCurlyQuote](t)|| = ",
 Cell[BoxData[
  FormBox[
   SqrtBox[
    RowBox[{
     RowBox[{
      RowBox[{"x", "'"}], 
      SuperscriptBox[
       RowBox[{"(", "t", ")"}], "2"]}], "+", 
     RowBox[{
      RowBox[{"y", "'"}], 
      SuperscriptBox[
       RowBox[{"(", "t", ")"}], "2"]}]}]], TraditionalForm]],ExpressionUUID->
  "faf74e18-996a-403b-b30f-cec26334b15b"],
 " . See the help for how to compute a definte integral. You can compute the \
integral symbolically of numerically. "
}], "Text",
 CellChangeTimes->{{3.666107723280998*^9, 3.666107724177049*^9}, {
  3.666107836467472*^9, 3.666107836841493*^9}, {3.666108570021824*^9, 
  3.666108585521845*^9}, {3.6661088578932266`*^9, 3.6661088884032693`*^9}, {
  3.6661089621033726`*^9, 3.666108986183406*^9}, {3.6668569063552284`*^9, 
  3.6668570030553637`*^9}, {3.666857041125417*^9, 3.666857069965458*^9}, {
  3.6668571864956207`*^9, 3.66685725711572*^9}, {3.66685744302598*^9, 
  3.6668575718261604`*^9}, {3.6976018754098597`*^9, 3.6976020783986807`*^9}, {
  3.697602301894182*^9, 3.69760230231605*^9}, {3.729603290724444*^9, 
  3.729603297536945*^9}, {3.729605261108821*^9, 3.729605325038097*^9}, {
  3.7937161154234533`*^9, 3.793716115845219*^9}, {3.794981974750619*^9, 
  3.794981998522052*^9}, {3.907410982371433*^9, 3.9074112500408936`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"6827507b-dd8b-4b01-b59f-dc593c3b7887"],

Cell[TextData[{
 "5. Compute the area of an ellipse of semiaxes a and  b. \
\[LineSeparator][Suggestions: if the Cartesian equation  of the ellipse is  ",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     FractionBox[
      SuperscriptBox["x", "2"], 
      SuperscriptBox["a", "2"]], "+", " ", 
     FractionBox[
      SuperscriptBox["y", "2"], 
      SuperscriptBox["b", "2"]]}]}], TraditionalForm]],ExpressionUUID->
  "1a9f47b8-981e-407f-b12c-3c56cbd03a14"],
 "=1, the area is twice the integral of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"  ", 
    RowBox[{"b", 
     SqrtBox[
      RowBox[{"(", 
       RowBox[{"1", "-", " ", 
        FractionBox[
         SuperscriptBox["x", "2"], 
         SuperscriptBox["a", "2"]]}], ")"}]]}]}], TraditionalForm]],
  ExpressionUUID->"fd59568a-e678-407e-9d70-edbd6c2ff6cd"],
 "  for - ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "cc9bcf2d-241d-4cb5-9415-87f1496150f4"],
 " \[LessEqual] x \[LessEqual]  ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "d3bd584e-f065-4b58-a5a6-b40f6a79ed2a"],
 " ].\nWrite now the equation of the ellipse as  ",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     RowBox[{"A", " ", 
      SuperscriptBox["x", "2"]}], "+", " ", 
     RowBox[{"B", " ", 
      SuperscriptBox["y", "2"]}]}]}], TraditionalForm]],ExpressionUUID->
  "48494513-983f-4b9d-b2f4-f7ae3949dace"],
 "=1 and the area as twice the integral of ",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SqrtBox[
     RowBox[{
      FractionBox[
       RowBox[{"1", "-", " ", 
        SuperscriptBox["Ax", "2"]}], "B"], ")"}]]}], TraditionalForm]],
  ExpressionUUID->"c52c27ae-aa8f-4d3f-aa83-d6fe2964751b"],
 "  for - ",
 Cell[BoxData[
  FormBox[
   FractionBox["1", 
    SqrtBox["A"]], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "5f610746-1697-4196-994b-739e84b553f5"],
 " \[LessEqual] x \[LessEqual] ",
 Cell[BoxData[
  FormBox[
   FractionBox["1", 
    SqrtBox["A"]], TraditionalForm]],ExpressionUUID->
  "c1e0fea4-6bba-468a-a8cf-05c8b71b79d9"],
 " ].\nWhy ",
 StyleBox["Mathematica ",
  FontSlant->"Italic"],
 " does not give ",
 Cell[BoxData[
  FormBox[
   FractionBox["\[Pi]", 
    SqrtBox["AB"]], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "4b9441bb-a8fd-425b-b629-de9e96619907"],
 " as result?  Can you \[OpenCurlyDoubleQuote]Refine\[CloseCurlyDoubleQuote] \
it with suitable assumtions? \n[Suggestions: logical AND is written \
\[OpenCurlyDoubleQuote]&&\[CloseCurlyDoubleQuote]]"
}], "Text",
 CellChangeTimes->CompressedData["
1:eJwdxU0ogwEABuA1KwuXJdJCtjmyNEOyw77247DMTC2pLfMXOYgDOeCwTWtm
IUM2qx0wS2QOKDnQakNZ2QFJs/x/W61MGOJ7d3h6OO396i46jUZjU3Dit2d9
UkUSHV5TevO7bRcb4kvpAz5xrpU66avIwyq7qAbbn3LqcFgpkeKhW1k9ZuoU
I19NJGHx6024L6PUgpkPh1O45KbRiVM7vBUcDrcd4J/Xj3s8dulOYVvVACNF
Xcyn8/Amu5OPdVGhf9lKEr3ZCyd4boB2jrmVsgv8+SaN4I1ZZfpk8EW7FiSJ
UUWWDk8bRE6c32Bx4e5al9ZDLS2q1mPmRGQwIYkRXmMivcDhsLXKYwQrZZ3B
86K71dPCOFGuYXqws3l/G4uN40c4cysYxFGWN4QfDcIrrIntRbFc8PeM1S1a
Eg+bj5M4QP8uOKMuW7zm4BDDzcX/lXDhKA==
  "],
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"385a656a-334e-4f7b-bfcb-d56e600d5e61"],

Cell[TextData[{
 "6. Write a function that creates the list of the first ",
 StyleBox["n",
  FontSlant->"Italic"],
 " odd naturales. Plot the graph of such a list for ",
 StyleBox["n",
  FontSlant->"Italic"],
 "=11, joining the points with segments.\n[Suggestions: ListPlot; Option: \
Joined]"
}], "Text",
 CellChangeTimes->{{3.6661072470917616`*^9, 3.6661072923083477`*^9}, {
  3.6661073263872967`*^9, 3.666107393354127*^9}, {3.666107424937934*^9, 
  3.666107437098629*^9}, {3.666107524195611*^9, 3.666107535230242*^9}, {
  3.666854418179745*^9, 3.666854532359905*^9}, {3.7296035450976086`*^9, 
  3.7296035457327166`*^9}, {3.7296038554112453`*^9, 3.729603858241037*^9}, {
  3.729605409910498*^9, 3.7296054352170267`*^9}, {3.7296054691238947`*^9, 
  3.7296054700700674`*^9}, {3.7937161309666853`*^9, 3.793716131794722*^9}, {
  3.9074122557413764`*^9, 3.907412284501383*^9}, {3.9074123300574265`*^9, 
  3.907412401319829*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"46d707c5-5062-4896-8900-bf26ee63f539"],

Cell[TextData[{
 "7. Write, in three different ways, a function f(a,b) that plots an ellipse \
of semiaxes a and b: \n    - with the ellipse given as a parametrized curve \
in ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    TemplateBox[{},
     "Reals"], "2"], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "6a7700a1-8927-41b7-aaf2-d0fd51870e30"],
 "\n    - with the ellipse given as a level curve of function ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    TemplateBox[{},
     "Reals"], "2"], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "3034b184-9e65-475b-a9e0-696ea1043e38"],
 "\[Rule] ",
 Cell[BoxData[
  TemplateBox[{},
   "Reals"]],ExpressionUUID->"10ca22d0-0d69-4a92-a29a-5b0392b9a6ec"],
 "\n    - with the ellipse formed by the union of the graphs of two functions \
 ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "\[Rule]", 
    SubscriptBox["y", "\[PlusMinus]"]}], TraditionalForm]],ExpressionUUID->
  "36ed2050-1658-44d4-9263-49fd419ecbb7"],
 "(x) = \[PlusMinus]",
 Cell[BoxData[
  FormBox[
   SqrtBox[
    RowBox[{"...", "."}]], TraditionalForm]],ExpressionUUID->
  "9a934c9f-c241-4344-b22d-a7b4f3b6ff63"],
 " \n"
}], "Text",
 CellChangeTimes->{{3.666107723280998*^9, 3.666107724177049*^9}, {
   3.666107836467472*^9, 3.666107836841493*^9}, {3.666108570021824*^9, 
   3.666108585521845*^9}, {3.6661088578932266`*^9, 3.6661088884032693`*^9}, {
   3.6661089621033726`*^9, 3.666108986183406*^9}, {3.6668569063552284`*^9, 
   3.6668570030553637`*^9}, {3.6668581976480365`*^9, 
   3.6668582004480405`*^9}, {3.6668582458381042`*^9, 3.6668582515381117`*^9}, 
   3.6981571377670307`*^9, 3.698157221197792*^9, {3.7296035770729637`*^9, 
   3.7296035774470882`*^9}, {3.729603711082547*^9, 3.729603717297896*^9}, {
   3.729605904524935*^9, 3.7296059292565937`*^9}, {3.7296059603620806`*^9, 
   3.729605983597072*^9}, {3.793716137761944*^9, 3.793716138542513*^9}, {
   3.7949820408842716`*^9, 3.7949820448051453`*^9}, {3.9074124054406004`*^9, 
   3.9074126857692013`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"2e3bcb28-f8a8-49cd-b557-d36ec4bdb18c"],

Cell["\<\
8. Plot a sphere:
    - as a parametrized surface
    - as level set of a function\
\>", "Text",
 CellChangeTimes->{{3.666107723280998*^9, 3.666107724177049*^9}, {
   3.666107836467472*^9, 3.666107836841493*^9}, {3.666108570021824*^9, 
   3.666108585521845*^9}, {3.6661088578932266`*^9, 3.6661088884032693`*^9}, {
   3.6661089621033726`*^9, 3.666108986183406*^9}, {3.6668569063552284`*^9, 
   3.6668570030553637`*^9}, {3.6668581976480365`*^9, 
   3.6668582004480405`*^9}, {3.6668582458381042`*^9, 3.6668582515381117`*^9}, 
   3.6981571377670307`*^9, 3.698157221197792*^9, {3.7296035770729637`*^9, 
   3.7296035774470882`*^9}, {3.729603711082547*^9, 3.729603717297896*^9}, {
   3.729605904524935*^9, 3.7296059292565937`*^9}, {3.7296059603620806`*^9, 
   3.729605983597072*^9}, {3.793716137761944*^9, 3.79371621837422*^9}, {
   3.9074126887929325`*^9, 3.9074127266786766`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"a5f7de18-7674-4454-9e91-07cd96288f80"],

Cell[TextData[{
 "9. A parametrization of the Moebius band a surface \[Subset] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    TemplateBox[{},
     "Reals"], "3"], TraditionalForm]],ExpressionUUID->
  "b8ed1cd9-83eb-4a7a-a77f-c9e2a4ca01cc"],
 " is\n\n",
 Cell[BoxData[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"s", ",", "\[CurlyPhi]"}], ")"}], "\[Rule]", " ", 
   RowBox[{
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"Cos", "[", "\[CurlyPhi]", "]"}], 
         RowBox[{"-", 
          RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}]}], "0"},
        {
         RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], 
         RowBox[{"Cos", "[", "\[CurlyPhi]", "]"}], "0"},
        {"0", "0", "1"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], 
    TagBox[
     RowBox[{"(", "\[NoBreak]", 
      TagBox[GridBox[{
         {
          RowBox[{"R", "+", 
           RowBox[{"s", " ", 
            RowBox[{"Cos", "[", 
             FractionBox["\[CurlyPhi]", "2"], "]"}]}]}]},
         {"0"},
         {
          RowBox[{"s", " ", 
           RowBox[{"Sin", "[", 
            FractionBox["\[CurlyPhi]", "2"], "]"}]}]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Column], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]]}]}]],ExpressionUUID->
  "3a437c92-fcdb-405f-b7e3-c7539f41be42"],
 " ,     s\[Element] [-r,r] ,  \[CurlyPhi] \[Element] [0,2\[Pi]] \n\nwhere R \
> r > 0 are two parameters. Create a picture of a ",
 StyleBox["Moebius band.",
  FontWeight->"Plain"]
}], "Text",
 CellChangeTimes->{{3.447484168796875*^9, 3.44748424740625*^9}, {
   3.447484302515625*^9, 3.44748434090625*^9}, {3.44748440853125*^9, 
   3.447484408640625*^9}, {3.4474844545*^9, 3.447484505296875*^9}, {
   3.44748467215625*^9, 3.447484709484375*^9}, {3.447485266953125*^9, 
   3.447485347484375*^9}, {3.447485393234375*^9, 3.44748539540625*^9}, {
   3.44748566625*^9, 3.44748566825*^9}, {3.44750038696875*^9, 
   3.44750044678125*^9}, {3.447502224125*^9, 3.44750223*^9}, {
   3.447502313296875*^9, 3.447502380703125*^9}, {3.4475024481875*^9, 
   3.44750253865625*^9}, {3.447502580875*^9, 3.447502749203125*^9}, {
   3.447502805640625*^9, 3.447503103859375*^9}, {3.447511491796875*^9, 
   3.447511491796875*^9}, {3.447511684796875*^9, 3.44751178165625*^9}, {
   3.447585324046875*^9, 3.44758532784375*^9}, {3.45001595128125*^9, 
   3.4500160753125*^9}, {3.450016107109375*^9, 3.45001626103125*^9}, 
   3.450016396109375*^9, {3.793716245636414*^9, 3.7937162656415954`*^9}, {
   3.7937163062572803`*^9, 3.7937163372728167`*^9}, {3.793717903390607*^9, 
   3.7937179562114754`*^9}, {3.793718064926051*^9, 3.7937182172990417`*^9}, {
   3.793719201961157*^9, 3.793719208053441*^9}, {3.793720428760482*^9, 
   3.7937204591809053`*^9}, {3.9074127307914886`*^9, 3.9074128971319065`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"26aa55ac-ca53-464d-9fb1-1dca6d33fed6"],

Cell[TextData[{
 "10.  A possibile (non-injective) immersion of  the Klein bottle in ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    TemplateBox[{},
     "Reals"], "3"], TraditionalForm]],ExpressionUUID->
  "d92f97e9-c082-481c-bac1-9174eea9ed6f"],
 " is\n            ",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnV2oXVWW770fD/cp1nMTir7phuYIkuLSEB+UVEFQLsEidCtCIKQ6RAtp
7RRWFcFAsEUIgmKg6DyYegiYag6XgMVN7qHogFeSoGVfS7yKYksValXZKBcL
8SFP52Hd89/n/M8ZZ5651l5fe++1z/79YJWVs7/mmmvMMcYcc8wx/+uJU3/z
2H+84447fvxf1v7nb/7u9Peeeurvnv7bb6394+F/+PHjP/yHR0/+93/4yaM/
fPSpe078p7U/fus/3HHHX6y9/z+v/f8CAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAYAxff/31rJsAAAAAC8rp06eL73znO7Nu
BgDAXPGjH/2o+O53vzvrZgDMPadOnSr+/M//vPj0009n3RTIoHjVe++9N+tm
wC7ks88+Q7Z6QL4I/ghAe86fP19861vfKm7evDnrpkCCfJBnnnlm5CfqOEj9
99133511s2AXYNlSLFTj/8477yxef/31WTdrblF/qi/xRwCa84tf/GKkg154
4YVZNwUSpNuOHDlS3H333SM/UfNX6TnZDYAuSLaOHj06kqVr166N/iZZk79L
bLQ9ii+pT9WXAFAP6aM9e/aM1jphWNgPkW2I8SrNY/W3S5cuza5xMPdYtmIc
5Je//OXob+fOnZtdw3YB8u3UjxcuXJh1UwDmAukjxfzZOzM87HM8/vjj2/5u
e8G8C9qiNdmcDCkeor8rDgfdsK/HeipANdZHjs/CcFAcRHFeXWm8XPEQ7AW0
RfIkucqNfc/nWQPsjuZ3zu8CgDzy1VnTHC6eU+Wej31IdBy0QfvlJD/333//
jteUM6bXdBEr7Y5jm6x5AeTRnDpdK4ZhoJiI7YHWY1J+8IMfjF6jDgw0Rf6F
YyKqJZRiP/fb3/72DFq3+1B/a86Qi28CLDrkGwwbz6Wkv3Jz07/6q78avc6+
QWiKZatsr4zjcfi5/aF9AepTzSEAYIvDhw+Xzrlh9riOSM5XlG+i/dfoNmjD
vffeW+lrWPbwc/vDeSPslQbYQnkiGhOyZ6wHDw8/nzoX+wWhCdEmjrsUP4H+
8Loq8weAdU6cOIGuGTBer7evoXyeeDmGzhwLmuK1WV2Ss1S2VPfMr5NH1i9x
fxJzQFh0Yt4atd6Hie1B2Z5KxdZZz4c2RD+3KleE/byTwetf1CiERcd5a9Sl
GC7O5cmt16+srBBDh9aoZl6ZHxvnKcjWZLD+Vc4OwCJjvxxdM1ycW5iryT9u
fw1AFfZzFXtL8foNe08nh86pYX0VFp2YE8la8HCxL5Kr/aBYCb4ktMV7S3N+
rtdncn4K9IdjT1ovA1hEXDecteBhY3uR6iqdpez4OjERaIPjaqmf6/k651JN
Hu+nobYTLCoeA6xVDhvHymPs47PPPhvFRORHknMMbfn5z3+etYPUG5oecZ0V
YBFxrkguPgvDwbXMnLuqf8uPlO4i/x66otru0Q4qRqJ/c17KdIj7qskZgUUj
1jhi7jN8lM/j9Rhd8k20RgPQFa/HWLbkh6ATpkfUxYuWM6L4ruJCykmiTuNi
gi8+n+i5KedYY3gWLC8vj/aBIjP9ofiDYpOzeqbGsjWr/BDXVpNvNC30WzqH
WDItm6j6Y7PAZzgsUs6I/C7F5hWHK8uJg93PuPOwAFLiWcHkGPVDnBMsci3w
WMtkWnkTZ8+eHf2WYkHej6Zr7969U5+j+/cXpc6T/I/0zArpFD2PafqiMHti
3fAhIx1FHv8wiLHkRZq/TZK4r15z80UlytY06gdr/i27F9c5nQ/udkwzRjKu
tvJuQnGonA5x3T1iI4uF8tXmwQ+X/7zIOnpoKI4uXUEsrT9kDyXni96nsv3q
B/lnk8QxmJxe0WvO6Z9mjTevUejazXMv+XuOf6W+ns8joJ7NYjEv54DjiwBA
n8RYVG5dLPoF06oB6ZiArkn7YrOkqpaK8waIuS4WzpUa+ho1vggA9EnMe8qt
B7mGoK5p7Wt2/oSu3bo/TjEmx0Ry+7ScNzD0+fGskI+q2FEaT9K/5zlWbblv
W1tE+UU+Y9wotugYfl++vXzlSfgifn66/1OnTo1+pypnSvejdU69X+8dN19y
//j9+j19xxBrNvi5qa3yTf381G7Lt96jPTTSIco3S3P79H69pkv36L7U51QD
Rd/ZpiabPl82zvzaEGPaapNsivpU8ivZ0f2rT91e3ZPkQn2mPkr1s/tU36P7
dJ/qv+r/edA/li31gWRLsqE2K280ypb6xrKV5guoH9QHft26RZ/z+5vmdsj2
y+bl6vO4HrUuPbcUtbXMX/C+nKbE3+yiI9Sn1lNa64hjuKy96le9T30ybi+3
+tz7vnTp/fpb7nyKlHFnZzlWP/T58bRRX+lZqn80jvRf9aHGgfpd/rTrTc3b
vmjJpuVedrjN55Vv4lim+kLj8/777x/lQjsO10eNgr59ET1Xt1u6SM9Sv+H8
mdTH0Pv9/FWLUuPQe9F03zn/xa/rd6RzpWf03iHuP1H71Vb3hZ5ZLl4cdaUu
9VfEesSX3u9xIrnwnEf5SXXtp/pR7XLfpfLkPMOhxXTVZ+ofPWvdg+yWx0TM
B4h72XKyEV/z/Uum9D49o6HPI3WfaqPap3u1zUvn/66d40sx24jPY/IluZJ8
Seb0/a4Rqz7vYw/GiRMnSvcY6rd0P5b36AO5JmGb/Mu4n6pN7qbyMOK+IM+B
NN48HlNkt/R+Px/rLf0t59vpOTnPRnpQ32m5rpNz6z7LjdeYu0ztze1If6pP
rDdiX911112bczI9gya5z5Jtfa7r1SXuENdL28QDNR5dj9yyHvcBqN80Jvuw
EX37IvHM21jPwbHDtM3W96kdjDn38Vm4b3PzBI3Fofkiur/ceTb2R+K9SXbd
H6kvos9Hfarv1L3G77XeqjPv0XfpN/R592k6zqzbUts1a2wjU3z/sU9u3bq1
KUepbEjG4nqBbUz8vJ/HEONtmsvl5sD2a6PukWy5f3LPU/Lg552bB9jH6Zr3
qLZ6XpI+D41p9bfjMenvddlnFv2xNudcery6fcaylY4drwnl9FTZXFL9Lj8t
RfZgnA2MNkf96jmg1+Cjr75b16jaoGeQjqEoZ+4r27Ume9A05iS/bS89M11d
an/L541zrSZIP0pXeL5g/WB/oW//tk9fxHnaOf3ouXfUAy+//PLobxprOVZW
VjZ1o7GOytkGz2mHhJ5lTn79HFOf13Yk9UWMfVP1sexsxPpWr42r6yUd6nGm
vnRMJeJ1/yHtBXMN01yswu1NZc92tEw2PNfOnVNnX2WIe0E9x05x/CC1OdZL
Zb6l/a7cvD3GerusW8V1hLim6L03Hg/R9kfsjzddZ4g5LHXWOyIeV+q3tF9y
uaK6B92LxnBuHHrsx1of9iVycXTHV6qw7vXYSC/PBbs+v92GbE9uzTLtK8md
nvGsavW1Jc61mrZdOQOW69gn6Rwl9c/b0qcvMm49UmM6tnnceT3R77JvGGMD
anfsF437uvEs11XpcjXpE9nBdH1KslE2px3nizz00EM7Xov6tsoX0fuiv2gb
lJMD6bEhrdFEmdDcIc2RyeUZjfNFPE/PyaHHcpPY0LRkSzXDPFdL/Q71SyoD
0abm8FpMzne2D6ir7VmRlrtcDXzZ2zgn8bjJzeXK9gtXkcpNEzw+yubEqV6r
s7aXzs3SOWYduc61sezZtpnXLyr263ZDX8W1/y5+lGMAXfpEMij7VXZ5zFe9
J10LyBF1VZ14TXx/VQzK/nycy3gcx0tjscladqy51Paq4/fE+Yov6dyyHKhx
vojbndPF0Rep2xeOw+kzOX2nfq07j6ySoTpX3dhxzLeJz79Mjsb5Ih4DuVhb
9H3rEusctr3qxFNj23w5Pp+jri+S8z0lJ118EX1e/azfVryzzn1V5WA2XWfo
4otYPup+Lo1l58jlYik3oYlcR+xr5J6d4qf+vjbrU4uGx+9uyKuJOqLL2px1
Q5e4hfSP91/kLsUw9DtV76lTAyCux9bJNa77/tw5Es7Za6vDhca3c9XbXk1y
RHNtzc2b6voiuXFSFker07aydSTp1br3WSVDda4mcb64RzPV3Sl1fZGcHLbx
RZwD2+WqW3cjrgfHK7euVtcXydncaMub+iL6rL5bMlZHljy2c8/S6x9Nib5U
k/WdpmvicY5VpbftO6T3EmuvxOuHP/xh5e9W+T9x7XzWZzLNA7Y5XfeGSHYk
712vLkT91WUPUFWcsi/6WqNpehZm3fdX1WnR/Er96/rOvoY63rzPIe6JSefi
dX2R3Ny3jS9SNQdQe4cep/S+pNinqf8/bV9kFli24p6YVEZm4Yt43pDL31Z/
53wur5nlnofuqSy/rIqY79I016TJuXp1fZ6qNRPn7nqPgr+vyi55vS4397XO
ICayE+fum6rYsnRzk9p8eq+eX9eraX5T2oYmdjlHLn9mEvSZL+L1lFwueErU
bWV7FOJ7nNMleciNqVhbWjk3Q0F6M+cbef6T6rdxvoh1WF++iPssp8Pifq6h
oHssswn2q1IbsFt9EdmYnG5wzCidc3fxRdqs0WhM6lmUrfHm1h/G5cgq3tOm
Vuu4WrBVOEdLayh18Bpyle+S5tbpnsp8LMt1lS0p25cf98iRs7qTdG5nXZH6
iM6tnlad4L6Ict9Wl/eRK1KHPn2RcXvhNRb27NmzqZeq6hULx59jfr3aW/b9
3g8yyThSE+xL5dZ7/Vq6TlM3d7UvX8TvT3Nf1Pf6raHVOfM95u7PdqypL+J5
eF/5ItNCPkWZffK+3Mg4X8Q2L+eLtMldlb8t+c7JkHV7Ola9dy7X33o+bfOo
41pW0zwA65Uy/0j3ItnyGLLuLtNTuT2jlrPc9zt/uqrdjg2X7fNhH+9Oor6U
PtVzsX695557tr1XNnKodYaqiL592/yXPnJF6tCnLxJjE7n79r7p3PtzNdDs
s0YbYbuSsxuutzAU/986J7d2b92Y+qr2ReSz5fBYyT2zNrG03Dqga7sMcQ7g
e8zpBevzVDbq7unN2fW4J25oqN25/E7rn9Ru1/VFcvY+6rQ6+fgxR0ptdFt9
uc9TOY12OsYTrSva7uGJvkibmLfHXU7uXGM29/7cPMTyGHWkZbcq36lqjuXP
Rxm2LtkNOZiTwDKlZye9Ir9NNsR2R/0neVP/5dYY54EuOdtmGrkiou9aZ66J
6Zim14TlZ+aep97v+KLa4Vxb1/dJa5DHupLO8dPleMmQztaJcqB71H1JtlW/
Uf0R4w6+55j3EPeweIzE9WO9rrUr9aH3S/k1/X+9Pm6vj3WYftd9qc8NVX9F
f0v94dr/rmmpfnWfyidRv6R9Zl9F/R377M/+7M9Gr0tm1S+x/qcuvV/XUHRS
rIuiWj2y666DEOt3OP4f95/p39ZNWlNNa1BYthQPUR/Gz1q2yvwCrZHGPq+6
csS6zfoNtV9t6FLzKe5tbPM9zr/1WJa8OUdZ/Z+Os/h+13L3+63rohzF+Jvq
gOqede8a/+rLOutK6iOP46gPh5o/NwTUx+pbP9NYs9n7+4Z6DkYd4tpq25ii
5Pj73//+xPtgUufR6Pl5bLhWd9W96HXJhJ69dJDGbM6OSo+4rojeo/dLjtTP
Q1mbMY7duhaw7kvtdX2d2B+yqT5bxfUSddluyn/R6/673qd/+/yQ+Jouf1ed
fcea+9vu6r9DrDFq1JeO+8ca9nr+aZ/G82pin6rP9D7vWcn1qedDuT4dStxN
fpfPzvHzk7zFM3mE5cN1y+M9iTLZ0t+ly9J+8OtlcTP9nt4z7qqKT/jZusZu
17HtdZOu8zu1S+NX8y2f61Bl6322jGuOlfWb/ibfUM/NcZYo13X8CX1Wz3eo
+hBmg+dTQ19jmpQvMo94LOuZSd/4rDGArtjGyFeQD+Fz1WA6xDWjofiSANPA
a05Dqp+dQ3NH7O36XM5xAc9/HbPWPGOIuRMwH3gdUpfjK56rSMbIK5w8cW0X
YJHwuuAQz7GA7WjOqv35acxYcdF4/ksfZ5TCYuF1uvTMPf/d9rHLWZwwnnF1
3AF2K7EuJLlDw8bnQY/b09m0LgGAcyZz66Bxb0o8/xH6x3GoNnXSAOaZaMOG
VHsLdhLryedy7L1WQ4wLmqIzDC1buVpq3nOma15z9YdO3Esw1P1hAJMi7uck
R23YxDMgcrnncd8n9gKaEOtk5fSA9m/69ba1M6CaWAe7y75ggHnFc54hnbkO
O9G8Ses0ZfuOY54hQFOqZCvG5NjfMRnYQwOLDvmr808ftWIAcsg38XyFnMrJ
EWuUASwiMWeE+Ot84r2A83guEgybvupvQTWOa7JWDotKzBlpe14vzA7Fc523
ih6DPpFu0BkJ5FNOlqiDmUvAIjPuLFoYJvE8iTZnaQFUEc8qIR96cjhXpOys
SYBFwes05IzMF7IROpMqtw8ToAu2j5y9MHlc/5rYE8DWeiX7yeYD1z7DD4G+
8R5fzl2YPPFMZ9ZnALb20yhnHoaN/ZA0l9D14ImnQ1vk22pekpuTqB48deD7
xXnn1FoFWCfmT7GfZrjIRshW5PY06Llxrha0xWcv5mRL5xxR+6J/HI8mJgKw
hXNYOdNkmMhWKB7y7LPPjmyCL/kgek2xLeoTQBssW1qXycnW2bNnR7lJ0B8r
Kysjfat4EwBsEWMjzH+GhWyC9+5WXcR6oSmxnlnVhZ/bL0ePHiUmAlCC8uaJ
jQyPWIe76iIXH5oSz8arutAJ/eG9i9pDAwA70RxJa5iag9+6dWvWzYENpLuU
KzLuIp4FTdG8vI5sXbt2bdZN3RVIxyrGRJ1kgGp8ZiQ+OwBAv3jvDHWuAcbj
tRpqDAAA9IPPbGC9C6A+qlXBHl8AgH5QvqrWwKkBBFAfjRf5I/LjGTsAAO1x
jUJyRACa45giuSMAAO1Q7u/evXs5YwOgA6q5qDpH5FoBADRDteJUvwU/BKA7
8kc4sxMAoBm/+MUvOMMSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
5gLVgFfNHgAAqA96E6Af5IccOXKEsyUBABqis86/853vcKYXQAfshzCWhstn
n33GeVswETTmJVuM/W5oHqc68PQjQDtU911jSDXgYVjIB9Hz0Rnkuu64445i
eXl51s2CXYBs5o9+9KORXO3Zs2ckW9Qx74bOF8UfAWiOYos6o1fnKcCwkG8o
O3H33Xdv6jbFr/S85KMAtCXGQj0H0b/lj+jcbmiH+lW+CGeeA9RHOkh27Zln
npl1UyBBOk0+iJ5PtA3yHWUvOE8Z2iLZuvfee0dyFNf9fvnLX47+Rs5YN1ZW
Vkb9eOrUqVk3BWDwSB/Jd9dFPHF4KHYufZb6iYpf6e+awwK0QTIlGXrooYe2
/f3mzZujv2teD93w+CXeDFDN6dOnizvvvLO4du3arJsCCZ6f6vmkfuKlS5dG
rylmAtAU+RuKtelK88OkCyRbeg26oXGr9VX6EqAc27p0XgTDQLEqPR/NrVK0
NqPXpOcAmnL48OHSuJr9XF3QHfencs8BYDvRX9ccCYaF1u9tD3IxK9sS5RwC
NEF5Rxr3kh/NR1IUK8XP7RfvfSMfGGA75BsMG/saWp/JYd1Gnj40xXkiunL7
sLyPBj+3P86ePTvq06NHj866KQCDwvF/cqqGiX0N7XNQXWnFrnTp/+uyLUG3
QVP27t276WvkZMuyJ38Y+kFxaI9ZYiMA6zg3jbzHYRJ9jXFXLsYOUIbiIHVl
iz3+/aI90uyVBtjCMVh0zTBxXqou7XGQ/YiXcuCYY0EbvDbrmGgqW84VsexB
f3ivNOMWYL2umXIQ0tpZMBw8fxqXK3LXXXdNuWUw70Q/l1yR6eOxS41CWHSc
t0bO6nCxPcit18f1G+0VBGiC9u+X+RrKafD+GmKmk8H7e8vmGQCLgmopomuG
jety5+qK2JfU/IqzaKApVTkLL7zwwmaNM2owTwZyWAG2z6kZB8PF+3m1DzDF
vqTOowFoimuS5/xc761jnjJZWKeBRcdrxZwzMWxsL1Jd5Tq58lWIiUAbHFdL
/Q3X1tPaDTGRyeLcc9bJYVFxHgJjYNjY54j2QvZBdkLrzPgh0BavEUQdIHlS
TERrM4qdwmRx3TPOqIFFxbFBzkUYNrINqv3i/ELZD9kO+SHUpoOuSLZ8Jp5k
S/Xy9G9q1UwH13fSxfkbsGhI71Afa35QPo9zQ+RDat5Kjg/0gWNs3s8h2aKW
yPSI+auLkPel9T/t39J8inkwOO5P3up8sbKyMtP1e9W+kg6RPoHuKOalfCDt
lZp1n0quZrnep3woydY050bqc8n0PffcM4oHaR10FvrQMepprJfL/s9C3iRf
2q+lmJuetfMVqTu72Jw6dWrTF7l169asmwNzQNx3xXkB/RDnBIt83ovsv2Iy
08qbsA+o35Jdlh/iuKMu+SfTxHuWJj2uorzpvqeF/ZD0zLMTJ04wH15wvE90
z549s25KJT6fC2ZPjCWT79wPsU8Xfe+sYwOKUUwa+Rpal0ptoO3ltM8J9e9O
2g+L8jbN9RHHQLQ2E/E+LvYzLy6eAwy9trN0BmuKw0F5BJpbsc+zP5S7KLu3
6H2qWMU0ZMv1ZOVP5+bj9okUp5nWfN379nVN+v41t3v55ZenJm/SGepv50dH
WKcBjzfFBocMvggA9Enct5KLwcSzJi9cuDCVNsUzCHfbXhrH4HP19HwGAXHW
xcVyP3R/FF8EAPokrlPk8jPi2cXTWjeLvsi0/J9pEHPMcmternE1jXW5eUdy
K3mUT1flr85TTkMcizlftQ7KwdZnNYace6/v1Z40/b2vc9rU9337Imqn5kZq
p9aoNB7kk1Xlles1tUXvl5+v/1+158D5+coP0/fr/Yo/Tzsnrg6KQ6t9ipGp
reoXtTXGsCX7eraKqep15ZxF9Lz1mu5Pr7sv3W/q36Yyof51P+aejcbcrPY9
jMP37T7VPUgXf+9739uMjav93k+gPkv3c8om6TXlmet16xiPPeVbKtY+ZKw/
3Q8ay+oHyYPvR8/PspWbe+j9es26xTbNfax+aCpb+j59Lqe31e9lfoHux7+b
sweW16brH/E32+zr1dpH2s+SDf3/MnmTXEU8hnPypnvSM2vqJzk3tay2NzWu
6uF99/fff//m+WQ5vSeZnnauUxd0D118cNlxyZBjmVoH1N9spyXL+lsf/n3f
vojGbDz39tlnnx09N82PcrVW4j40tUX3qfdobJXVg1J79ZrGr8az3uPctGnm
rtdB+lRtVZt1b5INnx2qy/oo5t/ndMtdd9217XXpNH2ndKP6zTlqTXLmNa70
ecd4UzlwTYyhxXdlA9Q/umf1n/Zhe1085gPEv6Wyofd4X0msA6R7VZ/YLk87
r6EJunfpCfv5aqPGmu2P9WWcO/t+ItK/8XX7K54TxJhCH/uBrR9SWXWNQV96
PfpA8VzjpnOOOL6a5nGqb61vNJ6l46Js+R7iuM7FhPbu3bvtdb3fY1Df3XQM
RxnO6fBY4wpfpBrJun1UP4d0Ptj0nEWNOz3frpfO0GxLHPttxq5k079vHy36
Nd6f1scexT59ET0r+xxp7NU6RHovvr+qFrb1kWy4cd/m/DDp4KH5IrqHXP6y
9VZ6377n3DxHuiXWY5OtjLEj+6511gWlS9X3egbu03SPgX2RoZ2npHvP+Uf2
HdI5s/s0JxuyLR5f+t50Lmsfd4h7cHRfejbp/XoNJJ272X6mvoixD+P+jd9r
ee26J1byal2Q6h3pXceR/XvxOUdfpKnu8/k/bZ6lfIjc77luQ2qXLG+5vor+
gZ5DGjevOtc5JeblOP4cL9uJvnzI3Yr6Jj6rsjMr7c/W3YvlmGXTS35pvKL9
a0qU+6YyILsQzxC37fE8oO89in36IvYnpctS/ejYVmyzdaNey+F7jc/en8nN
i+SfDM0XUdvVHym+t9QXsQ4us//29XJ9HHXTuBi2vt8y7j5NfSa3cUh7wew3
5drk9qb3brkskw3PLfV6mV0f4lkmkgG1K7eWqddSX8R6qcwXsQ3Vd6Y1kaIN
7RIjsr+Yyq++U3/zd8fYau4emubhxfY3jamUjUfLW9ofHk9lflvVGI72btwY
jvEq9Wt62bfURZ3fchRntV2KcYR0jdC+59DixFXo3nw/TX0ar/WK2C9R3r32
28eesT59Ect+lW+Re39VTo3nQY6rxnmsfke6KeriunpSfavPdrnq9L/vUbZT
9xB9j1wdznG+iONkaR2BtG+qcm1kZ2IuW9XZ9Xqt7HnOCvsO6lP5n1HP5nTu
OF/E/n5ODu2LlNnvHNOSLfv3rrMZdac+n37HOF/Ea3W5vX/Rlrfdh2LZztUd
8Tqr2+5nkpvLqf1N/Yk4h2sqz3EMS/dGGcs9p3G+iOONOXmL84lxNXrtr5XN
Fdzuoc3Phoz9u1yfuj+HGCMtI64bdomvlM1Xm+B951WX9VnZVedc85gjU8e3
ibqtKi/O7Yu2N65b+dLfmuTXxfhl26tOPnX0S+OVrq+Ycb6I253r4+i71p0H
lfm7RvquTp6W4+ddrro1s+N8MO3THON8EeuYXB5BzDOoS8yHaHvViafG+Gu8
NFZyz7KuL5Kz1ZLVLr6I473SJeNs7LjYgMbG8vJyo9+P7W/qi6R5IOPkra4v
krNp8ZmO6yfrwdz6URzXQ8znHypl87IoP01lb5ZE/dUl39Y6re1eHKGxLLtU
dsmm6ap6Tx27FsdQnTz1+P6qHFzPgdM9abF2Ubzq5qXpGTnnve1VNy4l3R3j
pb5yazd1fZGcfmnji9hOl615yB7UjTVpvI6To6qrSZzP+atpn+bm9HV9kZwc
tvFFJNtdZavuvkG9zzH/eOXqXnXxRWJcoakvonb4vMk6z7hK7/l+mxJtSZs6
C+q73BjOtaWuL5LTk018Ebcnpwss83rWi17jry5V65BNc0WE+l2f63p1WRON
+qvLuZCWtUnmHfW1RtP0LMz4/ir/wb5I2VzG+3ijnpjl+WNVeA+NY+u5e5+2
L+L9OTm9n+Z0DRGtN6kPbUdzPsW0fZFZIJnXvCfKVmpzZ+GLeK+kvjO1idIT
uVimY6E5vef6D02JcdsuNZ+8PzrKWzqGp+WL6HyRsn6ynz5P6wmzJvZ9Kqtt
asZJH+tZd7262Od4T23PARgXO++LPvNF6uS4x2fs95eNl+inetyqP8t0iWIn
XWNRfeK4Qs4vyO0TiH8fly/Sly9S5e+qbUOrC6V7LLOl3keU2tLd6ovEXM+I
cw7SOdy012i8R1e+Q25urt9LfZGquan36bVZ945jo4kv4pzaqvXUdAzXzV3t
6ovYp0n7wzlOudxYKMf9lntu3o89b75dlPu2be8jV6QOffoisR5KbhypDkQc
H173L/NdbAdinFHtLYuTuc+Gsn/Nc8nc3M9+Smof6+6j6cMXiXPddE1AfTjE
nLeqPd2e+6byXDd3ta98kWmhcVGmX5ybEam7jybnizTNXbUforGtz0ofeA1P
z8l1d9KxGn8nxXX+2hBtfJPvsEzlxrBfS/trnC9ieevqi3id+qWXXtr2d9dJ
qJt/Bev4eabrWrGWzDzlioimeZw5+sgVqUPftc7sq6fr9q4lktpQvz8d635/
GuewXcnNbdRnTfIbJk3ck5z6BrZxqS1xfcgye2FfZFwOft24SK7/1W7Z7S55
15PCvkhuzifdnouLWWfnbEOsF5XzRWLe4tBQu3O1edxH6VgbtyfIOicXh446
rY5cxDNnqq50rMb4S3zNtXXazvPj2GiSy+n7rtp/m8qN51i5+YTur2r9JPq+
4+7Vfku8H9vNLrkBi4zjzvqvnkVc8xzivv5x9HH2+zRyRUTfvoju3c/Pa13P
bNR2z9VvcN1V95XrvZTVXY01TLQm41w//X/p2L5q4/eB5UA20HVldT/6b5rL
p3vwPUfZt8+h96a5c/q39JDzOuJn1Rf6vnE5kNZn3hd69uzZ0XcN9Yxx21nF
TCVT7lOt57oGqVHfpX2q9zjvWJ9Pa6/qddfqzj2PLvawb9R21xixHOTGmu4n
lY+omxS7SPOAXfdZ8Qt9X/pZvV4WH4l2v+oq0+1x76/rF+j3uqwXRp+yiY6w
L6K2qA3pGI414aLe8m+5PrDQM8n1s/Nm0s96DFfNrew/uu68Pj8kHTiPOAdR
fat+nffzBbv6IpJf9cOk8zD79kWMx6vXi8flcPj5y5b47JCyNVqPNZ954VrV
QzuzSDpKbdN/pbct3z5PKNo0td06STrX92n9m/7N/3WetT8bL71et1ax+k+6
cty5ULPGtQz1X8mUZNd9msak9e/YV+4X9Zk+L/nJ9Zm+V/2W+6z+/1B8EeeD
+vmVyVaUjyay5e8p66ey8abfq7NXqMpm6rv9bDVuusY643k0TeZ3un+1Q//V
3q0ob7lacrl+9vtiP1aN4abypvdIFoaoA+cFn4OUmyt7vjLEOHEd7P8Occ09
MilfZB6x/vM8UH6EdA41C6Er0mk638Ky9dd//dcj+zGU9cTdTu78GADjWH66
jmu5Gbodr8K5DkM7yyNFviAxvWIzDqw5j+Yn6T7hLucTwWKj+ZTzlB0TiDVB
WNufPM4Zmsc1f5g8XhuL6xiuzycbPuRY8TiQ/flB8yQ9p9w6UqzPSvwTmqJ4
iHJbcv5GrM/KnofJMq5eOiw2zqeSLdCY1dxT/9bf5z2OphxAYoLzgfdf5Pam
xD2G85q7BLPDsqX8t9xa9Dzn6M8TjnF2qXMGuxflJkr/e2+aY5hDyQ3rQtyb
NbR6UbCdOD/NrVfFM3sAmuA9YmV7hr2nus4eTmhHnE9MukYCzD9Drdvdljjn
0VnDMFzi2Ta5dZp4Fh/2ApoQ95LmZCvWL2CdZjK4rso0aiQADBHbsL/8y7+c
dVNgDNJXZfkgju9q3R+gKbJ/kq3cfCvG5PBzJwN7aGDRce1BzkqcX5Q/bT1W
dc4OQFN8DoBkKz2HGvrD/h7jFxaVmDMyr3VSFp14xs487+uC4eEawpwdMlkc
15y3c80A+mLcWRcwbHx+l57hUM7+hd2B95FLNzQ5HwWaUXXuL8Ai4dw09oPO
Fz6vRPaCfVDQJz57kDpnk8exJ+qKwKLjfAP2g84PPu88dzYfQFc0P+EMs+lQ
da41wKLh9Urm1/OBbQXrMtA3WqvFx50OPtOZfD2AdWKOGgwbn0OTnofnPQ/s
h4K2VPkhkrmVlZUZtGr3Yr3L+jjAOrHuGbGR4SJboXXlXI6b9jkohxWgDcoL
0Rlby8vLO17z/J3cyv6QznU8mpgIwBb20dMziWEY+NwQ/Vfz1nhprUa1vMl/
gzYo3qF4SJVsyW5Cf7ieAjERgO3E2Ajzn2Hhvbt+PmUX52pBU3zu+DjZYo7S
Lz5fm7otADvx2RTYtGER63BXXeTiQ1NU67OObClfGvrBNd+JiQCU43M5iY0M
B+WpKjYy7uKZQVN0Bg2yNT2cY64rzT8HgC2kc4jJAgD0j8/cZs80wHh8hjVn
NQEA9IP3urGWClAf5yjgvwMAdENrM8pXVW19agABNEPrNJz/CgDQDZ2nTY4I
QDt8/hq1BQAA2kFdfYDu2B9h/xkAQDNUJ0H1bPFDALqjfX+cwwYA0Az5IKxx
AwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANRHdddU54TzHGCSSL5U
F4J63QAAYGQbdLalatGrBqzO7Dt37tysmwW7jChnOotJcvbMM8/MulkAADBj
ZB/uueeekQ+i+q/i6NGjIzvx6aefzrZxsGuQnOmcA/khlqsXXnhhJGcvv/zy
bBsHAAAzQ/bB89Nr165t/l3xc/3tBz/4wQxbB7sJ+SGpnN26dWv0t8OHD8+w
ZQAAMEsUH5ct0HnbEZ3voL/rzCmArugcVclTev6jfGH9XWesAgDA4qH5qWyA
rnQt5vXXX8dGQC9ItiRHkifJVfqa/q6LfGkAgMXDMfN0rip0DrdtBEAXHHtT
PlKK42+62FMDALBYaD565513jmyAckNSTp8+PXpNeYYAbVGswzGR3H4Z7dWy
L0KeNADAYuG5qvyRXGzcMZPcXBagLs4TKfM1lBut1/bu3Tv9xgEAwExRvMO+
xrvvvrvj8uu59RuAutinlTxpPSaVM/kg+LwAAIuH1uU9Vx13UYcK2qJaNV4H
HHep/hkAACwOqvFuG6BcEa3RxMvrN6zhQxe0T8tydOHChR1yFvOjczlLAACw
e4lr+K6zGvnud79L3Bw6E32NnE+r+mbeN85+XgCAxeLEiROlvkas98D6DHTB
Pm+uRk3cX6M9WwAAsFh470KuvvvZs2eZq0IveF/4vffeu+M1nzEgOaOuCADA
4qE8wbJ8Qa/PEBOBrtgXeeihh3a85vWZ+++/fwYtAwCAWWMbkfobrvuutRti
ItAVxz7SfeGuCa99vsgZAMBi4vPIoo3Q3xQTkY1Q3QeArljO7rrrrm1/l9xJ
zuJ5vQAAsHjY79AcVTZDMXP9m72V0CdHjx7dzAnRni3/W3tsAABgsZH/oZxC
18SUb0ItEegbyZlrr+7Zs2ckZ6pvAwAAs0X6WXmj0svpGeqzaMss1+y171Mx
GezT7kYyNsv9MorD3H333SN5mxYa28rNks8vf0z5Wfj7ADAUnNO36Oe9xFom
uRoUAH3hWia6puETaa7heOPjjz++uT+NevcAMBSc08fe2a0z+hQb2U3oGc86
5gVbWM6+/e1vT/y3FHvR76U+j/ev4Y8AwFDQXpXl5eWF39Oo+/eZOLsJ+SFa
E4DhIDnLnXnQN1X5V5IJznoCAIBpgC+ymNy8eXPT19AZxSnxXMpp5q4AAMDi
gS+ymMT119x6UDy7WPubAWCYaCyfO3dutJ6axjA1jxjyGrzapvwP583rHjQP
Uq0nr0FobUb3cerUqdHruteI/q3Xle+m1113TN+tfyuvYui1GRQHVz8oTn3P
PfeMdK7arPNvfD96trpPP+tUL6vf9LrW2PW6zpwX7mO9X59tGnP353N9qLbp
tT5qcE3KF/HeDNXGtZxVyUMqk/ps1dqA36+26/2SQ61t6FkODesKtU39IfmS
nHjc+T1RznQ/cT1Q9xvlTOcxiZWVlVE/6Dv1WpN8V33n97///WzNwOiLpGcC
OsdIf8/pOf1Ncs/aDsBk0Rhzjlkax9R/h1ybXDpQbZf+kg6yrfV9uN3xb+m5
YXqP4rrxddkB2QS9zz6M479D1Em6d/WDdLj0rtqoe/BztY3Q++J9pvFsn1cS
9bZshfpBfay+cF/Vrc8mOyMbK3uUOxvQex362NPTty/ifeBqn9qpe9F9u5/S
e/H7LZNqj97vcxFzOdPOuSyT4SEh30D9q/vXvVnOnI9hH1/vi3KkK/qvloUY
q9A9q4/ts6ay2wV9ZxzbxnVYdPkZxTUcva44S9mZlgDQHxqHGm8aazozy2NP
tkGX1mLrID2q7+h6NYk/SF/l9ufafqQ+lOs/5c4wjfpT35vGTqyrhnjWuu5r
7969O/7udfJUn9vW5dbWRdz/ILsT+1HPx+fnjMP+kD4vW5T6iEJnuOX+3oa+
fRHZyNwecPsiqiMW22y5y8mwz2JO5Uf9k1s3kPwNzRexTU/jYh476ZjRXCHn
ixjF76xr5IfEvlSOeR8+qr4z7huLv6H78bP1WNF7jdosOa8r7wDQDs8LUhsg
3dK0Nrljt00v2cV41V0P8hw/pyO8fpzel3VpzhcRnvNLL6a607pqiDU5pD/V
rpy+12upL+Lz+Mp8Eftsue+MPtu4GFGs9xnPq4/YVgwtLuL2qo/SuL99uThX
dp9GW5ZiP9/fZxmWTU6x7zYkLBe5+UnOf4+1bHKyad9NV26Nzq91WSP2mHdN
fCO5i3/z+3JnClonAMD0kH6UfZ+HmpzW7Wqv7EO0GTk7Oc4X8ffl6hDYFymz
3znUHunRLledWIFjNtKtsgdRd+dqvI7zRTzvz/l50RepipnpN+P6nu1Yrm+9
DtSVPn0Rt7dqPhz7tSrmZrweZXsXcy71O3p2sU/r5uVI1rvKWZ21x+g76P+P
k7NxvojXasr8N3+2rS6Sf6MxoXGtXJSIxmasr+PYyQsvvLDjeyRT1CYBmB4a
nxp383JWm/RGui5dZu/EOF/E+ii3DhPrttbF9qnLVedZ2LdIL+nanI2p64tU
zdfH+SIRz0HL5r+u1T2OuJ7T5arTbstCXR/J76/KK4jxJhNzGerIcI7oI7S9
6ux1dbw0/azuK9endX2RMn/Pcco2voh+W5/Xd4/zs2LMriy2OC86EWDekY2Y
xzHndqf6MWdD6voi3j8SaeOLyOYrd6DLVTdX1n5k2g8+FzhtVx1fJJfHEOfy
dX0Rr2mU1d9Uv6fz1jJ0L2WXzz+pek/d/vQ91slZjH1SxxfRFWMIL7/88mZM
Ll511wWmKWey1WU+drqWVdcXKbvPtr6I+lZyID+kTmzpxIkTmz5Vyq1bt0Zj
aKj5+wC7CemyXF5BE1zLs+vVdp+KPicfwvmGOZ9i2r7ILJDuVVvjXDm1j9P2
RWy7cnZaOYp9rav0uUZjWah7dpHtZtX7x637SIa1ThP3M+VkcShIzmKN9bJc
i2n6Is6BS3NhhXyuXPynatzreSzy+VUA0yLOJVM0NtN8tDI0J5KN73rV3aei
3yvLd/zJT36StaW71RdRu3PPz3UVUp+jiy/SZo3G/eo6EhHtl+7rfKA+fRH3
QVVObbR1zgWpOuPHcSu/x/kMOey3yF4PhbL1W+cQpfcybV/Efoj2A+biGK4/
FInynLu3IZzrDbDbUb5FmR9iWz/UGl/eg5Brn3Vgqnfq5q7m5k5D9kWks8t8
OD3DdB5edx9NX76I90Wmul62WPLXV/y7T18k5uDk7tO1J5z/4veX+RbqN72m
Prdt82dy3++65kPKmfTe/xyy2U19Ecfuxu1rqxsbkrzKz5NukH8U1+X0N7U/
1Rcxzper8yi/BgAmh30N56JpnLrmo2yHbdhQ10nti7h+RcS1GdL5lHVfzl7F
mmc5XyTWShgaareeV7pe7z5K/ZS4XzWHfZFcbDral7q1Uv19aR0p2a8+6q2a
vuuLOFdWYyPtW9e4jXg/U2pbda9+LfoW9kWqcpuGNCe3r562yX5WKi+xtl6u
hqr7JFcbJ/oIdfJq03qGZVcuxpK7L7VXukX5IgAwGbzfUnpR/9/7eNO8uaH6
IcJ6TrZHl3S3a1y6BqlxLcy4B0D6R+sDnt+m+wNcL0E6ruz1ofSPfAq1R/91
LW71h55pfI6uZ5nei22h9s2kOZT6t2yy5ull/aDcyyrsv+izapfWatQ29X+f
9O2LiLjPRTLlftXv5Oyr/WD1u/x6v1/3LlmK8QH7IupXvSfKsN4/pPUZoXbK
b7BPJXny/elyfEf3lZMV5y4rfpHmm+s1yZ/6tEzOcvttRVpPuOrKxYDtm+s3
XOdI9zPUmDDAbkE6Q3Pl1JZqDGpuoxjAUOxsGWqf9KBzZqW3HddJY97eZyAb
rffqv7o0J9fndb/+my7vLVBepfdn+DW9168PpY+k2+1TupakbUVso/N7037w
2knsg3iv+v9V/VTn3BCfl6O2qm1113eaMAlfRKhf5WO47eOevd7vM1p0aVyV
7Xl1roz60zKssTmJ/umKz6tS29RurYfk+sOyoivKmW27nlNOzvTeKjkri1HE
36u6qvJOPHZ0T67HDwCwW5Hdlk3TvMvxDNmfIZ5zM29MyheZR3w2jmMyljNs
LADAYuN9E5p7+RxTrY80WReHcjw/XnScp6l1Iq1rKKYQa4L0tW8JAADmC+fG
5vZIRzvRZy4nLB6u85XLNYm1d+atpiEAAHTHOY3yO9L9jXHPwBDP3oP5wecm
KSaSrvvFM2uRMwCAxcN1ncrWYuI+pqHkxML8Efe25mqBxDN96uQcAwDA7kFr
9lU1DmL8fEg1JWC+cFykLC8k+sTzcBY3AAD0i9boy/YxOGdEOSXERaAL8mW1
Hz0nR9HnZe8WAAAY2QzXdqo6zwSgCzFfhL3PAAAQcW1P+SPso4FJEddv2EcD
AABGcXLHRKgvApNCMZE9e/YM7rw9AACYLT4frslZpABtcD7S0M64AQCA2eIz
0DiDCyaJziAk7gYAACmqfSY/hHV7mCTyP/B3AQAgxfYhV99B+xxWVlZm0CrY
bWjdT/KU83f37t1LfREAgAVFfohyCHNnwqv2CHUfoA/kz5b5IT5zADkDAFg8
XnrppVE8ROszmpPKTui/mr8qhq78EdkPgC7Ip5Wcqa5ZKme6tI8GXwQAYPGw
fXB9h7Lr3nvvnXVTYY6Rf+F6ZlUXPi8AwOIRa29XXXofQFtOnz5dS87weQEA
Fg+t0Ss2Mu4ibg5dqCtnZeciAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwIT56u3ilSePFAeW9hX79q1d
+08Vv/rDtBuxWvz+5sXiySMHiiW1Yd/+4r6HzxSX//X3a68Mga+Kj66fL07e
t3+9j5YOFEeefKV468sZte72J8WNi08WD7s9+5aKA4dOFueuvlvMqkk7+ap4
7+q5bX126OT54vpHX826YYNj9ct3i6vnThaHDixtPE/J/5PFxRufFLdn3bgp
8sbz6zro+Tdm3ZKGzMV4BBgyXxT/8tS6/tt/+MniuZdeKl566VfFh1Ntw2rx
8ZXj6z7I/sPFk8+tteHMsQ3faKk4fuXj2fojqx8XK08d3NAxybX/0eJ//m7a
zVkpnjq4/vv77ztZnNEze+7J4vD+jb89+mrx8cz131drdmW9z5YOHBu18bkn
Dxf7R/12cM3W4I+Yr96+UBzZkPUDRzbGYJD/Qy++USxKb82jLzIf4xFg6LxR
PD+yD08Xr309mxasfnCpeFBtOPh8EU3U6pc3i+dHY/zB4nJPztHqlx8W1y8+
Xvz01boOxGrxzoUNm3rkxeLGb78Z+UWr33xQXN3wT5bOvl5Mr+v+WKw8sbTu
o116b7uNuv1RsXx83a98sK8Oa8lXrz098i2Xjl/Zpodvf7RcHJeNXTpbvN5L
p60WX354vbj4+E+L2o90SKy+U1w4uO6fnX1tewxwS/6XirP9dNbgmT9fZD7G
I8DwsS+y5gfM5Pe/Ll4/u1Sqb79+/ezIph342dudYiO3P3mzuHLukY15+b7i
6JV6hmvLT/pZ8XYaLP/69eLsyK6u9V2nec9q8c1vbxQXnzwzPsbyuyvFUbXn
gZ8X7+V+88PL6+09cKF4p0uTOvFhcfnBch/yw8sPjp7BY1f/2OE3bhefvHml
OPeIY+JHi5qPdArcLj7/zdXi3LF/Kt4a887VN55fjwf++Ho29mH53/fESvHF
JJo6MKbhi7z1T8eK89c/7GftZC7GI8CQ+V1x5WhmzSHRA+s2/GRx336vSdxX
PPzkxeLGJztXsdf1yJpNeO+94sqZjXj82vtP/o+qOcFbxYtLFXGZr18rnm49
ltfnzOePOQdlfb2gvh6yn3Sg+NnbuQ+4D9vaQdsst6/G9/yfl4sHtCZdqqwT
33LN1mXXlmpcdf21HXz6anF8pJ8vFR/kXl/z7x5oa19Xvyw+vH6+OLaZV7FU
HDh2vrj+4Zc1fNWPi+WH9Znjxauf5t/heM7BC+80931Xvyl+e+Ni8eRh+0fj
/ftP/9dPRjkipX1tW3f0SvG70T+Ptn6etez7qH/X7uHhQ1v5Y6W5KxuyprZt
5Esc8XPRuD93tXgvu7i0Ni7fXZP7k/et64ilA8Wx8zeL36+280XeuXBgNEbX
Hlmx+vubW+P9satFztv1b2g9+MzlN4uMKqtP0/EIAAlfFL/+Z+WGnFr329fm
sKdGuSIvFb/acB2+euPF4pDXsY+dGb12xuN86VDxYrLmvz7GDxQHD67po/2P
jNZNzxy7r3i2Kr5sXfvw8pqlyPFBcemBpvZec+bLxZlNm6BcmDPF5Tcb5gH+
8WrxmD7/4OWS/JmWvsiGzXr8UGJP3/+8e56i+3PpxfU5+Ye/Gj230fWPx4sD
I7/uePGP/lvFa//865Yzcfs/z93M23P7l03085qte/Pymc01eNnHw2cuF282
MiRfF689vW/Tbu1gdU3WFM9ZeqJYaRKyuf158Zur54pH0rZtrOd1YTNucvzV
4tO1f3/x63/eeman1uNL+x48tf1Zlrz2q3HLBKsfF68+un/DZz+ynrcVx/yO
3K0NO/vAE8VTR5bWfYoz+syZLV/x4Jocbhv+q8XHrz66EZ/cXzwS3n9wzZ5f
b+yLfFq8elyfeaK4+vaV9fW/fdXrWl6nPeT3jnyh68WHk0gyTccjAJRQ4rf/
7tWNcX2weP5mnHOuzWne+tm6/7J0fNsa/eZ8Y+np4rW6yXa2Wxu6die290vF
i+MG85pNeL/1nDnzyxtz0PL4gPuupi+Ss1mKMfVgs9YJuS1nMzksyRy79msN
cb8tlT4w91t5fMLc/vz94vr5Y1tz9I52Y30Ova94OhOEaxoTWf3mt8WN1Kad
u1r85vO+dr44F6Ek38BjJ2e4q14r+7WVJ7I5PqMxf+O5dV9123qkn+O+Ua7X
zfhM1vya5Y246xMrwafdtM3Hi+WPbm97/5XjB4sDB5r6Ihtt+G8PFg+uzYGO
vHijfpxD/u2VyfiQ64wZjwAQyPsi1tkPXvogMy5Xiw8urc+7Yh6HfZGlNUVS
eyyP1Zmrxc3n6umnrfh1HzrlizU7UDf+vTaPrgghTN5mrfPVWl8e3IhxXfog
c+dT9kXKfTivlYzz4cI64kY8/bffdLMSX6zZW33fw8tJFG4zJjLej779+W+K
qyH3aLT36+KNzm1LGrS1t6ysTb36Iv+v+N/PPVAcOnCwZD3yneLCgfSZWXfk
YxDu69iGTb2S860ch2zii3y8XDy88RnFVVrtNypb9+sYpxw7HgEgkPNFvC7y
wNoYKvmYdUDI47AvcnzcZHfbz4/XmXXXkKMvct/Jc8WVG+8X7c2981hqXGPi
r1vxokPF473brHU296dU7YEejC9Sd20r+iLKP7hS3Oi6jvXWi+v2PVk/ckwk
73uXtemR4tzV33SQsTJWiy9v2o5V7H/uOS5STe6ZjYlv7WiDfdAyvbLl/9dt
9tdrz61xLLaUdG23fT50rfEIAIGcL+K/PVfcLB1EO/cCt8qB7zEuMsrDePNK
cX6zjoXXQc4XV978bdHIBbBtrsiZ/Xj54fXfGJODueWLaD39lX7yQgJfvXdp
S++l+wojg/FF6sZF1mNKb145H/JBN+IQ56+0i3s5rzbeZ4OYSBqrad2OUlaL
3792dtMPSff5bmOCvsjtP/178en7vy5u3LhWvPLSmeLkoVx+9Zi8zB1tGF8/
4K0XlxrpkA8uPbAjPtsWrQfeuBJq87X0RWqPRwAIVPkiVbmFO3MlOvkifeSL
BGTD3rl2cbsN2/QF/jDeLxlrm/9YXH1s3xibW9EW27F/+1MHv0R269nN/OLj
yx9Vf9cc5otsoX3P7xTXLj4Z8lc36qi9cr14/w91/YGdsl0/JrKObdZWTL9N
O3J8Vbx3+dGtenA3x+Q59e6L3C4++pft97W5ZnHkWHGkdI2mqS9SrlcsO/Wa
7TjK0tr72/X65tg8srXXzjG45j5mw/EIAIGucZGt97TyRSayj2Y7o/zHuN+w
hv8w1jZvrm0/VjQpk5Fry2jPwsVrxTuNdN+a3biyZbcq58917qlHX2Qi+2i2
cbv4/P3rxcV4bkFt+bBvu+EHbcZE2tRek3+U7Hnft15789yVG8X7TRZvVr8s
br54aCM/5HhxKb8Zdju9+iIxP2XdZ79249fF+5/+e/Gn0W1UrdH0FxdxnKNe
s72OWp2vteNOv/lD8f71V8L+IMdPLxbX3mkYP92kxXgEgED/+SLNwsI164v0
sidu3Ya9cuZY8ffjinRW+kirxds/W8/Ba58fv9WW5vY02o0jxYW3a0aBp+WL
1K0vUhoLa8Bo75Tsyt/XrLvqNb912XYtsc51MbPrg3V9ra16+fsOPlWs1C0Y
3qcvsrqmB0ZyWJZn6XHaxRcZly/iPdc1dcg4OSthc8103/q5Fxevv1/8oVMO
V8vxCACBbvto4p6Zdr5Idd3VzVriTfbm9IL3DeysHbpZi7Wv/Pjbfyr+TTVE
a9pT773csS9yHNPyRSrrrm7JTutaah1xns/zb2y088Ca7Pe44XJ93q01ufM1
fJGtfZ879sWOo09fxM+/xK/YkvkuvshWzd2sXnEd45o6ZPXmc9XxtxJUd3W0
ntZT0nHr8QgAgTb1RXyW19FiOczh2tZvXn3nwnquXqKL43k0dWx+k5qU4+1g
qA1w/NLG/lvVSb20WU+pVW3OrvxxpXjCz6Xp+XJT80VirYrlIqrnrfNoGuaJ
jr3qr+F578Vjp0+PambMyicSm7K/ZseuND1ArU9fZNMPOFA8d3P7g9kah919
kVL51RrV81vnT9Zptn3KRvv2+qbLeASAQLk+qay7mlkTbX+WRLpW3e6c3n59
kVEHBB28/Tr41MpMzt70vHL8lbEPbX2RzTlzk5ydsO6wcfZy83N6J+OLbK4R
7es/JtIMxwRr3F/uufScL/LB5b/dGNvKnXhufbxv1GlfOnKh+NmP0/Hdwhcp
ol7x77hO6/5i//66OsTrOc1y2vum7Xi0rpylHwwwLKr1ye1PdGbbw9vOoxnl
mJeeR9P2XKvbxSc3Yj67zsA4U1z+1xnngH31XnF1MzdxzSc7dLI4f/2jGe3T
c73refBFitFc992rYY/kmp956OT54vpHM54/frE2l23ik06MBjVsJu6LiK+K
9+Lz8jk0G+c3uXbZ1v7Zdr6IWNcrRzbnGweOrP3Ozd8XN2vrEK+hNstb7Zf2
4xFfBACgBas3i+cGdRYuAAAALA63i4+WjxdLBy8W/3fWTQEAAIDF4+s3ihcf
+WlxpU7NCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIAe+P++BFNA
     "], {{0, 272}, {547, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{332.60000000000394`, Automatic},
   ImageSizeRaw->{547, 272},
   PlotRange->{{0, 547}, {0, 272}}]], "Input",ExpressionUUID->
  "75d71313-a2fd-4c8e-ab9c-fb6f987287a5"],
 "\nPlot it, and tryi to make the selfintersection clearly visible."
}], "Text",
 CellChangeTimes->{{3.447484168796875*^9, 3.44748424740625*^9}, {
   3.447484302515625*^9, 3.44748434090625*^9}, {3.44748440853125*^9, 
   3.447484408640625*^9}, {3.4474844545*^9, 3.447484505296875*^9}, {
   3.44748467215625*^9, 3.447484709484375*^9}, {3.447485266953125*^9, 
   3.447485347484375*^9}, {3.447485393234375*^9, 3.44748539540625*^9}, {
   3.44748566625*^9, 3.44748566825*^9}, {3.44750038696875*^9, 
   3.44750044678125*^9}, {3.447502224125*^9, 3.44750223*^9}, {
   3.447502313296875*^9, 3.447502380703125*^9}, {3.4475024481875*^9, 
   3.44750253865625*^9}, {3.447502580875*^9, 3.447502749203125*^9}, {
   3.447502805640625*^9, 3.447503103859375*^9}, {3.447511491796875*^9, 
   3.447511491796875*^9}, {3.447511684796875*^9, 3.44751178165625*^9}, {
   3.447585324046875*^9, 3.44758532784375*^9}, {3.45001595128125*^9, 
   3.4500160753125*^9}, {3.450016107109375*^9, 3.45001626103125*^9}, 
   3.450016396109375*^9, {3.793716245636414*^9, 3.7937162656415954`*^9}, {
   3.7937163062572803`*^9, 3.7937163372728167`*^9}, {3.793717903390607*^9, 
   3.7937179562114754`*^9}, {3.793718064926051*^9, 3.7937182172990417`*^9}, {
   3.79371916283041*^9, 3.7937191953987103`*^9}, {3.793719917093993*^9, 
   3.7937199747031097`*^9}, {3.7937204000419245`*^9, 3.793720418936866*^9}, {
   3.7937204681563735`*^9, 3.793720469833965*^9}, {3.793720787418187*^9, 
   3.7937207880837507`*^9}, {3.79372088852099*^9, 3.7937208889251003`*^9}, {
   3.907412840883844*^9, 3.9074128584218225`*^9}, {3.907412903978726*^9, 
   3.9074129780819716`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"b5fb22c0-d1e8-4c7e-8968-38000943ae88"],

Cell[TextData[{
 "11. Find the ",
 StyleBox["integer",
  FontSlant->"Italic"],
 " zeroes of the polynomial   ",
 Cell[BoxData[
  RowBox[{"2", " ", 
   SuperscriptBox["x", "2"]}]], "Input",ExpressionUUID->
  "a55c7d75-5c5b-47be-b0b3-5c9ce630d885"],
 " - 5 x - 3\n\nSuggestions:Solve[ equation, variable, domain]"
}], "Text",
 CellChangeTimes->{{3.447484168796875*^9, 3.44748424740625*^9}, {
   3.447484302515625*^9, 3.44748434090625*^9}, {3.44748440853125*^9, 
   3.447484408640625*^9}, {3.4474844545*^9, 3.447484505296875*^9}, {
   3.44748467215625*^9, 3.447484709484375*^9}, {3.447485266953125*^9, 
   3.447485347484375*^9}, {3.447485393234375*^9, 3.44748539540625*^9}, {
   3.44748566625*^9, 3.44748566825*^9}, {3.44750038696875*^9, 
   3.44750044678125*^9}, {3.447502224125*^9, 3.44750223*^9}, {
   3.447502313296875*^9, 3.447502380703125*^9}, {3.4475024481875*^9, 
   3.44750253865625*^9}, {3.447502580875*^9, 3.447502749203125*^9}, {
   3.447502805640625*^9, 3.447503103859375*^9}, {3.447511491796875*^9, 
   3.447511491796875*^9}, {3.447511684796875*^9, 3.44751178165625*^9}, {
   3.447585324046875*^9, 3.44758532784375*^9}, {3.45001595128125*^9, 
   3.4500160753125*^9}, {3.450016107109375*^9, 3.45001626103125*^9}, 
   3.450016396109375*^9, {3.793716245636414*^9, 3.7937162656415954`*^9}, {
   3.7937163062572803`*^9, 3.7937163372728167`*^9}, {3.793717903390607*^9, 
   3.7937179562114754`*^9}, {3.793718064926051*^9, 3.7937182172990417`*^9}, {
   3.79371916283041*^9, 3.7937191953987103`*^9}, {3.793719917093993*^9, 
   3.7937199747031097`*^9}, {3.7937204000419245`*^9, 3.793720418936866*^9}, {
   3.7937204681563735`*^9, 3.793720469833965*^9}, {3.793720787418187*^9, 
   3.7937207880837507`*^9}, {3.79372088852099*^9, 3.7937208889251003`*^9}, {
   3.907412840883844*^9, 3.9074128584218225`*^9}, {3.907412903978726*^9, 
   3.9074129780819716`*^9}, {3.907413653672807*^9, 3.9074137300451646`*^9}, {
   3.9074258998598213`*^9, 3.9074259102075615`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"edf53c7e-f392-403c-8d41-e2875e7eabf3"],

Cell[TextData[{
 "12. The \[OpenCurlyDoubleQuote]Number Prime Theorem\[CloseCurlyDoubleQuote] \
states the number \[Pi](n) of primes \[InvisibleComma] \[LessEqual] n is \
asymptotic to  ",
 Cell[BoxData[
  FormBox[
   FractionBox["n", 
    RowBox[{"log", "(", "n", ")"}]], TraditionalForm]],ExpressionUUID->
  "7cdfa006-ff7f-4743-8e3d-3c8e88a892a1"],
 "  for n\[Rule]\[Infinity].\n\n- In ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", \[Pi] is the function PrimePi, and is defined for real arguments.\nPlot \
together the two functions ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Pi]", "(", "x", ")"}], TraditionalForm]],ExpressionUUID->
  "8d7d8497-9a12-41a1-a22a-0ede8521cec3"],
 "  and  ",
 Cell[BoxData[
  FormBox[
   FractionBox["x", 
    RowBox[{"log", "(", "x", ")"}]], TraditionalForm]],ExpressionUUID->
  "a3329e89-1d56-4f52-9b31-559e8857e523"],
 "  (and/or ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"\[Pi]", "(", "x", ")"}], "x"], TraditionalForm]],ExpressionUUID->
  "8eabe64f-02f1-43b3-8483-ad74cd723e18"],
 "  and  ",
 Cell[BoxData[
  FormBox[
   FractionBox["1", 
    RowBox[{"log", "(", "x", ")"}]], TraditionalForm]],ExpressionUUID->
  "2e48fa45-ba23-4a01-8f45-16907cee3481"],
 ")  for ",
 StyleBox["x",
  FontSlant->"Italic"],
 " up to ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["10", "5"], TraditionalForm]],ExpressionUUID->
  "1e6df6bc-b047-4f62-a16c-30cfd472da19"],
 ", ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["10", "6"], TraditionalForm]],ExpressionUUID->
  "9e65546f-9fca-48f5-9782-c6e186a97c1a"],
 " , ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["10", 
    RowBox[{"7", " "}]], TraditionalForm]],ExpressionUUID->
  "a5fb3ff2-6177-4c47-ae05-c715f7259d03"],
 ", ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["10", "8"], TraditionalForm]],ExpressionUUID->
  "dbfafc46-168f-43f0-83e9-9436185af75a"],
 ", or even more if you can handle it.  ",
 "(Taking ",
 StyleBox["x",
  FontSlant->"Italic"],
 " reals speeds up the computation). Is there a convergence?\n",
 "\n- In fact, asymptotic means that   ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Pi]", "(", "x", ")"}], TraditionalForm]],ExpressionUUID->
  "03949ce9-809f-4a8c-969b-3efe9d0e0de9"],
 "/",
 Cell[BoxData[
  FormBox[
   FractionBox["x", 
    RowBox[{"log", "(", "x", ")"}]], TraditionalForm]],ExpressionUUID->
  "413947e0-186c-41b6-b39e-3df773e776f3"],
 " \[Rule] 1. Make plots of this. Is the convergence clear?"
}], "Text",
 CellChangeTimes->{{3.447484168796875*^9, 3.44748424740625*^9}, {
   3.447484302515625*^9, 3.44748434090625*^9}, {3.44748440853125*^9, 
   3.447484408640625*^9}, {3.4474844545*^9, 3.447484505296875*^9}, {
   3.44748467215625*^9, 3.447484709484375*^9}, {3.447485266953125*^9, 
   3.447485347484375*^9}, {3.447485393234375*^9, 3.44748539540625*^9}, {
   3.44748566625*^9, 3.44748566825*^9}, {3.44750038696875*^9, 
   3.44750044678125*^9}, {3.447502224125*^9, 3.44750223*^9}, {
   3.447502313296875*^9, 3.447502380703125*^9}, {3.4475024481875*^9, 
   3.44750253865625*^9}, {3.447502580875*^9, 3.447502749203125*^9}, {
   3.447502805640625*^9, 3.447503103859375*^9}, {3.447511491796875*^9, 
   3.447511491796875*^9}, {3.447511684796875*^9, 3.44751178165625*^9}, {
   3.447585324046875*^9, 3.44758532784375*^9}, {3.45001595128125*^9, 
   3.4500160753125*^9}, {3.450016107109375*^9, 3.45001626103125*^9}, 
   3.450016396109375*^9, {3.793716245636414*^9, 3.7937162656415954`*^9}, {
   3.7937163062572803`*^9, 3.7937163372728167`*^9}, {3.793717903390607*^9, 
   3.7937179562114754`*^9}, {3.793718064926051*^9, 3.7937182172990417`*^9}, {
   3.79371916283041*^9, 3.7937191953987103`*^9}, {3.793719917093993*^9, 
   3.7937199747031097`*^9}, {3.7937204000419245`*^9, 3.793720418936866*^9}, {
   3.7937204681563735`*^9, 3.793720469833965*^9}, {3.793720787418187*^9, 
   3.7937207880837507`*^9}, {3.79372088852099*^9, 3.7937208889251003`*^9}, {
   3.907412840883844*^9, 3.9074128584218225`*^9}, {3.907412903978726*^9, 
   3.9074129780819716`*^9}, {3.907413653672807*^9, 3.9074137300451646`*^9}, {
   3.9074153701803784`*^9, 3.9074153737333956`*^9}, {3.9074174060815954`*^9, 
   3.907417450672729*^9}, {3.9074175447359056`*^9, 3.9074176589448824`*^9}, {
   3.9074177338176827`*^9, 3.9074178870044165`*^9}, {3.907418040658271*^9, 
   3.907418151177305*^9}, {3.9074182273145795`*^9, 3.9074184349023*^9}, {
   3.9074185286044283`*^9, 3.9074186708646235`*^9}, {3.9074187450071697`*^9, 
   3.9074187865462523`*^9}, {3.907418865650231*^9, 3.907418882685953*^9}, {
   3.907418934921791*^9, 3.9074190644272213`*^9}, {3.9074191683959513`*^9, 
   3.9074192149573836`*^9}, {3.9074243747761507`*^9, 3.90742437861698*^9}, {
   3.907424471431411*^9, 3.9074244914605985`*^9}, {3.9074245218649607`*^9, 
   3.9074246898909516`*^9}, {3.907424855955865*^9, 3.9074250927267933`*^9}, {
   3.907426229393008*^9, 3.9074262727021074`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"01f6f1c8-1c0c-41b1-9c8e-d2bd8ada30ee"],

Cell[TextData[{
 "13. Find the solutions of the system\n            ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "2"], "-", 
    SuperscriptBox["y", "3"]}], TraditionalForm]],ExpressionUUID->
  "f6066c48-ec45-4a2c-b738-2cc40c9e0673"],
 "=0  ,    xy ",
 Cell[BoxData[
  FormBox[
   RowBox[{"+", 
    SuperscriptBox["x", "2"]}], TraditionalForm]],ExpressionUUID->
  "539d06f6-c20b-462a-bdf6-8f02d528df2c"],
 "=0\nThen plot the two curves  ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["x", "2"], "-", 
   SuperscriptBox["y", "3"]}]], "Input",
  CellChangeTimes->{{3.9074981133919225`*^9, 3.907498132702726*^9}},
  ExpressionUUID->"8b1cf5c6-b76b-4fc6-a6f7-33ceb86f7de6"],
 " = 0,  xy ",
 Cell[BoxData[
  FormBox[
   RowBox[{"+", 
    SuperscriptBox["x", "2"]}], TraditionalForm]],ExpressionUUID->
  "cd47fe97-b8b4-4522-87ba-4fc9efef19bf"],
 "=0 so as to show the solutions of the system as intersection points of the \
curves."
}], "Text",
 CellChangeTimes->{{3.447484168796875*^9, 3.44748424740625*^9}, {
   3.447484302515625*^9, 3.44748434090625*^9}, {3.44748440853125*^9, 
   3.447484408640625*^9}, {3.4474844545*^9, 3.447484505296875*^9}, {
   3.44748467215625*^9, 3.447484709484375*^9}, {3.447485266953125*^9, 
   3.447485347484375*^9}, {3.447485393234375*^9, 3.44748539540625*^9}, {
   3.44748566625*^9, 3.44748566825*^9}, {3.44750038696875*^9, 
   3.44750044678125*^9}, {3.447502224125*^9, 3.44750223*^9}, {
   3.447502313296875*^9, 3.447502380703125*^9}, {3.4475024481875*^9, 
   3.44750253865625*^9}, {3.447502580875*^9, 3.447502749203125*^9}, {
   3.447502805640625*^9, 3.447503103859375*^9}, {3.447511491796875*^9, 
   3.447511491796875*^9}, {3.447511684796875*^9, 3.44751178165625*^9}, {
   3.447585324046875*^9, 3.44758532784375*^9}, {3.45001595128125*^9, 
   3.4500160753125*^9}, {3.450016107109375*^9, 3.45001626103125*^9}, 
   3.450016396109375*^9, {3.793716245636414*^9, 3.7937162656415954`*^9}, {
   3.7937163062572803`*^9, 3.7937163372728167`*^9}, {3.793717903390607*^9, 
   3.7937179562114754`*^9}, {3.793718064926051*^9, 3.7937182172990417`*^9}, {
   3.79371916283041*^9, 3.7937191953987103`*^9}, {3.793719917093993*^9, 
   3.7937199747031097`*^9}, {3.7937204000419245`*^9, 3.793720418936866*^9}, {
   3.7937204681563735`*^9, 3.793720469833965*^9}, {3.793720787418187*^9, 
   3.7937207880837507`*^9}, {3.79372088852099*^9, 3.7937208889251003`*^9}, {
   3.907412840883844*^9, 3.9074128584218225`*^9}, {3.907412903978726*^9, 
   3.9074129780819716`*^9}, {3.907413653672807*^9, 3.9074137300451646`*^9}, {
   3.9074153701803784`*^9, 3.9074153737333956`*^9}, {3.9074174060815954`*^9, 
   3.907417450672729*^9}, {3.9074175447359056`*^9, 3.9074176589448824`*^9}, {
   3.9074177338176827`*^9, 3.9074178870044165`*^9}, {3.907418040658271*^9, 
   3.907418151177305*^9}, {3.9074182273145795`*^9, 3.9074184349023*^9}, {
   3.9074185286044283`*^9, 3.9074186708646235`*^9}, {3.9074187450071697`*^9, 
   3.9074187865462523`*^9}, {3.907418865650231*^9, 3.907418882685953*^9}, {
   3.907418934921791*^9, 3.9074190644272213`*^9}, {3.9074191683959513`*^9, 
   3.9074192149573836`*^9}, {3.9074243747761507`*^9, 3.90742437861698*^9}, {
   3.907424471431411*^9, 3.9074244914605985`*^9}, {3.9074245218649607`*^9, 
   3.9074246898909516`*^9}, {3.907424855955865*^9, 3.9074250927267933`*^9}, {
   3.907426229393008*^9, 3.9074262727021074`*^9}, {3.9074964525676413`*^9, 
   3.90749657475708*^9}, {3.907496759549351*^9, 3.907496781997898*^9}, {
   3.907497589331483*^9, 3.9074975999481196`*^9}, {3.907498237075573*^9, 
   3.9074983994263096`*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"e069fa25-1b3b-4acc-b07b-73a9a34ceabb"],

Cell[TextData[{
 "14. Consider the function\n               f: ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    TemplateBox[{},
     "Reals"], "2"], TraditionalForm]],ExpressionUUID->
  "dbdcd75c-8565-4827-bae6-ae103cc1f363"],
 "\[Rule]",
 Cell[BoxData[
  FormBox[
   TemplateBox[{},
    "Reals"], TraditionalForm]],ExpressionUUID->
  "ff6dc432-7fa4-4ab3-ac50-5b7abad5aaff"],
 " ,   f(x,y) = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "+", "y"}], ")"}], "2"], "-", "xy", "+", "1"}], 
   TraditionalForm]],ExpressionUUID->"2ff63812-ec20-460b-a2ff-f636fa80538d"],
 " \n1. Find its critical points  [The differential is   D[  f[x,y] ,  \
{{x,y}}  ]\n2. Plot the graph of f in a region that contains all critical \
points \n3. Superpose to the graph of f a point in each of its critical point \
\n    [If the critical point has coordinates (x,y), create a graphics 3d \
object that represent a point (of a suitable PontSize) located at the point \
of coordinates\n    (x,y,f(x,y)).\n    Then, superpose it to the Plot of  f  \
with the Option     ",
 StyleBox[" Epilog",
  FontWeight->"Bold"],
 " ",
 StyleBox["\[Rule] Graphics3D[ { PointSize[...], Point[{....}}]",
  FontWeight->"Bold"],
 "\n4. Investigate whether the fixd points are minima, maxima or saddle \
points  [The Hessian is   D[ f(x,y),  { {x,y} , 2 } ]"
}], "Text",
 CellChangeTimes->{{3.447484168796875*^9, 3.44748424740625*^9}, {
   3.447484302515625*^9, 3.44748434090625*^9}, {3.44748440853125*^9, 
   3.447484408640625*^9}, {3.4474844545*^9, 3.447484505296875*^9}, {
   3.44748467215625*^9, 3.447484709484375*^9}, {3.447485266953125*^9, 
   3.447485347484375*^9}, {3.447485393234375*^9, 3.44748539540625*^9}, {
   3.44748566625*^9, 3.44748566825*^9}, {3.44750038696875*^9, 
   3.44750044678125*^9}, {3.447502224125*^9, 3.44750223*^9}, {
   3.447502313296875*^9, 3.447502380703125*^9}, {3.4475024481875*^9, 
   3.44750253865625*^9}, {3.447502580875*^9, 3.447502749203125*^9}, {
   3.447502805640625*^9, 3.447503103859375*^9}, {3.447511491796875*^9, 
   3.447511491796875*^9}, {3.447511684796875*^9, 3.44751178165625*^9}, {
   3.447585324046875*^9, 3.44758532784375*^9}, {3.45001595128125*^9, 
   3.4500160753125*^9}, {3.450016107109375*^9, 3.45001626103125*^9}, 
   3.450016396109375*^9, {3.793716245636414*^9, 3.7937162656415954`*^9}, {
   3.7937163062572803`*^9, 3.7937163372728167`*^9}, {3.793717903390607*^9, 
   3.7937179562114754`*^9}, {3.793718064926051*^9, 3.7937182172990417`*^9}, {
   3.79371916283041*^9, 3.7937191953987103`*^9}, {3.793719917093993*^9, 
   3.7937199747031097`*^9}, {3.7937204000419245`*^9, 3.793720418936866*^9}, {
   3.7937204681563735`*^9, 3.793720469833965*^9}, {3.793720787418187*^9, 
   3.7937207880837507`*^9}, {3.79372088852099*^9, 3.7937208889251003`*^9}, {
   3.907412840883844*^9, 3.9074128584218225`*^9}, {3.907412903978726*^9, 
   3.9074129780819716`*^9}, {3.907413653672807*^9, 3.9074137300451646`*^9}, {
   3.9074153701803784`*^9, 3.9074153737333956`*^9}, {3.9074174060815954`*^9, 
   3.907417450672729*^9}, {3.9074175447359056`*^9, 3.9074176589448824`*^9}, {
   3.9074177338176827`*^9, 3.9074178870044165`*^9}, {3.907418040658271*^9, 
   3.907418151177305*^9}, {3.9074182273145795`*^9, 3.9074184349023*^9}, {
   3.9074185286044283`*^9, 3.9074186708646235`*^9}, {3.9074187450071697`*^9, 
   3.9074187865462523`*^9}, {3.907418865650231*^9, 3.907418882685953*^9}, {
   3.907418934921791*^9, 3.9074190644272213`*^9}, {3.9074191683959513`*^9, 
   3.9074192149573836`*^9}, {3.9074243747761507`*^9, 3.90742437861698*^9}, {
   3.907424471431411*^9, 3.9074244914605985`*^9}, {3.9074245218649607`*^9, 
   3.9074246898909516`*^9}, {3.907424855955865*^9, 3.9074250927267933`*^9}, {
   3.907426229393008*^9, 3.9074262727021074`*^9}, {3.9074964525676413`*^9, 
   3.90749657475708*^9}, {3.907496759549351*^9, 3.907496781997898*^9}, {
   3.9074984391164675`*^9, 3.907498439850802*^9}, {3.9074988938198333`*^9, 
   3.907498899597869*^9}, {3.907499631964731*^9, 3.9075000858489122`*^9}, {
   3.907506453615024*^9, 3.9075065462525015`*^9}, {3.9075066722825303`*^9, 
   3.907506691439015*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"323ee36f-ea57-4a24-8699-d450e4be1aff"],

Cell[TextData[{
 "14. Consider the function\n               f: ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    TemplateBox[{},
     "Reals"], "2"], TraditionalForm]],ExpressionUUID->
  "7ca65954-d2ff-4c72-9637-fb48dbb0d58f"],
 "\[Rule]",
 Cell[BoxData[
  FormBox[
   TemplateBox[{},
    "Reals"], TraditionalForm]],ExpressionUUID->
  "26ce4b12-fb98-43c2-96c1-89e2ba6dbf30"],
 " ,   f(x,y) = ",
 Cell[BoxData[
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "4"], "+", 
    RowBox[{
     SuperscriptBox["x", "2"], " ", 
     SuperscriptBox["y", "2"]}], "+", 
    SuperscriptBox["y", "4"], "-", "x", " ", "+", "1"}]]], "Input",
  CellChangeTimes->{{3.907498599005662*^9, 3.90749859936453*^9}, {
   3.9074986993860817`*^9, 3.907498699793854*^9}, {3.9074987846111307`*^9, 
   3.9074987853222237`*^9}},ExpressionUUID->
  "b839b773-d754-4698-9985-72bfc1e18f48"],
 "\n1. Determine the region of the plane where it is defined and plot it.\n2. \
Plot its graph.\n2. Find its critical points and investigate if they are \
minima, maxima or saddle points."
}], "Text",
 CellChangeTimes->{{3.447484168796875*^9, 3.44748424740625*^9}, {
   3.447484302515625*^9, 3.44748434090625*^9}, {3.44748440853125*^9, 
   3.447484408640625*^9}, {3.4474844545*^9, 3.447484505296875*^9}, {
   3.44748467215625*^9, 3.447484709484375*^9}, {3.447485266953125*^9, 
   3.447485347484375*^9}, {3.447485393234375*^9, 3.44748539540625*^9}, {
   3.44748566625*^9, 3.44748566825*^9}, {3.44750038696875*^9, 
   3.44750044678125*^9}, {3.447502224125*^9, 3.44750223*^9}, {
   3.447502313296875*^9, 3.447502380703125*^9}, {3.4475024481875*^9, 
   3.44750253865625*^9}, {3.447502580875*^9, 3.447502749203125*^9}, {
   3.447502805640625*^9, 3.447503103859375*^9}, {3.447511491796875*^9, 
   3.447511491796875*^9}, {3.447511684796875*^9, 3.44751178165625*^9}, {
   3.447585324046875*^9, 3.44758532784375*^9}, {3.45001595128125*^9, 
   3.4500160753125*^9}, {3.450016107109375*^9, 3.45001626103125*^9}, 
   3.450016396109375*^9, {3.793716245636414*^9, 3.7937162656415954`*^9}, {
   3.7937163062572803`*^9, 3.7937163372728167`*^9}, {3.793717903390607*^9, 
   3.7937179562114754`*^9}, {3.793718064926051*^9, 3.7937182172990417`*^9}, {
   3.79371916283041*^9, 3.7937191953987103`*^9}, {3.793719917093993*^9, 
   3.7937199747031097`*^9}, {3.7937204000419245`*^9, 3.793720418936866*^9}, {
   3.7937204681563735`*^9, 3.793720469833965*^9}, {3.793720787418187*^9, 
   3.7937207880837507`*^9}, {3.79372088852099*^9, 3.7937208889251003`*^9}, {
   3.907412840883844*^9, 3.9074128584218225`*^9}, {3.907412903978726*^9, 
   3.9074129780819716`*^9}, {3.907413653672807*^9, 3.9074137300451646`*^9}, {
   3.9074153701803784`*^9, 3.9074153737333956`*^9}, {3.9074174060815954`*^9, 
   3.907417450672729*^9}, {3.9074175447359056`*^9, 3.9074176589448824`*^9}, {
   3.9074177338176827`*^9, 3.9074178870044165`*^9}, {3.907418040658271*^9, 
   3.907418151177305*^9}, {3.9074182273145795`*^9, 3.9074184349023*^9}, {
   3.9074185286044283`*^9, 3.9074186708646235`*^9}, {3.9074187450071697`*^9, 
   3.9074187865462523`*^9}, {3.907418865650231*^9, 3.907418882685953*^9}, {
   3.907418934921791*^9, 3.9074190644272213`*^9}, {3.9074191683959513`*^9, 
   3.9074192149573836`*^9}, {3.9074243747761507`*^9, 3.90742437861698*^9}, {
   3.907424471431411*^9, 3.9074244914605985`*^9}, {3.9074245218649607`*^9, 
   3.9074246898909516`*^9}, {3.907424855955865*^9, 3.9074250927267933`*^9}, {
   3.907426229393008*^9, 3.9074262727021074`*^9}, {3.9074964525676413`*^9, 
   3.90749657475708*^9}, {3.907496759549351*^9, 3.907496781997898*^9}, {
   3.9074984391164675`*^9, 3.907498439850802*^9}, {3.9074988938198333`*^9, 
   3.907498899597869*^9}, {3.907506710297643*^9, 3.9075068404851837`*^9}, {
   3.907506884462335*^9, 3.9075068963429565`*^9}, {3.9075069274882174`*^9, 
   3.907506927675955*^9}},
 Background->RGBColor[
  0., 1., 0.],ExpressionUUID->"2bf6b894-da75-4e1d-bada-a7c70abf7266"]
}, Open  ]]
},
WindowSize->{1141.2, 587.4},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowGroupOpener->{"InsideFrame", "Inline"},
Magnification:>1.05 Inherited,
FrontEndVersion->"13.0 for Microsoft Windows (64-bit) (February 4, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"e74bcca4-1a77-4ddb-a3e1-a605d979e1d0"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1544, 24, 81, "Text",ExpressionUUID->"b016031e-6c8e-4a66-ac65-1747af6335ee"],
Cell[CellGroupData[{
Cell[2127, 48, 422, 6, 102, "Title",ExpressionUUID->"f729008c-babd-4da4-bc56-be901629beba"],
Cell[2552, 56, 488, 9, 53, "Text",ExpressionUUID->"60ed2545-9357-4dd9-9a2f-7ac787a18d14"],
Cell[3043, 67, 661, 14, 54, "Text",ExpressionUUID->"64e41634-1614-4033-8581-bd92fcdf0616"],
Cell[3707, 83, 685, 14, 53, "Text",ExpressionUUID->"f994dc9a-238f-4cb5-b156-e4f1eaa9a8d4"],
Cell[4395, 99, 1717, 34, 156, "Text",ExpressionUUID->"6827507b-dd8b-4b01-b59f-dc593c3b7887"],
Cell[6115, 135, 3209, 94, 187, "Text",ExpressionUUID->"385a656a-334e-4f7b-bfcb-d56e600d5e61"],
Cell[9327, 231, 1018, 20, 77, "Text",ExpressionUUID->"46d707c5-5062-4896-8900-bf26ee63f539"],
Cell[10348, 253, 2118, 51, 151, "Text",ExpressionUUID->"2e3bcb28-f8a8-49cd-b557-d36ec4bdb18c"],
Cell[12469, 306, 978, 17, 101, "Text",ExpressionUUID->"a5f7de18-7674-4454-9e91-07cd96288f80"],
Cell[13450, 325, 3796, 89, 202, "Text",ExpressionUUID->"26aa55ac-ca53-464d-9fb1-1dca6d33fed6"],
Cell[17249, 416, 25718, 428, 254, "Text",ExpressionUUID->"b5fb22c0-d1e8-4c7e-8968-38000943ae88"],
Cell[42970, 846, 2052, 35, 101, "Text",ExpressionUUID->"edf53c7e-f392-403c-8d41-e2875e7eabf3"],
Cell[45025, 883, 4934, 112, 218, "Text",ExpressionUUID->"01f6f1c8-1c0c-41b1-9c8e-d2bd8ada30ee"],
Cell[49962, 997, 3652, 67, 101, "Text",ExpressionUUID->"e069fa25-1b3b-4acc-b07b-73a9a34ceabb"],
Cell[53617, 1066, 4231, 76, 247, "Text",ExpressionUUID->"323ee36f-ea57-4a24-8699-d450e4be1aff"],
Cell[57851, 1144, 3907, 70, 152, "Text",ExpressionUUID->"2bf6b894-da75-4e1d-bada-a7c70abf7266"]
}, Open  ]]
}
]
*)