summaryrefslogtreecommitdiff
path: root/1802/CH10/EX10.17/Exa10_17.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1802/CH10/EX10.17/Exa10_17.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1802/CH10/EX10.17/Exa10_17.sce')
-rwxr-xr-x1802/CH10/EX10.17/Exa10_17.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/1802/CH10/EX10.17/Exa10_17.sce b/1802/CH10/EX10.17/Exa10_17.sce
new file mode 100755
index 000000000..6998c54c2
--- /dev/null
+++ b/1802/CH10/EX10.17/Exa10_17.sce
@@ -0,0 +1,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. \ No newline at end of file