clc;
v=7.5*10^-5;  //volume in metre cube
b=1;  //flux in tesla
mo=4*(%pi)*10^-7;  //permeability of free space
m=20000;  //permeability of material
h=b/(m*mo);  //calculating field intensity
e=(1/2)*b*h*v;  //calculating energy
disp(e,"Energy in Joule = ");  //displaying energy