RP analysis

study("analysis", overlay=true)

todayopen = security(tickerid, 'D', open) 
avgoh = security(tickerid, 'D', sma(high-open, 10))
avgol = security(tickerid, 'D', sma(open-low, 10))

topwick = security(tickerid, 'D', sma(open>close?high-open:high-close, 30))
bottomwick = security(tickerid, 'D', sma(open>close?close-low:open-low, 30))
body = security(tickerid, 'D', sma(open>close?open-close:close-open, 30))

to = plot(todayopen, title="open",style=line, color=green, linewidth=4)

ema13 = security(tickerid, 'D', ema(close, 13))
plot(ema13, title="EMA",style=line, color=red, linewidth=4)

ematop = security(tickerid, 'D', sma(high>ema13?high-ema13:na, 200))
plot(ema13+ematop, title="ematop",style=line, color=aqua, linewidth=4)
emabottom = security(tickerid, 'D', sma(ema13>low?ema13-low:na, 200))
plot(ema13-emabottom, title="emabottom",style=line, color=aqua, linewidth=4)


//u1 = plot(todayopen+body, title="u1",style=line, color=blue, linewidth=2)
//u2 = plot(todayopen+(body*2), title="u2",style=line, color=blue, linewidth=2)
//u3 = plot(todayopen+(body*.5), title="u3",style=line, color=blue, linewidth=2)
//fill(u1, u2, color=silver, transp=75)
//fill(u3, u1, color=black, transp=75)
w1 = plot(todayopen+topwick, title="u1",style=line, color=blue, linewidth=2)
w2 = plot(todayopen-bottomwick, title="u1",style=line, color=blue, linewidth=2)
fill(to, w1, color=silver, transp=75)
fill(to, w2, color=silver, transp=75)


bt = plot(todayopen+body, title="u1",style=line, color=blue, linewidth=2)
wt = plot(todayopen+body+topwick, title="u1",style=line, color=blue, linewidth=2)
bb = plot(todayopen-body, title="u1",style=line, color=blue, linewidth=2)
wb = plot(todayopen-body-bottomwick, title="u1",style=line, color=blue, linewidth=2)
fill(w1, bt, color=black, transp=75)
fill(w2, bb, color=black, transp=75)
fill(bt, wt, color=red, transp=75)
fill(bb, wb, color=red, transp=75)

//b1 = plot(todayopen-body, title="b1",style=line, color=blue, linewidth=2)
//b2 = plot(todayopen-(body*2), title="b2",style=line, color=blue, linewidth=2)
//b3 = plot(todayopen-(body*.5), title="b3",style=line, color=blue, linewidth=2)
//fill(b1, b2, color=silver, transp=75)
//fill(b3, b1, color=black, transp=75)

plot(ematop)