24小时热门版块排行榜

返回列表

nll1989

新虫 (著名写手)

应助: 0 (幼儿园)
金币: 8346.6
散金: 6
帖子: 1573
在线: 146.7小时
虫号: 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 的主题更新

返回列表