summaryrefslogtreecommitdiff
path: root/3768/CH10/EX10.10/Ex10_10.sce
blob: e67110c2c9002f9c29ef48ff1a077b1864636377 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Example number 10.10, Page number 227

clc;clear;
close;

//Variable declaration
Hc=6*10**5;    //critical magnetic field(A/m)
Tc=8.7;     //critical temperature(K)
H0=3*10**6;   //critical magnetic field(A/m)
//Calculation
T=Tc*sqrt(1-(Hc/H0));     //maximum critical temperature(K)
//Result
printf("maximum critical temperature is %.3f K",T)
//answer given in the book is wrong