1 files changed, 26 insertions, 0 deletions
diff --git a/3532/CH3/EX3.3.3/Ex3_3.sce b/3532/CH3/EX3.3.3/Ex3_3.sce
new file mode 100644
index 000000000..0c30824a7
--- /dev/null
+++ b/3532/CH3/EX3.3.3/Ex3_3.sce
@@ -0,0 +1,26 @@
+clc
+clear
+mprintf('Mechanical vibrations by G.K.Grover\n Example 3.3.3\n')
+//given data
+m=600//mass of gun barrel in Kgs
+k=294000//stiffness in N/m
+x=1.3//recoil of gun in meters
+//calculations
+E=0.5*k*x^2//energy stored at the end of recoil
+Vo=sqrt(2*E/m)//velocity of recoil
+Cc=2*sqrt(k*m)//critical damping in N-sec/m
+Wn=sqrt(k/m)//natural frequency of undamped vibration in rad/sec
+T=2*%pi/Wn//time period of undamped vibration in sec
+Trecoil=(1/4)*T//time period for recoil or outward stroke in sec
+//x=(1.3+28.8*t)*e^(-22.1*t) from eqn 3.3.24
+mprintf('a)the initial recoil velocity of barrel is %f m/s\nb)critical damping co-efficient of the dashpot which is engaged at\nthe end of recoil stroke is %f N-sec/m\n\nsubstituting the value for t in eqn 3.3.24,starting from t=0.1 sec\nwith an increment of 0.01sec we get the following observations\n',Vo,Cc)
+t=0.1
+for i=1:20
+   x=(1.3 +28.8*t)*exp(-22.1*t)
+   mprintf('x=%f at t=%f\n',x,t)
+   t=t+0.01
+end
+mprintf('As x approaches the value of 0.05m,the value of t=0.22sec')
+Trec=0.22
+Tret=Trecoil+Trec
+mprintf('\nc)Therefore time required for barrel to return to position 5cm from\n the initial position is %f sec',Tret)