# ACCDIST
# R1V1 2011.05.14:22:15 - TONY LIPTON
# monitors ACCDIST divergenge for entry
# MAJOR CODE CONTRIBUTION by KumoBob aka Bob Campbell
# http://fibonacci-financial.blogspot.com/
INPUT VFL = 12;
INPUT VSL = 26;
def AccDist = TotalSum(volume * CloseLocationValue());
DEF VLB = (VFL + VSL);#/2;
DEF vh34 = highest(AccDist,VLB);
DEF vl34 = lowest(AccDist,VLB);
input ChartBubblesON = NO;
input LinesON = Yes;
rec top;
rec bot;
top = if
AccDist == VH34
then High else top[1];
bot = if
AccDist == VL34
then Low else bot[1];
plot topline = if !LinesOn then Double.NaN else top;
topline.SetLineWeight(1);
topline.assignValueColor(if ((top < HIGH)) then COLOr.PLUM else color.yellow);
topline.SetPaintingStrategy(PaintingStrategy.points);
plot bottomline = if !LinesOn then Double.NaN else bot;
bottomline.SetLineWeight(1);
bottomline.assignValueColor(if ((LOW < bot)) then color.BLUE else color.yellow);
bottomline.SetPaintingStrategy(PaintingStrategy.dashes);
# _____________________________________________________________
# Thinkscript is the property of ThinkorSwim and TDAmeritrade
# Sections of this script may have been copied or modified from
# one or more Thinkscript studies in part or in their entirety.
# _____________________________________________________________