summaryrefslogtreecommitdiff
path: root/1466/CH9/EX9.2/9_2.sce
blob: 748929dd83723852719256d33ab43b5b2176b3b0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

clc
//initialisation of variables
w=64//lb/ft^3
g=32.2//ft/sec^2
s=10//mph
l=100//ft
r=1/8//in
cf=0.0047
A=1600//ft^2
v1=27*10^-6//engineer units
//CALCULATIONS
v=s*5280/3600
p=w/g
k1=l*12/r
Re=p*v*l/(v1)
R=cf*p*A*v*v/2
fhp=R*v/550
//RESULTS
printf ('Frictional horse power= %.f',fhp)