summaryrefslogtreecommitdiff
path: root/3556/CH13/EX13.6/Ex13_6.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3556/CH13/EX13.6/Ex13_6.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3556/CH13/EX13.6/Ex13_6.sce')
-rw-r--r--3556/CH13/EX13.6/Ex13_6.sce41
1 files changed, 41 insertions, 0 deletions
diff --git a/3556/CH13/EX13.6/Ex13_6.sce b/3556/CH13/EX13.6/Ex13_6.sce
new file mode 100644
index 000000000..107d7e18d
--- /dev/null
+++ b/3556/CH13/EX13.6/Ex13_6.sce
@@ -0,0 +1,41 @@
+clc
+// Fundamental of Electric Circuit
+// Charles K. Alexander and Matthew N.O Sadiku
+// Mc Graw Hill of New York
+// 5th Edition
+
+// Part 1 : AC Circuits
+// Chapter 13 : Magnetically Couple Circuits
+// Example 13 - 6
+
+clear; clc; close;
+//
+// Given data
+L1 = 8.0000;
+L2 = 5.0000;
+M = -1.00000;
+Z1 = complex(4.0000,0.0000);
+ZL = complex(10.0000,0.0000);
+V = complex(60*cosd(90.0000),60*sind(90.0000))
+I2 = complex(0.0000,0.0600)
+//
+// Calculations I1
+I1 = complex(5.0000,-10.0000)*I2
+I1_mag = norm(I1);
+I1_angle = atand(imag(I1),real(I1));
+// Calculation I2
+I2_mag = norm(I2);
+I2_angle = atand(imag(I2),real(I2));
+// Calculation Vo
+Vo = complex(-10.0000,0.0000)*I2;
+Vo_mag = norm(Vo);
+Vo_angle = atand(imag(Vo),real(Vo));
+//
+// Display the result
+disp("Example 13-6 Solution : ");
+printf(" \n I1_mag = Magnitude of Current I1 = %.3f A",I1_mag)
+printf(" \n I1_angle = Angle at Current I1 = %.3f degree",I1_angle)
+printf(" \n I2_mag = Magnitude of Current I2 = %.3f A",I2_mag)
+printf(" \n I2_angle = Angle at Current I2 = %.3f degree",I2_angle)
+printf(" \n Vo_mag = Magnitude of Voltage Vo = %.3f A",Vo_mag)
+printf(" \n Vo_angle = Angle at Voltage Vo = %.3f degree",Vo_angle)