Mi sono accorto di un errore quando utilizzato con le valute.

correggere le righe 22 e 24 con:

DeltaY=max(2*pipsize,Punti*pipsize)

DeltaY=max(0.001,Percentuale/100*Dclose(1)*pipsize)

Ps: non è possibile correggere i post?

Buon pomeriggio.

Purtroppo mi sono accorto che l’indicatore realizzato con gli array, così come compilato, dà dei problemi nella fase di commutazione da lastpoint 1/-1 durante la candela in corso di aggiornamento. Ho provato a capirne il motivo per una giornata intera, ma non sono riuscito a venir a capo di questa problematica che fa riempire gli array di valori sballati durante tutta la candela in progress.

Al che ho fatto una marcia indietro, e ho rifatto tutto usando variabili fisse e non parametriche, ed ora funziona tutto perfettamente anche se il n. di segmenti visualizzati ora è fisso e modificabile solo nel codice (comunque sufficienti per l’utilizzo con una strategia 1-2-3)

Peccato, ma non ho proprio idea su come risolvere il problema di cui sopra.

Ps: Roberto, come si può fare il modo che un codice venga eseguito solo alla chiusura della candela (e non in modo continuo “live”)? Ho provato ad usare il comando “timeframe(<valore del timeframe>, udateonclose)” ma apperentemente non ha effetto sul ricalcolo

//20/12/2022 - T.F. - V1: Codice ZigZag Versione v1: eliminati gli array e gestito con variabili fisse
//Sharing on ProRealCode

DEFPARAM DRAWONLASTBARONLY=TRUE
//Variabili:
//Punti=20          //Pips
//Percentuale=0.25  //%
//Tipo=0            //0=pips; 1=perc

VarY=CustomClose //close,tpicalprice, etc

//inizializzo primo punto come TOP
once LastPoint = 1
once TX0    = barindex
once TY0    = VarY

//Tipo ZZ in Punti o Percentuale
If Tipo=0 then //ZZ in punti
DeltaY=Punti*pipsize
elsif tipo=1 then //ZZ in %
DeltaY=Percentuale/100*Dclose(1)//usato Dclose come rif. per stabilità del valore
endif

//ZZ in fase 1
if LastPoint=1 then //ultimo punto era un massimo
if VarY>=TY0 then // aggiorno il punto di max e rimango in LastPoint=1
TY0=VarY
TX0=barindex
endif
if VarY<=TY0-DeltaY then //primo punto definitivo low
rem for i=PI downto 0 do //shift memoria punti precedenti
LX4=LX3
LY4=LY3
LX3=LX2
LY3=LY2
LX2=LX1
LY2=LY1
LX1=LX0
LY1=LY0

LY0=VarY //primo punto definitivo top
LX0=barindex
LastPoint=-1
endif
endif

//ZZ in fase -1
if LastPoint=-1 then //ultimo punto era un minimo
if VarY<=LY0 then // aggiorno il punto di min e rimango in LastPoint=-1
LY0=VarY
LX0=barindex
endif
if VarY>=LY0+DeltaY then //primo punto definitivo top
TX4=TX3
TY4=TY3
TX3=TX2
TY3=TY2
TX2=TX1
TY2=TY1
TX1=TX0
TY1=TY0

TY0=VarY //primo punto definitivo top
TX0=barindex
LastPoint=1
endif
endif


//---GRAFICA---
If lastpoint=1 then
drawsegment (barindex,close,TX0,TY0) style (dottedline,2) COLOURED (0,0,200) //segmento in progress
drawsegment (TX0,TY0,LX0,LY0) style (line,2) COLOURED (0,0,200) //segmenti definitivi
drawsegment (LX0,LY0,TX1,TY1) style (line,2) COLOURED (0,0,200)
drawsegment (TX1,TY1,LX1,LY1) style (line,2) COLOURED (0,0,200)
drawsegment (LX1,LY1,TX2,TY2) style (line,2) COLOURED (0,0,200)
drawsegment (TX2,TY2,LX2,LY2) style (line,2) COLOURED (0,0,200)
drawsegment (LX2,LY2,TX3,TY3) style (line,2) COLOURED (0,0,200)
drawsegment (TX3,TY3,LX3,LY3) style (line,2) COLOURED (0,0,200)
drawsegment (LX3,LY3,TX4,TY4) style (line,2) COLOURED (0,0,200)
drawsegment (TX4,TY4,LX4,LY4) style (line,2) COLOURED (0,0,200)
endif
If lastpoint=-1 then
drawsegment (barindex,close,LX0,LY0) style (dottedline,2) COLOURED (0,200,0) //segmento in progress
drawsegment (LX0,LY0,TX0,TY0) style (line,2) COLOURED (0,0,200) //segmenti definitivi
drawsegment (TX0,TY0,LX1,LY1) style (line,2) COLOURED (0,0,200)
drawsegment (LX1,LY1,TX1,TY1) style (line,2) COLOURED (0,0,200)
drawsegment (TX1,TY1,LX2,LY2) style (line,2) COLOURED (0,0,200)
drawsegment (LX2,LY2,TX2,TY2) style (line,2) COLOURED (0,0,200)
drawsegment (TX2,TY2,LX3,LY3) style (line,2) COLOURED (0,0,200)
drawsegment (LX3,LY3,TX3,TY3) style (line,2) COLOURED (0,0,200)
drawsegment (TX3,TY3,LX4,LY4) style (line,2) COLOURED (0,0,200)
drawsegment (LX4,LY4,TX4,TY4) style (line,2) COLOURED (0,0,200)
endif

return

Come l’hai realizzato tu funziona perfettamente, anche se ancora non mi è completamente chiaro il motivo.
Ho fatto anche un esperimento per fare eseguire la parte centrale del codice solo quando:
Time <> Time[1]
ma non è sufficiente, è proprio necessario anche il confronto fra:
$myTime[0] <> $myTime[1]
come hai fatto tu, e la relativa transizione a fine codice $myTime[1] = $myTime[0] anche se il contenuto di $myTime è sempre il valore Time (che teoricamente incrementa con passo >= 1 secondo essendo un valore HHMMSS).
E’ un po difficile spiegarsi via messaggio 🙂
Me lo studio ancora un po per riuscire a mettere bene a fuoco la tua modifica risolutiva.
Per intanto ti ringrazio! Dai tuoi post imparo sempre qualcosa in più 😉
Buone feste Roberto

Ci stavo riflettendo… ed effettivamente il problema si capisce meglio facendolo girare su un grafico a 1 tick. Come giustamente dicevi tu, il TIME in HHMMSS rimane uguale anche per diversi tick, mente ovviamente i valori del prezzo continuano a cambiare e quindi anche i relativi calcoli nel ciclo dell’indicatore.
In alcune condizioni, il valore di LastPoint continua a commutare da 1 a -1 all’interno della stessa barra, facendo quindi aggionare i valori di X e Y di entrambi gli array $T e $L, che ad un certo punto si riempiono dello stesso prezzo e barindex.
La tua (ottima) soluzione riesce ad ovviare a questo anomalo comportamento.
Grazie ancora per il tempo speso, per me è stato molto utile!