%
% Illustration der iterativen Loesung von m=tanh(6*beta*m)
%
clc
clear
m=10.1
beta =0.2
mtrue = 0.658569660405754;
for i=1:100
    m=tanh(6*beta*m);
    fprintf('%20.15f  %20.15f %20.15f %20.15f \n',i,m,m-tanh(6*beta*m),m/mtrue)
end