diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /698/CH14/EX14.9/P9_Parameters_of_multiplate_clutch.sce | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '698/CH14/EX14.9/P9_Parameters_of_multiplate_clutch.sce')
| -rw-r--r-- | 698/CH14/EX14.9/P9_Parameters_of_multiplate_clutch.sce | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/698/CH14/EX14.9/P9_Parameters_of_multiplate_clutch.sce b/698/CH14/EX14.9/P9_Parameters_of_multiplate_clutch.sce new file mode 100644 index 000000000..050eed9e5 --- /dev/null +++ b/698/CH14/EX14.9/P9_Parameters_of_multiplate_clutch.sce @@ -0,0 +1,58 @@ +clc
+//Example 14.9
+//Parameters of a multiplate clutch
+//------------------------------------------------------------------------------
+//Given Data:
+//Power capacity
+P=4000 //Watts
+//speed
+N=750 //rev/min
+//Inner radius
+Ri=0.04 //m
+//Outer radius
+Ro=0.07 //m
+//coefficient of friction
+f=0.1
+//average allowable pressure
+pmax=350*(10^3) // N/(m^2)
+//------------------------------------------------------------------------------
+
+// Assuming uniform wear theory
+//Axial force
+F=pmax*%pi*((Ro^2)-(Ri^2))
+//Total torque applied
+T=(P*60)/(2*%pi*N)
+//Torque per pair of surfaces
+Tc=F*f*((Ro+Ri)/2)
+//number of surfaces
+n=T/Tc
+n=ceil(n)
+//This obtained value must be an even number since it is the total number of surfaces, which are in pairs
+if (n-fix(n./2).*2==0)//For checking if n is even or not. If not, adding 1 to n to make it even
+ n=n
+else
+ n=n+1
+end
+//Actual Torque
+Ta=T/n
+//Actual axial force required:
+Fa=(2*Ta)/(f*(Ro+Ri))
+//Average actual pressure:
+Pa=Fa/(%pi*((Ro^2)-(Ri^2)))
+//Maximum actual pressure
+Pmax=Fa/(2*%pi*(Ro-Ri)*Ri)
+
+//------------------------------------------------------------------------------
+//Printing result file to .txt
+res9=mopen(TMPDIR+'9_parameters_of_multiplate_clutch.txt','wt')
+mfprintf(res9,"(a) Torque capacity of one pair of surfaces, assuming uniform wear is %0.1f Nm\n",Tc)
+mfprintf(res9,"(b) Total torque applied %0.1f Nm\n",T)
+mfprintf(res9,"(c) Number of contacting surfaces %d\n",n)
+mfprintf(res9,"(d) Actual torque per pair of surfaces is %0.1f Nm\n",Ta)
+mfprintf(res9,"(e) Actual axial force required is %0.1f N\n",Fa)
+mfprintf(res9,"(f) Maximum torque occurs at inner radius,and is equal to %0.1f kN/m^2",(Pmax*(10^-3)))
+mclose(res9)
+editor(TMPDIR+'9_parameters_of_multiplate_clutch.txt')
+
+//------------------------------------------------------------------------------
+//------------------------------------End of program----------------------------
\ No newline at end of file |