[RT] Sup/Res indicator

[Dennis Holverstott <dennis@xxxxxxxxxx>]

I had several private requests to share my sup/res indicator. Sorry,
that one was written with a partner and I can't share it. However, here
is a simplified version. These are 2 indicators just typed into the
mailer and unverified but they should work. One plots the 4 most recent
high pivots and the other plots the 4 most recent low pivots. Making
stren bigger makes it harder for a high or low to qualify as a pivot. Be
sure to use a plot style of point or tick. Enjoy.

-- 
  Dennis


{******************************************************
indicator to plot the 4 most recent swinghigh pivots
dennis holverstott 2000
*******************************************************}

input: stren(2); {bars each side of the high to qualify as a pivot}
var: sh1(-9999999), sh2(-9999999), sh3(-9999999), sh4(-9999999);

{look for a new pivot}
if swinghighbar(1,high,stren,stren+1)=stren then begin
  sh4 = sh3;
  sh3 = sh2;
  sh2 = sh1;
  sh1 = high[stren];
end;

{plot the pivots: use a style of point or tick}
if sh1 > -9999999 then plot1(sh1,"sh1");
if sh2 > -9999999 then plot2(sh2,"sh2");
if sh3 > -9999999 then plot3(sh3,"sh3");
if sh4 > -9999999 then plot4(sh4,"sh4");



{******************************************************
indicator to plot the 4 most recent swinglow pivots
dennis holverstott 2000
*******************************************************}

input: stren(2); {bars each side of the low to qualify as a pivot}
var: sl1(9999999), sl2(9999999), sl3(9999999), sl4(9999999);

{look for a new pivot}
if swinglowbar(1,low,stren,stren+1)=stren then begin
  sl4 = sl3;
  sl3 = sl3;
  sl2 = sl1;
  sl1 = low[stren];
end;

{plot the pivots: use a style of point or tick}
if sl1 < 9999999 then plot1(sl1,"sl1");
if sl2 < 9999999 then plot2(sl2,"sl2");
if sl3 < 9999999 then plot3(sl3,"sl3");
if sl4 < 9999999 then plot4(sl4,"sl4");