Welcome, Derrick1983 for your kind words. Am providing with one more simple translation as below.
The original TradeStation code is here, http://www.tssupport.com/support/base/?action=article&id=1324
Please let me know if you have any queries?
The original TradeStation code is here, http://www.tssupport.com/support/base/?action=article&id=1324
Code:
Sub Reversal123()
Dim VALUE1 As BarArray
Dim VALUE2 As BarArray
Dim CONDITION1 As BarArray
Dim CONDITION2 As BarArray
Dim CONDITION3 As BarArray
Dim CONDITION4 As BarArray
Dim CONDITION5 As BarArray
Dim CONDITION6 As BarArray
Dim CONDITION7 As BarArray
Dim VALUE1CONDITION8 As BarArray
Dim CONDITION8 As BarArray
If BarNumber=FirstBar Then
VALUE1 = 0
VALUE2 = 0
CONDITION1 = 0
CONDITION2 = 0
CONDITION3 = 0
CONDITION4 = 0
CONDITION5 = 0
CONDITION6 = 0
CONDITION7 = 0
VALUE1CONDITION8 = 0
CONDITION8 = 0
End If
VALUE1=SlowK(9, 0)
VALUE2=SlowD(9, 0)
CONDITION1=CLOSE[2] < CLOSE[1]
CONDITION2=CLOSE > CLOSE[1]
CONDITION3=VALUE1>VALUE1[1]
CONDITION4=VALUE2<50
CONDITION5=CLOSE[1]>CLOSE[2]
CONDITION6=CLOSE50
If CONDITION1 AND CONDITION2 AND CONDITION3 AND CONDITION4 Then
Buy("", 1, 0, Market, Day)
End If
If CONDITION5 AND CONDITION6 AND CONDITION7 AND CONDITION8 Then
Sell("", 1, 0, Market, Day)
End If
End Sub
Please let me know if you have any queries?
