summaryrefslogtreecommitdiff
path: root/551/CH16/EX16.10/10.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /551/CH16/EX16.10/10.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '551/CH16/EX16.10/10.sce')
-rwxr-xr-x551/CH16/EX16.10/10.sce24
1 files changed, 24 insertions, 0 deletions
diff --git a/551/CH16/EX16.10/10.sce b/551/CH16/EX16.10/10.sce
new file mode 100755
index 000000000..c500e886a
--- /dev/null
+++ b/551/CH16/EX16.10/10.sce
@@ -0,0 +1,24 @@
+clc
+R=287; //J/kg K
+y=1.4;
+p0=220*10^3; //N/m^2
+T0=300; //K
+V0=200; //m/s
+C0=sqrt(y*R*T0);
+rho_0=p0/R/T0;
+disp("Stagnation pressure =")
+
+disp("(i) Compressibility is neglected")
+ps=(p0+rho_0*V0^2/2)/10^3;
+disp("ps=")
+disp(ps)
+disp("kN/m^2")
+
+
+disp("(ii) Compressibility is accounted for")
+M0=V0/C0;
+
+ps=(p0+rho_0*V0^2/2*(1+M0^2/4+(2-y)/24*M0^4))/10^3;
+disp("ps=")
+disp(ps)
+disp("kN/m^2") \ No newline at end of file