| 查看: 524 | 回复: 0 | ||||
[交流]
想实现对给定平均值及方差的正态分布的随机数列，程序运行报错
|
|
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编程绘图 |
» 猜你喜欢
博士去二本高校当辅导员，如何调整心态？
已经有10人回复
-
面上有专家说实验设备不是我们单位的
已经有6人回复
-
27细胞生物学申博
已经有5人回复
-
江苏省自然基金 什么时候出结果
已经有6人回复
-
广西大学-广州大学招聘博士后 欢迎广大优秀人才！！！
已经有11人回复
-
闲聊
已经有3人回复
-
如何查询2026年获批项目名称？
已经有3人回复
-
两块石头
已经有10人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有15人回复
-
面上没中，邀请各位路过的虫友分析一下分数
已经有13人回复