K线颜色调整 (文华财经)

来源:文华财经  日期:2020-10-16 14:19

日期:2020-10-16 14:19

参考：

HH:=HHV(MA(HIGH,LENGTH),LENGTH*2);
LL:=LLV(MA(LOW,LENGTH),LENGTH*2);
BUYPK:=C > REF(HH,1);
SELLPK:=C < REF(LL,1);
SELLS:=C<REF((HH+LL)*0.5,BARSBK);
BUYS:=C>REF((HH+LL)*0.5,BARSSK);
SELLPJ:=C<=HH AND C>BKPRICE+MATR*ATR;
BUYPJ:=C>=LL AND C<SKPRICE-MATR*ATR;
IF BARPOS >LENGTH THEN
BEGIN
BKVOL=0 AND BUYPK,BPK(VAR1);
SKVOL=0 AND SELLPK,SPK(VAR1);
END
IF BKVOL>0 THEN
BEGIN
VOLSPJ:=MAX(1,INTPART(BKVOL*0.5));
SELLS,SP(BKVOL);
SELLPJ,SP(BKVOL);
END
IF SKVOL>0 THEN
BEGIN
VOLBPJ:=MAX(1,INTPART(SKVOL*0.5));
BUYS,BP(SKVOL);
BUYPJ,BP(SKVOL);
END
//DRAWCOLORKLINE(BKVOL=0 AND SKVOL=0,COLORWHITE,0);
//DRAWCOLORKLINE(SKVOL>0,COLORGREEN,0);
//DRAWCOLORKLINE(BKVOL>0,COLORRED,0);