summaryrefslogtreecommitdiff
path: root/3871/CH13/EX13.7/Ex13_7.sce
blob: 96ca3a745007446921404a759428dc860fb98fd5 (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
//=====================================================================================
//Chapter 13 example 7

clc;clear all;

//variable declaration
R1  = 180;     //resistance in Ω
R2  = 20;     //resistance in Ω
A   = 0.005;     //area in m^2
Ns   = 1000;       //number of turns on search coil 
G1   = 100*10^-6;    //galvanometer constant C
G2   = 100;           //galvanometer throw

//calculations
Rs   = R1+R2;      //total resistance of secondary circuit in  Ω
Q    = G1*G2;     //charge passed through ballistic galvanometer in C
//Q  = i*t  = (E/Rs)*t  = ((2*phi*Ns)/(t*Rs))*t = (2*phi*Ns)/Rs
phi  = (Q*Rs)/(2*Ns);     //flux in Wb
B   = phi/(A);        //flux density in Wb/m^2

//result

mprintf("flux density = %3.2f Wb/m^2",B);