From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3843/CH9/EX9.13/Ex9_13.sce | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 3843/CH9/EX9.13/Ex9_13.sce

(limited to '3843/CH9/EX9.13')

diff --git a/3843/CH9/EX9.13/Ex9_13.sce b/3843/CH9/EX9.13/Ex9_13.sce
new file mode 100644
index 000000000..3f7f813f9
--- /dev/null
+++ b/3843/CH9/EX9.13/Ex9_13.sce
@@ -0,0 +1,23 @@
+// Example 9_13
+clc;funcprot(0);
+// Given data
+m=100;// lbm/sec
+P_1=5;// psia
+P_2=50;// psia
+T_1=-50+460;// °R
+T_3=2000+460;// °R 
+V_1=600;// ft/sec
+c_p=0.24// Btu/lbm-°R
+k=1.4;// The specific heat ratio
+
+// Calculation
+T_2=T_1*(P_2/P_1)^((k-1)/k);// °R 
+T_4=T_3-(T_2-T_1);// °R 
+P_3=P_2;// psia
+P_5=P_1;// psia
+P_4=P_3*(T_4/T_3)^(k/(k-1));// psia
+T_5=T_4*(P_5/P_4)^((k-1)/k);// °R 
+V_5=[2*c_p*778*32.2*(T_4-T_5)]^(1/2);// ft/sec
+T=(m/32.2)*(V_5-V_1);// lbf
+hp=(T*V_1)/550;// hp
+printf("\nThe thrust developed by the engine,T=%4.0f lbf \nThe horse power developed by the engine,hp=%4.0f hp",T,hp);
-- 
cgit