Sub Hurst()
'变量和数组的定义
Dim Data()
Dim Array1()
Dim Array2()
Dim R()
Dim S()
Dim Result()
Dim NoOfDataPoints As Integer
Dim NoOfPlottedPoints As Integer
Dim NoOfPeriods
Dim PeriodNo
DimnAsInteger
DimAAsInteger
DimiAsInteger
Dim m
Dim e
Dim RS
'验证A列中是否输入数据
If Worksheets("Sheet1").Range("A1").Value = 0 Then MsgBox ("请在A列输入数据!"): ExitSub
'清空主要的单元格
Worksheets("Sheet1").Range("B3").Value = "Hurst="
Worksheets("Sheet1").Range("C3").Value = Null
'统计数据的个数
i = 1
While i < 10000
i = i + 1
If Worksheets("Sheet1").Cells(i, 1).Value = 0 Then ExitDo
Loop
NoOfDataPoints = i - 1
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余3页未读,立即下载