2 files changed, 20 insertions, 0 deletions
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