summaryrefslogtreecommitdiff
path: root/2672/CH2/EX2.14/Ex2_14.sce
blob: 54b7cab52c427b54c02a97c04af55696ba5c46cd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Ex_2_14
clc;
clear;
close;
format('v',10);
//given data : 
N1=100;//turns
N2=80;//turns
I1=10;//A
I2=1.5;//A
li=40/100;//m
lg=1/1000;//m(airgap)
A=10/10000;//m^2
mur=2000;//relative permeability
mu0=4*%pi*10^-7;//permeability
mmf=N1*I1-N2*I2;//AT
S=1/(mu0*A)*[li/mur+lg];//AT/Wb
fi=mmf/S;//Wb
disp(fi,"Flux produced(Wb)");