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

---
 2276/CH6/EX6.1/chapter6_ex1.sce | 17 +++++++++++++++++
 2276/CH6/EX6.2/chapter6_ex2.sce | 22 ++++++++++++++++++++++
 2276/CH6/EX6.3/chapter6_ex3.sce | 17 +++++++++++++++++
 2276/CH6/EX6.4/chapter6_ex4.sce | 25 +++++++++++++++++++++++++
 2276/CH6/EX6.5/chapter6_ex5.sce | 15 +++++++++++++++
 2276/CH6/EX6.6/chapter6_ex6.sce | 17 +++++++++++++++++
 2276/CH6/EX6.7/chapter6_ex7.sce | 25 +++++++++++++++++++++++++
 2276/CH6/EX6.8/chapter6_ex8.sce | 18 ++++++++++++++++++
 8 files changed, 156 insertions(+)
 create mode 100755 2276/CH6/EX6.1/chapter6_ex1.sce
 create mode 100755 2276/CH6/EX6.2/chapter6_ex2.sce
 create mode 100755 2276/CH6/EX6.3/chapter6_ex3.sce
 create mode 100755 2276/CH6/EX6.4/chapter6_ex4.sce
 create mode 100755 2276/CH6/EX6.5/chapter6_ex5.sce
 create mode 100755 2276/CH6/EX6.6/chapter6_ex6.sce
 create mode 100755 2276/CH6/EX6.7/chapter6_ex7.sce
 create mode 100755 2276/CH6/EX6.8/chapter6_ex8.sce

(limited to '2276/CH6')

diff --git a/2276/CH6/EX6.1/chapter6_ex1.sce b/2276/CH6/EX6.1/chapter6_ex1.sce
new file mode 100755
index 000000000..95e482e8d
--- /dev/null
+++ b/2276/CH6/EX6.1/chapter6_ex1.sce
@@ -0,0 +1,17 @@
+clc
+clear
+
+//input
+z=7.5+(%i*10);//impedance connected to a supply in ohms
+r=7.5;//resistance from impedance in ohms
+x=10;//reactance from impedance in ohms
+v=200;//supply voltage in volts
+
+//calculations
+i=v/z;//current taken from supply in amperes
+I=(((real(i))^2)+((imag(i))^2))^0.5;//current magnitude in amperes
+phi=(180/%pi)*atan(-x/r);//phase angle in degrees
+PHI=-phi;//lag
+
+//output
+mprintf('the supply current is %3.0f A lagging on the voltage by %3.0f',I,PHI)
diff --git a/2276/CH6/EX6.2/chapter6_ex2.sce b/2276/CH6/EX6.2/chapter6_ex2.sce
new file mode 100755
index 000000000..c4b7ba421
--- /dev/null
+++ b/2276/CH6/EX6.2/chapter6_ex2.sce
@@ -0,0 +1,22 @@
+clc
+clear
+
+//input
+z1=5+(%i*5);//impedance 1 in ohms
+z2=10-(%i*15);//impedance 2 in ohms
+//impedances 1 and 2 are in series
+v=240;//supply voltage in volts
+
+//calculations
+zt=z1+z2;//total impedance in ohms
+i=v/zt;//current taken in amperes
+v1=z1*i;//voltage 1 in volts
+V1=(((real(v1))^2)+((imag(v1))^2))^0.5;//voltage magnitude in volts
+phi1=(180/%pi)*atan((imag(v1))/(real(v1)));//phase angle 1 in degrees
+v2=i*z2;//voltage 2 in volts
+V2=(((real(v2))^2)+((imag(v2))^2))^0.5;//voltage magnitude in volts
+phi2=(180/%pi)*atan(-(imag(v2))/(real(v2)));//phase angle 2 in degrees
+I=(((real(i))^2)+((imag(i))^2))^0.5;//current magnitude in amperes
+
+//output
+mprintf('the supply current is%3.1f A and the two voltages are %3.0f V and %3.0f V leading by %3.1f degrees and lagging by %3.1f degrees respectively',I,V1,V2,phi1,phi2)
diff --git a/2276/CH6/EX6.3/chapter6_ex3.sce b/2276/CH6/EX6.3/chapter6_ex3.sce
new file mode 100755
index 000000000..de76e16a4
--- /dev/null
+++ b/2276/CH6/EX6.3/chapter6_ex3.sce
@@ -0,0 +1,17 @@
+clc
+clear
+
+//input
+z1=12+(%pi*16);//impedance 1 in ohms
+z2=10-(%i*10);//impedance 2 in ohms
+//impedances 1 and 2 are in parallel
+v=240;//supply voltage in volts
+
+//calculations
+zt=(z1*z2)/(z1+z2);//total impedance in ohms
+Z=(((real(zt))^2)+((imag(zt))^2))^0.5;//current magnitude in amperes
+i=v/zt;//supply current in amperes
+I=(((real(i))^2)+((imag(i))^2))^0.5;//current magnitude in amperes
+
+//output
+mprintf('the magnitude of total impedance is %3.1f ohms and of the supply current is %3.1f A',Z,I)
diff --git a/2276/CH6/EX6.4/chapter6_ex4.sce b/2276/CH6/EX6.4/chapter6_ex4.sce
new file mode 100755
index 000000000..103d011c7
--- /dev/null
+++ b/2276/CH6/EX6.4/chapter6_ex4.sce
@@ -0,0 +1,25 @@
+clc
+clear
+
+//input
+r1=10;//resistance of branch 1 in ohms
+l1=0.08;//inductance of branch 1 in henry
+r2=20;//resistance of branch 2 in ohms
+c2=150*(10^-6);//capacitance of branch 2 in farad
+//branch 1 and 2 are in parallel
+v=240;//supply voltage in volts
+f=50;//supply frequency in hertz
+
+//calculations
+xl=2*%pi*f*l1;//reactance of branch 1 in ohms
+z1=r1+(%i*xl);//impedance of branch 1 in ohms
+y1=1/z1;//admittance of branch 1 in mho
+x2=1/(2*%pi*f*c2);//reactane of branch 2 in ohms
+z2=r2-(%i*x2);//impedance of branch 2
+y2=1/z2;//admittance of branch 2 in mho
+yt=y1+y2;//total admittance in mho
+it=v*yt;//supply current in amperes
+I=(((real(it))^2)+((imag(it))^2))^0.5;//current magnitude in amperes
+
+//output
+mprintf('the current taken from the supply is %3.2f A',I)
diff --git a/2276/CH6/EX6.5/chapter6_ex5.sce b/2276/CH6/EX6.5/chapter6_ex5.sce
new file mode 100755
index 000000000..31eb44ccd
--- /dev/null
+++ b/2276/CH6/EX6.5/chapter6_ex5.sce
@@ -0,0 +1,15 @@
+clc
+clear
+
+//input
+r=20;//resistance of an inductor in ohms
+x=15;//reactance of an inductor in ohms
+v=250;//supply voltage in volts
+
+//calculations
+z=((r^2)+(x^2))^0.5;//magnitude of impedance in ohms
+phi=(180/%pi)*atan(x/r);//phase angle in degrees
+i=v/z;//current magnitude in amperes
+
+//output
+mprintf('the current will be %3.0f A lagging by %3.0f degrees',i,phi)
diff --git a/2276/CH6/EX6.6/chapter6_ex6.sce b/2276/CH6/EX6.6/chapter6_ex6.sce
new file mode 100755
index 000000000..b9e2ea414
--- /dev/null
+++ b/2276/CH6/EX6.6/chapter6_ex6.sce
@@ -0,0 +1,17 @@
+clc
+clear
+
+//input
+i=8-(%i*6);//current flowing in amperes
+z=10+(%i*10);//impedance in ohms
+
+//calculations
+I=(((real(i))^2)+((imag(i))^2))^0.5;//current magnitude in amperes
+Z=(((real(z))^2)+((imag(z))^2))^0.5;//magnitude of impedance in ohms
+phi1=(180/%pi)*atan(-(imag(i))/(real(i)));//phase angle of current in degrees
+phi2=(180/%pi)*atan(-(imag(z))/(real(z)));//phase angle of impedance in degrees
+phi=-(phi2+phi1);
+v=I*Z;//voltage across coil in volts
+
+//output
+mprintf('the voltage across the coil is %3.0f V leading by %3.0f degrees',v,phi)
diff --git a/2276/CH6/EX6.7/chapter6_ex7.sce b/2276/CH6/EX6.7/chapter6_ex7.sce
new file mode 100755
index 000000000..be8619b8c
--- /dev/null
+++ b/2276/CH6/EX6.7/chapter6_ex7.sce
@@ -0,0 +1,25 @@
+clc
+clear
+
+//input
+z1=10+(%i*15);//first impedance in ohms
+z2=15-(%i*25);//second impeddance in ohms
+//impedances 1 and 2 are connected in parallel
+
+//calculations
+Z1=(((real(z1)^2)+(imag(z1)^2)))^0.5;//magnitude of impedance 1 in ohms
+Z2=(((real(z2)^2)+(imag(z2)^2)))^0.5;//magnitude of impedance 2 in ohms
+phi1=(180/%pi)*atan((imag(z1))/real(z1));//phase angle 1 in degrees
+phi2=(180/%pi)*atan((imag(z2))/real(z2));//phase angle 1 in degrees
+Z=z1+z2;//total impedance in ohms
+Zt=(((real(Z)^2)+(imag(Z)^2)))^0.5;//magnitude of total impedance in ohms
+PHIt=(180/%pi)*atan((imag(Z))/real(Z));//total phase angle in degrees
+ZT=(Z1*Z2)/Zt;//magnitude of equivalent impedance in ohms
+PHIT=phi1+phi2-PHIt;//phase angle of equivalent impedance in degrees
+p=(PHIT*%pi)/180;// phase angle in radians
+Zs=(ZT*cos(p))+(%i*(ZT*sin(p)));//series impedance in ohms
+R=real(Zs);//resistance of equivalent series circuit in ohms
+X=imag(Zs);//reactance  of equivalent series circuit in ohms
+
+//output
+mprintf('the resistance and inductive reactance of equivalent series circuit are %3.1f ohm and %3.2f ohm',R,X)
diff --git a/2276/CH6/EX6.8/chapter6_ex8.sce b/2276/CH6/EX6.8/chapter6_ex8.sce
new file mode 100755
index 000000000..10d17f9d2
--- /dev/null
+++ b/2276/CH6/EX6.8/chapter6_ex8.sce
@@ -0,0 +1,18 @@
+clc
+clear
+
+//input
+y1=0.01-(%i*0.03);//first admittance in mho
+y2=0.05+(%i*0);//second admittance in mho
+y3=%i*0.05;//third admittance in mho
+//three admittances are connected in parallel
+v=250;//supply voltage in volts
+
+//calculations
+y=y1+y2+y3;//total admittance in mho
+Y=(((real(y)^2)+(imag(y)^2)))^0.5;//magnitude of total admittance in mho
+phi=(180/%pi)*atan((imag(y))/(real(y)));//phase angle in degrees
+i=v*Y;//current in amperes
+
+//output
+mprintf('the total current is %3.1f A leading on the voltage by %3.1f degrees',i,phi)
-- 
cgit