**TI86** Program file dated 06/23/04, 19:57 c STRIGLDERSQìoëD1/D1/-IF c has vel V,b'=.5(abs(a-c))^.5*2c*VoëD3/D1/-OR (b/c)V=b'o^