2066/CH7/EX7.8/7_8.sce


1
2
3
4
5
6
7
8
9
10
11
12

clc
clear
//Initialization of variables
umax=62.2 //ft/s
r0=18 //in
e=0.0696 //in
r=6 //in
//calculations
Vs=umax/(8.5 + 5.75*log10(r0/e))
u=Vs*(8.5 + 5.75*log10(r/e))
//results
printf("Velocity = %.1f ft/s",u)