VSA Explorations
VSA Explorations
range = H - L + 0.01;
rangeAvg = MA( range, 21 );
VolAvg = MA( V, 21 );
VolDensity = V / range;
VolDensityAvg = MA( VolDensity, 21 );
HiClose = ( C - L ) / range > 0.65;
HiOpen = ( O - L ) / range > 0.65;
LoClose = ( C - L ) / range < 0.35;
LoOpen = ( O - L ) / range < 0.35;
// Exhaustion volume - high Vol in big range in new ground and weak close
BullExhaust = newLow AND range > rangeAvg * 1.5 AND VolDensity > VolDensityAvg AND
HiClose;
BearExhaust = newHigh AND range > rangeAvg * 1.5 AND VolDensity > VolDensityAvg AND
LoClose;
BE = IIf(BullExhaust, 1, IIf(BearExhaust, -1, 0));
Net = Sum(BSV+BE+BT,6);
Filter = VolAvg > 10000 AND ( /*(StochK(14,3) > 80 AND Net <=-3) OR */(StochK(14,3)
<20 AND Net >=3) );
AddColumn( C, "Close", 1.2, IIf(Net>=3,colorGreen,colorRed));