summaryrefslogtreecommitdiff
path: root/3753/CH3/EX3.6/Ex3_6.sce
blob: 3b8d82ce96d594de7b46d0361b8bcb5a2e5740cd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Example number 3.6, Page number 3.34


clc;clear;close

// Variable declaration
H0=64*10**3;    // initial field(ampere/m)
T=5;    // temperature(K)
Tc=7.26;   // transition temperature(K)

// Calculation
H=H0*(1-(T/Tc)**2);     // critical field(ampere/m)

// Result
printf("critical field is : %0.3e ampere/m",H)