blob: 2ba377a6e11ee7ff4c28b3660af75fca5e66f4c4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
// determine the flow rate from the nozzle and power required to drive the pump
//ex 2.10 pgno.47
clc
v=8.31 // velocity at c
a= (%pi*(75e3)^2)/4
Q=a*v // flow rate
mprintf('Q = %e /s',Q)
g=9.8 // constant gamma
zc=32 // elevation
Hp= (v^2/(2*g))+zc // heat developed by pump
mprintf(' \n Hp= %f m ',Hp)
gammma=9800// constant gammma
P=gammma*Q*Hp //power required
mprintf('\n P= %e W',P)
|
