24小时热门版块排行榜

返回列表

nll1989

新虫 (著名写手)

应助: 0 (幼儿园)
金币: 8231.4
散金: 6
帖子: 1539
在线: 145.5小时
虫号: 3528503
注册: 2014-11-10
专业: 果树学

[交流] 想实现对给定平均值及方差的正态分布的随机数列，程序运行报错

PROGRAM MAIN
DOUBLE PRECISION R
DIMENTION A(50)
R=3
U=1
G=1.5
N=50
WRITE(*,*)
CALL NGRNS(U,G,R,N,A)
WRITE(*,20) (A(I),I=1,50)
20 FORMAT (1X,5F10.6)

WRITE(*,*)
END

SUBROUTINE NGRNS(U,G,R,N,A)
DOUBLE PRECISION R,S,W,V,T
DIMENTION A(N)
S=65536.0
W=2053.0
V=13849.0
DO 20 J=1,N
T=0.0
DO 10 I=1,12
R=W*R+V
M=R/S
R=R-M*S
T=T+R/S
10 CONTINUE
A(J)=U+G*(T-6.0)
20 CONTINUE
RETURN
END

回复此楼

» 收录本帖的淘帖专辑推荐

matlab编程绘图

» 猜你喜欢

1楼 2015-08-15 14:14:24

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

相关版块跳转我要订阅楼主 nll1989 的主题更新

返回列表

最具人气热帖推荐 [查看全部]		作者	回/看	最后发表

[考研] 263求调剂 +6	yqdszhdap－ 2026-03-22	9/450	2026-03-23 12:57 by yqdszhdap－
[考研] 306求0703调剂一志愿华中师范 +6	纸鱼ly 2026-03-21	6/300	2026-03-23 12:08 by Iveryant
[考研] 考研化学308分求调剂 +5	你好明天你好 2026-03-23	6/300	2026-03-23 11:02 by 素颜倾城1988
[考研] 291求调剂 +5	孅華 2026-03-22	5/250	2026-03-23 09:20 by haoshis
[考研] 070300，一志愿北航320求调剂 +3	Jerry0216 2026-03-22	5/250	2026-03-23 09:16 by 。。堂堂
[考研] 352求调剂 +3	大米饭！ 2026-03-22	3/150	2026-03-22 23:28 by king123！
[考研] 298求调剂一志愿211 +3	上岸6666@ 2026-03-20	3/150	2026-03-22 15:50 by ColorlessPI
[考研] 318求调剂 +4	plum李子 2026-03-21	7/350	2026-03-22 14:17 by ColorlessPI
[考研] 考研调剂 +3	呼呼？~+123456 2026-03-21	3/150	2026-03-21 20:04 by 无际的草原
[考研] 一志愿南大，0703化学，分数336，求调剂 +3	收到VS 2026-03-21	3/150	2026-03-21 18:42 by 学员8dgXkO
[考研] 求调剂 +3	13341 2026-03-20	3/150	2026-03-21 18:28 by 学员8dgXkO
[考研] 265求调剂 +3	Jack?k?y 2026-03-17	3/150	2026-03-21 03:17 by JourneyLucky
[考研] 265求调剂 +9	梁梁校校 2026-03-17	9/450	2026-03-21 02:17 by JourneyLucky
[考研] 华东师范大学-071000生物学-293分-求调剂 +3	研究生何瑶明 2026-03-18	3/150	2026-03-21 01:30 by JourneyLucky
[考研] 295求调剂 +4	一志愿京区211 2026-03-18	6/300	2026-03-20 23:41 by JourneyLucky
[考研] 一志愿中海洋材料工程专硕330分求调剂 +8	小材化本科 2026-03-18	8/400	2026-03-20 23:16 by JourneyLucky
[考研] 一志愿南京航空航天大学大学，080500材料科学与工程学硕 +5	@taotao 2026-03-20	5/250	2026-03-20 20:16 by JourneyLucky
[考研] 一志愿吉林大学材料学硕321求调剂 +11	Ymlll 2026-03-18	15/750	2026-03-20 19:40 by 丁丁*
[考研] 085600材料与化工求调剂 +6	绪幸与子 2026-03-17	6/300	2026-03-19 13:27 by houyaoxu
[考研] 【同济软件】软件（085405）考研求调剂 +3	2026eternal 2026-03-18	3/150	2026-03-18 19:09 by 搏击518