- Platform
-
- Thinkorswim
Exponteial rate of change of price and devation bands put together. Helps identify possible exhaustion of price and possible reversal.
Code:
#Velocity Devation
#Ghost
declare lower;
input length = 89;
input factor = 6.18;
def price = close;
def avg1 = expaverage(price, length);
def height = avg1 - avg1[1];
plot “Angle, deg” = Atan(height/length) * 180 / Double.Pi;
“Angle, deg”.AssignValueColor (if “Angle, deg” >=0 then color.ORANGE else color.BLUE);
def shift = factor * expaverage( TrueRange(“Angle, deg”,“Angle, deg”,“Angle, deg”), length);
def average = expaverage(“Angle, deg”, length);
plot Avg = average;
Avg.SetDefaultColor(GetColor(1));
plot Upper_Band = average + 1.214 * shift;
Upper_Band.SetDefaultColor(color.green);
plot Upper_Band2 = average + 1.386 * shift;
Upper_Band2.SetDefaultColor(color.green);
plot lower_band = average+ -1.214 * shift;
lower_band.SetDefaultColor(color.green);
plot lower_band2 = average + -1.386 * shift;
lower_band2.SetDefaultColor(color.green);
upper_Band2.Setlineweight(1);
upper_Band.Setlineweight(1);
AddCloud( upper_Band2, upper_Band, Color.green );
AddCloud( lower_band, lower_band2, color.green );