summaryrefslogtreecommitdiff
path: root/3871/CH12/EX12.7/Ex12_7.sce
blob: 5bbde399b35f8263fe5c0e891ba4f8befda41a94 (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 7

clc;clear all;

//variable declaration
R2         = 1000; 		//resistance of arm  in  Ω
R3         = 500; 		//resistance of arm  in  Ω
R4         = 1000; 		//resistance of arm  in  Ω
C4        =  3*10**-6;		//capacitance in F
r           = 100;

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

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