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

---
 680/CH6/EX6.01/6_01.sce | 17 +++++++++++++++++
 680/CH6/EX6.02/6_02.sce | 17 +++++++++++++++++
 680/CH6/EX6.03/6_03.sce | 19 +++++++++++++++++++
 680/CH6/EX6.05/6_05.sce | 18 ++++++++++++++++++
 680/CH6/EX6.06/6_06.sce | 18 ++++++++++++++++++
 680/CH6/EX6.07/6_07.sce | 20 ++++++++++++++++++++
 680/CH6/EX6.09/6_09.sce | 25 +++++++++++++++++++++++++
 680/CH6/EX6.10/6_10.sce | 21 +++++++++++++++++++++
 680/CH6/EX6.11/6_11.sce | 22 ++++++++++++++++++++++
 680/CH6/EX6.12/6_12.sce | 22 ++++++++++++++++++++++
 680/CH6/EX6.14/6_14.sce | 16 ++++++++++++++++
 11 files changed, 215 insertions(+)
 create mode 100755 680/CH6/EX6.01/6_01.sce
 create mode 100755 680/CH6/EX6.02/6_02.sce
 create mode 100755 680/CH6/EX6.03/6_03.sce
 create mode 100755 680/CH6/EX6.05/6_05.sce
 create mode 100755 680/CH6/EX6.06/6_06.sce
 create mode 100755 680/CH6/EX6.07/6_07.sce
 create mode 100755 680/CH6/EX6.09/6_09.sce
 create mode 100755 680/CH6/EX6.10/6_10.sce
 create mode 100755 680/CH6/EX6.11/6_11.sce
 create mode 100755 680/CH6/EX6.12/6_12.sce
 create mode 100755 680/CH6/EX6.14/6_14.sce

(limited to '680/CH6')

diff --git a/680/CH6/EX6.01/6_01.sce b/680/CH6/EX6.01/6_01.sce
new file mode 100755
index 000000000..954ce79b6
--- /dev/null
+++ b/680/CH6/EX6.01/6_01.sce
@@ -0,0 +1,17 @@
+//Problem 6.01:
+
+//initializing the variables:
+mc = 20; // in lb
+T1 = 100; // in degrees C
+T2 = 25; // in Deg C
+mw = 6; // in gallons
+Cpc = 0.092; // Btu/lb.degF
+Cpw = 1.0; // Btu/lb.degF
+
+//calculation:
+T = (mc*Cpc*T1 + mw*8.33*Cpw*T2)/(mc*Cpc + mw*8.33*Cpw)
+Tk = T + 273
+dS = mc*Cpc*log(Tk/373)
+
+printf("\n\nResult\n\n")
+printf("\n the entropy change of the copper is %.3f Btu/deg F",dS)
\ No newline at end of file
diff --git a/680/CH6/EX6.02/6_02.sce b/680/CH6/EX6.02/6_02.sce
new file mode 100755
index 000000000..f14a32d48
--- /dev/null
+++ b/680/CH6/EX6.02/6_02.sce
@@ -0,0 +1,17 @@
+//Problem 6.02:
+
+//initializing the variables:
+mc = 20; // in lb
+T1 = 100; // in degrees C
+T2 = 25; // in Deg C
+mw = 6; // in gallons
+Cpc = 0.092; // Btu/lb.degF
+Cpw = 1.0; // Btu/lb.degF
+
+//calculation:
+T = (mc*Cpc*T1 + mw*8.33*Cpw*T2)/(mc*Cpc + mw*8.33*Cpw)
+Tk = T + 273
+dS = mw*8.33*Cpw*log(Tk/298)
+
+printf("\n\nResult\n\n")
+printf("\n the entropy change of the water is %.3f Btu/deg F",dS)
\ No newline at end of file
diff --git a/680/CH6/EX6.03/6_03.sce b/680/CH6/EX6.03/6_03.sce
new file mode 100755
index 000000000..423b20f75
--- /dev/null
+++ b/680/CH6/EX6.03/6_03.sce
@@ -0,0 +1,19 @@
+//Problem 6.03:
+
+//initializing the variables:
+mc = 20; // in lb
+T1 = 100; // in degrees C
+T2 = 25; // in Deg C
+mw = 6; // in gallons
+Cpc = 0.092; // Btu/lb.degF
+Cpw = 1.0; // Btu/lb.degF
+
+//calculation:
+T = (mc*Cpc*T1 + mw*8.33*Cpw*T2)/(mc*Cpc + mw*8.33*Cpw)
+Tk = T + 273
+dSw = mw*8.33*Cpw*log(Tk/298)
+dSc = mc*Cpc*log(Tk/373)
+dSt = dSw + dSc
+
+printf("\n\nResult\n\n")
+printf("\n the total entropy change is %.3f Btu/deg F",dSt)
\ No newline at end of file
diff --git a/680/CH6/EX6.05/6_05.sce b/680/CH6/EX6.05/6_05.sce
new file mode 100755
index 000000000..a83ba2622
--- /dev/null
+++ b/680/CH6/EX6.05/6_05.sce
@@ -0,0 +1,18 @@
+//Problem 6.05:
+
+//initializing the variables:
+n = 5; // in lbmol
+T1 = 100; // in degrees F
+P1 = 1; // in atm
+T2 = 400; // in degrees F
+P2 = 10; // in atm
+Cpg = 5; // Btu/lb.degF
+R = 1.987;
+
+//calculation:
+T1 = T1 + 460
+T2 = T2 + 460
+dS = n*R*log(P1/P2) + n*Cpg*log(T2/T1)
+
+printf("\n\nResult\n\n")
+printf("\n the entropy for the irreversible process is %.2f Btu/deg R",dS)
\ No newline at end of file
diff --git a/680/CH6/EX6.06/6_06.sce b/680/CH6/EX6.06/6_06.sce
new file mode 100755
index 000000000..aa9047c3d
--- /dev/null
+++ b/680/CH6/EX6.06/6_06.sce
@@ -0,0 +1,18 @@
+//Problem 6.06:
+
+//initializing the variables:
+n = 5; // in lbmol
+T1 = 100; // in degrees F
+P1 = 1; // in atm
+T2 = 400; // in degrees F
+P2 = 10; // in atm
+Cpg = 5; // Btu/lb.degF
+R = 1.987;
+
+//calculation:
+T1 = T1 + 460
+T2 = T2 + 460
+dS = n*R*log(P1/P2) + n*Cpg*log(T2/T1)
+
+printf("\n\nResult\n\n")
+printf("\n the entropy for the irreversible process is %.2f Btu/deg R",dS)
\ No newline at end of file
diff --git a/680/CH6/EX6.07/6_07.sce b/680/CH6/EX6.07/6_07.sce
new file mode 100755
index 000000000..bc7bee773
--- /dev/null
+++ b/680/CH6/EX6.07/6_07.sce
@@ -0,0 +1,20 @@
+//Problem 6.07:
+
+//initializing the variables:
+n = 5; // in lbmol
+T1 = 100; // in degrees F
+P1 = 1; // in atm
+T2 = 400; // in degrees F
+P2 = 10; // in atm
+Cpg = 5; // Btu/lb.degF
+R = 1.987;
+
+//calculation:
+T1 = T1 + 460
+T2 = T2 + 460
+dS = n*R*log(P1/P2) + n*Cpg*log(T2/T1)
+dSt = 0
+dSsur = dSt - dS
+
+printf("\n\nResult\n\n")
+printf("\n the entropy for the surrounding is %.2f Btu/deg R",dSsur)
\ No newline at end of file
diff --git a/680/CH6/EX6.09/6_09.sce b/680/CH6/EX6.09/6_09.sce
new file mode 100755
index 000000000..15e0c6020
--- /dev/null
+++ b/680/CH6/EX6.09/6_09.sce
@@ -0,0 +1,25 @@
+//Problem 6.09:
+
+//initializing the variables:
+H0 = 28; // in Btu/lb
+H1 = 1151; // in Btu/lb
+Qh = 700; // in Btu/lb
+S0 = 0.056; // in Btu/lb deg R
+S1 = 1.757; // in Btu/lb deg R
+Th = 300; // in deg F
+Tc = 60; // in deg F
+P1 = 1; // in atm
+T1 = 212; // in deg F
+T0 = 60; // in deg F
+
+
+//calculation:
+Qc = H1 - H0 - Qh
+//the entropy change of the steam
+dSs = S0 - S1
+dSh = Qh/(Th + 460)
+dSc = Qc/(Tc + 460)
+dSt = dSs + dSh + dSc
+
+printf("\n\nResult\n\n")
+printf("\n total entropy change is %.3f Btu/lb deg R",dSt)
\ No newline at end of file
diff --git a/680/CH6/EX6.10/6_10.sce b/680/CH6/EX6.10/6_10.sce
new file mode 100755
index 000000000..ac926e23e
--- /dev/null
+++ b/680/CH6/EX6.10/6_10.sce
@@ -0,0 +1,21 @@
+//Problem 6.10:
+
+//initializing the variables:
+T1 = 540; // in deg F
+T0 = 300; // in deg F
+T2 = 300; // in deg F
+T3 = 60; // in deg F
+m = 1;
+Cp = 1;
+
+//calculation:
+dSh = m*Cp*log((T0 + 460)/(T1 + 460))
+dSc = m*Cp*log((T2 + 460)/(T3 + 460))
+//for one exchanger
+dSa = dSh + dSc
+//there are two similar exchangers
+dSb = dSa
+dStot = dSa + dSb
+
+printf("\n\nResult\n\n")
+printf("\n total entropy change is %.4f Btu/deg R",dStot)
\ No newline at end of file
diff --git a/680/CH6/EX6.11/6_11.sce b/680/CH6/EX6.11/6_11.sce
new file mode 100755
index 000000000..429a4fbee
--- /dev/null
+++ b/680/CH6/EX6.11/6_11.sce
@@ -0,0 +1,22 @@
+//Problem 6.11:
+
+//initializing the variables:
+T1 = 540; // in deg F
+T0 = 300; // in deg F
+T2 = 300; // in deg F
+T3 = 60; // in deg F
+TDDF = 0;
+m = 1;
+Cp = 1;
+
+//calculation:
+dShc = m*Cp*log((T0 + 460)/(T1 + 460))
+dScc = m*Cp*log((T2 + 460)/(T3 + 460))
+//for one exchanger
+dSc = dShc + dScc
+//exchanger D
+dSd = 0
+dStot = dSc + dSd
+
+printf("\n\nResult\n\n")
+printf("\n total entropy change is %.4f Btu/deg R",dStot)
\ No newline at end of file
diff --git a/680/CH6/EX6.12/6_12.sce b/680/CH6/EX6.12/6_12.sce
new file mode 100755
index 000000000..1a9a16ca5
--- /dev/null
+++ b/680/CH6/EX6.12/6_12.sce
@@ -0,0 +1,22 @@
+//Problem 6.12:
+
+//initializing the variables:
+T1 = 540; // in deg F
+T0 = 300; // in deg F
+T2 = 180; // in deg F
+T3 = 60; // in deg F
+m1 = 1;
+m2 = 2;
+Cp = 1;
+
+//calculation:
+dSh = m1*Cp*log((T0 + 460)/(T1 + 460))
+dSc = m2*Cp*log((T2 + 460)/(T3 + 460))
+//for one exchanger
+dSe = dSh + dSc
+//exchanger F
+dSf = dSe
+dStot = dSe + dSf
+
+printf("\n\nResult\n\n")
+printf("\n total entropy change is %.4f Btu/deg R",dStot)
\ No newline at end of file
diff --git a/680/CH6/EX6.14/6_14.sce b/680/CH6/EX6.14/6_14.sce
new file mode 100755
index 000000000..1dc2c8f2c
--- /dev/null
+++ b/680/CH6/EX6.14/6_14.sce
@@ -0,0 +1,16 @@
+//Problem 6.14:
+
+//initializing the variables:
+T = 298; // in deg F
+na = 1;
+nb = 3;
+nc = 2;
+Sa = 26.3; // in Btu/lbmol deg R
+Sb = 21.0; // in Btu/lbmol deg R
+Sc = 29.9; // in Btu/lbmol deg R
+
+//calculation:
+dS = nc*Sc - nb*Sb - na*Sa
+
+printf("\n\nResult\n\n")
+printf("\n entropy change is %.1f Btu/deg R",dS)
\ No newline at end of file
-- 
cgit