[ÇóÖú] ·ÇÏßÐÔÄâºÏ±í´ïʽ½Ï¸´ÔÓ£¬²ð·Öºó¿ÉÒÔ´¦ÀíÂð£¬ÔÚMatlabÖÐ

pai = 3.14;
len = length(xdata);
N0 = 1*ones(len,1);
%N0 = 1;
N1 = 1.448+3634./power(xdata,2)-8.885./power(xdata,4);
N2 = ((3.363*xdata -946.7)./(xdata -328.6))+1i*((-0.03382*xdata + 27.03)./(xdata -365.3));
t = @(x) 2*pai.*N1*x./xdata;
r = @(x)((N0-N2).*cos(t(x))+1i*(N0.*N2./N1-N1).*sin(t(x)))./((N0+N2).*cos(t(x))+1i*(N0.*N2./N1+N1).*sin(t(x)));
% test = r(100);
Fun = @(x)(r(x).*conj(r(x)));
RFun = @(x) norm(Ry-r(x).*conj(r(x)));
% [res,fval,exitflag,output] = fminbnd(RFun,1,5000)

res = lsqcurvefit(Fun,1,xdata,Ry)
m = 1;
for h = 1:0.01:100
    res(m) = RFun(h);
    m = m +1;
end
[C,I] = min(res)
k = 1:0.01:100;
k(I)

Error using @(x)(r(x).*conj(r(x)))
Too many input arguments.

Error in lsqcurvefit (line 195)
            initVals.F = feval(funfcn_x_xdata{3},xCurrent,XDATA,varargin{:});

Error in RFitModel_2 (line 34)
res = lsqcurvefit(Fun,1,xdata,Ry)

Caused by:
    Failure in initial user-supplied objective function evaluation. LSQCURVEFIT cannot continue.