summaryrefslogtreecommitdiff
path: root/3871/CH12/EX12.10/Ex12_10.sce
blob: 648643c4ec5294365c494a30a3c4a3c800ed023e (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 10

clc;clear all;

//variable declaration
R2         = 1000; 		//resistance of arm  in  Ω
R3         = 10000; 		//resistance of arm  in  Ω
R4         = 2000; 		//resistance of arm  in  Ω
C4        = 1*10**-6;		//capacitance in F
w       = 3000;		//radian per second

//calculations

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("\ninductance of inductor = %3.2f H",L1);
mprintf("resistance of coil  = %3.2f Ω",R1);