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.8/P8_Determination_of_number_of_plates.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.8/P8_Determination_of_number_of_plates.sce')
| -rw-r--r-- | 698/CH14/EX14.8/P8_Determination_of_number_of_plates.sce | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/698/CH14/EX14.8/P8_Determination_of_number_of_plates.sce b/698/CH14/EX14.8/P8_Determination_of_number_of_plates.sce new file mode 100644 index 000000000..4e630dc29 --- /dev/null +++ b/698/CH14/EX14.8/P8_Determination_of_number_of_plates.sce @@ -0,0 +1,52 @@ +clc
+// Example 14.8
+//Determine number of plates
+//------------------------------------------------------------------------------
+//Given Data:
+//Torque
+t=45//Nm
+//Service factor
+Ka=2
+//Outer Radius
+Ro=0.1/2//m
+//Inner radius
+Ri=0.065/2//m
+//Mean raius
+Rm=(Ro+Ri)/2//m
+//coefficient of friction
+f=0.08
+//Maximum allowable pressure
+pmax=0.7*(10^6)//Pa
+//Design torque
+T=Ka*t
+
+//------------------------------------------------------------------------------
+//Assuimg uniform wear conditions
+//Axial force
+F=2*%pi*pmax*Ri*(Ro-Ri)
+//Number of contacting surfaces
+n=T/(f*F*Rm)
+N=ceil(n)
+
+//n1= number of driver plates
+//n2=number of friction plates
+//n=n1+n2-1
+//n2=n1-1 or n2=n1
+//solving above two equations
+n1=(N/2)
+N1=ceil(n1)
+n2=n1
+N2=ceil(n2)
+
+//------------------------------------------------------------------------------
+//Printing result file to .txt
+res8=mopen(TMPDIR+'8_determination_of_number_of_plates.txt','wt')
+mfprintf (res8,"Number of contacting surfaces %d\n",N)
+mfprintf(res8,"Number of driver plates are %d\n",N1)
+mfprintf(res8,"Number of friction plates are %d\n\n",N2)
+mfprintf(res8,"There are %d total number of plates, with %d pressure and %d friction discs",N,N1,N2)
+mclose(res8)
+editor(TMPDIR+'8_determination_of_number_of_plates.txt')
+
+//------------------------------------------------------------------------------
+//------------------------------End of program----------------------------------
\ No newline at end of file |