blob: ba85ad71b6055289e5025aa7e6ad5b1aa489599f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
clc;
disp("Example 10.1")
G=50 // in kg/m^2/s
L=100 // length in m
d=0.075 // diameter in m
T=298 // in kelvin
mew=1e-5 //viscosity
p=1.1e5 // pressure of air
m=16 // molecular mass
Re=d*G/mew
f=0.0014+(0.125/(Re^0.32))
p1=(2*f*L*G*G*8314*T/(d*m)+(p^2))^0.5
disp(p1,"Pressure is ")
disp(" Pascals")
printf("Pressure is %.2f Pa\n",p1);
|
