blob: 2cdffd6806348a468171d01a5b863949b06ea510 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
// Scilab Code Ex12.6 : Page-606 (2011)
clc; clear;
M_i = 4.5;....// Intial value of total dipole moment of the sample
H_i = 0.84;....// External magnetic field, tesla
T_i = 4.2;....// Cooling temerature of the sample, K
H_f = 0.98;....// External magnetic field, tesla
T_f = 2.8;....// Cooling temerature of the sample, K
// According to the curie's law, Mf/Mi = (Hf/Hi)*(Ti/Tf)
M_f = M_i*H_f/H_i*T_i/T_f;
printf("\nThe total dipole moment of the sample = %5.3f joule/tesla",M_f);
// Result
// The total dipole moment of the sample = 7.875 joule/tesla
|
