24小时热门版块排行榜    

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

maomao1210

金虫 (正式写手)

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

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

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

maomao1210

金虫 (正式写手)


nono2009(金币+1):暑假已经结束,本帖是否要关闭? 2010-09-07 09:27:27
引用回帖:
Originally posted by txf10 at 2010-09-06 21:00:09:
请教一下:
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.5  -0.5  -0.5
  -0.5  -0.5   0.5
  -0.5   0.5  -0.5
  -0.5   0.5   0.5
满足你说的那个条件。(abs(mod(i,1.0))==0.5.and.abs(mod(j,1.0))==0.5.and.abs(mod(k,1.0))==0.5))

或许你没看明白程序吧?
看清楚中间有一个 .or.
程序最好是能再改进改进。
祝好运
23楼2010-09-07 09:12:17
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)

暑假已过许久,封贴,感谢领导眷顾,大家的支持。
24楼2010-09-07 09:34:39
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 maomao1210 的主题更新
信息提示
请填处理意见