源碼：

?

?

{買賣盤解}
DRAWGBK(1,colorrgb(0,0,100),colorrgb(0,0,0),1);
VARIABLE:WDAY[7]='星期六';
WDAY[1]:='星期日';
WDAY[2]:='星期一';
WDAY[3]:='星期二';
WDAY[4]:='星期三';
WDAY[5]:='星期四';
WDAY[6]:='星期五';
FY:=YEAR;
FM:=MONTH;
FD:=DAY;
WD:=WEEKDAY;
P:=SYSPARAM(1);
STR1:=''+'今日： '+NUMTOSTR(FY[P],0)+'年'+NUMTOSTR(FM[P],0)+'月'+NUMTOSTR(FD[P],0)+'日 '+WDAY[WD[P]+1];
DRAWTEXTEX(CLOSE,1,480,22,STR1),colorDDFF;
量5:MA(VOL,5),colorred;
量10:MA(VOL,10);
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
成交:VOL,POINTDOT,COLORE4C1EE;
主動買盤:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,POINTDOT;
主動賣盤:IF(CLOSE>OPEN,VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,VAR1*(HIGH-LOW),VOL/2)),COLOR00FF00,POINTDOT;
STICKLINE(VOL>0,VOL,0,8,0),ColorA697AF;
STICKLINE(主動買盤>0,0,主動買盤,7,0),color6F41ED;
STICKLINE(主動賣盤>0,0,主動賣盤,5,0),COLOR6CD100;
PARTLINE(MA(VOL,5)>=REF(MA(VOL,5),1),MA(VOL,5)),COLORRED,LINETHICK2;
PARTLINE(MA(VOL,5)<=REF(MA(VOL,5),1),MA(VOL,5)),COLOR00C700,LINETHICK2;
換手率:IF(CAPITAL=0,INDEXV/ESTDATA(12),VOL/FINANCE(7)),PRECISION2,LINETHICK0;
買賣比:=主動買盤/主動賣盤;
WJ:=(HIGH+LOW+CLOSE)/3;
VD1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));
VD2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-WJ);
VD3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);
VD4:=IF(HIGH=LOW,1,WJ-MIN(CLOSE,OPEN));
VD5:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
VD6:=(VD1*VD5);
VD7:=(VD2*VD5);
VD8:=(VD3*VD5);
VD9:=(VD4*VD5);
買入量:=(VD9+VD8);
賣出量:=(VD6+VD7);
買入資金:=買入量*close/100;
賣出資金:=賣出量*close/100;
資金進出:=買入資金-賣出資金;
買賣資金比:=買入資金/賣出資金;
掛單買盤:=MA(主動買盤,3);
掛單賣盤:=(MA(主動賣盤,3));
yyzq:=(sysparam(3)-sysparam(2));
FILL:=barscount(c)>SYSPARAM(2) and barscount(c)<if(sysparam(3)-sysparam(2)>20,SYSPARAM(2)+INTPART(yyzq/2),20);
pich:=refx(hhv(成交,yyzq),yyzq);
picl:=refx(llv(掛單賣盤,yyzq),yyzq);
fillrgn(fill,refx(pich,yyzq),refx(picl,yyzq)),Color026C1D;
DRAWTEXTEX(c,1,2,120,'┃當日買賣總量 = '+NUMTOSTR(VOL,2)),ColorA6B7F3;DRAWTEXTEX(c,1,2,440,'┃買入資金累計萬元 : '+NUMTOSTR(買入資金,2)),Colorred,LINETHICK1;
DRAWTEXTEX(c,1,2,520,'┃賣出資金累計萬元 : '+NUMTOSTR(賣出資金,2)),Color00ff00,LINETHICK1;
DRAWTEXTEX(c,1,2,600,'┃資金進出萬元 : '+NUMTOSTR(資金進出,2)),Coloryellow,LINETHICK1;
DRAWTEXTEX(c,1,2,680,'┃買賣資金比 :'+NUMTOSTR(買賣資金比,2)),Coloryellow,LINETHICK1;
DRAWTEXTEX(c,1,2,760,'┃當日掛單買盤 : '+NUMTOSTR(掛單買盤,2)),Colorred,LINETHICK1;
DRAWTEXTEX(c,1,2,840,'┃當日掛單賣盤 : '+NUMTOSTR(掛單賣盤,2)),Color00ff00,LINETHICK1;

?

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?