by Drenaggio
Better Volume e Better volume + RSI
Il Better Volume vi aiuta nell'identificazione degli stati psicologici del mercato, i quei momenti cioè che si possono classificare come euforia/panico, disinteresse, accumulo short/Long, attesa....
Legenda:
climax High-Vol High-Range = euforia/panico
climax High-Vol Low-Range = euforia/panico fase finale
Low-Vol Low-Ramge = attesa
High-Vol Low-Range = accumulo Short/Long
Low-Vol High-Range = disinteresse
Nella versione con RSI avete anche la lettura contemporanea della forza presente sul mercato, questo tipo di RSI si adatta alla scala del volume automaticamente ma ho inserito i controlli per poterlo eventualmente regolare in altezza, è completamente configurabile:
Legenda variabili RSI con valori di default:
Oshift= 30 (è il periodo su cui si calcola la media di riferimento del volume, tale periodo riguarda solo il numero iniziale di barre del vostro grafico storico, cioè se scegliete 30 (default), si intendono le prime 30 barre, non le seguenti 30, percui se all'inizio del vostro storico il volume era particolarmente scarso basterà che aumentiate tale periodo.
Vshift= 5 (è il parametro che regola RSI in altezza sulla scala del volume
period=14 (periodo di calcolo per RSI)
RSIMinimo=20 (la soglia di ipervenduto)
RSIMassimo=80 (la soglia di ipercomprato)
applica a = chiusura (valore su cui si calcola RSI)
ed ecco i codici:
Versione Solo volumi:
/////////////////////////////////////////////
vv1=volume
vv2=range*volume
if range<>0 then
vv3=volume/range
endif
vv4=average[100](vv1)
if vv1=lowest[20](vv1) then
lowvol=vv1
else
lowvol=0
endif
if vv2=highest[20](vv2) then
climax=vv1
else
climax=0
endif
if vv3=highest[20](vv3) then
chum=vv1
else
chum=0
endif
if vv2=highest[20](vv2) and vv3=highest[20](vv3) then
chumclim=vv1
else
chumclim=0
endif
if vv3=lowest[20](vv3) then
lowchum=vv1
else
lowchum=0
endif
return vv1 coloured(0,204,204) as "volume",lowvol coloured(204,204,0) as "Low-V Low-R",climax coloured(255,0,0) as "climax High-V High-R",chum coloured(0,204,0) as "High-V Low-R",lowchum as "Low-V High-R",chumclim coloured(204,0,204) as "climax High-V Low-R",vv4 as "average"
//////////////////////////////////////////////////////////////////////
versione modificata con RSI
//////////////////////////////////////////////////////
REM Parametri: Oshift=30 Vshift=5 period=14 RSIMassimo=80 RSIMinimo=20
////////////////////////////////////////////////////
vv1=volume
vv2=range*volume
if range<>0 then
vv3=volume/range
endif
vv4=average[100](vv1)
if vv1=lowest[20](vv1) then
lowvol=vv1
else
lowvol=0
endif
if vv2=highest[20](vv2) then
climax=vv1
else
climax=0
endif
if vv3=highest[20](vv3) then
chum=vv1
else
chum=0
endif
if vv2=highest[20](vv2) and vv3=highest[20](vv3) then
chumclim=vv1
else
chumclim=0
endif
if vv3=lowest[20](vv3) then
lowchum=vv1
else
lowchum=0
endif
REM RSI
rialzo=MAX(0,Customclose-Customclose[1])
ribasso=MAX(0,Customclose[1]-Customclose)
mmRialzo=wilderaverage[period](rialzo)
mmRibasso=wilderaverage[period](ribasso)
RS=mmRialzo/mmRibasso
mioRSI=100-100/(1+RS)
avolume=average[Oshift](volume)
If Barindex<Oshift then
mioRSI2=undefined
else
avolume=avolume[1]
mioRSI2=((mioRSI/100)*Vshift)*avolume
endif
avRSI=average[period*2](mioRSI2)
mRSI=avolume*(Vshift/2)
mioMax=(RSIMassimo/100)
mioMin=(RSIMinimo/100)
RSImin=(avolume*Vshift)*mioMin
RSIMax=(avolume*Vshift)*mioMax
return vv1 coloured(0,204,204) as "volume",lowvol coloured(204,204,0) as "Low-V Low-R",climax coloured(255,0,0) as "climax High-V High-R",chum coloured(0,204,0) as "High-V Low-R",lowchum as "Low-V High-R",chumclim coloured(204,0,204) as "climax High-V Low-R",vv4 as "average", mioRSI2 as "RSI", avRSI as "Media RSI", RSImin as "Ipervenduto", mRSI as "RSI 50", RSIMax as "Ipercomprato"
