(* 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]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "0"}], "}"}], ",", RowBox[{"-", "5"}], ",", "5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}]}]], "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"}], ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Legended", "[", RowBox[{ RowBox[{ RowBox[{"cv", "*", "q"}], "+", "cf"}], ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Legended", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"p", "-", "cv"}], ")"}], "*", "q"}], "-", "cf"}], ",", "\"\\""}], "]"}]}], "\[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]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"cv", ",", "0"}], "}"}], ",", "0", ",", "5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"cf", ",", "0"}], "}"}], ",", "0", ",", "5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}]}]], "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[{ "\"\\"", ",", "\"\\""}], "}"}]}], ",", "\[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]", "\"\\""}]}], "}"}]}], "\[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]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "0"}], "}"}], ",", RowBox[{"-", "5"}], ",", "5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "1"}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"y1", ",", "1"}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"y2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}]}]], "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]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c", ",", "0"}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}]}]], "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]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "0"}], "}"}], ",", RowBox[{"-", "5"}], ",", "5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c", ",", "0"}], "}"}], ",", RowBox[{"-", "5"}], ",", "5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}]}]], "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]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "0"}], "}"}], ",", RowBox[{"-", "5"}], ",", "5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c", ",", "0"}], "}"}], ",", RowBox[{"-", "5"}], ",", "5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", 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 ]] } ] *)