24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

19870617

木虫 (著名写手)

应助: 16 (小学生)
金币: 8158.7
散金: 1261
红花: 12
帖子: 1191
在线: 532.1小时
虫号: 564696
注册: 2008-05-27
专业: 化学反应工程

[求助] 新手请教最大值输出问题

自己编的很小的一段程序


program main
implicit none
integer :: n,i
real(8) ::pi,u1,u2,r
pi=3.1415926535
call random_seed ()
n=1000
do i=1,n
call random_number(u1)
call random_number(u2)
r=sqrt(-log(u1))*cos(2*pi*u2)
print *,r
enddo
end
现在我想把r的值存储到一个数组当中，以后每次调用数组中的一个r值，并输出数组中随机生成的r的最大值，请问大侠该如何编写，刚刚学习FORTRAN，希望大家多多指教，不胜感激。
金币少了点，希望大家多多帮忙，谢谢！

回复此楼

» 猜你喜欢

投稿返修后收到这样的回复，还有希望吗已经有7人回复
压汞仪和BET测气凝胶孔隙率已经有4人回复
博士申请都是内定的吗？已经有14人回复
博士申请已经有3人回复
谈谈两天一夜的“延安行” 已经有13人回复
氨基封端PDMS和HDI反应快速固化已经有11人回复
之前让一硕士生水了7个发明专利，现在这7个获批发明专利的维护费可从哪儿支出哈？已经有11人回复
论文投稿求助已经有4人回复
Applied Surface Science 这个期刊。有哪位虫友投过的能把word模板发给我参考一下嘛已经有3人回复
投稿精细化工已经有6人回复

» 本主题相关价值贴推荐，对您同样有帮助:

1楼2012-08-27 17:23:44

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

19870617

木虫 (著名写手)

应助: 16 (小学生)
金币: 8158.7
散金: 1261
红花: 12
帖子: 1191
在线: 532.1小时
虫号: 564696
注册: 2008-05-27
专业: 化学反应工程

引用回帖:

6楼: Originally posted by snoopyzhao at 2012-08-27 20:07:45
把完整的代码贴出来吧……...

您好！源码是这样的
program main
   implicit none
   integer :: n,i
   real(8) ::pi,u1,u2,maxr
   real(8) :: r(1)
pi=3.1415926535
   call random_seed ()
   n=1000
do i=1,n
   call random_number(u1)
   call random_number(u2)
   r=sqrt(-log(u1))*cos(2*pi*u2)
   print *,r
   enddo
   maxr=maxval(r)
   print *,"the largest is",maxr
end

输出现在是1列了，但是求最大值的时候输出的maxr是最后一个r值，而不是最大值，请问maxval这样用对嘛？