1 files changed, 22 insertions, 0 deletions
diff --git a/3673/CH5/EX5.a.10/Example_a_5_10.sce b/3673/CH5/EX5.a.10/Example_a_5_10.sce
new file mode 100644
index 000000000..1e8b48782
--- /dev/null
+++ b/3673/CH5/EX5.a.10/Example_a_5_10.sce
@@ -0,0 +1,22 @@
+//Example_a_5_10 page no:211
+clc;
+V=50;
+Zmag=8.5;
+Zang=30;
+Zreal=Zmag*cosd(Zang);
+Zimag=Zmag*sind(Zang);
+Z=Zreal+(%i*Zimag);
+L1=%i*3;
+R1=10;
+L2=%i*30;
+L=R1+L2;
+Lmag=sqrt(real(L)^2+imag(L)^2);
+Lang=atand(imag(L)/real(L));
+I1=V/imag(L1);
+I2=V/Lmag;
+It=I1+I2;//applied current
+Zt=Z+((L1)*L/(L+L1));
+Ztmag=sqrt(real(Zt)^2+imag(Zt)^2);//impedence
+Ztang=atand(imag(Zt)/real(Zt));
+V=It*Ztmag;
+disp(V,"the magnitude of applied voltage is (in V)");