From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3760/CH6/EX6.16/Ex6_16.sce | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 3760/CH6/EX6.16/Ex6_16.sce

(limited to '3760/CH6/EX6.16/Ex6_16.sce')

diff --git a/3760/CH6/EX6.16/Ex6_16.sce b/3760/CH6/EX6.16/Ex6_16.sce
new file mode 100644
index 000000000..9ddb18a45
--- /dev/null
+++ b/3760/CH6/EX6.16/Ex6_16.sce
@@ -0,0 +1,32 @@
+ 
+clc;
+r2=0.04;
+x2=0.2;
+
+//As per given conditions we get a quadratic equation in smT which is smT^2-4*smT+1
+t1=1; t2=-4; t3=1; 
+p=[ t1 t2 t3];
+smT=roots(p);
+
+r22=x2*smT(2);
+R=r22-r2;
+mprintf('The external resistane needed to be inserted is %f Ohm \n',R);
+
+
+//say V=400(Input voltage)
+V=400;
+//without external resistance
+Ist=V/(sqrt((r2)*(r2)+(x2)*(x2)));
+pf=r2/(sqrt((r2)*(r2)+(x2)*(x2)));
+
+//with external resistance
+Ist1=V/(sqrt((r22)*(r22)+(x2)*(x2)));
+pf1=r22/(sqrt((r22)*(r22)+(x2)*(x2)));
+
+a=((Ist-Ist1)/Ist)*100;
+b=((pf1-pf)/pf)*100;
+mprintf('Percentage in starting current is %f \n',a);
+mprintf('Percentage in power factor is %f \n',b);
+
+
+
-- 
cgit