summaryrefslogtreecommitdiff
path: root/1826/CH19/EX19.10/ex19_10.sce
blob: 028b7f604201374da5e9e3bfd97c0c46956b1811 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
// Example 19.10, page no-548
clear
clc

d=8900//kg/m^3
wt=58.71
avg=6.022*10^26
bet=9.27*10^-24
mu=4*%pi*10^-7
mm=0.6*bet
N=d*avg/wt
ms=mm*N
bs=mu*ms
printf("\nThe saturation magnetisation is %.3f *10^5 A/m\nThe saturation flux density is %.3f Wb/m^2",ms*10^-5,bs)