blob: 0160eb23055e0862fb64b100f5a2612f8f31d89f (
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
|
//to find equilibrium speed
clc
//given
//all lengths are in inches
W=120//lb
w=15//lb
AB=12
BF=8
BC=12
BE=6.5
g=35230//inches rpm
//at Minimum radius
AF=(AB^2-BF^2)^(1/2)
CE=(BC^2-BE^2)^(1/2)
k2=(BE*AF)/(CE*BF)
N2=(((W/2)*(1+k2)+w)*g/(w*AF))^(1/2)
//At MAximum radius
BF1=10
BE1=8.5
AF1=(AB^2-BF1^2)^(1/2)
CE1=(BC^2-BE1^2)^(1/2)
k1=(BE1*AF1)/(CE1*BF1)
N1=(((W/2)*(1+k1)+w)*g/(w*AF1))^(1/2)
printf("\nN1 (corresponding maximum radius) = %.1f rpm\nN2 (corresponding minimum radius) = %.1f rpm",N1,N2)
|
