summaryrefslogtreecommitdiff
path: root/3871/CH12/EX12.27/Ex12_27.sce
blob: f02395a59d87a20dc69e80eec7f9c4edad1539f3 (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 27

clc;clear all;

//variable declaration
f    = 450*10^3;		//resistance inHz
C     = 250*10^-12;		//capcaitance in F
Rsh   = 0.75;		//resistance in  Ω
 Q      = 105;				//Q-factor

//calculations
w      = 2*(%pi)*f;
L        = 1/(((w)^2)*(C));		//inductance in uH
R       = ((w*L)/(Q))-Rsh;		//resistance of the coil   in  Ω
 
//result
mprintf("inductance = %3.2f uH",(L*10^6));

mprintf("\n resistance of the coil  = %3.2f Ω",R);