4 files changed, 34 insertions, 0 deletions
diff --git a/3257/CH4/EX4.1/Ex4_1.sce b/3257/CH4/EX4.1/Ex4_1.sce
new file mode 100755
index 000000000..81399601b
--- /dev/null
+++ b/3257/CH4/EX4.1/Ex4_1.sce
@@ -0,0 +1,15 @@
+// Determination of coefficient of friction
+clc
+h = 20 // height in mm
+od_i = 40 // initial outer diameter in mm
+id_i = 20 // initial inner diameter in mm
+od_f = 50 // final outer diameter in mm
+del_l = 40// percentage reduction in length
+printf("\n Example 4.1")
+h_f = h*(1-del_l/100)
+v = %pi/4 * (od_i^2-id_i^2)*h
+id_f = sqrt(od_f^2-(4/%pi)*v/h_f)
+del_id = (id_f - id_i)/id_i *100
+
+printf("\n For a change of %d %% in length and %.1f %% in ID, \n By interpolation from figure, \n\n mu is 0.03 and m is 0.11",del_l,del_id)
+
diff --git a/3257/CH4/EX4.1/Ex4_1.txt b/3257/CH4/EX4.1/Ex4_1.txt
new file mode 100755
index 000000000..89c2dd85e
--- /dev/null
+++ b/3257/CH4/EX4.1/Ex4_1.txt
@@ -0,0 +1,6 @@
+ 
+ Example 4.1
+ For a change of 40 % in length and 11.8 % in ID, 
+ By interpolation from figure, 
+
+ mu is 0.03 and m is 0.11 
+\ No newline at end of file
diff --git a/3257/CH4/EX4.2/Ex4_2.sce b/3257/CH4/EX4.2/Ex4_2.sce
new file mode 100755
index 000000000..8095428c4
--- /dev/null
+++ b/3257/CH4/EX4.2/Ex4_2.sce
@@ -0,0 +1,10 @@
+// Adhesive wear in sliding
+clc
+v = 1 // wear volume in mm^3
+k = 1e-2 // from table
+W = 100 //load in kg
+p = 150 // hardness in HB
+printf("\n Example 4.2")
+L = 3*v*p/(k*W)
+printf("\n Distance traveled is %d mm.",L)
+
diff --git a/3257/CH4/EX4.2/Ex4_2.txt b/3257/CH4/EX4.2/Ex4_2.txt
new file mode 100755
index 000000000..1c88f5211
--- /dev/null
+++ b/3257/CH4/EX4.2/Ex4_2.txt
@@ -0,0 +1,3 @@
+ 
+ Example 4.2
+ Distance traveled is 450 mm.
+\ No newline at end of file