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

---
 1709/CH6/EX6.1/6_1.sce | 12 ++++++++++++
 1709/CH6/EX6.2/6_2.sce | 10 ++++++++++
 1709/CH6/EX6.3/6_3.sce | 13 +++++++++++++
 1709/CH6/EX6.4/6_4.sce | 11 +++++++++++
 1709/CH6/EX6.5/6_5.sce | 12 ++++++++++++
 1709/CH6/EX6.6/6_6.sce | 13 +++++++++++++
 6 files changed, 71 insertions(+)
 create mode 100755 1709/CH6/EX6.1/6_1.sce
 create mode 100755 1709/CH6/EX6.2/6_2.sce
 create mode 100755 1709/CH6/EX6.3/6_3.sce
 create mode 100755 1709/CH6/EX6.4/6_4.sce
 create mode 100755 1709/CH6/EX6.5/6_5.sce
 create mode 100755 1709/CH6/EX6.6/6_6.sce

(limited to '1709/CH6')

diff --git a/1709/CH6/EX6.1/6_1.sce b/1709/CH6/EX6.1/6_1.sce
new file mode 100755
index 000000000..f2972f2b2
--- /dev/null
+++ b/1709/CH6/EX6.1/6_1.sce
@@ -0,0 +1,12 @@
+clc
+//Initialization of variables
+m=5 //lbm
+P=50 //psia
+T=500 + 460 //R
+//calculations
+disp("From saturated steam tables,")
+s1=0.4110 //B/lbm R
+s2=1.7887 //B/lbm R
+dS=m*(s2-s1)
+//results
+printf("Change in entropy = %.3f B/R",dS)
diff --git a/1709/CH6/EX6.2/6_2.sce b/1709/CH6/EX6.2/6_2.sce
new file mode 100755
index 000000000..e73e02a15
--- /dev/null
+++ b/1709/CH6/EX6.2/6_2.sce
@@ -0,0 +1,10 @@
+clc
+//Initialization of variables
+P=20 //psia
+T=227.96+ 459.69 //R
+//calculations
+disp("from saturation tables,")
+sfg=1.3962 //B/ R lbm
+Q=T*sfg
+//results
+printf("heat transfer = %.1f B/lbm",Q)
diff --git a/1709/CH6/EX6.3/6_3.sce b/1709/CH6/EX6.3/6_3.sce
new file mode 100755
index 000000000..432c068ea
--- /dev/null
+++ b/1709/CH6/EX6.3/6_3.sce
@@ -0,0 +1,13 @@
+clc
+//Initialization of variables
+T1=100+460 //R
+P1=15//psia
+P2=50 //psia
+n=1.3
+cp=0.24
+//calculations
+T2=T1*(P2/P1)^((n-1)/n)
+dS=cp*log(T2/T1) - 53.35/778 *log(P2/P1) 
+//results
+printf("Change in entropy = %.3f B/lbm R",dS)
+//the answer given in textbook is wrong. Please check it using a calculator
diff --git a/1709/CH6/EX6.4/6_4.sce b/1709/CH6/EX6.4/6_4.sce
new file mode 100755
index 000000000..eeb285090
--- /dev/null
+++ b/1709/CH6/EX6.4/6_4.sce
@@ -0,0 +1,11 @@
+clc
+//Initialization of variables
+T1=85+460 //R
+T2=T1
+cp=0.24
+P2=15 //psia
+P1=30 //psia
+//calculations
+dS=cp*log(T2/T1) - 53.35/778 *log(P2/P1)
+//results
+printf("Change in entropy = %.4f B/lbm R",dS)
diff --git a/1709/CH6/EX6.5/6_5.sce b/1709/CH6/EX6.5/6_5.sce
new file mode 100755
index 000000000..2c5bcd9a1
--- /dev/null
+++ b/1709/CH6/EX6.5/6_5.sce
@@ -0,0 +1,12 @@
+clc
+//Initialization of variables
+Qh=-1000 //Btu
+Ql=1000 //Btu
+Th=1460 //R
+Tl=960 //R
+//calculations
+Sh=Qh/Th
+Sl=Ql/Tl
+S=Sh+Sl
+//results
+printf("Change in entropy of the universe = %.3f B/R",S)
diff --git a/1709/CH6/EX6.6/6_6.sce b/1709/CH6/EX6.6/6_6.sce
new file mode 100755
index 000000000..7f332736d
--- /dev/null
+++ b/1709/CH6/EX6.6/6_6.sce
@@ -0,0 +1,13 @@
+clc
+//Initialization of variables
+disp("from steam tables,")
+h1=1416.4 //B/lbm
+s1=1.6842 //B/lbm R
+//calculations
+s2=s1
+P2=50 //psia
+T2=317.5 //F
+h2=1193.7
+W=h2-h1
+//results
+printf("Work calculated = %.1f B/lbm",W)
-- 
cgit