Indicatore CCI modificato con ZigZag

• 06/24/2019 at 9:14 AM #101277
  Hendrix

  Buongiorno,

  volevo realizzare un indicatore Commodity Channel Index a 150 periodi con media mobile semplice a 21 periodi come in foto in allegato, aggiungendo in indicatore ZIG ZAG che disegni i segmenti tenendo conto dei valori espressi dall’indicatore

  negli ultimi 20 istogrammi. Naturalmente dovrà disegnare un segmento anche tra l’ultimo punto di svolta e l’ultimo istogramma .

   

  Saluti

   

  Grazie

  

  Hendrix

  Participant

  Topics: 32

  Replies: 102

  Been thanked: 0 times
  06/24/2019 at 12:03 PM #101292
  Vonasi

  Argomento spostato al forum italiano dal forum inglese. Si prega di provare a postare nel forum corretto.

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1811 times
  06/24/2019 at 12:47 PM #101299
  robertogozzi

  Questo è il CCI modificato con l’aggiunta della media:

  cciP = 150 maP = 21 MyCCI = CCI[cciP](typicalPrice) MyAvg = average[maP,maT](MyCCI) RETURN MyCCI AS "Cci",100 AS "100",-100 AS "-100",MyAvg AS "MA"

  1 2 3 4 5

  cciP = 150 maP  = 21 MyCCI = CCI[cciP](typicalPrice) MyAvg = average[maP,maT](MyCCI) RETURN MyCCI AS "Cci",100 AS "100",-100 AS "-100",MyAvg AS "MA"

  dalle proprietà deciderai come visualizzare il CCI o la media, se con istogramma o linea e quali colori usare.

  Non ho, invece, capito dove vuoi mettere lo ZigZag e su cosa lo vuoi calcolare.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  06/24/2019 at 1:23 PM #101305
  Hendrix

  Se possibile inserire un indicatore ZIG ZAG che con i valori del CCI tenga conto dei punti di inversione, ad esempio come il fractal ZIG ZAG sul prezzo presente nel forums oppure se impossibile inserirne uno che tenga conto dei prezzi.

  

  Hendrix

  Participant

  Topics: 32

  Replies: 102

  Been thanked: 0 times
  06/24/2019 at 1:48 PM #101310
  robertogozzi

  Ho preso pari pari il Fractal ZigZag e l’ho adattato al CCI, prova se ti va bene:

  Custom CCI with Average & ZigZag

  DEFPARAM CalculateOnLastBars = 1000 cciP = max(2,min(999,cciP)) //2-999 maP = max(2,min(999,maP)) //2-999 maT = max(0,min(6,maT)) //0-6 cp = max(2,min(999,cp)) //2-999 MyCCI = CCI[cciP](typicalPrice) //CCI MyAvg = average[maP,maT](MyCCI) //Moving Average // Fractal ZIGZAG once lastpoint = 0 if MyCCI[cp] >= highest[2*cp+1](MyCCI) then LH = 1 else LH = 0 endif if MyCCI[cp] <= lowest[2*cp+1](MyCCI) then LL = -1 else LL = 0 endif if LH = 1 then TOPy = MyCCI[cp] TOPx = barindex[cp] endif if LL = -1 then BOTy = MyCCI[cp] BOTx = barindex[cp] endif if LH>0 and (lastpoint=-1 or lastpoint=0) then DRAWSEGMENT(lastX,lastY,TOPx,TOPy) COLOURED(200,0,0,255) DRAWTEXT("■",TOPx,TOPy,Dialog,Bold,20) coloured(200,0,0,255) lastpoint = 1 lastX = TOPx lastY = TOPy endif if LL<0 and (lastpoint=1 or lastpoint=0) then DRAWSEGMENT(lastX,lastY,BOTx,BOTy) COLOURED(0,200,0,255) DRAWTEXT("■",BOTx,BOTy,Dialog,Bold,20) coloured(0,200,0,255) lastpoint = -1 lastX = BOTx lastY = BOTy endif RETURN MyCCI AS "Cci",100 AS "100",-100 AS "-100",MyAvg AS "MA"

  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

  DEFPARAM CalculateOnLastBars = 1000 cciP = max(2,min(999,cciP))               //2-999 maP  = max(2,min(999,maP))                //2-999 maT  = max(0,min(6,maT))                  //0-6 cp   = max(2,min(999,cp))                 //2-999   MyCCI = CCI[cciP](typicalPrice)           //CCI MyAvg = average[maP,maT](MyCCI)           //Moving Average   //                             Fractal ZIGZAG once lastpoint = 0 if MyCCI[cp] >= highest[2*cp+1](MyCCI) then    LH = 1 else    LH = 0 endif if MyCCI[cp] <= lowest[2*cp+1](MyCCI)  then    LL = -1 else    LL = 0 endif if LH = 1 then    TOPy = MyCCI[cp]    TOPx = barindex[cp] endif if LL = -1 then    BOTy = MyCCI[cp]    BOTx = barindex[cp] endif if LH>0 and (lastpoint=-1 or lastpoint=0) then    DRAWSEGMENT(lastX,lastY,TOPx,TOPy) COLOURED(200,0,0,255)    DRAWTEXT("■",TOPx,TOPy,Dialog,Bold,20) coloured(200,0,0,255)    lastpoint = 1    lastX = TOPx    lastY = TOPy endif if LL<0 and (lastpoint=1 or lastpoint=0) then    DRAWSEGMENT(lastX,lastY,BOTx,BOTy) COLOURED(0,200,0,255)    DRAWTEXT("■",BOTx,BOTy,Dialog,Bold,20) coloured(0,200,0,255)    lastpoint = -1    lastX = BOTx    lastY = BOTy endif RETURN MyCCI AS "Cci",100 AS "100",-100 AS "-100",MyAvg AS "MA"

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  06/24/2019 at 2:02 PM #101318
  Hendrix

  Perfetto unica cosa se puoi aggiungere anche l’ultimo segmento che unisce l’ultimo punto di inversione con l’ultimo istogramma (o prezzo) come mi era stato fatto per lo zig zag sul prezzo da Nicolas che ti metto in copia:

  defparam drawonlastbaronly=true //—external parameters cp = 20 once lastpoint = 0 if high[cp] >= highest[2*cp+1](high) then LH = 1 else LH = 0 endif if low[cp] <= lowest[2*cp+1](low) then LL = -1 else LL = 0 endif if LH = 1 then TOPy = high[cp] TOPx = barindex[cp] endif if LL = -1 then BOTy = low[cp] BOTx = barindex[cp] endif if LH>0 and (lastpoint=-1 or lastpoint=0) then DrawSegment(lastX,lastY,TOPx,TOPy) coloured(255,255,0) lastpoint = 1 lastX = TOPx lastY = TOPy endif if LL<0 and (lastpoint=1 or lastpoint=0) then DrawSegment(lastX,lastY,BOTx,BOTy) coloured(255,255,0) lastpoint = -1 lastX = BOTx lastY = BOTy endif if lastpoint>0 then DrawSegment(lastX,lastY,barindex,low) coloured(255,255,0) elsif lastpoint<0 then DrawSegment(lastX,lastY,barindex,high) coloured(255,255,0) 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

  defparam drawonlastbaronly=true   //—external parameters   cp = 20   once lastpoint = 0   if high[cp] >= highest[2*cp+1](high) then LH = 1 else LH = 0 endif   if low[cp] <= lowest[2*cp+1](low) then LL = -1 else LL = 0 endif   if LH = 1 then TOPy = high[cp] TOPx = barindex[cp] endif   if LL = -1 then BOTy = low[cp] BOTx = barindex[cp] endif   if LH>0 and (lastpoint=-1 or lastpoint=0) then DrawSegment(lastX,lastY,TOPx,TOPy) coloured(255,255,0) lastpoint = 1 lastX = TOPx lastY = TOPy endif   if LL<0 and (lastpoint=1 or lastpoint=0) then DrawSegment(lastX,lastY,BOTx,BOTy) coloured(255,255,0) lastpoint = -1 lastX = BOTx lastY = BOTy endif   if lastpoint>0 then DrawSegment(lastX,lastY,barindex,low) coloured(255,255,0) elsif lastpoint<0 then DrawSegment(lastX,lastY,barindex,high) coloured(255,255,0) endif   return

  Inoltre se possibile senza i quadrati rossi e verdi basta un segmento in giallo.

   

  Grazie Roberto

  

  Hendrix

  Participant

  Topics: 32

  Replies: 102

  Been thanked: 0 times
  06/24/2019 at 2:15 PM #101320
  robertogozzi

  Per scrivere il codice , utilizza il pulsante <> “insert PRT code”.  GRAZIE.

  Questo è quello modificato con il codice che mi hai detto tu, ma non mi sembra sia quello che desideri:

  DEFPARAM CalculateOnLastBars = 1000 cciP = max(2,min(999,cciP)) //2-999 maP = max(2,min(999,maP)) //2-999 maT = max(0,min(6,maT)) //0-6 cp = max(2,min(999,cp)) //2-999 MyCCI = CCI[cciP](typicalPrice) //CCI MyAvg = average[maP,maT](MyCCI) //Moving Average // Fractal ZIGZAG once lastpoint = 0 if MyCCI[cp] >= highest[2*cp+1](MyCCI) then LH = 1 else LH = 0 endif if MyCCI[cp] <= lowest[2*cp+1](MyCCI) then LL = -1 else LL = 0 endif if LH = 1 then TOPy = MyCCI[cp] TOPx = barindex[cp] endif if LL = -1 then BOTy = MyCCI[cp] BOTx = barindex[cp] endif if LH>0 and (lastpoint=-1 or lastpoint=0) then DrawSegment(lastX,lastY,TOPx,TOPy) coloured(255,255,0) lastpoint = 1 lastX = TOPx lastY = TOPy endif if LL<0 and (lastpoint=1 or lastpoint=0) then DrawSegment(lastX,lastY,BOTx,BOTy) coloured(255,255,0) lastpoint = -1 lastX = BOTx lastY = BOTy endif if lastpoint>0 then DrawSegment(lastX,lastY,barindex,MyCCI) coloured(255,255,0) elsif lastpoint<0 then DrawSegment(lastX,lastY,barindex,MyCCI) coloured(255,255,0) endif // RETURN MyCCI AS "Cci",100 AS "100",-100 AS "-100",MyAvg AS "MA"

  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

  DEFPARAM CalculateOnLastBars = 1000 cciP = max(2,min(999,cciP))               //2-999 maP  = max(2,min(999,maP))                //2-999 maT  = max(0,min(6,maT))                  //0-6 cp   = max(2,min(999,cp))                 //2-999   MyCCI = CCI[cciP](typicalPrice)           //CCI MyAvg = average[maP,maT](MyCCI)           //Moving Average   //                             Fractal ZIGZAG once lastpoint = 0 if MyCCI[cp] >= highest[2*cp+1](MyCCI) then LH = 1 else LH = 0 endif if MyCCI[cp] <= lowest[2*cp+1](MyCCI) then LL = -1 else LL = 0 endif if LH = 1 then TOPy = MyCCI[cp] TOPx = barindex[cp] endif if LL = -1 then BOTy = MyCCI[cp] BOTx = barindex[cp] endif if LH>0 and (lastpoint=-1 or lastpoint=0) then DrawSegment(lastX,lastY,TOPx,TOPy) coloured(255,255,0) lastpoint = 1 lastX = TOPx lastY = TOPy endif if LL<0 and (lastpoint=1 or lastpoint=0) then DrawSegment(lastX,lastY,BOTx,BOTy) coloured(255,255,0) lastpoint = -1 lastX = BOTx lastY = BOTy endif if lastpoint>0 then DrawSegment(lastX,lastY,barindex,MyCCI) coloured(255,255,0) elsif lastpoint<0 then DrawSegment(lastX,lastY,barindex,MyCCI) coloured(255,255,0) endif // RETURN MyCCI AS "Cci",100 AS "100",-100 AS "-100",MyAvg AS "MA"

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  06/24/2019 at 3:05 PM #101321
  Hendrix

  Ciao Roberto,

  infatti non va bene il tuo primo codice andava bene dovevi solo aggiungere un segmento che dall’ultimo punto dello zig zag vada ad unire l’attuale prezzo  nell’ultimo istogramma del CCI, (che si muova con l’indicatore per intenderci).

   

  Saluti

  

  Hendrix

  Participant

  Topics: 32

  Replies: 102

  Been thanked: 0 times
  06/24/2019 at 10:27 PM #101348
  robertogozzi

  Per ottenere il risultato che desideri devi usare due indicatori qusi identici:

  Primo:       quello del mio primo post, commentando le linee 32 e 39, quello che non stampa l’ultimo segmento.

  Secondo:  devi aggiungere all’indicatore di cui sopra quest’altro indictore che stampa SOLO l’ultimo segmento:

  DEFPARAM CalculateOnLastBars = 1000 DEFPARAM DrawOnLastBarOnly = TRUE cciP = 150 cp = 20 MyCCI = CCI[cciP](typicalPrice) //CCI // Fractal ZIGZAG once lastpoint = 0 if MyCCI[cp] >= highest[2*cp+1](MyCCI) then LH = 1 else LH = 0 endif if MyCCI[cp] <= lowest[2*cp+1](MyCCI) then LL = -1 else LL = 0 endif if LH = 1 then TOPy = MyCCI[cp] TOPx = barindex[cp] endif if LL = -1 then BOTy = MyCCI[cp] BOTx = barindex[cp] endif if LH>0 and (lastpoint=-1 or lastpoint=0) then //DrawSegment(lastX,lastY,TOPx,TOPy) coloured(255,255,0) lastpoint = 1 lastX = TOPx lastY = TOPy endif if LL<0 and (lastpoint=1 or lastpoint=0) then //DrawSegment(lastX,lastY,BOTx,BOTy) coloured(255,255,0) lastpoint = -1 lastX = BOTx lastY = BOTy endif if lastpoint>0 then DrawSegment(lastX,lastY,barindex,MyCCI) coloured(205,205,0,255) elsif lastpoint<0 then DrawSegment(lastX,lastY,barindex,MyCCI) coloured(205,205,0,255) 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

  DEFPARAM CalculateOnLastBars = 1000 DEFPARAM DrawOnLastBarOnly   = TRUE cciP = 150 cp   = 20 MyCCI = CCI[cciP](typicalPrice)           //CCI //                             Fractal ZIGZAG once lastpoint = 0 if MyCCI[cp] >= highest[2*cp+1](MyCCI) then LH = 1 else LH = 0 endif if MyCCI[cp] <= lowest[2*cp+1](MyCCI) then LL = -1 else LL = 0 endif if LH = 1 then TOPy = MyCCI[cp] TOPx = barindex[cp] endif if LL = -1 then BOTy = MyCCI[cp] BOTx = barindex[cp] endif if LH>0 and (lastpoint=-1 or lastpoint=0) then //DrawSegment(lastX,lastY,TOPx,TOPy) coloured(255,255,0) lastpoint = 1 lastX = TOPx lastY = TOPy endif if LL<0 and (lastpoint=1 or lastpoint=0) then //DrawSegment(lastX,lastY,BOTx,BOTy) coloured(255,255,0) lastpoint = -1 lastX = BOTx lastY = BOTy endif if lastpoint>0 then DrawSegment(lastX,lastY,barindex,MyCCI) coloured(205,205,0,255) elsif lastpoint<0 then DrawSegment(lastX,lastY,barindex,MyCCI) coloured(205,205,0,255) endif RETURN

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  06/25/2019 at 7:44 AM #101363
  Hendrix

  Grazie Roberto !!!!!!!!!!! Magnifico 😉

  

  Hendrix

  Participant

  Topics: 32

  Replies: 102

  Been thanked: 0 times
• Author
  Posts