FzzXIP25'_[(T?33N\@< #><=gӨ> w?|>.B?oXn=?{>2AA?@?o=C>B@yg@GLN^ _\ONNVH>. v G'g/U?/.Nhx&JfvCLN^ _\ONNV/ nU WDC&.N^ _\ONNVH<. B Ff~`U?/.Ng@GLN^ _\ONjA   H         *  %# .    n $    ! , 4          O2J &    )        :-   ^    8S KE.%! X}+Jc4.1k޿o߿{_گ߿o߿~_~{_ $@aA@A@@0@ @D @  @@@@A(@ @A2@HPH J  ` @ F  `2 A" @  BH X"@ @"@@B"@ D*"IBJ@ 0(!@ APJQ Y1 !"XAPX@ ""@@BD V ""D BH@P  @! "F"@ B@ !"@@  )DH@$D  @Q!0$@!! AA C@@EHP A!P@H  !0@ H # )0@@(!! P ( @  @J@ A* 2P@P IT   H*B @  (D@ ) &  BT`@@@@ "  AB (JH $ @B @`" @A $$PH @ @! @P @(  @DA@aB D @$@     E@  D( 1 @($"@BPP!  @@@ @ BA`   B  @ @@` @B""@ @ @ @DP@J H$B(@  @@$ @@ `H @@$`@@"` ( ( @@@D @H !@P@QP" "` @ @ @ a  `  @@ d@ , @*X(HA!P @H@" Q!@ H X@ "@@ D @ @   @0` @ @H B@4@"@b PB @"D @B @@ @ (Q HBB@B $ ""  $ @"@ @@@ p ! (@( AB`@ @H$ 00@A@ $@D @@ B  @a@A@@* P&@( (HHD `PL0"J!P(b@@!  "$@@ @ @ P @HJ$0@ZB@@"d @@0@ P @ "HJ `@H BD @ @ 8 (@ " JT ! 1 $ "@ $Y@ $ "BQV@"t "d A#"$"@$@@"@A ( !E#2  `   P@ @D ! `!0( FQ!HH  @ @ @P  @ `(0D @ JD@@D @"@`@,B @ H!@B@ @ !(@DX" D@ B A!"Hj BH@B   @D(  PB@ @ @4 "0BH HH @@BH"B   @) d d@@@ !D@$  X@ #&@@"@ P@ @! @P  @ @@@@ @A@@ (@ P@ @BB D@.PH@ ! !`   @    @B @@@  @ (@ @ @ $@ @ B @B@@P@@ @ @ ` `(@@(@ (@ @ @ !X @!@@ @  " (    @  @@ @  HED P@ @@`@@@@ @ @`  @@Q@" $H"(@@ @@@@ " )"!@@ @@  @@ @@@@!@@@H@ (@H0  @L"" `@   @ @(  @(P@   D@  @HD @@" @P H@"@ H@  DP@@@@!A@(@$@@@@ @@ @A#0@A (@@P  @ @  @P@J  @@ PH @! ! !! @  "@ " (( ( @ A  @ @A@HuVs_m[~~ݛmwo5{?y~{wޟ{ۿw_ֳ?]ﯶo޿ޟ+^{o}mۿ~ﯷ?;~{e[ݿ{O=߾^w~=~wu柿So~۝ݿ~w}g>s{7{}-;ͿW׵׼?~[W[~_}};~[{}}^w}ouċ)Ww{oجKs_}ov[_{sv߿T߾}~_>{߾U}{=]>{k{ny~vooo~Ͽ{w_?ww|wmߛ߾}w׿z_w̟v__߽Oۗ^f_/?>_߯߿G^oo_uWۿ߿uWכ?޿uw諤u{kuֻo_w?W~Uow{}m~}/u?{ۻ?y߿;~ko~[߷{>_}z޻uMzvߗwߛ~_{_M8w86ow^:곿owWO=wn}w[nv_=7۷υSUWWw}_߿[w7?}wo?_{o{߿/ru?>=ڿzͷvYx_yw~}}_>>mO͟m}ޞ?߿[o߿V۟u/q?w}ί]߿{y߾?׾WS?{{w߯o?_{-}z6=w_߿߿]_~?_߯y}o7??{}{_}۹{?_{j??~o{{׷:߯~?WϾ{{{[6~o}?n[׿߶}~߯ۿ{ooo=?z|o{{￧v~jߛ?}w]{SӾw]}_ի]}_{w뾺O5?fm_}~{Uo{W|;}~{[<?^;{~|wڽ~{~?{>o~zY{t~{7#{>޽?__{߿ov]m读}]v׿wn?fgkN~nWۿ?{?nw{!D@$ H@ #"@@"@ P@ @! P  @ @ @@@@ (@ P@ @B  D@*P@ !!` @  @ 0   @@@  @ @ @   @  B @@@@@ @ @ ` `(@ @ (@ @ X @!@@  " (   @ PONNV# HomeBpC|'$xHH(FG(HH(d'`HomeC C5RV< ;B(?< ?;B??U'b ASystem Center of Mass'un_Mkg??un_Dm??unRtBe.<>un_CA??un_KK??unsmmole??un_Lcd??un_Ts??unFFN??unENJ??unWWW??unCHC??unRs??unVlV??unRV??unHz??unSp??/s??/sBe.<>m/s??m^2??kg m^2??kg/m^2??'' ''A.q?'`- self.mass #* ( 9.8100004e+0)???b A'' P!q?'b A''@@q`angle(self.v#)????'b A''!`??`??`??q?'b A'k># ># <# 'eT91exMDTEXTttxt DataexDCeT95exTXMooVTVOD Movie &>?><=gӨ> w `Input[5]??`mass[1].mass#*sqr(2)/12???>>?8ѷb A Rectangle=?{b APointB?oXnbAppnq?b A Pin Joint~\>2;D?d33@9P.b New Century Schlbk Mass M (kg)@Input[5]y>$5b Button 8 y> 5b Button 10Y"ZBar Physical PendulumbNew Century Schlbk Text `(0.0)??`(0.0)??bAcm ]n`tA A Bb AAngle from Vertical@`time#???]`90*pi()/3.1415926+atan2(mass[1].p.y#-point[4].p.y#,mass[1].p.x#-point[4].p.x#)*180/3.1415926?<5????ytBb Erase Tracks]Cd`frame? =?b ATime@`frame()??`time#???]Pd`frame? =A?3b AAngle@`frame()??]`90*pi()/3.1415926+atan2(mass[1].p.y#-point[4].p.y#,mass[1].p.x#-point[4].p.x#)*180/3.1415926?<5????x?'nnw   pL|8~ pL| 0I:9"R #%%DSIDICT:_cv userdict /_cv known not {userdict /_cv 20 dict put}if _cv begin /bdf{bind def}bind def /isDeviceColor {/currentcolorspace where{pop currentcolorspace 0 get dup /DeviceGray eq exch dup /DeviceRGB eq exch /DeviceCMYK eq or or}{T}ifelse}bdf /setcmykcolor where{/setcmykcolor get /cvcmyk exch def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat setrgbcolor pop}bdf }ifelse /stg{isDeviceColor {cf ca /cs load setscreen setgray}{pop}ifelse}bdf /strgb{isDeviceColor {cf ca /cs load setscreen setrgbcolor}{pop pop pop}ifelse}bdf /stcmyk{isDeviceColor {cf ca /cs load setscreen cvcmyk}{pop pop pop pop}ifelse}bdf /min1{dup 0 eq{pop 1}if}bdf currentscreen/cs exch def/ca exch def/cf exch def end ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2$} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse # qddrw2:ddrw2:$6d4drw2:ud drw2: ,"New Century Schlbk" 8.( ddrw2: ddrw2:d4drw2:9) Instructionsd4drw2:d drw2:  d4drw2: oo 0(Click on the pivot point (pp)d drw2:  *4and drag it to any location ond drw2:  *4the bar to set the value of h.d4drw2: d drw2:  d drw2:  d4drw2: ::*hClick on the bar near thed drw2:  *4bottom and drag the bar tod drw2:  *4set the initial angle fromd drw2:  *4 vertical.ddrw2:ddrw2D{wb APicture@ `frame()=0??x?'99K   ^*D8~ ^*D 0I:9" #%%DSIDICT:_cv userdict /_cv known not {userdict /_cv 20 dict put}if _cv begin /bdf{bind def}bind def /isDeviceColor {/currentcolorspace where{pop currentcolorspace 0 get dup /DeviceGray eq exch dup /DeviceRGB eq exch /DeviceCMYK eq or or}{T}ifelse}bdf /setcmykcolor where{/setcmykcolor get /cvcmyk exch def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat setrgbcolor pop}bdf }ifelse /stg{isDeviceColor {cf ca /cs load setscreen setgray}{pop}ifelse}bdf /strgb{isDeviceColor {cf ca /cs load setscreen setrgbcolor}{pop pop pop}ifelse}bdf /stcmyk{isDeviceColor {cf ca /cs load setscreen cvcmyk}{pop pop pop pop}ifelse}bdf /min1{dup 0 eq{pop 1}if}bdf currentscreen/cs exch def/ca exch def/cf exch def end #33 ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2KS#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse # Gddrw2:ddrw2:$d4drw2:#33d drw2:  ddrw2:"x-#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2KS#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2:#33d drw2:  ddrw2:##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2LU#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2:#33,Times New Roman 8.(81Tddrw2:"8R#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2SW#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2: #33 (+ sddrw2:"D\#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2W]#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2: #33 )addrw2:"Dp#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2ck#33 ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2:#33, Symbol 8(8=ddrw2:"8#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2nv#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse # ddrw2:ddrw2:$d4drw2:#33),2ddrw2:"8#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2u}#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2:#33, Symbol)pddrw2:"8#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2w#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse # ddrw2:ddrw2:$d4drw2:#33 ( 5Iddrw2:" J#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2}#33 ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2: #33 (+ pddrw2:"d#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2}#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2: #33 )pddrw2:"|#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2:#33 8(`!mddrw2:"`L#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2:#33)4gddrw2:"`p#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2#33 ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2:#33)(hddrw2:"`#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d`drw2#33} Z ##N0.7969 0.0005 0.2 userdict /_cv known{_cv begin strgb end}{pop pop pop}ifelse #"$ x ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #dPdrw2 #33}3 ##N0.7969 0.0005 0.2 userdict /_cv known{_cv begin strgb end}{pop pop pop}ifelse # SPC SPC # ##N0.7969 0.0005 0.2 userdict /_cv known{_cv begin strgb end}{pop pop pop}ifelse #"4# < ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #dPdrw2 t#33}(8tt ##N0.7969 0.0005 0.2 userdict /_cv known{_cv begin strgb end}{pop pop pop}ifelse # SPC SPC # ##N0.7969 0.0005 0.2 userdict /_cv known{_cv begin strgb end}{pop pop pop}ifelse # l! ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2#33 ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse # ddrw2:ddrw2:$d4drw2:#33(8=ddrw2:"8#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse # ddrw2:ddrw2:$d4drw2:#33),2ddrw2:"8#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2:#33)pddrw2:"8#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2y#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse # ddrw2:ddrw2:$d4drw2:#33 (EIddrw2:"Z#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2: #33 (+ cddrw2:" n#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2: #33)mddrw2:" #:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2w#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2:#33 8(+ddrw2:"#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2y#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse # ddrw2:ddrw2:$d4drw2:#33),mddrw2:"#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2y#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2:#33)4hddrw2:"#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2w#33 ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2: #33  ((!2ddrw2:"4#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2:#33 8(`mddrw2:"`#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2:#33)4gddrw2:"`#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2#33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #  ddrw2:ddrw2:$d4drw2:#33)$hddrw2:"`#:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d`drw2#33 Z ##N0.7969 0.0005 0.2 userdict /_cv known{_cv begin strgb end}{pop pop pop}ifelse # $@$< ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #dPdrw2 ̀#33}{ǀɀ ##N0.7969 0.0005 0.2 userdict /_cv known{_cv begin strgb end}{pop pop pop}ifelse # SPC SPC # ##N0.7969 0.0005 0.2 userdict /_cv known{_cv begin strgb end}{pop pop pop}ifelse #"4# < ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #dPdrw2 t#33}(̀tπt ##N0.7969 0.0005 0.2 userdict /_cv known{_cv begin strgb end}{pop pop pop}ifelse # SPC SPC # ##N0.7969 0.0005 0.2 userdict /_cv known{_cv begin strgb end}{pop pop pop}ifelse # l0<!@ ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2X^e #33} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse # ddrw2:ddrw2:$d4drw2: #33@@@@Uddrw2: Small Amplitude Period,"New Century Schlbk" 0@@@@(yS)#m)1a) l)l) )A)'m)1p)#l)i)t)u)#d)#e) )P)'e)r)i)o) dddrw2: ddrw2:ddrw2D{Kmob APicture]Pd`frame? L =@? h =?o?Icm ==C? Ipp =>B?#bA Parameters@`frame()??`2*m??`|mass[1].p#-point[4].p#|????`mass[1].moment#???9`mass[1].moment#+|mass[1].p#-point[4].p#|^2*mass[1].mass#??????]Ld`frame?=@y?b APeriod for small angle@`frame()??=`2*pi()*sqrt(output[19].y4/(mass[1].mass#*9.8*output[19].y2))???Y'Zsecb ATextx?'ddX&   D8~ D 0I:9": #%%DSIDICT:_cv userdict /_cv known not {userdict /_cv 20 dict put}if _cv begin /bdf{bind def}bind def /isDeviceColor {/currentcolorspace where{pop currentcolorspace 0 get dup /DeviceGray eq exch dup /DeviceRGB eq exch /DeviceCMYK eq or or}{T}ifelse}bdf /setcmykcolor where{/setcmykcolor get /cvcmyk exch def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat setrgbcolor pop}bdf }ifelse /stg{isDeviceColor {cf ca /cs load setscreen setgray}{pop}ifelse}bdf /strgb{isDeviceColor {cf ca /cs load setscreen setrgbcolor}{pop pop pop}ifelse}bdf /stcmyk{isDeviceColor {cf ca /cs load setscreen cvcmyk}{pop pop pop pop}ifelse}bdf /min1{dup 0 eq{pop 1}if}bdf currentscreen/cs exch def/ca exch def/cf exch def end ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #d1drw2F} ##:1 userdict /_cv known {_cv begin stg end}{pop}ifelse # eddrw2:ddrw2:$d4drw2: @@@@K,"New Century Schlbk" 0.@@@@(Emd drw2:  *Nmd drw2:  *[kg md4drw2: @@@@(|2d drw2:  d4drw2: @@@@(Ekg md4drw2: @@@@(2ddrw2:ddrw2D{X&'b A Picture YHZNDr. Richard Vawter Western Washington University vawter@physics.wwu.edu 1/2000b AText