summaryrefslogtreecommitdiff
path: root/3871/CH11/EX11.6/Ex11_6.sce
blob: 6bd391a01d2e5cf53e4c236ab7c35c57c29fad56 (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
//===========================================================================
//chapter 11 example 6

clc;
clear all;

//variable declaration
R       = 1;               //resistace in Ω
V2      = 0.238-%i*0.085;           //voltage across standard resistor in V
P       = 10;               //multiplying ower of potential divider 
V1      = 0.3375+%i*0.232;      //voltage across potential divider in V



//calculations
I       = V2/R;             //current through coil in A
V2      = P*V1;              //voltage acrossthe coil in V
Z       = V2/I;             //impedance of coil in Ω
R1       = real(Z);             // resistance of coil in Ω
X1       =imag(Z);           //reactance of coil in Ω

//result
mprintf("resistance = %3.2f Ω",R1);
mprintf("\nreactance = %3.3f Ω",X1);