//@version=4
study(“EMA21 Speed & Accel”, overlay=false)
// Variable definition
NP = input(1, minval=1, title=”Number of Periods to use in finite difference derivatives”)
// CURVSC = input(0.1, minval=0, title=”Accel Plot Scale”) // Not used in this release
//
len1 = input(21, minval=1, title=”EMA Length”)
out1 = ema(close, len1)
// background color when speed & acceleration are >=0
verdeclaro=#98FB98
blanco=#FFFFFF
//
// SLOW MA Derivative (Speed in %/Period) Calculation (over NP periods)
//
SMAS = (1.50*ema(close, len1)-2*ema(close[NP], len1)+0.5*ema(close[2*NP], len1))/(NP*ema(close, len1)) // derivada con tres puntos
// Se plotea SMASMA para suavizar un poco
SMASMA = sma(SMAS, 5)
//
plot(max(SMASMA*100,-5), title=”%-per-day”, color=color.blue, linewidth=3)
//
// SMAS Derivative (Curvature = acceleration in %/period/period ) = Speed derivative = Acceleration
//
CURV = (ema(close, len1)-2*ema(close[NP], len1)+ema(close[2*NP], len1))/(NP*NP) // derivada SEGUNDA con tres puntos
//
CURVMA = sma(CURV,5)
// Scale Curvature
maxslope=highest(SMASMA,200)*100
maxcurvature=highest(CURVMA,200)
scale=1*maxslope/maxcurvature
//
plot(iff(CURVMA>0, min(CURVMA*scale,5), max(CURVMA*scale,-5)), title=”CURV”, color=color.fuchsia, linewidth=2)
//
// Colorear verde claro u oscuro en función de CURV >=0 and/or SMASMA >=0
//
bgcolor((CURVMA>=0 and SMASMA>=0) ? verdeclaro : blanco,
transp=40)
// Se plotea el eje de abscisas
plot(0, title=”0″, color=color.black)
.
