summaryrefslogtreecommitdiff
path: root/698/CH26/EX26.3/P3_mass_of_flywheel.sce
blob: ca0b4729c24780788ae30b935b5af4c062f46dc6 (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
clc
//Example 26.4
//Mass of flywheel

//------------------------------------------------------------------------------

//Given data
E=2.7* 10^3
K=0.9
r=0.915
N1=200
w1=(2*%pi*N1)/60
N2=180
w2=(2*%pi*N2)/60

res3=mopen(TMPDIR+'3_mass_of_flywheel.txt','wt')

//Exact moment of inertia of rim
mfprintf(res3,'(a)Approximate mass of flywheel\n\tmr=2*K*E / r2*(w1^2 -w2^2)\n')
mr=2*K*E /(r^2* (w1^2 -w2^2))
mfprintf(res3,'\t\tmr=%0.1f kg\n\n',mr)

mfprintf(res3,'(b)Approximate total mass of flywheel\n\t=1.15*mr\n')
mfprintf(res3,'\t\t=%d kg\n\n',1.15*mr)

mfprintf(res3,'(c)Coefficient of speed fluctuation\n\t')
mfprintf(res3,'delta=w1-w2 /w\n')
w=190
delta=(N1-N2)/w
mfprintf(res3,'\tdelta=%0.3f',delta)

mclose(res3)
editor(TMPDIR+'3_mass_of_flywheel.txt')
//------------------------------------------------------------------------------
//-----------------------------End of program-----------------------------------