fortran中幂函数用两个星号**表示,所以你的例子在Fortran表示为 :x**3.5/y**4.7
可以用迭代法:
x=0.236/(1-0.167*x*x)^2.5;
从x=0.0开始。
结果:x=0.2418638208
-------------------
real :: x=0.00,x1=0.00
d=1.0E-6
label:1
x1=0.236/(1-0.167*x*x)^2.5
if abs(x1-x0)>d
then
x0=x1
goto 1
endif
print x1