Squeeze Alert

[kamakazy 10]

Hi i would like to set an alert up when the squeeze fires off but only for buycolour1 and sellcour1..

 

here is the squeeze code im using

 

Inputs: Price(Close), price2(close),Price3(H/3+L/3+C/3),
 Length(20),
 Length2(13),
 Length3(21),
 Length4(9),
 Style(1),
 nK(1.5), 
 nBB(2), 
	 AlertLine( 1 ),
 BuyColor1(blue), BuyColor2(darkblue),
 SellColor1(red), SellColor2(darkred),
 NormalColor(Red),AlertColor(Blue),
 CounterTrend(true); 

vars:FastVal1(0), SlowVal1(0), Diff1(0),
    FastVal2(0), SlowVal2(0), Diff2(0),
    FastVal3(0), SlowVal3(0), Diff3(0),
    FastVal4(0), SlowVal4(0), Diff4(0),
    AvgDiff(0), AvgDif(0), poles(4),
    CCIValue(0),DownCT(0),UpCT(0),SDev(0),ATR(0),LHMult(0),Denom(0),BBS_Ind(0);

if Style = 0 then begin
{Zero Line - BB Squeeze}
if ( barnumber=1 ) then 
Begin
  If minmove <> 0 then
    LHMult = pricescale/minmove;
end;

{-- Calculate BB Squeeze ----------------------}
ATR = AvgTrueRange(Length);
SDev = StandardDev(Price, Length, 1);

Denom = (nK*ATR);
If Denom <> 0 then BBS_Ind = (nBB * SDev) /Denom; 

If BBS_Ind < Alertline then
  SetPlotColor(1, NormalColor)
else
  SetPlotColor(1, AlertColor);

{-- Plot Index & Alert Line -------------------------}
Plot1(0, "Squeeze");
end;

if Style = 1 then begin
{Zero Line - Gauss filter}
value1 = Gauss(Price3,Length3,3);

if (Value1) > (Value1[1]) then 
SetPlotColor(1, BuyColor1);
if (Value1) < (Value1[1]) then 
SetPlotColor(1, SellColor1);
//SetPlotWidth(1,7);
Plot1(0, "Squeeze");
end;


{Histogram} 
FastVal1 = Gauss(price, 8, poles);
SlowVal1 = Gauss(price, 21, poles);
Diff1 = FastVal1 - SlowVal1;
FastVal2 = Gauss(price, 13, poles);
SlowVal2 = Gauss(price, 34, poles);
Diff2 = FastVal2 - SlowVal2;
FastVal3 = Gauss(price, 21, poles);
SlowVal3 = Gauss(price, 55, poles);
Diff3 = FastVal3 - SlowVal3;
FastVal4 = Gauss(price, 34, poles);
SlowVal4 = Gauss(price, 89, poles);
Diff4 = FastVal4 - SlowVal4;
AvgDiff = (Diff1+Diff2+Diff3+Diff4)/4;

plot2(AvgDiff,"DiffHisto") ;
//setplotwidth(2,7);
if AvgDiff > 0 then 
 if AvgDiff > AvgDiff[1] then 
   setplotcolor(2,BuyColor1)
 else
   setplotcolor(2,BuyColor2) ;

if AvgDiff < 0 then 
 if AvgDiff < AvgDiff[1] then setplotcolor(2,SellColor1)
else
 setplotcolor(2,SellColor2);



{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
{ Counter Trend Mode}
if CounterTrend = true then begin
CCiValue = CCI(13);

Condition1 = ccivalue[1] > 50;
Condition2 = CCivalue < 50;
Condition3 = CCivalue[1] < 100;
Condition4 = CCiValue > 100;
Condition5 = AvgDiff > 0;
Condition6 = AvgDiff[1] > 0;
Condition7 = AvgDiff[2] > 0;
Condition8 = ccivalue < 100;

if Condition1 and Condition2 and Condition5 and condition6 and condition7 then begin
  setplotcolor(2,SellColor2);
  DownCT = 1;
end;

if DownCT = 1 and AvgDiff < 0 then DownCT =0;

if DownCT = 1 and Condition8 and Condition5 then setplotcolor(2,SellColor2);

if DownCT = 1 and Condition3 and Condition4 then begin
  setplotcolor(2,BuyColor1);
  DownCT = 0;
end;

Condition11 = ccivalue[1] < -50;
Condition12 = CCivalue > -50;
Condition13 = CCivalue[1] >- 100;
Condition14 = CCiValue < -100;
Condition15 = AvgDiff < 0;
Condition16 = AvgDiff[1] < 0;
Condition17 = AvgDiff[2] < 0;
Condition18 = ccivalue >-100;

if Condition11 and Condition12 and Condition15 and condition16 and condition17 then begin
  setplotcolor(2,BuyColor2) ;
  UpCT = 1;
end;

if UpCT = 1 and AvgDiff > 0 then UpCT =0;
if UpCT = 1 and Condition18 and Condition15 then setplotcolor(2,BuyColor2) ;
if UpCT = 1 and Condition13 and Condition14 then begin
  setplotcolor(2,SellColor1);
  UpCT = 0;
end;
08704870334
end;

 

I have tried the following

 

if AvgDiff < AvgDiff[1] then Alert ( "Short" );

 

but its not working, anyone know how to alert for this?

 

Thanks

[Tams 20]

I don't see the alert in your code.

[kamakazy 10]

sorry its not in that i added it to the bottom, i just wanted to put up the original code before i added the alert!

 

I added

 

if AvgDiff < AvgDiff[1] then Alert ( "Short" );

 

to the bottom of the file before the, end;

[Tams 20]

  kamakazy said:

...

but its not working, anyone know how to alert for this?

 

Thanks

 

 

go to Format Study,

 

make sure the alert is ENABLED.

[kamakazy 10]

yes its enabled and firing off!!!!

 

BUT

 

It fires off even when the squeeze is the wrong colour!

 

If its green i still get a short alert!

[Tams 20]

  kamakazy said:

yes its enabled and firing off!!!!

 

BUT

 

It fires off even when the squeeze is the wrong colour!

 

If its green i still get a short alert!

 

 

 

write out your logic on paper...

 

covering ALL the permutations,

including all the ON conditions and OFF conditions.

 

 

you will see the "hole" once you have done that.

[kamakazy 10]

yea have been for 2 weeks¬

 

if your talking about if AvgDiff > 0 then

 

I have tried that it does nothing different!

[kamakazy 10]

hmm though it seems to work ok if i turn off countertrtend mode!!

[kamakazy 10]

ok i have once again edited my code!

 

Obviously Tams is either getting annoyed or does not know anser so does anyone else.

 

Im usually ok at sorting these out myself but this countertrend thing has got the best of me!!!!

 

I need an alert for loss of momentum and if a countertrend fires off!

 

here is my code

 

 

 

//if CustomerID = 784793 and CurrentDate < 1100101  then
begin

Inputs: Price(Close), price2(close),Price3(H/3+L/3+C/3),
 Length(20),
 Length2(13),
 Length3(21),
 Length4(9),
 nK(1.5), 
 nBB(2), 
	 AlertLine( 1 ),
 BuyColor1(green), BuyColor2(darkgreen),
 SellColor1(red), SellColor2(darkred),
 NormalColor(Red),AlertColor(Green),
 CounterTrend(true); 

vars:FastVal1(0), SlowVal1(0), Diff1(0),
    FastVal2(0), SlowVal2(0), Diff2(0),
    FastVal3(0), SlowVal3(0), Diff3(0),
    FastVal4(0), SlowVal4(0), Diff4(0),
    AvgDiff(0), AvgDif(0), poles(4),
    CCIValue(0),DownCT(0),UpCT(0),SDev(0),ATR(0),LHMult(0),Denom(0),BBS_Ind(0);


{Histogram 101} 
FastVal1 = SqFunc(price, 8, poles);
SlowVal1 = SqFunc(price, 21, poles);
Diff1 = FastVal1 - SlowVal1;
FastVal2 = SqFunc(price, 13, poles);
SlowVal2 = SqFunc(price, 34, poles);
Diff2 = FastVal2 - SlowVal2;
FastVal3 = SqFunc(price, 21, poles);
SlowVal3 = SqFunc(price, 55, poles);
Diff3 = FastVal3 - SlowVal3;
FastVal4 = SqFunc(price, 34, poles);
SlowVal4 = SqFunc(price, 89, poles);
Diff4 = FastVal4 - SlowVal4;
AvgDiff = (Diff1+Diff2+Diff3+Diff4)/4;

plot2(AvgDiff,"DiffHisto") ;
if AvgDiff > 0 then 
 if AvgDiff > AvgDiff[1] then 
   setplotcolor(2,BuyColor1)
 else
   setplotcolor(2,BuyColor2) ;

if AvgDiff < 0 then 
 if AvgDiff < AvgDiff[1] then setplotcolor(2,SellColor1)
else
 setplotcolor(2,SellColor2);


{ Counter Trend Mode 101}
if CounterTrend = true then begin
CCiValue = CCI(13);

Condition1 = ccivalue[1] > 50;
Condition2 = CCivalue < 50;
Condition3 = CCivalue[1] < 100;
Condition4 = CCiValue > 100;
Condition5 = AvgDiff > 0;
Condition6 = AvgDiff[1] > 0;
Condition7 = AvgDiff[2] > 0;
Condition8 = ccivalue < 100;

if Condition1 and Condition2 and Condition5 and condition6 and condition7 then begin
  setplotcolor(2,SellColor2);
  DownCT = 1;
end;

if DownCT = 1 and AvgDiff < 0 then DownCT =0;

if DownCT = 1 and Condition8 and Condition5 then setplotcolor(2,SellColor2);
{test1}
if DownCT = 1 and Condition3 and Condition4 then begin
  setplotcolor(2,BuyColor1);
  DownCT = 0;
end;

Condition11 = ccivalue[1] < -50;
Condition12 = CCivalue > -50;
Condition13 = CCivalue[1] >- 100;
Condition14 = CCiValue < -100;
Condition15 = AvgDiff < 0;
Condition16 = AvgDiff[1] < 0;
Condition17 = AvgDiff[2] < 0;
Condition18 = ccivalue >-100;

{next}

if Condition11 and Condition12 and Condition15 and condition16 and condition17 then begin
  setplotcolor(2,BuyColor2) ;
  UpCT = 1;
end;


{bottom}
if UpCT = 1 and AvgDiff > 0 then UpCT =0;
if UpCT = 1 and Condition18 and Condition15 then setplotcolor(2,BuyColor2) ;
if UpCT = 1 and Condition13 and Condition14 then begin
  setplotcolor(2,SellColor1);
  UpCT = 0;


if Condition11 and Condition12 and Condition15 and condition16 and condition17 then Alert("Next");

if UpCT = 1 and AvgDiff > 0 then UpCT =0; if UpCT = 1 and Condition18 and Condition15 then Alert("Bottom");

if UpCT = 1 and Condition13 and Condition14 then Alert("Bottom 2"); 

if DownCT = 1 and Condition3 and Condition4 then Alert ("test1");

if DownCT = 1 and Condition8 and Condition5 then Alert ("test2");

end;



end;
end;

 

i have added this to try and get some alerts firing to troubleshoot

 

{bottom}

if UpCT = 1 and AvgDiff > 0 then UpCT =0;

if UpCT = 1 and Condition18 and Condition15 then setplotcolor(2,BuyColor2) ;

if UpCT = 1 and Condition13 and Condition14 then begin

setplotcolor(2,SellColor1);

UpCT = 0;

 

 

if Condition11 and Condition12 and Condition15 and condition16 and condition17 then Alert("Next");

 

if UpCT = 1 and AvgDiff > 0 then UpCT =0; if UpCT = 1 and Condition18 and Condition15 then Alert("Bottom");

 

if UpCT = 1 and Condition13 and Condition14 then Alert("Bottom 2");

 

if DownCT = 1 and Condition3 and Condition4 then Alert ("test1");

 

if DownCT = 1 and Condition8 and Condition5 then Alert ("test2");

 

 

but i get nothing!

 

I need coutertrend but i just want an alert for 4 thing

 

Loss of momentum long

loss of momentum short

countertrend long

countertrend short

 

If need be ill pay someone this has bugged me for a week!

[Tams 20]

  kamakazy said:

ok i have once again edited my code!

 

Obviously Tams is either getting annoyed or does not know anser so does anyone else.

....

 

 

I do not know the answer.

 

good luck.

[HAL9000 10]

Here are some more questions for you:

 

- What is begin good for?

- What is end good for?

 

Hope this might help you,

 

Hal

 

P.S.: It might be helpful, if you format and comment your code,

before you post it here.

Edited August 20, 2009 by HAL9000