Mi sono divertito a scrivere queste 2 medie in easyscript.
Sono 2 medie esponenziali (EMA) a periodo variabile una di kaufman e una frattale,
variano il periodo una in base ad un efficency ratio, una in base alla dimensione frattale del sottostante.
Non sono convinto di aver fatto bene il lavoro , però magari qualcuno è interessato ...
kama:
INPUTS: @price(CLOSE), @periodL(30), @periodV(2), @barre(10)
SET sumchange = SUM(HIGH-LOW, @barre)
SET totchange = (HighestHighValue(@barre)-LowestLowValue(@barre))
SET effratio = totchange/sumchange
#più questo valore si avvicina ad 1 più si è in trend, più a 0 e meno si è in trend
SET veloce = 2/(@periodV+1)
SET lenta = 2/(@periodL+1)
SET a = POW((effratio*(veloce - lenta)+lenta),2)
SET alfa = IF(a<0.01, 0.01, a)
SET alfa = IF(a>1, 1, a)
SET n = ROUND(((2-alfa)/alfa),0)
PRINT(n,effratio,sumchange)
SET kama = EMA(@price, n)
SET PLOT1 = kama
frama:
INPUTS: @price(CLOSE), @periods(10), @coeffW(-4.6)
SET halfperiod = @periods/2
SET HL1 = (HighestHighValue(halfperiod)-LowestLowValue(halfperiod))/halfperiod
SET HL2 = REF(HL1, halfperiod)
SET HL = (HighestHighValue(@periods)-LowestLowValue(@periods))/@periods
# PRINT(HL1,HL2,HL)
#log 2 = 0.301
SET D = (LOG10(HL1+HL2) - LOG10(HL))/0.301
#D è la dimensione frattale del grafico
#se D si avvicina a 1 c\'è trend, se si avvicina a 2 no trend
SET a = EXP( @coeffW*(D-1))
SET alfa = IF(a<0.01, 0.01, a)
SET alfa = IF(a>1, 1, a)
# la frama è una ema con periodo variabile in base alla dim frattale
SET n = ROUND(((2-alfa)/alfa),0)
PRINT(n,alfa,a,D)
SET frama = EMA(@price, n)
#SET PLOT1 = D
#SET PLOT2 = 2
#SET PLOT3 = 1
SET PLOT1 = frama
Sono 2 medie esponenziali (EMA) a periodo variabile una di kaufman e una frattale,
variano il periodo una in base ad un efficency ratio, una in base alla dimensione frattale del sottostante.
Non sono convinto di aver fatto bene il lavoro , però magari qualcuno è interessato ...
kama:
INPUTS: @price(CLOSE), @periodL(30), @periodV(2), @barre(10)
SET sumchange = SUM(HIGH-LOW, @barre)
SET totchange = (HighestHighValue(@barre)-LowestLowValue(@barre))
SET effratio = totchange/sumchange
#più questo valore si avvicina ad 1 più si è in trend, più a 0 e meno si è in trend
SET veloce = 2/(@periodV+1)
SET lenta = 2/(@periodL+1)
SET a = POW((effratio*(veloce - lenta)+lenta),2)
SET alfa = IF(a<0.01, 0.01, a)
SET alfa = IF(a>1, 1, a)
SET n = ROUND(((2-alfa)/alfa),0)
PRINT(n,effratio,sumchange)
SET kama = EMA(@price, n)
SET PLOT1 = kama
frama:
INPUTS: @price(CLOSE), @periods(10), @coeffW(-4.6)
SET halfperiod = @periods/2
SET HL1 = (HighestHighValue(halfperiod)-LowestLowValue(halfperiod))/halfperiod
SET HL2 = REF(HL1, halfperiod)
SET HL = (HighestHighValue(@periods)-LowestLowValue(@periods))/@periods
# PRINT(HL1,HL2,HL)
#log 2 = 0.301
SET D = (LOG10(HL1+HL2) - LOG10(HL))/0.301
#D è la dimensione frattale del grafico
#se D si avvicina a 1 c\'è trend, se si avvicina a 2 no trend
SET a = EXP( @coeffW*(D-1))
SET alfa = IF(a<0.01, 0.01, a)
SET alfa = IF(a>1, 1, a)
# la frama è una ema con periodo variabile in base alla dim frattale
SET n = ROUND(((2-alfa)/alfa),0)
PRINT(n,alfa,a,D)
SET frama = EMA(@price, n)
#SET PLOT1 = D
#SET PLOT2 = 2
#SET PLOT3 = 1
SET PLOT1 = frama
...quindi se c'è un tasto (su Fiuto) vuol dire che serve !!
Comment