summaryrefslogtreecommitdiff
path: root/896/CH6/EX6.3/3.sce
blob: 0a98835187b2345aef8dc022f355a050906443a5 (plain)
1
2
3
4
5
6
7
clc
//Example 6.3
//Calculate the fanning friction factor
R=10^5//dimentionless reynold's no.
ratio_ED=0.0002//dimentionless
f=0.001375*(1+(20000*ratio_ED+10^6/R)^(1/3))//dimentionless
printf("The fanning friction factor is %f",f);