查看完整版本: 请教公式组高手：能否编个公式，对分笔成交进行统计

请教公式组高手：能否编个公式，对分笔成交进行统计

请教公式组高手：能否编个公式，对分笔成交进行统计，分别计算主动买的和主动卖的，还要可以过滤散户小笔成交，参数可调。通过买卖差，判断资金是流入 ，还是流出？再加上5日，10,15,20日的资金统计，及 换手率，并显示数字，画线。

先行谢谢热心的朋友!!!

{DRAWTEXTREL(50,0,'龙虎看盘'),LINETHICK6,Coloryellow;}

a:=stkindi('','LHKPJE.a',0,0);
bz:=stkindi('','LHKPJE.bz',0,0);
b:=stkindi('','LHKPJE.b',0,0);
sz:=stkindi('','LHKPJE.sz',0,0);
z:=stkindi('','LHKPJE.z',0,0);
cz:=stkindi('','LHKPJE.cz',0,0);

xb5:=stkindi('','LHKPJE.xb5',0,0);
b5:=stkindi('','LHKPJE.b5',0,0);
xs5:=stkindi('','LHKPJE.xs5',0,0);
s5:=stkindi('','LHKPJE.s5',0,0);
xb10:=stkindi('','LHKPJE.xb10',0,0);
b10:=stkindi('','LHKPJE.b10',0,0);
xs10:=stkindi('','LHKPJE.xs10',0,0);
s10:=stkindi('','LHKPJE.s10',0,0);
xb30:=stkindi('','LHKPJE.xb30',0,0);
b30:=stkindi('','LHKPJE.b30',0,0);
xs30:=stkindi('','LHKPJE.xs30',0,0);
s30:=stkindi('','LHKPJE.s30',0,0);
xb50:=stkindi('','LHKPJE.xb50',0,0);
b50:=stkindi('','LHKPJE.b50',0,0);
xs50:=stkindi('','LHKPJE.xs50',0,0);
s50:=stkindi('','LHKPJE.s50',0,0);
xb70:=stkindi('','LHKPJE.xb70',0,0);
b70:=stkindi('','LHKPJE.b70',0,0);
xs70:=stkindi('','LHKPJE.xs70',0,0);
s70:=stkindi('','LHKPJE.s70',0,0);
xb100:=stkindi('','LHKPJE.xb100',0,0);
b100:=stkindi('','LHKPJE.b100',0,0);
xs100:=stkindi('','LHKPJE.xs100',0,0);
s100:=stkindi('','LHKPJE.s100',0,0);
xb150:=stkindi('','LHKPJE.xb150',0,0);
b150:=stkindi('','LHKPJE.b150',0,0);
xs150:=stkindi('','LHKPJE.xs150',0,0);
s150:=stkindi('','LHKPJE.s150',0,0);
j5:=stkindi('','LHKPJE.j5',0,0);
j10:=stkindi('','LHKPJE.j10',0,0);
j30:=stkindi('','LHKPJE.j30',0,0);
j50:=stkindi('','LHKPJE.j50',0,0);
j70:=stkindi('','LHKPJE.j70',0,0);
j100:=stkindi('','LHKPJE.j100',0,0);
j150:=stkindi('','LHKPJE.j150',0,0);
-100,pointdot;


{a:=BUYVOL*c/100;
bz:=sum(a,0);
b:=c*SELLVOL/100;
sz:=sum(b,0);
z:=bz+sz;
cz:=bz-sz;

xb5:=if(a<=5  ,a,0);b5:=sum(xb5,0);
xs5:=if(b<=5  ,b,0);s5:=sum(xs5,0);
xb10:=if(a<=10 and a>=5 ,a,0);b10:=sum(xb10,0);
xs10:=if(b<=10 and b>=5,b,0);s10:=sum(xs10,0);
xb30:=if(a<=30 and a>=10 ,a,0);b30:=sum(xb30,0);
xs30:=if(b<=30 and b>=10 ,b,0);s30:=sum(xs30,0);
xb50:=if(a<=50 and a>=30 ,a,0);b50:=sum(xb50,0);
xs50:=if(b<=50 and b>=30 ,b,0);s50:=sum(xs50,0);
xb70:=if(a<=70 and a>=50 ,a,0);b70:=sum(xb70,0);
xs70:=if(b<=70 and b>=50 ,b,0);s70:=sum(xs70,0);
xb100:=if(a<=100 and a>=70,a,0);b100:=sum(xb100,0);
xs100:=if(b<=100 and b>=70,b,0);s100:=sum(xs100,0);
xb150:=if(a>=100 ,a,0);b150:=sum(xb150,0);
xs150:=if(b>=100 ,b,0);s150:=sum(xs150,0);
j5:=b5-s5;-100,colorblack;
j10:=b10-s10;
j30:=b30-s30;
j50:=b50-s50;
j70:=b70-s70;
j100:=b100-s100;
j150:=b150-s150;}


DRAWTEXT(BARSTATUS=2,850,'■总成金额（万）                                                                  '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2,850,NUMTOSTR(z,2)+'万                                                      '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2,850,'■买入占：                                    '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2,850,NUMTOSTR(bz/z*100,2)+'%                             '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2,850,'■卖出占：                '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2,850,NUMTOSTR(sz/z*100,2)+'%         '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b5<>0,600,'5 万大单买入：                                                                  '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b5<>0,600,NUMTOSTR(b5,2)+'                                                           '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s5<>0,600,'5 万大单卖出:                                    '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s5<>0,600,NUMTOSTR(s5,2)+'                             '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j5<>0,600,'净买入                 '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j5<>0,600,NUMTOSTR(j5,2)+'         '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b10<>0,500,'10 万大单买入：                                                                  '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b10<>0,500,NUMTOSTR(b10,2)+'                                                           '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s10<>0,500,'10 万大单卖出:                                    '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s10<>0,500,NUMTOSTR(s10,2)+'                             '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j10<>0,500,'净买入                 '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j10<>0,500,NUMTOSTR(j10,2)+'         '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b30<>0,400,'30 万大单买入：                                                                  '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b30<>0,400,NUMTOSTR(b30,2)+'                                                           '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s30<>0,400,'30 万大单卖出:                                    '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s30<>0,400,NUMTOSTR(s30,2)+'                             '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j30<>0,400,'净买入                 '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j30<>0,400,NUMTOSTR(j30,2)+'         '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b50<>0,300,'50 万大单买入：                                                                  '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b50<>0,300,NUMTOSTR(b50,2)+'                                                           '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s50<>0,300,'50 万大单卖出:                                    '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s50<>0,300,NUMTOSTR(s50,2)+'                             '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j50<>0,300,'净买入                 '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j50<>0,300,NUMTOSTR(j50,2)+'         '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b70<>0,200,'70 万大单买入：                                                                  '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b70<>0,200,NUMTOSTR(b70,2)+'                                                           '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s70<>0,200,'70 万大单卖出:                                    '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s70<>0,200,NUMTOSTR(s70,2)+'                             '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j70<>0,200,'净买入                 '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j70<>0,200,NUMTOSTR(j70,2)+'         '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b100<>0,100,'100 万大单买入：                                                                  '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b100<>0,100,NUMTOSTR(b100,2)+'                                                           '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s100<>0,100,'100 万大单卖出:                                    '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s100<>0,100,NUMTOSTR(s100,2)+'                             '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j100<>0,100,'净买入                 '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j100<>0,100,NUMTOSTR(j100,2)+'         '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b150<>0,10,'150 万大单买入：                                                                  '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b150<>0,10,NUMTOSTR(b150,2)+'                                                           '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b150<>0,10,'~'+NUMTOSTR(b150/150,0)+'单                                                    '),LINETHICK1,COLORwhite,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b100<>0,100,'~'+NUMTOSTR(b100/100,0)+'单                                                    '),LINETHICK1,COLORwhite,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b70<>0,200,'~'+NUMTOSTR(b70/70,0)+'单                                                    '),LINETHICK1,COLORwhite,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b50<>0,300,'~'+NUMTOSTR(b50/50,0)+'单                                                    '),LINETHICK1,COLORwhite,ALIGN2;
DRAWTEXT(BARSTATUS=2 and b30<>0,400,'~'+NUMTOSTR(b30/30,0)+'单                                                    '),LINETHICK1,COLORwhite,ALIGN2;



DRAWTEXT(BARSTATUS=2 and s150<>0,10,'150 万大单卖出:                                    '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s150<>0,10,NUMTOSTR(s150,2)+'                             '),LINETHICK1,COLORgreen,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s150<>0,10,'~'+NUMTOSTR(s150/150,0)+'单                       '),LINETHICK1,COLORgray,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s100<>0,100,'~'+NUMTOSTR(s100/100,0)+'单                       '),LINETHICK1,COLORgray,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s70<>0,200,'~'+NUMTOSTR(s70/70,0)+'单                       '),LINETHICK1,COLORgray,ALIGN2;
DRAWTEXT(BARSTATUS=2 and s50<>0,300,'~'+NUMTOSTR(s50/50,0)+'单                       '),LINETHICK1,COLORgray,ALIGN2;

DRAWTEXT(BARSTATUS=2 and j150<>0,10,'净买入                 '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j150<>0,10,NUMTOSTR(j150,2)+'         '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j150<>0,10,'~'+NUMTOSTR(j150/150,0)+'单 '),LINETHICK1,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j100<>0,100,'~'+NUMTOSTR(j100/100,0)+'单 '),LINETHICK1,COLORyellow,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j70<>0,200,'~'+NUMTOSTR(j70/70,0)+'单 '),LINETHICK1,COLORwhite,ALIGN2;
DRAWTEXT(BARSTATUS=2 and j50<>0,300,'~'+NUMTOSTR(j50/50,0)+'单 '),LINETHICK1,COLORwhite,ALIGN2;


DRAWTEXT(BARSTATUS=2,710,'■■■总买入:                                                                '),LINETHICK1,colormagenta,ALIGN2;
DRAWTEXT(BARSTATUS=2,710,NUMTOSTR(bz,2)+'                                                        '),LINETHICK1,colormagenta,ALIGN2;
DRAWTEXT(BARSTATUS=2,710,'■■■总卖出:                                     '),LINETHICK1,COLORwhite,ALIGN2;
DRAWTEXT(BARSTATUS=2,710,NUMTOSTR(sz,2)+'                             '),LINETHICK1,COLORwhite,ALIGN2;
DRAWTEXT(BARSTATUS=2,710,'总净买入                 '),LINETHICK1,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2,710,NUMTOSTR(cz,2)+'         '),LINETHICK1,COLORccffcc,ALIGN2;

引用指标，可在日线看当日分笔成交情况，不过和讯的分笔数据不准确

LPKPJE
{DRAWTEXTREL(50,0,'龙虎看盘'),LINETHICK6,Coloryellow;}
a:BUYVOL*c/100;
bz:sum(a,0);
b:c*SELLVOL/100;
sz:sum(b,0);
z:bz+sz;
cz:bz-sz;1;
xb5:if(a<=5  ,a,0);
b5:sum(xb5,0);
xs5:if(b<=5  ,b,0);s5:sum(xs5,0);
xb10:if(a<=10 and a>=5 ,a,0);b10:sum(xb10,0);
xs10:if(b<=10 and b>=5,b,0);s10:sum(xs10,0);
xb30:if(a<=30 and a>=10 ,a,0);b30:sum(xb30,0);
xs30:if(b<=30 and b>=10 ,b,0);s30:sum(xs30,0);
xb50:if(a<=50 and a>=30 ,a,0);b50:sum(xb50,0);
xs50:if(b<=50 and b>=30 ,b,0);s50:sum(xs50,0);
xb70:if(a<=70 and a>=50 ,a,0);b70:sum(xb70,0);
xs70:if(b<=70 and b>=50 ,b,0);s70:sum(xs70,0);
xb100:if(a<=100 and a>=70,a,0);b100:sum(xb100,0);
xs100:if(b<=100 and b>=70,b,0);s100:sum(xs100,0);
xb150:if(a>100 ,a,0);b150:sum(xb150,0);
xs150:if(b>100 ,b,0);s150:sum(xs150,0);
j5:b5-s5;-100,colorblack;
j10:b10-s10;
j30:b30-s30;
j50:b50-s50;
j70:b70-s70;
j100:b100-s100;
j150:b150-s150;

大单净数:j100/100+j150/150;

请老师发个附件上来！老提示没有指标引用的公式在系统中不存在，可明明建好了引用指标！请费心，谢谢了！！