Question

大神们，可以帮忙把fortran语言转化为matlab语言吗？

if(tr>=ts) then
h=c0*v0/9.8;
else
hh=0.0;
hn(1)=0.0;
tt=tr;
i=1;
while(tt<=ts);
tn=1.0-tt/ts;
hh=hh+hn(i);
aa=1.0/(4.0*uu^2);
bb=(hh-t0*uu-tn*uu^2)/(uu^2);
cc=t0^2-tn^2+(hh/uu)^2-2.0*t0*(hh/uu);
ddn=abs(bb^2-4*aa*cc);
dd=sqrt(ddn);
hn(i+1)=(-bb-dd)/(2.0 * aa);
h=h0*hn(i+1);
i=i+1;
tt=tr*i;
end
end

Answer 1

初步改了下 看看性不行
有复杂程序 我可以专门给你转 呵呵

FUNCTION PHI= FPHI (Z,A)

AK = 1.0
BK = 0.5*Z
CK = BK
PHI = BK

for K=1:20

FK= K
CK=CK*(I.0-Z^2)
BK=(CK+2.0*FK*BK)/(2.0*FK+l.0)
AK= A**2/(4.0*FK*(FK+ l.0))*AK
PHI = PHI + AK*BK

if (abs(AK*BK) <1.0E-7)
break
end

end

追问

大神，可以把具体的发杂程序给我吗？谢谢！