通达信主力仓源码附图

DRAWGBK(C>0, RGB(0,30,30),RGB(53,154,255),0,'11',0);

{主力增减仓------------------------}

C1:=10000*C/INDEXC;
 O1:=10000*O/INDEXO;
主力动向:=MA(C1,5),LINETHICK2,COLOR666666;
水平线:0;
增减仓:C1-主力动向,NODRAW;

{主力增仓----}
STICKLINE(C1>=O1 AND C1>主力动向,增减仓,水平线,3,0),COLOR0000AA;
 STICKLINE(C1>=O1 AND C1>主力动向,增减仓,水平线,2.5,0),COLOR0000BB;
 STICKLINE(C1>=O1 AND C1>主力动向,增减仓,水平线,2,0),COLOR0000CC;
 STICKLINE(C1>=O1 AND C1>主力动向,增减仓,水平线,1.5,0),COLOR0000DD;
 STICKLINE(C1>=O1 AND C1>主力动向,增减仓,水平线,1,0),COLOR0000EE;
 STICKLINE(C1>=O1 AND C1>主力动向,增减仓,水平线,0.5,0),COLOR0000FF;
 {主力减仓-----}
 STICKLINE(C1<O1 AND C1<=主力动向,增减仓,水平线,3.0,0),COLOR009600;
 STICKLINE(C1<O1 AND C1<=主力动向,增减仓,水平线,2.5,0),COLOR00A500;
 STICKLINE(C1<O1 AND C1<=主力动向,增减仓,水平线,2.0,0),COLOR00B400;
 STICKLINE(C1<O1 AND C1<=主力动向,增减仓,水平线,1.7,0),COLOR00C300;
 STICKLINE(C1<O1 AND C1<=主力动向,增减仓,水平线,1.3,0),COLOR00D200;
 STICKLINE(C1<O1 AND C1<=主力动向,增减仓,水平线,1.0,0),COLOR00E100;
 STICKLINE(C1<O1 AND C1<=主力动向,增减仓,水平线,0.8,0),COLOR00F000;
 STICKLINE(C1<O1 AND C1<=主力动向,增减仓,水平线,0.5,0),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=1,0,STRCAT(STRCAT('      ',CON2STR(增减仓*100,0)),'')),COLORWHITE;