summaryrefslogtreecommitdiff
path: root/680/CH8
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /680/CH8
downloadScilab-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/CH8')
-rwxr-xr-x680/CH8/EX8.01/8_01.sce13
-rwxr-xr-x680/CH8/EX8.02/8_02.sce14
-rwxr-xr-x680/CH8/EX8.04/8_04.sce24
-rwxr-xr-x680/CH8/EX8.05/8_05.sce24
-rwxr-xr-x680/CH8/EX8.06/8_06.sce16
-rwxr-xr-x680/CH8/EX8.07/8_07.sce12
-rwxr-xr-x680/CH8/EX8.08/8_08.sce15
-rwxr-xr-x680/CH8/EX8.09/8_09.sce14
-rwxr-xr-x680/CH8/EX8.10/8_10.sce21
-rwxr-xr-x680/CH8/EX8.11/8_11.sce21
-rwxr-xr-x680/CH8/EX8.12/8_12.sce25
-rwxr-xr-x680/CH8/EX8.13/8_13.sce28
12 files changed, 227 insertions, 0 deletions
diff --git a/680/CH8/EX8.01/8_01.sce b/680/CH8/EX8.01/8_01.sce
new file mode 100755
index 000000000..4aaf7c348
--- /dev/null
+++ b/680/CH8/EX8.01/8_01.sce
@@ -0,0 +1,13 @@
+//Problem 8.01:
+
+//initializing the variables:
+T = 0; // in deg C
+A = 15.03;
+B = 2817;
+
+//calculation:
+T = T + 273
+P = %e^(A - B/T)
+
+printf("\n\nResult\n\n")
+printf("\n the vapor pressure is %.2f mm of Hg",P) \ No newline at end of file
diff --git a/680/CH8/EX8.02/8_02.sce b/680/CH8/EX8.02/8_02.sce
new file mode 100755
index 000000000..728344cee
--- /dev/null
+++ b/680/CH8/EX8.02/8_02.sce
@@ -0,0 +1,14 @@
+//Problem 8.02:
+
+//initializing the variables:
+T = 0; // in deg C
+A = 16.65;
+B = 2940;
+C = -35.93;
+
+//calculation:
+T = T + 273
+P = %e^(A - B/(T + C))
+
+printf("\n\nResult\n\n")
+printf("\n the vapor pressure is %.2f mm of Hg",P) \ No newline at end of file
diff --git a/680/CH8/EX8.04/8_04.sce b/680/CH8/EX8.04/8_04.sce
new file mode 100755
index 000000000..eaa2ebbac
--- /dev/null
+++ b/680/CH8/EX8.04/8_04.sce
@@ -0,0 +1,24 @@
+//Problem 8.04:
+
+//initializing the variables:
+T1 = 250; // in deg C
+T2 = 260; // in deg C
+T3 = 270; // in deg C
+T4 = 280; // in deg C
+T5 = 290; // in deg C
+P1 = 22.01; // in atm
+P2 = 24.66; // in atm
+P3 = 27.13; // in atm
+P4 = 29.79; // in atm
+P5 = 32.42; // in atm
+vl3 = 0.0408; // in ft3/lb
+vg3 = 0.192; // in ft3/lb
+
+//calculation:
+dpdT = (P4 - P2)/(T4 - T2)
+dv = vg3 - vl3
+T3 = T3 + 460
+dH = T3*dv*dpdT*14.7*144/778
+
+printf("\n\nResult\n\n")
+printf("\n the enthalpy of vaporization is %.2f Btu/lb",dH) \ No newline at end of file
diff --git a/680/CH8/EX8.05/8_05.sce b/680/CH8/EX8.05/8_05.sce
new file mode 100755
index 000000000..9a7b2eef9
--- /dev/null
+++ b/680/CH8/EX8.05/8_05.sce
@@ -0,0 +1,24 @@
+//Problem 8.05:
+
+//initializing the variables:
+T1 = 250; // in deg C
+T2 = 260; // in deg C
+T3 = 270; // in deg C
+T4 = 280; // in deg C
+T5 = 290; // in deg C
+P1 = 22.01; // in atm
+P2 = 24.66; // in atm
+P3 = 27.13; // in atm
+P4 = 29.79; // in atm
+P5 = 32.42; // in atm
+vl3 = 0.0408; // in ft3/lb
+vg3 = 0.192; // in ft3/lb
+
+//calculation:
+dpdT = (P5 - P1)/(T5 - T1)
+dpdT13 = (P3 - P1)/(T3 - T1)
+dpdT35 = (P5 - P3)/(T5 - T3)
+dpdTav = (dpdT13+dpdT35)/2
+
+printf("\n\nResult\n\n")
+printf("\n the p` vs T derivative is %.3f",dpdTav)
diff --git a/680/CH8/EX8.06/8_06.sce b/680/CH8/EX8.06/8_06.sce
new file mode 100755
index 000000000..07843c911
--- /dev/null
+++ b/680/CH8/EX8.06/8_06.sce
@@ -0,0 +1,16 @@
+//Problem 8.06:
+
+//initializing the variables:
+Tc = 647; // in K
+Tn = 100 + 273; // in K
+Pc = 217.6; // in atm
+dHe = 970; // in Btu/lb
+
+//calculation:
+Tm = Tn/Tc
+dH = 2.17*Tn*((log(Pc)) - 1.0)/(0.930 - Tm)
+dHn = dH*454/(252*18)
+perdiff = (dHn - dHe)*100/dHe
+
+printf("\n\nResult\n\n")
+printf("\n the enthalpy of vaporization is %.1f percent",perdiff) \ No newline at end of file
diff --git a/680/CH8/EX8.07/8_07.sce b/680/CH8/EX8.07/8_07.sce
new file mode 100755
index 000000000..9d7ab0d8e
--- /dev/null
+++ b/680/CH8/EX8.07/8_07.sce
@@ -0,0 +1,12 @@
+//Problem 8.07:
+
+//initializing the variables:
+Tn = 212 + 460; // in deg R
+R = 1.987
+Tr = 12; // say
+
+//calculation:
+dH = Tr*Tn*R
+
+printf("\n\nResult\n\n")
+printf("\n the enthalpy of vaporization is %.0f Btu/lbmol",dH) \ No newline at end of file
diff --git a/680/CH8/EX8.08/8_08.sce b/680/CH8/EX8.08/8_08.sce
new file mode 100755
index 000000000..8a2a5f27d
--- /dev/null
+++ b/680/CH8/EX8.08/8_08.sce
@@ -0,0 +1,15 @@
+//Problem 8.08:
+
+//initializing the variables:
+T1 = 100; // in deg C
+P = 101370; // in Pa
+dH100 = 2256.9; // in J/g
+T2 = 200; // in deg C
+
+//calculation:
+Tr100 = (T1 + 273)/647
+Tr200 = (T2 + 273)/647
+dH200 = dH100*((1 - Tr200)/(1 - Tr100))^0.38
+
+printf("\n\nResult\n\n")
+printf("\n the enthalpy of vaporization is %.0f J/g",dH200) \ No newline at end of file
diff --git a/680/CH8/EX8.09/8_09.sce b/680/CH8/EX8.09/8_09.sce
new file mode 100755
index 000000000..4e6067a10
--- /dev/null
+++ b/680/CH8/EX8.09/8_09.sce
@@ -0,0 +1,14 @@
+//Problem 8.09:
+
+//initializing the variables:
+Tn = 100; // in deg C
+P = 101370; // in Pa
+dHn = 2200; // in kJ/Kg
+Tc = 370; // in deg C
+T = 250; // in deg C
+
+//calculation:
+dH250 = dHn*(1 - ((T - Tn)/(Tc - Tn))^2)
+
+printf("\n\nResult\n\n")
+printf("\n the enthalpy of vaporization is %.0f kJ/kg",dH250) \ No newline at end of file
diff --git a/680/CH8/EX8.10/8_10.sce b/680/CH8/EX8.10/8_10.sce
new file mode 100755
index 000000000..51e946940
--- /dev/null
+++ b/680/CH8/EX8.10/8_10.sce
@@ -0,0 +1,21 @@
+//Problem 8.10:
+
+//initializing the variables:
+Tw = 60; // in deg F
+mdt1 = 1000; // in lb/h
+Pw = 1; // in atm
+Ps = 40; // in atm
+Ts = 1000; // in deg F
+Pd = 20; // in atm
+Td = 600; // in deg F
+H40 = 1572; // in Btu/lb
+H20 = 1316; // in Btu/lb
+H1 = 1151; // in Btu/lb
+Ht60 = 28.1; // in Btu/lb
+
+//calculation:
+dHv = mdt1*(H1 - Ht60)
+mdt2 = dHv/(H40 - H20)
+
+printf("\n\nResult\n\n")
+printf("\n mass flowrate of the utility steam required is %.0f lb/h",mdt2) \ No newline at end of file
diff --git a/680/CH8/EX8.11/8_11.sce b/680/CH8/EX8.11/8_11.sce
new file mode 100755
index 000000000..4b1a69833
--- /dev/null
+++ b/680/CH8/EX8.11/8_11.sce
@@ -0,0 +1,21 @@
+//Problem 8.11:
+
+//initializing the variables:
+Ts = 90; // in deg F
+Cp = 1; // in Btu/lb.deg F
+Cpv = 1030; // in Btu/lb
+Tr = 115; // in deg F
+D1 = 12000000; // in Btu/h
+D2 = 6000000; // in Btu/h
+D3 = 23000000; // in Btu/h
+D4 = 17000000; // in Btu/h
+D5 = 31500000; // in Btu/h
+d = 8.32; // in lb/gal
+
+//calculation:
+Qdt = D1 + D2 + D3 + D4 + D5
+F = Qdt/((Tr - Ts)*Cp)
+Fgpm = F/(60*d)
+
+printf("\n\nResult\n\n")
+printf("\n total flowrate of cooling water is %.0f gal/min",Fgpm) \ No newline at end of file
diff --git a/680/CH8/EX8.12/8_12.sce b/680/CH8/EX8.12/8_12.sce
new file mode 100755
index 000000000..a1506d806
--- /dev/null
+++ b/680/CH8/EX8.12/8_12.sce
@@ -0,0 +1,25 @@
+//Problem 8.12:
+
+//initializing the variables:
+Ts = 90; // in deg F
+Cp = 1; // in Btu/lb.deg F
+Cpv = 1030; // in Btu/lb
+Tr = 115; // in deg F
+D1 = 12000000; // in Btu/h
+D2 = 6000000; // in Btu/h
+D3 = 23000000; // in Btu/h
+D4 = 17000000; // in Btu/h
+D5 = 31500000; // in Btu/h
+d = 8.32; // in lb/gal
+a = 0.05;
+
+//calculation:
+Qdt = D1 + D2 + D3 + D4 + D5
+F = Qdt/((Tr - Ts)*Cp)
+B = a*F
+V = Qdt/Cpv
+M = B + V
+Mgpm = 0.002*M
+
+printf("\n\nResult\n\n")
+printf("\n the sum of blowdown and the amount evaporated is %.0f gal/min",Mgpm) \ No newline at end of file
diff --git a/680/CH8/EX8.13/8_13.sce b/680/CH8/EX8.13/8_13.sce
new file mode 100755
index 000000000..6d71a1ba9
--- /dev/null
+++ b/680/CH8/EX8.13/8_13.sce
@@ -0,0 +1,28 @@
+//Problem 8.13:
+
+//initializing the variables:
+P =500; // in psig
+UHD1 = 10000000; // in Btu/h
+UHD2 = 8000000; // in Btu/h
+UHD3 = 12000000; // in Btu/h
+UHD4 = 20000000; // in Btu/h
+T1 = 250; // in deg F
+T2 = 450; // in deg F
+T3 = 400; // in deg F
+T4 = 300; // in deg F
+Ps1 = 75; // in psig
+Ps2 = 500; // in psig
+Ts1 = 320; // in deg F
+Ts2 = 470; // in deg F
+dHv1 = 894; // in Btu/lb
+dHv2 = 751; // in Btu/lb
+
+//calculation:
+mdtb1 = UHD1/dHv2
+mdtb2 = UHD2/dHv2
+mdtb3 = UHD3/dHv2
+mdtb4 = UHD4/dHv2
+mdtb = mdtb1 + mdtb2 + mdtb3 + mdtb4
+
+printf("\n\nResult\n\n")
+printf("\n steam required is %.0f lb/h",mdtb) \ No newline at end of file
generated by cgit (git 2.34.1) at 2024-12-20 06:44:35 +0000