using System;
using System.Collections.Generic;
using StockSharp.Algo.Indicators;
using StockSharp.Algo.Strategies;
using StockSharp.BusinessEntities;
using StockSharp.Messages;
namespace StockSharp.Samples.Strategies;
/// <summary>
/// RPM5 Bulls Bears Eyes strategy using Bull/Bear power with EMA filter.
/// Buy when bull power is positive and bear power crosses above threshold.
/// Sell when bear power is negative and bull power crosses below threshold.
/// </summary>
public class Rpm5BullsBearsEyesStrategy : Strategy
{
private readonly StrategyParam<int> _emaPeriod;
private readonly StrategyParam<int> _powerPeriod;
private readonly StrategyParam<DataType> _candleType;
private decimal _prevBull;
private decimal _prevBear;
private bool _hasPrev;
public int EmaPeriod { get => _emaPeriod.Value; set => _emaPeriod.Value = value; }
public int PowerPeriod { get => _powerPeriod.Value; set => _powerPeriod.Value = value; }
public DataType CandleType { get => _candleType.Value; set => _candleType.Value = value; }
public Rpm5BullsBearsEyesStrategy()
{
_emaPeriod = Param(nameof(EmaPeriod), 13)
.SetDisplay("EMA Period", "EMA trend period", "Indicators");
_powerPeriod = Param(nameof(PowerPeriod), 13)
.SetDisplay("Power Period", "Bulls/Bears power period", "Indicators");
_candleType = Param(nameof(CandleType), TimeSpan.FromHours(4).TimeFrame())
.SetDisplay("Candle Type", "Candle timeframe", "General");
}
/// <inheritdoc />
public override IEnumerable<(Security sec, DataType dt)> GetWorkingSecurities()
{
return [(Security, CandleType)];
}
/// <inheritdoc />
protected override void OnReseted()
{
base.OnReseted();
_prevBull = 0m;
_prevBear = 0m;
_hasPrev = false;
}
/// <inheritdoc />
protected override void OnStarted2(DateTime time)
{
base.OnStarted2(time);
_hasPrev = false;
var ema = new ExponentialMovingAverage { Length = EmaPeriod };
var bulls = new BullPower { Length = PowerPeriod };
var bears = new BearPower { Length = PowerPeriod };
var subscription = SubscribeCandles(CandleType);
subscription
.Bind(ema, bulls, bears, ProcessCandle)
.Start();
}
private void ProcessCandle(ICandleMessage candle, decimal emaValue, decimal bullValue, decimal bearValue)
{
if (candle.State != CandleStates.Finished)
return;
if (!_hasPrev)
{
_prevBull = bullValue;
_prevBear = bearValue;
_hasPrev = true;
return;
}
// Long: price above EMA, bull power positive, bear power crossing from negative to less negative
var longSignal = candle.ClosePrice > emaValue && bullValue > 0 && _prevBear < 0 && bearValue > _prevBear;
// Short: price below EMA, bear power negative, bull power crossing from positive to less positive
var shortSignal = candle.ClosePrice < emaValue && bearValue < 0 && _prevBull > 0 && bullValue < _prevBull;
if (Position <= 0 && longSignal)
{
if (Position < 0)
BuyMarket();
BuyMarket();
}
else if (Position >= 0 && shortSignal)
{
if (Position > 0)
SellMarket();
SellMarket();
}
_prevBull = bullValue;
_prevBear = bearValue;
}
}
import clr
clr.AddReference("StockSharp.Messages")
clr.AddReference("StockSharp.Algo")
clr.AddReference("StockSharp.Algo.Indicators")
clr.AddReference("StockSharp.Algo.Strategies")
from System import TimeSpan, Math
from StockSharp.Messages import DataType, CandleStates
from StockSharp.Algo.Indicators import ExponentialMovingAverage, BullPower, BearPower
from StockSharp.Algo.Strategies import Strategy
class rpm5_bulls_bears_eyes_strategy(Strategy):
"""RPM5 Bulls Bears Eyes strategy using Bull/Bear power with EMA filter.
Buy when price > EMA, bull power positive, bear power recovering.
Sell when price < EMA, bear power negative, bull power declining."""
def __init__(self):
super(rpm5_bulls_bears_eyes_strategy, self).__init__()
self._ema_period = self.Param("EmaPeriod", 13) \
.SetDisplay("EMA Period", "EMA trend period", "Indicators")
self._power_period = self.Param("PowerPeriod", 13) \
.SetDisplay("Power Period", "Bulls/Bears power period", "Indicators")
self._candle_type = self.Param("CandleType", DataType.TimeFrame(TimeSpan.FromHours(4))) \
.SetDisplay("Candle Type", "Candle timeframe", "General")
self._prev_bull = 0.0
self._prev_bear = 0.0
self._has_prev = False
@property
def CandleType(self):
return self._candle_type.Value
@CandleType.setter
def CandleType(self, value):
self._candle_type.Value = value
@property
def EmaPeriod(self):
return self._ema_period.Value
@property
def PowerPeriod(self):
return self._power_period.Value
def OnReseted(self):
super(rpm5_bulls_bears_eyes_strategy, self).OnReseted()
self._prev_bull = 0.0
self._prev_bear = 0.0
self._has_prev = False
def OnStarted2(self, time):
super(rpm5_bulls_bears_eyes_strategy, self).OnStarted2(time)
self._has_prev = False
ema = ExponentialMovingAverage()
ema.Length = self.EmaPeriod
bulls = BullPower()
bulls.Length = self.PowerPeriod
bears = BearPower()
bears.Length = self.PowerPeriod
subscription = self.SubscribeCandles(self.CandleType)
subscription.Bind(ema, bulls, bears, self._process_candle).Start()
def _process_candle(self, candle, ema_value, bull_value, bear_value):
if candle.State != CandleStates.Finished:
return
ema_val = float(ema_value)
bull_val = float(bull_value)
bear_val = float(bear_value)
close = float(candle.ClosePrice)
if not self._has_prev:
self._prev_bull = bull_val
self._prev_bear = bear_val
self._has_prev = True
return
# Long: price above EMA, bull power positive, bear power recovering from negative
long_signal = close > ema_val and bull_val > 0 and self._prev_bear < 0 and bear_val > self._prev_bear
# Short: price below EMA, bear power negative, bull power declining from positive
short_signal = close < ema_val and bear_val < 0 and self._prev_bull > 0 and bull_val < self._prev_bull
if self.Position <= 0 and long_signal:
if self.Position < 0:
self.BuyMarket()
self.BuyMarket()
elif self.Position >= 0 and short_signal:
if self.Position > 0:
self.SellMarket()
self.SellMarket()
self._prev_bull = bull_val
self._prev_bear = bear_val
def CreateClone(self):
return rpm5_bulls_bears_eyes_strategy()