1 files changed, 11 insertions, 0 deletions
diff --git a/548/CH9/EX9.4/9_04.sce b/548/CH9/EX9.4/9_04.sce
new file mode 100755
index 000000000..8d0efc5db
--- /dev/null
+++ b/548/CH9/EX9.4/9_04.sce
@@ -0,0 +1,11 @@
+pathname=get_absolute_file_path('9_04.sce')
+filename=pathname+filesep()+'9_04data.sci'
+exec(filename)
+T=Mdot*Ve;disp(T,"T=","T=Mdot*Ve","As Pe equals ambient pressure at 30 Km Thrust T:")
+Ae=Mdot/(De*Ve);disp(Ae,"Ae=","Ae=Mdot/(De*Ve)","exit area Ae:")
+Me=Ve/sqrt(y*R*Te);disp(Me,"Me=","Me=Ve/sqrt(y*R*T)","exit Mach No. Me:")
+printf("\Answer:\n")
+printf("\n\Specific impulse : %f s\n\n",Isp)
+printf("\n\Thrust: %f N\n\n",T)
+printf("\n\Area of the exit: %f m^2\n\n",Ae)
+printf("\n\flow mach no at exit : %f \n\n",Me)
+\ No newline at end of file