From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2417/CH6/EX6.24/Ex6_24.sce | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 2417/CH6/EX6.24/Ex6_24.sce

(limited to '2417/CH6/EX6.24')

diff --git a/2417/CH6/EX6.24/Ex6_24.sce b/2417/CH6/EX6.24/Ex6_24.sce
new file mode 100755
index 000000000..f5e3ea2fc
--- /dev/null
+++ b/2417/CH6/EX6.24/Ex6_24.sce
@@ -0,0 +1,23 @@
+clear;
+clc;
+printf("\t\t\tProblem Number 6.24\n\n\n");
+// Chapter 6: The Ideal Gas
+// Problem 6.24 (page no. 267) 
+// Solution
+
+//data given
+T2=460+400; //Fahrenheit temperature converted to absolute final temperature //unit:R
+T1=460+70; //Fahrenheit temperature converted to absolute initial temperature //unit:R
+cp=0.24; //specific heat at constant pressure //Btu/lbm*R
+J=778; //conversion factor
+R=1545/29; //moleculer weight=29 //Unit:ft*lbf/lbm*R //constant of proportionality
+//From the energy equation for the constant-pressure process,the heat transferred is deltah.Therefore,
+//q=deltah=cp*(T2-T1)
+deltah=cp*(T2-T1); //heat transferred //Btu/lb //into system
+printf("The heat transferred is %f Btu/lb(into system)\n",deltah);
+deltas=cp*log(T2/T1); //increase in entropy //Btu/lbm*R
+printf("The increase in entropy is %f Btu/lbm*R\n",deltas);
+//The flow work change is (p2*v2)/J - (p1*v1)/J = (R/J)*(T2-T1)
+flowworkchange=(R/J)*(T2-T1); //Btu/lbm //The flow work change per pound of air
+printf("The flow work change per pound of air is %f Btu/lbm\n",flowworkchange);
+//In addition to each of the assumptions made in all the process being considered,it has further been tacitly assumed that these processes are carried out quasi-      statically and without friction.
-- 
cgit