blob: 4e630dc299e157eb6673bf02bb38d58837599c29 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
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----------------------------------
|
