summaryrefslogtreecommitdiff
path: root/3871/CH5/EX5.6/Ex5_6.sce
blob: aad9838c6df682a65e91d8fa86f40af4a46774c5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
//=============================================================
//Chapter 5 example 6
 
clc;clear all;

//variable declaration
R      = 50;            //resistance of the magnetic coil in Ω
Rt    = 500;			//resistance in Ω
L      = 0.09;			//inductance of the voltmeter in H
f      = 50;          
I      = 1;  


//calculations
r       = Rt-R;         //swamping resistance in Ω
X      = (2*%pi*f*r)^2;
Y       = L*x;
Y1         = I*L;
//L         = C*r^2/(I+w^2*C^2*r^2)
//C*r^2     = L*I+L*w^2*C^2*r^2
//C*r^2    =y1+x*(C^2)
//x*(C^2)-C*r^2+y1;
a   = X;
b      = -r^2;
c       = Y1;
x       = (-b-sqrt((b^2)-(4*a*c)))/(2*a);          //we consider the positive value



//result
mprintf("swamping resistance = %3.2e",x);