 
--> exec('E:\My program EM\22.General plane motion of rigid bodies\22.6.sce', -1)

vB=1.155 m/sec