就像你做的那样,写下那个公式:
expr = 'D * sin(C * atan(B*x - E*(B* x - atan(B*x)))) + A';
ft = fittype(expr, 'independent', 'x');
opts = fitoptions('Method', 'NonlinearLeastSquares');
opts.StartPoint = ones(1,5); % [A,B,C,D,E]
[fitresult, gof] = fit(x, y, ft, opts)
plot(fitresult, x, y)
编辑:
基于Wikipedia article,下面是一个小例子:
% some data based on equation
B = 0.714;
C = 1.4;
D = 800;
E = -0.2;
f = @(x) D * sin(C * atan(B*(1-E)*x + E*atan(B*x)));
x = linspace(0,10,200)'; %'
y = f(x);
% add noise
yy = y + randn(size(x))*16;
% fit
%expr = 'D * sin(C * atan(B*(1-E)*x + E*atan(B*x)))';
expr = 'D * sin(C * atan(B*x - E*(B* x - atan(B*x))))';
ft = fittype(expr, 'independent', 'x', 'dependent','y');
opts = fitoptions('Method', 'NonlinearLeastSquares');
opts.StartPoint = [1 1 1000 1]; % [B C D E]
[fitresult, gof] = fit(x, y, ft, opts)
% plot
yhat = feval(fitresult, x);
h = plot(x,y,'b-', x,yhat,'r-', x,yy,'g.');
set(h, 'LineWidth',2)
legend({'y', 'yhat', 'y+noise'}, 'Location','SouthEast')
grid on
结果:
fitresult =
General model:
fitresult(x) = D * sin(C * atan(B*x - E*(B* x - atan(B*x))))
Coefficients (with 95% confidence bounds):
B = 0.5916 (0.5269, 0.6563)
C = 1.899 (1.71, 2.089)
D = 783.7 (770.5, 796.9)
E = 1.172 (1.136, 1.207)
gof =
sse: 6.6568e+04
rsquare: 0.9834
dfe: 196
adjrsquare: 0.9832
rmse: 18.4291
请注意,使用像[1 1 1 1] 这样的起点远非真正的解决方案,因此拟合将停止而不收敛(D 参数的比例与其他参数 B、C 和E)...相反,我不得不从更接近 [1 1 1000 1] 的地方开始。