summaryrefslogtreecommitdiff
path: root/1802/CH10/EX10.17/Exa10_17.sce
blob: 6998c54c2a0231270d9051c13b588ab09f807a16 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//Exa 10.17
clc;
clear;
close;
//Given Data :
format('v',6);
P=300;//in KW
cosfi_1=0.7;//unitless
tanfi_1=tand(acosd(cosfi_1));
y=13;//in Rs./KVAR
x=130;//in Rs./KVA
cosfi_2=sqrt(1-(y/x)^2);//unitless
disp(cosfi_2,"Most Ecomnomical PF :");
tanfi_2=tand(acosd(cosfi_2));
//(ii)
LeadingKVAR=P*(tanfi_1-tanfi_2);//in KVAR
AnnSavingMD=x*[P/cosfi_1-P/cosfi_2];//in Rs.
AnnExpenditure=y*LeadingKVAR;//in Rs.
NetSaving=AnnSavingMD-AnnExpenditure;//in Rs.
disp(NetSaving,"Net Saving in Rs. :");
//Note : Answer in the book is not accurate.