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

clc;clear all;

//variable declaration
R2         = 1000; 		//resistance of arm  in  Ω
R3         = 218; 		//resistance of arm  in  Ω
R4         = 1000; 		//resistance of arm  in  Ω
C4        =  10*10^-6;		//capacitance in F
r           = 469;

//calculations
R1    = ((R2*R3)/(R4));		//resistance of coil in Ω
x      = (r*(R3+R4))+(R3*R4)
L1     = (C4*R2*x)/(R2);			//inductance of inductor in H

//result
mprintf("resistance of coil  = %3.2f Ω",R1);
mprintf("\ninductance of inductor = %3.2f H",L1);