I implemented my ideas of peak and bottom RSI undercuts today in the form of plots, as follows:

for (i = 500 ; i >= 0; i–) {
if(RSI8[i+1]>highrsi && RSI8[i]<highrsi && iFractals(Symbol(),0,MODE_UPPER,i+1) ){
ObjectCreate(“txr 30″+High[i+1], OBJ_TEXT, 0, Time[i+1], High[i+1]+.0003);
ObjectSetText(“txr 30″+High[i+1], “85”, 32, “Arial Black”, Orange);

ObjectCreate(“txr 30″+High[i], OBJ_TEXT, 0, Time[i+1], High[i+1]+.0014);
ObjectSetText(“txr 30″+High[i], “r8/S:”+DoubleToStr(NormalizeDouble(High[i+1]+60*Point,5),4), 32, “Arial Black”, Orange);
}

if(RSI8[i+1]>highrsi+5 && RSI8[i]<highrsi+5 ){
ObjectCreate(“txr 30″+High[i+1], OBJ_TEXT, 0, Time[i+1], High[i+1]+.0023);
ObjectSetText(“txr 30″+High[i+1], “90”, 32, “Arial Black”, Orange);

ObjectCreate(“txr 30″+High[i], OBJ_TEXT, 0, Time[i+1], High[i+1]+.0054);
ObjectSetText(“txr 30″+High[i], “r8/S:”+DoubleToStr(NormalizeDouble(High[i+1]+360*Point,5),4), 32, “Arial Black”, Orange);
}

if(RSI8[i+1]<lowrsi && RSI8[i]>lowrsi && iFractals(Symbol(),0,MODE_LOWER,i+1) ){
ObjectCreate(“txr 30″+Low[i+1], OBJ_TEXT, 0, Time[i+1], Low[i+1]-.0003);
ObjectSetText(“txr 30″+Low[i+1], “15”, 32, “Arial Black”, Orange);

ObjectCreate(“txr 30″+Low[i], OBJ_TEXT, 0, Time[i+1], Low[i+1]-.0014);
ObjectSetText(“txr 30″+Low[i], “r8/B:”+DoubleToStr(NormalizeDouble(Low[i+1]-60*Point,5),4), 32, “Arial Black”, Orange);

}

if(RSI8[i+1]<lowrsi-5 && RSI8[i]>lowrsi-5 ){
ObjectCreate(“txr 30″+Low[i+1], OBJ_TEXT, 0, Time[i+1], Low[i+1]-.0003);
ObjectSetText(“txr 30″+Low[i+1], “10”, 32, “Arial Black”, Orange);

ObjectCreate(“txr 30″+Low[i], OBJ_TEXT, 0, Time[i+1], Low[i+1]-.0014);
ObjectSetText(“txr 30″+Low[i], “r8/B:”+DoubleToStr(NormalizeDouble(Low[i+1]-120*Point,5),4), 32, “Arial Black”, Orange);

}

}

where lowrsi is 15, highrsi is 82