通達信的源碼如下

｛價差*換手｝
0;
HS:=V/CAPITAL*100;
ZP:WMA((2*C-H-L)*HS,5),COLOR0077FF,LINETHICK0;
STICKLINE(ZP>0,0,ZP*2,2,0),COLOR0000FF;
STICKLINE(ZP<0,0,ZP*2,2,0),COLORFFFF00;
DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
 

大智慧的源碼如下

DRAWGBKlast(c>0,strip(RGB(0,0,100),RGB(0,0,0),0));
0;
HS:=V/CAPITAL*100;
ZP:WMA((2*C-H-L)*HS,5),COLOR0077FF,LINETHICK0;
STICKLINE(ZP>0,0,ZP*2,6,0),COLOR0000FF;
STICKLINE(ZP<0,0,ZP*2,6,0),COLORFFFF00;
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.kzuj.com.cn',CURRENTTIME>180000 and (CXH=1 OR CXH=6));