From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3673/CH5/EX5.a.10/Example_a_5_10.sce | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 3673/CH5/EX5.a.10/Example_a_5_10.sce

(limited to '3673/CH5/EX5.a.10/Example_a_5_10.sce')

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)");
-- 
cgit