Scripts

study(title="MULTIEMA", shorttitle="4EMAs GM", overlay=true, resolution="")

periodo1= input(10,"Longitud Media 1",input.integer)
suavizado1 = input(title="Tipo de Media Móvil 1", defval="EMA", options=["SMA","EMA", "WMA", "RMA"])
periodo2= input(20,"Longitud Media 2",input.integer)
suavizado2 = input(title="Tipo de Media Móvil 2", defval="EMA", options=["SMA","EMA", "WMA", "RMA"])
periodo3= input(30,"Longitud Media 3",input.integer)
suavizado3 = input(title="Tipo de Media Móvil 3", defval="EMA", options=["SMA","EMA", "WMA", "RMA"])
periodo4= input(40,"Longitud Media 4",input.integer)
suavizado4 = input(title="Tipo de Media Móvil 4", defval="EMA", options=["SMA","EMA", "WMA", "RMA"])

primero(source, length) =>
if suavizado1 == "WMA"
wma(source, length)
else
if suavizado1 == "EMA"
ema(source, length)
else
if suavizado1 == "SMA"
sma(source, length)
else
rma(source, length)

segundo(source, length) =>
if suavizado2 == "SMA"
sma(source, length)
else
if suavizado2 == "EMA"
ema(source, length)
else
if suavizado2 == "WMA"
wma(source, length)
else
rma(source, length)

tercero(source, length) =>
if suavizado3 == "SMA"
sma(source, length)
else
if suavizado3 == "EMA"
ema(source, length)
else
if suavizado3 == "WMA"
wma(source, length)
else
rma(source, length)

cuarto(source, length) =>
if suavizado4 == "WMA"
wma(source, length)
else
if suavizado4 == "EMA"
ema(source, length)
else
if suavizado4 == "SMA"
sma(source, length)
else
rma(source, length)



mm1 = primero(close, periodo1)
mm2 = segundo(close, periodo2)
mm3 = tercero(close, periodo3)
mm4 = cuarto(close, periodo4)

plot(mm1,color=#00FFFF)
plot(mm2,color=#00E5E5)
plot(mm3,color=#00CCCC)
plot(mm4,color=#00B2B2)