\START85\
\COMMENT=Program file dated 12/22/98, 16:35
\NAME=LINMOT
\FILE=C:\TI85LINK\PROGRAMS\LINMOT.85P
:ClLCD
:InpST "x(t)=",eqn
:\St>Eq\(eqn,xt1)
:Lbl B1
:Menu(1,"eval",A1,2,"stats",A2,3,"graph",A3,5,"exit",A5)
:Lbl A1:ClLCD
:Input "t=",x
:Outpt(3,1,"x(t)="
:Outpt(4,1,"v(t)="
:Outpt(5,1,"a(t)="
:Outpt(3,7,evalF(xt1,t,x))
:Outpt(4,7,der1(xt1,t,x))
:Outpt(5,7,der2(xt1,t,x))
:Goto B1
:Lbl A2
:ClLCD:0\->\x:0\->\M:0\->\G
:Input "Initial time: ",K
:Input "Final time: ",r
:Outpt(3,1,"displacement="
:evalF(xt1,t,r)-evalF(xt1,t,K)\->\x
:Outpt(3,15,x)
:Outpt(4,1,"distance="
:xt2=der1(xt1,t,t)
:Outpt(4,11,fnInt(abs xt2,t,K,r))
:Outpt(5,1,"avg. velocity="
:Outpt(5,16,x/(r-K))
:Outpt(6,1,"max velocity="
:fMax(xt2,t,K,r)\->\G
:Outpt(6,15,evalF(xt2,t,G))
:Outpt(7,1,"  at t="
:Outpt(7,9,G)
:Goto B1
:Lbl A3
:Param
:yt1=1+.1t:0\->\yMin:2\->\yMax
:evalF(xt1,t,0)-10\->\xMin:xMin+35\->\xMax
:8\->\tMax:.1\->\tStep
:DispG:Trace
:Goto B1
:Lbl A5
\STOP85\