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

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

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     43718,       1042]
NotebookOptionsPosition[     41818,       1000]
NotebookOutlinePosition[     42171,       1016]
CellTagsIndexPosition[     42128,       1013]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Funzioni", " ", "lineari"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"q", "+", 
       RowBox[{"m", "*", "x"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y"}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"m", ",", "0"}], "}"}], ",", 
      RowBox[{"-", "10"}], ",", "10", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"q", ",", "0"}], "}"}], ",", 
      RowBox[{"-", "5"}], ",", "5", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.747567643210677*^9, 3.74756771174706*^9}, {
   3.747567754265061*^9, 3.7475677555563602`*^9}, {3.747567806350486*^9, 
   3.747567808066215*^9}, {3.7475679071069393`*^9, 3.747567916445397*^9}, 
   3.747567969136348*^9, {3.747568040263558*^9, 3.7475680517988567`*^9}, {
   3.747568136212317*^9, 3.747568160471499*^9}, {3.7475694182621393`*^9, 
   3.7475694268644342`*^9}, {3.747688204042096*^9, 3.747688206813179*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"b9cf1984-a26b-4ce8-8732-68be53a2925e"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`m$$ = 0, $CellContext`q$$ = 0, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`m$$], 0}, -10, 10}, {{
       Hold[$CellContext`q$$], 0}, -5, 5}}, Typeset`size$$ = {
    720., {355., 366.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`m$149268$$ = 
    0, $CellContext`q$149269$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`m$$ = 0, $CellContext`q$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`m$$, $CellContext`m$149268$$, 0], 
        Hold[$CellContext`q$$, $CellContext`q$149269$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[$CellContext`q$$ + $CellContext`m$$ $CellContext`x, \
{$CellContext`x, -10, 10}, AxesLabel -> {$CellContext`x, $CellContext`y}, 
        AxesOrigin -> {0, 0}, PlotRange -> {{-10, 10}, {-10, 10}}, 
        AspectRatio -> 1], 
      "Specifications" :> {{{$CellContext`m$$, 0}, -10, 10, Appearance -> 
         "Labeled"}, {{$CellContext`q$$, 0}, -5, 5, Appearance -> "Labeled"}},
       "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{806., {451., 463.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7475677150036917`*^9, 3.747567759908536*^9, {3.747567809576723*^9, 
   3.747567831693821*^9}, 3.747567970566392*^9, 3.747568055479013*^9, {
   3.747568146600499*^9, 3.747568161322682*^9}, {3.747568332775406*^9, 
   3.747568344625486*^9}, 3.747568378751828*^9, 3.747616622113968*^9, 
   3.7476172227851677`*^9, 3.747617290046418*^9, 3.7476882074596567`*^9, 
   3.747688778564897*^9, 3.747688896581197*^9, 3.779576390748868*^9, 
   3.779576632699779*^9, {3.779577090716734*^9, 3.779577096733873*^9}},
 CellLabel->"Out[29]=",ExpressionUUID->"e3368c2b-4a59-4c7d-855f-d2b8c351fb0b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Un", " ", "semplice", " ", "modello", " ", "di", " ", "produzione"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"Legended", "[", 
         RowBox[{
          RowBox[{"p", "*", "q"}], ",", "\"\<Ricavi\>\""}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Legended", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"cv", "*", "q"}], "+", "cf"}], ",", "\"\<Costi\>\""}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Legended", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"p", "-", "cv"}], ")"}], "*", "q"}], "-", "cf"}], ",", 
          "\"\<Profitti\>\""}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"q", ",", "0", ",", "10"}], "}"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"q", ",", "\"\<(R,C,P)\>\""}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "5"}], ",", "10"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"p", ",", "0"}], "}"}], ",", "0", ",", "10", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"cv", ",", "0"}], "}"}], ",", "0", ",", "5", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"cf", ",", "0"}], "}"}], ",", "0", ",", "5", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.747568948188176*^9, 3.747569190443735*^9}, {
  3.747569291669203*^9, 3.7475693041270847`*^9}, {3.747688184798338*^9, 
  3.74768818996344*^9}, {3.779576826484284*^9, 3.7795769515399513`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"a174d6ad-32b2-4308-96da-7a67185bd53f"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`cf$$ = 0, $CellContext`cv$$ = 
    0, $CellContext`p$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`p$$], 0}, 0, 10}, {{
       Hold[$CellContext`cv$$], 0}, 0, 5}, {{
       Hold[$CellContext`cf$$], 0}, 0, 5}}, Typeset`size$$ = {
    893., {340., 352.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`p$149559$$ = 
    0, $CellContext`cv$149560$$ = 0, $CellContext`cf$149561$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`cf$$ = 0, $CellContext`cv$$ = 
        0, $CellContext`p$$ = 0}, "ControllerVariables" :> {
        Hold[$CellContext`p$$, $CellContext`p$149559$$, 0], 
        Hold[$CellContext`cv$$, $CellContext`cv$149560$$, 0], 
        Hold[$CellContext`cf$$, $CellContext`cf$149561$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{
         Legended[$CellContext`p$$ $CellContext`q, "Ricavi"], 
         Legended[$CellContext`cv$$ $CellContext`q + $CellContext`cf$$, 
          "Costi"], 
         Legended[($CellContext`p$$ - $CellContext`cv$$) $CellContext`q - \
$CellContext`cf$$, "Profitti"]}, {$CellContext`q, 0, 10}, 
        AxesLabel -> {$CellContext`q, "(R,C,P)"}, AxesOrigin -> {0, 0}, 
        PlotRange -> {{0, 10}, {-5, 10}}, AspectRatio -> 1], 
      "Specifications" :> {{{$CellContext`p$$, 0}, 0, 10, Appearance -> 
         "Labeled"}, {{$CellContext`cv$$, 0}, 0, 5, Appearance -> 
         "Labeled"}, {{$CellContext`cf$$, 0}, 0, 5, Appearance -> "Labeled"}},
       "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{979., {453., 465.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.74756907982847*^9, 3.747569148225027*^9, 3.747569191242552*^9, {
   3.7475693074014177`*^9, 3.747569326141593*^9}, 3.747617285863948*^9, 
   3.747688190515049*^9, 3.747688782198242*^9, 3.747688899739519*^9, 
   3.7795763956774187`*^9, 3.779576635534299*^9, {3.779576888287264*^9, 
   3.7795768965845613`*^9}, 3.77957695339672*^9, 3.779577102966785*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"74e9dfe7-e710-4337-b439-84e7579b98c0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Aliquote", " ", "IRPEF", " ", "marginali", " ", "e", " ", "medie", " ", 
    "e", " ", "tassazione"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"h", "[", "x_", "]"}], ":=", 
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"0.23", "x"}], ",", 
         RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "15000"}]}], "}"}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"3450", "+", 
          RowBox[{"0.27", 
           RowBox[{"(", 
            RowBox[{"x", "-", "15000"}], ")"}]}]}], ",", 
         RowBox[{"15000", "<", " ", "x", "\[LessEqual]", " ", "28000"}]}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"6960", "+", 
          RowBox[{"0.38", 
           RowBox[{"(", 
            RowBox[{"x", "-", "28000"}], ")"}]}]}], ",", 
         RowBox[{"28000", "<", " ", "x", "\[LessEqual]", " ", "55000"}]}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"17220", "+", 
          RowBox[{"0.41", 
           RowBox[{"(", 
            RowBox[{"x", "-", "55000"}], ")"}]}]}], ",", 
         RowBox[{"55000", "<", " ", "x", "\[LessEqual]", " ", "75000"}]}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"25420", "+", 
          RowBox[{"0.43", 
           RowBox[{"(", 
            RowBox[{"x", "-", "75000"}], ")"}]}]}], ",", 
         RowBox[{"x", ">", "75000"}]}], "}"}]}], "\[IndentingNewLine]", "}"}],
      "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Plot", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", "x", "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"x", ">", "0"}], ",", 
           RowBox[{"0.23", "x"}], ",", "Null"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"x", ">", "15000"}], ",", 
           RowBox[{"3450", "+", 
            RowBox[{"0.27", 
             RowBox[{"(", 
              RowBox[{"x", "-", "15000"}], ")"}]}]}], ",", "Null"}], "]"}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"x", ">", "28000"}], ",", 
           RowBox[{"6960", "+", 
            RowBox[{"0.38", 
             RowBox[{"(", 
              RowBox[{"x", "-", "28000"}], ")"}]}]}], ",", "Null"}], "]"}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"x", ">", "55000"}], ",", 
           RowBox[{"17220", "+", 
            RowBox[{"0.41", 
             RowBox[{"(", 
              RowBox[{"x", "-", "55000"}], ")"}]}]}], ",", "Null"}], "]"}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"h", "[", "r", "]"}], "/", "r"}], "*", "x"}]}], 
        "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "100000"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"AxesOrigin", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"PlotStyle", "\[Rule]", " ", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"{", 
           RowBox[{"Black", ",", "Dotted"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Black", ",", "Dotted"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Black", ",", "Dotted"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Black", ",", "Dotted"}], "}"}], ",", 
          RowBox[{"{", "Gray", "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Reddito imponibile\>\"", ",", "\"\<Imposta sul reddito\>\""}], 
         "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"PointSize", "[", "Medium", "]"}], ",", "Black", ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{"r", ",", 
             RowBox[{"h", "[", "r", "]"}]}], "}"}], "]"}]}], "}"}]}]}], "]"}],
      ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"r", ",", "20000"}], "}"}], ",", "1", ",", "100000", ",", "1",
        ",", 
       RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
    "\[IndentingNewLine]", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.779576425287717*^9, 3.779576516638844*^9}, {
  3.779576972151662*^9, 3.779577006374216*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"4834f34f-8203-4ca9-aabd-fc40c25d5cfc"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 20000, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`r$$], 20000}, 1, 100000, 1}}, Typeset`size$$ = {
    720., {232., 244.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`r$144959$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`r$$ = 20000}, 
      "ControllerVariables" :> {
        Hold[$CellContext`r$$, $CellContext`r$144959$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{
         $CellContext`h[$CellContext`x], 
         If[$CellContext`x > 0, 0.23 $CellContext`x, Null], 
         If[$CellContext`x > 15000, 3450 + 0.27 ($CellContext`x - 15000), 
          Null], 
         If[$CellContext`x > 28000, 6960 + 0.38 ($CellContext`x - 28000), 
          Null], 
         If[$CellContext`x > 55000, 17220 + 0.41 ($CellContext`x - 55000), 
          Null], ($CellContext`h[$CellContext`r$$]/$CellContext`r$$) \
$CellContext`x}, {$CellContext`x, 0, 100000}, AxesOrigin -> {0, 0}, 
        PlotStyle -> {
         Black, {Black, Dotted}, {Black, Dotted}, {Black, Dotted}, {
          Black, Dotted}, {Gray}}, 
        AxesLabel -> {"Reddito imponibile", "Imposta sul reddito"}, 
        AspectRatio -> 1, Epilog -> {
          PointSize[Medium], Black, 
          Point[{$CellContext`r$$, 
            $CellContext`h[$CellContext`r$$]}]}], 
      "Specifications" :> {{{$CellContext`r$$, 20000}, 1, 100000, 1, 
         Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{806., {312., 324.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.779576465080221*^9, {3.77957653275305*^9, 3.779576555380209*^9}, 
   3.779576640827464*^9, 3.779576978466649*^9, 3.779577009873418*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"d5397bb9-fb44-4329-940c-3a31ae01378e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Retta", " ", "passante", " ", "per", " ", "due", " ", "punti"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"q", "+", 
         RowBox[{"m", "*", "x"}]}], ",", 
        RowBox[{"y1", "+", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"y2", "-", "y1"}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{"x2", "-", "x1"}], ")"}]}], 
          RowBox[{"(", 
           RowBox[{"x", "-", "x1"}], ")"}]}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y"}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Point", "[", 
            RowBox[{"{", 
             RowBox[{"x1", ",", "y1"}], "}"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Red", ",", 
           RowBox[{"Point", "[", 
            RowBox[{"{", 
             RowBox[{"x2", ",", "y2"}], "}"}], "]"}]}], "}"}]}], "}"}]}]}], 
     "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"m", ",", "0"}], "}"}], ",", 
      RowBox[{"-", "10"}], ",", "10", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"q", ",", "0"}], "}"}], ",", 
      RowBox[{"-", "5"}], ",", "5", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x1", ",", "1"}], "}"}], ",", 
      RowBox[{"-", "10"}], ",", "10", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"y1", ",", "1"}], "}"}], ",", 
      RowBox[{"-", "10"}], ",", "10", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x2", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", 
      RowBox[{"-", "10"}], ",", "10", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"y2", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", 
      RowBox[{"-", "10"}], ",", "10", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.747570230152009*^9, 3.747570248956667*^9}, {
  3.74757028860857*^9, 3.7475706255783787`*^9}, {3.747570751346078*^9, 
  3.747570826866268*^9}, {3.74768815842937*^9, 3.747688172899476*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"1b03de10-05a6-47a4-ba8d-13f61fbf2600"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`m$$ = 0, $CellContext`q$$ = 
    0, $CellContext`x1$$ = 1, $CellContext`x2$$ = -1, $CellContext`y1$$ = 
    1, $CellContext`y2$$ = -1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`m$$], 0}, -10, 10}, {{
       Hold[$CellContext`q$$], 0}, -5, 5}, {{
       Hold[$CellContext`x1$$], 1}, -10, 10}, {{
       Hold[$CellContext`y1$$], 1}, -10, 10}, {{
       Hold[$CellContext`x2$$], -1}, -10, 10}, {{
       Hold[$CellContext`y2$$], -1}, -10, 10}}, Typeset`size$$ = {
    720., {355., 366.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`m$100906$$ = 
    0, $CellContext`q$100907$$ = 0, $CellContext`x1$100908$$ = 
    0, $CellContext`y1$100909$$ = 0, $CellContext`x2$100910$$ = 
    0, $CellContext`y2$100911$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`m$$ = 0, $CellContext`q$$ = 
        0, $CellContext`x1$$ = 1, $CellContext`x2$$ = -1, $CellContext`y1$$ = 
        1, $CellContext`y2$$ = -1}, "ControllerVariables" :> {
        Hold[$CellContext`m$$, $CellContext`m$100906$$, 0], 
        Hold[$CellContext`q$$, $CellContext`q$100907$$, 0], 
        Hold[$CellContext`x1$$, $CellContext`x1$100908$$, 0], 
        Hold[$CellContext`y1$$, $CellContext`y1$100909$$, 0], 
        Hold[$CellContext`x2$$, $CellContext`x2$100910$$, 0], 
        Hold[$CellContext`y2$$, $CellContext`y2$100911$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{$CellContext`q$$ + $CellContext`m$$ $CellContext`x, \
$CellContext`y1$$ + (($CellContext`y2$$ - \
$CellContext`y1$$)/($CellContext`x2$$ - $CellContext`x1$$)) ($CellContext`x - \
$CellContext`x1$$)}, {$CellContext`x, -10, 10}, 
        AxesLabel -> {$CellContext`x, $CellContext`y}, AxesOrigin -> {0, 0}, 
        PlotRange -> {{-10, 10}, {-10, 10}}, AspectRatio -> 1, 
        Epilog -> {{Black, 
           Point[{$CellContext`x1$$, $CellContext`y1$$}]}, {Red, 
           Point[{$CellContext`x2$$, $CellContext`y2$$}]}}], 
      "Specifications" :> {{{$CellContext`m$$, 0}, -10, 10, Appearance -> 
         "Labeled"}, {{$CellContext`q$$, 0}, -5, 5, Appearance -> 
         "Labeled"}, {{$CellContext`x1$$, 1}, -10, 10, Appearance -> 
         "Labeled"}, {{$CellContext`y1$$, 1}, -10, 10, Appearance -> 
         "Labeled"}, {{$CellContext`x2$$, -1}, -10, 10, Appearance -> 
         "Labeled"}, {{$CellContext`y2$$, -1}, -10, 10, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{806., {517., 529.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.747570928100376*^9, 3.747570934938463*^9}, 
   3.747617280870727*^9, 3.747688173792721*^9, 3.747688787241376*^9, 
   3.747688904169036*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"a8b4f25c-4888-4fb9-a177-acbc2ebb17b2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Disequazione", " ", "in", " ", "due", " ", "incognite"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"RegionPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"a", "*", "x"}], " ", "+", " ", 
         RowBox[{"b", "*", "y"}], " ", "+", " ", "c"}], " ", 
        "\[GreaterEqual]", " ", "0"}], " ", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", 
        RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y"}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "1"}], "}"}], ",", 
      RowBox[{"-", "10"}], ",", "10", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", 
      RowBox[{"-", "10"}], ",", "10", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "0"}], "}"}], ",", 
      RowBox[{"-", "10"}], ",", "10", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.747572801684895*^9, 3.747572899921618*^9}, {
  3.7475729753597593`*^9, 3.7475729966243773`*^9}, {3.747573034861747*^9, 
  3.747573058971653*^9}, {3.747573097589933*^9, 3.747573111086268*^9}, {
  3.74761664429312*^9, 3.747616644367812*^9}, {3.7476881355004883`*^9, 
  3.747688140864876*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"29673e50-df78-4ca1-b99f-cc4153ac32be"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 
    1, $CellContext`b$$ = -1, $CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1}, -10, 10}, {{
       Hold[$CellContext`b$$], -1}, -10, 10}, {{
       Hold[$CellContext`c$$], 0}, -10, 10}}, Typeset`size$$ = {
    720., {347., 359.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$101223$$ = 
    0, $CellContext`b$101224$$ = 0, $CellContext`c$101225$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 
        1, $CellContext`b$$ = -1, $CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$101223$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$101224$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$101225$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      RegionPlot[{$CellContext`a$$ $CellContext`x + $CellContext`b$$ \
$CellContext`y + $CellContext`c$$ >= 0}, {$CellContext`x, -10, 
         10}, {$CellContext`y, -10, 10}, 
        AxesLabel -> {$CellContext`x, $CellContext`y}, AxesOrigin -> {0, 0}, 
        PlotRange -> {{-10, 10}, {-10, 10}}], 
      "Specifications" :> {{{$CellContext`a$$, 1}, -10, 10, Appearance -> 
         "Labeled"}, {{$CellContext`b$$, -1}, -10, 10, Appearance -> 
         "Labeled"}, {{$CellContext`c$$, 0}, -10, 10, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{806., {460., 472.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.747573062171186*^9, 3.747617275583558*^9, 3.7476887922040977`*^9, {
   3.747688884213378*^9, 3.747688908169057*^9}},
 CellLabel->"Out[59]=",ExpressionUUID->"fd8a8025-4bcb-4b29-9764-4d5199156e30"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Funzioni", " ", "quadratiche"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "*", 
        RowBox[{"x", "^", "2"}]}], "+", 
       RowBox[{"b", "*", "x"}], "+", "c"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y"}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "0"}], "}"}], ",", 
      RowBox[{"-", "5"}], ",", "5", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "0"}], "}"}], ",", 
      RowBox[{"-", "5"}], ",", "5", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "0"}], "}"}], ",", 
      RowBox[{"-", "5"}], ",", "5", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.747574248809177*^9, 3.747574287587021*^9}, 
   3.7475743473621187`*^9, {3.7476169275358257`*^9, 3.7476169332641153`*^9}, {
   3.7476881222618628`*^9, 3.747688128629369*^9}, 3.747688861273404*^9},
 CellLabel->"In[60]:=",ExpressionUUID->"40ea0fdf-5e57-4254-bb9b-76b287b2e6fb"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 0, $CellContext`b$$ = 
    0, $CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 0}, -5, 5}, {{
       Hold[$CellContext`b$$], 0}, -5, 5}, {{
       Hold[$CellContext`c$$], 0}, -5, 5}}, Typeset`size$$ = {
    720., {355., 366.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$101491$$ = 
    0, $CellContext`b$101492$$ = 0, $CellContext`c$101493$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 0, $CellContext`b$$ = 
        0, $CellContext`c$$ = 0}, "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$101491$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$101492$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$101493$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[$CellContext`a$$ $CellContext`x^2 + $CellContext`b$$ \
$CellContext`x + $CellContext`c$$, {$CellContext`x, -10, 10}, 
        AxesLabel -> {$CellContext`x, $CellContext`y}, AxesOrigin -> {0, 0}, 
        PlotRange -> {{-10, 10}, {-10, 10}}, AspectRatio -> 1], 
      "Specifications" :> {{{$CellContext`a$$, 0}, -5, 5, Appearance -> 
         "Labeled"}, {{$CellContext`b$$, 0}, -5, 5, Appearance -> 
         "Labeled"}, {{$CellContext`c$$, 0}, -5, 5, Appearance -> "Labeled"}},
       "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{806., {467., 479.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.74757429240396*^9, 3.747574341787216*^9, {3.747574451269265*^9, 
   3.74757445688804*^9}, 3.747617271226923*^9, 3.747687463874097*^9, 
   3.747688129216007*^9, 3.7476887976952*^9, 3.747688880071825*^9, 
   3.747688914058673*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"fc2c6f27-c2a9-4deb-9f2e-2629b72db7d0"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.747617229316135*^9, 
  3.747617230569099*^9}},ExpressionUUID->"75a4b210-7347-41b4-b530-\
378f7a6d2446"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Disequazioni", " ", "quadratiche"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"a", "*", 
          RowBox[{"x", "^", "2"}]}], "+", 
         RowBox[{"b", "*", "x"}], "+", "c"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"x", ",", "y"}], "}"}]}], ",", 
        RowBox[{"AxesOrigin", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}]}], "]"}], ",", 
      RowBox[{"If", "[", 
       RowBox[{"v", ",", 
        RowBox[{"NumberLinePlot", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"a", "*", 
             RowBox[{"x", "^", "2"}]}], "+", 
            RowBox[{"b", "*", "x"}], "+", "c"}], ">", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", " ", 
          RowBox[{"Spacings", "\[Rule]", "0"}]}], "]"}], ",", 
        RowBox[{"NumberLinePlot", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"a", "*", 
             RowBox[{"x", "^", "2"}]}], "+", 
            RowBox[{"b", "*", "x"}], "+", "c"}], "<", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", " ", 
          RowBox[{"Spacings", "\[Rule]", "0"}]}], "]"}]}], "]"}]}], "]"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "0"}], "}"}], ",", 
      RowBox[{"-", "5"}], ",", "5", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "0"}], "}"}], ",", 
      RowBox[{"-", "5"}], ",", "5", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "0"}], "}"}], ",", 
      RowBox[{"-", "5"}], ",", "5", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"v", ",", "False", ",", "\"\<>\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.747687850135253*^9, 3.747687986620578*^9}, {
  3.7476880845914173`*^9, 3.7476880974448853`*^9}, {3.747688353870963*^9, 
  3.747688506154249*^9}, {3.747688611077876*^9, 3.747688667915082*^9}, {
  3.747688713259302*^9, 3.747688714142694*^9}, {3.74768896533418*^9, 
  3.7476889812342367`*^9}},ExpressionUUID->"7a9090ee-04fb-462a-99d3-\
01159a8bd611"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 0, $CellContext`b$$ = 
    0, $CellContext`c$$ = 0, $CellContext`v$$ = False, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 0}, -5, 5}, {{
       Hold[$CellContext`b$$], 0}, -5, 5}, {{
       Hold[$CellContext`c$$], 0}, -5, 5}, {{
       Hold[$CellContext`v$$], False, ">"}, {True, False}}}, 
    Typeset`size$$ = {720., {227., 238.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`a$107242$$ = 0, $CellContext`b$107243$$ = 
    0, $CellContext`c$107244$$ = 0, $CellContext`v$107245$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 0, $CellContext`b$$ = 
        0, $CellContext`c$$ = 0, $CellContext`v$$ = False}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$107242$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$107243$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$107244$$, 0], 
        Hold[$CellContext`v$$, $CellContext`v$107245$$, False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Plot[$CellContext`a$$ $CellContext`x^2 + $CellContext`b$$ \
$CellContext`x + $CellContext`c$$, {$CellContext`x, -5, 5}, 
         AxesLabel -> {$CellContext`x, $CellContext`y}, AxesOrigin -> {0, 0}, 
         PlotRange -> {{-5, 5}, {-5, 5}}], 
        If[$CellContext`v$$, 
         NumberLinePlot[$CellContext`a$$ $CellContext`x^2 + $CellContext`b$$ \
$CellContext`x + $CellContext`c$$ > 0, {$CellContext`x, -5, 5}, Spacings -> 
          0], 
         NumberLinePlot[$CellContext`a$$ $CellContext`x^2 + $CellContext`b$$ \
$CellContext`x + $CellContext`c$$ < 0, {$CellContext`x, -5, 5}, Spacings -> 
          0]]], "Specifications" :> {{{$CellContext`a$$, 0}, -5, 5, 
         Appearance -> "Labeled"}, {{$CellContext`b$$, 0}, -5, 5, Appearance -> 
         "Labeled"}, {{$CellContext`c$$, 0}, -5, 5, Appearance -> 
         "Labeled"}, {{$CellContext`v$$, False, ">"}, {True, False}}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{806., {357., 369.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.747687929640861*^9, {3.74768797143009*^9, 3.747687987771398*^9}, 
   3.747688098210559*^9, {3.7476883730627747`*^9, 3.7476884165263977`*^9}, 
   3.747688453263502*^9, 3.747688506890263*^9, {3.747688635267991*^9, 
   3.747688733683382*^9}, 3.747688805989114*^9, 3.7476889231594057`*^9, 
   3.7476889593086233`*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"88fb2d6e-8fc3-4582-90e4-5dba042fa29f"]
}, Open  ]]
},
WindowSize->{3200, 1689},
WindowMargins->{{0, Automatic}, {0, Automatic}},
Magnification->2.,
FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1918, 48, 236, "Input",ExpressionUUID->"b9cf1984-a26b-4ce8-8732-68be53a2925e"],
Cell[2501, 72, 2624, 49, 981, "Output",ExpressionUUID->"e3368c2b-4a59-4c7d-855f-d2b8c351fb0b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5162, 126, 2475, 65, 424, "Input",ExpressionUUID->"a174d6ad-32b2-4308-96da-7a67185bd53f"],
Cell[7640, 193, 2935, 54, 1016, "Output",ExpressionUUID->"74e9dfe7-e710-4337-b439-84e7579b98c0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10612, 252, 5073, 131, 1223, "Input",ExpressionUUID->"4834f34f-8203-4ca9-aabd-fc40c25d5cfc"],
Cell[15688, 385, 2665, 52, 703, "Output",ExpressionUUID->"d5397bb9-fb44-4329-940c-3a31ae01378e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18390, 442, 3477, 98, 252, "Input",ExpressionUUID->"1b03de10-05a6-47a4-ba8d-13f61fbf2600"],
Cell[21870, 542, 3638, 66, 1113, "Output",ExpressionUUID->"a8b4f25c-4888-4fb9-a177-acbc2ebb17b2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25545, 613, 2277, 61, 205, "Input",ExpressionUUID->"29673e50-df78-4ca1-b99f-cc4153ac32be"],
Cell[27825, 676, 2584, 50, 999, "Output",ExpressionUUID->"fd8a8025-4bcb-4b29-9764-4d5199156e30"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30446, 731, 1980, 53, 205, "Input",ExpressionUUID->"40ea0fdf-5e57-4254-bb9b-76b287b2e6fb"],
Cell[32429, 786, 2640, 50, 1013, "Output",ExpressionUUID->"fc2c6f27-c2a9-4deb-9f2e-2629b72db7d0"]
}, Open  ]],
Cell[35084, 839, 152, 3, 63, "Input",ExpressionUUID->"75a4b210-7347-41b4-b530-378f7a6d2446"],
Cell[CellGroupData[{
Cell[35261, 846, 3177, 87, 205, "Input",ExpressionUUID->"7a9090ee-04fb-462a-99d3-01159a8bd611"],
Cell[38441, 935, 3361, 62, 793, "Output",ExpressionUUID->"88fb2d6e-8fc3-4582-90e4-5dba042fa29f"]
}, Open  ]]
}
]
*)