summaryrefslogtreecommitdiff
path: root/3768/CH10/EX10.1/Ex10_1.sce
blob: d45d8310bb6e59318876deed26e7b7260ce96d6c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Example number 10.1, Page number 224

clc;clear;
close;

//Variable declaration
T=5;     //temperature(K)
Tc=7.2;   //critical temperature(K)
H0=6.5*10**3;   //critical magnetic field(A/m)
//Calculation
Hc=H0*(1-(T/Tc)**2);    //critical field(A/m)
//Result
printf("critical field is %.3e A/m",Hc)