Demande de conversion indicateur Amibroker "Netline"

• 09/26/2018 at 10:42 AM #81335
  carlvan

  Bonjour, et merci d’avance pour toute aide. Voici un indicateur très simple que j’ai créé sur ma plateforme Amibroker (AFL language). Cet indicateur agit comme un support/résistance critique et vient donc se placer en-dessous du cours (lorsque celui-ci est haussier). Quoique’un peu plus familier maintenant avec ProRealcode, je n’ai pas pu le convertir:

  Ci-dessous le code an AFL, mais avec chaque fois une explication en “bon français” 🙂

  netbull= Sum(C<Ref(C,-1),3)==3; // lorsque Close est inférieur à Close précédent, 3 fois de suite, une condition “netbull” apparait
  netbear= Sum(C>Ref(C,-1),3)==3; // l’inverse pour une condition “netbear”

  NLBL= ValueWhen(netbull,Ref(H,-2)); //si condition netbull, alors NLBL correspond au High de la première bar ouy Close < Close précédent
  NLSL= ValueWhen(netbear,Ref(L,-2)); // inverse quand condition netbear

  netline=IIf(BarsSince(NLBL)<BarsSince(NLSL),NLBL, NLSL) // NETLINE (l’indicateur principal de ce code en fait) = NLBL quand la condition netbull est plus récente que condition net bear, sinon = NLSL
  Color= IIf(netline==NLBL,colorBlue, colorRed);

  ci-dessous: une dernière condition: la “Netline” n’est visible sur le graph que si le Close précédent est < NLBL ou > LNSL

  Plot(IIf(Ref(C,-1)< NLBL,NLBL,Null),”NLBL”,colorBlue,styleDots|styleNoLine|styleThick);
  Plot(IIf(Ref(C,-1)> NLSL,NLSL,Null),”NLSL”,colorRed,styleDots|styleNoLine|styleThick);

  Merci d’avance pour toute aide

  Vous verrez que la cassure de cette ligne en clôture est habituellement significative.

  Carl

  (attaché: un exemple de “Netlines” sur DAX 15 minutes)

   

  

  carlvan

  Participant

  Topics: 11

  Replies: 34

  Been thanked: 0 times
  09/27/2018 at 8:19 AM #81404
  Nicolas

  Merci pour le partage de cet indicateur perso 🙂

  Sauf erreur de ma part, la variable “netline” et la condition associée n’est pas utile dans le code. Ci-dessous le code pour ProRealTime:

  netbull= Summation[3](close<close[1])=3 netbear= Summation[3](close>close[1])=3 if netbull then NLBL= high[2] elsif netbear then NLSL = low[2] endif if close[1]<NLBL then drawtext("■",barindex,NLBL,dialog,standard,14) coloured(0,0,255) endif if close[1]>NLSL then drawtext("■",barindex,NLSL,dialog,standard,14) coloured(255,0,0) endif return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

  netbull= Summation[3](close<close[1])=3 netbear= Summation[3](close>close[1])=3   if netbull then NLBL= high[2] elsif netbear then NLSL = low[2] endif   if close[1]<NLBL then drawtext("■",barindex,NLBL,dialog,standard,14) coloured(0,0,255) endif if close[1]>NLSL then drawtext("■",barindex,NLSL,dialog,standard,14) coloured(255,0,0) endif   return

  A appliquer sur le graphique du prix.

  1 user thanked author for this post.

  swapping

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  09/27/2018 at 9:19 AM #81418
  carlvan

  C’est parfait, je vous remercie de m’avoir dépanné – c’était le seul indicateur que je n’étais pas parvenu à répliquer, je vais maintenant pouvoir utiliser PRT en priorité !

  Bonne journée et bon trading

  

  carlvan

  Participant

  Topics: 11

  Replies: 34

  Been thanked: 0 times
• Author
  Posts