diff options
Diffstat (limited to '2510/CH22/EX22.8')
| -rwxr-xr-x | 2510/CH22/EX22.8/Ex22_8.sce | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/2510/CH22/EX22.8/Ex22_8.sce b/2510/CH22/EX22.8/Ex22_8.sce new file mode 100755 index 000000000..59da2015f --- /dev/null +++ b/2510/CH22/EX22.8/Ex22_8.sce @@ -0,0 +1,17 @@ +//Variable declaration: +Q1 = 10*10**6 //Unit heat duty for process unit 1 (Btu/h) +Q2 = 8*10**6 //Unit heat duty for process unit 2 (Btu/h) +Q3 = 12*10**6 //Unit heat duty for process unit 3 (Btu/h) +Q4 = 20*10**6 //Unit heat duty for process unit 4 (Btu/h) +hv = 751 //Enthalpy of vaporization for pressure 500 psig (Btu/lb) + +//Calculation: +mB1 = Q1/hv //Mass flowrate of 500 psig steam through unit 1 (lb/h) +mB2 = Q2/hv //Mass flowrate of 500 psig steam through unit 2 (lb/h) +mB3 = Q3/hv //Mass flowrate of 500 psig steam through unit 3 (lb/h) +mB4 = Q4/hv //Mass flowrate of 500 psig steam through unit 4 (lb/h) +mBT = mB1+mB2+mB3+mB4 //Total steam required (lb/h) +mBT = round(mBT*10**-1)/10**-1 + +//Result: +printf("The total steam required is : %f lb/h.",mBT) |