(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     18299,        496]
NotebookOptionsPosition[     17074,        449]
NotebookOutlinePosition[     17413,        464]
CellTagsIndexPosition[     17370,        461]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["QUIZ 3 ", "Section",
 CellChangeTimes->{
  3.448022271871222*^9, {3.463229520668041*^9, 3.463229523351799*^9}, 
   3.4638488703072443`*^9, 3.464482093640944*^9, 3.465043700441231*^9}],

Cell[CellGroupData[{

Cell["NAME :", "Subsubsection",
 CellChangeTimes->{{3.4632305368071833`*^9, 3.463230541003278*^9}, 
   3.4638488589540462`*^9, 3.465043707213209*^9}],

Cell[TextData[{
 "1) Produce a table of the 1st, 2nd, 3rd,...,10th derivatives of",
 StyleBox[" ", "Input"],
 StyleBox[Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "x"], 
    RowBox[{"sin", "(", "x", ")"}]}], TraditionalForm]], "Input"], "Input"],
 " as below."
}], "Text",
 CellChangeTimes->{{3.465043720030963*^9, 3.46504375234098*^9}, {
  3.465043875384076*^9, 3.465043918854806*^9}, {3.4650447394654417`*^9, 
  3.4650447502415237`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"E", "^", "x"}], " ", 
       RowBox[{"Sin", "[", "x", "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "n"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "10"}], "}"}]}], "]"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.4650437565216017`*^9, 3.465043850095581*^9}, {
  3.4650439294113626`*^9, 3.46504393275471*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["\[ExponentialE]", "x"], " ", 
        RowBox[{"Cos", "[", "x", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", "x"], " ", 
        RowBox[{"Sin", "[", "x", "]"}]}]}]},
     {
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", "x"], " ", 
       RowBox[{"Cos", "[", "x", "]"}]}]},
     {
      RowBox[{
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", "x"], " ", 
        RowBox[{"Cos", "[", "x", "]"}]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", "x"], " ", 
        RowBox[{"Sin", "[", "x", "]"}]}]}]},
     {
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       SuperscriptBox["\[ExponentialE]", "x"], " ", 
       RowBox[{"Sin", "[", "x", "]"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        SuperscriptBox["\[ExponentialE]", "x"], " ", 
        RowBox[{"Cos", "[", "x", "]"}]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", "x"], " ", 
        RowBox[{"Sin", "[", "x", "]"}]}]}]},
     {
      RowBox[{
       RowBox[{"-", "8"}], " ", 
       SuperscriptBox["\[ExponentialE]", "x"], " ", 
       RowBox[{"Cos", "[", "x", "]"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", "8"}], " ", 
        SuperscriptBox["\[ExponentialE]", "x"], " ", 
        RowBox[{"Cos", "[", "x", "]"}]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[ExponentialE]", "x"], " ", 
        RowBox[{"Sin", "[", "x", "]"}]}]}]},
     {
      RowBox[{"16", " ", 
       SuperscriptBox["\[ExponentialE]", "x"], " ", 
       RowBox[{"Sin", "[", "x", "]"}]}]},
     {
      RowBox[{
       RowBox[{"16", " ", 
        SuperscriptBox["\[ExponentialE]", "x"], " ", 
        RowBox[{"Cos", "[", "x", "]"}]}], "+", 
       RowBox[{"16", " ", 
        SuperscriptBox["\[ExponentialE]", "x"], " ", 
        RowBox[{"Sin", "[", "x", "]"}]}]}]},
     {
      RowBox[{"32", " ", 
       SuperscriptBox["\[ExponentialE]", "x"], " ", 
       RowBox[{"Cos", "[", "x", "]"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.46504379915582*^9, 3.4650438103293133`*^9}, {
   3.465043842283051*^9, 3.4650438539736023`*^9}, 3.465043938392432*^9}]
}, Open  ]],

Cell[TextData[{
 "2) Find all critical numbers of the function",
 StyleBox[" ", "Input"],
 StyleBox[Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], "=", 
    RowBox[{
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", "x"], "(", 
       RowBox[{"x", "-", "3"}], ")"}], "2"], "x"}]}], TraditionalForm]], 
  "Input"], "Input"],
 ". Okay to leave the result as a list of replacement rules."
}], "Text",
 CellChangeTimes->{{3.465043957228676*^9, 3.465044058833343*^9}, {
  3.4650443684509077`*^9, 3.465044405756486*^9}, {3.465044724465356*^9, 
  3.4650447251532383`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"E", "^", "x"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "-", "3"}], ")"}], "^", "2"}], " ", "x"}], ",", "x"}], 
     "]"}], "\[Equal]", "0"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.465044062026*^9, 3.465044137532954*^9}, {
  3.465044411842596*^9, 3.4650444293819647`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", 
      SqrtBox["3"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     SqrtBox["3"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.465044096236474*^9, 3.465044138054295*^9}, {
  3.465044420048285*^9, 3.465044430027275*^9}}]
}, Open  ]],

Cell[TextData[{
 "3) Find an approximate solution of the equation ",
 StyleBox["sin(x)=ln(x)", "Input"],
 ". "
}], "Text",
 CellChangeTimes->{{3.448745563693801*^9, 3.4487455644600773`*^9}, {
   3.448745612829817*^9, 3.4487456974684668`*^9}, {3.448745748439397*^9, 
   3.448745766293188*^9}, {3.448746130989626*^9, 3.448746178379694*^9}, {
   3.4487462278897038`*^9, 3.44874622860463*^9}, {3.448746267366371*^9, 
   3.4487462716043777`*^9}, {3.4487469439148407`*^9, 3.448746948520596*^9}, 
   3.4487479062273808`*^9, {3.465044664562449*^9, 3.465044679576393*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Log", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.448745814347004*^9, 3.448745840185836*^9}, {
  3.448745897212825*^9, 3.448745910635913*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k8VXkUAHD7luxLimwRUmaQIjlPyZZosZfKkpRBUaHFUBiVPUUINY1i
pLIvk/IoJUKLROVFlmwX9d679z3LHH+9z/fz+/3uPfd3f/ec89R9QvYe4ePh
4RHj5eFZ+j3G+CXGwzMNzvyMbOfJMbDln9pyiW8apgZnHZdNj4GO9sgfQoLT
IJ/JcW+cHYPhwE9vxMWmoVngbvA6cgz82E/SleSmYag7Oo/NNw6HJf5aaaQz
DTo/onhPrBgHV3MlPf/d08COdDzI2DYOVllb7doKpkEpdV1H/fVxuCHPEVN1
mgHrE4doPLQJmFF9efr7zAwcrPMr1Hs3AVqtKhci0mbhTbxPs4b7JHSYjghf
s/gJ7qFv3c72TcIlE/oWNcZP2BcS2d9gNwWlpNRPo5Rf0KQlEZNfPgWPPUes
FbYwQX+f85Xs5QQEc3qzM7cy4eWFga8dEgToZb+ZWkFjAnUv7oSAFAF3PlXe
WLWDCQVPJuwDZQhId48dVnNiAm1nYJ+BIgGnXNXj1/ky4eeVu34ZagRs3rv/
Oe0qE9obP35vNSSgwa5je2AfE1p+i5KZcCYgtabzscZXJpD3x7yFXAnwWftW
tZfBhNbCFa2qbgQICX7g2g4zIbAl67uTBwGOz3rLtWeY8HS1reU/XgT0mwxr
DgixgKkUlL7GnwCeNfP8HoYsWOsb5XX6DAFv0xdOSm1kgaLXUGVoOAF3eXkY
LZtYsHOTonZIBAG2/Xz/mWxlQW14w64jZzGebJFTcrYsMJLYU2sdRYCatNz3
Di8WaNfs5H6JI8ByQa/Z+jILLiupcbwycH1551zHVRa0jtQcNLiO8QWc2eiR
jPMLDclFtOfbxsLAaywgeCte5WUSEFrofjn1FgsG6w4Mv83GeBzjHXsfs2Bi
1Wte+dsEiOR/6wnqxeutcsrjeUCAhPNf0uzPLAhJsrxeg5YTXW8f3c8CA43w
ZyGlBKiHRdSnf2cB796b5X0PCTCzkcyrnmLBFWMz8eIyAgIJc19efjZkq/Jd
Uqsh4A1kTWasY8POA+4Bp+gEOMs+Oiy9gQ2lovJNkk0EfBpueZf0GxuG+6I9
itHfk9i18RvZcFfQzfRLMwHcPtf4CGBDtOKNZtMWAnQi5FUP7GPDZ3FjoTev
CYh5lL5b8xwbRJalqPi+x/cXW9yUf4EN3uzdI0PoRDe6iXI0G6Ze7Zs4+oGA
rIUZZfk4NjAyJe8f6yag1GHPD6EUNjQqiw779hDQOyp5cewOG6aTvSKNPhNg
rJ5U/riVDZUt+35YDBLQ2VRG82tnQ1fiJ5kydKB/T7tCJxsyC1yc13zH8/qv
5ui5D2xwfKKpKjREgJRJnbI1gw3Pzze8axgmYNx+JK6XyYYcK9MqgTEC4ifF
ZZNINug8LPE6htZINSwALhtoV4aU29HuHy7U3eUhIcYydyBtnIAXh+SI4GUk
8M52XJGaxPudsnTnVyfh4Sx75wBBgIXi0aFKTRIUC84Hb57G/a1NDA3QJqEk
Mvd+Elpq8WNi+zoSjgjf9d04Q0DU5eDGTBMSPD1Sf0XOEuCRl6On70CC+Mi3
Pz/+IuAXrbH6qyMJ8isFV6ky8bwODlul7SGhvyO//Qj6hY7hIZYrCfefGUVO
o43LX1575k1CvWz+Dw4L7/eSOeccToKCwvf130kCGI+eOn+KJKFMZPtpJYqA
hzcvl3idJ8EkUm52F9oxUOWAfwwJU4WiiRXoJIkd9eFXSYiVWWkZwSHgAFtC
di6JhOrSH0b30PqMnuPRqSTIzKgf+IBue/zHysvXScjra3Ew4BIg5pIRmZ1P
wrGE1tJP6N6tB7tW3yFBNeyZA98cAUXaOrp/38X4ghTU9NC2ZH3Pv0Uk5Nz5
6h+Ojs8Z3PSknIT46uenROYJcI19kGJZRUJN7u0nemitoPCR5zUkGGzp3uKA
brZYlvnmCT6Pu3VPIpp/wJDV34LrlfTTBBYwP7TO7fJrJeFuSXWsGvpO+Yt/
RttIWBy8/mALelucp8tMF67PsMkPQcsEr3lw+j2ONykFJKC/uU4JcLpJGBA0
9y9AR+tcrOD7TALHL5jvDXq3tIP4X19JsPC+UDCIVuXI+y37hvu1vjeMRDe8
LpKVGyYhTf9cneoiAckVYYFZoyRo+DesN0R73drapDxOwo6oXd3b0XPBXaFa
0yR0pOxq8UO3ueW0Fs3i89Q8kTyFzqEd0djAJOHE6oiki+jjugZny9gkPD1y
npaKNpOhukw4JBRvatW5hRbj0nXr50j4Y5u3dRG6dzAxBhZJsDK1vFmBjqxU
+91WgAKbrt6vL9G2eWMJbUIUCM1e6+pCr/irgrFblALehQzqE3o0JGrzh2UU
JDV+cf2GrnG3TfWQoIBfIvjHCDrBUmb0ixQFDbU7Hk+i3fQ+g48sBeoFfqWz
aG3ZwsxheQpSb7cyWGgWN4Q4voKCM3+H23LQn8ttvLVWUbBi7IDcPLoxUPVd
vwoF+mulZhfQhZpsq2w1Cjoc0r4tohP73lQ5a1Ig6swYWHLotUIdSW0KOs3n
mUvz3XZGZb/SwXGJ0ZVL1zPndxWPXUfBpQ8Fe5bup1G/PspiAwXce2uzl+IR
CROcJn+jQOX2+V8z6Em9L97lRhT8OZh/eAL9dqDiXZAJBYVZaV+Hlp4/O3GH
jikFAjN7gr+ib+31qx7YQgFL85tkN/qimLnuLQsKXoVAUxs6gC6b42ZJQaVS
UAIdvevsuLiMFQWMoOOHqtGGhk1RbdYU7H+6yfbfpf0fy56Ot6NgbcCHbXno
+duhPpYOFPz2arvT0vse8LB/z3WkwMn+UlAM+qW0hnXVHgp2embcOol+8Iqq
PuFMwcfg8P7D6AjTopwhDwqW5VdmmaMPzkQvLzhAQf1LaSld9PYi9z89D+F+
yW67KYeWUBLx7fDD8ZPq30bxPN8l/fVqQygYrpi0jkdfeWSRGxZKwXmpeYdA
dEiAgsSG0xQYSw/7OaHNep7P3DlLQb+NbascurN6TW1iHAVlrCOBGfi9VoXM
6dkkUBBa7ckTis5Z+z6X9yrup9dv9xzR/pmXos+kUiBy9qKeIJp7ZsDmcA4F
EuEM4aOYLxgb6mpX5lFwsoizbiv6xXDaug8FeJ7qF7xl0KmulpL2hRS4/fmK
vw7zkbZJQbfRYwqqpZJXL2D+2sv0OiLcQkGQj0SZB+a/6tf3pCtfUXAkWptX
A618Z+aJTxsF98P6j//AfDrkGKfQ0EWB42az5NPoiPslLac+U5CysVHuEpuA
/P1c3YEZCkxnb2qEYX4WMNzRnfKLgq9PriqvRweIpFzcysb312j2+zDme8NK
jb6sOQpcAnqKXdAvJOwTnYQ50Bm6s1/3JwETjVlT/ylz4IoX4XgP68merIHs
46ocUFj/mLkXXRWsb7NCgwOe/Puq57EeRa96lh+2lgPX3GlXd6NlT4/s1jPk
gISK0JlxrF9mOiblmTYc8Os548HCevdX8rvw0FAcdxMIPIz1VO3fxqmZUxyw
kxVXZGO9rWl5eORkOAcyD66YS0SP8STuO3GeA5GLtierBrB+hFkZBMdzwFjQ
WYTnGwEK7pXDx7I54MIIGg/6gt+reqaLN50DIvbXb1ZgPwAWcW2MZg7kJqUE
GqJ7PMO2H27hABE3duYh9g9iGU6/H2rDeA52mN57h/2qkMhyr24OyJs/PJHU
RYDJeESz+xgHbCRL/jFux/2q8DTaLcMFUbF6qynsZ04XuDYLynNhzeV4TWv0
msS9LvWKXCg9u0HpFvZDMb724doqXHi+eq2dbSPmAxmz+rm1XDB/bvXftQYC
ykOUthdt5cKgXfrPBeynCvR69vId40Lrs95WbezPnBTeD1YHciFgRinFu4SA
Bd7OU0HBXFC+9eV4zr9YLz+13OgJ48J3LdFj4sUEKCZU95ZGcaGvLC16sBDz
/9ANn/0ZON86Vt2/gIBzBS6hFU+5EGuh6/IkHb/Ht8z2LXQuyK5PNBhLI4Am
cEO3qZkLioKSNAW0UEA3o+sVFyL+vsz/Rwr25wZuTsQ7LhRIj8pJJBJQ3OCu
rzfKBbt5QX997Gd7P+8fzpeaA9vXj0a7sF82U/LxvOo9B4e5WdWN2H8brZTq
tPWbA5ehfX6F2J/rr2rYIXR0DpKuN2tdcSFARWXl7zF/zIH6/dFhx33Yf6u/
FQ4Pn8M6qu3b7khAi862Sp+kOcib/WGftwP7zc0aUma1uH5zmFwq/h8IcRt4
Pio1D6Uv9iZVihJwYeNYu9yTedhrtl5nrHQKrhfw/1nutQBNm+svle2aAs2u
1PKeZYvgTa4Kf9s9CfXJBmknShfhbFhgstf+SZBnFceNa/PQDpiQQd3dE5Ag
HCHgc4GHFjTBqgoym4Do/vaP0m94aKJlny/15I6DcfaXiVgtXtq5gdyGkqEx
eL/m992HzvHS4lghEXe0xoA6vVwk7DUvbWCxb+Xo0R/wqehvXnsNPlrMnfX/
TCaPgsVdupNnGB/NOSihUr9uBFKCtSa66DieE3b0EGMYclZtaxVX4qcVlyjf
khkbAv2UkbnoY/y00Jia0zu53yFiyPpkzTN+2gazLcdXEINgx2dgpisjQDNa
5btq58QACBOee3h9BGh22v5uaiPfILqBVpxbI0BLndsxTzUxIMr5odtJUUGa
9wOeZ3me/bCp/aO1qLcg7YXk/S3p05/hs7xVrEi1II2flyV8M7YXhLRMFSyF
hWiBNY4apzb1wLjC6A/zg0K0R7XCQpMPPoBLh6pM6EMhWsT9mpMR1u+gxC0n
QWJRiNYQosK8NtgJDfROWrCLMG2efWTsy5U2cPmVvEu4UJiWa64ldyK3Be6J
COf6zgvTZgxPPUo3pUMzX8zyYPTVsmsOk5vpwJjjREWgn67JGLVBr5yZ8k5C
Lx/apDZvQofET91rq9GPf4klHzWmw4niwnKxBWGauTXD19yADmYO1q8fo42O
OpFDa+jgav3M/L8le6ak0tBhNLPSF+hRn0c6OZp0KDHekNaHVqq77r5bgw6r
VRTcBBeFaRvyJqvqVOnAPzU04I4uN3oXlLKSDmqjh5x90SuEtQTGlOhgPvDp
eRB6htc92wp9prv9/kW0bKj3C0qRDqMNlcEl6PT9fCp+8nQQqDVgVKFZCV5l
DXJ0UC8v2tOIPj9800YJ7XnvlnE3Osuk6uQbGbzebcVCBvrwuhtCuuhrOWmK
40vxOLvlXJKmw6Pryy4z0XXllMFXKTq0pcRxFtF5dheaN6P/B3Z2rhU=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzH8w1Hkcx/G1a3e16ORYPxohR+WKubP6sVzvT+zs0N2JxraOVMTdSVEo
O6eVsEcq8qsxfnSumvUjR1J+XJGUkt+u/Ngh9kTL2uW7lx9ZP/Y+/fGa1zz+
eVoHRx4OJZNIJC+8zx8mnWeQSATUuV9qb54O3e9BmXVJIhMgSRu+9r0pB7bb
yU7TqNj2/L3XmL7wIVzSrccg4Co70dP7yxAIWWrMMjMiYLmD5LKmFwMnNqaY
O20n4PYfYudYUjIccTWz/9mbgNrNvXurZdnAyfvOs7OYAPHRp6nmdXfgprGa
YXlIBd5LlsvvrB+CyrLt/IRKBZ1jFJHRsUawbbcQCjL/g1MiWZ9a/zn07JPR
s/d/hBL1rxL9268gaXeLi5X0IyRTFYwjzzug8pPBR6eMeRBZTFqqdHuh2l/G
ZbosAOPuL14x5v9Ak2ePe/jwAuis3tBpW3wDB9btX3CvLIJVWyhrs6IfuiFP
mfP1ErTmuGvKHwwCy/p6TXX7ElSGF1OOh0jAoG1h1Tf2Ewga9ox5OQzD4krk
3CnTZXhce7UhoHsEDi8EhtJfLUPu5VGPetEopKS/iY2KUsMVK04/YSSFlw/9
nbwNV6CxcEJp+VYKccW8qIdPV4C1hZGTcetfYJsF+18NWoXXR3tumfHHIZI/
3jplsAaPPPL8fjN/D0JneZdR4xqUNjmnj/a/h9xiyqWawHWohOJGWcIE2PTd
qBnS1QDtbb5f6O5JeJzumHm2UgMrJ2XKgyOTYLxYLpqxIyH3+LjFx3EfIJUu
0A4WkpADb7sRx1YGCWNdg5u6SYjXee/0sWYZsPLfKZJttZCe/G7Y3tApePvV
N97H47TQnEQxNUmZhuXz+jrRHVqo7MmQhUPuNEjK7mgd3EpGr8uL48cc5bD/
bssh/2gy+l3xbqaqUQ4ZEbaKvhYy6qUfzArkzkDBZrd2PTMKyjJ5KbUZmoGd
GbLVhDAKKtAryZcEKkAwyT1X30xBmkBT2xMKBXiSHdk7DLVR0ogqzS1SCfQ5
fx+tYG1UtC8lLkephIQmVF5Yr40462niiJhZiPet4p/bQEVPEsLv+RCzsKdr
kLshiIpGPVa2CmPmYMSYk6xTR0WD+Rd3Oc/PAc12H/MAnYbsTHi72lkEzDCn
pl2P0RD1FbP0YjQBvB5Lw6gqGoKN1s/t/yKggl+QulFDQx7q2ktzEwQ0tfSi
CB4d7TAg3PKsVMCbT/+RLqajxZRve4R8FZTo0AtPrtGRyCa6fWeWCl6QL+tH
YLfKk585YUtX1fEC7L6y7Ho2trlqNug6dsAXpWIP7GuSgW112BcFFYkh2GfL
xTWMdTritNqwC7HZP3A7qrGDAjrFutkqOMJtdn2CzbcWFhliRyN25UvsiDH7
HDPsCpZD5jA2gyO8vA17iwWTT9XgXtVagDs2ZXZy3A/b2OCMQRy21dRx35PY
AT8paYnYruOS1jPYivxTa6nYFwa6ShOxV2lH5Texp5oeRVRgmySZv3iArd3g
KK3FJmck/t2AbV1T5vMM2ytbdr8Z27+kiDWAvUlUWtT9ufeniViKnR6lndOP
nV2QaTKDfcEvMG0E+36u7pUF7M7dNQnvsTszRGoNdpY+LVaO/T/Y8WPR
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1., 0},
  PlotRange->{{1, 3}, {0., 1.0986122750626675`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.448745841330687*^9, {3.448745907003797*^9, 3.448745911215199*^9}}]
}, Open  ]],

Cell[TextData[{
 "From the graph it looks like there is a solution near ",
 StyleBox["x=2 ", "Input"],
 "so we use ",
 StyleBox["FindRoot", "Input"],
 " starting with ",
 StyleBox["x=2", "Input"],
 "."
}], "Text",
 CellChangeTimes->{{3.448745961890984*^9, 3.448746044932743*^9}, {
  3.4487460840049353`*^9, 3.448746092413632*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "\[Equal]", 
    RowBox[{"Log", "[", "x", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.448745700294729*^9, 3.4487457412889338`*^9}, {
  3.448745800932047*^9, 3.448745803488617*^9}, {3.448745925073481*^9, 
  3.448745951927231*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", "2.219107148913746`"}], "}"}]], "Output",
 CellChangeTimes->{{3.44874571399646*^9, 3.448745742749978*^9}, 
   3.448745805856721*^9, {3.4487459280370283`*^9, 3.448745952782241*^9}}]
}, Open  ]],

Cell[TextData[{
 "4) Calculate ",
 Cell[BoxData[
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      SuperscriptBox["x", "2"]}]], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]],
  CellChangeTimes->{{3.465044806050803*^9, 3.465044846712935*^9}}],
 "."
}], "Text",
 CellChangeTimes->{{3.465044791566947*^9, 3.465044795513619*^9}, {
  3.465044856628216*^9, 3.465044867452735*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     SuperscriptBox["x", "2"]}]], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
 CellChangeTimes->{{3.465044806050803*^9, 3.465044846712935*^9}}],

Cell[BoxData[
 FractionBox[
  SqrtBox["\[Pi]"], "2"]], "Output",
 CellChangeTimes->{3.465044862226059*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"E", "^", 
    RowBox[{"(", 
     RowBox[{"-", 
      RowBox[{"x", "^", "2"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.46504487270538*^9, 3.4650448922060223`*^9}}],

Cell[BoxData[
 FractionBox[
  SqrtBox["\[Pi]"], "2"]], "Output",
 CellChangeTimes->{3.4650448934819927`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{848, 527},
WindowMargins->{{291, Automatic}, {128, Automatic}},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 189, 3, 67, "Section"],
Cell[CellGroupData[{
Cell[804, 30, 149, 2, 25, "Subsubsection"],
Cell[956, 34, 470, 12, 28, "Text"],
Cell[CellGroupData[{
Cell[1451, 50, 485, 14, 27, "Input"],
Cell[1939, 66, 2763, 82, 205, "Output"]
}, Open  ]],
Cell[4717, 151, 616, 17, 29, "Text"],
Cell[CellGroupData[{
Cell[5358, 172, 440, 13, 27, "Input"],
Cell[5801, 187, 415, 13, 35, "Output"]
}, Open  ]],
Cell[6231, 203, 563, 10, 26, "Text"],
Cell[CellGroupData[{
Cell[6819, 217, 369, 10, 27, "Input"],
Cell[7191, 229, 7462, 129, 242, "Output"]
}, Open  ]],
Cell[14668, 361, 330, 10, 26, "Text"],
Cell[CellGroupData[{
Cell[15023, 375, 394, 10, 27, "Input"],
Cell[15420, 387, 235, 4, 27, "Output"]
}, Open  ]],
Cell[15670, 394, 467, 14, 37, "Text"],
Cell[CellGroupData[{
Cell[16162, 412, 300, 8, 46, "Input"],
Cell[16465, 422, 106, 3, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16608, 430, 315, 9, 27, "Input"],
Cell[16926, 441, 108, 3, 48, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)