建议你用R语言做
给个例子:
library(tseries)
x<-scan( )
15.89 15.70 15.30 15.87 14.08 15.06 15.24 15.70
13.60 15.51 16.42 11.07 14.17 13.83 13.28 12.96
13.88 14.20 14.78 13.00 14.50 15.66 15.12 15.02
m<-mean(x)
N<-length(x)
y<-x
for(k in 1:N) if (y[k]<=m) y[k]=-1 else y[k]=1
z<-factor(y)
runs.test(z)