Calculo Numerico software Mathematica método quadrados minimos

...

"}"}], ",",

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,

3.7052554670646734`*^9}},ExpressionUUID->"2bf75718-546f-4494-bd58-\

246c4dc11f2c"],

Cell[BoxData[

RowBox[{

RowBox[{"-", "0.0266`"}], "+",

RowBox[{"0.1595`", " ", "x"}]}]], "Output",

CellChangeTimes->{

3.7052554695148134`*^9},ExpressionUUID->"e6d44c3a-f524-492d-9e9d-\

22deca50a5b4"]

}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[

RowBox[{"Fit", "[",

RowBox[{"dados", ",",

RowBox[{"{",

RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]], "Input",

CellChangeTimes->{{3.705254214803048*^9,

3.7052542328020773`*^9}},ExpressionUUID->"4488a4e5-9d62-444c-8f40-\