Jump to content

Recommended Posts

  • 6 months later...
Posted

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 ;

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