summaryrefslogtreecommitdiff
path: root/746/CH8/EX8.05/8_05.sce
blob: 7d3d6eac68b527c7fe6acbf196976026c21f11a6 (plain)
1
2
3
4
5
6
7
8
9
10
//required//
pathname=get_absolute_file_path('8.05.sce')
filename=pathname+filesep()+'8.05-data.sci'
exec(filename)
//Reservoir depth required to maintain flow(in m):
D1=8*Q^2/(%pi)^2/D^4/g*(f*L/D+K+1)
//Reynolds number:
Re=4*d*Q/((%pi)*u*D)
printf("\n\nRESULTS\n\n")
printf("\n\nReservoir depth required to maintain flow: %.3f m\n\n",D1)