// 08/05/2022 T.F. codice per tracciamento rette di regressione lineare comprese nella lunghezza del periodo selezionato
// tracciamento segmenti di regressione, linea di regressione, e valore della pendenza
rem period = 34 //Periodo
rem vissegmenti = 1 //Visualizzare segmenti di regressione
periodomenouno = period-1 // candele coinvolte nel calcolo
Ex = 0
Ey = 0
Ex2 = 0
Exy = 0
for i=0 to periodomenouno
Ex = Ex + i //sommatoria valori di x
Ey = Ey + close[i] //sommatoria valori di y
Ex2 = Ex2 + (i * i) //sommatoria quadrati di x
Exy = Exy + (close[i] * i) //sommatoria x*y
next
//pendenza del segmento di regressione
if Ex2=SQUARE(Ex) then
pendenza = 0
else
pendenza = - (period * Exy - Ex * Ey) / (period * Ex2 - SQUARE(Ex))
endif
//valory y estremi del segmento di regressione
ValoreInizioRL = (Ey - pendenza * Ex) / (period)
ValoreFineRL = ValoreInizioRL + pendenza * periodomenouno // è il vero e proprio indicatore
if vissegmenti = 1 then
drawsegment (barindex[periodomenouno],ValoreInizioRL,barindex,ValoreFineRL)
endif
Drawpoint (barindex, ValoreFineRL,2)
return ValoreFineRL coloured (0,0,250) style (line,3) as "RL" rem , pendenza as "pendenza"