相關標簽:

?

A:=HHV(HIGH,5);
B:=LLV(LOW,5);
HH:=BARSLAST(CLOSE>REF(a,1));
LL:=BARSLAST(CLOSE<REF(b,1));
PARTLINE(b,HH<LL),ColorFF00FF,LINETHICK2;
PARTLINE(a,HH>LL),Color00FF00,LINETHICK2;
{資金}
TODAY:=DYNAINFO(7)=CLOSE and (ORDER(1)=0 and ORDER(2)=0);{判斷是否有數據}
{TODAY:="ddx.ddx"=0;}{判斷是否有正版數據}
Ddmr:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(2,2)),(bigorder(1,2)-bigorder(2,2)))*vol/capital*100;
Ddmrs:=sum(Ddmr,0);
Chb:=IF(TODAY,"DDEDATA@BIGORDER"(1,3),bigorder(1,3))*AMOUNT;
Dhb:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3)),(bigorder(1,2)-bigorder(1,3)))*AMOUNT;
Zhb:=IF(TODAY,("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(1,2)),(bigorder(1,1)-bigorder(1,2)))*AMOUNT;
Xhb:=IF(TODAY,(1-"DDEDATA@BIGORDER"(1,1)),(1-bigorder(1,1)))*AMOUNT;
Chs:=IF(TODAY,"DDEDATA@BIGORDER"(2,3),bigorder(2,3))*AMOUNT;
Dhs:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3)),(bigorder(2,2)-bigorder(2,3)))*AMOUNT;
Zhs:=IF(TODAY,("DDEDATA@BIGORDER"(2,1)-"DDEDATA@BIGORDER"(2,2)),(bigorder(2,1)-bigorder(2,2)))*AMOUNT;
Xhs:=IF(TODAY,(1-"DDEDATA@BIGORDER"(2,1)),(1-bigorder(2,1)))*AMOUNT;
散資:=(xhb-xhs)/10000;
中資:=(zhb-zhs)/10000;
大資:=(dhb-dhs)/10000;
超資:=(chb-chs)/10000;
超資增倉:=超資;
大資增倉:=大資;
中資增倉:=中資;
散資增倉:=散資;
BBD凈額:=(超資+大資);
DRAWTEXTREL(5,15,'BBD (萬)：'+NUMTOSTRN(BBD凈額,0)),LINETHICK3,Color0080FF;
DRAWTEXTREL(5,90,'超資(萬)：'+NUMTOSTRN(超資增倉,0)),LINETHICK2,COLORYELLOW;
DRAWTEXTREL(5,165,'大資(萬)：'+NUMTOSTRN(大資增倉,0)),LINETHICK2,Color62FFFF;
DRAWTEXTREL(5,235,'中資(萬)：'+NUMTOSTRN(中資增倉,0)),LINETHICK2,ColorACFFFF;
DRAWTEXTREL(5,315,'散資(萬)：'+NUMTOSTRN(散資增倉,0)),LINETHICK2,ColorFFFFFF;

{程序化交易 www.kzuj.com.cn }

?

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

?