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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【分享】暑假闲来无事，与虫虫共同进步
243/3返回列表上一页123
查看: 3288  |  回复: 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
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] filecode，4个jtjc了 +14 ziyangfang 2026-08-19 17/850 2026-08-24 18:37 by 哈哈蛤？
[基金申请] 没有任何消息-是不是就凉了 +6 图啦图啦 2026-08-24 6/300 2026-08-24 17:44 by 小小红帆
[基金申请] 如果此刻你正在为国基感到焦虑，不妨来听听这首《基金之外》 +5 scalable 2026-08-24 5/250 2026-08-24 17:03 by spiderzhuzhi
[基金申请] 2026国自然函评费到账 +17 羊腰板 2026-08-21 19/950 2026-08-24 16:52 by iaeyuan
[基金申请] 建议基金发布提前给出明确的时间点 +13 kulium 2026-08-21 16/800 2026-08-24 16:27 by superceng
[基金申请] 估计是周四 +4 archvillain 2026-08-18 4/200 2026-08-24 13:53 by zzuzxg
[基金申请] 让我中一个面上吧！ +13 大萍1987 2026-08-20 16/800 2026-08-24 10:23 by 太傻了
[基金申请] 科研孤儿太难了 +18 我4大白菜 2026-08-20 19/950 2026-08-24 09:47 by 凯恩广盛催化分�
[基金申请] 明天应该可查了！？ +4 chengyan1220 2026-08-23 4/200 2026-08-24 08:47 by gloomy6159
[基金申请] 什么时候开奖？ +10 CrisMessi 2026-08-18 11/550 2026-08-24 06:50 by 开心的小狮子
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +4 process2012 2026-08-23 5/250 2026-08-23 19:58 by jurkat.1640
[教师之家] 跳槽后在研项目怎么办？ +5 简单化xn 2026-08-22 10/500 2026-08-23 12:38 by 简单化xn
[基金申请] 只有每年这种时候来逛逛小木虫 +24 yaoyewhu2008 2026-08-20 26/1300 2026-08-22 17:43 by kammury
[基金申请] 今天基金会出结果吗？20260819 +16 kkkl_v 2026-08-19 17/850 2026-08-22 16:12 by 阿布Abu
[基金申请] 时间戳又变了 +13 wuchongjun 2026-08-20 19/950 2026-08-21 17:21 by 紫杉醇
[基金申请] 应该是下周三26日公布了吧？ +4 哈哈蛤？ 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[论文投稿] 投稿咨询 +5 wwm09 2026-08-17 7/350 2026-08-21 10:11 by 期刊论文帮手
[基金申请] 基金啊基金 +4 longfie172 2026-08-20 4/200 2026-08-21 08:58 by mark mao
[基金申请] 重要消息，中午系统在维护 +11 yuleib84 2026-08-18 12/600 2026-08-20 11:09 by xskun
[基金申请] 明天放榜？ +5 Shxjjxjkx 2026-08-18 5/250 2026-08-18 18:14 by -大大大大大-
信息提示
关闭
请填处理意见
关闭