summaryrefslogtreecommitdiff
path: root/1538/CH22/EX22.2/Ex22_2.sce
blob: a91aaaa31b49c165518c24344003ab0db46d7a59 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//example-22.2
//page no-660
//given
//critical  temp of Pb
T0=7.17  //K
//critical field
H0=0.0803  //A/m
//to find the critical field at 
T1=3 //K
T2=10  //K
//critical field at T1
Hc1=H0*(1-T1^2/T0^2)  //A/m
//critical field at T2
Hc2=H0*(1-T2^2/T0^2)  //A/m
printf ("the critical field at 3K temp is %f A/m and at 10K ia %f A/m",Hc1,Hc2)