<?xml version="1.0" encoding="UTF-8"?>
<Worksheet><Version major="6" minor="1"/><View-Properties><Zoom percentage="100"/></View-Properties><Styles><Layout alignment="left" leftmargin="0.0" name="Warning" rightmargin="0.0"/><Layout leftmargin="0.0" name="_pstyle9" rightmargin="0.0"/><Layout leftmargin="0.0" name="_pstyle8" rightmargin="0.0"/><Layout alignment="centred" leftmargin="0.0" name="_pstyle7" rightmargin="0.0"/><Layout leftmargin="0.0" name="_pstyle5" rightmargin="0.0"/><Layout leftmargin="0.0" name="_pstyle4" rightmargin="0.0"/><Layout leftmargin="0.0" name="_pstyle3" rightmargin="0.0"/><Layout alignment="centred" leftmargin="0.0" name="_pstyle2" rightmargin="0.0"/><Layout alignment="centred" leftmargin="0.0" name="_pstyle1" rightmargin="0.0"/><Layout alignment="centred" leftmargin="0.0" linespacing="0.5" name="Maple Output" rightmargin="0.0"/><Layout alignment="centred" leftmargin="0.0" name="Maple Plot" rightmargin="0.0"/><Layout leftmargin="0.0" name="Normal" rightmargin="0.0"/><Layout leftmargin="0.0" name="_pstyle15" rightmargin="0.0"/><Font background="[0,0,0]" executable="false" name="_pstyle15" readonly="false"/><Font background="[0,0,0]" executable="false" family="Times New Roman" name="2D Math" readonly="false" underline="false"/><Font background="[0,0,0]" executable="false" family="Times New Roman" name="2D Comment" readonly="false" underline="false"/><Font background="[0,0,0]" executable="false" family="Times New Roman" name="Page Number" readonly="false" underline="false"/><Font background="[0,0,0]" bold="true" executable="true" family="Monospaced" foreground="[255,0,0]" name="Maple Input" readonly="false"/><Font background="[0,0,0]" executable="false" family="Times New Roman" name="ParagraphStyle2" readonly="false" size="14"/><Font background="[0,0,0]" executable="false" family="Monospaced" foreground="[0,0,0]" name="Maple Comment" readonly="false"/><Font background="[0,0,0]" executable="false" family="Times New Roman" name="_cstyle6" readonly="false" size="14"/><Font background="[0,0,0]" executable="false" family="Times New Roman" name="_cstyle5" readonly="false" size="14"/><Font background="[0,0,0]" executable="false" family="Times New Roman" name="_cstyle4" readonly="false"/><Font background="[0,0,0]" executable="false" family="Times New Roman" name="_cstyle3" readonly="false" size="14"/><Font background="[0,0,0]" executable="false" family="Times New Roman" name="_cstyle2" readonly="false" size="14"/><Font background="[0,0,0]" executable="false" family="Times New Roman" name="_cstyle1" readonly="false" size="18"/><Font background="[0,0,0]" executable="false" family="Times New Roman" foreground="[0,0,255]" name="2D Output" readonly="false" underline="false"/><Font background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" name="Text" readonly="false" size="12" underline="false"/><Font background="[0,0,0]" executable="false" family="Monospaced" foreground="[0,0,255]" name="Warning" readonly="true" size="10"/><Font background="[0,0,0]" executable="false" family="Times New Roman" name="_cstyle257" readonly="false" size="14" underline="false"/></Styles><Page-Numbers enabled="false" first-number="1" first-numbered-page="1" horizontal-location="right" style="Page Number" vertical-location="bottom"/><Text-field layout="_pstyle1" style="_cstyle1">PENDULUM PERIOD CALCULATIONS</Text-field><Text-field layout="_pstyle2" style="_cstyle2">PH 421 Fall 2009</Text-field><Group><Input><Text-field layout="_pstyle3" prompt="&gt; " style="Maple Input">restart:</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle3" prompt="&gt; " style="Maple Input">with(plots):</Text-field></Input><Output><Text-field layout="Warning" style="Warning">Warning, the name changecoords has been redefined</Text-field></Output></Group><Text-field layout="_pstyle4" style="ParagraphStyle2"/><Text-field layout="_pstyle4" style="ParagraphStyle2"><Font style="_cstyle3">This worksheet is intended for your benefit, but it is not a beautifully crafted piece!  Its purpose is to save you time. Play with it, so it suits your needs.</Font></Text-field><Text-field layout="_pstyle4" style="ParagraphStyle2"/><Text-field layout="_pstyle4" style="ParagraphStyle2"><Font style="_cstyle3">The period of a pendulum oscillating to a maxmum angle </Font><Equation input-equation="theta[max]" style="2D Comment">NiMmJSZ0aGV0YUc2IyUkbWF4Rw==</Equation><Font style="_cstyle3"> can be written as:</Font></Text-field><Text-field layout="_pstyle5" style="_cstyle4"/><Text-field layout="_pstyle7" style="2D Comment"><Equation input-equation="T=sqrt(2)/Pi*T[0]*Int(1/sqrt(cos(theta)-cos(theta[max])),theta=0..theta[max])" style="2D Comment">NiMvJSJURyoqLSUlc3FydEc2IyIiIyIiIiUjUGlHISIiJkYkNiMiIiFGKi0lJEludEc2JComRipGKi1GJzYjLCYtJSRjb3NHNiMlJnRoZXRhR0YqLUY4NiMmRjo2IyUkbWF4R0YsRiwvRjo7Ri9GPUYq</Equation></Text-field><Text-field layout="_pstyle8" style="_cstyle5"/><Text-field layout="_pstyle8" style="ParagraphStyle2"><Font style="_cstyle5">where </Font><Equation input-equation="T[0]" style="2D Comment">NiMmJSJURzYjIiIh</Equation><Font style="_cstyle5"> is the period for small angle.  Maple can calculate this integral exactly as shown below, but it can be quite slow if used in a plot function for example.  If we recognize it as an elliptical integral (which you are unlikely to have encountered, and that doesn't matter), then we can use the more efficient call to the complete ellpitic integral of the first kind K(k) defined by </Font><Equation input-equation="EllipticK(k) = Int(1/(sqrt(1-t^2)*sqrt(1-k^2*t^2)), t = 0 .. 1)" style="2D Math">NiMvLUkqRWxsaXB0aWNLRzYkSSpwcm90ZWN0ZWRHRidJKF9zeXNsaWJHNiI2I0kia0dGKS1JJEludEdGJjYkKigiIiJGMC1JJXNxcnRHRiY2IywmRjBGMCokSSJ0R0YpIiIjISIiRjgtRjI2IywmRjBGMComRitGN0Y2RjdGOEY4L0Y2OyIiIUYw</Equation>.</Text-field><Text-field layout="_pstyle9" style="ParagraphStyle2"><Font style="_cstyle6">where </Font><Equation input-equation="k = sin(theta[max]/2)" style="_cstyle257">NiMvJSJrRy0lJHNpbkc2IyomJiUmdGhldGFHNiMlJG1heEciIiIiIiMhIiI=</Equation><Font style="_cstyle6"> in our case.  The period can then be written as</Font></Text-field><Text-field layout="_pstyle7" style="2D Comment"><Equation input-equation="T=2* T[0] /Pi*EllipticK(sin(theta[max]/2)" style="2D Comment">NiMvJSJURyoqIiIjIiIiJkYkNiMiIiFGJyUjUGlHISIiLSUqRWxsaXB0aWNLRzYjLSUkc2luRzYjKiYmJSZ0aGV0YUc2IyUkbWF4R0YnRiZGLEYn</Equation>
The approximate period is <Equation input-equation="T = T[0]*(1+theta[max]^2/16)" style="2D Math">NiMvSSJURzYiKiYmRiQ2IyIiISIiIiwmRipGKiomJkkmdGhldGFHRiU2I0kkbWF4R0kqcHJvdGVjdGVkR0YxIiIjIiM7ISIiRipGKg==</Equation>.</Text-field><Group><Input><Text-field layout="Normal" style="Text"><Font bold="false" italic="false" size="12" style="Maple Comment" underline="false">This is the evaluation of the integral that detrmines the period (relative to the small angle period).  A is imeasured in radians.  </Font></Text-field></Input><Text-field layout="_pstyle5" style="_cstyle4"/><Input><Text-field layout="_pstyle3" prompt="&gt; " style="Maple Input">A:=120*Pi/180:</Text-field><Text-field layout="_pstyle3" prompt="&gt; " style="Maple Input">evalf(sqrt(2)/Pi*Int(1/sqrt(cos(x)-cos(A)),x=0..A));</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiMkIisrMClHUCIhIio=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" style="Text"><Font size="14">This is the elliptic integral form; you can see it gives the same result.</Font>

</Text-field></Input><Input><Text-field layout="_pstyle3" prompt="&gt; " style="Maple Input">evalf(2/Pi*EllipticK(sin(A/2)));</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiMkIissMClHUCIhIio=</Equation></Text-field></Output></Group><Text-field layout="_pstyle5" style="_cstyle4"/><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">plot([<Font opaque="false">evalf(2/Pi*EllipticK(sin(B/2))),1+B^2/16,1</Font>], <Font opaque="false">B=0*Pi/180..140*Pi/180,thickness=2,color=[red,blue,green],font=[helvetica,plain,11])</Font>;</Text-field></Input><Output><Text-field layout="Maple Plot"><Plot height="400" plot-scale="1.0" plot-xtrans="0.0" plot-ytrans="0.0" type="two-dimensional" width="400">LSUlUExPVEc2KS0lJ0NVUlZFU0c2JDdTNyQkIiIhRiskIisqKioqKioqKioqISM1NyQkIisqXFxnSyYhIzYkIitAdDwrNSEiKjckJCIrKm87LScqKkYyJCIrIVI/MSsiRjU3JCQiK1BBPTw6Ri4kIiteMFcsNUY1NyQkIismUih6VD9GLiQiK0Q9aC01RjU3JCQiK1wiPlJjI0YuJCIrIjRDVCsiRjU3JCQiK19HKnovJEYuJCIrMnYkZSsiRjU3JCQiK0tKQVxORi4kIis0LyR6KyJGNTckJCIrL2lmblNGLiQiK04qUi8sIkY1NyQkIitbb0klZSVGLiQiK3pfSDg1RjU3JCQiK2RzIWU2JkYuJCIrR25nOzVGNTckJCIrMUomUmUmRi4kIitUSyUpPjVGNTckJCIrX1coNDYnRi4kIitMPiZRLSJGNTckJCIrKnpmLGsnRi4kIitVVUZHNUY1NyQkIitPejddckYuJCIrIT5ASC4iRjU3JCQiK2h5QTh3Ri4kIitta1pQNUY1NyQkIitqJSkqUTspRi4kIitsJT5MLyJGNTckJCIrJXApUUknKUYuJCIrPDlrWzVGNTckJCIrS3gtdCIqRi4kIitkWUZiNUY1NyQkIitFX05gJypGLiQiK0ViYmg1RjU3JCQiK2ldLj01RjUkIit6USEqbzVGNTckJCIrJls8I281RjUkIit0OU93NUY1NyQkIit6dmQ/NkY1JCIrTyVSWTMiRjU3JCQiKyJcZydvNkY1JCIrJUcwRjQiRjU3JCQiKzJXXz83RjUkIitfUiM+NSJGNTckJCIrU2tSdTdGNSQiKyxVNDc2RjU3JCQiKy5BSEA4RjUkIitVSVlANkY1NyQkIis2NCU+UCJGNSQiKykpZjlLNkY1NyQkIiskKWZFQzlGNSQiKyYpeSNROSJGNTckJCIrZWVYdjlGNSQiK2hUI2Y6IkY1NyQkIislcCUpXF8iRjUkIitgMUhvNkY1NyQkIitAIXkqejpGNSQiK20iSEc9IkY1NyQkIitzPlJIO0Y1JCIrdTFtJz4iRjU3JCQiKzc+OiNvIkY1JCIreUBHNzdGNTckJCIrZi0nKkg8RjUkIitub0NGN0Y1NyQkIis2dUEjeSJGNSQiK1hwYVc3RjU3JCQiK0ZuU0o9RjUkIitqR3loN0Y1NyQkIisjRzhHKT1GNSQiK0hfJzNHIkY1NyQkIisoZXNJJD5GNSQiKzNebCs4RjU3JCQiK0AlKm8mKT5GNSQiK3E+bkE4RjU3JCQiKyZvbGouI0Y1JCIrTylSX00iRjU3JCQiKyZbKj0pMyNGNSQiK3F0IylwOEY1NyQkIitlVGVSQEY1JCIrXzMnZVIiRjU3JCQiK0QwIm89I0Y1JCIrJWVzOFUiRjU3JCQiK3FzJDRDI0Y1JCIrOTdvXzlGNTckJCIreClbJCpHI0Y1JCIrRjR3I1siRjU3JCQiK1pkJzRNI0Y1JCIrNDREPDpGNTckJCIreSdwLlIjRjUkIitKJyopR2IiRjU3JCQiK1s0WVZDRjUkIisoNFlXZiJGNS0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiRGK0ZhW2xGYltsLUYmNiQ3UzckRiokIiIiRis3JCQiMz50Qj0pXFxnSyYhIz4kIjNxYy5fI0h4LCsiISM8NyQkIjNrVCo9JClvOy0nKipGXFxsJCIzPSopeihwLj8xKyJGX1xsNyQkIjNdJlEvbUIjPTw6ISM9JCIzTDw+QF4nUTkrIkZfXGw3JCQiM09deCJcUih6VD9GaFxsJCIzMCQ9d2BlMEUrIkZfXGw3JCQiMzRRJmYqWyI+UmMjRmhcbCQiMyczXXczYjNUKyJGX1xsNyQkIjMqNC0kPl5HKnovJEZoXGwkIjNEeEl3N2shZSsiRl9cbDckJCIzMSNvNzc4QiNcTkZoXGwkIjNkZj5fOkooeSsiRl9cbDckJCIzIT5NRVE/J2ZuU0ZoXGwkIjMmUk8pek8zTTU1Rl9cbDckJCIzaTo+VVpvSSVlJUZoXGwkIjNldVhIPVw4ODVGX1xsNyQkIjNjbzg8Y3MhZTYmRmhcbCQiMyRbVkV1PGRqLCJGX1xsNyQkIjNjIWYqXDBKJlJlJkZoXGwkIjNtaHhuS3lbPjVGX1xsNyQkIjMlR0srPVh1NDYnRmhcbCQiM3coNHBhK1NMLSJGX1xsNyQkIjNHTVRRKXpmLGsnRmhcbCQiMyN6YVVqS2R2LSJGX1xsNyQkIjNHcnlaTno3XXJGaFxsJCIzOWpOJGZxXz4uIkZfXGw3JCQiMyxKJ3ooZnlBOHdGaFxsJCIzLXkhR1N4RGkuIkZfXGw3JCQiM3YnM2U8WSkqUTspRmhcbCQiMzcmbzNReGI7LyJGX1xsNyQkIjMnZmg6S3ApUUknKUZoXGwkIjMqKipbQWNEX2wvIkZfXGw3JCQiMydlMilvSXgtdCIqRmhcbCQiMyFHWyNmdC1mXzVGX1xsNyQkIjNaUXdcRF9OYCcqRmhcbCQiM2JFTiU+L1UjZTVGX1xsNyQkIjNbTTteaF0uPTVGX1xsJCIzQyg9YTtydVoxIkZfXGw3JCQiM10rKGVcWzwjbzVGX1xsJCIzRj0jKT5QIT04MiJGX1xsNyQkIjMpZnpWJHp2ZD82Rl9cbCQiMzErIWU+KTNbeTVGX1xsNyQkIjNaJnpUNVxnJ282Rl9cbCQiM0FHdyYqZS9PJjMiRl9cbDckJCIzcUhRMzJXXz83Rl9cbCQiM0dlekUqKVw1JDQiRl9cbDckJCIzJ2ZXaihSa1J1N0ZfXGwkIjMyNF4mR1IwOjUiRl9cbDckJCIzOjV3ZC1BSEA4Rl9cbCQiM1xDcXk8TDY0NkZfXGw3JCQiM2k2JG82IjQlPlAiRl9cbCQiM1kkZSRbbSlRdzYiRl9cbDckJCIzKXo/QUopZkVDOUZfXGwkIjN1VHVUXEx5RTZGX1xsNyQkIjNBLWF0ZGVYdjlGX1xsJCIzLmR5REMxMU82Rl9cbDckJCIzJCl6emIkcCUpXF8iRl9cbCQiM3lLVHNXJ1tgOSJGX1xsNyQkIjNVOE9JQCF5Kno6Rl9cbCQiMz1id0JmMS1jNkZfXGw3JCQiMylvNzVBKD5SSDtGX1xsJCIzTkRSVyhRS2Y7IkZfXGw3JCQiM3ltJSoqPiI+OiNvIkZfXGwkIjNJOy0lND5fbzwiRl9cbDckJCIzXTV2NmYtJypIPEZfXGwkIjNAcUc4Y3cvKD0iRl9cbDckJCIzNStvTjV1QSN5IkZfXGwkIjM5JT4qKSkzNF8pPiJGX1xsNyQkIjNNRicpUkVuU0o9Rl9cbCQiM2RMT01pIkcnNDdGX1xsNyQkIjNvUSJRP0c4Ryk9Rl9cbCQiM3MsKFFmaGg6QSJGX1xsNyQkIjMnKWUnUWtlc0kkPkZfXGwkIjNZU3ZfLCJbTkIiRl9cbDckJCIzMyY0Yy5VKm8mKT5GX1xsJCIzJUc4S1k6TmtDIkZfXGw3JCQiMyNvanhdb2xqLiNGX1xsJCIzMDIsQHZTPGY3Rl9cbDckJCIzMC8wNCZbKj0pMyNGX1xsJCIzLmZFJnlYTERGIkZfXGw3JCQiMzkkKlIoeTolZVJARl9cbCQiM0QmM1JJeDhoRyJGX1xsNyQkIjMrIXo8WF81bz0jRl9cbCQiMyczJ1Epb3ckKSkpSCJGX1xsNyQkIjNhQlY9cXMkNEMjRl9cbCQiMylIS2MwXGlRSiJGX1xsNyQkIjMxITRlbigpWyQqRyNGX1xsJCIzYyZmcEMqKXB2SyJGX1xsNyQkIjNtJik0b1lkJzRNI0ZfXGwkIjMzYWU+UnZdVThGX1xsNyQkIjNnJlJodG5wLlIjRl9cbCQiM1teSWwqcDtyTiJGX1xsNyQkIjN5KioqNHolNFlWQ0ZfXGwkIjNGeHZ1UGo6dDhGX1xsLUZcW2w2JkZeW2xGYltsRmJbbEZfW2wtRiY2JDdTRmZbbDckRmpbbEZnW2w3JEZhXGxGZ1tsNyRGZlxsRmdbbDckRlxdbEZnW2w3JEZhXWxGZ1tsNyRGZl1sRmdbbDckRltebEZnW2w3JEZgXmxGZ1tsNyRGZV5sRmdbbDckRmpebEZnW2w3JEZfX2xGZ1tsNyRGZF9sRmdbbDckRmlfbEZnW2w3JEZeYGxGZ1tsNyRGY2BsRmdbbDckRmhgbEZnW2w3JEZdYWxGZ1tsNyRGYmFsRmdbbDckRmdhbEZnW2w3JEZcYmxGZ1tsNyRGYWJsRmdbbDckRmZibEZnW2w3JEZbY2xGZ1tsNyRGYGNsRmdbbDckRmVjbEZnW2w3JEZqY2xGZ1tsNyRGX2RsRmdbbDckRmRkbEZnW2w3JEZpZGxGZ1tsNyRGXmVsRmdbbDckRmNlbEZnW2w3JEZoZWxGZ1tsNyRGXWZsRmdbbDckRmJmbEZnW2w3JEZnZmxGZ1tsNyRGXGdsRmdbbDckRmFnbEZnW2w3JEZmZ2xGZ1tsNyRGW2hsRmdbbDckRmBobEZnW2w3JEZlaGxGZ1tsNyRGamhsRmdbbDckRl9pbEZnW2w3JEZkaWxGZ1tsNyRGaWlsRmdbbDckRl5qbEZnW2w3JEZjamxGZ1tsNyRGaGpsRmdbbC1GXFtsNiZGXltsRmJbbEZfW2xGYltsLSUrQVhFU0xBQkVMU0c2JFEiQjYiUSFGZ15tLSUlVklFV0c2JDtGYltsJCIrYDRZVkNGNTskIi1lejI2IikpKiEjNyQiLlUqPV1MMTtGYl9tLUklRk9OVEdGZ15tNiVJKmhlbHZldGljYUdGZ15tSSZwbGFpbkdGZ15tIiM2LSUqVEhJQ0tORVNTRzYjIiIj</Plot></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Text-field layout="_pstyle15" style="_pstyle15"/><Text-field/></Worksheet>