DRAWTEXTABS(10,10,'主力趨勢--'),COLORYELLOW,linethick2;

DRAWTEXTABS(83,10,'紫色進場'),COLORFF00FF,linethick2;

DRAWTEXTABS(140,10,'藍色出局'),COLORFFFF00,linethick2;

當日成交:amount*BIGORDER(1,2)/10000-amount*BIGORDER(2,2)/10000,colorWhite,linethick0;

stickline(當日成交>0,0,當日成交,5,0),colorred;

stickline(當日成交<0,當日成交,0,5,0),COLORGREEN;{http://www.kzuj.com.cn}

HS:=vol/capital;

DD:=(BIGORDER(1,2)-BIGORDER(2,2));

DT:=HS*DD*100;

當日增減度:DT,linethick0;

當日成交:=(DT*capital)*DYNAINFO(11)/10000;

買入手數:=(capital*DT)/100;

if (當日成交>=0)then

begin

Str1:='主力凈買入：'+NUMTOSTRN(當日成交,3)+'萬元,';

Str2:= '凈買入：'+ NUMTOSTRN(買入手數,0)+'手,';

Str3:= '當日增減度：' + NUMTOSTRN(DT,3);

end;

if 當日成交<0 then

begin

Str1:='主力凈賣出：'+ NUMTOSTRN(當日成交,3)+'萬元,';

Str2:='凈賣出：'+NUMTOSTRN(買入手數,0)+'手,';

Str3:='當日增減度：'+NUMTOSTRN(DT,3);

end;{ 程序化久久公式網 http://www.kzuj.com.cn 整理}

DRAWFLAGTEXT(DT>=0,當日成交,Str1+str2+str3),COLORRED;

DRAWFLAGTEXT(DT<0,當日成交,Str1+str2+str3),COLORGREEN;{http://www.kzuj.com.cn}

QJJ:=(VOL/(((HIGH-LOW)*2)-ABS((CLOSE-OPEN))));

XVL:=(IF((CLOSE>OPEN),(QJJ*(HIGH-LOW)),IF((CLOSE<OPEN),(QJJ*((HIGH-OPEN)+(CLOSE-LOW))),(VOL/2)))+IF((CLOSE>OPEN),(0-(QJJ*((HIGH-CLOSE)+(OPEN-LOW)))),IF((CLOSE<OPEN),(0-(QJJ*(HIGH-LOW))),(0-(VOL/2)))));

HSL:=((XVL/40)/1.15);

主買:=SUM(HSL,N1);

主賣:=EMA(主買,N3);

量柱:主買-主賣,colorWhite,linethick1;

STICKLINE((主買>=主賣),主買,主賣,8,1),COLORFF00FF,LINETHICK2;STICKLINE((主買<主賣),主買,主賣,8,1),COLORFFFF00,LINETHICK2;

DRAWICON(CROSS( 量柱,0)and 當日成交>150,0+2,1),ALIGN1;

?

?