|
inputs: BarWidth(3);
variables: UpTrend(false), LowPainted(false), HighPainted(false), ExtremeBar(0),
TriggerBarLow(0), ExtremeBarHigh(0),
TriggerBarHigh(0), ExtremeBarLow(0), counter(-1);
// Compare the 9-period MA to the previous bar's value as the basis for determining
// if we are in an uptrend or a downtrend at this moment.
//
// We will NOT check for the presence of a trend if we are
// "waiting for a confirmation of a trigger (i.e. Extreme Bar <> 0)" ??
//Downtrend -- Look to paint a low bar
if (AverageFC(Close[3],9) < AverageFC(Close[4],9) and ExtremeBar=0)
or ((AverageFC(Close[3],9) = AverageFC(Close[4],9) and ExtremeBar=0) and (UpTrend=False))
then begin
UpTrend=False;
HighPainted=false;
if low[3] > low then LowPainted=false;
end;
//Uptrend -- Look to paint a high bar
if AverageFC(Close[3],9) > AverageFC(Close[4],9) and ExtremeBar=0
or ((AverageFC(Close[3],9) = AverageFC(Close[4],9) and ExtremeBar=0) and (UpTrend=True))
then begin
UpTrend=True;
LowPainted=false;
if high[3] < high then HighPainted=false;
end;
//Check for triggers and paint the extreme bar on confirmation
//Uptrend
if UpTrend = True and HighPainted=false then begin
if high[2] < high[3] and ExtremeBar=0 then begin
ExtremeBar = 3;
ExtremeBarHigh = high[3];
TriggerBarLow = low[2];
end;
if high[1] > ExtremeBarHigh then begin
ExtremeBar = 0;
ExtremeBarHigh = 0;
TriggerBarLow = 0;
counter=-1;
end;
if ExtremeBar <> 0 then counter=counter+1;
// Paint an "Extreme Bar" if it exists based on the two if blocks above
// OR if the earlier close was above the 8-EMA and the later close was
// below the 8-EMA)
if (close[1] < TriggerBarLow and ExtremeBar <> 0)
// or ((Close[3] > XAverage(Close[3],8)) and (Close[1] < XAverage(Close[1],8)))
then begin
ExtremeBar = ExtremeBar + counter;
PlotPaintBar[ExtremeBar](High[ExtremeBar],Low[ExtremeBar],"ScalperSig",white);
SetPlotWidth[ExtremeBar](1,BarWidth);
SetPlotColor[ExtremeBar](1,white);
alert("Scalper Sell Detected!");
HighPainted = true;
counter=-1;
ExtremeBar=0;
end;
end;
//Downtrend
if UpTrend = False and LowPainted=false then begin
if low[2] > low[3] and ExtremeBar=0 then begin
ExtremeBar = 3;
ExtremeBarLow = low[3];
TriggerBarHigh = high[2];
if ExtremeBarLow > low[4] then ExtremeBar = 4;
end;
if low[1] < ExtremeBarLow then begin
ExtremeBar = 0;
ExtremeBarLow = 0;
TriggerBarHigh = 0;
counter=-1;
end;
if ExtremeBar <> 0 then counter=counter+1;
if close[1] > TriggerBarHigh and ExtremeBar <> 0 then begin
ExtremeBar = ExtremeBar + counter;
PlotPaintBar[ExtremeBar](Low[ExtremeBar],High[ExtremeBar],"ScalperSig",white);
SetPlotWidth[ExtremeBar](1,BarWidth);
SetPlotColor[ExtremeBar](1,white);
alert("Scalper Buy Detected!");
LowPainted = true;
counter=-1;
ExtremeBar=0;
end;
end; |
|