summaryrefslogtreecommitdiff
path: root/51/CH5/EX5.15/5_15.sce
blob: 5309b859a3178758c82d045e6ec68dc066d6c53b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clc;
clear;
v1=200;//m/s
v2=500;//m/s
A1=1;//m^2
p1=78.5;//kPa(abs)
T1=268;//K
p2=101;//kPa(abs)

//F=-p1*A1 + p2*A2 + m*(v2-v1)
//m=d1*A1*v1
//d1=(p1)/(R*T1)
d1=(p1*1000)/(286.9*T1);
m=d1*v1*A1;
F=-((p1-p2)*A1*1000) + m*(v2-v1);
disp("N",F,"The thrust for which the stand is to be designed=")