| 查看: 1494 | 回复: 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，希望大家多多指教，不胜感激。 金币少了点，希望大家多多帮忙，谢谢！ |
回复此楼» 猜你喜欢
让我中一个面上吧！
已经有13人回复
-
看来今天不会放榜了？
已经有6人回复
-
人气不行了
已经有7人回复
-
今日不放榜？网传国自然预计 8 月 27 日可查结果
已经有18人回复
-
感觉是下周放榜了
已经有12人回复
-
我面上完蛋了
已经有8人回复
-
只有每年这种时候来逛逛小木虫
已经有25人回复
-
什么时候开奖？
已经有7人回复
-
时间戳又变了
已经有18人回复
-
时间戳又变了8-15
已经有27人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 新手请教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
- 专业: 化学反应工程
5楼2012-08-27 20:00:41
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
40