sclass PullbackToProfitAnalysis is Swingable {
  settable double pullbackLimit = 1.0;
  settable double adversity = 0.2;
  settable boolean isShort;
  settable TickerSequence ticker;
  settable long startTime;
  settable L<PullbackToProfit> ptpList;
  settable double openingPrice;
  
  double priceToProfit(double price) {
    var profit = asPercentIncrease(price, openingPrice());
    if (isShort()) profit = neg(profit);
    ret profit.minus(adversity());
  }
  
  run {
    if (notNull(ptpList())) ret null;
    if (startTime().eq(0L)) startTime = ticker().startTime();
    var idx1 = ticker().indexOfTimestamp(
        startTime());
    openingPrice(ticker().getPrice(idx1));
    var crest = 0.0; //negativeInfinity
    var maxPullback = 0.0;
      
    ptpList = new ArrayList();
    
        //printVars +idx1 "tickerSize" (ticker size) +openingPrice
    var it = countIterator(idx1, ticker().size());
    ret while hasNext it {
          idx <- it next
          price <- ticker getPrice idx
          time <- ticker getTimestamp idx
          profit <- priceToProfit price
          
          crest <- max crest profit
          pullback <- crest minus profit
          maxPullback <- max maxPullback pullback
    
          if greaterOrEq maxPullback pullbackLimit {
            printConcat "Ending at pullback " maxPullback " (" (formatMinutes < time minus startTime) ")"
            it <- null; continue
          }
        
          result <- new PullbackToProfit, startTime startTime,
            pullback maxPullback, profit (crest minus maxPullback),
            timestamp time
          if nempty ptpList {
            prev <- last ptpList
            r1 <- result replaces prev
            r2 <- prev replaces result
            if r2 { result <- null } else if r1 { popLast ptpList }
          }
          addIfNotNull ptpList result
        };
  }
  
  JComponent visualize() {
    run();
    var endTime = last(ptpList()).timestamp();
    var diff = endTime.minus(
        startTime());
    endTime = toLong(startTime().plus(diff.mul(2)));
    var shortenedTicker = ticker().subSequenceByTimestamps(startTime(), endTime);
    var painter = new TickerGraphPainter();
    fOr (result : ptpList()) {
      painter.addVerticalLine(result.timestamp())
    }
        
    var graph = jTickerView shortenedTicker painter;
    ret jvsplit(graph, jText(lines(ptpList())));
  }
  
  Object cutOffAfterMinutes(Object minutes) {
    run();
    var timestamp = startTime().plus(fromMinutes(minutes));
    var ptp = firstThat(ptpList(), ptp -> ptp.timestamp().greaterOrEq(timestamp));
    if (isNull(ptp)) ret null;
    var price = ticker().priceAtTimestamp(timestamp);
    var profit = priceToProfit(price);
    ret new PullbackToProfit().startTime(startTime()).pullback(ptp.pullback()).profit(profit).timestamp(timestamp);
  }
  
  double maxCleanness() {
    run();
    ret doubleMax(map(ptpList(), ptp -> ptp.cleanness());
  }
  
  PullbackToProfit cleanestPTP() {
    run();
    ret highestBy(ptpList(), ptp -> ptp.cleanness());
  }
}