summaryrefslogtreecommitdiff
path: root/3871/CH13/EX13.1/Ex13_1.sce
blob: 854c1566e454b640c7957cd39b3d4955b31ad553 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//=====================================================================================
//Chapter 13 example 1

clc;clear all;

//variable declaration
l   = 0.6;     //length of solenoid in m
N   = 600;     //number of turns 
I   = 2;       //current passing through solenoid in A
ur   = 1;      //air coiled solenoid 
r    = 0.025;  //radius in m

//calculations
H   = (N*I)/(l);      //magnetic field at the centre in AT/metre
u0   = 4*(%pi)*(10^-7);   //flux 
a    = ((%pi)/(4))*(r^2);    //area 
phi  = ur*u0*H*a;         //flux  passing through thesecondary coil

//calculations
mprintf("magnetic field = %3.2f AT/metre",H);
mprintf("flux  = %3.2e Wb",phi);