summaryrefslogtreecommitdiff
path: root/3594/CH12/EX12.9/Ex12_9.sce
blob: f0f501f0c337ed153b5b4f134c85741356f5ae2d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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)