summaryrefslogtreecommitdiff
path: root/1466/CH7/EX7.11/7_11.sce
blob: 5e6e7cf4341a6f19db6967eaffcf9397be8d97cd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21



clc
//initialisation of variables
clear
D=0.25
f=0.01
l=600//ft
H=100//ft
g=32.2//ft/sec^2
pi=22/7
//CALCULATIONS
k=sqrt(8*f*l/D)
d=sqrt(D*D/k)
v=sqrt(H*2*g*D/(3*f*4*l))
v1=v*k
hp=(62.4*pi*d*d*v1^3)/(4*2*g*550)
//RESULTS
printf (' Diameter= %.3f in ',d*12-0.002)
printf ('\n Horsepower= %.3f ',hp-0.018)