拉升力 源码

买线:0;
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);