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/CH9/EX9.3/ExB_3.sce | 31 +++++++++++++++++++++++++++++++
 3760/CH9/EX9.4/ExB_4.sce | 15 +++++++++++++++
 3760/CH9/EX9.5/ExB_5.sce | 21 +++++++++++++++++++++
 3760/CH9/EX9.6/ExB_6.sce | 13 +++++++++++++
 3760/CH9/EX9.7/ExB_7.sce |  8 ++++++++
 3760/CH9/EX9.8/ExB_8.sce | 14 ++++++++++++++
 6 files changed, 102 insertions(+)
 create mode 100644 3760/CH9/EX9.3/ExB_3.sce
 create mode 100644 3760/CH9/EX9.4/ExB_4.sce
 create mode 100644 3760/CH9/EX9.5/ExB_5.sce
 create mode 100644 3760/CH9/EX9.6/ExB_6.sce
 create mode 100644 3760/CH9/EX9.7/ExB_7.sce
 create mode 100644 3760/CH9/EX9.8/ExB_8.sce

(limited to '3760/CH9')

diff --git a/3760/CH9/EX9.3/ExB_3.sce b/3760/CH9/EX9.3/ExB_3.sce
new file mode 100644
index 000000000..32b11be6f
--- /dev/null
+++ b/3760/CH9/EX9.3/ExB_3.sce
@@ -0,0 +1,31 @@
+clc;
+vl=400; // line voltage
+z=10+7.5*%i; // load impedance per phase
+disp('For star connected load');
+vp=vl/sqrt(3); // phase voltage 
+ip=vp/abs(z);// phase and line current are same in the case of star connected load 
+an=atand(-imag(z),real(z));
+pf=cosd(an);
+P=sqrt(3)*vl*ip;
+pa=sqrt(3)*vl*ip*pf;
+pr=-sqrt(3)*vl*ip*sind(an);
+printf('Phase and line currents are %f A\n',ip);
+printf('Power factor is %f lagging \n',pf);
+printf('Total volt ampere is %f VA\n',P);
+printf('Total active power is %f W\n',pa);
+printf('Total reactive power is %f VAr\n',pr);
+disp('For delta connected load');
+vp=vl // phase voltage and line voltage are same in the case of star connected load 
+ip=vp/abs(z);
+il=ip*sqrt(3); 
+an=atand(-imag(z),real(z));
+pf=cosd(an);
+P=sqrt(3)*vl*il;
+pa=sqrt(3)*vl*il*pf;
+pr=-sqrt(3)*vl*il*sind(an);
+printf('Phase current is %f A\n',ip);
+printf('Line current is %f A\n',il);
+printf('Power factor is %f lagging\n',pf);
+printf('Total volt ampere is %f VA\n',P);
+printf('Total active power is %f W\n',pa);
+printf('Total reactive power is %f VAr\n',pr);
diff --git a/3760/CH9/EX9.4/ExB_4.sce b/3760/CH9/EX9.4/ExB_4.sce
new file mode 100644
index 000000000..1f3ac3edd
--- /dev/null
+++ b/3760/CH9/EX9.4/ExB_4.sce
@@ -0,0 +1,15 @@
+clc;
+il=48; // load current(leading)
+p=30; // load power in KW
+vl=500; // line voltage
+f=50; // supply frequency 
+pf=(p*1000)/(sqrt(3)*vl*il);
+vp=vl/sqrt(3); // phase voltage
+zp=vp/il; // magnitude of phase impedance
+rp=zp*pf; 
+// since current is leading other parameter must be a capacitor
+xc=zp*sqrt(1-pf^2); // reactance
+c=(10^6)/(2*%pi*f*xc);
+disp('circuit parameters are');
+printf('Load resistance is %f ohm\n',rp);
+printf('Load capacitance is %f micro farad',c);
diff --git a/3760/CH9/EX9.5/ExB_5.sce b/3760/CH9/EX9.5/ExB_5.sce
new file mode 100644
index 000000000..0261d1582
--- /dev/null
+++ b/3760/CH9/EX9.5/ExB_5.sce
@@ -0,0 +1,21 @@
+clc;
+zs=10+15*%i; // star connected load per phase
+zd=12-15*%i; // delta connected load per phase
+vl=400; // supply line voltage 
+disp('case a');
+// converting delta connected load to star connected load
+zd=zd/3; 
+vp=vl/sqrt(3);
+i1=vp/zs; // line current in star connected load
+i2=vp/zd; // line current in delta connected load
+i=abs(i1+i2);
+printf('Total line current is %f A\n',i);
+an=atand(imag(i1+i2),real(i1+i2)); 
+pf=cosd(an);
+P=(sqrt(3)*vl*i*pf);
+pr=sqrt(3)*vl*i*sqrt(1-pf^2);
+printf('Power factor is %f leading\n',pf);
+printf('Total power is %f W\n',P);
+printf('Total reactve power is %f VAr',pr);
+
+ 
diff --git a/3760/CH9/EX9.6/ExB_6.sce b/3760/CH9/EX9.6/ExB_6.sce
new file mode 100644
index 000000000..0875e2030
--- /dev/null
+++ b/3760/CH9/EX9.6/ExB_6.sce
@@ -0,0 +1,13 @@
+clc;
+w1=85; // reading of wattmeter 1;
+w2=35; // reading of wattmeter 2;
+P=w1+w2; // total input power
+n=0.85; // efficiency of motor
+vl=1100; // supply voltage
+pf=cosd(atand((sqrt(3)*(w1-w2))/(w1+w2)));
+il=(P*1000)/(sqrt(3)*vl*pf); // line current
+ps=n*P;
+printf('Input power is %f KW\n',P);
+printf('Line current is %f A\n',il);
+printf('power factor is %f lagging\n',pf);
+printf('shaft power is %f KW',ps);
diff --git a/3760/CH9/EX9.7/ExB_7.sce b/3760/CH9/EX9.7/ExB_7.sce
new file mode 100644
index 000000000..be6d3d08d
--- /dev/null
+++ b/3760/CH9/EX9.7/ExB_7.sce
@@ -0,0 +1,8 @@
+clc;
+w1=2000; // reading of wattmeter 1 under no load
+w2=-400; // reading of wattmeter 2 under no load, since the connections are reversed that is why negative sign
+theta=atand((sqrt(3)*(w1-w2))/(w1+w2));
+pl=w1+w2;
+pf=cosd(theta);
+printf('No load losses are %f W\n',pl);
+printf('No load power factor is %f lagging',pf);
diff --git a/3760/CH9/EX9.8/ExB_8.sce b/3760/CH9/EX9.8/ExB_8.sce
new file mode 100644
index 000000000..588b823f7
--- /dev/null
+++ b/3760/CH9/EX9.8/ExB_8.sce
@@ -0,0 +1,14 @@
+clc;
+vl=230; // line voltage
+f=50; // frequency of supply
+c=100*10^-6; // value of capacitance in each phase
+vp=230/sqrt(3); // phase voltage
+zp=1/(2*%pi*f*c); // phase impedance
+il=vp/zp; // line current
+// value of cos(theta) is taken from figB.15
+w1=vl*il*cosd(120);
+w2=vl*il*cosd(60);
+printf('Reading of wattmeter 1 is %f W\n',w1);
+printf('Reading of wattmeter 2 is %f W\n',w2);
+p=w1+w2;
+printf('Total input power is %f W',p);
-- 
cgit