以下是通达信红色量能拉升指标公式源码副图（无源码的请下载附件导入）

QJJ:=(vol / (((HIGH - LOW) * 2) - Abs((CLOSE - OPEN))));
XVL:=(IF((CLOSE > OPEN),(QJJ * (HIGH - LOW)), IF((CLOSE < OPEN),(QJJ * ((HIGH - OPEN) + (CLOSE - LOW))), (VOL / 2))) + IF((CLOSE > OPEN),(0 - (QJJ * ((HIGH - CLOSE) + (OPEN - LOW)))), IF((CLOSE < OPEN),(0 - (QJJ * (HIGH - LOW))),(0 - (VOL / 2)))));
TYP:=((XVL /V));
量:=(TYP-EMA(V,10))/(TYP-EMA(L,10));
快:MA(量,15),COLORRED,LINETHICK1;
趋:MA(量,30),COLORYELLOW,LINETHICK1;
STICKLINE((量-快)>0,量,快,0.05,-1),COLORGREEN;
STICKLINE((量-趋)>0,量,趋,0.05,1),COLORRED;