| 查看: 1328 | 回复: 8 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
19870617木虫 (著名写手)
|
[求助]
新手请教最大值输出问题
|
||
|
自己编的很小的一段程序 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，希望大家多多指教，不胜感激。 金币少了点，希望大家多多帮忙，谢谢！ |
回复此楼» 猜你喜欢
二次调剂求老师收留
已经有3人回复
-
349学科化学045106求调剂，化学类都可以
已经有5人回复
-
一志愿0807 数一英一 313 有没有二轮调剂
已经有6人回复
-
求调剂，262机械专硕
已经有5人回复
-
286求调剂
已经有15人回复
-
0860004 求调剂 309分
已经有3人回复
-
材料类284调剂
已经有20人回复
-
调剂
已经有11人回复
-
考研调剂-材料类-284
已经有13人回复
-
复试调剂，一志愿郑州大学材料与化工289分
已经有13人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 新手请教MATLAB函数做图问题，非常感谢
已经有3人回复
- 新手提RNA，请教几个问题
已经有8人回复
- 我是新手想请教一个关于细胞铺板的问题
已经有4人回复
- 从来没测过荧光，请教测荧光的步骤是什么？那个数值能说明什么问题？
已经有5人回复
- ganssian新手，请教高手。看谁能回答我这个问题
已经有13人回复
- 【求助】请教从电子顺磁光谱EPR谱图如何得知g值？
已经有12人回复
- 【原创】值得去吗？怎么去？请教。--*续---不期而遇*
已经有17人回复
- 【求助】请教vasp如何使本征值按每条能带输出
已经有18人回复
- 【请教】请教缺省值问题
已经有8人回复
- 【请教】Z值等于1和等于2时，分子式有什么不同？
已经有9人回复
- 【请教】关于化学式和Z值的异常取值问题
已经有5人回复
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,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这样用对嘛？ |
7楼2012-08-27 21:54:47
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2012-08-27 17:56:59
19870617
木虫 (著名写手)
- 应助: 16 (小学生)
- 金币: 8158.7
- 散金: 1261
- 红花: 12
- 帖子: 1191
- 在线: 532.1小时
- 虫号: 564696
- 注册: 2008-05-27
- 专业: 化学反应工程
3楼2012-08-27 18:30:01
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2012-08-27 19:01:09
