Essays.club - TCC, Modelos de monografias, Trabalhos de universidades, Ensaios, Bibliografias
Pesquisar

Calculo Numerico software Mathematica

Por:   •  30/9/2018  •  1.116 Palavras (5 Páginas)  •  389 Visualizações

Página 1 de 5

...

(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-\

...

Baixar como  txt (25.7 Kb)   pdf (97.5 Kb)   docx (41.5 Kb)  
Continuar por mais 4 páginas »
Disponível apenas no Essays.club