diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /1328/CH14/EX14.2/14_2.sce | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '1328/CH14/EX14.2/14_2.sce')
| -rw-r--r-- | 1328/CH14/EX14.2/14_2.sce | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/1328/CH14/EX14.2/14_2.sce b/1328/CH14/EX14.2/14_2.sce new file mode 100644 index 000000000..d21acd6d8 --- /dev/null +++ b/1328/CH14/EX14.2/14_2.sce @@ -0,0 +1,59 @@ +printf("\t example 14.2 \n");
+printf("\t approximate values are mentioned in the book \n");
+
+wf = 50000; // lb/hr
+sf = wf * 0.10; // lb/hr
+tp = sf/0.50; // lb/hr
+printf("\tTotal product is %.0f lb/hr\n",tp);
+te = wf - tp;
+printf("\tTotal evaporation is %.0f lb/hr\n",te);
+cf = 1.0;
+tF = 100; // °F
+T1 = 244; // °F
+T2 = 125; // °F
+U1=600; // Btu/((hr)*(ft^2)*(°F))
+U2=250; // Btu/((hr)*(ft^2)*(°F))
+U3=125; // Btu/((hr)*(ft^2)*(°F))
+
+T = T1-T2;
+printf("\tTotal temperature difference is delT%.0f °F\n",T);
+df = (26.70- 1.95)/3; // psi/effect
+printf("\tAverage pressure difference is delP%.2f psi/effect \n",df);
+
+printf("\n\t\t\t\t\tPressure, psia\t\t delP, psi \t Steam or vapor, °F \t lambda, Btu/lb\n\tSteam chest, 1st effect \t 26.70 \t\t\t .... \t\t Ts = 244 \t\t ls = 949 \n\tSteam chest, 2nd effect \t 18.45 \t\t\t 8.25 \t\t t1 = 224 \t\t l1 = 961 \n\tSteam chest, 3rd effect \t 10.20(20.7 in. Hg) \t 8.25 \t\t t2 = 194 \t\t l1 = 981 \n\tVapor to condenser \t\t 1.95(26 in. Hg) \t 8.25 \t\t t2 = 125 \t\t l1 = 1022 \n");
+
+printf("\t949*Ws + 50000*(100-224) = 961*w1\n\t961*w1 + (50000 - w1)*(224-194) = 981 * w2\n\t981*w2 + (50000-w1-w2)(194-125) = 1022 * w2\n\tw1+w2+w3 = 40000\n");
+printf("\tSolving simultaneously\n");
+w1=12400;
+printf("\tw1 = %.2e \n",w1);
+w2=13300;
+printf("\tw2 = %.2e \n",w2);
+w3=14300;
+printf("\tw3 = %.2e \n",w3);
+
+Wt = w1+w2+w3;
+printf("\tW1-3 is %.0e \n",Wt);
+Ws = 19100;
+lms = 949;
+lm1 = 961;
+lm2 = 981;
+lm3 = 1022;
+Ts = 244;
+t1 = 224;
+t2 = 194;
+t3 = 125;
+
+A1 = (Ws * lms)/(U1*(Ts-t1)); //ft^2
+printf("\tA1 is %.0f ft^2 \n",A1);
+A2 = (w1*lm1)/(U2*(t1-t2)); //ft^2
+printf("\tA2 is %.0f ft^2 \n",A2);
+A3 = (w2 * lm2)/(U3*(t2-t3)); //ft^2
+printf("\tA3 is %.0f ft^2 \n",A3);
+
+hc = w3 * lm3; // Btu/hr, WRONG CALCULATION IN TEXT BOOK
+printf("\tHeat to condenser is %.3e Btu/hr\n",hc);
+wr = hc/(120-85); //lb/hr
+printf("\tWater requirement is %.1e lb/hr\n",wr);
+wr1 = wr/500;
+printf("\t= %.0f gpm \n",wr1);
+//end
|