**TI86** Program file dated 06/23/04, 19:56 ñMOTIONGCñïRadianÖLbl TÖClLCDÖOutpt(1,1,"MOTION UNDER GRAVITY"ÖOutpt(3,1,"F1 NO AIR FRICTION"ÖOutpt(4,1,"F2 FALLING BODY WITH AIR RESISTANCE"ÖMenu(1,"F1",T1,2,"F2",T2,5,QU,QÖLbl T1ÖZMOTIÖClLCDÖFnOff Ög1/2g2Öv*sin Áv1Öv*cos Áv2Öy1=g2*x+v1*x+h1Öy4=g1*x+v1Öh1-h2d1Ö(v1+(v1-4*g2*d1))/g1t1ÖIf t10Ö(v1-(v1-4*g2*d1))/g1t1Öt1x:y4v11Öv2*t1dÖv1/g1xÖy1yÖOutpt(1,1,"MAX HEIGHT="ÖOutpt(1,13,round(y1,3)ÖOutpt(2,5,"IN"ÖOutpt(2,8,round(x,2)ÖOutpt(2,18,"SECS"ÖOutpt(3,1,"LANDS IN"ÖOutpt(3,10,round(t1,2)ÖOutpt(3,18,"SECS"ÖOutpt(4,1,"VERTICLE IMPACT VELO-CITY="ÖOutpt(5,7,round(v11,2)ÖOutpt(6,1,"HORIZONTAL VELOCITY="ÖOutpt(7,2,round(v2,2)ÖMenu(1,MO,TA,2,PR,T,5,QU,QÖLbl TAÖClLCDÖÖOutpt(1,1,"VERTICLE VELOCITY="ÖOutpt(3,1,round(3.6v11))ÖOutpt(3,17,"km/h"ÖÖOutpt(5,1,"RANGE="ÖOutpt(5,8,round(d,2)ÖZASKGRAFÖIf K==22ÖGoto QÖIf K102ÖGoto TÖt1xÖZGRAFÖGoto TÖLbl T2ÖClLCDÖInput "MASS? ",m1ÖInput "AIR RESISTANCE k? ",k1ÖInput "HEIGHT? ",h1Ö9.8g1ÖFnOff Öy1=x*m1*g1/k1-m1g1/k1(1-e^((k1*x)/m1))+h1Öy3=(m1*g1)/k1(1-e^((k1*x)/m1))ÖSolver(y1,x,1,{0,110}ÖxtÖOutpt(4,1,"AIR TIME="ÖOutpt(4,10,round(x,2)ÖOutpt(4,18,"secs"ÖOutpt(5,1,"VELOCITY="ÖOutpt(5,10,round(y3,2)ÖOutpt(5,18,"m/s"Ö.5h1yÖZASKGRAFÖIf K==22ÖGoto TÖIf K102ÖGoto TÖtxÖZGRAFÖGoto TÖLbl T3ÖLbl QÖZMAKÖStopó•