FEinfinity EU/GU Scalp 2.2

study(title="FEinfinity EU/GU Scalp 2.2 ", shorttitle="FEinfinity EU/GU Scalp 2.2", overlay=true)
src1= high, len1 = input(5, minval=1, title="Length")
out1 = sma(src1, len1)
src3= low, len3 = input(5, minval=1, title="Length")
out3 = sma(src3, len3)
sourcebb = close
lengthbb= input(20, minval=1), mult = input(2.0, minval=0.001, maxval=50)
basis = sma(sourcebb, lengthbb)
dev = mult * stdev(sourcebb, lengthbb)
upper = basis + dev
lower = basis - dev
//p1 = plot(upper, title="BB Atas", linewidth=2,color=blue)
//p2 = plot(lower, title="BB Bawah", linewidth=2,color=blue)
//p3 = plot(basis, title="BB Tengah", linewidth=1,color=blue)
crossingatas=cross(upper,out1) ? avg(upper, out1) : na
crossingbawah=cross(lower,out3)? avg(lower,out3) : na
plot(crossingatas,title="Atas", style=circles, linewidth=5, color=blue)
plot(crossingbawah,title="Bawah", style=circles, linewidth=5, color=lime)

isupxtreme() => close > upper
isDownxtreme() => close <= lower