summaryrefslogtreecommitdiff
path: root/3733/CH34/EX34.28/Ex34_28.sce
blob: 02f0160a2f53dbf0cf6b7ffcc78f7f4415240283 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
// Example 34_28
clc;funcprot(0);
//Given data
P=30;// kW
C_a=60000;// Cost of motor A in rupees 
C_b=40000;// Cost of motor B in rupees
n_a=90;// Efficiency of motor A at full load 
n_b=85;//  Efficiency of motor B at full load 
n_50a=86;// Efficiency of motor A at 50% load 
n_50b=82;// Efficiency of motor B at 50% load 
N=20;// Life of each motor
I=5/100;// Interest 
T=25;// Time in %
Mc_a=4200;// The annual maintainence cost of motor A in rupees
Mc_b=2400;// The annual maintainence cost of motor B in rupees
Er=1;// Energy rate in Re./kWh

//Calculation
//(a)
SV=(10/100)*C_a;// Salary value in rupees
D=(C_a-SV)/N;// Depriciation in Rs./year
I=(5/100)*C_a;// Interest in  Rs./year
E=((P/1)*(8760*(T/100)*(1/(n_a/100))))+((P/2)*(8760*((100-T)/100)*(1/(n_50a/100))));// Energy cost in rupees
Tc_a=D+I+Mc_a+E;// Total cost of motor A
//(b)
SV=(10/100)*C_b;// Salary value in rupees
D=(C_b-SV)/N;// Depriciation in Rs./year
I=(5/100)*C_b;// Interest in  Rs./year
E=((P/1)*(8760*(T/100)*(1/(n_b/100))))+((P/2)*(8760*((100-T)/100)*(1/(n_50b/100))));// Energy cost in rupees
Tc_b=D+I+Mc_b+E;// Total cost of motor B
printf('\nTotal cost of motor A=Rs.%0.0f/year \nTotal cost of motor B=Rs.%0.0f/year',Tc_a,Tc_b);
if(Tc_a<Tc_b)
    printf('\nMotor A is recommended as its annual cost is less than motor B.');
else(Tc_b<Tc_a)
    printf('\nMotor B is recommended as its annual cost is less than motor A.');
end
// The answer vary due to round off error