気にしないでください。
Function BN_curve(w,t) : FitFunc
Wave w
Variable t // [K]//BN_curve(w,t)=J/k_B*chi(k_B*T/J) [K*emu/mol]
//CurveFitDialog/ Coefficients 2
//CurveFitDialog/ w[0] = J/k_B [K]
//CurveFitDialog/ w[1] = g
//CurveFitDialog/ w[2] = chi0 [K*emu/mol]return w[2]+w[0]*3/8*(w[1])^2/(t)*(0.25+0.14995*(0.5*Abs(w[0])/t)+0.30094*(0.5*Abs(w[0])/t)^2)/(1+1.9862*(0.5*Abs(w[0])/t)+0.68854*(0.5*Abs(w[0])/t)^2+6.0626*(0.5*Abs(w[0])/t)^3)
End
