summaryrefslogtreecommitdiff
path: root/1319/CH1/EX1.24/1_24.sce
blob: 4c51153cd6ea74046fec899d3cbad2a9a14d9615 (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
//Find the number of ampere turns

clc;
clear;

l=30*(10^-2); // Length of an iron path
lag=2*(10^-3);//Length of air gap
B=0.8; // Flux density
H=700;
m0=(4*%pi)*(10^-7);
mr=B/(m0*H);

A=poly(0,'A');//Area of the iron path

R1=l/(m0*mr*A);
R2=lag/(m0*A);
R=R1+R2;

phi=B*A;//Flux

NI=phi*R;

//To find numerical value
y=NI-A;

NI=roots(y(2));

//The answer in the textbook contains Round off error
printf('The number of turns necessary to produce a flux density of 0.8T in the air gap = %g AT\n',NI)