MOTION.basaSketcher‘P=DW= ‘Ñ=±hTEXTSmBa`@°@¤@°@HSMain[ßa®–²°tð°tP¢[Ú[Úa®–²°ˆÓê[ÚÓ²' MOTION.bas
? CAT(87);
? "1 - Velocity"
? "2 - Acceleration"
? "3 - Distance"
? "4 - Time"
INPUT "Solve for ";x
IF x = 1
? "1 - Time, Accel, Initial V"
? "2 - Distance, Accel, Initial V"
? "3 - Cylinder Velocity"
INPUT "Known "; y
IF y=1
INPUT "Enter Time, Accel, Initial V ";t,a,vi
vf=vi+a*t
ELIF y=2
INPUT "Enter Distance, Accel, Initial V ";d,a,vi
vf=SQRT(vi^2+2*a*d)
ELIF y=3
INPUT "Enter Flow Rate(gpm), Area(sqin) ";f,a
vf=(231*f)/(720*a)
FI
? "Final Velocity = ";vf

ELIF x = 2
? "1 - Time, Initial V, Final V"
? "2 - Distance, Time, Initial V"
? "3 - Distance, Initial V, Final V"
INPUT "Known "; z
IF z=1
INPUT "Enter Time, Initial V. Final V ";t,vi,vf
a=(vf-vi)/t
ELIF z=2
INPUT "Enter Distance, Time, Initial V ";d,t,vi
a=(2*d-2*vi*t)/(t^2)
ELIF z=3
INPUT "Enter Distance, Initial V, Final V ";d,vi,vf
a=(vf^2-vi^2)/(2*d) 
FI
? "Acceleration = ";a

ELIF x = 3
? "1 - Time, Initial V, Accel"
? "2 - Time, Initial V, Final V"
? "3 - Accel, Initial V, Final V"
INPUT "Known "; b
IF b=1
INPUT "Enter Time, Initial V. Accel ";t,vi,a
d=vi*t+.5*a*t^2
ELIF b=2
INPUT "Enter Time, Initial V, Final V ";t,vi,vf
d=(t*(vi+vf))/2
ELIF b=3
INPUT "Enter Accel, Initial V, Final V ";a,vi,vf
d=(vf^2-vi^2)/2*a
FI
? "Distance = ";d

ELIF x = 4
INPUT "Enter Initial V, Final V, Accel ";vi,vf,a
t=(vf-vi)/a
? "Time = ";t

FI
Source: geocities.com/renwand
