summaryrefslogtreecommitdiff
path: root/1472/CH17/EX17.1.b/17_1b.sce
blob: d97b02f13d141c27681299751609b10e4024f6f7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc
//initialization of variables
w = 1;
k=1.3
P=100 //psia
//calculations
Pratio=(2/(k+1))^(k/(k-1))
Pt=Pratio*P
disp("From table 3,")
ht=1221.5 //B/lb
vt=8.841 //cu ft/lb
at=w*vt/1700
//results
printf("Throat area = %.4f sq ft",at)