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)