主力趋势

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;
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;
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;