summaryrefslogtreecommitdiff
path: root/2780/CH10/EX10.3/Ex10_3.sce
blob: 9b44c47994daf491e4ec769b9035142c63407dc6 (plain)
1
2
3
4
5
6
7
8
9
10
11
clc
//to calculate magnetic moment of the rod
//formula is B=muo*(H+I)
//where H=ni
n=500 //number of turns in turns/m
i=0.5 //current passed through the solenoid in A
mur=1200 //relative permeability
I=(mur-1)*n*i //intensity of magnetisation in A/m
V=10^-3 //volume in m^3
M=I*V
disp("the magnetic moment of the rod is M="+string(M)+"A-m^2")