1 files changed, 29 insertions, 0 deletions
diff --git a/10/CH6/EX1/cha6_1.sce b/10/CH6/EX1/cha6_1.sce
new file mode 100755
index 000000000..4a0d5ce83
--- /dev/null
+++ b/10/CH6/EX1/cha6_1.sce
@@ -0,0 +1,29 @@
+IMp=500;Pf=0.8;Pf1=0.6;
+SMp=300;Pfs=1;P1=400;
+P2=4;
+
+Power=IMp*Pf
+ 
+RecPower=IMp*Pf1
+
+SyPower=SMp*Pfs
+
+TotalPower=Power+SyPower
+ 
+RecPower
+ 
+ComplesPower=sqrt(TotalPower^2+RecPower^2)
+
+PowerFactor=(TotalPower/ComplesPower)
+ 
+Power1=sqrt(Power^2-RecPower^2)
+ 
+KVAR=RecPower-Power1
+ 
+NewKVA=sqrt(TotalPower^2+KVAR)
+
+PowerFactor1=(TotalPower/NewKVA)
+ 
+Ism=P1/(sqrt(3)*P2)
+
+PowerfactorSYS=SyPower/P1