summaryrefslogtreecommitdiff
path: root/3763/CH8/EX8.2/Ex8_2.sce
blob: 49be8e1712e46105382484a6399d3662579f7800 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clear
//
//
//

//Variable declaration
H0=64*10**3    //initial field(ampere/m)
T=5    //temperature(K)
Tc=7.26   //transition temperature(K)

//Calculation
H=H0*(1-(T/Tc)**2)     //critical field(ampere/m)

//Result
printf("\n critical field is %0.2f  *10**3 ampere/m",H/10**3)