xmax = 1.0d-10
Do loop=1, Nrand
If( xmax<x ) Then
xmax=x
EndIf
EndDo
xmax = 1.01d0*xmax
楚香饭 发表于 2015-6-16 09:02
这代码很罗嗦,用一句话就可以实现
xmax = 1.01d0* maxval( x(1:Nrand) )
珊瑚虫 发表于 2015-6-16 14:29
你看到的乘以1.01的这种求最大值得算法 是不是大部分出现在求坐标范围的时候? 如果是,那么乘以1.01显然是 ...
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |