blob: cb38109fc91ad1c66c0762cb17011696c7693566 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
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 - 4
clear; clc; close;
//
// Given data
Z1 = complex(60.0000,-100.0000);
Z2 = complex(30.0000,40.0000);
ZL = complex(80.0000,60.0000);
Z_20 = complex(0.0000,20.0000);
Z_40 = complex(0.0000,40.0000);
M = 5.0000;
V = complex(50*cosd(60.0000),50*sind(60.0000))
//
// Calculations Zin
Zin_1 = M^2/(Z_40 + Z2 + ZL)
Zin_2 = Z1 + Z_20;
Zin = Zin_1 + Zin_2
Zin_mag = norm(Zin);
Zin_angle = atand(imag(Zin),real(Zin))
// Calculation I1
I1 = V/Zin
I1_mag = norm(I1);
I1_angle = atand(imag(I1),real(I1))
// Display the result
disp("Example 13-4 Solution : ");
printf(" \n Zin_mag = Magnitude of Zin = %.3f A",Zin_mag)
printf(" \n Zin_angle = Angle at Zin = %.3f degree",Zin_angle)
printf(" \n I1_mag = Magnitude of Current 1 = %.3f A",I1_mag)
printf(" \n I1_angle = Angle at Current 1 = %.3f degree",I1_angle)
|
