(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of 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[ 48015, 1607]*) (*NotebookOutlinePosition[ 48912, 1638]*) (* CellTagsIndexPosition[ 48868, 1634]*) (*WindowFrame->Normal*) Notebook[{ Cell[TextData["\n"], "Text", Evaluatable->False], Cell[TextData["NUMERICAL MATHEMATICS"], "Section", Evaluatable->False], Cell[TextData["\n"], "Text", Evaluatable->False], Cell[CellGroupData[{ Cell["xacc = 123.123456789123456789", "Input", PageWidth->Infinity], Cell[BoxData[ \(123.123456789123456789`20.301\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Precision[xacc]", "Input", PageWidth->Infinity], Cell[BoxData[ \(20\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["?Precision", "Input", PageWidth->Infinity], Cell[BoxData[ \("Precision[x] gives the number of digits of precision in the number x."\ \)], "Print"] }, Open ]], Cell[CellGroupData[{ Cell["Accuracy[xacc]", "Input", PageWidth->Infinity], Cell[BoxData[ \(18\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["?Accuracy", "Input", PageWidth->Infinity], Cell[BoxData[ \("Accuracy[x] gives the number of digits to the right of the decimal \ point in the number x."\)], "Print"] }, Open ]], Cell[CellGroupData[{ Cell["N[xacc,9]", "Input", PageWidth->Infinity], Cell[BoxData[ StyleBox["123.123456789123464`", StyleBoxAutoDelete->True, PrintPrecision->9]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["N[Pi]", "Input", PageWidth->Infinity], Cell[BoxData[ \(3.14159265358979311`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Precision[%]", "Input", PageWidth->Infinity], Cell[BoxData[ \(16\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Precision[1.]", "Input", PageWidth->Infinity], Cell[BoxData[ \(16\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["$MachinePrecision", "Input", PageWidth->Infinity], Cell[BoxData[ \(16\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Exp[ N[ 2 Pi I] ]", "Input", PageWidth->Infinity], Cell[BoxData[ \(\(1.`\[InvisibleSpace]\) - 2.44921270764475451`*^-16\ I\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Chop[%]", "Input", PageWidth->Infinity], Cell[BoxData[ \(1.`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["0/0", "Input", PageWidth->Infinity], Cell[BoxData[ \(Power::"infy" \( : \ \) "Infinite expression \!\(1\/0\) encountered."\)], "Message"], Cell[BoxData[ RowBox[{ \(\[Infinity]::"indet"\), \( : \ \), "\<\"Indeterminate expression \\!\\(0\\\\ \ \\*InterpretationBox[\\\"ComplexInfinity\\\", DirectedInfinity[]]\\) \ encountered.\"\>"}]], "Message"], Cell[BoxData[ \(Indeterminate\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["1/0", "Input", PageWidth->Infinity], Cell[BoxData[ \(Power::"infy" \( : \ \) "Infinite expression \!\(1\/0\) encountered."\)], "Message"], Cell[BoxData[ InterpretationBox["ComplexInfinity", DirectedInfinity[ ]]], "Output"], Cell[CellGroupData[{ Cell[OutputFormData["\<\ DirectedInfinity[] \ \>", "\<\ ComplexInfinity\ \>"], "Input", PageWidth->Infinity], Cell[BoxData[ InterpretationBox["ComplexInfinity", DirectedInfinity[ ]]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Abs[%]", "Input", PageWidth->Infinity], Cell[BoxData[ InterpretationBox["\[Infinity]", DirectedInfinity[ 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["1/%", "Input", PageWidth->Infinity], Cell[BoxData[ \(0\)], "Output"] }, Open ]], Cell[TextData["Numerical Root Finding"], "Section", Evaluatable->False], Cell[CellGroupData[{ Cell["x^5 - x^2 + 17 x + 1 == 0", "Input", PageWidth->Infinity], Cell[BoxData[ \(1 + 17\ x - x\^2 + x\^5 == 0\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["NSolve[%, x]", "Input", PageWidth->Infinity], Cell[BoxData[ \({{x \[Rule] \(-1.42253377442893613`\) - 1.49684969146797675`\ I}, { x \[Rule] \(-1.42253377442893613`\) + 1.49684969146797675`\ I}, { x \[Rule] \(-0.0586213438686885712`\)}, { x \[Rule] \(1.45184444636328047`\[InvisibleSpace]\) - 1.37572303461039879`\ I}, { x \[Rule] \(1.45184444636328047`\[InvisibleSpace]\) + 1.37572303461039879`\ I}}\)], "Output"] }, Open ]], Cell["\<\ f[x_] := 1 + x^2 Sin[x] - Tan[ Log[x^2+1] ] \ \>", "Input", PageWidth->Infinity], Cell[CellGroupData[{ Cell["NSolve[ f[x] == 0, x ] ;", "Input", PageWidth->Infinity], Cell[BoxData[ \(Solve::"tdep" \( : \ \) "The equations appear to involve transcendental functions of the \ variables in an essentially non-algebraic way."\)], "Message"] }, Open ]], Cell[CellGroupData[{ Cell["FindRoot[ f[x] == 0, {x,1} ]", "Input", PageWidth->Infinity], Cell[BoxData[ \({x \[Rule] \(-0.800510238580718436`\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Plot[ f[x], {x,-3,3}]", "Input", PageWidth->Infinity], 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 /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.15873 0.30093 0.0125827 [ [.02381 .28843 -6 -9 ] [.02381 .28843 6 0 ] [.18254 .28843 -6 -9 ] [.18254 .28843 6 0 ] [.34127 .28843 -6 -9 ] [.34127 .28843 6 0 ] [.65873 .28843 -3 -9 ] [.65873 .28843 3 0 ] [.81746 .28843 -3 -9 ] [.81746 .28843 3 0 ] [.97619 .28843 -3 -9 ] [.97619 .28843 3 0 ] [.4875 .04928 -18 -4.5 ] [.4875 .04928 0 4.5 ] [.4875 .1751 -18 -4.5 ] [.4875 .1751 0 4.5 ] [.4875 .42676 -12 -4.5 ] [.4875 .42676 0 4.5 ] [.4875 .55258 -12 -4.5 ] [.4875 .55258 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid .02381 .30093 m .02381 .30718 L s [(-3)] .02381 .28843 0 1 Mshowa .18254 .30093 m .18254 .30718 L s [(-2)] .18254 .28843 0 1 Mshowa .34127 .30093 m .34127 .30718 L s [(-1)] .34127 .28843 0 1 Mshowa .65873 .30093 m .65873 .30718 L s [(1)] .65873 .28843 0 1 Mshowa .81746 .30093 m .81746 .30718 L s [(2)] .81746 .28843 0 1 Mshowa .97619 .30093 m .97619 .30718 L s [(3)] .97619 .28843 0 1 Mshowa .125 Mabswid .05556 .30093 m .05556 .30468 L s .0873 .30093 m .0873 .30468 L s .11905 .30093 m .11905 .30468 L s .15079 .30093 m .15079 .30468 L s .21429 .30093 m .21429 .30468 L s .24603 .30093 m .24603 .30468 L s .27778 .30093 m .27778 .30468 L s .30952 .30093 m .30952 .30468 L s .37302 .30093 m .37302 .30468 L s .40476 .30093 m .40476 .30468 L s .43651 .30093 m .43651 .30468 L s .46825 .30093 m .46825 .30468 L s .53175 .30093 m .53175 .30468 L s .56349 .30093 m .56349 .30468 L s .59524 .30093 m .59524 .30468 L s .62698 .30093 m .62698 .30468 L s .69048 .30093 m .69048 .30468 L s .72222 .30093 m .72222 .30468 L s .75397 .30093 m .75397 .30468 L s .78571 .30093 m .78571 .30468 L s .84921 .30093 m .84921 .30468 L s .88095 .30093 m .88095 .30468 L s .9127 .30093 m .9127 .30468 L s .94444 .30093 m .94444 .30468 L s .25 Mabswid 0 .30093 m 1 .30093 L s .5 .04928 m .50625 .04928 L s [(-20)] .4875 .04928 1 0 Mshowa .5 .1751 m .50625 .1751 L s [(-10)] .4875 .1751 1 0 Mshowa .5 .42676 m .50625 .42676 L s [(10)] .4875 .42676 1 0 Mshowa .5 .55258 m .50625 .55258 L s [(20)] .4875 .55258 1 0 Mshowa .125 Mabswid .5 .07444 m .50375 .07444 L s .5 .09961 m .50375 .09961 L s .5 .12477 m .50375 .12477 L s .5 .14994 m .50375 .14994 L s .5 .20027 m .50375 .20027 L s .5 .22543 m .50375 .22543 L s .5 .2506 m .50375 .2506 L s .5 .27577 m .50375 .27577 L s .5 .3261 m .50375 .3261 L s .5 .35126 m .50375 .35126 L s .5 .37643 m .50375 .37643 L s .5 .40159 m .50375 .40159 L s .5 .45192 m .50375 .45192 L s .5 .47709 m .50375 .47709 L s .5 .50225 m .50375 .50225 L s .5 .52742 m .50375 .52742 L s .5 .02411 m .50375 .02411 L s .5 .57775 m .50375 .57775 L s .5 .60292 m .50375 .60292 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 .02381 .31154 m .03279 .30707 L .04262 .30287 L .053 .29928 L .06244 .29678 L .06786 .29568 L .07298 .29488 L .07579 .29455 L .07839 .2943 L .08124 .2941 L .08268 .29403 L .08349 .294 L .08426 .29398 L .08551 .29395 L .08622 .29394 L .08688 .29394 L .08809 .29395 L .08937 .29397 L .09063 .29401 L .09182 .29407 L .09405 .29421 L .09533 .29431 L .09668 .29445 L .09911 .29474 L .10458 .29565 L .10954 .29682 L .11406 .2982 L .11892 .30005 L .12422 .30257 L .12911 .30543 L .13363 .30864 L .14255 .31702 L .14718 .32284 L .15218 .33073 L .15689 .34034 L .16122 .35185 L .16601 .36931 L .16872 .38259 L .17125 .3983 L .17393 .42019 L .17636 .44732 L .17771 .46685 L .17917 .49338 L .18055 .52578 L .18182 .56508 L .18307 .61755 L s .18307 .61755 m .18308 .61803 L s .18926 .61803 m .18931 0 L s .19919 0 m .1995 .00995 L .20058 .03753 L .20186 .06364 L .20322 .0858 L .20566 .11598 L .20829 .13955 L .21119 .1589 L .21368 .1719 L .21637 .18326 L .22122 .19913 L .2262 .21132 L .23082 .22027 L .2413 .23544 L .25152 .24621 L .26241 .25523 L .2838 .26878 L .30396 .27865 L .34248 .29285 L .3624 .29841 L .38345 .30318 L .40329 .30673 L .42139 .30924 L .44088 .31123 L .45161 .31204 L .46178 .31263 L .47142 .31304 L .47629 .31319 L .48167 .31333 L .48624 .31341 L .4888 .31345 L .49116 .31347 L .49324 .31349 L .49442 .3135 L .4955 .3135 L .49665 .31351 L .49787 .31351 L .49901 .31351 L .50008 .31351 L .50123 .31351 L .50247 .31351 L .50363 .31351 L .5047 .3135 L .50731 .31349 L .50979 .31347 L .5147 .31342 L .52007 .31334 L .53852 .31297 L .55985 .31249 L .56992 .3123 L Mistroke .57434 .31223 L .57918 .31217 L .58389 .31212 L .58647 .3121 L .58887 .31209 L .59023 .31208 L .59151 .31208 L .59267 .31208 L .59393 .31208 L .59458 .31208 L .59529 .31208 L .59604 .31208 L .59674 .31208 L .59799 .31208 L .5987 .31208 L .59934 .31208 L .60163 .31209 L .60376 .31211 L .6061 .31213 L .6086 .31215 L .6137 .31222 L .61833 .3123 L .62832 .31254 L .63753 .31282 L .65833 .31363 L .66816 .31405 L .6787 .31446 L .68381 .31463 L .68866 .31476 L .69077 .31481 L .69301 .31485 L .69431 .31487 L .69547 .31488 L .69665 .3149 L .69776 .3149 L .6989 .31491 L .69996 .31491 L .70113 .31491 L .70238 .3149 L .70369 .31489 L .70493 .31487 L .70605 .31486 L .70726 .31483 L .70946 .31477 L .71179 .31469 L .71598 .31447 L .71831 .31431 L .72082 .31411 L .72535 .31363 L .73073 .31286 L Mistroke .73566 .3119 L .74042 .31071 L .7455 .30906 L .75029 .30707 L .75464 .3048 L .75976 .30139 L .76531 .2965 L .77054 .29028 L .77536 .28256 L .78005 .2723 L .78269 .26483 L .78509 .25652 L .78732 .2471 L .78975 .23436 L .79205 .219 L .79417 .20065 L .79536 .18808 L .79663 .17195 L .79893 .13304 L .80027 .10184 L .80168 .05788 L .80288 .00623 L Mfstroke .80288 .00623 m .80298 0 L s .8108 0 m .81084 .61803 L s .81947 .61803 m .81961 .6138 L .8209 .58455 L .82226 .56031 L .8247 .52808 L .82696 .50646 L .82906 .49092 L .83385 .46585 L .83654 .45574 L .83909 .4479 L .84386 .4364 L .849 .42714 L .85458 .41945 L .864 .40985 L .87439 .40208 L .8954 .39023 L .93565 .36966 L .97437 .34485 L .97619 .3435 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", PageWidth->Infinity, Evaluatable->False, ImageSize->{300, 185}, ImageMargins->{{100, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgGoo00<007oo0000 FGoo00<007ooOol0Egoo00@007ooOol003Uoo`00>Goo00<007oo0000FGoo00<007ooOol0Egoo00@0 07ooOol003Uoo`00>Goo00@007ooOol005Qoo`03001oogoo05Moo`04001oogoo000iOol003Uoo`04 001oogoo001HOol00`00Oomoo`1GOol01000Oomoo`00>Goo000iOol01000Oomoo`00F7oo00<007oo Ool0Egoo00@007ooOol003Uoo`00>Goo00@007ooOol005Qoo`03001oogoo05Moo`04001oogoo000i Ool003Uoo`04001oogoo001HOol00`00Oomoo`1GOol01000Oomoo`00>Goo000iOol01000Oomoo`00 F7oo00<007ooOol0Egoo00@007ooOol003Uoo`00>Goo00@007ooOol005Qoo`8005Qoo`04001oogoo 000iOol003Uoo`04001oogoo001HOol00`00Oomoo`1GOol01000Oomoo`00>Goo000iOol01000Oomo o`00F7oo00<007ooOol0Egoo00@007ooOol003Uoo`00>Goo00@007ooOol005Qoo`03001oogoo05Mo o`04001oogoo000iOol003Uoo`04001oogoo001HOol00`00Oomoo`1GOol01000Oomoo`00>Goo000i Ool01000Oomoo`00Bgoo0`000goo00<007ooOol017oo00<007ooOol0Egoo00@007ooOol003Uoo`00 >Goo00@007ooOol004]oo`03001oogoo009oo`03001oo`0000Eoo`03001oogoo05Moo`04001oogoo 000iOol003Uoo`04001oogoo0016Ool30003Ool01`00Oomoogoo001oo`0000Eoo`<005Moo`04001o ogoo000iOol003Uoo`04001oogoo001Goo000iOol01000Oomoo`00C7oo00<007ooOol00Woo00<007ooOol017oo 00<007ooOol0Egoo00@007ooOol003Uoo`00>Goo00@007ooOol005Qoo`03001oogoo05Moo`04001o ogoo000iOol003Uoo`04001oogoo001HOol00`00Oomoo`1GOol01000Oomoo`00>Goo000iOol01000 Oomoo`00F7oo00<007ooOol0Egoo00@007ooOol003Uoo`00>Goo00@007ooOol005Qoo`03001oogoo 05Moo`04001oogoo000iOol003Uoo`05001oogooOol0001GOol2001HOol01000Oomoo`00>Goo000i Ool01@00Oomoogoo0000Egoo00<007ooOol0Egoo00@007ooOol003Uoo`00>Goo00D007ooOomoo`00 05Moo`03001oogoo05Ioo`05001oogooOol0000iOol003Uoo`05001oogooOol0001GOol00`00Oomo o`1FOol01@00Oomoogoo0000>Goo000iOol01@00Oomoogoo0000Egoo00<007ooOol0EWoo00D007oo Oomoo`0003Uoo`00>Goo00D007ooOomoo`0005Moo`03001oogoo05Ioo`05001oogooOol0000iOol0 03Uoo`05001oogooOol0001GOol00`00Oomoo`1FOol01@00Oomoogoo0000>Goo000iOol01@00Oomo ogoo0000Egoo0P00Egoo00D007ooOomoo`0003Uoo`00>Goo00D007ooOomoo`0005Moo`03001oogoo 05Ioo`05001oogooOol0000iOol003Uoo`05001oogooOol0001GOol00`00Oomoo`1FOol01@00Oomo ogoo0000>Goo000iOol01@00Oomoogoo0000Egoo00<007ooOol0EWoo00D007ooOomoo`0003Uoo`00 >Goo00D007ooOomoo`0005Moo`03001oogoo05Ioo`05001oogooOol0000iOol003Uoo`05001oogoo Ool0001GOol00`00Oomoo`1FOol01@00Oomoogoo0000>Goo000iOol01@00Oomoogoo0000Egoo00<0 07ooOol0EWoo00D007ooOomoo`0003Uoo`00>Goo00D007ooOomoo`0005Moo`03001oogoo05Ioo`05 001oogooOol0000iOol003Uoo`05001oogooOol0001GOol2001GOol01@00Oomoogoo0000>Goo000i Ool00`00Oomoo`02Ool00`00Oomoo`1DOol00`00Oomoo`1FOol01@00Oomoogoo0000>Goo000iOol0 0`00Oomoo`02Ool00`00Oomoo`1DOol00`00Oomoo`1FOol01@00Oomoogoo0000>Goo000iOol00`00 Oomoo`02Ool00`00Oomoo`1DOol00`00Oomoo`1FOol01@00Oomoogoo0000>Goo000iOol00`00Oomo o`02Ool00`00Oomoo`1DOol00`00Oomoo`1FOol01@00Oomoogoo0000>Goo000iOol00`00Oomoo`02 Ool00`00Oomoo`1DOol00`00Oomoo`1FOol01@00Oomoogoo0000>Goo000iOol00`00Oomoo`02Ool0 0`00Oomoo`1DOol00`00Oomoo`1FOol01@00Oomoogoo0000>Goo000iOol00`00Oomoo`02Ool00`00 Oomoo`1DOol2001GOol01@00Oomoogoo0000>Goo000iOol00`00Oomoo`03Ool00`00Oomoo`1COol0 0`00Oomoo`1EOol00`00Oomoo`02Ool00`00Oomoo`0gOol003Uoo`03001oogoo00=oo`03001oogoo 05=oo`03001oogoo05Eoo`03001oogoo009oo`03001oogoo03Moo`00>Goo00<007ooOol00goo00<0 07ooOol0Dgoo00<007ooOol0EGoo00<007ooOol00Woo00<007ooOol0=goo000iOol00`00Oomoo`03 Ool00`00Oomoo`1COol00`00Oomoo`1EOol00`00Oomoo`02Ool00`00Oomoo`0gOol003Uoo`03001o ogoo00=oo`03001oogoo05=oo`03001oogoo05Eoo`03001oogoo009oo`03001oogoo03Moo`00>Goo 00<007ooOol017oo00<007ooOol0A7oo1@000Woo00<007ooOol017oo00<007ooOol0EGoo00<007oo Ool00Woo00<007ooOol0=goo000iOol00`00Oomoo`04Ool00`00Oomoo`16Ool01`00Oomoogoo001o o`0000Eoo`03001oogoo05Eoo`03001oogoo009oo`03001oogoo03Moo`00>Goo00<007ooOol017oo 00<007ooOol0@7oo0`000goo00L007ooOomoo`00Ool00005Ool3001EOol00`00Oomoo`02Ool00`00 Oomoo`0gOol003Uoo`03001oogoo00Eoo`03001oogoo04Eoo`07001oogooOol007oo00001Goo00<0 07ooOol0EGoo00<007ooOol00Woo00<007ooOol0=goo000iOol00`00Oomoo`05Ool00`00Oomoo`15 Ool01`00Oomoogoo001oo`0000Eoo`03001oogoo05Eoo`03001oogoo009oo`03001oogoo03Moo`00 >Goo00<007ooOol01Goo00<007ooOol0A7oo0P0017oo00<007ooOol017oo00<007ooOol0EGoo00<0 07ooOol00Woo00<007ooOol0=goo000iOol00`00Oomoo`05Ool00`00Oomoo`1AOol00`00Oomoo`1E Ool00`00Oomoo`02Ool00`00Oomoo`0gOol003Uoo`03001oogoo00Ioo`03001oogoo051oo`03001o ogoo05Eoo`03001oogoo009oo`03001oogoo03Moo`00>Goo00<007ooOol01Woo00<007ooOol0D7oo 00<007ooOol0EGoo00<007ooOol00Woo00<007ooOol0=goo000iOol00`00Oomoo`06Ool00`00Oomo o`1@Ool2001FOol00`00Oomoo`02Ool00`00Oomoo`0gOol003Uoo`03001oogoo00Ioo`03001oogoo 051oo`03001oogoo05Eoo`03001oogoo009oo`03001oogoo03Moo`00>Goo00<007ooOol01goo00<0 07ooOol0Cgoo00<007ooOol0EGoo00<007ooOol00Woo00<007ooOol0=goo000iOol00`00Oomoo`07 Ool00`00Oomoo`1?Ool00`00Oomoo`1DOol00`00Oomoo`03Ool00`00Oomoo`0gOol003Uoo`03001o ogoo00Qoo`03001oogoo04ioo`03001oogoo05Aoo`03001oogoo00=oo`03001oogoo03Moo`00>Goo 00<007ooOol027oo00<007ooOol0CWoo00<007ooOol0E7oo00<007ooOol00goo00<007ooOol0=goo 000iOol00`00Oomoo`09Ool00`00Oomoo`1=Ool00`00Oomoo`1DOol00`00Oomoo`03Ool00`00Oomo o`0gOol003Uoo`03001oogoo00Yoo`03001oogoo04aoo`03001oogoo05Aoo`03001oogoo00=oo`03 001oogoo03Moo`00>Goo00<007ooOol02Woo00<007ooOol0C7oo0P00E7oo00<007ooOol017oo00<0 07ooOol0=goo000iOol00`00Oomoo`0;Ool00`00Oomoo`1;Ool00`00Oomoo`1COol00`00Oomoo`04 Ool00`00Oomoo`0gOol003Uoo`03001oogoo00]oo`03001oogoo04]oo`03001oogoo05=oo`03001o ogoo00Aoo`03001oogoo03Moo`00>Goo00<007ooOol037oo00<007ooOol0BWoo00<007ooOol0Dgoo 00<007ooOol017oo00<007ooOol0=goo000iOol00`00Oomoo`0=Ool00`00Oomoo`19Ool00`00Oomo o`1COol00`00Oomoo`04Ool00`00Oomoo`0gOol003Uoo`03001oogoo00ioo`03001oogoo04Qoo`03 001oogoo05=oo`03001oogoo00Aoo`03001oogoo03Moo`00>Goo00<007ooOol03goo00<007ooOol0 Agoo00<007ooOol0Dgoo00<007ooOol017oo00<007ooOol0=goo000iOol00`00Oomoo`0@Ool20017 Ool2001DOol00`00Oomoo`04Ool00`00Oomoo`0gOol003Uoo`03001oogoo019oo`03001oogoo04Ao o`03001oogoo059oo`03001oogoo00Eoo`03001oogoo03Moo`00>Goo00<007ooOol04goo0P00A7oo 00<007ooOol0DWoo00<007ooOol01Goo00<007ooOol0=goo0008Ool2000]Ool3000GOol00`00Oomo o`0BOol5000ZOol00`00Oomoo`0ZOol5000ROol00`00Oomoo`06Ool3000/Ool20009Ool000Yoo`03 001oogoo02Yoo`03001oo`0001Qoo`03001oogoo01=oo`03001oogoo02Yoo`03001oogoo02aoo`03 001oogoo029oo`03001oogoo00Ioo`03001oogoo02ioo`03001oogoo00Ioo`000goo0`000goo00<0 07ooOol09Woo0`000goo0P006Goo0P003Goo0`000goo00<007ooOol0:Woo00<007ooOol0;7oo00<0 07ooOol08Woo00<007ooOol01Woo0P00;Woo00<007ooOol01goo000:Ool00`00Oomoo`0[Ool2000K Ool2000AOol00`00Oomoo`0ZOol00`00Oomoo`0/Ool00`00Oomoo`0QOol00`00Oomoo`07Ool2000_ Ool00`00Oomoo`06Ool000Qoo`03001oo`0002aoo`03001oo`0001eoo`<000ioo`03001oogoo02Yo o`03001oogoo02aoo`03001oogoo025oo`03001oogoo00Moo`03001oo`0002aoo`03001oo`0000Qo o`002Goo00<007ooOol0;7oo0P0087oo0`002Woo0P00;7oo0P00;7oo0P008goo00<007ooOol01goo 0P00;Woo00<007ooOol01goo000iOol00`00Oomoo`0QOol2000fOol00`00Oomoo`1?Ool00`00Oomo o`08Ool00`00Oomoo`0gOol003Uoo`03001oogoo02=oo`8003Aoo`03001oogoo04moo`03001oogoo 00Qoo`03001oogoo03Moo`00>Goo00<007ooOol09Goo0P00Ool00`00Oomoo`09 Ool00`00Oomoo`0gOol001Ioo`T001Yoo`03001oogoo02Uoo`@002aoo`03001oogoo04eoo`03001o ogoo00Yoo`03001oogoo03Moo`004Woo10002Goo10005Woo00<007ooOol0;Goo1@009goo00<007oo Ool0C7oo00<007ooOol02goo00<007ooOol0=goo003o000/0001Ool000Moo`03001oogoo009oo`<0 009oo`03001oogoo00Ioo`03001oogoo00Moo`@000Eoo`03001oogoo00Ioo`04001oogoo0006Ool0 0`00Oomoo`06Ool00`00Oomoo`07Ool00`00Oomoo`06Ool00`00Oomoo`07Ool00`00Oomoo`06Ool0 0`00Ool000030004Ool00`00Oomoo`06Ool00`00Oomoo`07Ool00`00Oomoo`06Ool00`00Oomoo`06 Ool00`00Oomoo`07Ool00`00Oomoo`06Ool00`00Oomoo`07Ool00`00Oomoo`06Ool00`00Oomoo`07 Ool00`00Oomoo`06Ool00`00Oomoo`07Ool00`00Oomoo`06Ool00`00Oomoo`05Ool00`00Ool00008 Ool00`00Oomoo`06Ool00`00Oomoo`07Ool00`00Oomoo`06Ool00`00Oomoo`07Ool00`00Oomoo`06 Ool000Moo`03001oo`00008001aoo`03001oogoo00]oo`03001oo`0002eoo`03001oogoo00aoo`H0 01Yoo`03001oogoo02aoo`03001oogoo01Uoo`03001oogoo00moo`03001oo`0002ioo`03001oogoo 00Ioo`001goo0P0087oo00<007ooOol037oo00<007ooOol0@7oo3P0037oo00<007ooOol04Goo4@00 8Goo1@004Woo00<007ooOol0=goo000ZOol00`00Oomoo`0;Ool00`00Oomoo`1>OolP000AOolQ000G Ool00`00Oomoo`0gOol002]oo`03001oogoo00Yoo`03001oogoo05Yoo`03001oogoo05Yoo`03001o ogoo03Moo`00:goo00<007ooOol02Woo00<007ooOol0FWoo00<007ooOol0FWoo00<007ooOol0=goo 000/Ool00`00Oomoo`09Ool00`00Oomoo`1JOol00`00Oomoo`1JOol00`00Oomoo`0gOol002aoo`03 001oogoo00Uoo`03001oogoo05Yoo`8005]oo`03001oogoo03Moo`00;Goo00<007ooOol027oo00<0 07ooOol0FWoo00<007ooOol0FWoo00<007ooOol0=goo000^Ool00`00Oomoo`07Ool00`00Oomoo`1J Ool00`00Oomoo`1JOol00`00Oomoo`0gOol002ioo`03001oogoo00Moo`03001oogoo05Yoo`03001o ogoo05Yoo`03001oogoo03Moo`00;goo00<007ooOol01Woo00<007ooOol0FWoo00<007ooOol0FWoo 00<007ooOol0=goo000_Ool00`00Oomoo`06Ool00`00Oomoo`1JOol00`00Oomoo`1JOol00`00Oomo o`0]Ool20008Ool0031oo`03001oogoo00Eoo`03001oogoo05Yoo`03001oogoo05Yoo`03001oogoo 02]oo`8000Yoo`00<7oo00<007ooOol01Goo00<007ooOol0FWoo0P00Fgoo00<007ooOol0:Woo00<0 07ooOol02Woo000`Ool00`00Oomoo`05Ool00`00Oomoo`1JOol00`00Oomoo`1JOol00`00Oomoo`0Y Ool00`00Oomoo`0;Ool0035oo`03001oogoo00Aoo`03001oogoo05Yoo`03001oogoo05Yoo`03001o ogoo02Moo`8000ioo`00Ool0 0`00Oomoo`0VOol003=oo`03001oogoo009oo`03001oogoo05Yoo`03001oogoo05Yoo`03001oogoo 00eoo`03001oogoo02Moo`00=7oo00D007ooOomoo`0005aoo`03001oogoo05Yoo`03001oogoo00ao o`03001oogoo02Qoo`00=7oo00D007ooOomoo`0005aoo`03001oogoo05Yoo`03001oogoo00]oo`03 001oogoo02Uoo`00=7oo00D007ooOomoo`0005aoo`03001oogoo05Yoo`03001oogoo00Yoo`03001o ogoo02Yoo`00=7oo00D007ooOomoo`0004ioo`D0009oo`03001oogoo00Aoo`03001oogoo05Yoo`03 001oogoo00Uoo`03001oogoo02]oo`00=7oo00D007ooOomoo`00051oo`07001oogooOol007oo0000 1Goo00<007ooOol0FWoo00<007ooOol02Goo00<007ooOol0:goo000dOol01@00Oomoogoo0000D7oo 00L007ooOomoo`00Ool00005Ool3001JOol00`00Oomoo`08Ool00`00Oomoo`0/Ool003Aoo`05001o ogooOol0001@Ool01`00Oomoogoo001oo`0000Eoo`03001oogoo05Yoo`03001oogoo00Moo`03001o ogoo02eoo`00=7oo00D007ooOomoo`00051oo`07001oogooOol007oo00001Goo00<007ooOol0FWoo 00<007ooOol01Woo00<007ooOol0;Woo000eOol01000Oomoo`00Cgoo0P0017oo00<007ooOol017oo 00<007ooOol0FWoo00<007ooOol01Woo00<007ooOol0;Woo000eOol01000Oomoo`00G7oo00<007oo Ool0FWoo00<007ooOol01Goo00<007ooOol0;goo000eOol01000Oomoo`00G7oo00<007ooOol0FWoo 00<007ooOol01Goo00<007ooOol0;goo000eOol01000Oomoo`00G7oo00<007ooOol0FWoo00<007oo Ool01Goo00<007ooOol0;goo000eOol01000Oomoo`00G7oo0P00Fgoo00<007ooOol017oo00<007oo Ool0<7oo000eOol01000Oomoo`00G7oo00<007ooOol0FWoo00<007ooOol017oo00<007ooOol0<7oo 000eOol01000Oomoo`00G7oo00<007ooOol0FWoo00<007ooOol017oo00<007ooOol0<7oo000eOol0 1000Oomoo`00G7oo00<007ooOol0FWoo00<007ooOol00goo00<007ooOol0"], ImageRangeCache->{{{0, 299}, {184, 0}} -> {-3.16354, -23.9162, 0.0211608, 0.266943}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["FindRoot[ f[x], {x,1.5}]", "Input", PageWidth->Infinity], Cell[BoxData[ \({x \[Rule] 1.64024139884011566`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Plot[ Sqrt[Abs[x-1]], {x,-2,3} ]", "Input", PageWidth->Infinity], 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 /Courier findfont 10 scalefont setfont % Scaling calculations 0.404762 0.190476 0.0147151 0.339831 [ [.02381 .00222 -6 -9 ] [.02381 .00222 6 0 ] [.21429 .00222 -6 -9 ] [.21429 .00222 6 0 ] [.59524 .00222 -3 -9 ] [.59524 .00222 3 0 ] [.78571 .00222 -3 -9 ] [.78571 .00222 3 0 ] [.97619 .00222 -3 -9 ] [.97619 .00222 3 0 ] [.39226 .09967 -24 -4.5 ] [.39226 .09967 0 4.5 ] [.39226 .18463 -18 -4.5 ] [.39226 .18463 0 4.5 ] [.39226 .26959 -24 -4.5 ] [.39226 .26959 0 4.5 ] [.39226 .35455 -6 -4.5 ] [.39226 .35455 0 4.5 ] [.39226 .4395 -24 -4.5 ] [.39226 .4395 0 4.5 ] [.39226 .52446 -18 -4.5 ] [.39226 .52446 0 4.5 ] [.39226 .60942 -24 -4.5 ] [.39226 .60942 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid .02381 .01472 m .02381 .02097 L s [(-2)] .02381 .00222 0 1 Mshowa .21429 .01472 m .21429 .02097 L s [(-1)] .21429 .00222 0 1 Mshowa .59524 .01472 m .59524 .02097 L s [(1)] .59524 .00222 0 1 Mshowa .78571 .01472 m .78571 .02097 L s [(2)] .78571 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(3)] .97619 .00222 0 1 Mshowa .125 Mabswid .0619 .01472 m .0619 .01847 L s .1 .01472 m .1 .01847 L s .1381 .01472 m .1381 .01847 L s .17619 .01472 m .17619 .01847 L s .25238 .01472 m .25238 .01847 L s .29048 .01472 m .29048 .01847 L s .32857 .01472 m .32857 .01847 L s .36667 .01472 m .36667 .01847 L s .44286 .01472 m .44286 .01847 L s .48095 .01472 m .48095 .01847 L s .51905 .01472 m .51905 .01847 L s .55714 .01472 m .55714 .01847 L s .63333 .01472 m .63333 .01847 L s .67143 .01472 m .67143 .01847 L s .70952 .01472 m .70952 .01847 L s .74762 .01472 m .74762 .01847 L s .82381 .01472 m .82381 .01847 L s .8619 .01472 m .8619 .01847 L s .9 .01472 m .9 .01847 L s .9381 .01472 m .9381 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .40476 .09967 m .41101 .09967 L s [(0.25)] .39226 .09967 1 0 Mshowa .40476 .18463 m .41101 .18463 L s [(0.5)] .39226 .18463 1 0 Mshowa .40476 .26959 m .41101 .26959 L s [(0.75)] .39226 .26959 1 0 Mshowa .40476 .35455 m .41101 .35455 L s [(1)] .39226 .35455 1 0 Mshowa .40476 .4395 m .41101 .4395 L s [(1.25)] .39226 .4395 1 0 Mshowa .40476 .52446 m .41101 .52446 L s [(1.5)] .39226 .52446 1 0 Mshowa .40476 .60942 m .41101 .60942 L s [(1.75)] .39226 .60942 1 0 Mshowa .125 Mabswid .40476 .03171 m .40851 .03171 L s .40476 .0487 m .40851 .0487 L s .40476 .06569 m .40851 .06569 L s .40476 .08268 m .40851 .08268 L s .40476 .11666 m .40851 .11666 L s .40476 .13366 m .40851 .13366 L s .40476 .15065 m .40851 .15065 L s .40476 .16764 m .40851 .16764 L s .40476 .20162 m .40851 .20162 L s .40476 .21861 m .40851 .21861 L s .40476 .2356 m .40851 .2356 L s .40476 .2526 m .40851 .2526 L s .40476 .28658 m .40851 .28658 L s .40476 .30357 m .40851 .30357 L s .40476 .32056 m .40851 .32056 L s .40476 .33755 m .40851 .33755 L s .40476 .37154 m .40851 .37154 L s .40476 .38853 m .40851 .38853 L s .40476 .40552 m .40851 .40552 L s .40476 .42251 m .40851 .42251 L s .40476 .45649 m .40851 .45649 L s .40476 .47349 m .40851 .47349 L s .40476 .49048 m .40851 .49048 L s .40476 .50747 m .40851 .50747 L s .40476 .54145 m .40851 .54145 L s .40476 .55844 m .40851 .55844 L s .40476 .57544 m .40851 .57544 L s .40476 .59243 m .40851 .59243 L s .25 Mabswid .40476 0 m .40476 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .60332 m .06244 .58307 L .10458 .56014 L .14415 .53768 L .18221 .51513 L .22272 .48996 L .26171 .4644 L .30316 .43553 L .34309 .40571 L .3815 .3747 L .42237 .33846 L .46172 .29924 L .49955 .25558 L .52059 .22746 L .53984 .19799 L .55994 .161 L .57861 .11512 L .58857 .07831 L .59068 .0673 L .59291 .05232 L .59407 .04133 L .59535 .02289 L .59651 .0425 L .5976 .05253 L .60009 .06895 L .60276 .08225 L .60763 .10138 L .61832 .13301 L .63956 .17864 L .65968 .21238 L .69801 .26434 L .73879 .30973 L .77806 .34765 L .81581 .38041 L .85601 .41234 L .8947 .44082 L .93584 .46914 L .97546 .49485 L .97619 .49531 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", PageWidth->Infinity, Evaluatable->False, ImageSize->{300, 185}, ImageMargins->{{100, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOol0011o o`03001oo`0003Aoo`03001oogoo06Eoo`03001oogoo039oo`03001oo`00039oo`03001oo`00011o o`004Goo00<007ooOol0Ool00`00Oomoo`1AOol007Yo o`03001oogoo00Uoo`03001oogoo051oo`03001oogoo051oo`00NWoo00<007ooOol027oo00<007oo Ool0DWoo00<007ooOol0Cgoo001jOol20008Ool00`00Oomoo`1DOol00`00Oomoo`1>Ool007Yoo`03 001oogoo00Ioo`03001oogoo05Ioo`03001oogoo04eoo`00NWoo00<007ooOol01Goo00<007ooOol0 F7oo0P00CGoo001jOol00`00Oomoo`04Ool00`00Oomoo`1KOol00`00Oomoo`1:Ool007Yoo`03001o ogoo00=oo`03001oogoo05eoo`03001oogoo04Uoo`00NWoo0P000goo00<007ooOol0Ggoo00<007oo Ool0B7oo001jOol01@00Oomoogoo0000Hgoo00<007ooOol0Agoo001bOol50003Ool01000Oomoo`00 IGoo00<007ooOol0AWoo001dOol00`00Oomoo`03Ool00`00Ool0001WOol00`00Oomoo`15Ool007Ao o`03001oogoo00=oo`<006Qoo`03001oogoo04Aoo`00M7oo00<007ooOol00Woo0P00Jgoo00<007oo Ool0@goo001dOol01`00Oomoogoo001oo`0006aoo`03001oogoo049oo`00Lgoo0P000Woo00@007oo Ool006eoo`80049oo`00MWoo00D007ooOomoo`0006moo`03001oogoo03moo`00MGoo00<007ooOol0 0Woo0P00Kgoo00<007ooOol0?Woo001dOol00`00Oomoo`03Ool00`00Oomoo`1_Ool00`00Oomoo`0m Ool007=oo`03001oogoo00Aoo`03001oogoo071oo`03001oogoo03aoo`00LGoo0P001goo00<007oo Ool0LGoo00<007ooOol0>goo001`Ool00`00Oomoo`07Ool00`00Oomoo`1bOol00`00Oomoo`0jOol0 06moo`03001oogoo00Qoo`8007Aoo`8003Yoo`00KWoo00<007ooOol02Goo00<007ooOol0MGoo00<0 07ooOol0=goo001]Ool00`00Oomoo`0:Ool00`00Oomoo`1fOol00`00Oomoo`0fOol006]oo`8000eo o`03001oogoo07Moo`03001oogoo03Eoo`00JWoo00<007ooOol03Goo00<007ooOol0N7oo00<007oo Ool0=7oo001YOol00`00Oomoo`0>Ool2001jOol2000dOol006Moo`80015oo`03001oogoo07]oo`03 001oogoo035oo`00IWoo00<007ooOol04Goo00<007ooOol0O7oo00<007ooOol0<7oo001UOol00`00 Oomoo`0BOol00`00Oomoo`1mOol2000`Ool006=oo`8001Eoo`03001oogoo07moo`03001oogoo02eo o`00HWoo00<007ooOol05Goo0P00PGoo00<007ooOol0;7oo001QOol00`00Oomoo`0FOol00`00Oomo o`21Ool2000/Ool005moo`80009oo`D0009oo`04001oogooOol30003Ool00`00Oomoo`03Ool00`00 Oomoo`23Ool00`00Oomoo`0YOol005ioo`03001oogoo00Aoo`03001oogoo00Ioo`03001oogoo009o o`03001oo`0000Aoo`03001oogoo08Aoo`03001oogoo02Qoo`00G7oo0P001goo00<007ooOol01goo 00<007ooOol00goo00<007ooOol00Woo0`00QGoo0P00:7oo001KOol00`00Oomoo`07Ool00`00Oomo o`07Ool01000Oomoogoo0P001Goo00<007ooOol0Qgoo00<007ooOol09Goo001IOol2000:Ool00`00 Oomoo`06Ool00`00Ool00002Ool00`00Oomoo`04Ool00`00Oomoo`28Ool2000UOol005Qoo`03001o ogoo00Uoo`8000Uoo`04001oogooOol30004Ool00`00Oomoo`2:Ool00`00Oomoo`0ROol005Ioo`80 029oo`03001oogoo08]oo`03001oogoo025oo`00EGoo00<007ooOol08Woo0P00SGoo0P008Goo001C Ool2000UOol00`00Oomoo`2>Ool00`00Oomoo`0NOol0059oo`03001oogoo02Eoo`03001oogoo08mo o`03001oogoo01eoo`00D7oo0P00:7oo00<007ooOol0T7oo0P007Goo001?Ool00`00Oomoo`0XOol0 0`00Oomoo`2BOol00`00Oomoo`0JOol004eoo`8002]oo`8009Aoo`8001Yoo`00Bgoo0P00;Goo00<0 07ooOol0UGoo0P0067oo001:Ool00`00Oomoo`0]Ool00`00Oomoo`2GOol00`00Oomoo`0EOol004Qo o`80031oo`03001oogoo09Qoo`8001Eoo`00Agoo00<007ooOol0<7oo00<007ooOol0VWoo0P004goo 0015Ool2000cOol2002MOol2000AOol004Aoo`03001oogoo03=oo`03001oogoo09ioo`03001oogoo 00ioo`00@goo00<007ooOol0=7oo00<007ooOol0[goo0011Ool2000gOol00`00Oomoo`2_Ool0041o o`03001oogoo03Moo`800;1oo`00?goo00<007ooOol0>7oo00<007ooOol0[goo000mOol2000kOol0 0`00Oomoo`2_Ool003aoo`03001oogoo02Uoo`D0009oo`03001oogoo009oo`03001oogoo00=oo`03 001oogoo0:moo`00>Woo0P00;Woo00<007ooOol01Woo00<007oo000017oo00<007ooOol0[goo000h Ool2000`Ool00`00Oomoo`08Ool00`00Oomoo`02Ool3002_Ool003Ioo`80039oo`03001oogoo00Io o`8000Eoo`03001oogoo0:moo`00=7oo0P00=7oo00<007ooOol01Woo00<007ooOol017oo00<007oo Ool0[goo000bOol2000eOol20008Ool30004Ool00`00Oomoo`2_Ool0035oo`03001oogoo04Ioo`03 001oogoo0:moo`00;goo0P00BGoo0P00/7oo000]Ool2001;Ool00`00Oomoo`2_Ool002]oo`8004eo o`03001oogoo0:moo`00:Goo0P00Cgoo00<007ooOol0[goo000WOol2001AOol00`00Oomoo`2_Ool0 02Ioo`03001oogoo055oo`800;1oo`0097oo0P00E7oo00<007ooOol0[goo000ROol2001FOol00`00 Oomoo`2_Ool0025oo`03001oogoo05Ioo`03001oogoo0:moo`007goo0P00FGoo0P00/7oo000MOol2 001KOol00`00Oomoo`2_Ool001]oo`8005eoo`03001oogoo0:moo`006Goo0P00Ggoo00<007ooOol0 [goo000GOol2001QOol00`00Oomoo`2_Ool001Eoo`8006=oo`800;1oo`004goo0P00IGoo00<007oo Ool0[goo000AOol2001WOol00`00Oomoo`2_Ool000moo`80059oo`D0009oo`03001oogoo009oo`03 001oogoo009oo`03001oogoo00=oo`03001oogoo0:moo`00IGoo00<007ooOol01goo00L007ooOomo o`00Ool00004Ool00`00Oomoo`2_Ool006Eoo`03001oogoo00Moo`03001oogoo00=oo`03001oogoo 009oo`<00:moo`00IGoo00<007ooOol027oo00<007ooOol00P001Goo00<007ooOol0[goo001UOol0 0`00Oomoo`06Ool00`00Ool00002Ool00`00Oomoo`04Ool00`00Oomoo`2_Ool006Aoo`8000Qoo`<0 009oo`<00;Ioo`00ogoo;Goo0000\ \>"], ImageRangeCache->{{{0, 299}, {184, 0}} -> {-2.2952, -0.131095, 0.018697, 0.0104797}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ FindRoot[ Sqrt[Abs[x-1]] == 0, {x,0,3}, AccuracyGoal -> 6, DampingFactor -> 0.5, MaxIterations -> 100 ]\ \>", "Input", PageWidth->Infinity], Cell[BoxData[ \({x \[Rule] 1.00000000000063016`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Sqrt[Abs[x-1]] /. %\ \>", "Input", PageWidth->Infinity], Cell[BoxData[ \(7.93827808014583702`*^-7\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["funcs = {y^x-x, y^x Log[y]-1}", "Input", PageWidth->Infinity], Cell[BoxData[ \({\(-x\) + y\^x, \(-1\) + y\^x\ Log[y]}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ FindRoot[ funcs, {x,1}, {y,2} ] \ \>", "Input", PageWidth->Infinity], Cell[BoxData[ \({x \[Rule] 2.71828185752917139`, y \[Rule] 1.44466785773993855`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["funcs /. %", "Input", PageWidth->Infinity], Cell[BoxData[ \({\(-1.67242175663773195`*^-8\), \(-1.61068980375489445`*^-9\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ FindMinimum[ Sin[x^2+y^2], {x,1},{y,1} ]\ \>", "Input", PageWidth->Infinity], Cell[BoxData[ \({\(-1.`\), {x \[Rule] 1.53499006191973279`, y \[Rule] 1.53499006191973279`}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["N[Sqrt[3 Pi/4]]", "Input", PageWidth->Infinity], Cell[BoxData[ \(1.53499006191973279`\)], "Output"] }, Open ]], Cell["\<\ \ \>", "Input", PageWidth->Infinity], Cell[TextData["Numerical Integration"], "Section", Evaluatable->False], Cell[CellGroupData[{ Cell["\<\ NIntegrate[1/Sqrt[x], {x,0,1}, WorkingPrecision -> 30 ]\ \>", "Input", PageWidth->Infinity], Cell[BoxData[ \(NIntegrate::"ncvb" \( : \ \) "NIntegrate failed to converge to prescribed accuracy after \!\(7\) \ recursive bisections in \!\(x\) near \!\(x\) = \ \!\(4.36999374790369721`*^-57\)."\)], "Message"], Cell[BoxData[ \(2.0000000000000000000000000001409`19.8179\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Precision[%]", "Input", PageWidth->Infinity], Cell[BoxData[ \(20\)], "Output"] }, Open ]], Cell[TextData["Pade Approximants"], "Section", Evaluatable->False], Cell[CellGroupData[{ Cell["ser = Series[ Log[ 1+x], {x,0,12} ]", "Input", PageWidth->Infinity], Cell[BoxData[ InterpretationBox[ RowBox[{ "x", "-", \(x\^2\/2\), "+", \(x\^3\/3\), "-", \(x\^4\/4\), "+", \(x\^5\/5\), "-", \(x\^6\/6\), "+", \(x\^7\/7\), "-", \(x\^8\/8\), "+", \(x\^9\/9\), "-", \(x\^10\/10\), "+", \(x\^11\/11\), "-", \(x\^12\/12\), "+", InterpretationBox[\(O[x]\^13\), SeriesData[ x, 0, {}, 1, 13, 1]]}], SeriesData[ x, 0, {1, Rational[ -1, 2], Rational[ 1, 3], Rational[ -1, 4], Rational[ 1, 5], Rational[ -1, 6], Rational[ 1, 7], Rational[ -1, 8], Rational[ 1, 9], Rational[ -1, 10], Rational[ 1, 11], Rational[ -1, 12]}, 1, 13, 1]]], "Output"] }, Open ]], Cell["<< Calculus`Pade`", "Input", PageWidth->Infinity], Cell[CellGroupData[{ Cell["??Pade", "Input", PageWidth->Infinity], Cell[BoxData[ \("Pade[func, {x, x0, m, k}] gives the Pade' approximation to func (a \ function of the variable x) where the constant x0 is the center of expansion \ and m and k are the degrees of the numerator and denominator, \ respectively."\)], "Print"], Cell[BoxData[ InterpretationBox[ StyleBox[\(Attributes[Pade]\ = \ {Protected}\n\ \n Pade[Calculus`Pade`Private`f_, \ {Calculus`Pade`Private`x_, \ Calculus`Pade`Private`x0_, \ Calculus`Pade`Private`m_Integer, \ Calculus`Pade`Private`k_Integer}]\ := \ Module[{Calculus`Pade`Private`answer\ = \ Calculus`Pade`Private`Pade0[Calculus`Pade`Private`f, \ {Calculus`Pade`Private`x, \ Calculus`Pade`Private`x0, \ Calculus`Pade`Private`m, \ Calculus`Pade`Private`k}]}, \ Calculus`Pade`Private`answer\ /; \ Calculus`Pade`Private`answer\ =!= \ $Failed]\), ShowStringCharacters->True, NumberMarks->True], InputForm[ Definition[ Pade]], Editable->True, AutoDelete->True]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell["Pade[ Normal[ser], {x,0,6,6} ]", "Input", PageWidth->Infinity], Cell[BoxData[ \(\(x + \(5\ x\^2\)\/2 + \(74\ x\^3\)\/33 + \(19\ x\^4\)\/22 + \(29\ x\^5\)\/220 + \(7\ x\^6\)\/1320\)\/\(1 + 3\ x + \(75\ x\^2\)\/22 + \(20\ x\^3\)\/11 + \(5\ x\^4\)\/11 + x\^5\/22 + x\^6\/924\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["NRoots[ Denominator[%] == 0, x ]", "Input", PageWidth->Infinity], Cell[BoxData[ \(x == \(-29.6162537023145624`\) || x == \(-5.90335127393028624`\) || x == \(-2.62680640678520482`\) || x == \(-1.61470129194792377`\) || x == \(-1.20394214979388403`\) || x == \(-1.03494517522813489`\)\)], "Output"] }, Open ]] }, FrontEndVersion->"Microsoft Windows 3.0", ScreenRectangle->{{0, 1024}, {0, 740}}, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{480, 616}, WindowMargins->{{50, Automatic}, {Automatic, 15}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, StyleDefinitions -> "Report.nb" ] (*********************************************************************** 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[1709, 49, 50, 1, 46, "Text"], Cell[1762, 52, 72, 1, 67, "Section"], Cell[1837, 55, 50, 1, 46, "Text"], Cell[CellGroupData[{ Cell[1912, 60, 69, 1, 35, "Input"], Cell[1984, 63, 63, 1, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2084, 69, 55, 1, 35, "Input"], Cell[2142, 72, 36, 1, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2215, 78, 50, 1, 35, "Input"], Cell[2268, 81, 106, 2, 59, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[2411, 88, 54, 1, 35, "Input"], Cell[2468, 91, 36, 1, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2541, 97, 49, 1, 35, "Input"], Cell[2593, 100, 126, 2, 59, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[2756, 107, 49, 1, 35, "Input"], Cell[2808, 110, 119, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2964, 118, 45, 1, 30, "Input"], Cell[3012, 121, 54, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3103, 127, 52, 1, 30, "Input"], Cell[3158, 130, 36, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3231, 136, 53, 1, 30, "Input"], Cell[3287, 139, 36, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3360, 145, 57, 1, 30, "Input"], Cell[3420, 148, 36, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3493, 154, 57, 1, 30, "Input"], Cell[3553, 157, 89, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3679, 163, 47, 1, 30, "Input"], Cell[3729, 166, 37, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3803, 172, 43, 1, 30, "Input"], Cell[3849, 175, 111, 2, 38, "Message"], Cell[3963, 179, 222, 5, 44, "Message"], Cell[4188, 186, 47, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4272, 192, 43, 1, 30, "Input"], Cell[4318, 195, 111, 2, 38, "Message"], Cell[4432, 199, 93, 2, 29, "Output"], Cell[CellGroupData[{ Cell[4550, 205, 114, 10, 29, "Input"], Cell[4667, 217, 93, 2, 29, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4809, 225, 46, 1, 30, "Input"], Cell[4858, 228, 90, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4985, 235, 43, 1, 30, "Input"], Cell[5031, 238, 35, 1, 29, "Output"] }, Open ]], Cell[5081, 242, 73, 1, 53, "Section"], Cell[CellGroupData[{ Cell[5179, 247, 65, 1, 30, "Input"], Cell[5247, 250, 62, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5346, 256, 52, 1, 30, "Input"], Cell[5401, 259, 451, 9, 67, "Output"] }, Open ]], Cell[5867, 271, 92, 4, 48, "Input"], Cell[CellGroupData[{ Cell[5984, 279, 64, 1, 30, "Input"], Cell[6051, 282, 180, 3, 63, "Message"] }, Open ]], Cell[CellGroupData[{ Cell[6268, 290, 68, 1, 30, "Input"], Cell[6339, 293, 72, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6448, 299, 61, 1, 30, "Input"], Cell[6512, 302, 21105, 630, 193, 6205, 440, "GraphicsData", "PostScript", "Graphics"], Cell[27620, 934, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27787, 942, 64, 1, 30, "Input"], Cell[27854, 945, 66, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27957, 951, 72, 1, 30, "Input"], Cell[28032, 954, 14760, 439, 193, 4246, 303, "GraphicsData", "PostScript", "Graphics"], Cell[42795, 1395, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42962, 1403, 189, 6, 84, "Input"], Cell[43154, 1411, 66, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43257, 1417, 68, 4, 48, "Input"], Cell[43328, 1423, 58, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43423, 1429, 69, 1, 30, "Input"], Cell[43495, 1432, 72, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43604, 1438, 80, 4, 48, "Input"], Cell[43687, 1444, 101, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43825, 1451, 50, 1, 30, "Input"], Cell[43878, 1454, 99, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44014, 1461, 89, 4, 48, "Input"], Cell[44106, 1467, 119, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44262, 1474, 55, 1, 30, "Input"], Cell[44320, 1477, 54, 1, 29, "Output"] }, Open ]], Cell[44389, 1481, 49, 4, 48, "Input"], Cell[44441, 1487, 72, 1, 53, "Section"], Cell[CellGroupData[{ Cell[44538, 1492, 104, 4, 48, "Input"], Cell[44645, 1498, 223, 4, 63, "Message"], Cell[44871, 1504, 75, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44983, 1510, 52, 1, 30, "Input"], Cell[45038, 1513, 36, 1, 29, "Output"] }, Open ]], Cell[45089, 1517, 68, 1, 53, "Section"], Cell[CellGroupData[{ Cell[45182, 1522, 75, 1, 30, "Input"], Cell[45260, 1525, 732, 20, 81, "Output"] }, Open ]], Cell[46007, 1548, 57, 1, 30, "Input"], Cell[CellGroupData[{ Cell[46089, 1553, 46, 1, 30, "Input"], Cell[46138, 1556, 260, 4, 82, "Print"], Cell[46401, 1562, 871, 18, 234, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[47309, 1585, 70, 1, 30, "Input"], Cell[47382, 1588, 254, 4, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47673, 1597, 72, 1, 30, "Input"], Cell[47748, 1600, 251, 4, 48, "Output"] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)