#highest_gain_x_bars_02
# only look at low to high, biggest gain
# ver 02b
# chg to close, no low and high ( add inputs)
# loop over every close (for a low)
# from that close , loop over bars fater and find bn with biggest close to close diff
#https://usethinkscript.com/threads/largest-gain-range-since-uptrend.2418/#post-135315
#wtf_dude
#6
#I know this is absolutely and completely jacked, but I can't focus very well at all lately
# Can somebody please check this and see where the errors are? All I'm trying to do is mark the arrow to the highest % gain from the lowest low within the last 126 bars and have the label display how large that percentage gain is. Really appreciate it in advance.
def na = double.nan;
def bn = barnumber();
input barsback = 126;
input high_price = close;
input low_price = close;
# redo the code
# find the bar that is 126 bars before the last bar,
# find the bars with highest high and lowest low after 126 bar
# read prices from the highest and lowest
# hold those values to the last bar
# calculate a slope, and difference
# define a bar 126 bars before last bar
def x = (!isnan(close[-(barsback-1)]) and isnan(close[-barsback]));
input vertical_line_126bars_back = yes;
addverticalline(vertical_line_126bars_back and x, " " + barsback + " bars back", color.cyan);
def xbn = if bn == 1 then 0
else if x then bn
else xbn[1];
def big = 99999;
def gain;
def hibn;
def hi;
def lobn;
def lo;
def slope;
if bn == 1 then {
gain = 0;
hibn = 0;
hi = 0;
lobn = 0;
lo = 0;
slope = 0;
} else if x then {
# loop thru all close.(lows)
# then loop thru all close(highs) after it, to find the biggest gain
# gain = fold a1 = 0 to barsback
# with p1
# do max(
# (fold a2 = (a1 + 1) to (barsback )
# with p2
# do max( getvalue(high_price, -a2) - getvalue(low_price, -a1), p2))
# , p1);
gain = fold a1 = 0 to barsback
with p1
do max(
(fold a2 = (a1 + 1) to (barsback )
with p2
do max( getvalue(high_price, -a2) - getvalue(low_price, -a1), p2))
, p1);
# high_price
# low_price
# do min(r, getvalue(low_price, -c));
lo = 0;
lobn = fold d = 0 to barsback
with s
do if getvalue(low_price, -d) == lo then getvalue(bn, -d) else s;
# (hibn - xbn)
hi = fold a = 0 to barsback
with p
do max(p, getvalue(high_price, -a));
hibn = fold b = 0 to barsback
with q
do if getvalue(high_price, -b) == hi then getvalue(bn, -b) else q;
slope = (hi-lo)/(hibn-lobn);
} else {
gain = gain[1];
hibn = hibn[1];
hi = hi[1];
lobn = lobn[1];
lo = lo[1];
slope = slope[1];
}
#def gain2 = fold b2 = 0 to barsback
# with p1
# do max(
# (fold a2 = (a1 + 1) to (barsback )
# with p2
# do max( getvalue(high_price, -a2) - getvalue(low_price, -a1), p2))
# , p1);
input test3 = no;
addchartbubble(test3, high*1.001,
#high + "\n" +
#low + "\n" +
close
, color.white, yes);
addchartbubble(test3, low*0.999,
gain
, color.white, no);
addlabel(1, "Gain $ " + gain, color.green);
def line = if bn == 1 then na
else if bn == hibn and high_price == hi then high_price
else if bn == lobn and low_price == lo then low_price
else if bn > max(hibn, lobn) then na
else line[1] + slope;
plot z1 = line;
z1.setdefaultcolor(color.gray);
#addverticalline( bn == hibn or bn == lobn, "--", color.cyan);
# arrows on highest and lowest
plot zhi = if bn == hibn then high_price else na;
zhi.SetPaintingStrategy(PaintingStrategy.aRROW_down);
zhi.setlineWeight(2);
zhi.setdefaultcolor(color.white);
plot zlo = if bn == lobn then low_price else na;
zlo.SetPaintingStrategy(PaintingStrategy.ARROW_up);
zlo.setlineWeight(2);
zlo.setdefaultcolor(color.white);
def per = round(100*((hi-lo)*(sign(hibn-lobn)))/lo, 1);
#addlabel(1, "Hi $ " + hi + " Lo $ " + lo, color.yellow);
#addlabel(1, "$" + (hi-lo)*(sign(hibn-lobn)), color.yellow);
#addlabel(1, per + " %", color.yellow);
addchartbubble(0, high*1.001,
bn + "\n" +
hi + "\n" +
hibn + "\n" +
lo + "\n" +
lobn + "\n" +
slope
, color.magenta, yes);
#
