Transition ferro-para

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