//Chapter-7,Example7_3_2,pg 7-7

Bo=3.06*10^-2                                //critical field at absolute zero

Tc=3.7                                       //critical temperature

T=2                                          //temperature

Bc=Bo*(1-(T/Tc)^2)

printf("\ncritical field of wire  Bc = %.5f T",Bc)