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

//Variable declaration
T=8;    //temperature(K)
Hc=1*10**5;   //critical field(amp/m)
H0=2*10**5;   //critical field(amp/m)

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

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