Calculo Numerico software Mathematica

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

(*** Wolfram Notebook File ***)

(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)

(* Internal cache information:

NotebookFileLineBreakTest

NotebookFileLineBreakTest

NotebookDataPosition[       158,          7]

NotebookDataLength[     28545,        788]

NotebookOptionsPosition[     24700,        688]

NotebookOutlinePosition[     25044,        703]

CellTagsIndexPosition[     25001,        700]

WindowFrame->Normal*)

(* Beginning of Notebook Content *)

Notebook[{

Cell[TextData[StyleBox["Item a)", "Title"]], "Text",

 CellChangeTimes->{{3.7052548995672145`*^9,

  3.7052549074346647`*^9}},ExpressionUUID->"25bb8e2d-db46-4071-8f3f-\

55ea4cb82eb8"],

Cell[CellGroupData[{

Cell[BoxData[{

 RowBox[{"dados", "=",

  RowBox[{"{",

   RowBox[{

    RowBox[{"{",

     RowBox[{"88.9", ",", "14.6"}], "}"}], ",",

    RowBox[{"{",

     RowBox[{"104.1", ",", "15.3"}], "}"}], ",",

    RowBox[{"{",

     RowBox[{"94", ",", "16.1"}], "}"}], ",",

    RowBox[{"{",

     RowBox[{"99.1", ",", "16.6"}], "}"}], ",",

    RowBox[{"{",

     RowBox[{"108.5", ",", "16.7"}], "}"}], ",",

    RowBox[{"{",

     RowBox[{"116.8", ",", "18.1"}], "}"}], ",",

    RowBox[{"{",

     RowBox[{"127", ",", "19.5"}], "}"}], ",",

    RowBox[{"{",

     RowBox[{"139.7", ",", "23.2"}], "}"}]}], "}"}]}], "\[IndentingNewLine]",

 RowBox[{"ListPlot", "[", "dados", "]"}]}], "Input",

 CellChangeTimes->{{3.705254852840542*^9, 3.7052548779789796`*^9}, {

  3.705254915866147*^9, 3.7052549164231787`*^9}, {3.7052550975825405`*^9,

  3.705255154656805*^9}},ExpressionUUID->"3973afb9-be41-4c86-8baf-\

8c7175d21bbe"],

Cell[BoxData[

 RowBox[{"{",

  RowBox[{

   RowBox[{"{",

    RowBox[{"88.9`", ",", "14.6`"}], "}"}], ",",

   RowBox[{"{",

    RowBox[{"104.1`", ",", "15.3`"}], "}"}], ",",

   RowBox[{"{",

    RowBox[{"94", ",", "16.1`"}], "}"}], ",",

   RowBox[{"{",

    RowBox[{"99.1`", ",", "16.6`"}], "}"}], ",",

   RowBox[{"{",

    RowBox[{"108.5`", ",", "16.7`"}], "}"}], ",",

   RowBox[{"{",

    RowBox[{"116.8`", ",", "18.1`"}], "}"}], ",",

   RowBox[{"{",

    RowBox[{"127", ",", "19.5`"}], "}"}], ",",

   RowBox[{"{",

    RowBox[{"139.7`", ",", "23.2`"}], "}"}]}], "}"}]], "Output",

 CellChangeTimes->{3.705254162997085*^9, 3.7052548573598003`*^9,

  3.705254918598303*^9, 3.7052551577969847`*^9,

  3.705258506006072*^9},ExpressionUUID->"43a47f7d-f5bd-4c23-8e3c-\

eeea09310df8"],

Cell[BoxData[

 GraphicsBox[{{}, {{{}, {

      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[

       0.012833333333333334`], AbsoluteThickness[1.6],

       PointBox[{{88.9, 14.6}, {104.1, 15.3}, {94., 16.1}, {99.1, 16.6}, {

        108.5, 16.7}, {116.8, 18.1}, {127., 19.5}, {139.7,

        23.2}}]}}, {}}}, {}, {}, {{}, {}}, {{}, {}}},

  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],

  Axes->{True, True},

  AxesLabel->{None, None},

  AxesOrigin->{88.10625000000002, 14.17},

  DisplayFunction->Identity,

  Frame->{{False, False}, {False, False}},

  FrameLabel->{{None, None}, {None, None}},

  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},

  GridLines->{None, None},

  GridLinesStyle->Directive[

    GrayLevel[0.5, 0.4]],

  ImagePadding->All,

  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({

        (Identity[#]& )[

         Part[#, 1]],

        (Identity[#]& )[

         Part[#, 2]]}& ), "CopiedValueFunction" -> ({

        (Identity[#]& )[

         Part[#, 1]],

        (Identity[#]& )[

         Part[#, 2]]}& )}},

  PlotRange->{{88.9, 139.7}, {14.6, 23.2}},

  PlotRangeClipping->True,

  PlotRangePadding->{{

     Scaled[0.02],

     Scaled[0.02]}, {

     Scaled[0.05],

     Scaled[0.05]}},

  Ticks->{Automatic, Automatic}]], "Output",

 CellChangeTimes->{3.705254162997085*^9, 3.7052548573598003`*^9,

  3.705254918598303*^9, 3.7052551577969847`*^9,

  3.7052585060216722`*^9},ExpressionUUID->"ef244c71-dd8b-4f7b-a8fc-\

33057fd947b5"]

}, Open  ]],

Cell[TextData[StyleBox["Item b)", "Title"]], "Text",

 CellChangeTimes->{{3.7052549226435347`*^9,

  3.7052549286258764`*^9}},ExpressionUUID->"b54c48c7-a24d-4f2b-84c2-\

0fa9ab5d5f7d"],

Cell[CellGroupData[{

Cell[BoxData[

 RowBox[{

  RowBox[{"f", "[", "x_", "]"}], "=",

  RowBox[{

   RowBox[{"0.1595", "x"}], "-", "0.0266"}]}]], "Input",

 CellChangeTimes->{{3.7052552924426856`*^9, 3.7052553277747064`*^9}, {

  3.705255372454262*^9, 3.70525543029257*^9}, {3.705255464523528*^9,