Prix ronds améliorations possibles ?

• 09/05/2022 at 8:07 AM #200137
  JERRY

  Quelqu’un pourrait-il améliorer ce super code qui trace automatiquement des lignes sur les prix ronds.

  Très utile car réactions fréquentes sur ces niveaux. Mais j’aimerais qu’il trace des rectangle (zones) de hauteur paramétrable (p. ex +5 et -5 du prix rond) et cerise sur le gateaux de couleur paramétrable (ça c’est moins important) .   Merci d’avance.

  //PRC_SweetSpots round number | indicator //04.12.2017 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge // --- settings // NumLinesAboveBelow = 100 // MainLevels = 100 // SubLevels = 20 // --- end of settings defparam drawonlastbaronly=true DecAr = MainLevels*pointsize DecArSub = SubLevels*pointsize myVarUp = close myVarDn = close myVarUpSub = close myVarDnSub = close if DecAr = 0 then InvDec = 1 else InvDec = 1/DecAr endif if DecArSub = 0 then InvDecSub = 1 else InvDecSub = 1/DecArSub endif //if DecAr>0 and DecArSub>0 and InvDec>0 then for i = 0 to NumLinesAboveBelow do Floor1 = round(InvDec*myVarDn-0.51)/InvDec Ceil1 = round(InvDec*myVarUp+0.51)/InvDec FloorSub = round(InvDecSub*myVarDnSub-0.51)/InvDecSub CeilSub = round(InvDecSub*myVarUpSub+0.51)/InvDecSub r=36 g=49 floorval=floorsub ceilval=ceilsub drawhline(floorval) coloured(r,g,168) drawhline(ceilval) coloured(r,g,168) drawrectangle(1,floor1,barindex,floor1) coloured(r,0,0) drawrectangle(1,ceil1,barindex,ceil1) coloured(r,0,0) myVarUp=Ceil1 myVarDn=Floor1 myVarUpSub=CeilSub myVarDnSub=FloorSub next 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

  //PRC_SweetSpots round number | indicator //04.12.2017 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge   // --- settings // NumLinesAboveBelow = 100 // MainLevels = 100 // SubLevels = 20 // --- end of settings   defparam drawonlastbaronly=true   DecAr = MainLevels*pointsize DecArSub = SubLevels*pointsize   myVarUp = close myVarDn = close myVarUpSub = close myVarDnSub = close   if DecAr = 0 then InvDec = 1 else InvDec = 1/DecAr endif if DecArSub = 0 then InvDecSub = 1 else InvDecSub = 1/DecArSub endif //if DecAr>0 and DecArSub>0 and InvDec>0 then for i = 0 to NumLinesAboveBelow do     Floor1 = round(InvDec*myVarDn-0.51)/InvDec Ceil1 = round(InvDec*myVarUp+0.51)/InvDec   FloorSub = round(InvDecSub*myVarDnSub-0.51)/InvDecSub CeilSub = round(InvDecSub*myVarUpSub+0.51)/InvDecSub   r=36 g=49 floorval=floorsub ceilval=ceilsub   drawhline(floorval) coloured(r,g,168) drawhline(ceilval) coloured(r,g,168) drawrectangle(1,floor1,barindex,floor1) coloured(r,0,0) drawrectangle(1,ceil1,barindex,ceil1) coloured(r,0,0)   myVarUp=Ceil1 myVarDn=Floor1 myVarUpSub=CeilSub myVarDnSub=FloorSub   next   return

   

  

  JERRY

  Participant

  Topics: 4

  Replies: 5

  Been thanked: 0 times
  09/05/2022 at 11:52 AM #200166
  Nicolas

  Ci-joint le code avec des rectangles, pour modifier la couleur voir les noms HTML disponibles ici: HTML Color Names

  //PRC_SweetSpots round number | indicator //04.12.2017 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge defparam drawonlastbaronly=true // --- settings NumLinesAboveBelow = 100 MainLevels = 100 SubLevels = 20 // --- end of settings if islastbarupdate then DecAr = MainLevels*pointsize DecArSub = SubLevels*pointsize myVarUp = close myVarDn = close myVarUpSub = close myVarDnSub = close if DecAr = 0 then InvDec = 1 else InvDec = 1/DecAr endif if DecArSub = 0 then InvDecSub = 1 else InvDecSub = 1/DecArSub endif //if DecAr>0 and DecArSub>0 and InvDec>0 then for i = 0 to NumLinesAboveBelow do Floor1 = round(InvDec*myVarDn-0.51)/InvDec Ceil1 = round(InvDec*myVarUp+0.51)/InvDec FloorSub = round(InvDecSub*myVarDnSub-0.51)/InvDecSub CeilSub = round(InvDecSub*myVarUpSub+0.51)/InvDecSub r=36 g=49 floorval=floorsub ceilval=ceilsub drawhline(floorval) coloured(r,g,168) drawhline(ceilval) coloured(r,g,168) drawrectangle(0,floorval+5*pointsize,datetobarindex(20301231),floorval-5*pointsize) coloured("white",50) bordercolor("white",50) drawrectangle(0,ceilval+5*pointsize,datetobarindex(20301231),ceilval-5*pointsize) coloured("white",50) bordercolor("white",50) myVarUp=Ceil1 myVarDn=Floor1 myVarUpSub=CeilSub myVarDnSub=FloorSub 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 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

  //PRC_SweetSpots round number | indicator //04.12.2017 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge defparam drawonlastbaronly=true // --- settings NumLinesAboveBelow = 100 MainLevels = 100 SubLevels = 20 // --- end of settings   if islastbarupdate then DecAr = MainLevels*pointsize DecArSub = SubLevels*pointsize   myVarUp = close myVarDn = close myVarUpSub = close myVarDnSub = close   if DecAr = 0 then InvDec = 1 else InvDec = 1/DecAr endif if DecArSub = 0 then InvDecSub = 1 else InvDecSub = 1/DecArSub endif //if DecAr>0 and DecArSub>0 and InvDec>0 then for i = 0 to NumLinesAboveBelow do     Floor1 = round(InvDec*myVarDn-0.51)/InvDec Ceil1 = round(InvDec*myVarUp+0.51)/InvDec   FloorSub = round(InvDecSub*myVarDnSub-0.51)/InvDecSub CeilSub = round(InvDecSub*myVarUpSub+0.51)/InvDecSub   r=36 g=49 floorval=floorsub ceilval=ceilsub   drawhline(floorval) coloured(r,g,168) drawhline(ceilval) coloured(r,g,168)   drawrectangle(0,floorval+5*pointsize,datetobarindex(20301231),floorval-5*pointsize) coloured("white",50) bordercolor("white",50) drawrectangle(0,ceilval+5*pointsize,datetobarindex(20301231),ceilval-5*pointsize) coloured("white",50) bordercolor("white",50)   myVarUp=Ceil1 myVarDn=Floor1 myVarUpSub=CeilSub myVarDnSub=FloorSub   next endif   return

   

  1 user thanked author for this post.

  JERRY

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20830

  Been thanked: 4744 times
• Author
  Posts