FitString(n_vary, i_fit, i_vary, T, out_matrix, m_1, m_2, m_3, i_fit_control, i_integrator_control)

function out_string = FitString(n_vary, i_fit, i_vary, T, out_matrix, m_1, m_2, m_3, i_fit_control, i_integrator_control)
%  Version: 1.0, 19 March 2008
%
%  Generates string with results of a fit

if n_vary == 1
    str_1 = [num2str(i_fit, '%03.0f' ),  ' t:', num2str(T(i_fit),'%6.2f\t'), ...
        ' phi: ', num2str(abs(out_matrix(5,i_vary,i_fit)),'%7.3f'), ' chi: ', num2str(out_matrix(14,i_vary,i_fit)*1E4,'%7.5f\t') ];
else
    str_1 = [num2str(i_fit, '%03.0f' ), ' t:', num2str(T(i_fit),'%6.2f\t'), ...
        ' a/b: ', num2str(out_matrix(3,i_vary,i_fit)/out_matrix(4,i_vary,i_fit),'%4.1f'),  ' phi: ', num2str(out_matrix(5,i_vary,i_fit),'%7.3f\t')];
end   
str_2 = [' a_', num2str(m_1,'%1.0i'),': ', num2str(out_matrix(6,i_vary,i_fit)*1E3,'%7.4f'), ...
    ' b_', num2str(m_1,'%1.0i'),': ', num2str(out_matrix(7,i_vary,i_fit),'%+8.4f\t')];
if m_2 > 0
    str_3 = [' a_', num2str(m_2,'%1.0i'),': ', num2str(out_matrix(8,i_vary,i_fit)*1E3,'%7.4f'), ...
        ' b_', num2str(m_2,'%1.0i'),': ', num2str(out_matrix(9,i_vary,i_fit),'%+7.3f\t')];
else
    str_3 = '';
end
if m_3 > 0 & m_2 > 0
    str_4 = [' a_', num2str(m_3,'%1.0i'),': ', num2str(out_matrix(10,i_vary,i_fit)*1E3,'%7.4f'), ...
        ' b_', num2str(m_3,'%1.0i'),': ', num2str(out_matrix(11,i_vary,i_fit),'%+7.3f')];
else
    str_4 = '';
end
if m_3 < 0 
    str_4 = [' a: ', num2str(out_matrix(3,i_vary,i_fit),'%6.3f'), ...
        ' b: ', num2str(out_matrix(4,i_vary,i_fit),'%6.3f')];    
end
if i_integrator_control == 4
    str_5 = [' a/b: ', num2str(out_matrix(3,i_vary,i_fit)/out_matrix(4,i_vary,i_fit),'%4.1f')]; 
else
    str_5 = '';
end
disp([str_1,str_2,str_3,str_4,str_5]);