summaryrefslogtreecommitdiff
path: root/167/CH7/EX7.23/ex23.sce
blob: 0108a3efc2ba968878f5742c83d13d094dd3bb84 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//ques23
//Reducing the Pressure Setting to Reduce Cost
clear
clc
Preduced=885.6;//reduced pressure
P1=85.6;//initial pressure in kPa
P2=985.6;//final pressure in kPa
n=1.4;
f=1-((Preduced/P1)^((n-1)/n)-1)/((P2/P1)^(1-1/n)-1);//The fraction of energy saved as a result of reducing the pressure setting
Cc=12000;//current cost in $/yr
Csaving=Cc*f;
printf('Cost saving = $%.0f/yr \n',Csaving);