Question

求助 Fortran语言 转成 MATLAB语言

程序不大，对本人于Fortran语言一无所知，希望高人能帮帮忙，谢谢啦！
FUNCTION PHI (Z,A)
AK= 1.0
BK=0.5*Z
CK=BK
PHI= BK
DO 100 K=1,20
FK= K
CK=CK*(I.O-Z**2)
BK=(CK+2.O*FK*BK)/(2.0*FK+l.O)
AK= A**2/(4.0*FK*(FK+ l.O))*AK
PHI = PHI + AK*BK
IF (ABS(AK*BK) .LT. 1.OE-7) RETURN
CONTINUE
RETURN
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