| 查看: 654 | 回复: 3 | |||
[求助]
内循环问题,求大虾帮忙
|
|
MODULE PARA IMPLICIT NONE INTEGER*4, PARAMETER:: Ndim=12 REAL,DIMENSION(Ndim,5):: pp INTEGER*4::NOUT END MODULE PARA PROGRAM CM USE MSIMSL USE PARA IMPLICIT NONE INTEGER:: i,j,k,m INTEGER::t real::x,y,z REAL*8::r REAL::s OPEN (11, file='input.txt') READ(11,*) ((pp(i,j),j=1,4),i=1,Ndim) close(11) t=1 DO while (t<=100) call random_seed() call random_number(r) k=1 do while(k<=Ndim) s=s+pp(k,4) m=s-pp(k,4) if (m y=y+pp(k,2) z=z+pp(k,3) open(12,file="result.txt",access='append') write(12,*) x,y,z,t,k,r close(12) end if k=k+1 enddo t=t+1 if (t>100) exit enddo ENDPROGRAM 大意就是生成100次随机数,并归属每一个随机数的范围,若属于某特定范围,则对其坐标进行累计加和。。求高手啊高手~~数值见附件, |
» 猜你喜欢
085700资源与环境308求调剂
已经有7人回复
265求调剂
已经有5人回复
279分求调剂 一志愿211
已经有3人回复
求调剂
已经有3人回复
一志愿吉林大学材料学硕321求调剂
已经有12人回复
286分人工智能专业请求调剂愿意跨考!
已经有3人回复
329求调剂
已经有5人回复
申请回稿延期一个月,编辑同意了。但系统上的时间没变,给编辑又写邮件了,没回复
已经有4人回复
材料学硕318求调剂
已经有5人回复
一志愿中国海洋大学,生物学,301分,求调剂
已经有6人回复
» 本主题相关价值贴推荐,对您同样有帮助:
关于数学符号的问题?请教大虾
已经有16人回复
杂志选择问题,跪求大虾帮助
已经有7人回复
一个脱苄问题,向各位大虾求助
已经有33人回复
急求一个有机合成问题,取代反应,请各位大虾帮忙!虫虫没有金币了,只散30个金币……
已经有11人回复
请问下BET大虾有关滞后环的问题
已经有5人回复
辰华CHI660C测试扣式锂电池循环伏安电流总是显示很大,安级,请教大虾
已经有6人回复
【求助】关于未知树状结构存储的问题?请大虾指教!
已经有11人回复
【求助】各位大虾们,请教酰化试剂溶解性质的问题,谢谢啦
已经有12人回复
【求助】请教各位大虾,有关环氧胶黏剂脱粘的问题
已经有9人回复
【求助】看文献中遇到一个问题,请教各位大虾!
已经有10人回复
急求环境专业的翻译大虾帮忙翻译下 中文翻译成英文
已经有2人回复
【求助】小妹求助各位大虾红外分析相对强度问题
已经有15人回复
【求助】求教橡胶表面处理问题,大虾们帮帮忙啊!
已经有6人回复
【求助】过柱子的问题,请各位大虾帮帮忙,谢谢了!
已经有22人回复
【求助】培养单晶的大虾来帮帮忙啊
已经有21人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2011-10-28 16:41:50
3楼2011-10-30 12:53:52
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2011-10-30 13:18:46













回复此楼
10