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.7/Exa10_7.sce | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100755 1802/CH10/EX10.7/Exa10_7.sce

(limited to '1802/CH10/EX10.7')

diff --git a/1802/CH10/EX10.7/Exa10_7.sce b/1802/CH10/EX10.7/Exa10_7.sce
new file mode 100755
index 000000000..697082d5b
--- /dev/null
+++ b/1802/CH10/EX10.7/Exa10_7.sce
@@ -0,0 +1,40 @@
+//Exa 10.7
+clc;
+clear;
+close;
+//Given Data :
+format('v',7);
+//(i)
+IMO=200;//in HP(Induction Motor output)
+IMO=IMO*0.7355;//in KW(Induction Motor output)
+LagEff=90;//in %
+LagEff=90/100;//in fraction
+MotorIn=IMO/(LagEff);//in KW
+cosfi_1=0.75;//powerfactor
+tanfi_1=tand(acosd(cosfi_1));//unitless
+Pr1=MotorIn*tanfi_1;//in KVAR
+//(ii)
+P2=300;//in KW
+cosfi_2=0.5;//unitless
+tanfi_2=tand(acosd(cosfi_2));//unitless
+Pr2=P2*tanfi_2;//in KVAR
+//(iii)
+P3=200;//in KW
+cosfi_3=1;//unitless
+tanfi_3=0;//unitless
+Pr3=0;//in KVAR
+//(iv)
+PsynMotor=500;//in KW
+Eff=93;//in %
+Eff=93/100;//in fration
+Input=PsynMotor/Eff;//in KW
+Pa=MotorIn+P2+P3+PsynMotor;//in KW
+P1=Pr1+Pr2+Pr3;//in KVAR
+cosfi=1;//unitless
+tanfi=0;//unitless
+Pr=Pa*tanfi;//in KVAR
+Prm=Pr-P1;//in KVAR
+tanfi_m=Prm/Input
+cosfi_m=cosd(atand(tanfi_m));//unitless
+disp(cosfi_m,"P.F. of the motor(lead) :");
+//Note : Answer in the book is wrong
\ No newline at end of file
-- 
cgit