diff options
Diffstat (limited to '551/CH16/EX16.2')
-rwxr-xr-x | 551/CH16/EX16.2/2.sce | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/551/CH16/EX16.2/2.sce b/551/CH16/EX16.2/2.sce new file mode 100755 index 000000000..aa856ca30 --- /dev/null +++ b/551/CH16/EX16.2/2.sce @@ -0,0 +1,21 @@ +clc
+p1=35; //kN/m^2
+V1=30; //m/s
+T1=423; //K
+V2=150; //m/s
+R=290; //J/kg K
+y=1.4;
+
+//Let r1=p2/p1
+r1=R*T1;
+
+p2=p1*(1-((V2^2/2-V1^2/2)*(y-1)/y/r1))^(y/(y-1));
+disp("p2=")
+disp(p2)
+disp("kN/m^2")
+
+T2=T1*(p2/p1)^((y-1)/y);
+t2=T2-273;
+disp("t2 =")
+disp(t2)
+disp("°C")
\ No newline at end of file |