blob: 2aaa7f90e3b89e9fe9f18b3c6da931eebc847e7c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
clc;
clear all;
a=2.5e-10;//interatomic spacing in m
M=1.8e6;//magnetisation in A/m
x=2;//no of atoms per unit cell
N=x/(a^3);//no of atoms per unit volume
disp('m^-3',N,'no of atoms per unit volume is:')
um=M/N;//magnetisation produced per atom
disp('A*m^2',um,'magnetisation produced per atom is:')
e=1.6e-19;
h=6.626e-34;
m=9.1e-31;
b=e*h/(4*%pi*m);
Um=um/b;//conversion of unit
disp('Bohr megneton',Um,'magnetisation produced per atom is:')
|
