summaryrefslogtreecommitdiff
path: root/1364/CH7/EX7.4.2/7_4_2.sce
blob: 4c8dc8e2db7b4182f5e10f9662b2f5dc6ad5e95d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clc
//initialisation of variables
a= 60 //degrees
a1= 15 //degrees
a2= 45 //degrees
w= 600 //rev/min
d= 2 //ft
r= 1 //ft
//CALCULATIONS
v= r*10*2*%pi
vr= sind(a)*v
vc= vr/2
pbyw= -(vc^2*2-vr^2)/(2*g)
//RESULTS
printf (' kinetic head change = %.f ft',pbyw)