summaryrefslogtreecommitdiff
path: root/3871/CH12/EX12.8/Ex12_8.sce
blob: 927eaf172087b592d04db537cb5b1c15ca2891c8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//===============================================================================
//Chapter 12 Example 8

clc;clear all;

//variable declaration
R2         = 1000; 		//resistance of arm  in  Ω
R3         = 16800; 		//resistance of arm  in  Ω
R4         = 833; 		//resistance of arm  in  Ω
C4        = 0.38*10^-6;		//capacitance in F
f           = 50;		//frequency in Hz

//calculations
w       = 2*(%pi)*f;
L1     = (R2*R3*C4)/(1+((w^2)*(R4^2)*(C4^2)));		//inductance in H
R1     = (R2*R3*R4*(w^2)*(C4^2))/(1+((w^2)*(R4^2)*(C4^2)));		//resistance in  Ω


//result
mprintf("inductance of inductor = %3.2fHenry",L1);
mprintf("\nresistance of coil  = %3.2f Ω",R1);