| 查看: 2771 | 回复: 23 | |||
| 当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖 | |||
maomao1210金虫 (正式写手)
|
[交流]
【分享】暑假闲来无事,与虫虫共同进步已有17人参与
|
||
|
暑假闲来无事, 有对写学术型代码感兴趣的虫子可以一起共同进步 [ Last edited by maomao1210 on 2010-7-28 at 18:53 ] |
» 猜你喜欢
Bioresource Technology期刊,第一次返修的时候被退回好几次了
已经有8人回复
AI论文写作工具:是科研加速器还是学术作弊器?
已经有4人回复
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有7人回复
到新单位后,换了新的研究方向,没有团队,持续积累2区以上论文,能申请到面上吗
已经有8人回复
申请2026年博士
已经有6人回复
请问哪里可以有青B申请的本子可以借鉴一下。
已经有5人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有5人回复
2025冷门绝学什么时候出结果
已经有7人回复
请问有评职称,把科研教学业绩算分排序的高校吗
已经有6人回复
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
» 本主题相关价值贴推荐,对您同样有帮助:
闲来无事不从容
已经有16人回复
【原创】请教一下夫妻两人同专业共同申请海外博士后的问题
已经有45人回复
txf10
金虫 (著名写手)
- 应助: 0 (幼儿园)
- 金币: 1006.6
- 散金: 367
- 红花: 18
- 沙发: 1
- 帖子: 1776
- 在线: 217.4小时
- 虫号: 1019904
- 注册: 2010-05-16
- 专业: 凝聚态物性I:结构、力学和
21楼2010-09-06 16:59:13
txf10
金虫 (著名写手)
- 应助: 0 (幼儿园)
- 金币: 1006.6
- 散金: 367
- 红花: 18
- 沙发: 1
- 帖子: 1776
- 在线: 217.4小时
- 虫号: 1019904
- 注册: 2010-05-16
- 专业: 凝聚态物性I:结构、力学和
★
小木虫(金币+0.5):给个红包,谢谢回帖交流
小木虫(金币+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













回复此楼