2175/CH10/EX10.4/10_4.sce


1
2
3
4
5
6
7
8
9
10
11
12

clc;
y=1.135;
p1=10;
pc=p1*[2/(y+1)]^[(y/(y-1))];
h1=2778;
hc=2675;
xc=0.962;
vg=0.328;
vc=xc*vg;
Cc=(2*[h1-hc]*10^3)^0.5;
A_m=vc/Cc*10^6;
disp(A_m);