Calculo Numerico software Mathematica método quadrados minimos
Por: Rodrigo Braga • 1/6/2017 • Trabalho acadêmico • 4.242 Palavras (17 Páginas) • 579 Visualizações
(* 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},
...