initial commit / add all books

6 files changed, 102 insertions, 0 deletions

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);