程序运行错误 求助大神

li913

[Fortran] 纯文本查看 复制代码

r=0.5
!第一个圆心位置
if(mod(i,2)==1) then !奇数行
x0=0
y0=0
else 
x0=r
y0=sqrt(3.0)*r
end if 
dy = sqrt(3.0)*r !y方向圆心间距

x = x0 + (j-1)*2*r
y = y0 + (i-1)*dy

你把奇偶行分开算，就容易了。奇数行全是规整的，偶数行也全是规整的。