(*********************************************************************** 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[ 31331, 809]*) (*NotebookOutlinePosition[ 32232, 838]*) (* CellTagsIndexPosition[ 32188, 834]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["How to Find the Period of Oscillation", "Title"], Cell["\<\ Using the FindRoot command to find the period of oscillation of a \ pendulum.\ \>", "Subtitle"], Cell["Consider the linearized pendulum equation:", "Text"], Cell[BoxData[ \(\(linPendulumEquation = {\(\[Theta]''\)[ t] + \(g\/l\) \[Theta][t] \[Equal] 0, \(\[Theta]'\)[0] \[Equal] 0, \[Theta][0] \[Equal] \[Theta]R};\)\)], "Input"], Cell[BoxData[ \(\(Parameters = {g \[Rule] 9.81, l \[Rule] 10.0, \[Theta]R \[Rule] 20.0\ Degree};\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(linSolution = NDSolve[linPendulumEquation /. Parameters, \[Theta], {t, 0, 10}]\)], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"\[Theta]", "\[Rule]", TagBox[\(InterpolatingFunction[{{0.`, 10.`}}, "<>"]\), False, Editable->False]}], "}"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Plot[Evaluate[\[Theta][t] /. linSolution], {t, 0, 10}]\)], "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.0238095 0.0952381 0.309014 0.84312 [ [.21429 .29651 -3 -9 ] [.21429 .29651 3 0 ] [.40476 .29651 -3 -9 ] [.40476 .29651 3 0 ] [.59524 .29651 -3 -9 ] [.59524 .29651 3 0 ] [.78571 .29651 -3 -9 ] [.78571 .29651 3 0 ] [.97619 .29651 -6 -9 ] [.97619 .29651 6 0 ] [.01131 .05608 -24 -4.5 ] [.01131 .05608 0 4.5 ] [.01131 .14039 -24 -4.5 ] [.01131 .14039 0 4.5 ] [.01131 .2247 -24 -4.5 ] [.01131 .2247 0 4.5 ] [.01131 .39333 -18 -4.5 ] [.01131 .39333 0 4.5 ] [.01131 .47764 -18 -4.5 ] [.01131 .47764 0 4.5 ] [.01131 .56195 -18 -4.5 ] [.01131 .56195 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 .21429 .30901 m .21429 .31526 L s [(2)] .21429 .29651 0 1 Mshowa .40476 .30901 m .40476 .31526 L s [(4)] .40476 .29651 0 1 Mshowa .59524 .30901 m .59524 .31526 L s [(6)] .59524 .29651 0 1 Mshowa .78571 .30901 m .78571 .31526 L s [(8)] .78571 .29651 0 1 Mshowa .97619 .30901 m .97619 .31526 L s [(10)] .97619 .29651 0 1 Mshowa .125 Mabswid .07143 .30901 m .07143 .31276 L s .11905 .30901 m .11905 .31276 L s .16667 .30901 m .16667 .31276 L s .2619 .30901 m .2619 .31276 L s .30952 .30901 m .30952 .31276 L s .35714 .30901 m .35714 .31276 L s .45238 .30901 m .45238 .31276 L s .5 .30901 m .5 .31276 L s .54762 .30901 m .54762 .31276 L s .64286 .30901 m .64286 .31276 L s .69048 .30901 m .69048 .31276 L s .7381 .30901 m .7381 .31276 L s .83333 .30901 m .83333 .31276 L s .88095 .30901 m .88095 .31276 L s .92857 .30901 m .92857 .31276 L s .25 Mabswid 0 .30901 m 1 .30901 L s .02381 .05608 m .03006 .05608 L s [(-0.3)] .01131 .05608 1 0 Mshowa .02381 .14039 m .03006 .14039 L s [(-0.2)] .01131 .14039 1 0 Mshowa .02381 .2247 m .03006 .2247 L s [(-0.1)] .01131 .2247 1 0 Mshowa .02381 .39333 m .03006 .39333 L s [(0.1)] .01131 .39333 1 0 Mshowa .02381 .47764 m .03006 .47764 L s [(0.2)] .01131 .47764 1 0 Mshowa .02381 .56195 m .03006 .56195 L s [(0.3)] .01131 .56195 1 0 Mshowa .125 Mabswid .02381 .07294 m .02756 .07294 L s .02381 .0898 m .02756 .0898 L s .02381 .10667 m .02756 .10667 L s .02381 .12353 m .02756 .12353 L s .02381 .15725 m .02756 .15725 L s .02381 .17412 m .02756 .17412 L s .02381 .19098 m .02756 .19098 L s .02381 .20784 m .02756 .20784 L s .02381 .24156 m .02756 .24156 L s .02381 .25843 m .02756 .25843 L s .02381 .27529 m .02756 .27529 L s .02381 .29215 m .02756 .29215 L s .02381 .32588 m .02756 .32588 L s .02381 .34274 m .02756 .34274 L s .02381 .3596 m .02756 .3596 L s .02381 .37646 m .02756 .37646 L s .02381 .41019 m .02756 .41019 L s .02381 .42705 m .02756 .42705 L s .02381 .44391 m .02756 .44391 L s .02381 .46078 m .02756 .46078 L s .02381 .4945 m .02756 .4945 L s .02381 .51136 m .02756 .51136 L s .02381 .52823 m .02756 .52823 L s .02381 .54509 m .02756 .54509 L s .02381 .03922 m .02756 .03922 L s .02381 .02235 m .02756 .02235 L s .02381 .00549 m .02756 .00549 L s .02381 .57881 m .02756 .57881 L s .02381 .59568 m .02756 .59568 L s .02381 .61254 m .02756 .61254 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .60332 m .02499 .60329 L .02605 .60324 L .02729 .60312 L .02846 .60297 L .03053 .6026 L .03279 .60204 L .03527 .60123 L .0379 .60016 L .04262 .59771 L .04749 .59444 L .05205 .59071 L .06244 .57988 L .07305 .56557 L .08274 .54975 L .10458 .50545 L .14429 .40099 L .18248 .28568 L .22313 .16739 L .24192 .11997 L .26226 .07684 L .27341 .05748 L .28367 .04264 L .29348 .03128 L .2989 .02624 L .30384 .02242 L .30838 .01958 L .31332 .01723 L .31603 .01626 L .31853 .01558 L .32093 .01511 L .32214 .01494 L .32278 .01487 L .32348 .01481 L .32463 .01474 L .32585 .01472 L .32698 .01473 L .32803 .01479 L .32927 .0149 L .3304 .01504 L .3317 .01525 L .33293 .0155 L .33515 .01608 L .33719 .01675 L .34181 .01874 L .34648 .02144 L .3515 .02509 L .36057 .03365 L .37136 .04701 L .38121 .06209 L Mistroke .42097 .14725 L .45922 .2551 L .49992 .37869 L .5391 .4863 L .55911 .53101 L .56963 .55078 L .58073 .5685 L .59071 .58148 L .59599 .58718 L .60164 .59235 L .60684 .59624 L .61158 .59905 L .61387 .60015 L .61635 .60116 L .6187 .60194 L .62085 .60251 L .62197 .60274 L .62319 .60295 L .62442 .60311 L .62572 .60323 L .62686 .60329 L .62808 .60331 L .62923 .60329 L .63028 .60323 L .63093 .60317 L .63161 .6031 L .63284 .60294 L .63417 .6027 L .63562 .60238 L .63823 .60164 L .64067 .60075 L .64597 .59818 L .65081 .59506 L .66169 .58541 L .67158 .57356 L .68075 .56009 L .7015 .52139 L .74073 .42311 L .77845 .31074 L .81862 .19119 L .85728 .09507 L .87729 .05792 L .88736 .04325 L .89839 .03054 L .90366 .02574 L .90864 .02198 L .91317 .01924 L .91797 .01704 L .92046 .01618 L .92178 .01581 L Mistroke .9232 .01547 L .9245 .01521 L .92569 .01502 L .92688 .01488 L .92802 .01478 L .92933 .01473 L .93006 .01472 L .93072 .01472 L .93201 .01478 L .93323 .01488 L .93392 .01495 L .93465 .01505 L .93596 .01527 L .93891 .01596 L .94142 .01677 L .94378 .01771 L .94822 .01995 L .953 .02305 L .9582 .02723 L .96755 .0368 L .97619 .04794 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg1c<08000ec<08001Ac<000:7<`0`00KG<` 00<007<`Lc003W<`0P00gW<`0P004G<`00<007<`Lc004G<`000XLc000`00Lc1c<01/Lc000`00Lc1c <00ALc000`00Lc1c<03JLc000`00Lc1c<00BLc000`00Lc1c<00@Lc0002Qc<003001c<7<`06]c<003 001c<7<`01=c<003001c<7<`0=Qc<003001c<7<`01Ac<003001c<7<`00mc<000:7<`00<007<`Lc00 JW<`00<007<`Lc005G<`00<007<`Lc00eW<`00<007<`Lc005W<`00<007<`Lc003W<`000XLc000`00 Lc1c<01YLc000`00Lc1c<00GLc000`00Lc1c<03DLc000`00Lc1c<00HLc000`00Lc1c<00=Lc0002Qc <003001c<7<`06Qc<003001c<7<`01Uc<003001c<7<`0=9c<003001c<7<`01Yc<003001c<7<`00ac <000:7<`00<007<`Lc00Ig<`00<007<`Lc006W<`00<007<`Lc00dG<`00<007<`Lc0077<`00<007<` Lc002g<`000XLc03001VLc000`00Lc1c<00LLc000`00Lc1c<03?Lc000`00Lc1c<00MLc000`00Lc1c <00;Lc0002Qc<003001c<7<`06Ec<003001c<7<`01ic<003001c<7<`0JQc<7<`;DHDP`Ic<003001c<7<`05mc<003001c<7<`02]c <003001c<7<`0<1c<003001c<7<`039c<0002g<`00ABB`@Q125JS0ec<006DT/La000000La6[^1W<` 00<007<`Lc00Gg<`00<007<`Lc00:g<`00<007<`Lc00`7<`00<007<`Lc00G<`000XLc000`00Lc1c<01ILc000`00Lc1c<00gLc000`00Lc1c<02cLc000`00Lc1c <00iLc0002Qc<003001c<7<`05Qc<003001c<7<`03Uc<003001c<7<`0;9c<003001c<7<`03Uc<000 :7<`0`00F7<`00<007<`Lc00>G<`00<007<`Lc00/G<`00<007<`Lc00>W<`000XLc000`00Lc1c<01G Lc000`00Lc1c<00kLc000`00Lc1c<02`Lc000`00Lc1c<00jLc0002Qc<003001c<7<`05Mc<003001c <7<`03]c<003001c<7<`0:mc<003001c<7<`03]c<000:7<`00<007<`Lc00EW<`00<007<`Lc00?G<` 00<007<`Lc00[W<`00<007<`Lc00>g<`000XLc000`00Lc1c<01FLc000`00Lc1c<00mLc000`00Lc1c <02^Lc000`00Lc1c<00kLc0002Qc<003001c<7<`05Ec<003001c<7<`03mc<003001c<7<`0:ac<003 001c<7<`03ac<000:7<`0`00EG<`00<007<`Lc00?g<`00<007<`Lc00[7<`00<007<`Lc00?7<`000X Lc000`00Lc1c<01DLc000`00Lc1c<011Lc000`00Lc1c<02ZLc000`00Lc1c<00mLc0002Qc<003001c <7<`05Ac<003001c<7<`045c<003001c<7<`0:Yc<003001c<7<`03ec<000:7<`00<007<`Lc00E7<` 00<007<`Lc00@G<`00<007<`Lc00ZW<`00<007<`Lc00?G<`000XLc000`00Lc1c<01CLc000`00Lc1c <013Lc000`00Lc1c<02XLc000`00Lc1c<00nLc0000]c<004DT/48@00=FL6Lc000bD5000U1@04Lc06 0006Lc000`00Lc1c<01CLc000`00Lc1c<013Lc000`00Lc1c<02XLc000`00Lc1c<00nLc0000Yc<006 FX`DPf[^J^hLc000`00 Lc1c<01=Lc000`00Lc1c<02OLc000`00Lc1c<012Lc0002Qc<003001c<7<`04ic<003001c<7<`04ec <003001c<7<`09mc<003001c<7<`049c<000:7<`00<007<`Lc00CW<`00<007<`Lc00CG<`00<007<` Lc00WW<`00<007<`Lc00@g<`000XLc000`00Lc1c<01=Lc000`00Lc1c<01?Lc000`00Lc1c<02MLc00 0`00Lc1c<013Lc0002Qc<003001c<7<`04ec<003001c<7<`04mc<003001c<7<`09ac<003001c<7<` 04Ac<000:7<`00<007<`Lc00C7<`00<007<`Lc00D7<`00<007<`Lc00W7<`00<007<`Lc00A7<`000X Lc03001Lc000`00Lc1c<01;Lc0000Yc<0067Lc000eZ<9@D00008 Lc000`00Lc1c<014Lc000`00Lc1c<01QLc000`00Lc1c<02:Lc000`00Lc1c<01=Lc0002Qc<003001c <7<`04=c<003001c<7<`06=c<003001c<7<`08Qc<003001c<7<`04ic<000:7<`0`00@g<`00<007<` Lc00Hg<`00<007<`Lc00R7<`00<007<`Lc00CW<`000XLc000`00Lc1c<013Lc000`00Lc1c<01SLc00 0`00Lc1c<028Lc000`00Lc1c<01>Lc0002Qc<003001c<7<`049c<003001c<7<`06Ec<003001c<7<` 08Ic<003001c<7<`04mc<000:7<`00<007<`Lc00@W<`00<007<`Lc00IG<`00<007<`Lc00QW<`00<0 07<`Lc00Cg<`000XLc000`00Lc1c<012Lc000`00Lc1c<01ULc000`00Lc1c<026Lc000`00Lc1c<01? Lc0002Qc<003001c<7<`045c<003001c<7<`06Mc<003001c<7<`08Ac<003001c<7<`051c<000:7<` 0`00@G<`00<007<`Lc00Ig<`00<007<`Lc00Q7<`00<007<`Lc00D7<`000XLc000`00Lc1c<011Lc00 0`00Lc1c<01XLc000`00Lc1c<023Lc000`00Lc1c<01@Lc0002Qc<003001c<7<`041c<003001c<7<` 06Uc<003001c<7<`089c<003001c<7<`055c<000:7<`00<007<`Lc00@7<`00<007<`Lc00JG<`00<0 07<`Lc00PW<`00<007<`Lc00DG<`000XLc000`00Lc1c<010Lc000`00Lc1c<01ZLc000`00Lc1c<021 Lc000`00Lc1c<01ALc0002Qc<003001c<7<`03mc<003001c<7<`06]c<003001c<7<`081c<003001c <7<`059c<000:7<`00<007<`Lc00?g<`00<007<`Lc0017<`1P00BG<`0P0000<48G<`Lc004g<`00<0 07<`Lc00;W<`00IZkQc4000002D5J^i6Lc001f[^7<@000007JQZkW<`=FLDPdQc<003HZdLa00001Uc<003001c<7<`02ac<003 58<]AV:]04Qc<00658<]AV[^J^h001B3@g<`00<001c400001G<`00IJS1B3J^iZkQB3FX`4Lc0002Qc <0<003ac<003001c<7<`00Mc<006BPXDP`00000U1F[^BG<`00g<`00<007<`Lc00 Lg<`00<007<`Lc00N7<`00<007<`Lc00EW<`000XLc000`00Lc1c<00kLc000`00Lc1c<01dLc000`00 Lc1c<01gLc000`00Lc1c<01FLc0002Qc<003001c<7<`03Yc<003001c<7<`07Ec<003001c<7<`07Ic <003001c<7<`05Mc<0007g<`o`00T@000G<`000XLc000`00Lc1c<00ALc000`00Lc1c<00@Lc000`00 Lc1c<00@Lc001000Lc1c<0003g<`00<007<`Lc0047<`00<007<`Lc0047<`00<007<`Lc0047<`00<0 07<`Lc0047<`00<007<`Lc0047<`00<007<`Lc001g<`00<007<`Lc001W<`00<007<`Lc0047<`00<0 07<`Lc0047<`00<007<`Lc0047<`00<007<`Lc0047<`00<007<`Lc0047<`00<007<`Lc003G<`00@0 07<`Lc00019c<003001c<7<`011c<003001c<7<`011c<003001c<7<`011c<003001c<7<`00Qc<000 :7<`00<007<`Lc00>G<`00<007<`Lc003W<`00<007<`Lc00BG<`00<007<`Lc006W<`00<007<`Lc00 ;7<`00<007<`Lc00AG<`00D007<`Lc1c<00004]c<003001c<7<`00Qc<000:7<`00<007<`Lc00>G<` 00<007<`Lc00N7<`00<007<`Lc00Lg<`00<007<`Lc00F7<`000XLc000`00Lc1c<00iLc000`00Lc1c <01hLc000`00Lc1c<01cLc000`00Lc1c<01HLc0002Qc<003001c<7<`03Qc<003001c<7<`07Uc<003 001c<7<`079c<003001c<7<`05Uc<000:7<`0`00>7<`00<007<`Lc00NW<`00<007<`Lc00LG<`00<0 07<`Lc00FG<`000XLc000`00Lc1c<00hLc000`00Lc1c<01jLc000`00Lc1c<01aLc000`00Lc1c<01I Lc0002Qc<003001c<7<`03Mc<003001c<7<`07]c<003001c<7<`071c<003001c<7<`05Yc<000:7<` 00<007<`Lc00=g<`00<007<`Lc00O7<`00<007<`Lc00Kg<`00<007<`Lc00FW<`000XLc000`00Lc1c <00gLc000`00Lc1c<01lLc000`00Lc1c<01_Lc000`00Lc1c<01JLc0002Qc<003001c<7<`03Ic<003 001c<7<`07ec<003001c<7<`06ic<003001c<7<`05]c<000:7<`00<007<`Lc00=W<`00<007<`Lc00 OW<`00<007<`Lc00KG<`00<007<`Lc00Fg<`000XLc03000fLc000`00Lc1c<01nLc000`00Lc1c<01] Lc000`00Lc1c<01KLc0002Qc<003001c<7<`03Ec<003001c<7<`07mc<003001c<7<`06ac<003001c <7<`05ac<000:7<`00<007<`Lc00=G<`00<007<`Lc00P7<`00<007<`Lc00Jg<`00<007<`Lc00G7<` 000XLc000`00Lc1c<00eLc000`00Lc1c<020Lc000`00Lc1c<01[Lc000`00Lc1c<01LLc0002Qc<003 001c<7<`03Ac<003001c<7<`085c<003001c<7<`06Yc<003001c<7<`05ec<000:7<`00<007<`Lc00 =7<`00<007<`Lc00PW<`00<007<`Lc00JG<`00<007<`Lc00GG<`000XLc000`00Lc1c<00dLc000`00 Lc1c<022Lc000`00Lc1c<01YLc000`00Lc1c<01MLc0002Qc<0<003=c<003001c<7<`08=c<003001c <7<`06Qc<003001c<7<`05ic<000:7<`00<007<`Lc00Lc000`00Lc1c<01MLc000`00Lc1c<01SLc00 00Yc<0067JQZkW<`=FLDP`Ic<003001c<7<`025c <003001c<7<`0:Mc<003001c<7<`04Ac<003001c<7<`071c<0002g<`00ABB`@Q125JS0ec<006BPXD P`00000U1F[^1W<`00<007<`Lc0087<`00<007<`Lc00ZG<`00<007<`Lc00@W<`00<007<`Lc00LG<` 000XLc000`00Lc1c<00PLc000`00Lc1c<02YLc000`00Lc1c<012Lc000`00Lc1c<01aLc0002Qc<0<0 021c<003001c<7<`0:Yc<003001c<7<`041c<003001c<7<`079c<000:7<`00<007<`Lc007g<`00<0 07<`Lc00Zg<`00<007<`Lc00@7<`00<007<`Lc00LW<`000XLc000`00Lc1c<00OLc000`00Lc1c<02[ Lc000`00Lc1c<00oLc000`00Lc1c<01cLc0002Qc<003001c<7<`01mc<003001c<7<`0:ac<003001c <7<`03ic<003001c<7<`07=c<000:7<`00<007<`Lc007W<`00<007<`Lc00[G<`00<007<`Lc00?W<` 00<007<`Lc00Lg<`000XLc000`00Lc1c<00NLc000`00Lc1c<02^Lc000`00Lc1c<00lLc000`00Lc1c <01dLc0002Qc<0<001ec<003001c<7<`0:mc<003001c<7<`03ac<003001c<7<`07Ac<000:7<`00<0 07<`Lc007G<`00<007<`Lc00/7<`00<007<`Lc00>W<`00<007<`Lc00MG<`000XLc000`00Lc1c<00L Lc000`00Lc1c<02aLc000`00Lc1c<00jLc000`00Lc1c<01eLc0002Qc<003001c<7<`01ac<003001c <7<`0;9c<003001c<7<`03Uc<003001c<7<`07Ec<000:7<`00<007<`Lc006g<`00<007<`Lc00/g<` 00<007<`Lc00>7<`00<007<`Lc00MW<`000XLc000`00Lc1c<00KLc000`00Lc1c<02cLc000`00Lc1c <00hLc000`00Lc1c<01fLc0002Qc<003001c<7<`01Yc<003001c<7<`0;Ec<003001c<7<`03Ic<003 001c<7<`07Mc<000:7<`0`006W<`00<007<`Lc00]G<`00<007<`Lc00=W<`00<007<`Lc00Mg<`000X Lc000`00Lc1c<00ILc000`00Lc1c<02gLc000`00Lc1c<00dLc000`00Lc1c<01hLc0002Qc<003001c <7<`01Uc<003001c<7<`0;Mc<003001c<7<`03Ac<003001c<7<`07Qc<000:7<`00<007<`Lc0067<` 00<007<`Lc00^G<`00<007<`Lc00JQc<7<`;DHDP`Ic<003001c<7<`00mc<003 001c<7<`0<]c<003001c<7<`021c<003001c<7<`089c<0002g<`00ABB`@Q125JS0ec<006DT/La000 000La6[^1W<`00<007<`Lc003g<`00<007<`Lc00c7<`00<007<`Lc007g<`00<007<`Lc00PW<`000X Lc03000>Lc000`00Lc1c<03>Lc000`00Lc1c<00MLc000`00Lc1c<023Lc0002Qc<003001c<7<`00ec <003001c<7<`0=1c<003001c<7<`01]c<003001c<7<`08Ac<000:7<`00<007<`Lc0037<`00<007<` Lc00dG<`00<007<`Lc006W<`00<007<`Lc00QG<`000XLc000`00Lc1c<00;Lc000`00Lc1c<03CLc00 0`00Lc1c<00HLc000`00Lc1c<026Lc0002Qc<003001c<7<`00Yc<003001c<7<`0=Ec<003001c<7<` 01Ic<003001c<7<`08Mc<000:7<`00<007<`Lc002G<`00<007<`Lc00eg<`00<007<`Lc0057<`00<0 07<`Lc00R7<`000XLc000`00Lc1c<008Lc000`00Lc1c<03ILc02000CLc000`00Lc1c<029Lc0002Qc <0<000Ic<0800=ic<08000mc<08008ac<000:7<`00<007<`Lc0017<`0P00hW<`00<007<`Lc002W<` 0P00SW<`000XLc000`00Lc1c<002Lc02003ULc020008Lc02002@Lc0002Qc<0D00>Uc<0P0099c<000 :7<`00<007<`Lc00og<`QW<`000XLc000`00Lc1c<03oLc26Lc0002Qc<003001c<7<`0?mc<8Ic<000 :7<`0`00og<`QW<`000XLc000`00Lc1c<03oLc26Lc0002Qc<003001c<7<`0?mc<8Ic<000og<`/G<` 003oLc2aLc000?mc<;5c<000og<`/G<`003oLc2aLc000?mc<;5c<000og<`/G<`003oLc2aLc000?mc <;5c<000\ \>"], ImageRangeCache->{{{0, 431}, {265.875, 0}} -> {-1.07744, -0.394661, \ 0.0394228, 0.00445317}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[TextData[{ "The period of oscillation is the time separating two \"identical\" events. \ For example, it is the time separating the points at which the solution \ crosses the x-axis with equal slope. By observation we see that this happens \ close to ", StyleBox["t ", FontSlant->"Italic"], "= 1.5 and ", StyleBox["t ", FontSlant->"Italic"], "= 7.9 seconds. What we need to do is to find the precise ", StyleBox["t", FontSlant->"Italic"], "-coordinate of these events. We accomplish this using the ", StyleBox["FindRoot", FontFamily->"Courier New", FontWeight->"Bold"], " command:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\(?FindRoot\)\)], "Input"], Cell[BoxData[ \("FindRoot[lhs==rhs, {x, x0}] searches for a numerical solution to the \ equation lhs==rhs, starting with x=x0."\)], "Print"] }, Open ]], Cell["\<\ You could also use the Help Browser to obtain details on this \ command.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(root1 = FindRoot[Evaluate[\[Theta][t] \[Equal] 0 /. linSolution], {t, 1.5}]\)], "Input"], Cell[BoxData[ \({t \[Rule] 1.585929607462203`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(root2 = FindRoot[Evaluate[\[Theta][t] \[Equal] 0 /. linSolution], {t, 7.9}]\)], "Input"], Cell[BoxData[ \({t \[Rule] 7.929677191433182`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(period = \((t /. root2)\) - \((t /. root1)\)\)], "Input"], Cell[BoxData[ \(6.343747583970979`\)], "Output"] }, Open ]] }, Open ]] }, FrontEndVersion->"4.0 for Macintosh", ScreenRectangle->{{0, 1024}, {0, 748}}, WindowSize->{901, 698}, WindowMargins->{{1, Automatic}, {Automatic, 1}}, Magnification->1.5, StyleDefinitions -> "PastelColor.nb", MacintoshSystemPageSetup->"\<\ 00<0001804P000000]P2:?oQon82n@960dL5:0?l0080001804P000000]P2:001 0000I00000400`<300000BL?00400@00000000000000060801T1T00000000000 00000000000000000000000000000000\>" ] (*********************************************************************** 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[CellGroupData[{ Cell[1739, 51, 54, 0, 202, "Title"], Cell[1796, 53, 105, 3, 98, "Subtitle"], Cell[1904, 58, 58, 0, 41, "Text"], Cell[1965, 60, 217, 4, 73, "Input"], Cell[2185, 66, 126, 2, 51, "Input"], Cell[CellGroupData[{ Cell[2336, 72, 129, 3, 51, "Input"], Cell[2468, 77, 232, 6, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2737, 88, 87, 1, 51, "Input"], Cell[2827, 91, 26746, 643, 291, 5434, 375, "GraphicsData", "PostScript", \ "Graphics"], Cell[29576, 736, 130, 3, 52, "Output"] }, Open ]], Cell[29721, 742, 636, 18, 130, "Text"], Cell[CellGroupData[{ Cell[30382, 764, 46, 1, 51, "Input"], Cell[30431, 767, 144, 2, 79, "Print"] }, Open ]], Cell[30590, 772, 96, 3, 41, "Text"], Cell[CellGroupData[{ Cell[30711, 779, 126, 3, 51, "Input"], Cell[30840, 784, 64, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30941, 790, 126, 3, 51, "Input"], Cell[31070, 795, 64, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31171, 801, 77, 1, 51, "Input"], Cell[31251, 804, 52, 1, 52, "Output"] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)