Jump to content

Welcome to the new Traders Laboratory! Please bear with us as we finish the migration over the next few days. If you find any issues, want to leave feedback, get in touch with us, or offer suggestions please post to the Support forum here.

  • Welcome Guests

    Welcome. You are currently viewing the forum as a guest which does not give you access to all the great features at Traders Laboratory such as interacting with members, access to all forums, downloading attachments, and eligibility to win free giveaways. Registration is fast, simple and absolutely free. Create a FREE Traders Laboratory account here.

kamakazy

Squeeze Alert

By kamakazy, in Coding Forum

Recommended Posts

kamakazy    10

kamakazy
Posted

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

Share this post

Link to post
Share on other sites

kamakazy    10

kamakazy
Posted

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;

Share this post

Link to post
Share on other sites

Tams    20

Tams
Posted
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.

Share this post

Link to post
Share on other sites

kamakazy    10

kamakazy
Posted

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!

Share this post

Link to post
Share on other sites

Tams    20

Tams
Posted
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.

Share this post

Link to post
Share on other sites

HAL9000    10

HAL9000
Posted (edited)

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 by HAL9000

Share this post

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
Go To Topic Listing

  • Topics

  • Posts

    • zdo
      AI

      By zdo · Posted

      ...hallucinates.... Student: “What if we gave the monkey LSD?” Guru: “The monkey already did LSD”
    • analyst75
      How did you suspect you have cancer?

      By analyst75 · Posted

      Question: To those that had/have cancer, what were the signs that made you think “something is not right here” to make you go see a doctor? Answer: So, 5/25/2018, I woke up, got ready for work, and as I walked to my car, I started gagging. Like something was stuck in my throat and I needed to clear it. And then it went away.   But 10 minutes after that, I was T-boned at 40mph on the driver side door. But what made me see a doctor was while my muscles felt better and bruises were going away, the gagging still continued, I started having fevers, my neck felt swollen, I was having such a hard time breathing, and I'd have random sharp pains in my chest, but not from where the seat belt saved me.   2 weeks after the accident, I finally see an urgent care doctor, who looks me over, tells me I'm fine, but luckily requests a neck X-ray. And I ask for a chest X-ray, which he rolls his eyes but let me have (most of my pain was in the neck, so I understand).   The very next day, he calls and says “So, that chest X-ray shows there's a 4 inch mass on your heart and lungs, and your lungs have been filling up with fluid, as well as in your pericardial (heart) wall. We need you to come in tomorrow.”   Turns out the big mass, due to the accident, caused my heart and lungs to tear and fill with fluid, the swollen neck and gagging was caused by 2 metastasized tumors, and the fevers and weight loss were symptoms. Stage 4b Hodgkin's Lymphoma.   But thankfully, we went very aggressive with chemo (and had a lot of bad side effects that don't normally happen to patients), and now I'm about 16 months cancer-free. Yay lucky X-rays! Rachel Jurina, Quora Source: https://www.quora.com/To-those-that-had-have-cancer-what-were-the-signs-that-made-you-think-something-is-not-right-here-to-make-you-go-see-a-doctor   Profits from free accurate cryptos signals: https://www.predictmag.com/  
    • analyst75
      What is the ugly truth of getting older?

      By analyst75 · Posted

      As a man, the reality of life is the harshest part. I don’t mind looking older or becoming weaker over time; it’s nature.   Have you ever heard that the only people who will be loved unconditionally are women and children? Men will only be loved as long as they can provide until they are no longer needed. It doesn’t matter if you already did your best to get your kids to the best school or get the best things for them, if you stop before they’re done with it, there will be no thank you. The only thing they will remember is that they have to quit school at 15, ignoring all the previous 15 years of life you provided for them. The only people who will accept you, no matter what, are your parents. But in this situation, you might be that ungrateful child.   EDIT: Wow, I didn’t think this would get so much attention.   For those who disagree, I can only say that everyone has their problem. If you don’t get the chance to face such a thing, be grateful. Remember, sometimes what you throw in the garbage is something that someone wishes ever to have.” – ElZee, Quora   Profits from free accurate cryptos signals: https://www.predictmag.com/    
    • aimhi
      LMFX Broker Discussion

      By aimhi · Posted

      The good thing i had noticed so far is that the traderpot value is also on the rise..
    • barako
      LMFX Broker Discussion

      By barako · Posted

      yup its a gradual rollout the right way in my opinion, its really good and its exciting for the sto in 2027
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.

  I accept