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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 想以时间为步长，dt=100ns，怎么操作啊？？
141/2返回列表12下一页
查看: 1363  |  回复: 13
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

totoymy

铜虫 (小有名气)

[求助] 想以时间为步长，dt=100ns，怎么操作啊？？

程序如下：
MODULE PARA
IMPLICIT NONE

INTEGER*4, PARAMETER:: Ndim=12   

REAL,DIMENSION(Ndim,5):: pp

INTEGER*4::NOUT

END MODULE PARA

PROGRAM CM
USE PARA
IMPLICIT NONE

INTEGER:: i,j,k
INTEGER::t
real::x,y,z
REAL*8::r
REAL::s,m

OPEN (11, file='input.txt')

READ(11,*) ((pp(i,j),j=1,4),i=1,Ndim)
close(11)
   call random_seed()

t=1
DO
   call random_number(r)
   
   k=1
   s = 0.0
   do while(k<=Ndim)
      s=s+pp(k,4)
      m=s-pp(k,4)

      
      if (m           x=x+pp(k,1)
          y=y+pp(k,2)
          z=z+pp(k,3)
          open(12,file="result.txt",access='append')
          write(12,*) x,y,z,t,k
          close(12)  
          t = t + 1
      end if
      k=k+1
   enddo
   
   if (t>100) exit
enddo

end program cm

就是从0到10μs，每步100ns循环100次，怎么修改？
目前只是用数字1-100计步的。。。如何做？
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2011-11-02 21:26:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)

【答案】应助回帖

★
xzhdty(金币+1): 谢谢参与 2011-11-03 17:04:32
扫了一眼你的代码，没有发现t参与运算。
首先你需要确定睡前的t是什么单位，是微秒还是纳秒。然后看1到100个步长是多长时间，最后按照你需要的时间长度设定t的步长和终值就可以了。
赞一下(1人) 回复此楼
2楼2011-11-03 09:35:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huruiusst

木虫 (小有名气)
你这个大循环能循环起来吗？没见过这样的循环格式的
赞一下 回复此楼
SLS,MD，HRSG
3楼2011-11-03 09:54:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
ben_ladeng: 专家考核存档 2011-11-03 17:49:43
引用回帖:
3楼: Originally posted by huruiusst at 2011-11-03 09:54:42:
你这个大循环能循环起来吗？没见过这样的循环格式的

很显然可以循环，这种循环没有次数限制，用 exit 退出，读文件，我一般都用这种循环……
赞一下(1人) 回复此楼
4楼2011-11-03 12:09:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

ben_ladeng: 专家考核存档 2011-11-03 17:49:56
totoymy(金币+10): 2011-11-05 20:56:14
你所谓的时间，是指计算机运行的时间，还是别的？
赞一下(1人) 回复此楼
5楼2011-11-03 12:10:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huruiusst

木虫 (小有名气)
引用回帖:
4楼: Originally posted by snoopyzhao at 2011-11-03 12:09:23:
很显然可以循环，这种循环没有次数限制，用 exit 退出，读文件，我一般都用这种循环……

谢谢指正
回复此楼
SLS,MD，HRSG
6楼2011-11-03 13:34:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

totoymy

铜虫 (小有名气)
引用回帖:
5楼: Originally posted by snoopyzhao at 2011-11-03 12:10:23:
你所谓的时间，是指计算机运行的时间，还是别的？

客观的时间吧，就是真实的时间，和计算机运行时间应该是一致的？谢谢帮助~
赞一下 回复此楼
7楼2011-11-03 14:30:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

totoymy

铜虫 (小有名气)
引用回帖:
1楼: Originally posted by totoymy at 2011-11-02 21:26:25:
程序如下：
MODULE PARA
IMPLICIT NONE

INTEGER*4, PARAMETER:: Ndim=12   

REAL,DIMENSION(Ndim,5):: pp

INTEGER*4::NOUT

END MODULE PARA

PROGRAM CM
USE PARA
IMPLICIT NONE

INTEGER::  ...

纳秒，就是每一步是10的-7次方秒，一共走到10的-5次方秒，一共100下.关键是不会设置啊~
赞一下 回复此楼
8楼2011-11-03 14:32:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

totoymy

铜虫 (小有名气)
引用回帖:
4楼: Originally posted by snoopyzhao at 2011-11-03 12:09:23:
很显然可以循环，这种循环没有次数限制，用 exit 退出，读文件，我一般都用这种循环……

嗯，嘿嘿~~
回复此楼
9楼2011-11-03 14:33:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
引用回帖:
8楼: Originally posted by totoymy at 2011-11-03 14:32:42:
纳秒，就是每一步是10的-7次方秒，一共走到10的-5次方秒，一共100下.关键是不会设置啊~

为什么要这么做？这样做的好处是啥？
赞一下 回复此楼
10楼2011-11-03 14:40:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 totoymy 的主题更新
141/2返回列表12下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 08工学调剂 +6 用户573181 2026-03-20 10/500 2026-03-23 11:04 by 用户573181
[考研] 310求调剂 +4 baibai1314 2026-03-16 4/200 2026-03-22 20:19 by edmund7
[考研] 一志愿武理材料工程348求调剂 +5 ￣^￣゜汗 2026-03-19 7/350 2026-03-22 19:44 by 公瑾逍遥
[考研] 289材料与化工（085600）B区求调剂 +3 这么名字咋样 2026-03-22 4/200 2026-03-22 17:56 by 云民大李老师
[考研] 354求调剂 +7 Tyoumou 2026-03-18 10/500 2026-03-22 11:11 by 人来盛
[考研] 资源与环境 调剂申请(333分) +5 holy J 2026-03-21 5/250 2026-03-21 22:42 by Catalysis25
[考研] 求调剂 +3 .m.. 2026-03-21 4/200 2026-03-21 16:25 by barlinike
[考研] 265求调剂 +12 梁梁校校 2026-03-19 14/700 2026-03-21 13:38 by lature00
[考研] 材料学学硕080502 337求调剂-一志愿华中科技大学 +4 顺顺顺mr 2026-03-18 5/250 2026-03-21 10:22 by luoyongfeng
[考研] 一志愿天津大学化学工艺专业（081702）315分求调剂 +12 yangfz 2026-03-17 12/600 2026-03-21 03:30 by JourneyLucky
[考研] 一志愿华中科技大学，080502，354分求调剂 +5 守候夕阳CF 2026-03-18 5/250 2026-03-21 01:06 by JourneyLucky
[考研] 304求调剂 +6 曼殊2266 2026-03-18 6/300 2026-03-21 00:32 by JourneyLucky
[考研] 求调剂一志愿南京航空航天大学289分 +3 @taotao 2026-03-19 3/150 2026-03-20 21:34 by JourneyLucky
[考研] 材料学硕297已过四六级求调剂推荐 +11 adaie 2026-03-19 11/550 2026-03-20 21:30 by laoshidan
[考研] 一志愿西南交通 专硕 材料355 本科双非 求调剂 +5 西南交通专材355 2026-03-19 5/250 2026-03-20 21:10 by JourneyLucky
[考研] 一志愿西安交通大学 学硕 354求调剂211或者双一流 +3 我想要读研究生 2026-03-20 3/150 2026-03-20 20:13 by JourneyLucky
[考研] 一志愿吉林大学材料学硕321求调剂 +11 Ymlll 2026-03-18 15/750 2026-03-20 19:40 by 丁丁*
[考研] 工科材料085601 279求调剂 +7 困于星晨 2026-03-17 9/450 2026-03-20 17:38 by 无懈可击111
[考研] 320求调剂0856 +3 不想起名字112 2026-03-19 3/150 2026-03-19 22:53 by 学员8dgXkO
[考研] 286求调剂 +6 lemonzzn 2026-03-16 10/500 2026-03-19 14:31 by lemonzzn
信息提示
关闭
请填处理意见
关闭