%共享参数拟合
%原理：非线性最小二乘拟合
clear,clc
format long
data=[
14857.77758  0.0414  8.94345E6
18553.17237  0.05291  8.99335E6
20174.23991  0.06071  8.98066E6
24127.20834  0.07239  8.98738E6
24273.43798  0.07442  9.01031E6
26951.77543  0.08156  9.05148E6
20564.9827  0.07419  8.59135E6
19910.72847  0.07655  8.38573E6
18344.07188  0.07431  8.19985E6
16706.67637  0.07078  8.1676E6
16478.50121  0.0693  8.33608E6
22360.23753  0.08006  8.7983E6
21293.07227  0.07569  8.8397E6
20308.9913  0.07284  8.78015E6
23946.8144  0.08034  8.8947E6
20146.16809  0.07223  8.61393E6
17522.67615  0.06795  8.41823E6
17196.59303  0.06577  8.45751E6
17575.12863  0.06553  8.43412E6
15275.12691  0.0583  8.35688E6
18133.81317  0.06291  8.55274E6
18676.61758  0.06373  8.62984E6
16488.34249  0.05812  8.47193E6
16964.95475  0.06073  8.4801E6
17575.16675  0.06188  8.50543E6
17177.05496  0.05957  8.52406E6
15914.92064  0.05696  8.523E6
14213.56581  0.05257  8.42825E6
15066.24199  0.05465  8.42138E6
15927.43786  0.05661  8.44597E6
13486.53921  0.0505  8.27752E6
13013.96774  0.04854  8.32841E6
13728.11816  0.05051  8.39552E6
14144.65298  0.05275  8.41224E6
14954.59782  0.05585  8.40791E6
13582.45324  0.05299  8.31854E6
12648.72128  0.0508  8.27208E6
11698.11831  0.04785  8.21884E6
11582.30157  0.04853  8.22806E6
10380.45227  0.04524  8.15268E6
11064.31308  0.04744  8.19212E6
11121.39599  0.04783  8.15213E6
11078.61898  0.04852  8.08062E6
9802.8059  0.0446  8.00574E6
7929.85965  0.04011  7.80904E6
9503.21012  0.047  7.85323E6
8308.91314  0.04326  7.79567E6
8082.84269  0.04295  7.78816E6
7749.99714  0.04217  7.72199E6
6839.21332  0.03864  7.56499E6
6910.27878  0.03997  7.51553E6
6940.63115  0.04122  7.44532E6
6401.43753  0.04093  7.32896E6
5752.16969  0.0386  7.21224E6
4958.64579  0.03575  7.08191E6
4917.3898  0.03696  7.00645E6
4279.60599  0.03513  6.83156E6
3229.51003  0.02891  6.70232E6
2500.59496  0.02539  6.50041E6
2086.75039  0.02345  6.29762E6
2273.74314  0.02434  6.3008E6];
x=data(:,1);
ze=data(:,2);
fe=data(:,3);
fun=@(c)myfun(x,c,ze,fe);
c0=[7.55629E8,0.18679,46.54595,0.35525,6.06252E6]';%初值
options = optimset('Display','on','MaxFunEvals',1000,'MaxIter',1000);
c=lsqnonlin(fun,c0,[],[],options)
zc=(x.^c(2)/c(3)/c(4)).^(1/c(4));
fc=c(1)*(x.^c(2)/c(3)/c(4)).^(1/c(4)).*exp(-1/c(4))+c(5)*(1-exp(-1/c(4)));

%相关系数
ye=[ze;fe];
yc=[zc;fc];
R=corrcoef(ye,yc)

%绘图
subplot(2,1,1);
scatter(x,ze,'o');
hold on
scatter(x,zc,'+');
subplot(2,1,2);
scatter(x,fe,'o');
hold on
scatter(x,fc,'+')

function y=myfun(x,c,ze,fe)
    zc=(x.^c(2)/c(3)/c(4)).^(1/c(4));
    fc=c(1)*(x.^c(2)/c(3)/c(4)).^(1/c(4)).*exp(-1/c(4))+c(5)*(1-exp(-1/c(4)));
    n=length(zc);
    i=1:n;
    y=(zc-ze).^2+(fc-fe).^2;

3楼: Originally posted by yz457694 at 2016-10-25 16:17:27
用matlab给你编了个程序
主程序:

%共享参数拟合
%原理：非线性最小二乘拟合
clear,clc
format long
data=;
x=data(:,1);
ze=data(:,2);
fe=data(:,3);
fun=@(c)myfun(x,c,ze,fe);
c0=';%初值
options ...