1 files changed, 23 insertions, 0 deletions
diff --git a/1928/CH4/EX4.15.22/ex_4_15_22.sce b/1928/CH4/EX4.15.22/ex_4_15_22.sce
new file mode 100755
index 000000000..87a5ff982
--- /dev/null
+++ b/1928/CH4/EX4.15.22/ex_4_15_22.sce
@@ -0,0 +1,23 @@
+//Chapter-4,Example4_15_22,pg 4-37
+
+t=1*10^-3                               //thickness of quartz crystal
+
+//given t=l/2
+
+l=t*2                                   //wavelength
+
+Y=7.9*10^10                             //young's module of crystal
+
+p=2650                                  //density of crystal
+
+v=sqrt(Y/p)                             //velocity of vibration
+
+n=v/l                                   //frequency of vibration
+
+printf("frquency of vibration =")
+
+disp(n)
+
+printf("Hz")
+
+