DEFPARAM CUMULATEORDERS = False
//CandleStick Analysis Tool
//
CloseLevel = A4 //Close price as % of Range
BodyLevel = A5 //Total body size as % of Range
ATRPeriod = A6 //Period to be used for ATR Rising filter
Spread = 4 //Spread for market being analysed
ATROn = 0 //Tick to apply ATRRising filter within analyse
//
//CandleStick Analysis Tool can be used to analyse the effect that candlestick bodysize and close position within range has on the next candle closing in the same direction. An AverageTrue Range filter can also be applied to analyse the benefits or disadvantage of this. The Equity +/- is calculated on close of position after one candle. Spread is deducted from each position.
//Average True Range Calculation
ATR = AveragetrueRange[ATRPeriod]
ATRRising = ATR[1] < ATR
//Body % Calculation
BodyPerc = ((ABS(close[1] - open[1]))/(High[1]-Low[1]))*100
//Close % Calculation
IF close[1] > Open[1] THEN
ClosePerc = ((Close[1] - Low[1])/(High[1] - Low[1]))*100
ENDIF
IF close[1] < Open[1] THEN
ClosePerc = ((High[1] - Close[1])/(High[1] - Low[1]))*100
ENDIF
//Analysis including ATR Filter
IF ATROn THEN
//Up Candle followed by Up Candle
IF BodyPerc > BodyLevel and close[1] > open[1] and close > close[1] and ClosePerc > CloseLevel and ATRRising THEN
Win = Win + 1
Count = Count + 1
Amount = Amount + ((Close - close[1])-Spread)
ENDIF
//Up Candle followed by Down Candle
IF BodyPerc > BodyLevel and close[1] > open[1] and close < close[1] and ClosePerc > CloseLevel and ATRRising THEN
Count = Count + 1
Amount = Amount - ((Close[1] - close)+Spread)
ENDIF
//Down Candle followed by Down Candle
IF BodyPerc > BodyLevel and close[1] < open[1] and close < close[1] and ClosePerc > CloseLevel and ATRRising THEN
Win = Win + 1
Count = Count + 1
Amount = Amount + ((Close[1] - close)-Spread)
ENDIF
//Down Candle followed by Up Candle
IF BodyPerc > BodyLevel and close[1] < open[1] and close > close[1] and ClosePerc > CloseLevel and ATRRising THEN
Count = Count + 1
Amount = Amount - ((Close - close[1])+Spread)
ENDIF
//Analysis without ATR Filter
ELSE
//Up Candle followed by Up Candle
IF BodyPerc > BodyLevel and close[1] > open[1] and close > close[1] and ClosePerc > CloseLevel THEN
Win = Win + 1
Count = Count + 1
Amount = Amount + ((Close - close[1])-Spread)
ENDIF
//Up Candle followed by Down Candle
IF BodyPerc > BodyLevel and close[1] > open[1] and close < close[1] and ClosePerc > CloseLevel THEN
Count = Count + 1
Amount = Amount - ((Close[1] - close)+Spread)
ENDIF
//Down Candle followed by Down Candle
IF BodyPerc > BodyLevel and close[1] < open[1] and close < close[1] and ClosePerc > CloseLevel THEN
Win = Win + 1
Count = Count + 1
Amount = Amount + ((Close[1] - close)-Spread)
ENDIF
//Down Candle followed by Up Candle
IF BodyPerc > BodyLevel and close[1] < open[1] and close > close[1] and ClosePerc > CloseLevel THEN
Count = Count + 1
Amount = Amount - ((Close - close[1])+Spread)
ENDIF
ENDIF
//Win Rate as %
WinRate = (Win/Count) * 100
If WinRate > A88 Then
Buy at Market
Endif
If longonmarket and barindex > Tradeindex + A92 and positionperf > 0 Then
Sell at market
endif
//Return WinRate coloured (0,0,0) Style(Line,2) as "Win Rate", Win coloured (0,255,0) Style(Line,1) as "Wins", Count coloured (255,0,0) Style(Line,1) as "Bets", Amount coloured (0,0,255) Style(Line,1) as "Equity +/-"
.
