summaryrefslogtreecommitdiff
path: root/24/CH15/EX15.7/Example15_7.sce
blob: 7182631880f8cbb307e0ac22960117c182e2c4cb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
exec('Bernauli.sci', -1)

//Given that
Ao = 1.2*10^-4  //in m^2
A = 0.35*10^-4  //in m^2
h = 45*10^-3  //in m
density_water = 998  //in kg/m^3

//Sample Problem 15-7
printf("**Sample Problem 15-7\n")
A = [A, Ao]
deltaP = 0  //in N/m^2
density = density_water
V = fsolve([0,0], Bernauli)
FlowRate = A(1)*V(1)
printf("The volume flow rate from the tap is equal to %fcm^3/s", FlowRate*10^6)