3 files changed, 33 insertions, 0 deletions
diff --git a/1280/CH4/EX4.1/4_1.sce b/1280/CH4/EX4.1/4_1.sce
new file mode 100755
index 000000000..7f5c5d4f1
--- /dev/null
+++ b/1280/CH4/EX4.1/4_1.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+d= 4 //in
+p= 20 //percent
+d1= 0.140
+//CALCULATIONS
+Gd= d-2*((100-20)*d1/100)
+Gw= d1+2*(p*d1/100)
+//RESULTS
+printf ('Groove diameter = %.3f in',Gd)
+printf (' \n Groove width = %.3f in',Gw)
+printf (' \n outside diameter = %.f in',d)
diff --git a/1280/CH4/EX4.2/4_2.sce b/1280/CH4/EX4.2/4_2.sce
new file mode 100755
index 000000000..0cab1fc3d
--- /dev/null
+++ b/1280/CH4/EX4.2/4_2.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+D= 2 //in
+S= 10 //in
+s= 10000 //strokes
+V= 231 //in^3
+//CALCULATIONS
+di= V/(S*s*D*%pi)
+//RESULTS
+printf ('thickness = %.7f in',di)
diff --git a/1280/CH4/EX4.3/4_3.sce b/1280/CH4/EX4.3/4_3.sce
new file mode 100755
index 000000000..c6797805a
--- /dev/null
+++ b/1280/CH4/EX4.3/4_3.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+d= 0.275 //in
+p= 15
+p1= 20
+p3= 8
+//CALCULATIONS
+Fs= (d*p/100)+(d*p1/100)-(d*p3/100)
+Fs1= Fs*100/d
+//RESULTS
+printf ('final  available squeeze = %.2f percent',Fs1)