(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      2237,         66]
NotebookOptionsPosition[      1923,         50]
NotebookOutlinePosition[      2270,         65]
CellTagsIndexPosition[      2227,         62]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Ajuste de par\[AHat]metros de um modelo ", "Title",
 CellChangeTimes->{{3.669054631201537*^9, 3.669054667884775*^9}}],

Cell["\<\
Considere a fun\[CCedilla]\[ATilde]o y = a Log[ \[Lambda] t + b ] + c/(t+0,5) \
e o conjunto de dados do arquivo \[OpenCurlyDoubleQuote]dadosExp1.dat\
\[CloseCurlyDoubleQuote], (na mesma pasta que este notebook) na forma { (t,y,\
\[Sigma]) } em que \[Sigma]  \[EAcute] o desvio-padr\[ATilde]o de y e t est\
\[AAcute] em segundos, com y adimensional.

a)\tModelo linear.
Sabendo que \[Lambda] = 0,2/s e b = 0,5, ajuste os par\[AHat]metros a e c, \
determine seus desvios-padr\[OTilde]es, calcule \[Chi]2 e fa\[CCedilla]a os \
gr\[AAcute]ficos necess\[AAcute]rios para avaliar a qualidade do ajuste. \
Analise criticamente os valores dos par\[AHat]metros obtidos.

b)\tModelo n\[ATilde]o-linear
Considere todos os par\[AHat]metros (a, \[Lambda], b e c) desconhecidos. \
Nessa situa\[CCedilla]\[ATilde]o, ajuste todos esses par\[AHat]metros, \
determine seus desvios-padr\[OTilde]es, calcule  \[Chi]2  e fa\[CCedilla]a os \
gr\[AAcute]ficos necess\[AAcute]rios para avaliar a qualidade do ajuste. \
Analise criticamente os valores dos par\[AHat]metros obtidos.
\
\>", "Text",
 CellChangeTimes->{{3.669060702832492*^9, 3.6690608106043215`*^9}, {
  3.669060846946409*^9, 3.6690608909048295`*^9}}]
}, Open  ]]
},
WindowSize->{755, 601},
WindowMargins->{{296, Automatic}, {24, Automatic}},
FrontEndVersion->"10.4 for Microsoft Windows (64-bit) (February 25, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 123, 1, 144, "Title"],
Cell[706, 25, 1201, 22, 277, "Text"]
}, Open  ]]
}
]
*)