陶小凡-
Determines order statistics.
确定顺序统计
Single: CALL ORDST (NOBS, X, NOS, IOPT, IOS, OS, NMISS)
Double: The double precision name is DORDST.
例：
USE ORDST_INT
USE UMACH_INT
USE WRRRN_INT
USE AMACH_INT
IMPLICIT NONE
INTEGER NOBS, NOS
PARAMETER (NOBS=30, NOS=5)
!
INTEGER NMISS, NOUT
REAL OS(NOS), X(NOBS)
!
DATA X/0.77, 1.74, 0.81, 1.20, 1.95, 1.20, 0.47, 1.43, 3.37, &
2.20, 3.00, 3.09, 1.51, 2.10, 0.52, 1.62, 1.31, 0.32, 0.59, &
0.81, 2.81, 1.87, 1.18, 1.35, 4.75, 2.48, 0.96, 1.89, 0.90, &
2.05/
!
CALL UMACH (2, NOUT)
CALL ORDST (X, NOS, OS, NMISS)
CALL WRRRN ("First five order statistics:", OS, 1, NOS, 1)
WRITE (NOUT,99999) NMISS
99999 FORMAT (" There are", I2, " missing values.")
END
Generates pseudorandom numbers from a chi-squared distribution.
从卡方分布生成伪随机数
Single: CALL RNCHI (NR, DF, R)
Double: The double precision name is DRNCHI.
例：
USE RNCHI_INT
USE UMACH_INT
USE RNSET_INT
IMPLICIT NONE
INTEGER ISEED, NOUT, NR
REAL DF, R(5)
!
CALL UMACH (2, NOUT)
DF = 5.0
NR = 5
ISEED = 123457
CALL RNSET (ISEED)
CALL RNCHI (DF, R)
WRITE (NOUT,99999) R
99999 FORMAT (" Chi-squared random deviates with 5 df: ", 5F7.3)
END
Generates pseudorandom numbers from a Student"s t distribution.
从学生的t分布生成伪随机数
Single: CALL RNSTT (NR, DF, R)
Double: The double precision name is DRNSTT.
例：
USE RNSTT_INT
USE UMACH_INT
USE RNSET_INT
IMPLICIT NONE
INTEGER NR
PARAMETER (NR=5)
!
INTEGER ISEED, NOUT
REAL DF, R(NR)
!
CALL UMACH(2, NOUT)
DF = 10.0
ISEED = 123457
CALL RNSET(ISEED)
CALL RNSTT(DF, R)
WRITE(NOUT, 99999) R
99999 FORMAT (" t (10) random deviates: ", 5F8.4)
END
分享好知识！