ASCTrend + MACD

• 03/07/2021 at 4:52 PM #163368
  larouedegann

  Bonjour,

  j’aimerai coupler l’indicateur ASCTrend avec la ligne MACD

  mcd = MACDline[12,26,9](close) c1 = mcd<0 c2 = mcd>0

  1 2 3

  mcd = MACDline[12,26,9](close) c1 = mcd<0 c2 = mcd>0

  de manière à ce que le DRAWARROWDOWN (de ASCTrend) prenne en compte c2 et DRAWARROWUP la c1.

  //PRC_ASCTrend | indicator //13.01.2021 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //converted from MT4 version // --- settings RISK=3 CountBars=300 // --- end of settings value10=3+RISK*2 x1=67+RISK x2=33-RISK value11=value10 shift=CountBars-11-1 if islastbarupdate and barindex>CountBars then while(shift>=0) do Counter=shift iRange=0.0 AvgRange=0.0 for Counter=shift to shift+9 do AvgRange=AvgRange+Abs(High[Counter]-Low[Counter]) next iRange=AvgRange/10 Counter=shift TrueCount=0 while (Counter<shift+9 and TrueCount<1) do if (Abs(Open[Counter]-Close[Counter+1])>=iRange*2.0) then TrueCount=TrueCount+1 endif Counter=Counter+1 wend if (TrueCount>=1) then MRO1=Counter else MRO1=-1 endif Counter=shift TrueCount=0 while (Counter<shift+6 and TrueCount<1) do if (Abs(Close[Counter+3]-Close[Counter])>=iRange*4.6) then TrueCount=TrueCount+1 endif Counter=Counter+1 wend if (TrueCount>=1) then MRO2=Counter else MRO2=-1 endif if (MRO1>-1) then value11=3 else value11=value10 endif if (MRO2>-1) then value11=4 else value11=value10 endif value2=100-Abs(Williams[value11](close)[shift]) // PercentR(value11=9) $Tablevalue2[shift]=value2 $val1[shift]=0 $val2[shift]=0 value3=0 if (value2<x2) then i1=1 while ($Tablevalue2[shift+i1]>=x2 and $Tablevalue2[shift+i1]<=x1) do i1=i1+1 wend if ($Tablevalue2[shift+i1]>x1) then value3=High[shift]+iRange*0.5 if (shift = 1 and flagval1=0) then flagval1=1 flagval2=0 endif $val1[shift]=value3 drawarrowdown(barindex[shift],$val1[shift]) coloured(255,0,255) endif endif if (value2>x1) then i1=1 while ($Tablevalue2[shift+i1]>=x2 and $Tablevalue2[shift+i1]<=x1) do i1=i1+1 wend if ($Tablevalue2[shift+i1]<x2) then value3=Low[shift]-iRange*0.5 if (shift = 1 and flagval2=0) then flagval2=1 flagval1=0 endif $val2[shift]=value3 drawarrowup(barindex[shift],$val2[shift]) coloured(0,255,255) endif endif shift=shift-1 wend endif return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

  //PRC_ASCTrend | indicator //13.01.2021 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //converted from MT4 version // --- settings RISK=3 CountBars=300 // --- end of settings value10=3+RISK*2 x1=67+RISK x2=33-RISK value11=value10 shift=CountBars-11-1 if islastbarupdate and barindex>CountBars then while(shift>=0) do Counter=shift iRange=0.0 AvgRange=0.0 for Counter=shift to shift+9 do AvgRange=AvgRange+Abs(High[Counter]-Low[Counter]) next iRange=AvgRange/10 Counter=shift TrueCount=0 while (Counter<shift+9 and TrueCount<1) do if (Abs(Open[Counter]-Close[Counter+1])>=iRange*2.0) then TrueCount=TrueCount+1 endif Counter=Counter+1 wend if (TrueCount>=1) then MRO1=Counter else MRO1=-1 endif Counter=shift TrueCount=0 while (Counter<shift+6 and TrueCount<1) do if (Abs(Close[Counter+3]-Close[Counter])>=iRange*4.6) then TrueCount=TrueCount+1 endif Counter=Counter+1 wend if (TrueCount>=1) then MRO2=Counter else MRO2=-1 endif if (MRO1>-1) then value11=3 else value11=value10 endif if (MRO2>-1) then value11=4 else value11=value10 endif value2=100-Abs(Williams[value11](close)[shift]) // PercentR(value11=9) $Tablevalue2[shift]=value2 $val1[shift]=0 $val2[shift]=0 value3=0 if (value2<x2) then i1=1 while ($Tablevalue2[shift+i1]>=x2 and $Tablevalue2[shift+i1]<=x1) do i1=i1+1 wend if ($Tablevalue2[shift+i1]>x1) then value3=High[shift]+iRange*0.5 if (shift = 1 and flagval1=0) then flagval1=1 flagval2=0 endif $val1[shift]=value3 drawarrowdown(barindex[shift],$val1[shift]) coloured(255,0,255) endif endif if (value2>x1) then i1=1 while ($Tablevalue2[shift+i1]>=x2 and $Tablevalue2[shift+i1]<=x1) do i1=i1+1 wend if ($Tablevalue2[shift+i1]<x2) then value3=Low[shift]-iRange*0.5 if (shift = 1 and flagval2=0) then flagval2=1 flagval1=0 endif $val2[shift]=value3 drawarrowup(barindex[shift],$val2[shift]) coloured(0,255,255) endif endif shift=shift-1 wend endif return

  j’ai tout essayé dans les conditions de asctrend, mais je ne suis pas arrivé.

  Si quelqu’un à une solution ? c’est avec plaisir.

  

  larouedegann

  Participant

  Topics: 65

  Replies: 193

  Been thanked: 14 times
  03/08/2021 at 8:50 AM #163411
  Nicolas

  La version que tu utilises place les flèches dans le passé à partir de la bougie courante, la version ci-dessous le fait en lisant l’historique (code plus simple à comprendre si tu ne maîtrises pas les array), j’ai intégré ta condition sur le MACD.

  // --- settings RISK=3 // --- end of settings mcd = MACDline[12,26,9](close) c1 = mcd<0 c2 = mcd>0 value10=3+RISK*2 x1=67+RISK x2=33-RISK value11=value10 shift=0//CountBars-11-1 buysig=0 sellsig = 0 Counter=shift iRange=0.0 AvgRange=0.0 for Counter=shift to shift+9 do AvgRange=AvgRange+Abs(High[Counter]-Low[Counter]) next iRange=AvgRange/10 Counter=shift TrueCount=0 while (Counter<shift+9 and TrueCount<1) do if (Abs(Open[Counter]-Close[Counter+1])>=iRange*2.0) then TrueCount=TrueCount+1 endif Counter=Counter+1 wend if (TrueCount>=1) then MRO1=Counter else MRO1=-1 endif Counter=shift TrueCount=0 while (Counter<shift+6 and TrueCount<1) do if (Abs(Close[Counter+3]-Close[Counter])>=iRange*4.6) then TrueCount=TrueCount+1 endif Counter=Counter+1 wend if (TrueCount>=1) then MRO2=Counter else MRO2=-1 endif if (MRO1>-1) then value11=3 else value11=value10 endif if (MRO2>-1) then value11=4 else value11=value10 endif value2=100-Abs(Williams[value11](close)[shift]) // PercentR(value11=9) if (value2<x2) then //signals if value2[1]>x2[1] and lastsig>=0 and c2 then sellsig = 1 lastsig = -1 drawarrowdown(barindex[0],High[0]+iRange*0.5) coloured(255,0,255) endif endif if (value2>x1) then //signals if value2[1]<x1[1] and lastsig<=0 and c1 then buysig = 1 lastsig = 1 drawarrowup(barindex[0],Low[0]-iRange*0.5) coloured(0,255,255) endif endif return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86

  // --- settings RISK=3 // --- end of settings   mcd = MACDline[12,26,9](close) c1 = mcd<0 c2 = mcd>0   value10=3+RISK*2 x1=67+RISK x2=33-RISK value11=value10   shift=0//CountBars-11-1 buysig=0 sellsig = 0   Counter=shift iRange=0.0 AvgRange=0.0 for Counter=shift to shift+9 do AvgRange=AvgRange+Abs(High[Counter]-Low[Counter]) next   iRange=AvgRange/10 Counter=shift TrueCount=0 while (Counter<shift+9 and TrueCount<1) do if (Abs(Open[Counter]-Close[Counter+1])>=iRange*2.0) then TrueCount=TrueCount+1 endif Counter=Counter+1 wend if (TrueCount>=1) then MRO1=Counter else MRO1=-1 endif   Counter=shift TrueCount=0 while (Counter<shift+6 and TrueCount<1) do if (Abs(Close[Counter+3]-Close[Counter])>=iRange*4.6) then TrueCount=TrueCount+1 endif Counter=Counter+1 wend if (TrueCount>=1) then MRO2=Counter else MRO2=-1 endif     if (MRO1>-1) then value11=3 else value11=value10 endif if (MRO2>-1) then value11=4 else value11=value10 endif   value2=100-Abs(Williams[value11](close)[shift]) // PercentR(value11=9)   if (value2<x2) then //signals if value2[1]>x2[1] and lastsig>=0 and c2 then sellsig = 1 lastsig = -1 drawarrowdown(barindex[0],High[0]+iRange*0.5) coloured(255,0,255) endif endif   if (value2>x1) then //signals if value2[1]<x1[1] and lastsig<=0 and c1 then buysig = 1 lastsig = 1 drawarrowup(barindex[0],Low[0]-iRange*0.5) coloured(0,255,255) endif endif   return

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4775 times
  03/08/2021 at 10:32 AM #163425
  larouedegann

  merci nicolas

  

  larouedegann

  Participant

  Topics: 65

  Replies: 193

  Been thanked: 14 times
• Author
  Posts