Conversion indicateur MT4 – ASCT rend_Sound.mq4

• 02/25/2021 at 3:32 PM #162624
  Nicolas

  Je n’ai pas ouvert ton code, mais adapté celui du screener plus haut :

  // --- settings RISK=3 // --- end of settings 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) //$Tablevalue2[shift]=value2 //$val1[shift]=0 //$val2[shift]=0 //value3=0 if (value2<x2) then //signals if value2[1]>x2[1] and lastsig>=0 then sellsig = 1 lastsig = -1 endif endif if (value2>x1) then //signals if value2[1]<x1[1] and lastsig<=0 then buysig = 1 lastsig = 1 endif endif return buysig coloured(0,200,0),sellsig coloured(200,0,0)

  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

  // --- settings RISK=3 // --- end of settings   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) //$Tablevalue2[shift]=value2 //$val1[shift]=0 //$val2[shift]=0 //value3=0   if (value2<x2) then //signals if value2[1]>x2[1] and lastsig>=0 then sellsig = 1 lastsig = -1 endif endif   if (value2>x1) then //signals if value2[1]<x1[1] and lastsig<=0 then buysig = 1 lastsig = 1 endif endif   return buysig coloured(0,200,0),sellsig coloured(200,0,0)

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4774 times
  02/25/2021 at 8:31 PM #162637
  reb

  parfait merci chef

   

  

  reb

  Participant

  Topics: 15

  Replies: 158

  Been thanked: 28 times
  03/17/2021 at 9:24 AM #164426
  Nicolas

  Pour info, j’ai ajouté une version compatible avec les versions pré-v11 (donc v10.3 et inférieures) dans le post de la library: https://www.prorealcode.com/prorealtime-indicators/asctrend/

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4774 times
  07/14/2021 at 1:43 PM #173622
  ipbvba

  Bonjour Nicolas,

  Encore merci pour cet indicateur et screener que j’utilise toujours.

  Est il possible de developer un screener qui reprend uniquement les signaux à la hausse (fleche bleu) à proximité d’une moyenne mobile (MM200,MM100, MM50, MM20) par exemple entre .95% et 1.05% de la valeur de la MM, ainsi que la visibilité de l’unité de temps sur laquelle le signal apparait (1= 1H, 5= 4H, 10= jour, 100 = weekly, 1000=monthly)?

  Je constate une très grande pertinence de ce signal mais très laborieux à chercher manuellement chaque jour.

  Milles merci (pour la version exécutable en PRT V11)

  

  ipbvba

  Participant

  Topics: 4

  Replies: 11

  Been thanked: 1 time
  07/14/2021 at 2:10 PM #173629
  Nicolas

  ci-dessous le code du screener des signaux ASC TREND à proximité d’une MA de période sélectionnable, je vous laisse lancer le screener sur les timeframes de vos choix.

  // --- settings RISK=3 MAperiod = 100 // --- end of settings ima = average[maperiod] 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) //$Tablevalue2[shift]=value2 //$val1[shift]=0 //$val2[shift]=0 //value3=0 //atr=AverageTrueRange[14](close) if (value2<x2) then //signals if value2[1]>x2[1] and lastsig>=0 then sellsig = 1 lastsig = -1 //drawarrowup(barindex,low-atr/2) coloured(0,255,0) endif endif if (value2>x1) then //signals if value2[1]<x1[1] and lastsig<=0 then //buysig = 1 lastsig = 1 //drawarrowdown(barindex,high+atr/2) coloured(255,0,0) endif endif distance = close/ima condition = sellsig=1 and (distance>=.95 and distance<=1.05) screener[condition](distance as "distance")

  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

  // --- settings RISK=3 MAperiod = 100 // --- end of settings   ima = average[maperiod]   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) //$Tablevalue2[shift]=value2 //$val1[shift]=0 //$val2[shift]=0 //value3=0   //atr=AverageTrueRange[14](close) if (value2<x2) then //signals if value2[1]>x2[1] and lastsig>=0 then sellsig = 1 lastsig = -1 //drawarrowup(barindex,low-atr/2) coloured(0,255,0) endif endif   if (value2>x1) then //signals if value2[1]<x1[1] and lastsig<=0 then //buysig = 1 lastsig = 1 //drawarrowdown(barindex,high+atr/2) coloured(255,0,0) endif endif   distance = close/ima condition = sellsig=1 and (distance>=.95 and distance<=1.05)   screener[condition](distance as "distance")

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4774 times
  09/14/2021 at 10:37 AM #177534
  reb

  Bonjour Nicolas

  Je déterre ce sujet car pour la 1e fois depuis quelques mois je viens d’avoir 2 différences entre ton indicateur PRC ASCTrend (v11) et l’indicateur que tu m’avais codé plus haut pour avoir le signal en Histogramme (écart à 10h26 et 10h40). Je te joins un screen effectué ce matin sur le dax.

  A quoi cela peut-il être dû ?

   

  Merci d’avance

  Reb

  

  reb

  Participant

  Topics: 15

  Replies: 158

  Been thanked: 28 times
  09/14/2021 at 12:32 PM #177551
  reb

  Je ne suis pas assez calé en codage pour déchiffrer ce code
  Mais le pbm est réapparu à 13h05 et 13h21 avec une flèche mais pas d’histogramme

  

  reb

  Participant

  Topics: 15

  Replies: 158

  Been thanked: 28 times
  09/14/2021 at 3:23 PM #177560
  Nicolas

  Peut être une différence introduite par la nouvelle version de ProScreener. Si tu utilises la version v11 (avec les variables en tableaux identifiables avec des $ dans le code), alors il faudrait plutôt utiliser la même version que celle de ton screener. Elle doit être quelque part sur le forum .. ?

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4774 times
  09/14/2021 at 4:07 PM #177564
  reb

  Je n’utilise pas un screener mais un indicateur positionné sous le graphique comme tu m’avais codé :  #162624

   

  

  reb

  Participant

  Topics: 15

  Replies: 158

  Been thanked: 28 times
  09/15/2021 at 8:34 AM #177590
  Nicolas

  Il faudrait essayer avec la version 10.3 disponible ici (dont est dérivé ton indicateur sous graphique): https://www.prorealcode.com/prorealtime-indicators/asctrend/

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4774 times
  09/15/2021 at 8:37 AM #177591
  reb

  ok merci je vais regarder

   

  

  reb

  Participant

  Topics: 15

  Replies: 158

  Been thanked: 28 times
• Author
  Posts