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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【分享】暑假闲来无事，与虫虫共同进步
北京石油化工学院2026年研究生招生接收调剂公告
243/3返回列表上一页123
查看: 3015  |  回复: 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
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料工程302分求调剂 +9 zyx上岸！ 2026-04-04 9/450 2026-04-05 22:08 by 醉翁wl
[考研] 315求调剂 +13 欣喜777 2026-04-04 14/700 2026-04-05 18:48 by liuying2007
[考研] 调剂 +8 熊二想上岸 2026-04-04 8/400 2026-04-05 05:27 by houyaoxu
[考研] 344材料与化工调剂 +9 调剂上岸玘 2026-04-03 9/450 2026-04-04 23:10 by happyddm
[考研] 求生物学学硕调剂——364分 +7 云朵遛弯指南 2026-04-04 7/350 2026-04-04 22:49 by zhyzzh
[考研] 316求调剂 +9 墨辰_Orion926 2026-04-04 9/450 2026-04-04 21:35 by lbsjt
[考研] 材料与化工调剂一志愿大连海事085600，349 +11 吃的不少 2026-03-30 11/550 2026-04-03 18:05 by Jimmyandyou
[考研] 266分，求材料相关专业调剂 +13 哇呼哼呼哼 2026-03-30 15/750 2026-04-03 15:24 by arrow8852
[考研] 081200-11408-276学硕求调剂 +6 崔wj 2026-04-02 6/300 2026-04-03 10:19 by 蓝云思雨
[考研] 279求调剂 +6 qazplm0852 2026-04-02 6/300 2026-04-03 10:03 by 蓝云思雨
[考研] 考研调剂 +3 李木子0120 2026-04-02 5/250 2026-04-02 21:45 by dongzh2009
[考研] 一志愿山东大学，085600，344 +7 魏子per 2026-04-02 8/400 2026-04-02 21:12 by 百灵童888
[考研] 321求调剂 一志愿 浙江工业大学生物医药 +5 嘿嘿HC 2026-04-01 6/300 2026-04-02 15:23 by sophie2180
[考研] 材料专业求调剂 +10 月月鸟木 2026-04-01 10/500 2026-04-02 12:57 by wxiongid
[考研] 材料工程322分 +8 哈哈哈吼吼吼哈 2026-04-01 8/400 2026-04-02 11:53 by 3041
[考研] 348环境工程调剂 +3 吴彦祖24k 2026-04-01 3/150 2026-04-02 09:14 by nanaliuyun
[考研] 一志愿346上海大学生物学 +3 上海大学346调剂 2026-04-01 3/150 2026-04-02 08:36 by w虫虫123
[考研] 284求调剂 +12 小熊～～ 2026-03-31 12/600 2026-04-01 20:23 by 花??
[考研] 08工科，295，接受跨专业调剂 +6 lmnlzy 2026-03-31 6/300 2026-04-01 11:02 by 逆水乘风
[考研] 本2一志愿C9-333分，材料科学与工程，求调剂 +9 升升不降 2026-03-31 9/450 2026-03-31 18:01 by 无际的草原
信息提示
关闭
请填处理意见
关闭