| 查看: 600 | 回复: 0 | ||
[求助]
相面法遇到的一个问题
|
|
请问大神，响应面法的一个小算例出现下面的错误是因为哪方面？本人菜鸟，一直没有查出来，谢谢。 错误使用 * 内部矩阵维度必须一致。 clear;clc; muX=[20;14];sigmaX=[4;1.4]; aev=sqrt(6)*sigmaX(2)/pi; uev=-psi(1)*aev-muX(2); x=muX;normX=eps; n=length(muX);f=3; d=diag(f*sigmaX); gM=x(1)-x(2); while abs(norm(x)-normX)/normX>1e-6 normX=norm(x); a1=x'; a2=a1.*a1; a3=repmat(a1,n,1); a3=a3-d; a4=a3.*a3; a5=a3+2*d; a6=a5.*a5; a=[ones(2*n+1,1),[a1,a2;a3,a4;a5,a6]]; gv=a(:,2)-a(:,3); lambda=a\gv; x=muX;normX1=eps; while abs(norm(x)-normX1)/normX1>1e-6 normX1=norm(x); g=lambda'*[1;x;x.*x]; gX=lambda(2:n+1)+2*lambda(n+2:2*n+1).*x; cdfX=1-evcdf(-x(2),uev,aev); pdfX=evpdf(-x(2),uev,aev); nc=norminv(cdfX); sigmaX1(2)=normpdf(nc)./pdfX; muX1(2)=x(2)-nc*sigmaX1(2); gs=gX.*sigmaX1;alphaX=-gs/norm(gs); bbeta=(g+gX'*(muX1-x))/norm(gs); x=muX1+bbeta*sigmaX1.*alphaX; end g=x(1)-x(2); x=muX+gM/(gM-g)*(x-muX); end |
回复此楼» 猜你喜欢
一志愿A区211，22408 321求调剂
已经有4人回复
-
0854求调剂
已经有7人回复
-
294求调剂
已经有5人回复
-
327求调剂
已经有26人回复
-
307中医考研调剂
已经有4人回复
-
通信工程求调剂！！！
已经有5人回复
-
求调剂
已经有14人回复
-
药学求调剂
已经有13人回复
-
一志愿华中农业071010，320求调剂
已经有12人回复
-
290调剂生物0860
已经有43人回复
5