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.16/Ex6_16.sce | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 2417/CH6/EX6.16/Ex6_16.sce

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

diff --git a/2417/CH6/EX6.16/Ex6_16.sce b/2417/CH6/EX6.16/Ex6_16.sce
new file mode 100755
index 000000000..624a5a796
--- /dev/null
+++ b/2417/CH6/EX6.16/Ex6_16.sce
@@ -0,0 +1,18 @@
+clear;
+clc;
+printf("\t\t\tProblem Number 6.16\n\n\n");
+// Chapter 6: The Ideal Gas
+// Problem 6.16 (page no. 260) 
+// Solution
+
+//data
+cp=0.24; //Specific heat at constant pressure //Btu/lbm*R
+p2=15; //psia //final pressure
+p1=100; //psia //initial pressure
+T2=460+0;  //absolute  final temperature //unit:R
+T1=460+100; //absolute initial temperature  //unit:R
+J=778; //conversion factor
+R=1545/29; //moleculer weight=29 //Unit:ft*lbf/lbm*R //constant of proportionality
+ //On the basis of the data given,
+deltas=(cp*(log(T2/T1)))-((R/J)*(log(p2/p1))); //change in entropy //Btu/lbm*R
+printf("The change in enthalpy is %f Btu/lbm*R\n",deltas);
-- 
cgit