(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 23376, 1088] NotebookOptionsPosition[ 22033, 1042] NotebookOutlinePosition[ 22430, 1059] CellTagsIndexPosition[ 22387, 1056] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Project - Catenary", "Title"], Cell["\<\ The catenary is the curve that is formed by the wire hanging between power \ poles, or by a chain hanging between two supports. In an appropriate \ coordinate system its equation is \ \>", "Text"], Cell[BoxData[ RowBox[{"y", "=", RowBox[{"a", " ", RowBox[{"Cosh", "[", RowBox[{"x", "/", "a"}], "]"}]}]}]], "Input"], Cell[TextData[{ "where ", StyleBox["a", FontWeight->"Bold"], " is a parameter that is detemined by the length of the wire/chain and the \ distance between the supports. Cosh is the hyperbolic cosine function defined \ by " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Cosh", "[", "x", "]"}], "=", FractionBox[ RowBox[{ SuperscriptBox["e", "x"], "+", SuperscriptBox["e", RowBox[{"-", "x"}]]}], "2"]}]], "Input"], Cell[TextData[{ "See your calculus textbook and ", StyleBox["http://en.wikipedia.org/wiki/Catenary", FontSize->13], " for details." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Cosh", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .95238 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.476191 0 0.476191 [ [.02381 -0.0125 -6 -9 ] [.02381 -0.0125 6 0 ] [.2619 -0.0125 -12 -9 ] [.2619 -0.0125 12 0 ] [.7381 -0.0125 -9 -9 ] [.7381 -0.0125 9 0 ] [.97619 -0.0125 -3 -9 ] [.97619 -0.0125 3 0 ] [.4875 .11905 -24 -4.5 ] [.4875 .11905 0 4.5 ] [.4875 .2381 -18 -4.5 ] [.4875 .2381 0 4.5 ] [.4875 .35714 -24 -4.5 ] [.4875 .35714 0 4.5 ] [.4875 .47619 -6 -4.5 ] [.4875 .47619 0 4.5 ] [.4875 .59524 -24 -4.5 ] [.4875 .59524 0 4.5 ] [.4875 .71429 -18 -4.5 ] [.4875 .71429 0 4.5 ] [.4875 .83333 -24 -4.5 ] [.4875 .83333 0 4.5 ] [.4875 .95238 -6 -4.5 ] [.4875 .95238 0 4.5 ] [ 0 0 0 0 ] [ 1 .95238 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 0 m .02381 .00625 L s [(-1)] .02381 -0.0125 0 1 Mshowa .2619 0 m .2619 .00625 L s [(-0.5)] .2619 -0.0125 0 1 Mshowa .7381 0 m .7381 .00625 L s [(0.5)] .7381 -0.0125 0 1 Mshowa .97619 0 m .97619 .00625 L s [(1)] .97619 -0.0125 0 1 Mshowa .125 Mabswid .07143 0 m .07143 .00375 L s .11905 0 m .11905 .00375 L s .16667 0 m .16667 .00375 L s .21429 0 m .21429 .00375 L s .30952 0 m .30952 .00375 L s .35714 0 m .35714 .00375 L s .40476 0 m .40476 .00375 L s .45238 0 m .45238 .00375 L s .54762 0 m .54762 .00375 L s .59524 0 m .59524 .00375 L s .64286 0 m .64286 .00375 L s .69048 0 m .69048 .00375 L s .78571 0 m .78571 .00375 L s .83333 0 m .83333 .00375 L s .88095 0 m .88095 .00375 L s .92857 0 m .92857 .00375 L s .25 Mabswid 0 0 m 1 0 L s .5 .11905 m .50625 .11905 L s [(0.25)] .4875 .11905 1 0 Mshowa .5 .2381 m .50625 .2381 L s [(0.5)] .4875 .2381 1 0 Mshowa .5 .35714 m .50625 .35714 L s [(0.75)] .4875 .35714 1 0 Mshowa .5 .47619 m .50625 .47619 L s [(1)] .4875 .47619 1 0 Mshowa .5 .59524 m .50625 .59524 L s [(1.25)] .4875 .59524 1 0 Mshowa .5 .71429 m .50625 .71429 L s [(1.5)] .4875 .71429 1 0 Mshowa .5 .83333 m .50625 .83333 L s [(1.75)] .4875 .83333 1 0 Mshowa .5 .95238 m .50625 .95238 L s [(2)] .4875 .95238 1 0 Mshowa .125 Mabswid .5 .02381 m .50375 .02381 L s .5 .04762 m .50375 .04762 L s .5 .07143 m .50375 .07143 L s .5 .09524 m .50375 .09524 L s .5 .14286 m .50375 .14286 L s .5 .16667 m .50375 .16667 L s .5 .19048 m .50375 .19048 L s .5 .21429 m .50375 .21429 L s .5 .2619 m .50375 .2619 L s .5 .28571 m .50375 .28571 L s .5 .30952 m .50375 .30952 L s .5 .33333 m .50375 .33333 L s .5 .38095 m .50375 .38095 L s .5 .40476 m .50375 .40476 L s .5 .42857 m .50375 .42857 L s .5 .45238 m .50375 .45238 L s .5 .5 m .50375 .5 L s .5 .52381 m .50375 .52381 L s .5 .54762 m .50375 .54762 L s .5 .57143 m .50375 .57143 L s .5 .61905 m .50375 .61905 L s .5 .64286 m .50375 .64286 L s .5 .66667 m .50375 .66667 L s .5 .69048 m .50375 .69048 L s .5 .7381 m .50375 .7381 L s .5 .7619 m .50375 .7619 L s .5 .78571 m .50375 .78571 L s .5 .80952 m .50375 .80952 L s .5 .85714 m .50375 .85714 L s .5 .88095 m .50375 .88095 L s .5 .90476 m .50375 .90476 L s .5 .92857 m .50375 .92857 L s .25 Mabswid .5 0 m .5 .95238 L s 0 0 m 1 0 L 1 .95238 L 0 .95238 L closepath clip newpath .5 Mabswid .02381 .7348 m .06244 .69177 L .10458 .65002 L .14415 .61545 L .18221 .58623 L .22272 .55923 L .26171 .53707 L .30316 .51746 L .34309 .50228 L .3815 .49101 L .40095 .48653 L .42237 .48253 L .44268 .47964 L .45178 .47863 L .46172 .47773 L .4671 .47733 L .4721 .47701 L .47727 .47673 L .48196 .47653 L .48658 .47638 L .4887 .47632 L .49093 .47628 L .49332 .47624 L .49438 .47622 L .49552 .47621 L .49675 .4762 L .49789 .4762 L .49859 .47619 L .49925 .47619 L .50049 .47619 L .50163 .47619 L .50286 .4762 L .50401 .47621 L .50508 .47622 L .50754 .47625 L .51014 .4763 L .51268 .47636 L .51504 .47643 L .5204 .47663 L .5293 .47709 L .53882 .47777 L .54906 .47872 L .56016 .48 L .58032 .48298 L .60019 .48677 L .62123 .49171 L .65912 .50302 L .69946 .51858 L .73829 .53706 L .77956 .56064 L Mistroke .81932 .58733 L .85757 .61687 L .89827 .65267 L .93745 .69165 L .97619 .7348 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 274.25}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztmutfFGUUx4fd5VafdMELXgiXNFHSykrAEM0sKROvGRlJrYBcFLAVoVJe +CbrTb2qf5d4njN7Zmb5zrCzzCKrfD6yz/g7v/M7Z57bnplnh/ILUxOz+YXp sXxusJB/NDU99jh3ab6wCqXrHKcut/rXmnPM9YrjFD9WVv+tdJoPx8maJm3w PnOVMlcZa0q7ZMt2UsqbL5PXq1dZCdUC9B77mfFj5rrR/qc+QHVNzmx8l16I vFOSajaN9UoD6QO1pjjqm+D0oHzq6fDEYvTWlkjC9r9F59Yj9IUHzOrk6osa 5qDvfPlUb5K3hN9hr5KadPznAIuYVv4lFve6Sedt1nw0C7oTgr0BWHOZvKSx mHGdTYix6fe2Q4bqH7jFv6tv0lQ2IdarmmFNJ1/1DBdN4/vqD2y55s/7qrQL oz5c6slaAd1cnYZSuNjSd3QqdhBazvWJKNOmEF4lGSRar3Ftd/i7JFNZJ4tq Y5iqbZvKmQXNOtIpHf1MLU/w1yDDmk6+6hk+07kd/XATseieRi06fj6JWDMh alTHR2xXcVX8W1PU/ay3AUX2RTBuQzmD4tXer/c2U9PJb2e4ppAKLoXQKqfC okrqHd56kqmoYtU9L7WiKtnypA9echnl7WoyHCvFKZje3ulqOvntDJ0Xdl2u s8D+DC5KWW6J0Z+bpsOwnwuwbJpMWCFCSm+px7JILJmmQTcou4ypgmlR3pI4 Fkxj1zq9eaTYbepREIlZBd4Gerta5UW5M6Mj8A7QO9U6I/RJBd6FaXJErZNC H1fgGKh3qXVc6HkF3gN6t1rzQh9V4H2gn1TrqNBHFDgF9A/VOiL0Ozp0nwD9 Y7XeEfqwAj1AP63WYaF/q+H6oCO9d8y3hX5TgX5QP6PWW0K/rsAA0PvVekPo VxU4D/QBtV4T+hUFLgD9PMzcK+J4WR0vguNnanXpX4OSz1Hxz9XxsjgOKnAJ 4nwBsoPi+KU6fgWOntWlXywJHKQPQhyJLRmXmEjCZpEyiOvo9dEQ0ElChsg5 VzKIwR78RuO49AFI8BqoD6mjDLtvbt0EOkmcFcdPISJJXNeIrqN3aNOva6ry F5AU8owEogOds4Al9Jbylt6oG78HHGmcNvIC8zZgEhcPAs8BFr8m/w6CSjTf NnsBJCp9AToMmGzyzkcQxlt00rXxi/rvdSzdMKcgDG0KTTpZo9+h/gCYxJAv thLZH4E+Apj4ykF3icRdoJOs+Ba/oQMSox5d8bvaU67jSXD8CeIQdkIkToDE z0AnTAqRYj0SkMgDnbBukegGiXtAv6c94DoeB8cxcBwHrEskjoEE0ScAOyoS XSDhoyt+HySkVnSVghJEnwTsiEjYxi7FaSBNAXZYHA9DbJIgTCrjYoEckJgB OmHu4X0nSDwAOmE5kciBxEMYh4cgcUgkDoHELNAJ6xCJDpCYAzph8lxSfDwJ SMwDnbB2kWgHiUdAJ+ygSBwEiV+ATtgBkTgAEgUYkQJI7BeJ/SDxGOiE7UtM Yh9ILACdsDaRaAMJ76ku/qnJE8D2Sqi9IDYGWNyjlUXA9kjIPSA/Dli55y9L gO2WULtBYiJOKKv6KwTYJQF2geP9sO4LraR+A6xVArSGBfBVUusf8vwOWMSP s6bC7iC0cnoKmPuTxCyIPQM6Ye4vveh3WctAJ2yHSNTUG8MI09ZPfutnWPXk 7X4buldXfPS0CI4JnjuRfAKHThuWtaoRYhUfN23oYTQiIW+rdLbPml6l5Ld+ hlVP/g+d2xHz2B5IrT3MTe646S+g26Xm3ytsqiFb479lU7zDtf8EsAz3SdSp +x/0I5y8\ \>"], ImageRangeCache->{{{73.4375, 302.812}, {538.625, 320.25}} -> {-1.8364, \ 3.02961, 0.00780929, 0.00780929}}] }, Open ]], Cell["\<\ The graph of the catenary looks rather like a parabola, but it is not a \ parabola. Remakably, there is a connection between the parabloa and the \ catenary: If you roll a parabola along a horizontal line, the focus of the \ parabola will trace out a catenary. The project is to generate an animation \ that demonstrates this phenomenon.\ \>", "Text"], Cell["\<\ The National Curve Bank (hosted by the CSULA Math Department) would be glad \ to include your animation on a webpage it is developing on the catenary. See \ http://curvebank.calstatela.edu/home/home.htm.\ \>", "Text"], Cell[TextData[{ "For example, these graphs below show the parabola y=", Cell[BoxData[ FormBox[ SuperscriptBox["x", "2"], TraditionalForm]]], "after it has been rolled to the right along the x-axis. The focus of the \ parabola is the dot and it is on the catenary given by the equation ", StyleBox["y=Cosh[4x]/4. ", "DisplayFormula"] }], "Text"], Cell[CellGroupData[{ Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .65 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.5 0 0.5 [ [0 -0.0125 -6 -9 ] [0 -0.0125 6 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [.4875 .5 -6 -4.5 ] [.4875 .5 0 4.5 ] [ 0 0 0 0 ] [ 1 .65 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash 0 0 m 0 .00625 L s [(-1)] 0 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(1)] 1 -0.0125 0 1 Mshowa 0 0 m 1 0 L s .5 .5 m .50625 .5 L s [(1)] .4875 .5 1 0 Mshowa .5 0 m .5 .65 L s 0 0 m 1 0 L 1 .65 L 0 .65 L closepath clip newpath .5 Mabswid .29203 .65 m .29204 .64753 L .29205 .64517 L .29209 .63983 L .29214 .63394 L .29221 .62862 L .29239 .61679 L .29263 .60493 L .29291 .59411 L .29372 .57006 L .29466 .54926 L .29586 .52771 L .29871 .48857 L .30209 .45339 L .31152 .38308 L .31797 .34719 L .32492 .31483 L .34046 .25755 L .36028 .20292 L .38256 .15647 L .40695 .11749 L .43611 .08211 L .46729 .05403 L .48429 .04202 L .50379 .0306 L .52351 .02128 L .5422 .01428 L .5624 .00848 L .57383 .00593 L .58484 .00394 L .59555 .00242 L .6015 .00174 L .60711 .00121 L .61233 .00081 L .61715 .00051 L .62253 .00026 L .62552 .00015 L .62837 8e-05 L .62983 5e-05 L .63142 3e-05 L .63292 1e-05 L .6343 0 L .63555 0 L .63693 0 L .63837 1e-05 L .63972 2e-05 L .64048 3e-05 L .6413 4e-05 L .6428 6e-05 L .64563 .00013 L Mistroke .64894 .00023 L .65201 .00035 L .65717 .00061 L .6629 .00098 L .67464 .00198 L .68738 .00344 L .69923 .00512 L .72656 .01015 L .75217 .0162 L .78097 .02441 L .83999 .04539 L .89997 .07167 L .96714 .10616 L Mfstroke .96714 .10616 m 1 .12529 L s .25 .47027 m .27028 .40259 L .2924 .34083 L .31318 .29261 L .33316 .25389 L .35443 .21979 L .3749 .19301 L .39666 .17021 L .41762 .15314 L .43779 .1408 L .4482 .13589 L .45924 .1317 L .4695 .12874 L .47911 .12675 L .48455 .12596 L .48724 .12565 L .48974 .12542 L .49199 .12526 L .49439 .12513 L .49576 .12507 L .49643 .12505 L .49705 .12503 L .4976 .12502 L .49821 .12501 L .49882 .12501 L .49946 .125 L .50015 .125 L .50078 .125 L .50111 .125 L .50147 .12501 L .50185 .12501 L .50221 .12502 L .50347 .12505 L .50417 .12507 L .50482 .12509 L .5072 .12521 L .5097 .12538 L .51242 .12562 L .51495 .12589 L .52068 .12672 L .52621 .12776 L .53142 .12897 L .54118 .13185 L .55169 .13584 L .56138 .14037 L .58206 .15292 L .60195 .16894 L .62313 .19071 L .64352 .21684 L .66519 .25098 L Mistroke .68606 .291 L .70614 .33716 L .7275 .39588 L .74808 .46335 L .75 .47027 L Mfstroke .02 w .5625 .14095 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 187.188}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztmm1TE1cUgC8hISFofaWIVg0iQpXaUmtLbS0znbEdrSAiiogiAREiUhSw trVWWrWd2nY6/QP9I/44yr1nc/LCk7hZWRw0fEh2zznPc89m774l9KYXpydn 04uZiXTq6/n0nenMxELqq7n5lVBtjTE1KWPM85Sxy8sri96L+2uxL8Zssm+1 y9lwna7WS36ze8sV2LVcZVEiIUzMvsVspjYAHWTEIIzb8ohm4rqaDO50Ky3B lhvs2392B2216ohdklH0b9jkdkwDdPFYYiY/tkVaXgk126V6m/wG2Lho/wWF GypqqzvsUswm+0uXx7W8yy65ZG/p8qgrsuXdDrTJ06XLI/bV7aceLT9Vrjyb d/EvudIunNGinrwix/e5JZs6Kal/NFU03DmVnJDKv7UyAt0NqLhbyv/U8iiU D6r9uJQ/k6KCHUngkI5zTMA/AIwBOKxgl4C/a4MJKB/RBo9K+W8wDoGjOk6n gE8BrAdwTMHDAj4BMAnguLbaLuBjABsAnNQR2wT8FcBNAE4p2CrgLwBuBjCj oHeqWALwLQBnFNwv4CMAtwA4q+DeysA5BfcI+DOAWwG8q2CzgA8B3AbggoJN Av4E4HYA7ynYKOADAHcAeF/BHZWBPygoG2J+BHAngA8UlM9cTEVgI4APFZR5 Zb4H8G0AH0EsWZliScf2wPsAuh2TtKElUHjXpO8AdNPd3WPQacuda91F70lp Re4GgM4PCc06mUNlTsrMoVOMC9Ghn9R+ZHaaRVAkVEFHVoNucBlFHGJ0tK2S LQBYp58ATebcjaPc5WVRb1KjMQYxcm+DOpl2Zh5SUW2U5uF2zXqKu6UUPib1 Tqi7V1pL979NoG3UHj3ZHZ+yXSBrgrr50toIxJpBuwvqZJvlrO9DuzuINpaf krxelwpVzaCSLTbfllHtA9VuUM3lq6IFKpO9whZa9oBFcLnCrrakwPIOWGbz LbmU5VpAsRcUtwW4zY0EshQ2cgAU+0AxI8AMKFpBsR8Ut/IU7jA6CGAKwIyA t2BsUrSAYjpP4cZuA/AAgFM8tl2jsVuh7qYoMjr2oQBgUYraPwh1k6KY1rHb AWwD8EYeWJSi9ssopnTsDgAPATjhB2wHcFzAmwq+Wxk4WZQyJRQdoEhXpqDY mAA3QHE4HAXFrgsgO2HVKSc8yxGIjUr9OFuIWBtLJ8SuSb3sZ75Ihax6D2JX BRgro6IO1lB1FGIjAlyX1AtvOWg6vFDLHdKGvQ+xKwKM+uyQdkdI2g8gNiza a6CgG8410FK3tPe7IHZZtFd9drvxtR9CbEi0Iz61NG9D0h6D2CXRXgEFPXWt o/YjiF0U7TAo6Ol1DbTULZ2hymgv++yWtMchNrgRtUM+tXRu/RhiFzai9hIo 6Pcq0n4CsYFQtRd9aukCE5K2G2LnQ9UOgoK+x1tH7acQ6w9VewEUiXC01C1d vE9A7Fyo2gGfH8I6aj+DWF+o2vOgqH+12s8h1rsRtf0+tXR3eBJiZ9807RcQ k3+m8A62QkXytdT2QOyMaPtAQf+oUka7vH5aetKhR42/Xs9y99WIC9VVBh6B GP0K+xIKL/6KuyhS0LOmU7gvhOOVgZ0vPzY9EVbLq+XZcvq2gR6gq+XV8mp5 tTxouan5H2LF1i8=\ \>"], ImageRangeCache->{{{73.4375, 302.812}, {205.812, 57.0625}} -> {-1.77222, \ 0.441743, 0.00748859, 0.00748859}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .65 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.5 0 0.5 [ [0 -0.0125 -6 -9 ] [0 -0.0125 6 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [.4875 .5 -6 -4.5 ] [.4875 .5 0 4.5 ] [ 0 0 0 0 ] [ 1 .65 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash 0 0 m 0 .00625 L s [(-1)] 0 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(1)] 1 -0.0125 0 1 Mshowa 0 0 m 1 0 L s .5 .5 m .50625 .5 L s [(1)] .4875 .5 1 0 Mshowa .5 0 m .5 .65 L s 0 0 m 1 0 L 1 .65 L 0 .65 L closepath clip newpath .5 Mabswid .52284 .65 m .50031 .57739 L .48315 .51032 L .4757 .47474 L .47024 .44348 L .46588 .41214 L .46437 .39842 L .46301 .38357 L .46201 .36935 L .46159 .36168 L .46129 .35457 L .46117 .35119 L .46108 .34799 L .46101 .3451 L .46095 .34203 L .46092 .3403 L .4609 .33873 L .46089 .33715 L .46088 .33567 L .46087 .33395 L .46087 .33236 L .46087 .33063 L .46088 .32976 L .46088 .3288 L .4609 .32702 L .46092 .32537 L .46094 .32357 L .46098 .32166 L .46105 .31846 L .46115 .31496 L .4614 .30855 L .4617 .3026 L .46262 .28951 L .464 .27572 L .46554 .26383 L .46758 .25113 L .4728 .22649 L .479 .20473 L .48705 .18269 L .49606 .16291 L .50734 .14275 L .53236 .10892 L .56353 .07902 L .59886 .05476 L .63774 .03561 L .65958 .02738 L .68445 .01974 L .71115 .01327 L .73789 .00831 L .75116 .00635 L Mistroke .76562 .00455 L .7795 .00313 L .79252 .00206 L .80809 .0011 L .81642 .00071 L .82531 .00039 L .82909 .00029 L .83315 .00019 L .83668 .00012 L .84053 7e-05 L .84289 4e-05 L .84508 2e-05 L .84717 1e-05 L .84823 1e-05 L .8494 0 L .85143 0 L .85256 0 L .85361 0 L .85554 1e-05 L .85757 2e-05 L .8596 3e-05 L .8618 6e-05 L .86581 .00011 L .86972 .00017 L .87335 .00025 L .88165 .00047 L .89052 .00078 L .90553 .00148 L .92231 .00249 L .95726 .00536 L .99616 .00965 L Mfstroke .99616 .00965 m 1 .01022 L s .25 .47027 m .27028 .40259 L .2924 .34083 L .31318 .29261 L .33316 .25389 L .35443 .21979 L .3749 .19301 L .39666 .17021 L .41762 .15314 L .43779 .1408 L .4482 .13589 L .45924 .1317 L .4695 .12874 L .47911 .12675 L .48455 .12596 L .48724 .12565 L .48974 .12542 L .49199 .12526 L .49439 .12513 L .49576 .12507 L .49643 .12505 L .49705 .12503 L .4976 .12502 L .49821 .12501 L .49882 .12501 L .49946 .125 L .50015 .125 L .50078 .125 L .50111 .125 L .50147 .12501 L .50185 .12501 L .50221 .12502 L .50347 .12505 L .50417 .12507 L .50482 .12509 L .5072 .12521 L .5097 .12538 L .51242 .12562 L .51495 .12589 L .52068 .12672 L .52621 .12776 L .53142 .12897 L .54118 .13185 L .55169 .13584 L .56138 .14037 L .58206 .15292 L .60195 .16894 L .62313 .19071 L .64352 .21684 L .66519 .25098 L Mistroke .68606 .291 L .70614 .33716 L .7275 .39588 L .74808 .46335 L .75 .47027 L Mfstroke .02 w .625 .19289 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 187.188}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzlmvdWE0EYRxdCCAKKyrGAqFFsKAgiFqz/6TkqWLBXYgQJilR776LYnsdn 8VlipjBk4U7chOzGHD3Cbn7fnTuzk93ZQzZdsYmBvqHYRCIeix4di40MJOLj 0SPDY6koVOI4JVHHcX5FHbGfTO3qX8nU/+Q68ctxqsUmlJS11F65eblA1RfK TUg3TKofQ84qVKg2YbEJi0ooh9a59JhLG3nkpebII+ZlZe7O9JnNdr9KbH4L abVQNzozb0IV9PhWZU56dsgcQ7mIW8TLSrEXBkFEuX+Cp9O8gYfFXpmolaad FNRmp5waAfXYoTZzel2yQ82yTwFdtUNNxtRrhzYZKG6HGg3Ub4eiBkrYoTVm +u/aoQYD3bND9QYasUMrDTRmh5YbaMIOLYPTIwNea5wP7dBScGbAlwD+yI7X mCE8tUOLwJkBpwv+mR2vBvy5Hadr+IUdrwT8pR1fAPgrO14B+Gs7HgH8jR2n BfKtHafF6V3e8DLA39txumN9UPiU2FSJyqQKPoqNXCbDuqv0VqmfiKjpsb03 Z2ylPoxZsOyy3FB6fuVGDqd6bh9mSZaAPj1emqDGfXyyg4WmA32uvoADXjzT 0OQ1wD1RimfGWQsNF0PDx6rhUyjVQpZhcXhs+k5fxKbBmZVK44/ARA1pRbyv FA//otAT7awwfeuGD6DhcmhYB5xe4e9bFWWuLPWvHtBRVZyA0oqsLeNQWsmW VYDqG9uY1RJ2ZdOT0wD8sKqOQqkug2q1m5fb9Lv3CPjqM/jk7V+W7qhs2Cpw Z6Xu61T+NPgquwcN6U0imZy2UNo8DXmUhUC2FrhBpb0LJXr3SRsFLmHX0mjL QLsOuAGlveNxtKRdD9xtpR2E0mqP2kbg+u1aGm04O23C42hJuwG4PqUdgNIa j9qNwN3yVXsbSnSak3YTcHG7lkZbDtrNwN1U2n6Po81S2wcluihJuwW42Py1 TZD1Ku0tUNC1ngctjTYCiq2Q3VDauMfRBqjdBtl1pb0JClrwAtQ2Q3ZNaWOg oAUvQG0LZPqDkV5Q0DoaoHY7ZFeU9gYoaB0NUNsK2WWlve5RWxGctg0y/Tna NVDQzSRA7Q7ILirtVVDQzaT4te2QXVDaK6CgW1+A2p2QnVfay6BoKqy2A7Jz SnsJFFv/We1FUGzzqN0F2dli1F4ARbNH7W7IeopRex4ULR61eyA746v2HCha IaM7r0/avZCd9lV7FhRthdV2QnbKV20PKHYUVrsPspO+as+Aor2w2v2Qdfuq PQ2KDsjoT2mftAcg6ypG7SlQ7IaMPlk6CNmJ/017CLLjSnsSFHuKSrsXMvpY +DBkx5S2GxSd2WmTwWk/e1RM/YP4F8DpQYbGP4mNfKxGJ4qGJt1Ouc0dN0Ob j931JFDsZ5gSeYzy+VspTA49icq5q6nsOvgqN/zQ71s+kW9zjySQ6vdZ8+Fn 6Udaabr8dT6ln/BmTvlboutj3iVzVeWhNOdbIl/yVeWvrXzOP+K+EmlJ+Fgo PMN3hLLEnZI/ueLsqA==\ \>"], ImageRangeCache->{{{73.4375, 302.812}, {361.938, 213.188}} -> {-1.77222, \ 1.90319, 0.00748859, 0.00748859}}] }, Open ]], Cell["The equations that generate these graphs are derived from", "Text"], Cell[BoxData[{ RowBox[{"X", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", "y"}], "-", "1"}], ")"}], RowBox[{"Sinh", "[", "t", "]"}]}]}], ")"}], "/", "4"}], "/", RowBox[{"Cosh", "[", "t", "]"}]}], "+", RowBox[{"t", "/", "4"}]}]}], "\[IndentingNewLine]", RowBox[{"Y", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sinh", "[", "t", "]"}], "^", "2"}], "-", RowBox[{"4", RowBox[{"Sinh", "[", "t", "]"}], " ", "x"}], "+", RowBox[{"4", " ", "y"}]}], ")"}], "/", "4"}], "/", RowBox[{"Cosh", "[", "t", "]"}]}]}]}], "Input"], Cell[TextData[{ "You should think of these equations as a change of coordinates from (x,y) \ to (X,Y) that depends on a parameter ", StyleBox["t that itself depends on the distance that the parabola has \ rolled. The two graphs above correspond to ", "InlineFormula"], StyleBox["t=0.5", "DisplayFormula"], StyleBox[" and t=1.0. The focus of the parabola ", "InlineFormula"], " y=", Cell[BoxData[ FormBox[ SuperscriptBox["x", "2"], TraditionalForm]]], StyleBox[" is at (0,1/4). Plugging x=0 and y=1/4 in to these equations \ gives", "InlineFormula"] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"y", "\[Rule]", RowBox[{"1", "/", "4"}]}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["t", "4"], ",", FractionBox[ RowBox[{"Cosh", "[", "t", "]"}], "4"]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "which are parametrized equations of the catenary ", StyleBox["y=Cosh[4x]/4", "DisplayFormula"], "." }], "Text"], Cell[TextData[{ "Setting ", "y=", Cell[BoxData[ FormBox[ SuperscriptBox["x", "2"], TraditionalForm]]], " in the equations for ", StyleBox["X", FontWeight->"Bold"], " and ", StyleBox["Y", FontWeight->"Bold"], " and letting x vary (perhaps from -1 to 1) will give the points along the \ parabola in its rolled position. " }], "Text"], Cell[TextData[{ "Your job is to generate a sequence of graphs like those above for a range \ of t values that make an animation of the parabola rolling back and forth \ along the x-axis. Your graphs should have different colors and the focus \ should also be in color. \n\nYou are to hand in a report that describes the \ background of the animation, so that a reader has a clear understanding of \ what is going on. Your animation should be created as a function that allows \ the value of ", StyleBox["a ", FontWeight->"Bold"], "as input, so different catenaries can be created. " }], "Text", CellChangeTimes->{{3.418763747151497*^9, 3.418763848964405*^9}, { 3.4187639338159246`*^9, 3.418763968795698*^9}}] }, Open ]] }, WindowSize->{725, 678}, WindowMargins->{{110, Automatic}, {Automatic, 123}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 35, 0, 76, "Title"], Cell[628, 25, 206, 4, 41, "Text"], Cell[837, 31, 129, 4, 27, "Input"], Cell[969, 37, 239, 7, 41, "Text"], Cell[1211, 46, 198, 7, 47, "Input"], Cell[1412, 55, 148, 5, 27, "Text"], Cell[CellGroupData[{ Cell[1585, 64, 349, 10, 27, "Input"], Cell[1937, 76, 6393, 361, 283, 4294, 323, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]], Cell[8345, 440, 361, 6, 56, "Text"], Cell[8709, 448, 229, 4, 41, "Text"], Cell[8941, 454, 353, 8, 44, "Text"], Cell[CellGroupData[{ Cell[9319, 466, 4729, 226, 196, 2801, 191, "GraphicsData", "PostScript", \ "Graphics"], Cell[14051, 694, 4882, 242, 196, 3073, 209, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]], Cell[18948, 939, 73, 0, 26, "Text"], Cell[19024, 941, 749, 25, 43, "Input"], Cell[19776, 968, 573, 13, 59, "Text"], Cell[CellGroupData[{ Cell[20374, 985, 274, 9, 27, "Input"], Cell[20651, 996, 150, 5, 44, "Output"] }, Open ]], Cell[20816, 1004, 131, 4, 26, "Text"], Cell[20950, 1010, 348, 14, 44, "Text"], Cell[21301, 1026, 716, 13, 101, "Text"] }, Open ]] } ] *) (* End of internal cache information *)