FzzXIP25'_[³S) T?€3333ö“’’HomeBpC|Ć'$xHHŚ(’į’āłFG(üHHŲ(d'h’HomeBpCpĀ,’’RÜV<£× =eDˆ(<£× <£× ?€=eDˆ?€?€’’U’’'šÜ”ž…ƒŒb A‹’’ˆSystem Center of Mass’’'—un_Mkg?€?€un_Dm?€?€unRtrad?€?€un_CA?€?€un_KK?€?€unsmmole?€?€un_Lcd?€?€un_Ts?€?€unFFąN?€?€unENąJ?€?€unWWŠW?€?€unCHC?€?€unRsąą½?€?€unVlŠšV?€?€unRVń?€?€unHzš?€?€unSpš?€?€˜ńrad/s?€?€ąm/s^2?€?€šm/s?€?€m^2?€?€kg m^2?€?€ąN m?€?€’’'Ž’’' ’’'ķ’’'AõĆ.’¬Ćq›?€'`- self.mass #* ( 9.8100004e+0)?€?€?€§Œb A‹’’ˆ’’'ī’’' Pö!q›’’?€'§Œb A‹’’ˆ’’'ģ’’'@ @ q›`angle(self.v#)?€?€ˆˆˆˆ?€š?€'§Œb A‹’’ˆ’’'ļ’’'!`?€?€ˆˆˆˆ`?€?€ˆˆˆˆ`?€?€ˆˆˆˆq›’’?€'§Œb A‹’’ˆ’’'‚Ō··ŻkĀ¢>LĢĶ>ø>ø’’'Œ±•eT91exMD±TEXTttxtƒ DataexDC›eT95exTXµMooVTVOD‚ Movie ’’&ņŹ’’³>ĢĢĢAĢĢŻkuTwr°ĄS32ĄĢĢ@nxAÖäT>™™š>™™š?8Ń·„ƒŒb A‹ˆ Rectangle’’ŠÜ=LĢĄ”ž…ƒŒb A‹’’ˆAnchor’’³?332?ĢĢĢ33’’’’°Ą0‰ŽĄ&;±Š"—¶ƒ²$‘÷Ŗ”?\'>‘æĻ `Input[8]?€?€ˆˆˆˆ>™™š?8Ń·`n„ƒ.ŒĢĢb A‹’’ˆ Rectangle@.`Mass[3].mass #* Mass[3].a.x#?€?€ˆˆˆˆ?€?€ą`Mass[3].mass #* Mass[3].a.y#?€?€ˆˆˆˆ?€?€ą`constraintforce(10002,3).x#?€?€ˆˆˆˆ?€ą`constraintforce(10002,3).y#?€?€ˆˆˆˆ?€ą`contactpairs(3)?€?€ˆˆˆˆ`normalforcepair(3,1).x#?€?€ˆˆˆˆ?€ą`normalforcepair(3,1).y#?€?€ˆˆˆˆ?€ą`normalforcepair(3,2).x#?€?€ˆˆˆˆ?€ą`normalforcepair(3,2).y#?€?€ˆˆˆˆ?€ą`normalforcepair(3,3).x#?€?€ˆˆˆˆ?€ą`normalforcepair(3,3).y#?€?€ˆˆˆˆ?€ą`normalforcepair(3,4).x#?€?€ˆˆˆˆ?€ą`normalforcepair(3,4).y#?€?€ˆˆˆˆ?€ą`normalforcepair(3,5).x#?€?€ˆˆˆˆ?€ą`normalforcepair(3,5).y#?€?€ˆˆˆˆ?€ą`contactpair(3,1).x?€?€ˆˆˆˆ`contactpair(3,1).y?€?€ˆˆˆˆ`contactpair(3,2).x?€?€ˆˆˆˆ`contactpair(3,2).y?€?€ˆˆˆˆ`contactpair(3,3).x?€?€ˆˆˆˆ`contactpair(3,3).y?€?€ˆˆˆˆ`contactpair(3,4).x?€?€ˆˆˆˆ`contactpair(3,4).y?€?€ˆˆˆˆ`contactpair(3,5).x?€?€ˆˆˆˆ`contactpair(3,5).y?€?€ˆˆˆˆ`contactpairs(3)?€?€ˆˆˆˆ`frictionforcepair(3,1).x#?€?€ˆˆˆˆ?€ą`frictionforcepair(3,1).y#?€?€ˆˆˆˆ?€ą`frictionforcepair(3,2).x#?€?€ˆˆˆˆ?€ą`frictionforcepair(3,2).y#?€?€ˆˆˆˆ?€ą`frictionforcepair(3,3).x#?€?€ˆˆˆˆ?€ą`frictionforcepair(3,3).y#?€?€ˆˆˆˆ?€ą`frictionforcepair(3,4).x#?€?€ˆˆˆˆ?€ą`frictionforcepair(3,4).y#?€?€ˆˆˆˆ?€ą`frictionforcepair(3,5).x#?€?€ˆˆˆˆ?€ą`frictionforcepair(3,5).y#?€?€ˆˆˆˆ?€ą`contactpair(3,1).x?€?€ˆˆˆˆ`contactpair(3,1).y?€?€ˆˆˆˆ`contactpair(3,2).x?€?€ˆˆˆˆ`contactpair(3,2).y?€?€ˆˆˆˆ`contactpair(3,3).x?€?€ˆˆˆˆ`contactpair(3,3).y?€?€ˆˆˆˆ`contactpair(3,4).x?€?€ˆˆˆˆ`contactpair(3,4).y?€?€ˆˆˆˆ`contactpair(3,5).x?€?€ˆˆˆˆ`contactpair(3,5).y?€?€ˆˆˆˆ•’’Ü>€æ336`Input[7]*3.14159/180?€?€”ž…ƒŒb A‹’’ˆ Base Point•’’k `Input[6]?€?€ą`Input[7]*3.14159/180?€?€>øA@q›`Input[7]*3.14159/180?€?€?€’’ `Input[6]?€?€ą§ŒŻkĀ¢b A‹’’ˆ Applied Force@`Input[7]*3.14159/180?€?€ `Input[6]?€?€ą•’’\AAšĢĢ@<P‰ąb A‹ˆ Fapp (N)@Input[6]’’\CC“$ĢĢ@<P‰%b A‹ˆ Direction (Deg)@Input[7]’’\>’’’?€™™3333@<P‰<Tb A‹ ˆStatic Friction@Input[8]’’ x’’?€'^^ Ó’ ’ž  P 4œ…bR ‚ P 4œ 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 #”d1drw2€”g’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä@@@@”š’ņ„ ˜Ä,"New Century Schlbk" 0.@@@@( (Q"The block will move up the wall if ™”d drw2:   ˜ ™”ddrw2:”ć —”ddrw2D ƒ’{ Ó‰=Ķb A‹ ˆPicture@ `frame()>30?€?€’’ x’’?€' H HPˆ’ ’ž  ¬ģ8…bR ‚ ¬ģ8 0Iˆ:µœš9"7Ķ ’’’’’’’’# Ä”ĄŲ%%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ėF;Ī’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ģ @@@@”šp ˜ ›”d drw2: FTĢ , Geneva 0.@@@@(ÜF)T œ”ddrw2:  ™”d4drw2: Ģ @@@@ ˜ ›”ddrw2: = Total Net Force,"New Century Schlbk") )=) )T)"o)t)a)l) )N)'e)t) )F)"o)r)c)e œ”ddrw2:  ™”d drw2:   ˜ ™”d4drw2: Ģ @@@@ ˜ ›”d drw2: FF(F)F œ”ddrw2:  ™”d4drw2: Ģ @@@@ ˜ ›”ddrw2: = Force of Friction") )=) )F)"o)r)c)e) )o)f) )F)"r)i)c)t)i)o)n œ”ddrw2:  ™”d drw2:   ˜ ™”d4drw2: Ģ @@@@ ˜ ›”d drw2: FN(\F)N œ”ddrw2:  ™”d4drw2: Ģ @@@@ ˜ ›”ddrw2: = Normal Force")# )=) )N)'o)r)m).a)l) )F)"o)r)c)e œ”ddrw2:  ™”d drw2:   ˜ ™”d4drw2: Ģ @@@@ ˜ ›”d drw2: FG(œF)G œ”ddrw2:  ™”d4drw2: Ģ @@@@ ˜ ›”ddrw2: = Force of Gravity")! )=) )F)"o)r)c)e) )o)f) )G)'r)a)v)i)t)y œ”ddrw2:  ™”d drw2:   ˜ ™”d4drw2: Ģ @@@@ ˜ ›”d drw2: Fapp(ÜF)a)p)p œ”ddrw2:  ™”d4drw2: Ģ @@@@ ˜ ›”ddrw2: = Applied Force") )=) )A)$p) p) l)i)e)d)  )F)"o)r)c)e œ”ddrw2:  ™”d drw2:   ˜ ™”ddrw2:”ć —”ddrw2D ƒ’{Y‘‰Ö„b A‹ ˆPicture’’ x’’?€'@ @ % ’ ’ž  h ü„…bR ‚ h ü„ 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 #”d1drw2šµŖ¾Ä’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜, Geneva 0.( ˜ÕF ™”ddrw2:”ć —" ˜š#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2Ÿ¼«ĆÄ’’’’’’ ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š  ˜ $+ a ™”ddrw2:”ć —" ¤#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2ŸĀ«ÉÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š  ˜)p ™”ddrw2:”ć —" ¤#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2ŸČ«ĻÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š  ˜)p ™”ddrw2:”ć —" ¤7#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2œŠ©čÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’ņ/ ˜,"New Century Schlbk" 0( ˜Asin( ™”ddrw2:”ć —" ˜#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2œē©ļÄ’’’’’’Æ ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’ņ ˜, Symbol)\q ™”ddrw2:”ć —" ˜µ#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2œī©óÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’ņ  ˜")) ™”ddrw2:”ć —" ˜Ė#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2œö©žÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’ņ ˜) > ™”ddrw2:”ć —" ˜ņ#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2š’ŖÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜)$F ™”ddrw2:”ć —" ˜#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2šŖÄ’’’’’’’ ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜) G ™”ddrw2:”ć —" ˜=#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2œ©Ä’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’ņ ˜),+ ™”ddrw2:”ć —" ˜b#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2šŖ%Ä’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜)(F ™”ddrw2:”ć —" ˜Œ#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2š$Ŗ-Ä’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜) F ™”ddrw2:”ć —" ˜¬#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2”+«AÄ’’’’’’’ ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’ō+ ˜ ›”d drw2: max" $+ m)$a)x œ”ddrw2:  ™”ddrw2:”ć —" ¤’#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2®¾ŠÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜ 0( čF ™”ddrw2:”ć —" č #”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2®‰¾“Ä’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜) G ™”ddrw2:”ć —" čE#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2®”¾Ä’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜),= ™”ddrw2:”ć —" čq#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2®Ÿ¾¬Ä’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜),m ™”ddrw2:”ć —" čØ#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2®«¾“Ä’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜)0g ™”ddrw2:”ć —" čŹ#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2®Ņ¾ŪÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜)œF ™”ddrw2:”ć —" čd#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2®Ś¾ćÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜) F ™”ddrw2:”ć —" č„#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2³įæėÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜ $+ m ™”ddrw2:”ć —" ō„#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2³źæńÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š  ˜)$a ™”ddrw2:”ć —" ō½#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2³šæųÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜)x ™”ddrw2:”ć —" ōŌ#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2°ś½Ä’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’ņ ˜ 0( čé= ™”ddrw2:”ć —" č#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2°½ Ä’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’ņ ˜)(m ™”ddrw2:”ć —" č,#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2µ æÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’ō  ˜" $+$ s ™”ddrw2:”ć —" ōE#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2®¾Ä’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜ 0( čIF ™”ddrw2:”ć —" čd#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2®¾$Ä’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜) N ™”ddrw2:”ć —" č‹#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2®C¾LÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜)¤F ™”ddrw2:”ć —" č(#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2®K¾UÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜) N ™”ddrw2:”ć —" čO#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2®V¾_Ä’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜),= ™”ddrw2:”ć —" čy#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2®a¾jÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š ˜),F ™”ddrw2:”ć —" č #”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2³gænÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š  ˜ $+ a ™”ddrw2:”ć —" ō±#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2³mætÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š  ˜)p ™”ddrw2:”ć —" ōĖ#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2³sæzÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’š  ˜)p ™”ddrw2:”ć —" ōć#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2°{½”Ä’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’ņ1 ˜" 0( čķcos( ™”ddrw2:”ć —" čO#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2°”½œÄ’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’ņ ˜)dq ™”ddrw2:”ć —" či#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2°œ½”Ä’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: Ä”š’ņ  ˜") ) ™”ddrw2:”ć — ”ddrw2D ƒ’{% ‰N·b A‹ ˆPicture@ `frame()>30?€?€’’ x’’?€'pp%å’ ’ž  äL xą…bR ‚ äL xą 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 #”d1drw2¹“Ęxķ|’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: ķ|@@@@”š’ņÉ ˜,"New Century Schlbk" 0.@@@@( M$The block will move down the wall if ™”d drw2:   ˜ ™”ddrw2:”ć — Œń„" Ž#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2ĶÅŻĪń„’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: ń„”š’š ˜, Geneva+ČXF ™”ddrw2:”ć —" d0#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2ŅĖŽŅń„’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: ń„”š’š  ˜ $+ a ™”ddrw2:”ć —" pA#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2ŅŃŽŲń„’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: ń„”š’š  ˜)p ™”ddrw2:”ć —" p[#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2Ņ׎Žń„’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: ń„”š’š  ˜)p ™”ddrw2:”ć —" ps#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2ĻßÜ÷ń„’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: ń„”š’ņ/ ˜" 0( d}sin( ™”ddrw2:”ć —" dŁ#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2ĻöÜžń„’’’’’’ ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: ń„”š’ņ ˜, Symbol)\q ™”ddrw2:”ć —" dń#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2ĻžÜń„’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: ń„”š’ņ  ˜") ) ™”ddrw2:”ć —" d #”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2ĻÜ ń„’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: ń„”š’ņ ˜)< ™”ddrw2:”ć —" d.#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2ĶŻń„’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: ń„”š’š ˜)(F ™”ddrw2:”ć —" dX#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2ĶŻ!ń„’’’’’’ ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: ń„”š’š ˜) G ™”ddrw2:”ć —" d}#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2Ļ"Ü*ń„’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: ń„”š’ņ ˜),- ™”ddrw2:”ć —" d¢#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2Ķ+Ż4ń„’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: ń„”š’š ˜)$F ™”ddrw2:”ć —" dČ#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2Ķ3Ż<ń„’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: ń„”š’š ˜) F ™”ddrw2:”ć —" dč#”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2Ō9ŽOń„’’’’’’ ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: ń„”š’ō+ ˜ ›”d drw2: max" $+ m)$a)x œ”ddrw2:  ™”ddrw2:”ć — ”ddrw2D ƒ’{%剅Źb A‹ˆPicture@ `frame()>30?€?€’’x’’?€'rrĖ’ ’ž  $| ”Ø…bR ‚ $| ”Ø 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 #”d1drw2Ieź’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: @@@@”š • ˜,"New Century Schlbk" 4.@@@@( P}!Observe the range over which the  ™”d4drw2: Ó @@@@ ˜Ó Õ( P Applied Force ™”d4drw2: @@@@ ˜Ā( P˜ will keep the block ™”d drw2:   ˜ ™ ˜( ˆ„Cpenned to the wall but the block will not move up or down the wall. ™”ddrw2:”ć —”ddrw2D ƒ’{Ė‰Pb A‹ˆPicture’’x’’?€'ÖÖ'ź’ ’ž  ~Pų…bR ‚ ~Pų 0Iˆ:µœš9"B ’’’’’’’’# Ä”ĄŲ%%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  æžv ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”d1drw2ßž–p…¤0žv’’’’’’} ##”Ą:1 userdict /_cv known {_cv begin stg end}{pop}ifelse #”– ”ddrw2:”ddrw2:$”d4drw2: žv@@@@”š&u@¢  ˜,"New Century Schlbk" 0.@@@@(¦‚You can change the magnitude or ™”d drw2:   ˜ ™ ˜(ŚR&direction of the Applied Force sliders ™”d drw2:   ˜ ™ ˜+<4! while the simulation is running. ™”ddrw2:”ć —”ddrw2D ƒ’{'ź‰4Db A‹ ˆPicture@ `frame()>5?€?€’’ Y"Ė’žZBlock on the Wallw‰’ūŻbĢĢNew Century Schlbk‹ˆText’’Y.¤’žZ=Dr. Richard Vawter Western Washington University January 1998z‰%Wb ĢĢ’’ĢĢA‹ˆText’’y< ĄĄĄĄĄĄ‰~Įb‹ˆ Button 16’’y<ĄĄĄĄĄĄ‰€b‹’’ˆ Button 18’’