31.07.2021 Views

Ultimate Algorithmic Trading System

Using automated systems for trading in stock markets

Using automated systems for trading in stock markets

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

308

EXCEL SYSTEM BACKTESTER

If (kVal + dVal + dSloVal = 0) Then

’seed the original Sto Value

For i = 1 To dLen + dSloLen - 1

hh = 0

ll = 999999

For k = indexPt - (index1 - (i - 1)) To

indexPt - (index2 - (i - 1))

If (myHigh(k) > hh) Then hh = myHigh(k)

If (myLow(k) < ll) Then ll = myLow(k)

Next k

If (hh - ll = 0) Then hh = ll + 1

kSto(i) = (myClose(indexPt - (index2 - (i - 1)))

- ll) / (hh - ll) * 100#

kVal = kSto(i)

If (i > dLen) Then

sum = 0#

For j = i - 2 To i

sum = sum + kSto(j)

Next j

dSto(i) = sum / dLen

dVal = dSto(i)

End If

If (i >= dLen + dSloLen - 1) Then

sum = 0#

For j = i - 2 To i

sum = sum + dSto(j)

Next j

dSloVal = sum / dSloLen

End If

Next i

Else

hh = 0

ll = 999999

For i = indexPt - (kLen - 1) To indexPt

If (myHigh(i) > hh) Then hh = myHigh(i)

If (myLow(i) < ll) Then ll = myLow(i)

Next i

kVal = (myClose(indexPt) - ll) / (hh - ll) * 100

dVal = ((dVal * (dLen - 1)) + kVal) / dLen

dSloVal = ((dSloVal * (dSloLen - 1)) + dVal) / dSloLen

End If

End Sub

www.rasabourse.com

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!