以下是通达信虚拟K线指标副图源码
TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,TOTALFZNUM,1)))));
MTIME:=MOD(FROMOPEN,TOTAL);
CTIME:=IF(MTIME<0.5,TOTAL,MTIME);
VAMO:=IF((CURRBARSCOUNT=1 AND DYNAINFO(8)>1),AMOUNT/100000000.0*TOTAL/CTIME,DRAWNULL),NODRAW;
STICKLINE((CURRBARSCOUNT=1 AND DYNAINFO(8)>1),VAMO,0,-1,-1),COLOR00C0C0;
日:AMOUNT/100000000.0,VOLSTICK;
倍量:日>=REF(日,1)*2,COLORYELLOW,NODRAW;
缩量:REF(日,1)>=日*2,COLOR1D7300,NODRAW;
地量:日=LLV(日,250),COLORFF6600,NODRAW;
天量:日=HHV(日,250),COLORRED,NODRAW;
STICKLINE(倍量, 0,日,2,0),COLORYELLOW;
STICKLINE(缩量, 0,日,2,0),COLOR1D7300;
STICKLINE(地量, 0,日,2,0),COLORFF6600;
STICKLINE(天量,0,日,2,0),COLORRED;
成交额:=IF(DYNAINFO(10)>99999999,STRCAT(CON2STR(DYNAINFO(10)/100000000,2),'亿'),
STRCAT(CON2STR(DYNAINFO(10)/10000,0),'万')),COLOR1D7300,NODRAW;
DRAWTEXT_FIX(1,0.95,0.0,0,成交额),COLORWHITE;
