diff options
author | priyanka | 2015-06-24 15:03:17 +0530 |
---|---|---|
committer | priyanka | 2015-06-24 15:03:17 +0530 |
commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
tree | ab291cffc65280e58ac82470ba63fbcca7805165 /680/CH6 | |
download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip |
initial commit / add all books
Diffstat (limited to '680/CH6')
-rwxr-xr-x | 680/CH6/EX6.01/6_01.sce | 17 | ||||
-rwxr-xr-x | 680/CH6/EX6.02/6_02.sce | 17 | ||||
-rwxr-xr-x | 680/CH6/EX6.03/6_03.sce | 19 | ||||
-rwxr-xr-x | 680/CH6/EX6.05/6_05.sce | 18 | ||||
-rwxr-xr-x | 680/CH6/EX6.06/6_06.sce | 18 | ||||
-rwxr-xr-x | 680/CH6/EX6.07/6_07.sce | 20 | ||||
-rwxr-xr-x | 680/CH6/EX6.09/6_09.sce | 25 | ||||
-rwxr-xr-x | 680/CH6/EX6.10/6_10.sce | 21 | ||||
-rwxr-xr-x | 680/CH6/EX6.11/6_11.sce | 22 | ||||
-rwxr-xr-x | 680/CH6/EX6.12/6_12.sce | 22 | ||||
-rwxr-xr-x | 680/CH6/EX6.14/6_14.sce | 16 |
11 files changed, 215 insertions, 0 deletions
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 |