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

---
 .../17_cone_clutch_under_uniform_pressure.txt      |  3 ++
 .../P17_cone_clutch_under_uniform_pressure.sce     | 57 ++++++++++++++++++++++
 2 files changed, 60 insertions(+)
 create mode 100644 698/CH14/EX14.17/17_cone_clutch_under_uniform_pressure.txt
 create mode 100644 698/CH14/EX14.17/P17_cone_clutch_under_uniform_pressure.sce

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

diff --git a/698/CH14/EX14.17/17_cone_clutch_under_uniform_pressure.txt b/698/CH14/EX14.17/17_cone_clutch_under_uniform_pressure.txt
new file mode 100644
index 000000000..f534b086d
--- /dev/null
+++ b/698/CH14/EX14.17/17_cone_clutch_under_uniform_pressure.txt
@@ -0,0 +1,3 @@
+(a)Axial force F required to transmit the torque is 563.04 N
+(b)Axial force required to engage the clutch, enagagement taking place when clutch is not rotating, is 1591.26 N
+(c)Average normal pressure when maximum torque is being transmitted is 74.06 kN/m^2
diff --git a/698/CH14/EX14.17/P17_cone_clutch_under_uniform_pressure.sce b/698/CH14/EX14.17/P17_cone_clutch_under_uniform_pressure.sce
new file mode 100644
index 000000000..eff120d63
--- /dev/null
+++ b/698/CH14/EX14.17/P17_cone_clutch_under_uniform_pressure.sce
@@ -0,0 +1,57 @@
+clc
+//Exercise 14.17
+//same clutch as previous problem, assuming uniform pressure theory
+
+//------------------------------------------------------------------------------
+//Given Data:
+//Torque
+T=200//Nm
+//Speed
+N=1250//rev/min
+//Large diameter
+Do=0.35//m
+Ro=Do/2
+//Face width
+b=0.065//m
+//coefficient of friction
+f=0.2
+//cone pitch angle
+alpha=6.25//degrees
+//converting alpha in degrees to radians
+alpha=(alpha*%pi)/180
+
+//------------------------------------------------------------------------------
+//mean radius
+Rm=Ro-((1/2)*b*sin (alpha))
+Rm=floor(Rm*(10^3))
+Rm=Rm*(10^-3)
+//Rm=(Ro+Ri)/2
+//smaller radius
+Ri=(2*Rm)-Ro
+Ri=floor(Ri*(10^3))
+Ri=Ri*(10^-3)
+
+//Axial force reqiured to transmit the torque
+//t=F*f*((Ro^3-Ri^3)/(3*Rm*b*(sin (alpha))^2))
+F=T/(f*((Ro^3-Ri^3)/(3*Rm*b*(sin (alpha))^2)))
+
+//Axial force required to engage the clutch when clutch is not rotating
+//Fe=Fn((sin alpha)+(f*cos alpha))
+Fn=F/sin(alpha)
+Fe=Fn*((sin (alpha))+(f*cos (alpha)))
+
+//average normal pressure when maximum torque is being transmitted
+//Fn=p*2*%pi*Rm*b
+p=Fn/(2*%pi*Rm*b)
+
+//------------------------------------------------------------------------------
+//Printing file to .txt
+res17=mopen(TMPDIR+'17_cone_clutch_under_uniform_pressure.txt','wt')
+mfprintf(res17,"(a)Axial force F required to transmit the torque is %0.2f N\n",F)
+mfprintf(res17,"(b)Axial force required to engage the clutch, enagagement taking place when clutch is not rotating, is %0.2f N\n",Fe)
+mfprintf(res17,"(c)Average normal pressure when maximum torque is being transmitted is %0.2f kN/m^2\n",p*(10^-3))
+mclose(res17)
+editor(TMPDIR+'17_cone_clutch_under_uniform_pressure.txt')
+
+//------------------------------------------------------------------------------
+//------------------------------End of program----------------------------------
\ No newline at end of file
-- 
cgit