Calculo Numerico software Mathematica
Por: SonSolimar • 30/9/2018 • 1.116 Palavras (5 Páginas) • 399 Visualizações
...
(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-\
c7ca2c8a4f04"],
Cell[BoxData[
RowBox[{"0.8427826132028832`", "\[VeryThinSpace]", "+",
RowBox[{"0.15187078817261918`", " ", "x"}]}]], "Output",
CellChangeTimes->{3.7052542389204273`*^9,
3.705255173644891*^9},ExpressionUUID->"2da01c06-8993-4931-a627-\
be5da4a45dd0"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
RowBox[{"-", "0.02660"}], "+",
RowBox[{"0.1595", "x"}]}], ",",
RowBox[{"{",
RowBox[{"x", ",", "80", ",", "145"}], "}"}]}], "]"}], ",",
RowBox[{"ListPlot", "[", "dados", "]"}]}], "]"}]], "Input",
CellChangeTimes->{{3.7052542885402656`*^9, 3.7052543530389547`*^9}, {
3.705254383879719*^9, 3.7052543985205564`*^9}, {3.7052544518166046`*^9,
3.7052545080768223`*^9}, {3.705254543401843*^9, 3.705254588558426*^9}, {
3.7052546202762403`*^9, 3.7052547048340764`*^9}, {3.705254741755188*^9,
3.7052548062088747`*^9}, {3.7052551891427774`*^9, 3.7052552168593626`*^9},
3.705255350890029*^9, {3.7052554776482787`*^9, 3.7052554816995106`*^9}, {
3.7052582327871923`*^9, 3.705258466740803*^9},
3.7052585799658017`*^9},ExpressionUUID->"f352f095-1c0d-40be-8047-\
...