From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 698/CH14/EX14.20/20_face_width_of_cone_clutch.txt  |  1 +
 698/CH14/EX14.20/P20_face_width_of_cone_clutch.sce | 68 ++++++++++++++++++++++
 2 files changed, 69 insertions(+)
 create mode 100644 698/CH14/EX14.20/20_face_width_of_cone_clutch.txt
 create mode 100644 698/CH14/EX14.20/P20_face_width_of_cone_clutch.sce

(limited to '698/CH14/EX14.20')

diff --git a/698/CH14/EX14.20/20_face_width_of_cone_clutch.txt b/698/CH14/EX14.20/20_face_width_of_cone_clutch.txt
new file mode 100644
index 000000000..b05fb4128
--- /dev/null
+++ b/698/CH14/EX14.20/20_face_width_of_cone_clutch.txt
@@ -0,0 +1 @@
+The required face width is 14.0 mm
\ No newline at end of file
diff --git a/698/CH14/EX14.20/P20_face_width_of_cone_clutch.sce b/698/CH14/EX14.20/P20_face_width_of_cone_clutch.sce
new file mode 100644
index 000000000..f683211c7
--- /dev/null
+++ b/698/CH14/EX14.20/P20_face_width_of_cone_clutch.sce
@@ -0,0 +1,68 @@
+clc
+//Example 14.20
+//Face width of cone clutch
+
+//------------------------------------------------------------------------------
+//Given Data:
+//Torque to be transmitted
+T=100//Nm
+//Available axial force
+Fe=850//N
+//Total included cone angle
+A=24//degrees
+//Pitch angle
+alpha=A/2
+//converting alpha in degrees to radians
+alpha=(alpha*%pi)/180
+//maximum pressure
+p=100*(10^3)//N/m^2
+//coefficient of friction
+f=0.20
+
+//------------------------------------------------------------------------------
+//Function to standardize the dimensions
+std=[1 2 3 4 5 6 8 10 12 14 15 16 18 20 24 26 30:5:300]
+n=length(std)
+
+funcprot(0)
+function y=stddim(x)
+    x=x*(10^3)
+    for i=1:n
+        if (x<std(i)) then
+            y=std(i)
+            break
+            
+        else
+            continue
+        end
+    end 
+    y=y*(10^-3)
+endfunction
+//------------------------------------------------------------------------------
+//Assuming uniform wear
+//To find required face width 'b'
+
+//Force required to engage the clutch
+//Fe=Fn*((sin (alpha))+(f*cos (alpha)))
+Fn=Fe/((sin (alpha))+(f*cos (alpha)))
+
+//Torque transmitting capacity
+//T=Fn*f*Rm
+//Mean radius
+Rm=T/(Fn*f)
+Rm=stddim(Rm)
+
+//Normal force
+//Fn=p*2*%pi*Rm*b
+//Face width
+b=Fn/(p*2*%pi*Rm)
+b=stddim(b)
+
+//------------------------------------------------------------------------------
+//Printing result file to .txt
+res20=mopen(TMPDIR+'20_face_width_of_cone_clutch.txt','wt')
+mfprintf(res20,"The required face width is %0.1f mm",b*(10^3))
+mclose(res20)
+editor(TMPDIR+'20_face_width_of_cone_clutch.txt')
+//------------------------------------------------------------------------------
+//-------------------------------End of program------------------------------
\ No newline at end of file
-- 
cgit