| 查看: 1287 | 回复: 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，希望大家多多指教，不胜感激。 金币少了点，希望大家多多帮忙，谢谢！ |
回复此楼» 猜你喜欢
26考研求调剂
已经有6人回复
-
求调剂，总分315，考的生物医药，一志愿湖南师范大学。调剂到任何专业都可以
已经有5人回复
-
085600材料与化工求调剂
已经有3人回复
-
311求调剂
已经有7人回复
-
303求调剂
已经有3人回复
-
有没有道铁/土木的想调剂南林，给自己招师弟中～
已经有7人回复
-
梁成伟老师课题组欢迎你的加入
已经有10人回复
-
一志愿苏州大学材料工程（085601）专硕有科研经历三项国奖两个实用型专利一项省级立项
已经有8人回复
-
070300化学319求调剂
已经有3人回复
-
一志愿天津大学化学工艺专业（081702）315分求调剂
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 新手请教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
