拉升力 源码

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)))));
HSL:=((XVL / 20) / 1.15);
快力:EMA(HSL,4);;
副线:EMA(HSL,12);
长力:EMA(HSL,24);
FILLRGN(快力,副线,快力 副线,RGB(0,0,255),快力 副线,colorblack);
FILLRGN(副线,长力,副线 长力,RGB(0,255,0),副线 长力,colorblack);
FILLRGN(长力,0,长力 0,RGB(255,0,0),长力 0,colorblack);