summaryrefslogtreecommitdiff
path: root/746/CH6/EX6.06/6_06.sce
diff options
context:
space:
mode:
Diffstat (limited to '746/CH6/EX6.06/6_06.sce')
-rwxr-xr-x746/CH6/EX6.06/6_06.sce16
1 files changed, 16 insertions, 0 deletions
diff --git a/746/CH6/EX6.06/6_06.sce b/746/CH6/EX6.06/6_06.sce
new file mode 100755
index 000000000..3b954de53
--- /dev/null
+++ b/746/CH6/EX6.06/6_06.sce
@@ -0,0 +1,16 @@
+//pressure//
+pathname=get_absolute_file_path('06.06.sce')
+filename=pathname+filesep()+'06.06-data.sci'
+exec(filename)
+//Pressure of air at 1000 m(in N/m^2):
+p=P1*pa
+//Density of air at 1000m(in kg/m^3):
+d=D1*da
+//Stagnation pressure at A(in kPa):
+p0A=p+0.5*d*(V*1000/3600)^2
+//Static pressure at B(in kPa):
+pB=p+d/2*((V*1000/3600)^2-Vb^2)
+printf("\n\nRESULTS\n\n")
+printf("\n\nStagnation pressure at A: %.3f kPa\n\n",p0A/1000)
+printf("\n\nStatic pressure at B: %.3f kPa\n\n",pB/1000)
+