<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_8suu8ph0g2nkvhkklgo1ufkj31, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
concept JuiceStrategy extends G22TradingStrategy {
  persistable class Position extends G22TradingStrategy.Position {
    settable AbstractJuicer juicer;
  }
  
  srecord ProfitBeforeLeverageJuiceable(Position p) is Juiceable {
    public double juiceValue() { ret p.profitBeforeLeverage(); }
  }
  
  void price(double price) {
    if (currentPrice == price) ret;
    currentPrice = price;
    afterwards { change(); }
    
    for (p : openPositions()) {
      cast p to Position;
      
      if (p.juicer != null) {
        var signals = p.juicer.calculateCloseSignals();
        var strongest = highestBy(signals, s -> s.strength());
        if (strongest != null && strongest.isTrigger()) {
          p.close(strongest);
        }
      }
    }
  }
  
  Position openShort() { ret openPosition(-1); }
  Position openLong() { ret openPosition(1); }
  
  Position openPosition(int direction) {
    new Position p;
    p.marginToUse = marginPerPosition;
    addJuicer(p);
    ret openPosition(p, direction);
  }
  
  void addJuicer(Position p) {
    p.juicer(makeJuicer());
    p.juicer.juiceable(new ProfitBeforeLeverageJuiceable(p));
  }
  
  swappable AbstractJuicer makeJuicer() {
    ret new StopLossJuicer;
  }
  
  void recreateJuicersForExistingPositions() {
    for (p : cloneList(openPositions()))
      addJuicer(p);
  }
}