initial commit / add all books

8 files changed, 156 insertions, 0 deletions

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)