1118/CH26/EX26.12/eg26_12.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

clear;
//clc();
p=800;
pf1=.72;
q1=acosd(pf1);
x=500;
y=160;
pf=sqrt(1- (y/x)^2);

q2=acosd(pf);
qc=p*(tand(q1)-tand(q2));

smd=x*p*((1/pf1)-(1/pf));

ann_cost=y*qc;
sav=smd-ann_cost;
printf("The annual saving is:%.0f Rs",sav);