应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【分享】暑假闲来无事，与虫虫共同进步
243/3返回列表上一页123
查看: 2977  |  回复: 23
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

txf10

金虫 (著名写手)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
请高手指点：面心立方的坐标点该怎么表述？
谢谢！
赞一下(1人) 回复此楼
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))这个条件？
赞一下(1人) 回复此楼
22楼2010-09-06 21:00:09
已阅   关注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.
程序最好是能再改进改进。
祝好运
赞一下(1人) 回复此楼
23楼2010-09-07 09:12:17
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)
暑假已过许久，封贴，感谢领导眷顾，大家的支持。
赞一下 回复此楼
24楼2010-09-07 09:34:39
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 maomao1210 的主题更新
243/3返回列表上一页123
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0703化学调剂 ，六级已过，有科研经历 +4 曦熙兮 2026-03-15 4/200 2026-03-15 18:01 by JourneyLucky
[考研] 0703化学调剂 290分有科研经历，论文在投 +3 腻腻gk 2026-03-14 3/150 2026-03-15 17:28 by 小物理化学
[考研] 309求调剂 +4 花与叶@ 2026-03-10 4/200 2026-03-14 21:26 by a不易
[考研] 材料080500调剂求收留 +3 一颗meteor 2026-03-13 3/150 2026-03-14 10:54 by peike
[考研] 266求调剂 +4 学员97LZgn 2026-03-13 4/200 2026-03-14 08:37 by zhukairuo
[考研] 0703化学求调剂 +5 很老实人 2026-03-09 5/250 2026-03-14 02:57 by JourneyLucky
[考研] 293求调剂 +5 上班不着吉 2026-03-09 5/250 2026-03-14 02:37 by JourneyLucky
[考研] 332分材料工程调剂 +3 莓好时光海苔 2026-03-09 3/150 2026-03-14 02:03 by JourneyLucky
[考研] 333求调剂 +3 球球古力 2026-03-09 3/150 2026-03-14 01:57 by JourneyLucky
[考研] 265求调剂 +9 小木虫085600 2026-03-09 12/600 2026-03-14 01:11 by JourneyLucky
[考研] 308求调剂 +3 是Lupa啊 2026-03-10 3/150 2026-03-14 00:30 by JourneyLucky
[考研] 2026考研调剂+本科延边大学+山东大学+生物化学与分子生物学+有项目经验 +3 ccdsscjy 2026-03-10 3/150 2026-03-14 00:12 by JourneyLucky
[考研] 281求调剂 +9 Koxui 2026-03-12 11/550 2026-03-13 20:50 by Koxui
[考研] 26调剂/材料科学与工程/总分295/求收留 +9 2026调剂侠 2026-03-12 9/450 2026-03-13 20:46 by 18595523086
[考研] 332求调剂 +3 Zz版 2026-03-13 3/150 2026-03-13 20:36 by 18595523086
[考研] 301求调剂 +6 Liyouyumairs 2026-03-11 6/300 2026-03-13 20:11 by JourneyLucky
[考研] 材料调剂，307分 +13 张泳铭1 2026-03-09 17/850 2026-03-13 11:09 by 薛云鹏
[考研] 296求调剂 +3 大口吃饭 身体健 2026-03-13 3/150 2026-03-13 10:31 by 学员8dgXkO
[考研] 321求调剂（食品/专硕） +3 xc321 2026-03-12 6/300 2026-03-13 08:45 by xc321
[考研] 298求调剂 +3 Vv呀！ 2026-03-10 3/150 2026-03-10 22:40 by 剑诗杜康
信息提示
关闭
请填处理意见
关闭