summaryrefslogtreecommitdiff
path: root/3840/CH9/EX9.4/Ex9_4.sce
blob: c7adbb5756c0c0218dca37934c1d967178f2342d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clear
//
//
//

//Variable declaration
Hc=200*10**3    //critical magnetic field(A/m)
Tc=12           //critical temperature(K)
H0=250*10**3    //critical magnetic field(A/m)

//Calculation
T=Tc*sqrt(1-(Hc/H0)**2)     //maximum critical temperature(K)

//Result
printf("\n maximum critical temperature is %0.3f  K",T)