//Example 20 // frequency and amplitude clc; clear; close; c=10^-4;//N-m m1=9;//gm m2=1;//gm mu=((m1*m2)/(m1+m2))*10^-3;//kg r=20;//cm I=mu*(r*10^-2)^2;//kg-m^2 fr=((1/(2*%pi))*sqrt(c/I));//vibrations/sec disp(fr,"frequency of vibration is ,(vibrations/s)=") e=10^-2;//joule thmax=sqrt((2*e)/c);//radians disp(thmax,"amplitude is,(radians)=")