我的M文件如下: H%X F~tF:
function [G5]=fun(x); ca,W:9#.xn
syms n1 n2 k1 k2 d; :o .+<_&
[subwave,nsub]=textread('subout.txt','%f %f'); 1]eRragm"
[filmwave,filmtran]=textread('filmtr.dat','%f %f'); 7F6B
[p,q]=size(subwave); [`oVMR
for j=1:p; <e?Eva%t`
wavel(j)=subwave(j,1); [61*/=gWe
n(j)=n1+n2/((wavel(j))^2); "TJ*mN.i{}
k(j)=k1*exp(k2/wavel(j)); w]yVNB
N(j)=n(j)-i*k(j); b,YNCb]H
phase(j)=2*pi*N(j)*d/wavel(j); 7KX27.~F
ns(j)=nsub(j,1); M;,$
)>P
B(j)=cos(phase(j))+ns(j)*i*sin(phase(j))/N(j); XL^05
C(j)=i*N(j)*sin(phase(j))+ns(j)*cos(phase(j)); PCHspe9!y
T(j)=4*ns(j)/((B(j)+C(j))*conj(B(j)+C(j))); Y)DX
ts(j)=1-((1-ns(j))/(1+ns(j)))^2; S,nELV~!
t1(j)=ts(j)*T(j); U: Wet,
tf(j)=filmtran(j,1)/100; @aZ Tx/
difference(j)=(t1(j)-tf(j))^2; (y 7X1Qc)
end !&>`
G=symsum(difference(j),1,401); )S(Ly.
G1=subs(G,n1,sym('x(1)')); "I)zi]vk
G2=subs(G1,n2,sym('x(2)')); 8\!E )M|4
G3=subs(G2,k1,sym('x(3)')); Y}v3J(l
G4=subs(G3,k2,sym('x(4)')); Hj|&P/jY]*
G5=subs(G4,d,sym('x(5)')); TKv!wKI
w$6Z}M1d
3,Yr%`/5'
8"9&x}
tl-
在matlab下运行 /De~K+w7o
>> options=optimset('tolfun',1e-8,'tolx',1e-8); #}FUa u$
>> [xmin,value,flag,output]=fminsearch(@fun,[1.7,4000,0.005,400,500],options); z__?k Y
3>-h-
cpMX
D,ZLo~
结果出错如下: %:d7Ts&?Z
=uH2+9.
??? Conversion to double from sym is not possible. ~cCMLK em
Error in ==> fminsearch at 175 rO$pj~!|Q
fv(:,1) = funfcn(x,varargin{:}); ft6)n T/"&
xlS*9>Ij
哪位高手给看看 w CB*v<*