Calculo Numerico software Mathematica método quadrados minimos
Por: YdecRupolo • 30/9/2018 • 4.252 Palavras (18 Páginas) • 375 Visualizações
...
"}"}], ",",
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-\
...