summaryrefslogtreecommitdiff
path: root/3768/CH8/EX8.6/Ex8_6.sce
blob: eca43b8ab198d4ed1b62ac40e7ff00cc1738b4ab (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//Example number 8.6, Page number 172

clc;clear;
close;

//Variable declaration
I=3000;      //magnetisation(amp/m)
mew0=4*%pi*10**-7;
B=0.005;     //flux density(weber/m**2)
//Calculation
H=(B/mew0)-I;      //magnetizing force(amp/m)
mewr=(I/H)+1;      //relative permeability
//Result
printf("magnetizing force is %.3f Amp/m",H)
printf("\n relative permeability is %.3f",mewr)
//answer in the book varies due to rounding off errors