'********************************
' Channel Breakout Filtered by Equity of Channel Breakout
' This system trades a virtual channel breakout which takes all trades and filters the
' performance of the actual live system. It only takes a trade if the previous trade
' for the virtual system lost money
' TradersStudio(r) 2004 , All rights reserved
Sub ChannelWithFilters(SLen as integer)
Dim MinMove
Dim TrProfit
Dim LowPrice as double
Dim HighPrice as double
LowPrice=Lowest(low,SLen,0)
HighPrice=Highest(high,SLen,0)
MinMove=GetActiveMinMove()
' Take a trade for the virtual system
VirtualBuy("ChanBuy",1,HighPrice+MinMove ,STOP,DAY)
VirtualSell("ChanSell",1,LowPrice-MinMove,STOP,DAY)
' If the virtual system has at least two trades
if VirLiveTradeCount()>2 then
' Trade 0 is the last completed trade, Trade 1 would be two closed trades ago
TrProfit=VirTradeProfit(0)
' If last trade in virtual system lost money then trade a real trade
if TrProfit<0 then
Buy("ChanBuy",1,HighPrice+MinMove ,STOP,DAY)
Sell("ChanSell",1,LowPrice-MinMove,STOP,DAY)
else
' Just exit the old trade and don't start a new one
ExitLongallpos("XBuyBrk","ChanBuy",LowPrice-MinMove,STOP,DAY)
ExitShortallpos("XSellBrk","ChanSell",HighPrice+MinMove,STOP,DAY)
end if
end if
end Sub
What does it say about TA & back-testing?
