summaryrefslogtreecommitdiff
path: root/3669/CH9/EX9.4/4.sce
blob: 33a37b669acc0e956aeca4c3ff788013f452bc21 (plain)
1
2
3
4
5
6
7
8
9
10
11

//Variable declaration
H0=250*10**3;   //critical field(amp/m)
Tc=12;     //transition temperature(K)
Hc=200*10**3;   //critical field(Tesla)

//Calculation
T=Tc*sqrt(1-(Hc/H0)**2);    //temperature(K)

//Result
printf('temperature is %0.3f   K  \n',(T))