summaryrefslogtreecommitdiff
path: root/3665/CH11/EX11.12/Ex11_12.sce
blob: 16848847265a499af52943c9abe255b2c75914d3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
clear//
//
//

//Variable declaration
Tc=7.18;     //temperature(K)
H0=6.5*10**4;    //critical field(T)
T=4.2;      //temperature(K)
d=1*10**-3;    //diameter(m)

//Calculation
Hc=H0*(1-(T/Tc)**2);      //critical field(T)
ic=%pi*d*Hc;       //critical current(A)

//Result
printf("\n critical current is %0.2f A",ic)
printf("\n answer given in the book is wrong")