//Example 18.4//

n=8;//numbers Ni2+/ unit cell
n1=2; //moment of Ni2+
m=n*n1
mprintf("m = %i ",m)
a=18.4;// measured value of nickel ferrite
e=((a-m)/a)*100
mprintf("\ne = %i percent",e)