Tracé de segment entre les highs

• 05/29/2023 at 9:33 PM #215368
  rwanderer

  Bonjour Nicolas, JC, et tous,

  Je solicite votre aide et vous expose mon problème.

  Ma condition = si mon high et plus grand que les 5 précedentes bougies et les 5 suivantes.
  Je souhaite que :
  – si ma condition est detectée, alors mon “index” = 1.
  – si un plus haut se créé alors je récupère le barindex de la bougie pour mon tracé de segment et mon “index” = 2
  – si une nouvelle condition se créé et alors que mon dernier index est égal à 1, alors le précedent “index” est égal à 0.

  A force d’avoir fait et refait, j’ai fini par m’y perdre et patauger dans un code sale…

  CinqDernierhaut=highest[5](high) MonPointHaut = high[5]>CinqDernierhaut[6] and CinqDernierhaut<=high[5] indexH=0 if MonPointHaut then i = i+1 //count = count+1 $EQHBar[i] = barindex[5] $EQH[i] = high[5] $index[i] = indexH +1 $EQHBarCourante[i] = barindex endif IF islastbarupdate then //IF $index[i] =1 then //$EQHBarCourante[i] = barindex For p=0 to i cc=$index[p] DrawSegment($EQHBar[p],$EQH[p],$EQHBarCourante[p],$EQH[p])Style(DottedLine,3)Coloured(0,150,0,255) DrawText("#cc#",$EQHBarCourante[p],$EQH[p]) coloured(0,0,0,255) NEXT //hh=$index[i] ENDIF

  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

  CinqDernierhaut=highest[5](high) MonPointHaut = high[5]>CinqDernierhaut[6] and CinqDernierhaut<=high[5]   indexH=0   if MonPointHaut then i = i+1 //count = count+1 $EQHBar[i] = barindex[5] $EQH[i] = high[5] $index[i] = indexH +1 $EQHBarCourante[i] =  barindex   endif   IF islastbarupdate then //IF $index[i] =1 then //$EQHBarCourante[i] =  barindex         For p=0 to i cc=$index[p]   DrawSegment($EQHBar[p],$EQH[p],$EQHBarCourante[p],$EQH[p])Style(DottedLine,3)Coloured(0,150,0,255) DrawText("#cc#",$EQHBarCourante[p],$EQH[p]) coloured(0,0,0,255)   NEXT   //hh=$index[i]       ENDIF

  Quelqu’un pourrait-il m’aider à avancer sur cet indicateur svp?

  Voir la capture pour plus de clarté sur l’attendu.

  

  rwanderer

  Participant

  Topics: 16

  Replies: 33

  Been thanked: 0 times
  05/30/2023 at 1:15 AM #215378
  rwanderer

  J’avance !

  Il me reste à definir : Si la condition se recrée alors que “l’index” précédent est égal à 1 alors il faut le passer à 0 !

  Voir exemple sur la captur pour l’attendu.

  CinqDernierhaut=highest[5](high) MonPointHaut = high[5]>CinqDernierhaut[6] and CinqDernierhaut<=high[5] indexH=0 if MonPointHaut then count = count+1 //count = count+1 $EQHBar[count] = barindex[5] $EQH[count] = high[5] //$index[count] = indexH +1 $EQHBarCourante[count] = barindex //monindexH = $index[count] $monindexH[count] = 1 endif IF islastbarupdate then for i = 0 to lastset($EQHBar) for j = $EQHBar[i]+1 to barindex if close[barindex[j]] >= $EQH[i] then $EQHBarCourante[i] = barindex-barindex[j] $monindexH[i] = 2 break endif next next for i = 1 to lastset($EQHBar) do monindexH = $monindexH[i] if $monindexH[i]=2then DrawSegment($EQHBar[i],$EQH[i],$EQHBarCourante[i],$EQH[i])Style(DottedLine,3)Coloured(0,150,0,255) DrawText("#monindexH#",$EQHBarCourante[i],$EQH[i]) coloured(0,0,0,255) elsif $monindexH[i]=1 then DrawSegment($EQHBar[i],$EQH[i],$EQHBarCourante[i],$EQH[i])Style(DottedLine,3)Coloured(150,150,0,255) DrawText("#monindexH#",$EQHBarCourante[i],$EQH[i]) coloured(0,0,0,255) else //DrawSegment($EQHBar[i],$EQH[i],barindex,$EQH[i])Style(DottedLine,3)Coloured(0,150,0,255) endif next ENDIF ENDIF

  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

  CinqDernierhaut=highest[5](high) MonPointHaut = high[5]>CinqDernierhaut[6] and CinqDernierhaut<=high[5]   indexH=0   if MonPointHaut then count = count+1 //count = count+1 $EQHBar[count] = barindex[5] $EQH[count] = high[5] //$index[count] = indexH +1 $EQHBarCourante[count] =  barindex //monindexH = $index[count] $monindexH[count] = 1 endif   IF islastbarupdate then   for i = 0 to lastset($EQHBar)       for j = $EQHBar[i]+1 to barindex   if close[barindex[j]] >= $EQH[i]  then   $EQHBarCourante[i] = barindex-barindex[j]   $monindexH[i] = 2   break         endif next next   for i = 1 to lastset($EQHBar) do monindexH = $monindexH[i] if $monindexH[i]=2then DrawSegment($EQHBar[i],$EQH[i],$EQHBarCourante[i],$EQH[i])Style(DottedLine,3)Coloured(0,150,0,255) DrawText("#monindexH#",$EQHBarCourante[i],$EQH[i]) coloured(0,0,0,255)   elsif $monindexH[i]=1 then DrawSegment($EQHBar[i],$EQH[i],$EQHBarCourante[i],$EQH[i])Style(DottedLine,3)Coloured(150,150,0,255) DrawText("#monindexH#",$EQHBarCourante[i],$EQH[i]) coloured(0,0,0,255) else //DrawSegment($EQHBar[i],$EQH[i],barindex,$EQH[i])Style(DottedLine,3)Coloured(0,150,0,255) endif next     ENDIF ENDIF

  

  rwanderer

  Participant

  Topics: 16

  Replies: 33

  Been thanked: 0 times
  05/30/2023 at 12:46 PM #215439
  Nicolas

  Si j’ai bien compris, dans ta boucle lorsqu’on fait : $monindexH[i] = 2  alors on passe la valeur de la colonne précédente à 1, si oui voilà ce que ça donne :

  CinqDernierhaut=highest[5](high) MonPointHaut = high[5]>CinqDernierhaut[6] and CinqDernierhaut<=high[5] indexH=0 if MonPointHaut then count = count+1 //count = count+1 $EQHBar[count] = barindex[5] $EQH[count] = high[5] //$index[count] = indexH +1 $EQHBarCourante[count] = barindex //monindexH = $index[count] $monindexH[count] = 1 endif IF islastbarupdate then for i = 1 to lastset($EQHBar) for j = $EQHBar[i]+1 to barindex if close[barindex[j]] >= $EQH[i] then $EQHBarCourante[i] = barindex-barindex[j] $monindexH[i] = 2 $monindexH[i-1]=0 break endif next next for i = 1 to lastset($EQHBar) do monindexH = $monindexH[i] if $monindexH[i]=2then DrawSegment($EQHBar[i],$EQH[i],$EQHBarCourante[i],$EQH[i])Style(DottedLine,3)Coloured(0,150,0,255) DrawText("#monindexH#",$EQHBarCourante[i],$EQH[i]) coloured(0,0,0,255) elsif $monindexH[i]=1 then DrawSegment($EQHBar[i],$EQH[i],$EQHBarCourante[i],$EQH[i])Style(DottedLine,3)Coloured(150,150,0,255) DrawText("#monindexH#",$EQHBarCourante[i],$EQH[i]) coloured(0,0,0,255) else //DrawSegment($EQHBar[i],$EQH[i],barindex,$EQH[i])Style(DottedLine,3)Coloured(0,150,0,255) endif next 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

  CinqDernierhaut=highest[5](high) MonPointHaut = high[5]>CinqDernierhaut[6] and CinqDernierhaut<=high[5]   indexH=0   if MonPointHaut then count = count+1 //count = count+1 $EQHBar[count] = barindex[5] $EQH[count] = high[5] //$index[count] = indexH +1 $EQHBarCourante[count] =  barindex //monindexH = $index[count] $monindexH[count] = 1 endif   IF islastbarupdate then for i = 1 to lastset($EQHBar) for j = $EQHBar[i]+1 to barindex if close[barindex[j]] >= $EQH[i]  then $EQHBarCourante[i] = barindex-barindex[j] $monindexH[i] = 2 $monindexH[i-1]=0 break endif next next   for i = 1 to lastset($EQHBar) do monindexH = $monindexH[i] if $monindexH[i]=2then DrawSegment($EQHBar[i],$EQH[i],$EQHBarCourante[i],$EQH[i])Style(DottedLine,3)Coloured(0,150,0,255) DrawText("#monindexH#",$EQHBarCourante[i],$EQH[i]) coloured(0,0,0,255) elsif $monindexH[i]=1 then DrawSegment($EQHBar[i],$EQH[i],$EQHBarCourante[i],$EQH[i])Style(DottedLine,3)Coloured(150,150,0,255) DrawText("#monindexH#",$EQHBarCourante[i],$EQH[i]) coloured(0,0,0,255) else //DrawSegment($EQHBar[i],$EQH[i],barindex,$EQH[i])Style(DottedLine,3)Coloured(0,150,0,255) endif next ENDIF     return

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20828

  Been thanked: 4739 times
  05/30/2023 at 3:33 PM #215443
  rwanderer

  Merci Nicolas pour ton retour,

  Ce n’est pas tout a fait ça mais cette syntaxe m’a mis sur la voie sans parvenir pour autant à l’attendu :

  $monindexH[i-1]=0

  1	$monindexH[i-1]=0

  J’ai donc tester cette logique mais sans resultat non plus :

  if $monindexH[j]=1 and $monindexH[j-1]=1 then $monindexH[i-1]=0 endif

  1 2 3

  if $monindexH[j]=1 and $monindexH[j-1]=1 then $monindexH[i-1]=0 endif

  Je souhaite que si un index=1 se materialise et que le precedent index[1] =1 (donc n’as pas vue de high le surpasser alors on l’élimine) alors le precedent index[1] passe à 0.

  Est-ce plus clair pour toi ?

  

  rwanderer

  Participant

  Topics: 16

  Replies: 33

  Been thanked: 0 times
  06/01/2023 at 11:03 AM #215546
  rwanderer

  Bonjour Nicolas,

  Je ne trouve pas la solution pour annuler la condition précedente (si elle est égale à 1) lorsqu’une nouvelle se recrée.

  Pourrais-tu jeter un oeil à mon message précedent stp ?

  

  rwanderer

  Participant

  Topics: 16

  Replies: 33

  Been thanked: 0 times
  06/05/2023 at 6:47 PM #215672
  JC_Bywan

  Bjr, à tester:

  once count=0 CinqDernierhaut=highest[5](high) MonPointHaut = high[5]>CinqDernierhaut[6] and CinqDernierhaut<=high[5] //indexH=0 if MonPointHaut then count = count+1 $EQHBar[count] = barindex[5] $EQH[count] = high[5] //$index[count] = indexH +1 $EQHBarCourante[count] = barindex //monindexH = $index[count] $monindexH[count] = 1 if $EQH[count]<$EQH[count-1] then $monindexH[count-1] = 0 elsif $EQH[count]>$EQH[count-1] then $monindexH[count] = 2 endif endif IF islastbarupdate then for i = 1 to lastset($EQHBar) do monindexH = $monindexH[i] if $monindexH[i]=2 then DrawSegment($EQHBar[i],$EQH[i],$EQHBarCourante[i],$EQH[i] )Style(DottedLine,3) Coloured(0,200,0,255) DrawText("#monindexH#",$EQHBarCourante[i],$EQH[i]) coloured(0,200,0,255) elsif $monindexH[i]=1 then DrawSegment($EQHBar[i],$EQH[i],$EQHBarCourante[i],$EQH[i]) Style(DottedLine,3) Coloured(150,150,0,255) DrawText("#monindexH#",$EQHBarCourante[i],$EQH[i]) coloured(150,150,0,255) elsif $monindexH[i]=0 then DrawSegment($EQHBar[i],$EQH[i],$EQHBarCourante[i],$EQH[i]) Style(DottedLine,3) Coloured(250,0,0,255) DrawText("#monindexH#",$EQHBarCourante[i],$EQH[i]) coloured(250,0,0,255) endif next 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

  once count=0   CinqDernierhaut=highest[5](high)   MonPointHaut = high[5]>CinqDernierhaut[6] and CinqDernierhaut<=high[5]   //indexH=0   if MonPointHaut then count = count+1 $EQHBar[count] = barindex[5] $EQH[count] = high[5] //$index[count] = indexH +1 $EQHBarCourante[count] = barindex //monindexH = $index[count] $monindexH[count] = 1   if $EQH[count]<$EQH[count-1] then $monindexH[count-1] = 0 elsif $EQH[count]>$EQH[count-1] then $monindexH[count] = 2 endif endif   IF islastbarupdate then   for i = 1 to lastset($EQHBar) do monindexH = $monindexH[i] if $monindexH[i]=2 then DrawSegment($EQHBar[i],$EQH[i],$EQHBarCourante[i],$EQH[i] )Style(DottedLine,3) Coloured(0,200,0,255) DrawText("#monindexH#",$EQHBarCourante[i],$EQH[i]) coloured(0,200,0,255) elsif $monindexH[i]=1 then DrawSegment($EQHBar[i],$EQH[i],$EQHBarCourante[i],$EQH[i]) Style(DottedLine,3) Coloured(150,150,0,255) DrawText("#monindexH#",$EQHBarCourante[i],$EQH[i]) coloured(150,150,0,255) elsif $monindexH[i]=0 then DrawSegment($EQHBar[i],$EQH[i],$EQHBarCourante[i],$EQH[i]) Style(DottedLine,3) Coloured(250,0,0,255) DrawText("#monindexH#",$EQHBarCourante[i],$EQH[i]) coloured(250,0,0,255) endif next ENDIF   return

   

   

   

  

  JC_Bywan

  Moderator

  Topics: 20

  Replies: 2546

  Been thanked: 838 times
• Author
  Posts