//Chapter-7,Example7_3_1,pg 7-6

Ho=2*10^5                                   //critical field at absolute zero

Hc=1*10^5                                   //critical field at given temperature

T=8                                         //temperature

Tc=T/sqrt(1-(Hc/Ho))

printf("\ncritical temperature of the element Tc = %.2f Kelvin" ,Tc)