summaryrefslogtreecommitdiff
path: root/1664/CH12/EX12.1/Ex12_1.sce
blob: 435da7ed84dabfa6fd4aabfc5f848bb9c69465d7 (plain)
1
2
3
4
5
6
7
8
9
10

//Example NO.12.1
//Page No.356
//To find critical field.
clc;clear;
Tc = 3.7;//Critical temperature of tin -[K].
Ho = 0.0306;//Magnetic field -[T].
T = 2;//Temperature -[K].
Hc = Ho*(1-((T^(2))/(Tc^(2))));//Critical magnetic field
printf("\nCritical field at 2K is %.4f T",Hc);