24小时热门版块排行榜    

CyRhmU.jpeg
查看: 2771  |  回复: 23
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

maomao1210

金虫 (正式写手)

[交流] 【分享】暑假闲来无事,与虫虫共同进步已有17人参与

暑假闲来无事,
有对写学术型代码感兴趣的虫子可以一起共同进步

[ Last edited by maomao1210 on 2010-7-28 at 18:53 ]
回复此楼
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

txf10

金虫 (著名写手)


小木虫(金币+0.5):给个红包,谢谢回帖交流
请高手指点:面心立方的坐标点该怎么表述?
谢谢!
21楼2010-09-06 16:59:13
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

txf10

金虫 (著名写手)


小木虫(金币+0.5):给个红包,谢谢回帖交流
请教一下:
program eambcc
implicit none
real :: i,j,k
integer :: at=0
do i=-1,1,0.5
do j=-1,1,0.5
do k=-1,1,0.5
if((mod(i,1.0)==0.and.mod(i,1.0)==0.and.mod(i,1.0)==0).or.&
(abs(mod(i,1.0))==0.5.and.abs(mod(j,1.0))==0.5.and.abs(mod(k,1.0))==0.5))then
write(*,100)i,j,k
100 format(2x,f4.1,2x,f4.1,2x,f4.1)
end if
end do
end do
end do
运行结果:
  -1.0  -1.0  -1.0
  -1.0  -1.0  -0.5
  -1.0  -1.0   0.0
  -1.0  -1.0   0.5
  -1.0  -1.0   1.0
  -1.0  -0.5  -1.0
  -1.0  -0.5  -0.5
  -1.0  -0.5   0.0
  -1.0  -0.5   0.5
  -1.0  -0.5   1.0
  -1.0   0.0  -1.0
  -1.0   0.0  -0.5
  -1.0   0.0   0.0
  -1.0   0.0   0.5
  -1.0   0.0   1.0
  -1.0   0.5  -1.0
  -1.0   0.5  -0.5
  -1.0   0.5   0.0
  -1.0   0.5   0.5
  -1.0   0.5   1.0
  -1.0   1.0  -1.0
  -1.0   1.0  -0.5
  -1.0   1.0   0.0
  -1.0   1.0   0.5
  -1.0   1.0   1.0
  -0.5  -0.5  -0.5
  -0.5  -0.5   0.5
  -0.5   0.5  -0.5
  -0.5   0.5   0.5
   0.0  -1.0  -1.0
   0.0  -1.0  -0.5
   0.0  -1.0   0.0
   0.0  -1.0   0.5
   0.0  -1.0   1.0
   0.0  -0.5  -1.0
   0.0  -0.5  -0.5
   0.0  -0.5   0.0
   0.0  -0.5   0.5
   0.0  -0.5   1.0
   0.0   0.0  -1.0
   0.0   0.0  -0.5
   0.0   0.0   0.0
   0.0   0.0   0.5
   0.0   0.0   1.0
   0.0   0.5  -1.0
   0.0   0.5  -0.5
   0.0   0.5   0.0
   0.0   0.5   0.5
   0.0   0.5   1.0
   0.0   1.0  -1.0
   0.0   1.0  -0.5
   0.0   1.0   0.0
   0.0   1.0   0.5
   0.0   1.0   1.0
   0.5  -0.5  -0.5
   0.5  -0.5   0.5
   0.5   0.5  -0.5
   0.5   0.5   0.5
   1.0  -1.0  -1.0
   1.0  -1.0  -0.5
   1.0  -1.0   0.0
   1.0  -1.0   0.5
   1.0  -1.0   1.0
   1.0  -0.5  -1.0
   1.0  -0.5  -0.5
   1.0  -0.5   0.0
   1.0  -0.5   0.5
   1.0  -0.5   1.0
   1.0   0.0  -1.0
   1.0   0.0  -0.5
   1.0   0.0   0.0
   1.0   0.0   0.5
   1.0   0.0   1.0
   1.0   0.5  -1.0
   1.0   0.5  -0.5
   1.0   0.5   0.0
   1.0   0.5   0.5
   1.0   0.5   1.0
   1.0   1.0  -1.0
   1.0   1.0  -0.5
   1.0   1.0   0.0
   1.0   1.0   0.5
   1.0   1.0   1.0
Press any key to continue
为什么运行结果不满足:(abs(mod(i,1.0))==0.5.and.abs(mod(j,1.0))==0.5.and.abs(mod(k,1.0))==0.5))这个条件?
22楼2010-09-06 21:00:09
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 maomao1210 的主题更新
信息提示
请填处理意见