?? d13r5.txt
字號:
Private Sub Command1_Click()
'PROGRAM D13R5
'Driver for routine AVEVAR
NPTS = 1000
EPS = 0.1
Dim DATA(1000)
'Generate Gaussian distributed data
IDUM& = -5
Print
Print Tab(5); "Shift Average Variance"
For I = 1 To 11
SHIFT = (I - 1) * EPS
For J = 1 To NPTS
DATA(J) = SHIFT + I * GASDEV(IDUM&)
Next J
Call AVEVAR(DATA(), NPTS, AVE, VAR)
Print Tab(5); Format$(SHIFT, "#.#0");
Print Tab(15); Format$(AVE, "#.#0");
Print Tab(24); Format$(VAR, "#.#0")
Next I
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -