rsi caruso

rsi1=rsi[4](Close) rsi2=rsi[14](Close) diffRS=exponentialaverage[3](exponentialaverage[3](rsi1-rsi2)) return diffRS,0 REM Determina le variazione giornaliere rialzo = MAX(0, CLOSE - CLOSE[1]) ribasso = MAX(0, CLOSE[1] - CLOSE) REM Calcola la media dei guadagni i giorni di rialzo REM e delle perdite i gorni di ribasso mmRialzo = WILDERAVERAGE[4](rialzo) mmRibasso = WILDERAVERAGE[4](ribasso) REM En déduit le RS RS = mmRialzo / mmRibasso REM E finalmente le RSI mioRSI = 100 - 100 / (1 + RS) ///////////////// mmRialzolu = WILDERAVERAGE[14](rialzo) mmRibassolu = WILDERAVERAGE[14](ribasso) REM En déduit le RS RSlu = mmRialzolu / mmRibassolu REM E finalmente le RSI mioRSIlu = 100 - 100 / (1 + RSlu) RETURN mioRSI coloured(220,220,0)AS"rsiwildercorto",20 COLOURED(0,0,255)as"20",30 COLOURED(0,0,255)as"30",70 COLOURED(0,0,255)as"70",80 COLOURED(0,0,255)as"80",mioRSIlu coloured(70,70,130) AS"rsiwilderlungo",50