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