| 查看: 359 | 回复: 0 | |||
[交流]
随机数生成
|
|
请教大神，这个生成随机数的代码里的J是干嘛的？ 我运行时J总是小于零（等于-2405）导致程序暂停，按回车键后报错 C RANDOM NUMBER GENERATORS: C C RAN2(IDUM) RETURNS A UNIFORM RANDOM NUMBER ON (0,1). C THE ROUTINE IS FROM: PRESS, W.H., B.P. FLANNERY, S.A. C TEUKOLSKY, AND W.T. VETTERLING. 1987. NUMERICAL RECIPES. C CAMBRIDGE UNIVERSITY PRESS, CAMBRIDGE. C FUNCTION RAN2(IDUM) DIMENSION IR(97) DATA M/714025/ DATA IA/1366/ DATA IC/150889/ DATA IFF/0/ RM=1.0/FLOAT(M) IF (IDUM.LT.0.OR.IFF.EQ.0) THEN IFF=1 IDUM=MOD(IC-IDUM,M) DO 11 J=1,97 IDUM=MOD(IA*IDUM+IC,M) IR(J)=IDUM 11 CONTINUE IDUM=MOD(IA*IDUM+IC,M) IY=IDUM ENDIF J=1+(37*IY)/M IF (J.GT.97.OR.J.LT.1) PAUSE IY=IR(J) RAN2=IY*RM IDUM=MOD(IA*IDUM+IC,M) IR(J)=IDUM RETURN END 超级感谢！！！！！！！ |
回复此楼» 猜你喜欢
孩子确诊有中度注意力缺陷
已经有9人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
-
2026博士申请-功能高分子，水凝胶方向
已经有6人回复
-
论文投稿，期刊推荐
已经有4人回复
-
硕士和导师闹得不愉快
已经有13人回复
-
请问2026国家基金面上项目会启动申2停1吗
已经有5人回复
-
同一篇文章，用不同账号投稿对编辑决定是否送审有没有影响？
已经有3人回复
