Transition ferro-para

B0 = -0.08 (slider from -1 to 1, step 0.01)
T = 0.73 (slider from 0 to 5, step 0.01)
T_{c} = 1 (slider from -5 to 5)
k_{B} = 1 (slider from -5 to 5)
N = 1 (slider from -5 to 5)
h(x) = x
f(x) = ((N * k_{B}) * ((T_{c} / 2 * x^(2)) - (T * log((2 * cosh((T_{c} / T * (x + B0)))))))) + 6
g(x) = tanh((x + B0) / T)
A_1, A, C = Intersect(g, h, -3, 3)
B, D, E = Extremum(f, -2, 2)
a = 1 (slider from -5 to 5)