summaryrefslogtreecommitdiff
path: root/620/CH25
diff options
context:
space:
mode:
Diffstat (limited to '620/CH25')
-rw-r--r--620/CH25/EX25.1/example25_1.sce6
-rw-r--r--620/CH25/EX25.1/example25_1.txt7
-rw-r--r--620/CH25/EX25.10/example25_10.sce6
-rw-r--r--620/CH25/EX25.10/example25_10.txtbin0 -> 218 bytes
-rw-r--r--620/CH25/EX25.11/example25_11.sce4
-rw-r--r--620/CH25/EX25.11/example25_11.txtbin0 -> 130 bytes
-rw-r--r--620/CH25/EX25.12/example25_12.sce4
-rw-r--r--620/CH25/EX25.12/example25_12.txtbin0 -> 130 bytes
-rw-r--r--620/CH25/EX25.14/example25_14.sce20
-rw-r--r--620/CH25/EX25.14/example25_14.txtbin0 -> 270 bytes
-rw-r--r--620/CH25/EX25.16/example25_16.sce16
-rw-r--r--620/CH25/EX25.16/example25_16.txtbin0 -> 278 bytes
-rw-r--r--620/CH25/EX25.17/example25_17.sce25
-rw-r--r--620/CH25/EX25.17/example25_17.txtbin0 -> 826 bytes
-rw-r--r--620/CH25/EX25.19/example25_19.sce35
-rw-r--r--620/CH25/EX25.19/example25_19.txtbin0 -> 1264 bytes
-rw-r--r--620/CH25/EX25.2/example25_2.sce6
-rw-r--r--620/CH25/EX25.2/example25_2.txtbin0 -> 280 bytes
-rw-r--r--620/CH25/EX25.20/example25_20.sce24
-rw-r--r--620/CH25/EX25.20/example25_20.txtbin0 -> 698 bytes
-rw-r--r--620/CH25/EX25.21/example25_21.sce13
-rw-r--r--620/CH25/EX25.21/example25_21.txtbin0 -> 290 bytes
-rw-r--r--620/CH25/EX25.22/example25_22.sce16
-rw-r--r--620/CH25/EX25.22/example25_22.txt9
-rw-r--r--620/CH25/EX25.23/example25_23.sce13
-rw-r--r--620/CH25/EX25.23/example25_23.txtbin0 -> 266 bytes
-rw-r--r--620/CH25/EX25.24/example25_24.sce12
-rw-r--r--620/CH25/EX25.24/example25_24.txt12
-rw-r--r--620/CH25/EX25.3/example25_3.sce21
-rw-r--r--620/CH25/EX25.3/example25_3.txtbin0 -> 1352 bytes
-rw-r--r--620/CH25/EX25.4/example25_4.sce12
-rw-r--r--620/CH25/EX25.4/example25_4.txt8
-rw-r--r--620/CH25/EX25.5/example25_5.sce19
-rw-r--r--620/CH25/EX25.5/example25_5.txtbin0 -> 674 bytes
-rw-r--r--620/CH25/EX25.6/example25_6.sce27
-rw-r--r--620/CH25/EX25.6/example25_6.txtbin0 -> 1422 bytes
-rw-r--r--620/CH25/EX25.7/example25_7.sce11
-rw-r--r--620/CH25/EX25.7/example25_7.txtbin0 -> 404 bytes
-rw-r--r--620/CH25/EX25.8/example25_8.sce5
-rw-r--r--620/CH25/EX25.8/example25_8.txtbin0 -> 116 bytes
-rw-r--r--620/CH25/EX25.9/example25_9.sce5
-rw-r--r--620/CH25/EX25.9/example25_9.txt3
42 files changed, 339 insertions, 0 deletions
diff --git a/620/CH25/EX25.1/example25_1.sce b/620/CH25/EX25.1/example25_1.sce
new file mode 100644
index 000000000..311980c4e
--- /dev/null
+++ b/620/CH25/EX25.1/example25_1.sce
@@ -0,0 +1,6 @@
+vr=30;
+vl=40;
+v=sqrt((vr^2)+(vl^2));
+theta=atan(vl/vr);
+disp("the polar form of the total voltage has a magnitude (in V) of") ; disp(v);
+disp("with a phase angle (in degrees) of"); disp(theta*180/%pi); \ No newline at end of file
diff --git a/620/CH25/EX25.1/example25_1.txt b/620/CH25/EX25.1/example25_1.txt
new file mode 100644
index 000000000..47676b5df
--- /dev/null
+++ b/620/CH25/EX25.1/example25_1.txt
@@ -0,0 +1,7 @@
+the polar form of the total voltage has a magnitude (in V) of
+
+ 50.
+
+ with a phase angle (in degrees) of
+
+ 53.130102 \ No newline at end of file
diff --git a/620/CH25/EX25.10/example25_10.sce b/620/CH25/EX25.10/example25_10.sce
new file mode 100644
index 000000000..f26f8cf45
--- /dev/null
+++ b/620/CH25/EX25.10/example25_10.sce
@@ -0,0 +1,6 @@
+a=5+%i*8;
+b=7-%i*4;
+disp("Part a");
+disp("A X B ="); disp(a*b);
+disp("Part b");
+disp("A ÷ B ="); disp(a/b); \ No newline at end of file
diff --git a/620/CH25/EX25.10/example25_10.txt b/620/CH25/EX25.10/example25_10.txt
new file mode 100644
index 000000000..7485c5020
--- /dev/null
+++ b/620/CH25/EX25.10/example25_10.txt
Binary files differ
diff --git a/620/CH25/EX25.11/example25_11.sce b/620/CH25/EX25.11/example25_11.sce
new file mode 100644
index 000000000..8d1482e2f
--- /dev/null
+++ b/620/CH25/EX25.11/example25_11.sce
@@ -0,0 +1,4 @@
+z1=5+%i*8;
+z2=4+%i*6;
+z=z1*z2/(z1+z2);
+disp("the total impedance (in Ω) is"); disp(z); \ No newline at end of file
diff --git a/620/CH25/EX25.11/example25_11.txt b/620/CH25/EX25.11/example25_11.txt
new file mode 100644
index 000000000..aeebb4352
--- /dev/null
+++ b/620/CH25/EX25.11/example25_11.txt
Binary files differ
diff --git a/620/CH25/EX25.12/example25_12.sce b/620/CH25/EX25.12/example25_12.sce
new file mode 100644
index 000000000..33abe224d
--- /dev/null
+++ b/620/CH25/EX25.12/example25_12.sce
@@ -0,0 +1,4 @@
+z1=4+%i*2;
+z2=-%i*3;
+z=z1*z2/(z1+z2);
+disp("the total impedance (in Ω) is"); disp(z); \ No newline at end of file
diff --git a/620/CH25/EX25.12/example25_12.txt b/620/CH25/EX25.12/example25_12.txt
new file mode 100644
index 000000000..45c8b2c94
--- /dev/null
+++ b/620/CH25/EX25.12/example25_12.txt
Binary files differ
diff --git a/620/CH25/EX25.14/example25_14.sce b/620/CH25/EX25.14/example25_14.sce
new file mode 100644
index 000000000..1508bef28
--- /dev/null
+++ b/620/CH25/EX25.14/example25_14.sce
@@ -0,0 +1,20 @@
+z1=20+%i*50;
+z2=10+%i*(-20);
+a1=real(z1);
+b1=imag(z1);
+a2=real(z2);
+b2=imag(z2);
+c1=real(z1+z2);
+c2=imag(z1+z2);
+m1=sqrt(a1^2+b1^2);
+m2=sqrt(a2^2+b2^2);
+deg1=atan(b1/a1)*180/%pi;
+deg2=atan(b2/a2)*180/%pi;
+m_1=m1*m2;
+deg_1=deg1+deg2;
+m_2=sqrt(c1^2+c2^2);
+deg_2=atan(c2/c1)*180/%pi;
+m=m_1/m_2;
+deg=deg_1-deg_2;
+disp("the total impedance (in Ω) has a magnitude of"); disp(m);
+disp("with a phase angle (in degrees) of"); disp(deg); \ No newline at end of file
diff --git a/620/CH25/EX25.14/example25_14.txt b/620/CH25/EX25.14/example25_14.txt
new file mode 100644
index 000000000..e56a504d2
--- /dev/null
+++ b/620/CH25/EX25.14/example25_14.txt
Binary files differ
diff --git a/620/CH25/EX25.16/example25_16.sce b/620/CH25/EX25.16/example25_16.sce
new file mode 100644
index 000000000..1e49a9557
--- /dev/null
+++ b/620/CH25/EX25.16/example25_16.sce
@@ -0,0 +1,16 @@
+m_v1=50;
+m_v2=30;
+m_v3=75;
+deg_v1=20*%pi/180;
+deg_v2=50*%pi/180;
+deg_v3=-80*%pi/180;
+v1=m_v1*(cos(deg_v1)+%i*sin(deg_v1));
+v2=m_v2*(cos(deg_v2)+%i*sin(deg_v2));
+v3=m_v3*(cos(deg_v3)+%i*sin(deg_v3));
+v=v1+v2+v3;
+a=real(v);
+b=imag(v);
+m_v=sqrt(a^2+b^2);
+deg_v=atan(b/a)*180/%pi;
+disp("the the supply voltage (in V) has a magnitude of"); disp(m_v);
+disp("with a phase angle (in degrees) of"); disp(deg_v); \ No newline at end of file
diff --git a/620/CH25/EX25.16/example25_16.txt b/620/CH25/EX25.16/example25_16.txt
new file mode 100644
index 000000000..ab3839b6c
--- /dev/null
+++ b/620/CH25/EX25.16/example25_16.txt
Binary files differ
diff --git a/620/CH25/EX25.17/example25_17.sce b/620/CH25/EX25.17/example25_17.sce
new file mode 100644
index 000000000..f4d93cadc
--- /dev/null
+++ b/620/CH25/EX25.17/example25_17.sce
@@ -0,0 +1,25 @@
+m_i=58;
+deg_i=35*%pi/180;
+i=m_i*(cos(deg_i)+%i*sin(deg_i));
+m_i1=35;
+deg_i1=-20*%pi/180;
+i1=m_i1*(cos(deg_i1)+%i*sin(deg_i1));
+m_v=120;
+deg_v=0;
+disp("Part a");
+i2=i-i1;
+a=real(i2);
+b=imag(i2);
+m_i2=sqrt(a^2+b^2);
+deg_i2=atan(b/a)*180/%pi;
+disp("the current (in mA) in the other branch has a magnitude of"); disp(m_i2);
+disp("with a phase angle(in degrees) of"); disp(deg_i2);
+disp("Part b");
+m_z=m_v/m_i;
+deg_z=deg_v-deg_i;
+disp("the total impedance (in kΩ) of the circuit has a magnitude of"); disp(m_z);
+disp("with a phase angle (in degrees) of"); disp(deg_z);
+disp("Part c");
+z=m_z*(cos(deg_z)+%i*sin(deg_z));
+p=(m_i*10^(-3))^2*real(z)*10^3;
+disp("the total true power dissipated (in W)"); disp(p); \ No newline at end of file
diff --git a/620/CH25/EX25.17/example25_17.txt b/620/CH25/EX25.17/example25_17.txt
new file mode 100644
index 000000000..f1e45a4db
--- /dev/null
+++ b/620/CH25/EX25.17/example25_17.txt
Binary files differ
diff --git a/620/CH25/EX25.19/example25_19.sce b/620/CH25/EX25.19/example25_19.sce
new file mode 100644
index 000000000..2602afd62
--- /dev/null
+++ b/620/CH25/EX25.19/example25_19.sce
@@ -0,0 +1,35 @@
+r1=100;
+r2=220;
+r3=150;
+l1=50*10^(-3);
+l2=100*10^(-3);
+c=2*10^(-6);
+f=400;
+v=24;
+disp("Part a");
+x_l1=2*%pi*f*l1;
+x_l2=2*%pi*f*l2;
+x_c=1/(2*%pi*f*c);
+z1=r1+%i*x_l1;
+z2=r2+%i*x_l2;
+z3=r3-%i*x_c;
+z=z1+z2*z3/(z2+z3);
+m_z=sqrt(real(z)^2+imag(z)^2);
+deg_z=atan(imag(z)/real(z))*180/%pi;
+disp("the total impedance (in Ω) of the circuit has a magnitude of"); disp(m_z);
+disp("with a phase angle (in deg) of"); disp(deg_z);
+disp("Part b");
+m_i=v/m_z;
+deg_i=-deg_z;
+disp("the total supply current (in mA) has a magnitude of"); disp(m_i*10^3);
+disp("with a phase angle (in deg) of"); disp(deg_i);
+disp("Part c");
+m_v1=m_i*sqrt(real(z1)^2+imag(z1)^2);
+deg_v1=deg_i+atan(imag(z1)/real(z1))*180/%pi;
+disp("the reading of voltmeter (in V) has a magnitude of"); disp(m_v1);
+disp("with a phase angle (in deg) of"); disp(deg_v1);
+disp("Part d");
+m_ic=m_i*sqrt(real(z2)^2+imag(z2)^2)/sqrt(real(z2+z3)^2+imag(z2+z3)^2);
+deg_ic=deg_i+(atan(imag(z2)/real(z2))-atan(imag(z2+z3)/real(z2+z3)))*180/%pi;
+disp("the current (in mA) through the capacitor has a magnitude of"); disp(m_ic*10^3);
+disp("with a phase angle (in deg) of"); disp(deg_ic); \ No newline at end of file
diff --git a/620/CH25/EX25.19/example25_19.txt b/620/CH25/EX25.19/example25_19.txt
new file mode 100644
index 000000000..c2fefad44
--- /dev/null
+++ b/620/CH25/EX25.19/example25_19.txt
Binary files differ
diff --git a/620/CH25/EX25.2/example25_2.sce b/620/CH25/EX25.2/example25_2.sce
new file mode 100644
index 000000000..82a129523
--- /dev/null
+++ b/620/CH25/EX25.2/example25_2.sce
@@ -0,0 +1,6 @@
+r1=3;
+r2=4;
+r=sqrt(r1^2+r2^2);
+theta=atan(r1/r2)*180/%pi;
+disp("in polar form the circuit impedance has a magnitude (in Ω) of"); disp(r);
+disp("with a phase angle (in derees) of"); disp(theta); \ No newline at end of file
diff --git a/620/CH25/EX25.2/example25_2.txt b/620/CH25/EX25.2/example25_2.txt
new file mode 100644
index 000000000..08677adbf
--- /dev/null
+++ b/620/CH25/EX25.2/example25_2.txt
Binary files differ
diff --git a/620/CH25/EX25.20/example25_20.sce b/620/CH25/EX25.20/example25_20.sce
new file mode 100644
index 000000000..0fda807e3
--- /dev/null
+++ b/620/CH25/EX25.20/example25_20.sce
@@ -0,0 +1,24 @@
+r1=20;
+r2=25;
+r3=40;
+x_l1=50;
+x_l2=40;
+x_c=40;
+z1=r1+%i*x_l1;
+z2=r2+%i*x_l2;
+z3=r3-%i*x_c;
+y1=1/z1;
+y2=1/z2;
+y3=1/z3;
+disp("Part a");
+y=y1+y2+y3;
+r=1/real(y);
+x_l=-1/imag(y);
+disp("for an equivalent series circuit the value of resistance (in Ω) is"); disp(r);
+disp("and the value of reactance (in Ω) is"); disp(x_l);
+disp("Part b");
+z=1/y;
+r0=real(z);
+x_l0=imag(z);
+disp("for an equivalent series circuit the value of resistance (in Ω) is"); disp(r0);
+disp("and the value of impedance (in Ω) is"); disp(x_l0); \ No newline at end of file
diff --git a/620/CH25/EX25.20/example25_20.txt b/620/CH25/EX25.20/example25_20.txt
new file mode 100644
index 000000000..14ffde24a
--- /dev/null
+++ b/620/CH25/EX25.20/example25_20.txt
Binary files differ
diff --git a/620/CH25/EX25.21/example25_21.sce b/620/CH25/EX25.21/example25_21.sce
new file mode 100644
index 000000000..ba1397939
--- /dev/null
+++ b/620/CH25/EX25.21/example25_21.sce
@@ -0,0 +1,13 @@
+r1=0.6;
+x_c=1;
+r2=2;
+x_l=1.5;
+v=10;
+rl=1;
+vth=v*%i*x_l/(r1-%i*x_c+%i*x_l);
+m_vth=v*x_l/sqrt(real(r1-x_c+x_l)^2+imag(r1-x_c+x_l)^2);
+deg_vth=90-atan(imag(r1-x_c+x_l)/real(r1-x_c+x_l))*180/%pi;
+zth=2+%i*x_l*(r1-%i*x_c)/(r1+%i*x_l-%i*x_c);
+i=vth/(zth+rl);
+disp("the current (in mA) through the resistor has a magnitude of");disp((sqrt((real(i))^2+(imag(i))^2)));
+disp("with a phase angle (in deg) of"); disp(atan(imag(i)/real(i))*180/%pi); \ No newline at end of file
diff --git a/620/CH25/EX25.21/example25_21.txt b/620/CH25/EX25.21/example25_21.txt
new file mode 100644
index 000000000..fbdd5ec44
--- /dev/null
+++ b/620/CH25/EX25.21/example25_21.txt
Binary files differ
diff --git a/620/CH25/EX25.22/example25_22.sce b/620/CH25/EX25.22/example25_22.sce
new file mode 100644
index 000000000..3e6fcb5b5
--- /dev/null
+++ b/620/CH25/EX25.22/example25_22.sce
@@ -0,0 +1,16 @@
+r1=100;
+x_l1=125.7;
+r2=220;
+x_l2=251.4;
+r3=150;
+x_c=198.9;
+v=24;
+f=400;
+z1=r1+%i*x_l1;
+z2=r2+%i*x_l2;
+z3=r3-%i*x_c;
+vth=v*z2/(z1+z2);
+zth=z1*z2/(z1+z2);
+i=vth/(zth+z3);
+disp("the current (in mA) through the capacitor has a mgnitude of"); disp(sqrt((real(i))^2+(imag(i))^2)*10^3);
+disp("with a phase angle (in deg) of");disp((atan(imag(i)/real(i))*180/%pi)); \ No newline at end of file
diff --git a/620/CH25/EX25.22/example25_22.txt b/620/CH25/EX25.22/example25_22.txt
new file mode 100644
index 000000000..c02e32dee
--- /dev/null
+++ b/620/CH25/EX25.22/example25_22.txt
@@ -0,0 +1,9 @@
+
+ the current (in mA) through the capacitor has a mgnitude of
+
+ 65.573204
+
+ with a phase angle (in deg) of
+
+ 26.857457
+ \ No newline at end of file
diff --git a/620/CH25/EX25.23/example25_23.sce b/620/CH25/EX25.23/example25_23.sce
new file mode 100644
index 000000000..94b0cbc60
--- /dev/null
+++ b/620/CH25/EX25.23/example25_23.sce
@@ -0,0 +1,13 @@
+z1=4+%i*2;
+z2=6-%i*4;
+v1=24;
+v2=36*(cos(40*%pi/180)+%i*sin(40*%pi/180));
+z=z1+z2;
+i=(v2-v1)/z;
+v=i*z1;
+vth=v+v1;
+zth=z1*z2/z;
+disp("the required load impedance (in Ω) is"); disp(zth);
+i1=v/zth;
+p=(real(i1)^2+imag(i1)^2)*real(zth);
+disp("the maximum power (in W) is"); disp(p); \ No newline at end of file
diff --git a/620/CH25/EX25.23/example25_23.txt b/620/CH25/EX25.23/example25_23.txt
new file mode 100644
index 000000000..18f75b7af
--- /dev/null
+++ b/620/CH25/EX25.23/example25_23.txt
Binary files differ
diff --git a/620/CH25/EX25.24/example25_24.sce b/620/CH25/EX25.24/example25_24.sce
new file mode 100644
index 000000000..b96342d16
--- /dev/null
+++ b/620/CH25/EX25.24/example25_24.sce
@@ -0,0 +1,12 @@
+z1=4+%i*2;
+z2=6-%i*4;
+zl=3.2-%i*0.2;
+v1=24;
+v2=36*(cos(40*%pi/180)+%i*sin(40*%pi/180));
+in=v1/z1+v2/z2;
+zn=z1*z2/(z1+z2);
+il=in*zn/(zn+zl);
+disp("the load current (in A) has a magnitude of"); disp(sqrt(real(il)^2+imag(il)^2));
+disp("with a phase angle (in deg) of"); disp((atan(imag(il)/real(il)))*180/%pi);
+p=(real(il)^2+imag(il)^2)*real(zl);
+disp("load power (in W) is"); disp(p); \ No newline at end of file
diff --git a/620/CH25/EX25.24/example25_24.txt b/620/CH25/EX25.24/example25_24.txt
new file mode 100644
index 000000000..2417230e4
--- /dev/null
+++ b/620/CH25/EX25.24/example25_24.txt
@@ -0,0 +1,12 @@
+
+ the load current (in A) has a magnitude of
+
+ 3.3081778
+
+ with a phase angle (in deg) of
+
+ 24.993309
+
+ load power (in W) is
+
+ 35.020929 \ No newline at end of file
diff --git a/620/CH25/EX25.3/example25_3.sce b/620/CH25/EX25.3/example25_3.sce
new file mode 100644
index 000000000..7fc57c686
--- /dev/null
+++ b/620/CH25/EX25.3/example25_3.sce
@@ -0,0 +1,21 @@
+a=7.5;
+deg_a=53;
+b=3;
+deg_b=12;
+c=5;
+deg_c=-60;
+disp("Part a");
+disp("in polar form A X B has a magnitude of "); disp(a*b);
+disp("with a phase angle (in degrees) of"); disp(deg_a+deg_b);
+disp("Part b");
+disp("in polar form A ÷ B has a magnitude of"); disp(a/b);
+disp("with a phase angle (in degrees) of"); disp(deg_a-deg_b);
+disp("Part c");
+disp("in polar form A X C has a magnitude of"); disp(a*c);
+disp("with a phase angle (in degrees) of"); disp(deg_a+deg_c);
+disp("Part d");
+disp("in polar form A ÷ C has a magnitude of"); disp(a/c);
+disp("with a phase angle (in degrees) of"); disp(deg_a-deg_c);
+disp("Part e");
+disp("in polar form C ÷ B has a magnitude of"); disp(c/b);
+disp("with a phase angle (in degrees) of"); disp(deg_c-deg_b); \ No newline at end of file
diff --git a/620/CH25/EX25.3/example25_3.txt b/620/CH25/EX25.3/example25_3.txt
new file mode 100644
index 000000000..c5d0b5f0f
--- /dev/null
+++ b/620/CH25/EX25.3/example25_3.txt
Binary files differ
diff --git a/620/CH25/EX25.4/example25_4.sce b/620/CH25/EX25.4/example25_4.sce
new file mode 100644
index 000000000..c6704dbb6
--- /dev/null
+++ b/620/CH25/EX25.4/example25_4.sce
@@ -0,0 +1,12 @@
+z1=4+%i*2;
+z2=6-%i*4;
+zl=3.2+%i*0.2;
+v1=24;
+v2=36*(cos(40*%pi/180)+%i*sin(40*%pi/180));
+in=v1/z1+v2/z2;
+zn=z1*z2/(z1+z2);
+il=in*zn/(zn+zl);
+disp("the load current (in A) has a magnitude of"); disp(sqrt(real(il)^2)+imag(il)^2);
+disp("with a phase angle (in deg) of"); disp((atan(imag(il)/real(il)))*180/%pi);
+p=(real(il)^2+imag(il)^2)*real(zl);
+disp("the load power (in W) is"); disp(p); \ No newline at end of file
diff --git a/620/CH25/EX25.4/example25_4.txt b/620/CH25/EX25.4/example25_4.txt
new file mode 100644
index 000000000..bc64c08f7
--- /dev/null
+++ b/620/CH25/EX25.4/example25_4.txt
@@ -0,0 +1,8 @@
+
+ in polar form the current (in A) has a magnitude of
+
+ 0.9230769
+
+ with a phase angle (in degrees) of
+
+ 67.380135 \ No newline at end of file
diff --git a/620/CH25/EX25.5/example25_5.sce b/620/CH25/EX25.5/example25_5.sce
new file mode 100644
index 000000000..2beb657e1
--- /dev/null
+++ b/620/CH25/EX25.5/example25_5.sce
@@ -0,0 +1,19 @@
+r1=50;
+r2=120;
+deg_r1=0;
+deg_r2=-90;
+r=sqrt(r1^2+r2^2);
+deg_r=-atan(r2/r1)*180/%pi;
+v=120;
+deg_v=0;
+i=v/r;
+deg_i=deg_v-deg_r;
+disp("Part a");
+v1=i*r1;
+deg_v1=deg_i+deg_r1;
+disp("in polar form the voltage across the resistor (in V) has a magnitude of"); disp(v1);
+disp("with a phase angle (in degrees) of"); disp(deg_v1);
+v2=i*r2;
+deg_v2=deg_i+deg_r2;
+disp("in polar form the volatge across the capacitor (in V) has a magnitude of"); disp(v2);
+disp("with a phase angle (in degrees) of"); disp(deg_v2); \ No newline at end of file
diff --git a/620/CH25/EX25.5/example25_5.txt b/620/CH25/EX25.5/example25_5.txt
new file mode 100644
index 000000000..286f13042
--- /dev/null
+++ b/620/CH25/EX25.5/example25_5.txt
Binary files differ
diff --git a/620/CH25/EX25.6/example25_6.sce b/620/CH25/EX25.6/example25_6.sce
new file mode 100644
index 000000000..ba95e5d5b
--- /dev/null
+++ b/620/CH25/EX25.6/example25_6.sce
@@ -0,0 +1,27 @@
+disp("Part a");
+disp("since the current lags the voltage the circuit must be inductive");
+v=48;
+disp("Part b");
+deg_v=0;
+i=6.4;
+deg_i=-40;
+z=v/i;
+deg_z=deg_v-deg_i;
+disp("in polar form the impedance (in Ω) has a magnitude of"); disp(z);
+disp("with a phase angle (in degrees) of"); disp(deg_z);
+disp("Part c");
+r=z*cos(deg_z*%pi/180);
+disp("the resistance of the circuit (in Ω) is"); disp(r);
+x_l=z*sin(deg_z*%pi/180);
+disp("the reactance of the circuit (in Ω) is"); disp(x_l);
+disp("Part d");
+vr=i*r;
+deg_r=0;
+deg_vr=deg_i+deg_r;
+disp("in polar form the voltage across resistor (in V) has as magnitude of"); disp(vr);
+disp("with a phase angle (in degrees) of"); disp(deg_vr);
+vxl=i*x_l;
+deg_xl=90;
+deg_vxl=deg_i+deg_xl;
+disp("in polar form the voltage across the inductor (in V) has a magnitude of"); disp(vxl);
+disp("with a phase angle (in degrees) of"); disp(deg_vxl); \ No newline at end of file
diff --git a/620/CH25/EX25.6/example25_6.txt b/620/CH25/EX25.6/example25_6.txt
new file mode 100644
index 000000000..fedbf5e0f
--- /dev/null
+++ b/620/CH25/EX25.6/example25_6.txt
Binary files differ
diff --git a/620/CH25/EX25.7/example25_7.sce b/620/CH25/EX25.7/example25_7.sce
new file mode 100644
index 000000000..ca468062d
--- /dev/null
+++ b/620/CH25/EX25.7/example25_7.sce
@@ -0,0 +1,11 @@
+a=3+%i*7;
+b=4-%i*5;
+c=-6+%i*8;
+disp("Part a");
+disp("A + B ="); disp(a+b);
+disp("Part b");
+disp("A - B ="); disp(a-b);
+disp("Part c");
+disp("B + C =") ; disp(b+c);
+disp("Part d");
+disp("B - C ="); disp(b-c); \ No newline at end of file
diff --git a/620/CH25/EX25.7/example25_7.txt b/620/CH25/EX25.7/example25_7.txt
new file mode 100644
index 000000000..95d5b510d
--- /dev/null
+++ b/620/CH25/EX25.7/example25_7.txt
Binary files differ
diff --git a/620/CH25/EX25.8/example25_8.sce b/620/CH25/EX25.8/example25_8.sce
new file mode 100644
index 000000000..bac57af30
--- /dev/null
+++ b/620/CH25/EX25.8/example25_8.sce
@@ -0,0 +1,5 @@
+z1=20+%i*50;
+z2=15+%i*35;
+z3=-%i*10;
+z=z1+z2+z3;
+disp("total series impedance (in Ω) is"); disp(z); \ No newline at end of file
diff --git a/620/CH25/EX25.8/example25_8.txt b/620/CH25/EX25.8/example25_8.txt
new file mode 100644
index 000000000..f6d53c6f9
--- /dev/null
+++ b/620/CH25/EX25.8/example25_8.txt
Binary files differ
diff --git a/620/CH25/EX25.9/example25_9.sce b/620/CH25/EX25.9/example25_9.sce
new file mode 100644
index 000000000..62489fb8c
--- /dev/null
+++ b/620/CH25/EX25.9/example25_9.sce
@@ -0,0 +1,5 @@
+v=120;
+v1=40+%i*30;
+v2=25-%i*90;
+v3=v-v1-v2;
+disp("voltage (in V) across the third load is"); disp(v3); \ No newline at end of file
diff --git a/620/CH25/EX25.9/example25_9.txt b/620/CH25/EX25.9/example25_9.txt
new file mode 100644
index 000000000..ad37cd835
--- /dev/null
+++ b/620/CH25/EX25.9/example25_9.txt
@@ -0,0 +1,3 @@
+ voltage (in V) across the third load is
+
+ 55. + 60.i \ No newline at end of file