1 files changed, 15 insertions, 0 deletions
diff --git a/1928/CH4/EX4.15.18/ex_4_15_18.sce b/1928/CH4/EX4.15.18/ex_4_15_18.sce
new file mode 100755
index 000000000..aec63662e
--- /dev/null
+++ b/1928/CH4/EX4.15.18/ex_4_15_18.sce
@@ -0,0 +1,15 @@
+//Chapter-4,Example4_15_18,pg 4-35
+
+v1=5.9*10^3                             //velocity of UW in mild steel
+
+v2=4.3*10^3                             //velocity of UW in brass
+
+t2=15*10^-3                             //thickness of brass plate
+
+t1=v2*t2/v1                             //since ve;ocity is inversly proportional to thickness
+
+printf("real thickness =")
+
+disp(t1)
+
+printf("meter")