Jump to content

trendwave for ts


apollo12

Recommended Posts

  • 6 months later...

Here is the code...For some reason, all I get is lines. Some settings need to adjusted. Current users can tell us what settings we have to apply...

 

 

Inputs: WavePeriod(10)

,OverSold(- 60)

,OverBought(60)

,uptrigger(- 50)

,dntrigger(53)

,Greendot(4)

,RedDot(5)

,upcolour(2)

,downcolour(6)

,colourDeltaBar(1)

,FastLength(12)

,SlowLength(26)

,MACDLength(9)

,WhiteBarSpacing(10)

,color1(2)

,color2(7)

,color3(6)

,HIALERT1(35)

,LOALERT1(20)

,LOALERT2(10)

;

{ ***** VARs Section ***** }

 

Vars: Var1(21)

,Var2(0)

,Var3(0)

,Var4(0)

,Var5(0)

,Var6(0)

,Var7(0)

,Var8(FALSE)

,Var9(0)

,Var10(0)

,Var11(0)

,Var12(FALSE)

,Var13(0)

,Var14(" ")

,Var15(0)

,Var16(FALSE)

,Var17(0)

,Var18(0)

,Var19(0)

,Var20(FALSE)

,Var21(FALSE)

;

{ ***** ARRAYs Section *****}

{ ***** CODE Section ***** }

#EVENTS OnDestroy = EasyLanguageRtlOnDestroy ;

#END ;

 

if CurrentBar = 1 then

begin

Var13 = GetAppInfo (1) ;

end ;

 

if Var18 = 1 then

begin

{if ok2tradeMatrix then}

Var18 = 0 ;

end ;

 

if Var18 = 0 then

begin

 

Var2 = (HIGH+LOW+CLOSE)/3 ;

Var3 = xaverage (Var2, WavePeriod) ;

Var4 = xaverage (AbsValue (Var2-Var3), WavePeriod) ;

 

if Var4 > 0 then

Var5 = (Var2-Var3)/(0.015000*Var4) ;

 

Var6 = xaverage (Var5, Var1) ;

Var7 = average (Var6, 4) ;

Var8 = FALSE ;

 

if Var6 CROSS OVER Var7 AND Var6 < uptrigger then

Var8 = TRUE ;

 

if Var7 CROSS OVER Var6 AND Var6 > dntrigger then

Var8 = TRUE ;

 

Var9 = MACD (CLOSE, FastLength, SlowLength) ;

Var10 = XAverage (Var9, MACDLength) ;

Var11 = Var9-Var10 ;

Var12 = FALSE ;

 

if (Var9 > Var10 AND Var9[1] < Var10[1]) OR (Var9 < Var10 AND Var9[1] > Var10[1]) then

Var12 = TRUE ;

 

Var19 = ADX (14) ;

Var20 = Var19[1] > HIALERT1 AND Var19 < Var19[1] AND Var19[1] > Var19[2] ;

 

if (Var20) then

begin

if (Var15 = 0) then

begin

Var15 = 1 ;

Var17 = CurrentBar ;

end ELSE if (CurrentBar-Var17 <= WhiteBarSpacing) then

begin

Var15 = Var15+1 ;

Var17 = CurrentBar ;

end ;

end ELSE if (CurrentBar-Var17 > WhiteBarSpacing) then

Var15 = 0 ;

 

Var21 = Var19 < LOALERT2 AND Var19 > Var19[1] AND Var19[1] < Var19[2] ;

 

if Var13 = 1 then

begin

if Var20 then if Var8 then

PLOT7 (Var19*2.500000, "WaveTrend", 7) ;

 

if Var20 then if Var12 then

PLOT1 (Var19*1.500000, "Dn Reversal", 12) ELSE PLOT1 (Var19*1.500000, "Dn Reversal", 8) ;

 

if (Var15 >= 3) then

begin

 

if (Var17 = CurrentBar) then

begin

PLOT2 (Var19*2, "Close Bars", 5) ;

 

if CHECKALERT then

ALERT ("3 White Bars") ;

Var16 = TRUE ;

end ;

end ;

 

if Var21 then

PLOT3 (Var19*3, "Up Reverse 2", 6) ;

 

if Var20 = FALSE AND Var21 = FALSE then

PLOT4 (Var19, "ADX", 1) ;

 

if CHECKALERT then

begin

if Var21 then ALERT ("ADX Turn Alert") ;

end ;

end ;

 

if Var13 > 1 then

begin

PLOT10 (Var19, "ADX", 7) ;

 

if Var20 then

begin

Var14 = "DownReversal" ;

SETPLOTBGCOLOR (11, 8) ;

[Legacycolorvalue = True]

end ELSE if (Var15 >= 3) then

begin

if (Var17 = CurrentBar) then

begin

Var14 = "3 White Bars" ;

SETPLOTBGCOLOR (11, 5) ;

Var16 = TRUE ;

end ;

 

end ELSE if Var21 then

begin

Var14 = "Big Move" ;

SETPLOTBGCOLOR (11, 6) ;

end ELSE if Var21 then

begin

Var14 = "ADX Turn Alert" ;

SETPLOTBGCOLOR (11, 7) ;

end ELSE

begin

Var14 = " " ;

SETPLOTBGCOLOR (11, 1) ;

PLOT11 (Var14, "ADX Status", 1) ;

end ;

end ;

end ;

Link to comment
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.

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.

×
×
  • Create New...