#Wide Ranging Days
#Introduced by danB
#Coded by Svanoy
input length = 10;
input averageType = AverageType.WILDERS;
input Days_Before = 1;
input Days_After = 2;
def WideRangingDay = TrueRange(high, close, low) / ATR(length, averageType) > 1.6;
def Signal = if IsNaN(close[Days_After]) then Signal[Days_After] else WideRangingDay[Days_After];
def ValidBarNumber = if !IsNaN(BarNumber()) then BarNumber() else ValidBarNumber[1];
def WideRangingDayStartBarID = if Signal then ValidBarNumber[Days_After + Days_Before] else WideRangingDayStartBarID[1];
def WideRangingDayEndBarID = if Signal then ValidBarNumber else WideRangingDayEndBarID[1];
def True_High = fold th = ValidBarNumber - WideRangingDayEndBarID
to ValidBarNumber - WideRangingDayStartBarID + 1
with THC = GetValue(high, ValidBarNumber - WideRangingDayEndBarID)
do if THC > GetValue(high, th) then THC else GetValue(high, th);
def True_Low = fold tl = ValidBarNumber - WideRangingDayEndBarID
to ValidBarNumber - WideRangingDayStartBarID + 1
with TLC = GetValue(low, ValidBarNumber - WideRangingDayEndBarID)
do if TLC < GetValue(low, tl) then TLC else GetValue(low, tl);
#AddChartBubble(WideRangingDay[Days_After],low,True_Low,color.white,no);
#AddChartBubble(WideRangingDay[Days_After],high,True_High,color.white,yes);
plot PTRH = True_High;
plot PTRL = True_Low;
plot UpSignal = if WideRangingDay then low else Double.NaN;
UpSignal.SetPaintingStrategy(PaintingStrategy.ARROW_UP);
UpSignal.SetDefaultColor(Color.CYAN);
input StartDate = 20220104;
def Days = DaysFromDate(StartDate);
AddCloud(if Days == 0 then Double.POSITIVE_INFINITY else Double.NaN, Double.NEGATIVE_INFINITY, Color.LIGHT_GRAY);
def price = close;
AddOrder(OrderType.BUY_AUTO, price crosses above PTRH and Days >= 0, tradeSize = 1, tickcolor = GetColor(0), arrowcolor = GetColor(0), name = "WideLong");
AddOrder(OrderType.SELL_AUTO, price crosses below PTRL and Days >= 0, tradeSize = 1, tickcolor = GetColor(0), arrowcolor = GetColor(0), name = "WideShort");
