程序运行错误求助大神

查看数: 10193 | 评论数: 4 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

发布时间: 2019-7-19 10:15

C:\Users\ASUS\Desktop\聚宝盆\颗粒布置.png 我是初学者，想计算任意第i行第j列圆盘中心坐标，即D（i,j），半径假设0.5，偶数行有11列，奇数行只有10列，可能问题出在数组上，求大神不吝赐教，万分感谢！ program zu ...

gf676680802 发表于 2019-7-20 00:39:22

li913 发表于 2019-7-19 16:46
[mw_shl_code=fortran,true]r=0.5
!第一个圆心位置
if(mod(i,2)==1) then !奇数行

谢谢，比较简洁

li913 发表于 2019-7-19 16:46:43

本帖最后由 li913 于 2019-7-19 17:00 编辑

[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

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

gf676680802 发表于 2019-7-19 12:27:30

最好能设置循环，自动计算每一个圆盘的中心坐标并存储，便于后面直接调用

程序运行错误 求助大神