From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 1802/CH10/EX10.11/Exa10_11.sce | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100755 1802/CH10/EX10.11/Exa10_11.sce (limited to '1802/CH10/EX10.11/Exa10_11.sce') diff --git a/1802/CH10/EX10.11/Exa10_11.sce b/1802/CH10/EX10.11/Exa10_11.sce new file mode 100755 index 000000000..9998f2850 --- /dev/null +++ b/1802/CH10/EX10.11/Exa10_11.sce @@ -0,0 +1,24 @@ +//Exa 10.11 +clc; +clear; +close; +//Given Data : +format('v',7); +Load=100;//in KW +LoadPF=0.75;//powerfactor +x=100;//in Rs/KVA +y=600*(10/100);//in Rs. +cosfi_2=sqrt(1-(y/x)^2) +disp(cosfi_2,"P.F.(lag) is :"); +MaxDemand1=Load/LoadPF;//in KW(at 0.75 load power factor) +MaxDemand2=Load/cosfi_2;//in KW(at cosfi_2 power factor) +AnnSaving=(MaxDemand1-MaxDemand2)*x;//in Rs. +cosfi_1=0.75;//powerfactor +tanfi_1=tand(acosd(cosfi_1));//unitless +tanfi_2=tand(acosd(cosfi_2));//unitless +KVAR1=Load*tanfi_1;//in KVAR +KVAR2=Load*cosfi_2;//in KVAR +Rating=KVAR1-KVAR2;//in KVAR +AnnualExpenditure=y*Rating;//in Rs. +AnnualSaving=AnnSaving-AnnualExpenditure;//in Rs. +disp(AnnualSaving,"Annual Savings(in Rs.) :"); \ No newline at end of file -- cgit