06-04-2009, 10:20 PM
|
#1 |
Join Date: May 2009 Location: Sydney Thanks: 42
Thanked 51 Times in 20 Posts
| Painting 'trigger' Bar Color to Scalper Alert
Hi guys.....
can someone please help me....I've been racking my brains for hours 
I don't like to ask unless I've tried myself though...  so here it is:
I like to use the Scalper Alert but would like to see the trigger bar painted to get an early warning of the swing high bar being painted....similar to PBFs yellow trigger bars. Code: {Scalper Buys and Sells 7/18/2007
Written by Luis Gomez
inspired by John Carters "Mastering the Trade"
}
inputs:
buyColor(white),
sellColor(white),
width(1);
variables:
highBarsAgo(1),
possibleHighBarsAgo(1),
possibleHigh(-2),
hightoBeat(-1),
barsSincePaint(1),
lowBarsAgo(1),
possibleLowBarsAgo(1),
possibleLow(10000001),
lowtoBeat(10000000),
triggerPriceSell(-1),
triggerPriceBuy(1000000),
trend(1),
_UP(1),
_DOWN(-1),
_ON(1),
_OFF(-1);
//***************************************************
//****** Find and plot the highest swing high *******
//***************************************************
if trend = _UP then begin
if swingHighBar(1,H,2,barsSincePaint+2) > -1 then begin
possibleHighBarsAgo = swingHighBar(1,H,2,barsSincePaint+2);
possibleHigh = H[possibleHighBarsAgo];
end;
if possibleHigh >= hightoBeat then begin
highBarsAgo = possibleHighBarsAgo;
hightoBeat = possibleHigh;
triggerPriceSell = L[HighBarsAgo - 1];
end;
if C < triggerPriceSell and
highest(high,highBarsAgo) < hightoBeat then begin
plotpb[highBarsAgo](H[highBarsAgo],L[highBarsAgo],"",sellColor);
alert("Scalper Sell");
trend = _DOWN;
barsSincePaint = highBarsAgo-1;
hightoBeat = -1;
lowtoBeat = 10000000;
triggerPriceBuy = 10000000;
triggerPriceSell = -1;
highBarsAgo = 1;
possibleHigh = -2;
end;
end;
//***************************************************
//****** Find and plot the lowest swing low *********
//***************************************************
if trend = _DOWN then begin
if swingLowBar(1,L,2,barsSincePaint+2) > -1 then begin
possibleLowBarsAgo = swingLowBar(1,L,2,barsSincePaint+2);
possibleLow = L[possibleLowBarsAgo];
end;
if possibleLow <= lowtoBeat then begin
lowBarsAgo = possibleLowBarsAgo;
lowtoBeat = possibleLow;
triggerPriceBuy = H[LowBarsAgo - 1];
end;
if C > triggerPriceBuy and
lowest(L,lowBarsAgo) > lowtoBeat then begin
plotpb[lowBarsAgo](H[lowBarsAgo],L[lowBarsAgo],"",buyColor);
alert("Scalper Buy");
trend = _UP;
barsSincePaint = lowBarsAgo-1;
possibleLow = 10000001;
lowtoBeat = 10000000;
hightoBeat = -1;
triggerPriceBuy = 10000000;
triggerPriceSell = -1;
lowBarsAgo = 1;
end;
end;
barsSincePaint = barsSincePaint+1;
if trend = _UP then highBarsAgo = highBarsAgo + 1;
if trend = _DOWN then lowBarsAgo = lowBarsAgo + 1;
setPlotWidth(1,width); Thanks a lot.
|
| |
Linear Mode
