哪位大神可以把这段matlab程序改写成fortran程序吗

求大神帮忙

木槿落叶

程序我给大家写一下，希望有大神帮帮我

程序如下：
clear; clc;
muX=[22;10;2]; sigmaX=[2;0.9;0.6];
sLn=sqrt(log(1+(sigmaX(1)/muX(1)）^2));mLn=log(muX(1))-sLn^2/2;
aEv=sqrt(6)*sigmaX(3)/pi;uEv=-pai(1)*aEv-muX(3);
muX1=muX;sigmaX1=sigmaX;% X1:equivalent normalized variable
x=muX;normX=eps;
while abs(norm(x)-normX)/normX>1e-6
        normX=norm(x);
g=x(1)-x(2)-x(3);
gX=[1;-1;-1];
cdfX=[logncdf(x(1),mLn,sLn);1-evcdf(-x(3),uEv,aEv)];
pdfX=[logncdf(x(1),mLn,sLn);evpdf(-x(3),uEv,aEv)];
nc=norminv(cdfX);
sigmaX1(1:2:3)=normpdf(nc)./pdfX;
muX1(1:2:3)=[x(1:2:3)-nc.*sigmaX1(1:2:3)];
gs=gX.*sigmaX1;alphaX=-gs/norm(gs);
bbeta=(g+gX'*(muX1-x))/norm(gs)
x=muX1+bbeta*sigmaX1.*alphaX;
end

大力水手

没必要改写，你可以根据数据和要求选取或编写FORTRAN程序，海量。

aas314

自己写 或者 网上搜一下    mathwork 中 有这种函数   MATLAB 转 Fortran  

木槿落叶

大力水手 发表于 2016-8-14 22:33
没必要改写，你可以根据数据和要求选取或编写FORTRAN程序，海量。

自己写了，总是有两个错误，没有办法改正，一会发程序给你看看

木槿落叶

aas314 发表于 2016-8-15 07:31
自己写 或者 网上搜一下    mathwork 中 有这种函数   MATLAB 转 Fortran

嗯，好谢谢

圆梓君

哭了，大佬请问改写成功了吗，特别是正态分布那一段，急需求帮助