Onchart Kase Peak 2 Colored

• 05/08/2020 at 1:46 PM #130617
  finplus

  Bonjour,

  j’ai récupéré ce code sur ce site et j’aimerai uniquement avoir la partie du code qui représente la partie du bas de l’image. Quelqu’un peut il m’aider SVP ? Merci.

  OnChart Kase Peak 2 Coloured

  //PRC_OnChart Kase Peak 2 Coloured | indicator //08.09.2018 //Ale @ www.prorealcode.com //Sharing ProRealTime knowledge //WWW.AUTOMATICTRADING.IT DEFPARAM CALCULATEONLASTBARS=1000 ///////////////////////INDICATOR_KASE PEAK2 maPrice = customclose // --- settings kpoDeviations = 2.0 // Kase peak oscillator deviations kpoShortCycle = 8 // Kase peak oscillator short cycle kpoLongCycle = 65 // Kase peak oscillator long cycle kpoSensitivity = 40 allPeaksMode = 1 //1=true ; 0=false AveragePeriod=20 AverageMethod=1 TightenChannel=5 ATRperiod=20 // --- end of settings if barindex>kpoLongCycle*2 then ccLog = Log(Close[0]/Close[1]) ccDev = std[9](ccLog) avg = average[30](ccDev) if (avg>0) then max1 = 0 maxs = 0 for k = kpoShortCycle to kpoLongCycle-1 do max1 = Max(Log(High[0]/Low[0+k])/Sqrt(k),max1) maxs = Max(Log(High[0+k]/Low[0])/Sqrt(k),maxs) next x1 = max1/avg xs = maxs/avg endif xp = kpoSensitivity*(average[3](x1)-average[3](xs)) xpAbs = Abs(xp) kpoBuffer = xp kphBuffer = xp tmpVal = average[50](xpAbs)+kpoDeviations*std[50](xpAbs) maxVal = Max(90.0,tmpVal) minVal = Min(90.0,tmpVal) if (kpoBuffer > 0) then kpdBuffer = maxVal kpmBuffer = minVal else kpdBuffer = -maxVal kpmBuffer = -minVal endif kppbuffer=0 if (not allPeaksMode) then if (kpoBuffer[1]>0 and kpoBuffer[1]>kpoBuffer[0] and kpoBuffer[1]>=kpoBuffer[2] and kpoBuffer[1]>= maxVal) then kppBuffer = kpoBuffer[1] endif if (kpoBuffer[1]<0 and kpoBuffer[1]<kpoBuffer[0] and kpoBuffer[1]<=kpoBuffer[2] and kpoBuffer[1]<=-maxVal) then kppBuffer = kpoBuffer[1] endif else if (kpoBuffer[1]>0 and kpoBuffer[1]>kpoBuffer[0] and kpoBuffer[1]>=kpoBuffer[2]) then kppBuffer = kpoBuffer[1] endif if (kpoBuffer[1]<0 and kpoBuffer[1]<kpoBuffer[0] and kpoBuffer[1]<=kpoBuffer[2]) then kppBuffer = kpoBuffer[1] endif endif endif /////////////////////////////////////////////////// dTR = 0 for i = 0to ATRperiod-1 dTR=dTR+max(abs(Dhigh(i)-Dlow(i)),max(abs(Dhigh(i)-Dclose(i+1)),abs(Dlow(i)-Dclose(i+1)))) next dtr=dtr/MAX(1,TightenChannel) avgRange = dTR maValue = average[max(1,AveragePeriod),AverageMethod](maPrice) KPMValue=kpMBuffer KPOValue=kpoBuffer KPHValue=kphBuffer KPDValue=kpdBuffer KPPValue=kppBuffer Buffer1=maValue Buffer4=maValue+(KPMValue)/100*avgRange buffer5=maValue+(KPOValue)/100*avgRange buffer6=maValue+(KPHValue)/100*avgRange buffer7=maValue+(KPDValue)/100*avgRange buffer8=maValue+(KPPValue)/100*avgRange r = 50+(100-(KPHBUFFER))*2 g = 50+(100+(KPHBUFFER))*2 DRAWCANDLE(open, high, low, close)coloured(R,G,50) IF not ViewHistogram then buffer6=mavalue buffer5=mavalue endif DRAWCANDLE(open, high, low, close)coloured(R,G,50) DRAWSEGMENT(barindex, maValue, barindex,buffer6)coloured(0,0,50,50) return Buffer1 coloured(0,0,0) style(line,1) as "0 level", Buffer4 coloured(0,191,255) style(LINE,2) as "KPM",Buffer5 coloured(255,0,255) style(LINE,2) as "KPO",Buffer6 coloured(R,G,50) style(LINE,2) as "KPH",Buffer7 coloured(255,0,255) style(LINE,2) as "KPD",Buffer8 coloured(155,30,255) style(LINE,2) as "KPP"

  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

  //PRC_OnChart Kase Peak 2 Coloured | indicator //08.09.2018 //Ale @ www.prorealcode.com //Sharing ProRealTime knowledge //WWW.AUTOMATICTRADING.IT DEFPARAM CALCULATEONLASTBARS=1000 ///////////////////////INDICATOR_KASE PEAK2 maPrice = customclose // --- settings kpoDeviations  = 2.0 // Kase peak oscillator deviations kpoShortCycle  = 8   // Kase peak oscillator short cycle kpoLongCycle   = 65  // Kase peak oscillator long cycle kpoSensitivity = 40 allPeaksMode = 1 //1=true ; 0=false AveragePeriod=20 AverageMethod=1 TightenChannel=5 ATRperiod=20 // --- end of settings if barindex>kpoLongCycle*2 then ccLog = Log(Close[0]/Close[1]) ccDev = std[9](ccLog) avg = average[30](ccDev) if (avg>0) then   max1 = 0   maxs = 0   for k = kpoShortCycle to kpoLongCycle-1 do    max1 = Max(Log(High[0]/Low[0+k])/Sqrt(k),max1)    maxs = Max(Log(High[0+k]/Low[0])/Sqrt(k),maxs)   next   x1 = max1/avg   xs = maxs/avg endif xp    = kpoSensitivity*(average[3](x1)-average[3](xs)) xpAbs = Abs(xp) kpoBuffer   = xp kphBuffer   = xp tmpVal = average[50](xpAbs)+kpoDeviations*std[50](xpAbs) maxVal = Max(90.0,tmpVal) minVal = Min(90.0,tmpVal) if (kpoBuffer > 0) then   kpdBuffer =  maxVal   kpmBuffer =  minVal else   kpdBuffer = -maxVal   kpmBuffer = -minVal endif kppbuffer=0 if (not allPeaksMode) then   if (kpoBuffer[1]>0 and kpoBuffer[1]>kpoBuffer[0] and kpoBuffer[1]>=kpoBuffer[2] and kpoBuffer[1]>= maxVal) then    kppBuffer = kpoBuffer[1]   endif   if (kpoBuffer[1]<0 and kpoBuffer[1]<kpoBuffer[0] and kpoBuffer[1]<=kpoBuffer[2] and kpoBuffer[1]<=-maxVal) then    kppBuffer = kpoBuffer[1]   endif else   if (kpoBuffer[1]>0 and kpoBuffer[1]>kpoBuffer[0] and kpoBuffer[1]>=kpoBuffer[2]) then    kppBuffer = kpoBuffer[1]   endif   if (kpoBuffer[1]<0 and kpoBuffer[1]<kpoBuffer[0] and kpoBuffer[1]<=kpoBuffer[2]) then    kppBuffer = kpoBuffer[1]   endif endif endif /////////////////////////////////////////////////// dTR = 0 for i = 0to ATRperiod-1 dTR=dTR+max(abs(Dhigh(i)-Dlow(i)),max(abs(Dhigh(i)-Dclose(i+1)),abs(Dlow(i)-Dclose(i+1)))) next dtr=dtr/MAX(1,TightenChannel) avgRange = dTR maValue = average[max(1,AveragePeriod),AverageMethod](maPrice) KPMValue=kpMBuffer KPOValue=kpoBuffer KPHValue=kphBuffer KPDValue=kpdBuffer KPPValue=kppBuffer Buffer1=maValue Buffer4=maValue+(KPMValue)/100*avgRange buffer5=maValue+(KPOValue)/100*avgRange buffer6=maValue+(KPHValue)/100*avgRange buffer7=maValue+(KPDValue)/100*avgRange buffer8=maValue+(KPPValue)/100*avgRange r = 50+(100-(KPHBUFFER))*2 g = 50+(100+(KPHBUFFER))*2 DRAWCANDLE(open, high, low, close)coloured(R,G,50) IF not ViewHistogram then buffer6=mavalue buffer5=mavalue endif DRAWCANDLE(open, high, low, close)coloured(R,G,50) DRAWSEGMENT(barindex, maValue, barindex,buffer6)coloured(0,0,50,50) return Buffer1 coloured(0,0,0) style(line,1) as "0 level", Buffer4 coloured(0,191,255) style(LINE,2) as "KPM",Buffer5 coloured(255,0,255) style(LINE,2) as "KPO",Buffer6 coloured(R,G,50) style(LINE,2) as "KPH",Buffer7 coloured(255,0,255) style(LINE,2) as "KPD",Buffer8 coloured(155,30,255) style(LINE,2) as "KPP"

  

  finplus

  Participant

  Topics: 106

  Replies: 408

  Been thanked: 10 times
  05/11/2020 at 9:17 AM #131068
  Nicolas

  Si tu veux parler de l’oscillateur dans la fenêtre du dessous, alors tu n’as pas récupéré le bon code. As-tu cherché les sujets qui portent sur le “Kase Peak” ?

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  05/11/2020 at 9:58 AM #131086
  finplus

  oui je parle bien de l’oscillateur dans la fenêtre. Non, je n’ai pas cherché dans la mesure où il me semblait que son code était intégré dans le code que j’ai inséré. Je vais faire une recherche. Merci.

  

  finplus

  Participant

  Topics: 106

  Replies: 408

  Been thanked: 10 times
  05/11/2020 at 3:39 PM #131151
  finplus

  Rebonjour,

  je n’ai pas retrouvé dans mes recherches l’oscillateur tel qu’il apparaît dans la fenêtre du bas (le rendu au niveau des couleurs m’intéresse énormément). Une aide serait appréciable. Merci encore.

  

  finplus

  Participant

  Topics: 106

  Replies: 408

  Been thanked: 10 times
  05/11/2020 at 5:06 PM #131166
  Nicolas

  Le code n’étant pas disponible, je l’ai refait pour t’être appréciable 🙂

  //PRC_Kase Peak Oscillator V2 | indicator //19.07.2017 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //translated from MT4 code // --- settings kpoDeviations = 2.0 // Kase peak oscillator deviations kpoShortCycle = 8 // Kase peak oscillator short cycle kpoLongCycle = 65 // Kase peak oscillator long cycle kpoSensitivity = 40 allPeaksMode = 0 //1=true ; 0=false // --- end of settings if barindex>kpoLongCycle*2 then ccLog = Log(Close[0]/Close[1]) ccDev = std[9](ccLog) avg = average[30](ccDev) if (avg>0) then max1 = 0 maxs = 0 for k = kpoShortCycle to kpoLongCycle-1 do max1 = Max(Log(High[0]/Low[0+k])/Sqrt(k),max1) maxs = Max(Log(High[0+k]/Low[0])/Sqrt(k),maxs) next x1 = max1/avg xs = maxs/avg endif xp = kpoSensitivity*(average[3](x1)-average[3](xs)) xpAbs = Abs(xp) kpoBuffer = xp kphBuffer = xp tmpVal = average[50](xpAbs)+kpoDeviations*std[50](xpAbs) maxVal = Max(90.0,tmpVal) minVal = Min(90.0,tmpVal) if (kpoBuffer > 0) then kpdBuffer = maxVal kpmBuffer = minVal else kpdBuffer = -maxVal kpmBuffer = -minVal endif kppbuffer=0 if (not allPeaksMode) then if (kpoBuffer[1]>0 and kpoBuffer[1]>kpoBuffer[0] and kpoBuffer[1]>=kpoBuffer[2] and kpoBuffer[1]>= maxVal) then kppBuffer = kpoBuffer[1] endif if (kpoBuffer[1]<0 and kpoBuffer[1]<kpoBuffer[0] and kpoBuffer[1]<=kpoBuffer[2] and kpoBuffer[1]<=-maxVal) then kppBuffer = kpoBuffer[1] endif else if (kpoBuffer[1]>0 and kpoBuffer[1]>kpoBuffer[0] and kpoBuffer[1]>=kpoBuffer[2]) then kppBuffer = kpoBuffer[1] endif if (kpoBuffer[1]<0 and kpoBuffer[1]<kpoBuffer[0] and kpoBuffer[1]<=kpoBuffer[2]) then kppBuffer = kpoBuffer[1] endif endif endif r = 50+(100-(KPHBUFFER))*2 g = 50+(100+(KPHBUFFER))*2 return kphBuffer coloured(r,g,0) style(histogram), kpoBuffer coloured(r,g,0) style(line,2), kpdBuffer coloured(255,0,255), kpmBuffer coloured(0,191,255), kppBuffer coloured(255,0,255) style(histogram,2)

  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

  //PRC_Kase Peak Oscillator V2 | indicator //19.07.2017 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //translated from MT4 code   // --- settings kpoDeviations  = 2.0 // Kase peak oscillator deviations kpoShortCycle  = 8   // Kase peak oscillator short cycle kpoLongCycle   = 65  // Kase peak oscillator long cycle kpoSensitivity = 40 allPeaksMode = 0 //1=true ; 0=false // --- end of settings   if barindex>kpoLongCycle*2 then ccLog = Log(Close[0]/Close[1]) ccDev = std[9](ccLog)   avg = average[30](ccDev)   if (avg>0) then max1 = 0 maxs = 0   for k = kpoShortCycle to kpoLongCycle-1 do max1 = Max(Log(High[0]/Low[0+k])/Sqrt(k),max1) maxs = Max(Log(High[0+k]/Low[0])/Sqrt(k),maxs) next x1 = max1/avg xs = maxs/avg endif   xp    = kpoSensitivity*(average[3](x1)-average[3](xs)) xpAbs = Abs(xp)   kpoBuffer   = xp kphBuffer   = xp   tmpVal = average[50](xpAbs)+kpoDeviations*std[50](xpAbs) maxVal = Max(90.0,tmpVal) minVal = Min(90.0,tmpVal)   if (kpoBuffer > 0) then kpdBuffer =  maxVal kpmBuffer =  minVal else kpdBuffer = -maxVal kpmBuffer = -minVal endif   kppbuffer=0 if (not allPeaksMode) then if (kpoBuffer[1]>0 and kpoBuffer[1]>kpoBuffer[0] and kpoBuffer[1]>=kpoBuffer[2] and kpoBuffer[1]>= maxVal) then kppBuffer = kpoBuffer[1] endif if (kpoBuffer[1]<0 and kpoBuffer[1]<kpoBuffer[0] and kpoBuffer[1]<=kpoBuffer[2] and kpoBuffer[1]<=-maxVal) then kppBuffer = kpoBuffer[1] endif else if (kpoBuffer[1]>0 and kpoBuffer[1]>kpoBuffer[0] and kpoBuffer[1]>=kpoBuffer[2]) then kppBuffer = kpoBuffer[1] endif if (kpoBuffer[1]<0 and kpoBuffer[1]<kpoBuffer[0] and kpoBuffer[1]<=kpoBuffer[2]) then kppBuffer = kpoBuffer[1] endif endif endif r = 50+(100-(KPHBUFFER))*2 g = 50+(100+(KPHBUFFER))*2   return kphBuffer coloured(r,g,0) style(histogram), kpoBuffer coloured(r,g,0) style(line,2), kpdBuffer coloured(255,0,255), kpmBuffer coloured(0,191,255), kppBuffer coloured(255,0,255) style(histogram,2)

   

  1 user thanked author for this post.

  mcha

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  05/11/2020 at 5:50 PM #131180
  finplus

  Merci beaucoup. J’apprécie ! Bonne soirée et soyez prudent.

  

  finplus

  Participant

  Topics: 106

  Replies: 408

  Been thanked: 10 times
• Author
  Posts