summaryrefslogtreecommitdiff
path: root/1325/CH12/EX12.9/12_9.sce
blob: 300e9e1ccd03cbb683322caf35af00ad57e4d918 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//To find the fluctuation of speed
clc
//given
N=270//rpm
ihp=35.8
k=2.25//ft
g=32.2//ft/s^2
ke=1.93//from table on p 440
E=ihp*33000/N
Ef=ke*E
w=%pi*N/30
W=1000//lb
MOI=2*W*k^2//moment of inertia of both wheel
ks=Ef*g/(MOI*w^2)//formula for ks
p=ks/2
printf("The fluctuation speed is therefore %.4f or %.3f on either side of the mean speed",ks,p)