相關標簽:

?

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.tumamayizhan.com}
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;
DRAWFLAGTEXT(DT>=0,當日成交,Str1+str2+str3),COLORRED;
DRAWFLAGTEXT(DT<0,當日成交,Str1+str2+str3),COLORGREEN;{http://www.tumamayizhan.com}
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;
{程序化交易 www.tumamayizhan.com }

?

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

?