(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 4.0,
MathReader 4.0, or any compatible application. The data for the notebook 
starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do one of 
the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing the 
word CacheID, otherwise Mathematica-compatible applications may try to 
use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
***********************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     36791,       1130]*)
(*NotebookOutlinePosition[     37443,       1153]*)
(*  CellTagsIndexPosition[     37399,       1149]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[BoxData[
    \( (*Newton' s\ Method*) \)], "Input"],

Cell[BoxData[
    \(f[x_] := x^4 - 2  x^3 - 4  x^2 + 4  x + 4\)], "Input"],

Cell[BoxData[
    \(x =. \)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(f[x]\)], "Input"],

Cell[BoxData[
    \(4 + 4\ x - 4\ x\^2 - 2\ x\^3 + x\^4\)], "Output"]
}, Open  ]],

Cell[BoxData[
    \(Df[x_]\  := \ D[f[x], x]\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(g = Df[x]\)], "Input"],

Cell[BoxData[
    \(4 - 8\ x - 6\ x\^2 + 4\ x\^3\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Plot[f[x], {x, \(-4\), 4}]\)], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.5 0.119048 0.129157 0.0258308 [
[.02381 .11666 -6 -9 ]
[.02381 .11666 6 0 ]
[.2619 .11666 -6 -9 ]
[.2619 .11666 6 0 ]
[.7381 .11666 -3 -9 ]
[.7381 .11666 3 0 ]
[.97619 .11666 -3 -9 ]
[.97619 .11666 3 0 ]
[.4875 0 -12 -4.5 ]
[.4875 0 0 4.5 ]
[.4875 .25831 -6 -4.5 ]
[.4875 .25831 0 4.5 ]
[.4875 .38747 -12 -4.5 ]
[.4875 .38747 0 4.5 ]
[.4875 .51662 -12 -4.5 ]
[.4875 .51662 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.02381 .12916 m
.02381 .13541 L
s
[(-4)] .02381 .11666 0 1 Mshowa
.2619 .12916 m
.2619 .13541 L
s
[(-2)] .2619 .11666 0 1 Mshowa
.7381 .12916 m
.7381 .13541 L
s
[(2)] .7381 .11666 0 1 Mshowa
.97619 .12916 m
.97619 .13541 L
s
[(4)] .97619 .11666 0 1 Mshowa
.125 Mabswid
.08333 .12916 m
.08333 .13291 L
s
.14286 .12916 m
.14286 .13291 L
s
.20238 .12916 m
.20238 .13291 L
s
.32143 .12916 m
.32143 .13291 L
s
.38095 .12916 m
.38095 .13291 L
s
.44048 .12916 m
.44048 .13291 L
s
.55952 .12916 m
.55952 .13291 L
s
.61905 .12916 m
.61905 .13291 L
s
.67857 .12916 m
.67857 .13291 L
s
.79762 .12916 m
.79762 .13291 L
s
.85714 .12916 m
.85714 .13291 L
s
.91667 .12916 m
.91667 .13291 L
s
.25 Mabswid
0 .12916 m
1 .12916 L
s
.5 0 m
.50625 0 L
s
[(-5)] .4875 0 1 0 Mshowa
.5 .25831 m
.50625 .25831 L
s
[(5)] .4875 .25831 1 0 Mshowa
.5 .38747 m
.50625 .38747 L
s
[(10)] .4875 .38747 1 0 Mshowa
.5 .51662 m
.50625 .51662 L
s
[(15)] .4875 .51662 1 0 Mshowa
.125 Mabswid
.5 .02583 m
.50375 .02583 L
s
.5 .05166 m
.50375 .05166 L
s
.5 .0775 m
.50375 .0775 L
s
.5 .10333 m
.50375 .10333 L
s
.5 .15499 m
.50375 .15499 L
s
.5 .18082 m
.50375 .18082 L
s
.5 .20665 m
.50375 .20665 L
s
.5 .23248 m
.50375 .23248 L
s
.5 .28414 m
.50375 .28414 L
s
.5 .30997 m
.50375 .30997 L
s
.5 .3358 m
.50375 .3358 L
s
.5 .36163 m
.50375 .36163 L
s
.5 .4133 m
.50375 .4133 L
s
.5 .43913 m
.50375 .43913 L
s
.5 .46496 m
.50375 .46496 L
s
.5 .49079 m
.50375 .49079 L
s
.5 .54245 m
.50375 .54245 L
s
.5 .56828 m
.50375 .56828 L
s
.5 .59411 m
.50375 .59411 L
s
.25 Mabswid
.5 0 m
.5 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.24232 .61803 m
.24402 .59835 L
.26416 .42179 L
.28414 .29265 L
.30258 .20796 L
.31224 .175 L
.3213 .15045 L
.33124 .12986 L
.33682 .12096 L
.34193 .11436 L
.34669 .10944 L
.35177 .10545 L
.35424 .10395 L
.35657 .10279 L
.35864 .10196 L
.36091 .10125 L
.36222 .10093 L
.36343 .1007 L
.36472 .10053 L
.36544 .10045 L
.3661 .1004 L
.36727 .10036 L
.36855 .10037 L
.36975 .10043 L
.37087 .10053 L
.37215 .1007 L
.37335 .10091 L
.37609 .10157 L
.37876 .10245 L
.38164 .10363 L
.39121 .10921 L
.40168 .11779 L
.42278 .14065 L
.46334 .1926 L
.48207 .21477 L
.50238 .23451 L
.51349 .24279 L
.51836 .24578 L
.52373 .2486 L
.52845 .25065 L
.53352 .25239 L
.53631 .25314 L
.53887 .2537 L
.54144 .25413 L
.54271 .25429 L
.54388 .25442 L
.54513 .25452 L
.54579 .25456 L
.54648 .2546 L
.54765 .25463 L
Mistroke
.54892 .25464 L
.55007 .25462 L
.55129 .25458 L
.55244 .2545 L
.55349 .25441 L
.55601 .25411 L
.55744 .25388 L
.55875 .25363 L
.56372 .25238 L
.56797 .25092 L
.57265 .2489 L
.58212 .24348 L
.59224 .23578 L
.60151 .22709 L
.62238 .20223 L
.66206 .14005 L
.70022 .0749 L
.72151 .04383 L
.73157 .03209 L
.74083 .02357 L
.74553 .02023 L
.75049 .01749 L
.75307 .01642 L
.75548 .01565 L
.75686 .0153 L
.75812 .01506 L
.75882 .01495 L
.75957 .01486 L
.76029 .01479 L
.76095 .01475 L
.76204 .01472 L
.76321 .01474 L
.76431 .01482 L
.76532 .01494 L
.76645 .01512 L
.76767 .01539 L
.77015 .01616 L
.7726 .0172 L
.77521 .01865 L
.77993 .02216 L
.78525 .02759 L
.79015 .03407 L
.80125 .05436 L
.81103 .07937 L
.82139 .11399 L
.84094 .20513 L
.85925 .32576 L
.87951 .50591 L
Mfstroke
.87951 .50591 m
.88921 .61803 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 177.938},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004P0000/A000`40O003h00Oogoo8Goo003oOolQ
Ool008Qoo`8009Ioo`00Qgoo00@007ooOol009Eoo`00RWoo00<007ooOol00Woo0`00SWoo0021Ool4
0003Ool20005Ool00`00Oomoo`2>Ool008Qoo`03001oogoo00Aoo`03001oogoo08ioo`00R7oo0`00
17oo00<007ooOol0SWoo002?Ool00`00Oomoo`14Ool50015Ool008moo`03001oogoo04=oo`8000=o
o`<004=oo`00Sgoo00<007ooOol0@Woo00<007ooOol01Woo00<007ooOol0@7oo002?Ool20011Ool2
000:Ool00`00Oomoo`0oOol008moo`03001oogoo03moo`03001oogoo00]oo`03001oogoo03ioo`00
Sgoo00<007ooOol0?Woo00<007ooOol03Goo00<007ooOol0?Goo002?Ool00`00Oomoo`0mOol00`00
Oomoo`0>Ool00`00Oomoo`0mOol008moo`03001oogoo03aoo`03001oogoo011oo`03001oogoo03ao
o`00Sgoo00<007ooOol0>goo00<007ooOol04Goo00<007ooOol0?7oo002?Ool00`00Oomoo`0jOol0
0`00Oomoo`0COol00`00Oomoo`0kOol008moo`8003]oo`03001oogoo01=oo`03001oogoo03]oo`00
Sgoo00<007ooOol0>Goo00<007ooOol05Goo00<007ooOol0>Woo002?Ool00`00Oomoo`0hOol00`00
Oomoo`0FOol00`00Oomoo`0jOol008moo`03001oogoo03Qoo`03001oogoo01Moo`03001oogoo03Uo
o`00Sgoo00<007ooOol0=goo00<007ooOol067oo00<007ooOol0>Goo002?Ool00`00Oomoo`0fOol0
0`00Oomoo`0JOol00`00Oomoo`0hOol008moo`03001oogoo03Ioo`03001oogoo01Yoo`03001oogoo
03Qoo`00Sgoo00<007ooOol0=Goo00<007ooOol077oo00<007ooOol0=goo002?Ool2000eOol00`00
Oomoo`0MOol00`00Oomoo`0gOol008moo`03001oogoo03Aoo`03001oogoo01eoo`03001oogoo03Mo
o`00Sgoo00<007ooOol0<goo00<007ooOol07goo00<007ooOol0=Woo000=Ool3000nOol4000mOol0
0`00Oomoo`0cOol00`00Oomoo`07Ool4000DOol00`00Oomoo`0ZOol30009Ool000ioo`03001oogoo
03eoo`03001oogoo03ioo`03001oogoo039oo`03001oogoo00Qoo`03001oogoo01Eoo`03001oogoo
02]oo`03001oogoo00Qoo`002goo1@00?goo00<007ooOol0?Goo00<007ooOol0<Goo00<007ooOol0
2Woo00<007ooOol05Goo00<007ooOol09goo1@002Goo0005Ool40002Ool01000Oomoo`00>Goo1000
17oo00<007ooOol05Goo1@008Woo00<007ooOol0<Goo00<007ooOol02goo00<007ooOol057oo00<0
07ooOol09goo00@007ooOol000Yoo`0037oo00<007oo0000?goo00@007ooOol001Aoo`<000Aoo`80
021oo`80035oo`03001oogoo00Yoo`04001oogoo000EOol00`00Oomoo`0XOol00`00Ool0000:Ool0
00eoo`80041oo`8001Aoo`03001oogoo00Moo`8001ioo`03001oogoo02moo`03001oogoo00aoo`80
01Ioo`03001oogoo02Uoo`8000Yoo`00I7oo00<007ooOol02Woo00<007ooOol06goo00<007ooOol0
;goo00<007ooOol09Goo00<007ooOol0=7oo001SOol00`00Oomoo`0<Ool2000KOol00`00Oomoo`0^
Ool00`00Oomoo`0VOol00`00Oomoo`0dOol0069oo`03001oogoo00moo`03001oogoo01Qoo`03001o
ogoo02ioo`03001oogoo02Ioo`03001oogoo03Aoo`00HGoo00<007ooOol04Goo00<007ooOol05goo
00<007ooOol0;Goo00<007ooOol09goo00<007ooOol0=7oo001POol00`00Oomoo`0COol00`00Oomo
o`0FOol00`00Oomoo`0/Ool00`00Oomoo`0YOol00`00Oomoo`0cOol000=oool001X000Aoo`002Woo
00<007ooOol03Woo00<007ooOol03Goo00<007ooOol03Woo00<007ooOol03Woo00<007ooOol03Goo
00<007oo00003Woo00<007ooOol01Woo00<007ooOol017oo00<007ooOol03Woo00<007ooOol03Woo
00<007ooOol03Goo00<007ooOol02Woo00D007ooOomoo`0000moo`03001oogoo00ioo`03001oogoo
00Eoo`03001oogoo00Ioo`03001oogoo00eoo`03001oogoo00ioo`03001oogoo00Uoo`002Woo00<0
07ooOol0@7oo00<007ooOol03goo00<007ooOol05Woo00<007ooOol057oo00<007ooOol0:goo00<0
07ooOol04Goo00<007ooOol05Woo00<007ooOol09goo00<007ooOol02Goo001NOol00`00Oomoo`0H
Ool00`00Oomoo`0COol00`00Oomoo`0ZOol00`00Oomoo`0[Ool00`00Oomoo`0cOol005ioo`03001o
ogoo01Uoo`03001oogoo019oo`03001oogoo02Uoo`03001oogoo02eoo`03001oogoo039oo`00GGoo
00<007ooOol06goo00<007ooOol04Goo00<007ooOol0:Goo00<007ooOol0;Goo00<007ooOol0<Woo
001MOol00`00Oomoo`0KOol00`00Oomoo`0AOol00`00Oomoo`0XOol00`00Oomoo`0^Ool00`00Oomo
o`0bOol005eoo`03001oogoo01aoo`03001oogoo011oo`8002Qoo`03001oogoo02moo`03001oogoo
039oo`00G7oo00<007ooOol07Woo00<007ooOol03goo00<007ooOol09goo00<007ooOol0;goo00<0
07ooOol0<Woo001LOol00`00Oomoo`0OOol00`00Oomoo`0>Ool00`00Oomoo`0VOol00`00Oomoo`0a
Ool00`00Oomoo`0aOol005aoo`03001oogoo021oo`03001oogoo00eoo`03001oogoo02Eoo`03001o
ogoo039oo`03001oogoo035oo`00G7oo00<007ooOol087oo00<007ooOol03Goo00<007ooOol09Goo
00<007ooOol0<Woo00<007ooOol0<Goo001KOol00`00Oomoo`0ROol00`00Oomoo`0<Ool00`00Oomo
o`0TOol00`00Oomoo`0cOol00`00Oomoo`0aOol005]oo`03001oogoo02=oo`03001oogoo00]oo`03
001oogoo02Aoo`03001oogoo03=oo`03001oogoo035oo`00Fgoo00<007ooOol097oo00<007ooOol0
2Woo00<007ooOol08goo00<007ooOol0=Goo00<007ooOol0<7oo001JOol00`00Oomoo`0VOol00`00
Oomoo`09Ool2000SOol00`00Oomoo`0fOol00`00Oomoo`0`Ool005Yoo`03001oogoo02Ioo`03001o
ogoo00Uoo`03001oogoo029oo`03001oogoo03Ioo`03001oogoo031oo`00FWoo00<007ooOol09goo
00<007ooOol027oo00<007ooOol08Goo00<007ooOol0=goo00<007ooOol0<7oo001IOol00`00Oomo
o`0YOol00`00Oomoo`07Ool00`00Oomoo`0POol00`00Oomoo`0hOol00`00Oomoo`0`Ool005Uoo`03
001oogoo02Yoo`03001oogoo00Ioo`03001oogoo021oo`03001oogoo03Uoo`03001oogoo02moo`00
FGoo00<007ooOol0:goo00<007ooOol01Goo00<007ooOol07goo00<007ooOol0>Woo00<007ooOol0
;goo001HOol00`00Oomoo`0]Ool00`00Oomoo`04Ool00`00Oomoo`0NOol00`00Oomoo`0kOol00`00
Oomoo`0_Ool005Qoo`03001oogoo02eoo`03001oogoo00Aoo`8001ioo`03001oogoo03aoo`03001o
ogoo02moo`00F7oo00<007ooOol0;Woo00<007ooOol00goo00<007ooOol077oo00<007ooOol0?Goo
00<007ooOol0;goo001HOol00`00Oomoo`0_Ool00`00Oomoo`02Ool00`00Oomoo`0LOol00`00Oomo
o`0mOol00`00Oomoo`0_Ool005Moo`03001oogoo035oo`05001oogooOol0000MOol00`00Oomoo`0o
Ool00`00Oomoo`0^Ool005Moo`03001oogoo039oo`04001oogoo000LOol00`00Oomoo`10Ool00`00
Oomoo`0^Ool005Moo`03001oogoo03=oo`<001]oo`03001oogoo045oo`03001oogoo02ioo`00Egoo
00<007ooOol0=Goo00<007ooOol067oo00<007ooOol0@Woo00<007ooOol0;Woo001GOol00`00Oomo
o`0eOol2000IOol00`00Oomoo`12Ool00`00Oomoo`0^Ool005Ioo`03001oogoo03Ioo`03001oo`00
01Moo`03001oogoo04=oo`03001oogoo02ioo`00EWoo00<007ooOol0=Woo00@007ooOol001Aoo`80
04Ioo`03001oogoo02ioo`00EWoo00<007ooOol0=Woo00D007ooOomoo`00019oo`03001oogoo04Mo
o`03001oogoo02eoo`00EWoo00<007ooOol0=Woo00<007ooOol00Woo0`003Goo0P00BWoo00<007oo
Ool0;Goo001EOol00`00Oomoo`0`Ool20005Ool00`00Oomoo`05Ool20008Ool3001<Ool00`00Oomo
o`0]Ool005Eoo`03001oogoo02moo`04001oogoo0004Ool00`00Oomoo`07Ool8001?Ool00`00Oomo
o`0]Ool005Eoo`03001oogoo039oo`03001oogoo009oo`<005ioo`03001oogoo02eoo`00EGoo00<0
07ooOol0<7oo0P001Goo00<007ooOol0GWoo00<007ooOol0;Goo001EOol00`00Oomoo`0`Ool00`00
Oomoo`04Ool00`00Oomoo`1OOol00`00Oomoo`0/Ool005Aoo`03001oogoo035oo`<000Aoo`03001o
ogoo05moo`03001oogoo02aoo`00E7oo00<007ooOol0>7oo00<007ooOol0Ggoo00<007ooOol0;7oo
001DOol00`00Oomoo`0hOol00`00Oomoo`1OOol00`00Oomoo`0/Ool005Aoo`03001oogoo03Qoo`03
001oogoo05moo`03001oogoo02aoo`00E7oo00<007ooOol0>7oo0P00H7oo00<007ooOol0;7oo001C
Ool00`00Oomoo`0iOol00`00Oomoo`1OOol00`00Oomoo`0/Ool005=oo`03001oogoo03Uoo`03001o
ogoo061oo`03001oogoo02]oo`00Dgoo00<007ooOol0>Goo00<007ooOol0H7oo00<007ooOol0:goo
001COol00`00Oomoo`0iOol00`00Oomoo`1POol00`00Oomoo`0[Ool005=oo`03001oogoo03Uoo`03
001oogoo061oo`03001oogoo02]oo`00DWoo00<007ooOol0>Woo00<007ooOol0H7oo00<007ooOol0
:goo001BOol00`00Oomoo`0jOol00`00Oomoo`1POol00`00Oomoo`0[Ool0059oo`03001oogoo03Yo
o`80065oo`03001oogoo02]oo`00DWoo00<007ooOol0>Woo00<007ooOol0HGoo00<007ooOol0:Woo
001BOol00`00Oomoo`0jOol00`00Oomoo`1QOol00`00Oomoo`0ZOol0059oo`03001oogoo03Yoo`03
001oogoo065oo`03001oogoo02Yoo`00DGoo00<007ooOol0>goo00<007ooOol0HGoo00<007ooOol0
:Woo001AOol00`00Oomoo`0kOol00`00Oomoo`1QOol00`00Oomoo`0ZOol0055oo`03001oogoo03]o
o`03001oogoo065oo`03001oogoo02Yoo`00DGoo00<007ooOol0>goo0P00HWoo00<007ooOol0:Woo
001AOol00`00Oomoo`0kOol00`00Oomoo`1QOol00`00Oomoo`0ZOol0055oo`03001oogoo03]oo`03
001oogoo069oo`03001oogoo02Uoo`00D7oo00<007ooOol0?7oo00<007ooOol0HWoo00<007ooOol0
:Goo001@Ool00`00Oomoo`0lOol00`00Oomoo`1ROol00`00Oomoo`0YOol0051oo`03001oogoo03ao
o`03001oogoo069oo`03001oogoo02Uoo`00D7oo00<007ooOol0?7oo00<007ooOol0HWoo00<007oo
Ool0:Goo001@Ool00`00Oomoo`0lOol2001SOol00`00Oomoo`0YOol0051oo`03001oogoo03aoo`03
001oogoo069oo`03001oogoo02Uoo`00Cgoo00<007ooOol0?Goo00<007ooOol0HWoo00<007ooOol0
:Goo001?Ool00`00Oomoo`0mOol00`00Oomoo`1SOol00`00Oomoo`0XOol004moo`03001oogoo03eo
o`03001oogoo06=oo`03001oogoo02Qoo`00Cgoo00<007ooOol0;goo1@000Woo0P001Goo00<007oo
Ool0Hgoo00<007ooOol0:7oo001?Ool00`00Oomoo`0aOol01@00Oomoogoo00000Woo00<007ooOol0
0Woo00<007ooOol0Hgoo00<007ooOol0:7oo001?Ool00`00Oomoo`0aOol01@00Oomoogoo00000Woo
00<007ooOol00Woo0`00Hgoo00<007ooOol0:7oo001>Ool00`00Oomoo`0bOol01@00Oomoogoo0000
0Woo00<007ooOol00Woo00<007ooOol0Hgoo00<007ooOol0:7oo001>Ool00`00Oomoo`0bOol01@00
Oomoogoo00000Woo00<007ooOol00Woo00<007ooOol0Hgoo00<007ooOol0:7oo001>Ool00`00Oomo
o`0aOol20004Ool20005Ool00`00Oomoo`1SOol00`00Oomoo`0XOol004ioo`03001oogoo03ioo`03
001oogoo06Aoo`03001oogoo02Moo`00CWoo00<007ooOol0?Woo00<007ooOol0I7oo00<007ooOol0
9goo001>Ool00`00Oomoo`0nOol00`00Oomoo`1TOol00`00Oomoo`0WOol004eoo`03001oogoo03mo
o`8006Eoo`03001oogoo02Moo`00CGoo00<007ooOol0?goo00<007ooOol0I7oo00<007ooOol09goo
001=Ool00`00Oomoo`0oOol00`00Oomoo`1TOol00`00Oomoo`0WOol004eoo`03001oogoo03moo`03
001oogoo06Aoo`03001oogoo02Moo`00CGoo00<007ooOol0?goo00<007ooOol0I7oo00<007ooOol0
9goo001=Ool00`00Oomoo`0oOol00`00Oomoo`1TOol00`00Oomoo`0WOol004eoo`03001oogoo03mo
o`03001oogoo06Eoo`03001oogoo02Ioo`00CGoo00<007ooOol0?goo00<007ooOol0IGoo00<007oo
Ool09Woo001<Ool00`00Oomoo`10Ool2001VOol00`00Oomoo`0VOol004aoo`03001oogoo041oo`03
001oogoo06Eoo`03001oogoo02Ioo`00C7oo00<007ooOol0@7oo00<007ooOol0IGoo00<007ooOol0
9Woo001<Ool00`00Oomoo`10Ool00`00Oomoo`1UOol00`00Oomoo`0VOol004aoo`03001oogoo041o
o`03001oogoo06Eoo`03001oogoo02Ioo`00C7oo00<007ooOol0@7oo00<007ooOol0IGoo00<007oo
Ool09Woo001<Ool00`00Oomoo`10Ool00`00Oomoo`1VOol00`00Oomoo`0UOol004aoo`03001oogoo
041oo`8006Moo`03001oogoo02Eoo`00C7oo00<007ooOol0@7oo00<007ooOol0IWoo00<007ooOol0
9Goo001<Ool00`00Oomoo`10Ool00`00Oomoo`1VOol00`00Oomoo`0UOol004]oo`03001oogoo045o
o`03001oogoo06Ioo`03001oogoo02Eoo`00Bgoo00<007ooOol0@Goo00<007ooOol0IWoo00<007oo
Ool09Goo001;Ool00`00Oomoo`11Ool00`00Oomoo`1VOol00`00Oomoo`0UOol004]oo`03001oogoo
045oo`03001oogoo06Ioo`03001oogoo02Eoo`00Bgoo00<007ooOol0@Goo0P00J7oo00<007ooOol0
97oo001;Ool00`00Oomoo`11Ool00`00Oomoo`1WOol00`00Oomoo`0TOol004]oo`03001oogoo045o
o`03001oogoo06Moo`03001oogoo02Aoo`00Bgoo00<007ooOol0@Goo00<007ooOol0Igoo00<007oo
Ool097oo001;Ool00`00Oomoo`11Ool00`00Oomoo`1WOol00`00Oomoo`0TOol004]oo`03001oogoo
03=oo`D0009oo`8000Eoo`03001oogoo06Moo`03001oogoo02Aoo`00BWoo00<007ooOol0=Woo00D0
07ooOomoo`00009oo`03001oogoo009oo`03001oogoo06Moo`03001oogoo02Aoo`00BWoo00<007oo
Ool0=Woo00<007ooOol017oo00<007ooOol00Woo0`00Igoo00<007ooOol097oo001:Ool00`00Oomo
o`0fOol00`00Oomoo`02Ool20005Ool00`00Oomoo`1WOol00`00Oomoo`0TOol004Yoo`03001oogoo
03Ioo`03001oogoo009oo`03001oogoo00Aoo`03001oogoo06Moo`03001oogoo02Aoo`00BWoo00<0
07ooOol0=Goo0P0017oo0`0017oo00<007ooOol0J7oo00<007ooOol08goo001:Ool00`00Oomoo`12
Ool00`00Oomoo`1XOol00`00Oomoo`0SOol004Yoo`03001oogoo049oo`03001oogoo06Qoo`03001o
ogoo02=oo`00BWoo00<007ooOol0@Woo00<007ooOol0J7oo00<007ooOol08goo001:Ool00`00Oomo
o`12Ool2001YOol00`00Oomoo`0SOol004Yoo`03001oogoo049oo`03001oogoo06Qoo`03001oogoo
02=oo`00BGoo00<007ooOol0@goo00<007ooOol0J7oo00<007ooOol08goo0019Ool00`00Oomoo`13
Ool00`00Oomoo`1XOol00`00Oomoo`0SOol004Uoo`03001oogoo04=oo`03001oogoo06Qoo`03001o
ogoo02=oo`00BGoo00<007ooOol0@goo00<007ooOol0J7oo00<007ooOol08goo0019Ool00`00Oomo
o`13Ool00`00Oomoo`1YOol00`00Oomoo`0ROol004Uoo`03001oogoo04=oo`03001oogoo06Uoo`03
001oogoo029oo`00BGoo00<007ooOol0@goo0P00JWoo00<007ooOol08Woo0019Ool00`00Oomoo`13
Ool00`00Oomoo`1YOol00`00Oomoo`0ROol004Uoo`03001oogoo04=oo`03001oogoo06Uoo`03001o
ogoo029oo`00BGoo00<007ooOol0@goo00<007ooOol0JGoo00<007ooOol08Woo0018Ool00`00Oomo
o`14Ool00`00Oomoo`1YOol00`00Oomoo`0ROol004Qoo`03001oogoo04Aoo`03001oogoo06Uoo`03
001oogoo029oo`00B7oo00<007ooOol0A7oo00<007ooOol0JGoo00<007ooOol08Woo0018Ool00`00
Oomoo`14Ool2001ZOol00`00Oomoo`0ROol004Qoo`03001oogoo04Aoo`03001oogoo06Yoo`03001o
ogoo025oo`00B7oo00<007ooOol0A7oo00<007ooOol0JWoo00<007ooOol08Goo0018Ool00`00Oomo
o`14Ool00`00Oomoo`1ZOol00`00Oomoo`0QOol004Moo`03001oogoo04Eoo`03001oogoo06Yoo`03
001oogoo025oo`00Agoo00<007ooOol0AGoo00<007ooOol0JWoo00<007ooOol08Goo0017Ool00`00
Oomoo`15Ool00`00Oomoo`1ZOol00`00Oomoo`0QOol00001\
\>"],
  ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-4.32028, -5.62463, \
0.0301065, 0.138754}}],

Cell[BoxData[
    TagBox[\(\[SkeletonIndicator]  Graphics  \[SkeletonIndicator]\),
      False,
      Editable->False]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Plot[g, {x, \(-3\), 3}]\)], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.5 0.15873 0.285873 0.00933664 [
[.02381 .27337 -6 -9 ]
[.02381 .27337 6 0 ]
[.18254 .27337 -6 -9 ]
[.18254 .27337 6 0 ]
[.34127 .27337 -6 -9 ]
[.34127 .27337 6 0 ]
[.65873 .27337 -3 -9 ]
[.65873 .27337 3 0 ]
[.81746 .27337 -3 -9 ]
[.81746 .27337 3 0 ]
[.97619 .27337 -3 -9 ]
[.97619 .27337 3 0 ]
[.4875 .00577 -18 -4.5 ]
[.4875 .00577 0 4.5 ]
[.4875 .09914 -18 -4.5 ]
[.4875 .09914 0 4.5 ]
[.4875 .19251 -18 -4.5 ]
[.4875 .19251 0 4.5 ]
[.4875 .37924 -12 -4.5 ]
[.4875 .37924 0 4.5 ]
[.4875 .47261 -12 -4.5 ]
[.4875 .47261 0 4.5 ]
[.4875 .56597 -12 -4.5 ]
[.4875 .56597 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.02381 .28587 m
.02381 .29212 L
s
[(-3)] .02381 .27337 0 1 Mshowa
.18254 .28587 m
.18254 .29212 L
s
[(-2)] .18254 .27337 0 1 Mshowa
.34127 .28587 m
.34127 .29212 L
s
[(-1)] .34127 .27337 0 1 Mshowa
.65873 .28587 m
.65873 .29212 L
s
[(1)] .65873 .27337 0 1 Mshowa
.81746 .28587 m
.81746 .29212 L
s
[(2)] .81746 .27337 0 1 Mshowa
.97619 .28587 m
.97619 .29212 L
s
[(3)] .97619 .27337 0 1 Mshowa
.125 Mabswid
.05556 .28587 m
.05556 .28962 L
s
.0873 .28587 m
.0873 .28962 L
s
.11905 .28587 m
.11905 .28962 L
s
.15079 .28587 m
.15079 .28962 L
s
.21429 .28587 m
.21429 .28962 L
s
.24603 .28587 m
.24603 .28962 L
s
.27778 .28587 m
.27778 .28962 L
s
.30952 .28587 m
.30952 .28962 L
s
.37302 .28587 m
.37302 .28962 L
s
.40476 .28587 m
.40476 .28962 L
s
.43651 .28587 m
.43651 .28962 L
s
.46825 .28587 m
.46825 .28962 L
s
.53175 .28587 m
.53175 .28962 L
s
.56349 .28587 m
.56349 .28962 L
s
.59524 .28587 m
.59524 .28962 L
s
.62698 .28587 m
.62698 .28962 L
s
.69048 .28587 m
.69048 .28962 L
s
.72222 .28587 m
.72222 .28962 L
s
.75397 .28587 m
.75397 .28962 L
s
.78571 .28587 m
.78571 .28962 L
s
.84921 .28587 m
.84921 .28962 L
s
.88095 .28587 m
.88095 .28962 L
s
.9127 .28587 m
.9127 .28962 L
s
.94444 .28587 m
.94444 .28962 L
s
.25 Mabswid
0 .28587 m
1 .28587 L
s
.5 .00577 m
.50625 .00577 L
s
[(-30)] .4875 .00577 1 0 Mshowa
.5 .09914 m
.50625 .09914 L
s
[(-20)] .4875 .09914 1 0 Mshowa
.5 .19251 m
.50625 .19251 L
s
[(-10)] .4875 .19251 1 0 Mshowa
.5 .37924 m
.50625 .37924 L
s
[(10)] .4875 .37924 1 0 Mshowa
.5 .47261 m
.50625 .47261 L
s
[(20)] .4875 .47261 1 0 Mshowa
.5 .56597 m
.50625 .56597 L
s
[(30)] .4875 .56597 1 0 Mshowa
.125 Mabswid
.5 .02445 m
.50375 .02445 L
s
.5 .04312 m
.50375 .04312 L
s
.5 .06179 m
.50375 .06179 L
s
.5 .08047 m
.50375 .08047 L
s
.5 .11781 m
.50375 .11781 L
s
.5 .13649 m
.50375 .13649 L
s
.5 .15516 m
.50375 .15516 L
s
.5 .17383 m
.50375 .17383 L
s
.5 .21118 m
.50375 .21118 L
s
.5 .22985 m
.50375 .22985 L
s
.5 .24853 m
.50375 .24853 L
s
.5 .2672 m
.50375 .2672 L
s
.5 .30455 m
.50375 .30455 L
s
.5 .32322 m
.50375 .32322 L
s
.5 .34189 m
.50375 .34189 L
s
.5 .36057 m
.50375 .36057 L
s
.5 .39791 m
.50375 .39791 L
s
.5 .41659 m
.50375 .41659 L
s
.5 .43526 m
.50375 .43526 L
s
.5 .45393 m
.50375 .45393 L
s
.5 .49128 m
.50375 .49128 L
s
.5 .50995 m
.50375 .50995 L
s
.5 .52863 m
.50375 .52863 L
s
.5 .5473 m
.50375 .5473 L
s
.5 .58465 m
.50375 .58465 L
s
.5 .60332 m
.50375 .60332 L
s
.25 Mabswid
.5 0 m
.5 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.19764 0 m
.22272 .08366 L
.26171 .18275 L
.28158 .22263 L
.30316 .25847 L
.32216 .28406 L
.34309 .30623 L
.36292 .32189 L
.37378 .32841 L
.38395 .33329 L
.39433 .3371 L
.39945 .33856 L
.4042 .33968 L
.40884 .34057 L
.41306 .34119 L
.4153 .34145 L
.41774 .34168 L
.41907 .34179 L
.4203 .34187 L
.42146 .34194 L
.42272 .342 L
.42399 .34204 L
.42518 .34207 L
.42635 .34209 L
.42742 .34209 L
.42858 .34208 L
.42986 .34206 L
.43051 .34205 L
.4312 .34203 L
.43246 .34198 L
.43477 .34186 L
.4372 .34169 L
.44155 .34126 L
.44666 .34058 L
.45142 .33976 L
.46221 .33732 L
.47273 .33421 L
.48267 .33066 L
.50126 .32263 L
.53972 .3016 L
.58064 .27571 L
.62004 .25084 L
.65793 .23023 L
.67738 .22191 L
.68822 .21815 L
.69827 .2153 L
.7084 .21311 L
.71375 .21225 L
.71649 .21189 L
.71945 .21157 L
Mistroke
.72228 .21133 L
.72352 .21124 L
.72488 .21116 L
.72608 .2111 L
.72737 .21105 L
.72808 .21103 L
.72873 .21101 L
.73 .21099 L
.73122 .21098 L
.73235 .21099 L
.73359 .211 L
.7349 .21104 L
.73604 .21108 L
.73711 .21113 L
.73955 .21128 L
.74199 .21148 L
.74426 .21171 L
.74941 .21243 L
.75442 .21337 L
.75977 .21464 L
.76948 .21769 L
.77829 .22133 L
.79751 .23233 L
.80835 .2405 L
.81832 .24934 L
.83872 .27164 L
.85778 .29792 L
.89572 .3675 L
.93459 .46529 L
.97592 .60231 L
.97619 .60332 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 177.938},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004P0000/A000`40O003h00Oogoo8Goo003oOolQ
Ool003Yoo`03001oogoo04Aoo`8000Aoo`8000Ioo`03001oogoo08ioo`00>Woo00<007ooOol0@goo
00@007ooOol0009oo`04001oogoo0005Ool00`00Oomoo`2>Ool003]oo`03001oogoo04Aoo`05001o
ogooOol00002Ool00`00Oomoo`03Ool3002>Ool003]oo`03001oogoo03aoo`@000Eoo`04001oogoo
0002Ool00`00Oomoo`03Ool00`00Oomoo`2>Ool003]oo`03001oogoo049oo`04001oogoo0002Ool0
1000Oomoo`001Goo00<007ooOol0SWoo000kOol00`00Oomoo`13Ool20004Ool20006Ool00`00Oomo
o`2>Ool003aoo`03001oogoo051oo`03001oogoo08ioo`00?7oo00<007ooOol0D7oo0P00Sgoo000l
Ool00`00Oomoo`1@Ool00`00Oomoo`2>Ool003eoo`03001oogoo04moo`03001oogoo08ioo`00?Goo
00<007ooOol0Cgoo00<007ooOol0SWoo000mOol00`00Oomoo`1?Ool00`00Oomoo`2>Ool003ioo`03
001oogoo04ioo`03001oogoo08ioo`00?Woo00<007ooOol0CWoo0P00Sgoo000nOol00`00Oomoo`1>
Ool00`00Oomoo`2>Ool003ioo`03001oogoo04ioo`03001oogoo08ioo`00?goo00<007ooOol0CGoo
00<007ooOol0SWoo000oOol00`00Oomoo`1=Ool00`00Oomoo`2>Ool003moo`03001oogoo04eoo`80
08moo`00@7oo00<007ooOol0C7oo00<007ooOol0SWoo0010Ool00`00Oomoo`1<Ool00`00Oomoo`2>
Ool0041oo`03001oogoo04aoo`03001oogoo08ioo`00@7oo00<007ooOol0C7oo00<007ooOol0SWoo
0011Ool00`00Oomoo`1;Ool2002?Ool0045oo`03001oogoo04]oo`03001oogoo08ioo`00@Goo00<0
07ooOol0Bgoo00<007ooOol0SWoo0012Ool00`00Oomoo`0kOol40003Ool20006Ool00`00Oomoo`2>
Ool0049oo`03001oogoo03]oo`03001oogoo00=oo`04001oogoo0005Ool00`00Oomoo`2>Ool004=o
o`03001oogoo03]oo`03001oogoo009oo`04001oogoo0005Ool3002>Ool004=oo`03001oogoo03Ao
o`@000Aoo`05001oogooOol00002Ool00`00Oomoo`03Ool00`00Oomoo`2>Ool004=oo`03001oogoo
03Yoo`04001oogoo0002Ool01000Oomoo`001Goo00<007ooOol0SWoo0014Ool00`00Oomoo`0jOol2
0004Ool20006Ool00`00Oomoo`2>Ool004Aoo`03001oogoo04Qoo`03001oogoo08ioo`00AGoo00<0
07ooOol0Agoo00<007ooOol0SWoo0015Ool00`00Oomoo`17Ool2002?Ool004Eoo`03001oogoo04Mo
o`03001oogoo08ioo`00AWoo00<007ooOol0AWoo00<007ooOol0SWoo0016Ool00`00Oomoo`16Ool0
0`00Oomoo`2>Ool004Moo`03001oogoo04Eoo`03001oogoo08ioo`00Agoo00<007ooOol0AGoo0P00
Sgoo0017Ool00`00Oomoo`15Ool00`00Oomoo`2>Ool004Qoo`03001oogoo04Aoo`03001oogoo08io
o`00B7oo00<007ooOol0A7oo00<007ooOol0SWoo0018Ool00`00Oomoo`14Ool00`00Oomoo`2>Ool0
04Uoo`03001oogoo04=oo`8008moo`00BGoo00<007ooOol0@goo00<007ooOol0SWoo001:Ool00`00
Oomoo`12Ool00`00Oomoo`2>Ool004Yoo`03001oogoo049oo`03001oogoo08ioo`00BWoo00<007oo
Ool0@Woo00<007ooOol0SWoo001;Ool00`00Oomoo`11Ool2002?Ool004]oo`03001oogoo045oo`03
001oogoo08ioo`00C7oo00<007ooOol0@7oo00<007ooOol0SWoo001<Ool00`00Oomoo`10Ool00`00
Oomoo`2>Ool004aoo`03001oogoo035oo`D0009oo`8000Ioo`03001oogoo08ioo`00CGoo00<007oo
Ool0<Woo00D007ooOomoo`00009oo`03001oogoo00=oo`03001oogoo08ioo`00CGoo00<007ooOol0
<Woo00D007ooOomoo`00009oo`03001oogoo00=oo`<008ioo`00CWoo00<007ooOol0:Goo100017oo
00D007ooOomoo`00009oo`03001oogoo00=oo`03001oogoo08ioo`00CWoo00<007ooOol0<Goo00D0
07ooOomoo`00009oo`03001oogoo00=oo`03001oogoo08ioo`00Cgoo00<007ooOol0;goo0P0017oo
0P001Woo00<007ooOol0SWoo001?Ool00`00Oomoo`0mOol00`00Oomoo`2>Ool0051oo`03001oogoo
03aoo`8003Qoo`d004Yoo`00D7oo00<007ooOol0?7oo00<007ooOol0=7oo0`003Goo1000AWoo001A
Ool00`00Oomoo`0kOol00`00Oomoo`0aOol3000DOol20014Ool0055oo`03001oogoo03]oo`03001o
ogoo02ioo`<001Uoo`80049oo`00DWoo00<007ooOol0>Woo00<007ooOol0:goo0`007Woo0P00@7oo
001BOol00`00Oomoo`0jOol2000ZOol2000SOol2000nOol005=oo`03001oogoo03Uoo`03001oogoo
02Moo`8002Moo`8003aoo`00E7oo00<007ooOol0>7oo00<007ooOol09Goo0P00:goo0P00>Woo001E
Ool00`00Oomoo`0gOol00`00Oomoo`0TOol00`00Oomoo`0]Ool00`00Oomoo`0gOol000]oo`8002Yo
o`@001Yoo`03001oogoo00]oo`D002Moo`03001oogoo029oo`8000Aoo`D002Moo`@002Yoo`8000Yo
o`002Woo00@007ooOol002Uoo`03001oogoo01aoo`03001oogoo00aoo`03001oogoo02Moo`80025o
o`8000Qoo`03001oogoo02Moo`03001oo`0002Yoo`04001oogoo0009Ool000aoo`03001oogoo02Uo
o`03001oogoo01aoo`03001oogoo00]oo`03001oogoo02Moo`03001oogoo01moo`03001oogoo00Qo
o`03001oogoo02Qoo`03001oo`0002]oo`03001oogoo00Qoo`0017oo10001Goo00<007ooOol08Goo
100017oo00<007ooOol06goo00<007ooOol00goo100017oo00<007ooOol09goo00<007ooOol07Goo
0P002goo00<007ooOol0:Goo00<007oo0000:goo00<007ooOol01goo000:Ool01000Oomoo`00:Goo
00@007ooOol001eoo`03001oogoo00Yoo`03001oogoo02Moo`03001oogoo01aoo`03001oogoo00]o
o`03001oogoo02Moo`06001oogoo001oo`009goo00@007ooOol000Uoo`002goo0P00:goo0P007goo
00<007ooOol027oo0P00:Goo00<007ooOol06Woo0P003Goo0P00:Woo0P000goo00<007ooOol09Goo
0P002Woo001IOol00`00Oomoo`0cOol00`00Oomoo`0HOol20010Ool00`00Oomoo`0aOol005Yoo`03
001oogoo039oo`8001Qoo`03001oogoo045oo`03001oogoo031oo`00Fgoo00<007ooOol0<Goo00<0
07ooOol05Goo0P00AGoo00<007ooOol0;goo001LOol00`00Oomoo`0`Ool00`00Oomoo`0DOol00`00
Oomoo`16Ool00`00Oomoo`0^Ool005aoo`03001oogoo031oo`03001oogoo019oo`8004Yoo`03001o
ogoo02eoo`00GGoo00<007ooOol0;goo00<007ooOol047oo0P00CGoo00<007ooOol0;7oo0002Oooo
000L0003Ool000Uoo`03001oogoo00Ioo`03001oogoo00Ioo`03001oogoo00Ioo`03001oogoo00Io
o`03001oogoo00Ioo`03001oogoo00Ioo`03001oogoo00Eoo`03001oogoo00Ioo`03001oogoo00Io
o`03001oogoo00=oo`04001oogoo0008Ool00`00Oomoo`06Ool00`00Oomoo`06Ool00`00Oomoo`06
Ool00`00Oomoo`06Ool00`00Oomoo`06Ool00`00Oomoo`04Ool30008Ool00`00Oomoo`06Ool00`00
Oomoo`06Ool00`00Oomoo`06Ool00`00Oomoo`06Ool00`00Oomoo`06Ool00`00Oomoo`05Ool00`00
Oomoo`06Ool00`00Oomoo`06Ool20007Ool00`00Oomoo`06Ool00`00Oomoo`06Ool00`00Oomoo`06
Ool00`00Oomoo`08Ool000Uoo`03001oogoo02Yoo`03001oogoo02Moo`03001oo`0002aoo`03001o
ogoo00]oo`8001eoo`03001oogoo02Uoo`03001oogoo00Qoo`03001oogoo01moo`03001oogoo00Qo
o`00H7oo00<007ooOol0;7oo00<007ooOol02Goo0P00Egoo00<007ooOol0:Goo001QOol00`00Oomo
o`0[Ool00`00Oomoo`08Ool00`00Oomoo`1HOol00`00Oomoo`0XOol0069oo`03001oogoo02Yoo`80
00Moo`8005]oo`03001oogoo02Qoo`00Hgoo00<007ooOol0:Goo00<007ooOol017oo0P00GWoo00<0
07ooOol09goo001TOol00`00Oomoo`0XOol00`00Oomoo`02Ool2001POol00`00Oomoo`0WOol006Eo
o`8002Qoo`03001oogoo008006=oo`03001oogoo02Ioo`00Igoo00<007ooOol09Goo0`00IGoo00<0
07ooOol09Woo001XOol00`00Oomoo`0TOol2001WOol00`00Oomoo`0UOol006Uoo`80029oo`<006Qo
o`03001oogoo02Eoo`00Jgoo0P007Woo0P000Woo00<007ooOol0Igoo00<007ooOol097oo001]Ool3
000IOol20004Ool00`00Oomoo`1WOol00`00Oomoo`0TOol0071oo`80015oo`H000Ioo`03001oogoo
06Qoo`03001oogoo02=oo`00LWoo10002Woo0`0037oo00<007ooOol0J7oo00<007ooOol08goo001f
Ool:000?Ool2001ZOol00`00Oomoo`0ROol008moo`03001oogoo06Uoo`03001oogoo029oo`00Sgoo
00<007ooOol0JWoo00<007ooOol08Goo002?Ool00`00Oomoo`1ZOol00`00Oomoo`0QOol008moo`03
001oogoo06]oo`03001oogoo021oo`00Sgoo0P00K7oo00<007ooOol087oo002?Ool00`00Oomoo`1/
Ool00`00Oomoo`0OOol008moo`03001oogoo06aoo`03001oogoo01moo`00P7oo1@000Woo0P001Woo
00<007ooOol0K7oo00<007ooOol07goo0022Ool01@00Oomoogoo00000Woo00<007ooOol00goo00<0
07ooOol0KGoo00<007ooOol07Woo0022Ool01@00Oomoogoo00000Woo00<007ooOol00goo0`00KGoo
00<007ooOol07Woo0022Ool01@00Oomoogoo00000Woo00<007ooOol00goo00<007ooOol0KWoo00<0
07ooOol07Goo0022Ool01@00Oomoogoo00000Woo00<007ooOol00goo00<007ooOol0KWoo00<007oo
Ool07Goo0021Ool20004Ool20006Ool00`00Oomoo`1^Ool00`00Oomoo`0MOol008moo`03001oogoo
06moo`03001oogoo01aoo`00Sgoo00<007ooOol0Kgoo00<007ooOol077oo002?Ool2001aOol00`00
Oomoo`0KOol008moo`03001oogoo071oo`03001oogoo01]oo`00Sgoo00<007ooOol0L7oo00<007oo
Ool06goo002?Ool00`00Oomoo`1aOol00`00Oomoo`0JOol008moo`03001oogoo075oo`03001oogoo
01Yoo`00Sgoo0P00Lgoo00<007ooOol06Goo002?Ool00`00Oomoo`1bOol00`00Oomoo`0IOol008mo
o`03001oogoo07=oo`03001oogoo01Qoo`00Sgoo00<007ooOol0Lgoo00<007ooOol067oo002?Ool0
0`00Oomoo`1cOol00`00Oomoo`0HOol008moo`8007Eoo`03001oogoo01Moo`00Sgoo00<007ooOol0
M7oo00<007ooOol05goo002?Ool00`00Oomoo`1eOol00`00Oomoo`0FOol008moo`03001oogoo07Eo
o`03001oogoo01Ioo`00Sgoo00<007ooOol0MGoo00<007ooOol05Woo002?Ool2001gOol00`00Oomo
o`0EOol008moo`03001oogoo07Ioo`03001oogoo01Eoo`00Sgoo00<007ooOol0Mgoo00<007ooOol0
57oo002?Ool00`00Oomoo`1gOol00`00Oomoo`0DOol0081oo`@000=oo`8000Ioo`03001oogoo07Mo
o`03001oogoo01Aoo`00P7oo00<007ooOol00goo00@007ooOol000Eoo`03001oogoo07Qoo`03001o
ogoo01=oo`00PGoo00<007ooOol00Woo00@007ooOol000Eoo`<007Qoo`03001oogoo01=oo`00PWoo
00D007ooOomoo`00009oo`03001oogoo00=oo`03001oogoo07Qoo`03001oogoo01=oo`00P7oo00@0
07ooOol0009oo`04001oogoo0005Ool00`00Oomoo`1iOol00`00Oomoo`0BOol0085oo`8000Aoo`80
00Ioo`03001oogoo07Uoo`03001oogoo019oo`00Sgoo00<007ooOol0NGoo00<007ooOol04Woo002?
Ool2001jOol00`00Oomoo`0BOol008moo`03001oogoo07Yoo`03001oogoo015oo`00Sgoo00<007oo
Ool0NWoo00<007ooOol04Goo002?Ool00`00Oomoo`1jOol00`00Oomoo`0AOol008moo`03001oogoo
07]oo`03001oogoo011oo`00Sgoo0P00O7oo00<007ooOol047oo002?Ool00`00Oomoo`1kOol00`00
Oomoo`0@Ool008moo`03001oogoo07aoo`03001oogoo00moo`00Sgoo00<007ooOol0O7oo00<007oo
Ool03goo002?Ool00`00Oomoo`1lOol00`00Oomoo`0?Ool008moo`8007ioo`03001oogoo00ioo`00
Sgoo00<007ooOol0OGoo00<007ooOol03Woo002?Ool00`00Oomoo`1mOol00`00Oomoo`0>Ool008mo
o`03001oogoo07eoo`03001oogoo00ioo`00Sgoo00<007ooOol0OWoo00<007ooOol03Goo002?Ool0
0`00Oomoo`1nOol00`00Oomoo`0=Ool008moo`8007moo`03001oogoo00eoo`00Sgoo00<007ooOol0
Ogoo00<007ooOol037oo002?Ool00`00Oomoo`1oOol00`00Oomoo`0<Ool0085oo`8000Aoo`8000Io
o`03001oogoo07moo`03001oogoo00aoo`00P7oo00@007ooOol0009oo`04001oogoo0005Ool00`00
Oomoo`20Ool00`00Oomoo`0;Ool0089oo`05001oogooOol00002Ool00`00Oomoo`03Ool30020Ool0
0`00Oomoo`0;Ool008=oo`04001oogoo0002Ool00`00Oomoo`03Ool00`00Oomoo`20Ool00`00Oomo
o`0;Ool0081oo`04001oogoo0002Ool01000Oomoo`001Goo00<007ooOol0PGoo00<007ooOol02Woo
0021Ool20004Ool20006Ool00`00Oomoo`21Ool00`00Oomoo`0:Ool008moo`03001oogoo085oo`03
001oogoo00Yoo`00Sgoo0P00PWoo00<007ooOol02Woo002?Ool00`00Oomoo`22Ool00`00Oomoo`09
Ool008moo`03001oogoo089oo`03001oogoo00Uoo`00Sgoo00<007ooOol0PWoo00<007ooOol02Goo
002?Ool00`00Oomoo`23Ool00`00Oomoo`08Ool008moo`8008Aoo`03001oogoo00Qoo`00Sgoo00<0
07ooOol0SWoo002?Ool00`00Oomoo`2>Ool008moo`03001oogoo08ioo`00Sgoo00<007ooOol0SWoo
0000\
\>"],
  ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-3.20997, -31.7121, \
0.0223692, 0.380293}}],

Cell[BoxData[
    TagBox[\(\[SkeletonIndicator]  Graphics  \[SkeletonIndicator]\),
      False,
      Editable->False]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(x = 0.0;\)\), "\[IndentingNewLine]", 
    \(\(xtol = 0.001;\)\), "\[IndentingNewLine]", 
    \(\(deltax = 1000;\)\), "\[IndentingNewLine]", 
    \(\(i = 1;\)\), "\[IndentingNewLine]", 
    \(\(max = 20;\)\), "\[IndentingNewLine]", 
    \(While[\((i \[LessEqual] \ max)\)\  && \((deltax\  > \ 
            xtol)\), \[IndentingNewLine]xnew = \ 
        x\  - \ \((f[x]/g)\); \[IndentingNewLine]deltax\  = \ 
        Abs[xnew - x]; \[IndentingNewLine]Print[N[x], \ "\<   \>", 
        N[xnew], "\<   \>", \ N[g], "\<  \>", \ 
        N[deltax]]; \[IndentingNewLine]x = \ xnew; \[IndentingNewLine]i = 
        i + 1]\[IndentingNewLine]\)}], "Input"],

Cell[BoxData[
    \(General::"spell1" \(\(:\)\(\ \)\) 
      "Possible spelling error: new symbol name \"\!\(max\)\" is similar to \
existing symbol \"\!\(Max\)\"."\)], "Message"],

Cell[BoxData[
    InterpretationBox[\(0.`\[InvisibleSpace]"   "\[InvisibleSpace]\(-1.`\)\
\[InvisibleSpace]"   "\[InvisibleSpace]4.`\[InvisibleSpace]"  "\
\[InvisibleSpace]1.`\),
      SequenceForm[ 0.0, "   ", -1.0, "   ", 4.0, "  ", 1.0],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\(\(-1.`\)\[InvisibleSpace]"   \
"\[InvisibleSpace]\(-0.5`\)\[InvisibleSpace]"   "\[InvisibleSpace]2.`\
\[InvisibleSpace]"  "\[InvisibleSpace]0.5`\),
      SequenceForm[ -1.0, "   ", -.5, "   ", 2.0, "  ", .5],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\(\(-0.5`\)\[InvisibleSpace]"   \
"\[InvisibleSpace]\(-0.71875`\)\[InvisibleSpace]"   "\[InvisibleSpace]6.`\
\[InvisibleSpace]"  "\[InvisibleSpace]0.21875`\),
      SequenceForm[ -.5, "   ", -.71875, "   ", 6.0, "  ", .21875],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\(\(-0.71875`\)\[InvisibleSpace]"   \
"\[InvisibleSpace]\(-0.7319317127714887`\)\[InvisibleSpace]"   "\
\[InvisibleSpace]5.1651611328125`\[InvisibleSpace]"  \
"\[InvisibleSpace]0.013181712771488718`\),
      SequenceForm[ -.71875, "   ", -.73193171277148872, "   ", 
        5.1651611328125, "  ", .013181712771488718],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\(\(-0.7319317127714887`\)\[InvisibleSpace]"   "\
\[InvisibleSpace]\(-0.7320507974847416`\)\[InvisibleSpace]"   "\
\[InvisibleSpace]5.072655875479641`\[InvisibleSpace]"  \
"\[InvisibleSpace]0.0001190847132528372`\),
      SequenceForm[ -.73193171277148872, "   ", -.73205079748474156, "   ", 
        5.0726558754796409, "  ", .0001190847132528372],
      Editable->False]], "Print"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Solve[f[xx] \[Equal] 0, xx]\)], "Input"],

Cell[BoxData[
    \({{xx \[Rule] \(-\@2\)}, {xx \[Rule] \@2}, {xx \[Rule] 
          1 - \@3}, {xx \[Rule] 1 + \@3}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(N[%]\)], "Input"],

Cell[BoxData[
    \({{xx \[Rule] \(-1.4142135623730951`\)}, {xx \[Rule] 
          1.4142135623730951`}, {xx \[Rule] \(-0.7320508075688772`\)}, {xx \
\[Rule] 2.732050807568877`}}\)], "Output"]
}, Open  ]],

Cell[BoxData[
    \(x =. \)], "Input"],

Cell[BoxData[
    \(\(Solve[g \[Equal] 0, x];\)\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(N[%]\)], "Input"],

Cell[BoxData[
    \({{x \[Rule] \(\(2.2020234982322147`\)\(\[InvisibleSpace]\)\) - 
            5.551115123125783`*^-17\ \[ImaginaryI]}, {x \[Rule] \
\(\(0.4088152105260422`\)\(\[InvisibleSpace]\)\) + 
            3.3306690738754696`*^-16\ \[ImaginaryI]}, {x \[Rule] \
\(-1.1108387087582567`\) - 
            1.1102230246251565`*^-16\ \[ImaginaryI]}}\)], "Output"]
}, Open  ]]
},
FrontEndVersion->"4.0 for Microsoft Windows",
ScreenRectangle->{{0, 800}, {0, 527}},
WindowSize->{496, 369},
WindowMargins->{{0, Automatic}, {Automatic, 0}}
]


(***********************************************************************
Cached data follows.  If you edit this Notebook file directly, not using
Mathematica, you must remove the line containing CacheID at the top of 
the file.  The cache data will then be recreated when you save this file 
from within Mathematica.
***********************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{
Cell[1717, 49, 56, 1, 30, "Input"],
Cell[1776, 52, 74, 1, 30, "Input"],
Cell[1853, 55, 38, 1, 30, "Input"],

Cell[CellGroupData[{
Cell[1916, 60, 37, 1, 30, "Input"],
Cell[1956, 63, 69, 1, 29, "Output"]
}, Open  ]],
Cell[2040, 67, 57, 1, 30, "Input"],

Cell[CellGroupData[{
Cell[2122, 72, 42, 1, 30, "Input"],
Cell[2167, 75, 62, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2266, 81, 59, 1, 30, "Input"],
Cell[2328, 84, 15927, 444, 186, 4136, 294, "GraphicsData", "PostScript", \
"Graphics"],
Cell[18258, 530, 130, 3, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[18425, 538, 56, 1, 30, "Input"],
Cell[18484, 541, 14554, 479, 186, 4913, 355, "GraphicsData", "PostScript", \
"Graphics"],
Cell[33041, 1022, 130, 3, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[33208, 1030, 668, 12, 270, "Input"],
Cell[33879, 1044, 179, 3, 60, "Message"],
Cell[34061, 1049, 274, 5, 25, "Print"],
Cell[34338, 1056, 280, 5, 25, "Print"],
Cell[34621, 1063, 296, 5, 25, "Print"],
Cell[34920, 1070, 389, 7, 25, "Print"],
Cell[35312, 1079, 419, 7, 25, "Print"]
}, Open  ]],

Cell[CellGroupData[{
Cell[35768, 1091, 60, 1, 30, "Input"],
Cell[35831, 1094, 130, 2, 32, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[35998, 1101, 37, 1, 30, "Input"],
Cell[36038, 1104, 192, 3, 48, "Output"]
}, Open  ]],
Cell[36245, 1110, 38, 1, 30, "Input"],
Cell[36286, 1113, 60, 1, 30, "Input"],

Cell[CellGroupData[{
Cell[36371, 1118, 37, 1, 30, "Input"],
Cell[36411, 1121, 364, 6, 67, "Output"]
}, Open  ]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)