summaryrefslogtreecommitdiff
path: root/2453/CH9/EX9.1/9_1.sce
blob: f64067a45df98376e83c5d48a1beae63364e9285 (plain)
1
2
3
4
5
6
//To calculate the critical field
Tc = 3.7;      //critical temperature, K
Hc_0 = 0.0306;    //critical field, T
T = 2;     //temperature, K
Hc_2 = Hc_0*(1-(T/Tc)^2);     //critical field, T
printf("critical field at 2K is %5.5f T",Hc_2);