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((CLOSEOPEN),(0-(QJJ*((HIGH-CLOSE)+(OPEN-LOW)))),IF((CLOSEHSL:=((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;

[ 本帖最后由 安庆丁靖熙 于 2010-4-20 01:10 编辑 ]

附件: 

33.jpg (16.67 KB) 

2010-4-19 17:01 

指标公式复制后按这个图设置。下载本文