//Velocities of point B and D
//refer fig. 22.8
vA=5*1  //m/sec
//Instantaneous centre in vertically downward direction
Ic=5/5  //m
vB=2*5  //m/sec
CP=1+0.6*sind(60)  //m
PD=0.6*cosd(60)  //m
CD=sqrt((1.520^2)+(0.3^2))  //m
vD=1.549*5  //m/sec
//Inclination to horizontal
theta=atand((0.3)/(1.520))  //degree
printf("\nvD=%.2f m/sec\ntheta=%.2f degree",vD,theta)