summaryrefslogtreecommitdiff
path: root/1802/CH10/EX10.13/Exa10_13.sce
blob: 780c55e9de1fcee90bf5967d1c9fc84a8d27ba0c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//Exa 10.13
clc;
clear;
close;
//Given Data :
format('v',6);
x=60;//in Rs./KVA
x1=100;//in Rs/KVAR(cost of phase advancing equipment)
InterestCepriciation=x1*10/100;//in Rs.
y=10;//in Rs./KVAR
cosfi_2=sqrt(1-(y/x)^2);//unitless
disp(cosfi_2,"Most Ecomnomical PF(lag) :");