Équation autocohérente modèle d'Ising hystérésis

J = 0.64 (slider from -1 to 1, step 0.01)
q = 4 (slider from 1 to 8, step 1)
h = -0.53 (slider from -5 to 5, step 0.01)
k = 1 (slider from -5 to 5)
T = 0.1 (slider from 0 to 2)
m_{min}: ((((-k) * T) * acosh(sqrt(((J * q)) / ((k * T))))) - h) / ((J * q))
m_{max}: (((k * T) * acosh(sqrt(((J * q)) / ((k * T))))) - h) / ((J * q))
f(m) = tanh((((J * m) * q) + h) / ((k * T)))
g(m) = m
A = If(Defined[m_{max}], Intersect[f, g, m_{max}, 1000])
B = If(Defined[m_{min}], Intersect[f, g, -1000, m_{min}])
C = If(Defined[m_{min}] ∧ Defined[m_{max}], Intersect[f, g, m_{min}, m_{max}], Intersect[f, g, (1, 1)])
A': (h, x(A))
B': (h, x(B))
C': (h, x(C))