summaryrefslogtreecommitdiff
path: root/3651/CH6/EX6.17/17.sce
blob: 63dc3ec2917f4b32702957a765556b4e2510ae4c (plain)
1
2
3
4
5
6
7
8
9
10
//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('critical field is %0.3f     *10**3 ampere/m   \n',(H/10**3))