3020/CH20/EX20.7/ex20_7.sce


1
2
3
4
5
6
7

clc;
clear all;
k=1.38e-23;//boltzman constant
u=9.4e-24;
H=2;//megnetic field in Wb/m^2
T=2*u*H/(log(2)*k);//temperature of the system
disp('K',T,'temperature of the system is:')