EXPERIMENTAL: updated to use security() function and code cleanup.
study(title="[RS]Open Price Trail V1", shorttitle="[RS]OPT.V1", overlay=true) mode = input("hour") hourfix = input(19, title="hourfix(at what time is 00h correct):", minval=0, maxval=23) openprice = mode == "hour" ? valuewhen(minute == 0, security(ticker, "60", open), 0) : mode == "day" ? valuewhen(hour == hourfix, security(ticker, "D", open), 0) : mode == "week" ? valuewhen(dayofweek == 1, security(ticker, "W", open), 0) : mode == "month" ? valuewhen(dayofmonth == 1, security(ticker, "M", open), 0) : mode == "year" ? valuewhen(weekofyear == 1, security(ticker, "12M", open), 0) : na scolor = openprice != openprice[1] ? na : close >= openprice ? green : maroon p1 = plot(openprice, color=scolor, linewidth=2) pretracker = nz(tracker[1], openprice[1]) tracker = openprice != openprice[1] ? avg(pretracker, openprice) : pretracker p2 = plot(tracker, color=gray) fill(p1, p2, color=gray, transp=80)