搜索
楼主: yngs

成交分析&成交统计(分笔看盘公式)

[复制链接]

发表于 2008-5-8 18:45 | 显示全部楼层

谢谢

谢谢好好好好好好好
金币:
奖励:
热心:
注册时间:
2005-12-23

回复 使用道具 举报

发表于 2008-5-8 18:55 | 显示全部楼层
ttttttttttttttttttttt
金币:
奖励:
热心:
注册时间:
2008-3-10

回复 使用道具 举报

发表于 2008-5-8 19:18 | 显示全部楼层

学习

:*19*: :*19*: :*22*:
金币:
奖励:
热心:
注册时间:
2006-12-13

回复 使用道具 举报

签到天数: 4 天

将上证指数拆解到底

发表于 2008-5-8 20:13 | 显示全部楼层
学习一下:)
金币:
奖励:
热心:
注册时间:
2007-4-20

回复 使用道具 举报

签到天数: 60 天

发表于 2008-5-8 20:37 | 显示全部楼层
ddddddddddddddddddddddddddddddddd
金币:
奖励:
热心:
注册时间:
2007-6-14

回复 使用道具 举报

发表于 2008-5-8 20:56 | 显示全部楼层
dddddddddddddddd
金币:
奖励:
热心:
注册时间:
2007-10-10

回复 使用道具 举报

发表于 2008-5-8 21:39 | 显示全部楼层
input:n(15,1,100);
DRAWGBKLAST(C>0,STRIP(RGB(80,100,120),RGB(0,0,0),0)),color33ff66;
DRAWTEXTREL(20,0,'成交分析一 '),LINETHICK2,Coloryellow;
V1:=TIME;
a1:=COUNT(BARSCOUNT(C)=1 and time<102000 ,0 );
开盘分:=if(V1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)),
(FLOOR(V1/10000)-11)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)));
a:=BARSCOUNT(C);
人气:=if(a1>0,a/开盘分,a/(开盘分-60));
量:=V;
总:=sum(量,0);
fsbs:=BARSCOUNT(CLOSE);
Var1:=IF(BUYVOL<=REF(ASKVOL(1),1) AND CLOSE=REF(ASKPRICE(1),1),BUYVOL,0);
Var2:=IF(BUYVOL<=(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)) AND CLOSE=REF(ASKPRICE(2),1),BUYVOL,0);
Var3:=IF(BUYVOL<=(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND CLOSE=REF(ASKPRICE(3),1),BUYVOL,0);
Var3A:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND CLOSE>REF(ASKPRICE(3),1),BUYVOL,0);
Var41:=IF(CLOSE<REF(ASKPRICE(1),1) AND REF(BIDVOL(1),1)>0 AND REF(ASKVOL(1),1)>0,BUYVOL,0);
Var42:=IF((BUYVOL>REF(ASKVOL(1),1) AND CLOSE=REF(ASKPRICE(1),1) AND REF(BIDVOL(1),1)>0),BUYVOL,0);
Var42a:=IF(Var42>0,Var42-REF(ASKVOL(1),1),0);
Var4b:=Var41+Var42a;
Var4:=Var41+Var42;
Var51:=IF(BUYVOL>REF(ASKVOL(1),1) AND CLOSE>REF(ASKPRICE(1),1) AND CLOSE<REF(ASKPRICE(2),1),BUYVOL,0);
Var52:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)) AND CLOSE=REF(ASKPRICE(2),1) AND REF(BIDVOL(1),1)>0,BUYVOL,0);
Var52a:=IF(Var52>0,Var52-(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)),0);
Var5b:=Var51+Var52a;
Var5:=Var51+Var52;
Var61:=IF(BUYVOL>REF(ASKVOL(1),1)+REF(ASKVOL(2),1) AND CLOSE>REF(ASKPRICE(2),1) AND CLOSE<REF(ASKPRICE(3),1),BUYVOL,0);
Var62:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND CLOSE=REF(ASKPRICE(3),1) AND REF(BIDVOL(1),1)>0,BUYVOL,0);
Var62a:=IF( Var62>0,Var62-(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)),0);
Var6b:=Var61+Var62a;
Var6:=Var61+Var62;
Var7:=IF(SELLVOL<=REF(BIDVOL(1),1) AND CLOSE=REF(BIDPRICE(1),1),SELLVOL,0);
Var8:=IF(SELLVOL<=(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)) AND CLOSE=REF(BIDPRICE(2),1),SELLVOL,0);
Var9:=IF(SELLVOL<=(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)) AND CLOSE=REF(BIDPRICE(3),1),SELLVOL,0);
Var9A:=IF(SELLVOL>(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)) AND CLOSE<REF(BIDPRICE(3),1),SELLVOL,0);
VarA1:=IF(CLOSE>REF(BIDPRICE(1),1) AND REF(ASKVOL(1),1)>0 AND REF(BIDVOL(1),1)>0,SELLVOL,0);
VarA2:=IF(SELLVOL>REF(BIDVOL(1),1) AND CLOSE=REF(BIDPRICE(1),1) AND REF(ASKVOL(1),1)>0,SELLVOL,0);
VarAa:=IF(VarA2>0,SELLVOL-REF(BIDVOL(1),1),0);
VarA:=VarA1+VarA2;
VarB1:=IF(SELLVOL>REF(BIDVOL(1),1) AND CLOSE<REF(BIDPRICE(1),1) AND CLOSE>REF(BIDPRICE(2),1),SELLVOL,0);
VarB2:=IF(SELLVOL>(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)) AND CLOSE=REF(BIDPRICE(2),1) AND REF(ASKVOL(1),1)>0,SELLVOL,0);
VarBa:=if(VarB2>0,SELLVOL-(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)),0);
VarAb:=VarB1+VarBa;
VarB:=VarB1+VarB2;
VarC1:=IF(SELLVOL>REF(BIDVOL(1),1)+REF(BIDVOL(2),1) AND CLOSE<REF(BIDPRICE(2),1) AND CLOSE>REF(BIDPRICE(3),1),SELLVOL,0);
VarC2:=IF(SELLVOL>(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)) AND CLOSE=REF(BIDPRICE(3),1) AND REF(ASKVOL(1),1)>0,SELLVOL,0);
VarCa:=if(VarC2>0,SELLVOL-(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)),0);
VarAc:=VarC1+VarCa;
VarC:=VarC1+VarC2;
VarD:=if((ASKVOL(1)+ASKVOL(2)+ASKVOL(3))=0 AND REF((ASKVOL(1)+ASKVOL(2)+ASKVOL(3)),1 )=0 and REF(BIDVOL(1),1)>0,BUYVOL,0);
VarE:=if((BIDVOL(1)+BIDVOL(2)+BIDVOL(3))=0 AND REF((BIDVOL(1)+BIDVOL(2)+BIDVOL(3)),1 )=0 and REF(ASKVOL(1),1)>0,SELLVOL,0);
VarF:=IF(ASKVOL(1)<REF(ASKVOL(1),1) AND ASKPRICE(1)=REF(ASKPRICE(1),1) AND CLOSE<REF(ASKPRICE(1),1) AND (REF(ASKVOL(1),1)-ASKVOL(1))<>SELLVOL,REF(ASKVOL(1),1)-ASKVOL(1),0);
Var10:=IF(ASKVOL(3)<REF(ASKVOL(3),1) AND ASKPRICE(3)=REF(ASKPRICE(3),1) AND CLOSE<REF(ASKPRICE(3),1),REF(ASKVOL(3),1)-ASKVOL(3),0);
Var11:=IF((REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1))=0 AND REF(ASKVOL(1),1)>0 AND (REF(ASKVOL(1),1)-ASKVOL(1))<SELLVOL AND ASKVOL(1)<REF(ASKVOL(1),1) AND ASKPRICE(1)=REF(ASKPRICE(1),1) AND CLOSE<REF(ASKPRICE(1),1),REF(ASKVOL(1),1)-ASKVOL(1),0);
Var12:=IF(ASKVOL(2)<REF(ASKVOL(3),1) AND ASKPRICE(2)=REF(ASKPRICE(3),1) AND CLOSE<REF(ASKPRICE(3),1),REF(ASKVOL(3),1)-ASKVOL(2),0);
Var13:=IF(ASKVOL(3)<REF(ASKVOL(2),1) AND ASKPRICE(3)=REF(ASKPRICE(2),1) AND CLOSE<REF(ASKPRICE(2),1),REF(ASKVOL(2),1)-ASKVOL(3),0);
Var14:=IF(BIDVOL(1)<REF(BIDVOL(1),1) AND BIDPRICE(1)=REF(BIDPRICE(1),1) AND CLOSE>REF(BIDPRICE(1),1) AND REF(BIDVOL(1),1)-BIDVOL(1)<>BUYVOL,REF(BIDVOL(1),1)-BIDVOL(1),0);
Var15:=IF(BIDVOL(3)<REF(BIDVOL(3),1) AND BIDPRICE(3)=REF(BIDPRICE(3),1) AND CLOSE>REF(BIDPRICE(3),1),REF(BIDVOL(3),1)-BIDVOL(3),0);
Var16:=IF(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)=0 AND REF(BIDVOL(1),1)>0 AND REF(BIDVOL(1),1)-BIDVOL(1)<BUYVOL AND BIDVOL(1)<REF(BIDVOL(1),1) AND BIDPRICE(1)=REF(BIDPRICE(1),1) AND CLOSE=REF(BIDPRICE(1),1),REF(BIDVOL(1),1)-BIDVOL(1),0);
Var17:=IF(BIDVOL(2)<REF(BIDVOL(3),1) AND BIDPRICE(2)=REF(BIDPRICE(3),1) AND CLOSE>REF(BIDPRICE(3),1),REF(BIDVOL(3),1)-BIDVOL(2),0);
Var18:=IF(BIDVOL(3)<REF(BIDVOL(2),1) AND BIDPRICE(3)=REF(BIDPRICE(2),1) AND CLOSE>REF(BIDPRICE(2),1),REF(BIDVOL(2),1)-BIDVOL(3),0);
Var19:=IF(BUYVOL<=REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1) AND CLOSE>=REF(ASKPRICE(3),1),BUYVOL,0);
Var1A:=IF(SELLVOL<=REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1) AND CLOSE<=REF(BIDPRICE(3),1),SELLVOL,0);
敲买:=Var4+Var5+Var6;
买入:=if((Var1+Var2+Var3+Var3A)>0,(Var1+Var2+Var3+Var3A),if(敲买>0,((Var4+Var5+Var6)-(Var4b+Var5b+Var6b)),0));
对敲买:=(Var4b+Var5b+Var6b);
敲卖:=VarA+VarB+VarC;
卖出:=if((Var7+Var8+Var9+Var9A)>0,(Var7+Var8+Var9+Var9A),if(敲卖>0,(VarA+VarB+VarC)-(VarAa+VarAb+VarAc),0));
对敲卖:=(VarAa+VarAb+VarAc);
涨跌停:=VarD+VarE;
总买:=sum(买入,0);
总敲买:=sum(对敲买,0);
总卖:=sum(卖出,0);
总敲卖:=sum(对敲卖,0);
总涨跌停:=sum(涨跌停,0);
撤卖:=IF((VarF+Var10+Var11+Var12+Var13)>BUYVOL,VarF+Var10+Var11+Var12+Var13-BUYVOL,0);
撤买:=IF((Var14+Var15+Var16+Var17+Var18)>SELLVOL,Var14+Var15+Var16+Var17+Var18-SELLVOL,0);
XS:=10000*n/c/100;
大单买入:=if(买入>=xs ,买入,0);
大对敲买:=if(对敲买>=xs ,对敲买,0);
大单卖出:=if(卖出>=xs ,卖出,0);
大对敲卖:=if(对敲卖>=xs ,对敲卖,0);
大涨跌停:=if(涨跌停>=xs ,涨跌停,0);
大单买:=sum(大单买入,0);
大对买:=sum(大对敲买,0);
大单卖:=sum(大单卖出,0);
大对卖:=sum(大对敲卖,0);
大停:=sum(大涨跌停,0);
if C>0 and BARSTATUS=2 then begin;
DRAWTEXTREL(700,0,'总涨跌停=:'+总涨跌停),Color2F73FF;
DRAWTEXTREL(630,50,'---------------------------------'),LINETHICK1,Coloreeeeee;
DRAWTEXTREL(630,180,'总买=:'+总买),Colorred;
DRAWTEXTREL(755,180,'总敲买=:'+总敲买),COLORMAGENTA;
DRAWTEXTREL(630,330,'总卖=:'+总卖),Color00ff00;
DRAWTEXTREL(755,330,'总敲卖=:'+总敲卖),COLORCYAN;
DRAWTEXTREL(630,460,'---------------------------------'),LINETHICK1,Coloreeeeee;
DRAWTEXTREL(20,200,'总成交手:'+总),COLORffff54;
DRAWTEXTREL(20,350,'大单买入:'+大单买),COLOR0000ff;
DRAWTEXTREL(20,500,'大对敲买:'+大对买),COLOR00cccc;
DRAWTEXTREL(20,650,'大单卖出:'+大单卖),COLOR00ff00;
DRAWTEXTREL(20,800,'大对敲卖:'+大对卖),COLORcccc00;
DRAWTEXTREL(20,950,'大涨跌停:'+大停),COLORff8888;
DRAWTEXTREL(200,200,'成交总笔数:'+fsbs),COLORffff54;
DRAWTEXTREL(400,200,'人气(笔/分):'+NUMTOSTRN(人气,3)),PRECIS3,COLORffff54;
DRAWTEXTREL(200,350,'(买+对)占%:'+NUMTOSTRN((大单买+大对买)/总*100,2)),COLOR0000ff;
DRAWTEXTREL(200,500,'(卖+对)占%:'+NUMTOSTRN((大单卖+大对卖)/总*100,2)),COLOR00ff00;
DRAWTEXTREL(200,650,'大涨跌停占%:'+NUMTOSTRN(大停/总*100,2)),COLORff8888;
DRAWTEXTREL(400,400,'■大单买卖净量:'+NUMTOSTRN(((大单买+大对买)-(大单卖+大对卖)),2)),LINETHICK1,COLORccffcc;
DRAWTEXTREL(400,600,'□占%:'+NUMTOSTRN(((大单买+大对买)-(大单卖+大对卖))/总*100,2)),LINETHICK1,COLORMAGENTA;
end;
dd:=LN(FINANCE2(7)/(403*10))*ATAN(FINANCE2(7))*100;
主动买入a:=SUM(BUYVOL,0);
主动卖出a:=SUM(SELLVOL,0);
大单买a:=if(BUYVOL>=dd,BUYVOL,0);
大单卖a:=if(SELLVOL>dd,SELLVOL,0);
大单买入a:=SUM(大单买a,0);
大单卖出a:=SUM(大单卖a,0);
小单买入:=主动买入a-大单买入a;
小单卖出:=主动卖出a-大单卖出a;
{总A:=DYNAINFO(8);
STICKLINE((总A AND DISPSTATUS=2),0,总A,50,1),COLORFFFFFF;
STICKLINE((大单买入+大单卖出+小单买入+小单卖出 AND DISPSTATUS=2),0,总A,50,0),Color8000FF;
STICKLINE((大单卖出+小单买入+小单卖出 AND DISPSTATUS=2),0,大单卖出+小单买入+小单卖出,50,0),Color2F73FF;
STICKLINE((小单卖出+大单卖出 AND BARSTATUS=2),0,小单卖出+大单卖出,50,0),Color00FF00;
STICKLINE((小单卖出 AND BARSTATUS=2),0,小单卖出,50,0),ColorB4B043;}
总A:=DYNAINFO(8);
STICKLINE((总A AND DISPSTATUS=2),0,总A,50,1),COLORFFFFFF;
STICKLINE((大单买入a+大单卖出a+小单买入+小单卖出 AND DISPSTATUS=2),0,总A,50,0),Color8000FF;
STICKLINE((大单卖出a+小单买入+小单卖出 AND DISPSTATUS=2),0,大单卖出a+小单买入+小单卖出,50,0),Color2F73FF;
STICKLINE((小单卖出+大单卖出a AND BARSTATUS=2),0,小单卖出+大单卖出a,50,0),Color00FF00;
STICKLINE((小单卖出 AND BARSTATUS=2),0,小单卖出,50,0),ColorB4B043;
金币:
奖励:
热心:
注册时间:
2008-2-14

回复 使用道具 举报

发表于 2008-5-8 21:42 | 显示全部楼层
input:n(15,1,100);
DRAWGBKLAST(C>0,STRIP(RGB(80,100,120),RGB(0,0,0),0)),color33ff66;
DRAWTEXTREL(20,0,'成交分析一 '),LINETHICK2,Coloryellow;
V1:=TIME;
a1:=COUNT(BARSCOUNT(C)=1 and time<102000 ,0 );
开盘分:=if(V1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)),
(FLOOR(V1/10000)-11)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)));
a:=BARSCOUNT(C);
人气:=if(a1>0,a/开盘分,a/(开盘分-60));
量:=V;
总:=sum(量,0);
fsbs:=BARSCOUNT(CLOSE);
Var1:=IF(BUYVOL<=REF(ASKVOL(1),1) AND CLOSE=REF(ASKPRICE(1),1),BUYVOL,0);
Var2:=IF(BUYVOL<=(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)) AND CLOSE=REF(ASKPRICE(2),1),BUYVOL,0);
Var3:=IF(BUYVOL<=(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND CLOSE=REF(ASKPRICE(3),1),BUYVOL,0);
Var3A:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND CLOSE>REF(ASKPRICE(3),1),BUYVOL,0);
Var41:=IF(CLOSE<REF(ASKPRICE(1),1) AND REF(BIDVOL(1),1)>0 AND REF(ASKVOL(1),1)>0,BUYVOL,0);
Var42:=IF((BUYVOL>REF(ASKVOL(1),1) AND CLOSE=REF(ASKPRICE(1),1) AND REF(BIDVOL(1),1)>0),BUYVOL,0);
Var42a:=IF(Var42>0,Var42-REF(ASKVOL(1),1),0);
Var4b:=Var41+Var42a;
Var4:=Var41+Var42;
Var51:=IF(BUYVOL>REF(ASKVOL(1),1) AND CLOSE>REF(ASKPRICE(1),1) AND CLOSE<REF(ASKPRICE(2),1),BUYVOL,0);
Var52:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)) AND CLOSE=REF(ASKPRICE(2),1) AND REF(BIDVOL(1),1)>0,BUYVOL,0);
Var52a:=IF(Var52>0,Var52-(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)),0);
Var5b:=Var51+Var52a;
Var5:=Var51+Var52;
Var61:=IF(BUYVOL>REF(ASKVOL(1),1)+REF(ASKVOL(2),1) AND CLOSE>REF(ASKPRICE(2),1) AND CLOSE<REF(ASKPRICE(3),1),BUYVOL,0);
Var62:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND CLOSE=REF(ASKPRICE(3),1) AND REF(BIDVOL(1),1)>0,BUYVOL,0);
Var62a:=IF( Var62>0,Var62-(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)),0);
Var6b:=Var61+Var62a;
Var6:=Var61+Var62;
Var7:=IF(SELLVOL<=REF(BIDVOL(1),1) AND CLOSE=REF(BIDPRICE(1),1),SELLVOL,0);
Var8:=IF(SELLVOL<=(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)) AND CLOSE=REF(BIDPRICE(2),1),SELLVOL,0);
Var9:=IF(SELLVOL<=(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)) AND CLOSE=REF(BIDPRICE(3),1),SELLVOL,0);
Var9A:=IF(SELLVOL>(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)) AND CLOSE<REF(BIDPRICE(3),1),SELLVOL,0);
VarA1:=IF(CLOSE>REF(BIDPRICE(1),1) AND REF(ASKVOL(1),1)>0 AND REF(BIDVOL(1),1)>0,SELLVOL,0);
VarA2:=IF(SELLVOL>REF(BIDVOL(1),1) AND CLOSE=REF(BIDPRICE(1),1) AND REF(ASKVOL(1),1)>0,SELLVOL,0);
VarAa:=IF(VarA2>0,SELLVOL-REF(BIDVOL(1),1),0);
VarA:=VarA1+VarA2;
VarB1:=IF(SELLVOL>REF(BIDVOL(1),1) AND CLOSE<REF(BIDPRICE(1),1) AND CLOSE>REF(BIDPRICE(2),1),SELLVOL,0);
VarB2:=IF(SELLVOL>(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)) AND CLOSE=REF(BIDPRICE(2),1) AND REF(ASKVOL(1),1)>0,SELLVOL,0);
VarBa:=if(VarB2>0,SELLVOL-(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)),0);
VarAb:=VarB1+VarBa;
VarB:=VarB1+VarB2;
VarC1:=IF(SELLVOL>REF(BIDVOL(1),1)+REF(BIDVOL(2),1) AND CLOSE<REF(BIDPRICE(2),1) AND CLOSE>REF(BIDPRICE(3),1),SELLVOL,0);
VarC2:=IF(SELLVOL>(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)) AND CLOSE=REF(BIDPRICE(3),1) AND REF(ASKVOL(1),1)>0,SELLVOL,0);
VarCa:=if(VarC2>0,SELLVOL-(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)),0);
VarAc:=VarC1+VarCa;
VarC:=VarC1+VarC2;
VarD:=if((ASKVOL(1)+ASKVOL(2)+ASKVOL(3))=0 AND REF((ASKVOL(1)+ASKVOL(2)+ASKVOL(3)),1 )=0 and REF(BIDVOL(1),1)>0,BUYVOL,0);
VarE:=if((BIDVOL(1)+BIDVOL(2)+BIDVOL(3))=0 AND REF((BIDVOL(1)+BIDVOL(2)+BIDVOL(3)),1 )=0 and REF(ASKVOL(1),1)>0,SELLVOL,0);
VarF:=IF(ASKVOL(1)<REF(ASKVOL(1),1) AND ASKPRICE(1)=REF(ASKPRICE(1),1) AND CLOSE<REF(ASKPRICE(1),1) AND (REF(ASKVOL(1),1)-ASKVOL(1))<>SELLVOL,REF(ASKVOL(1),1)-ASKVOL(1),0);
Var10:=IF(ASKVOL(3)<REF(ASKVOL(3),1) AND ASKPRICE(3)=REF(ASKPRICE(3),1) AND CLOSE<REF(ASKPRICE(3),1),REF(ASKVOL(3),1)-ASKVOL(3),0);
Var11:=IF((REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1))=0 AND REF(ASKVOL(1),1)>0 AND (REF(ASKVOL(1),1)-ASKVOL(1))<SELLVOL AND ASKVOL(1)<REF(ASKVOL(1),1) AND ASKPRICE(1)=REF(ASKPRICE(1),1) AND CLOSE<REF(ASKPRICE(1),1),REF(ASKVOL(1),1)-ASKVOL(1),0);
Var12:=IF(ASKVOL(2)<REF(ASKVOL(3),1) AND ASKPRICE(2)=REF(ASKPRICE(3),1) AND CLOSE<REF(ASKPRICE(3),1),REF(ASKVOL(3),1)-ASKVOL(2),0);
Var13:=IF(ASKVOL(3)<REF(ASKVOL(2),1) AND ASKPRICE(3)=REF(ASKPRICE(2),1) AND CLOSE<REF(ASKPRICE(2),1),REF(ASKVOL(2),1)-ASKVOL(3),0);
Var14:=IF(BIDVOL(1)<REF(BIDVOL(1),1) AND BIDPRICE(1)=REF(BIDPRICE(1),1) AND CLOSE>REF(BIDPRICE(1),1) AND REF(BIDVOL(1),1)-BIDVOL(1)<>BUYVOL,REF(BIDVOL(1),1)-BIDVOL(1),0);
Var15:=IF(BIDVOL(3)<REF(BIDVOL(3),1) AND BIDPRICE(3)=REF(BIDPRICE(3),1) AND CLOSE>REF(BIDPRICE(3),1),REF(BIDVOL(3),1)-BIDVOL(3),0);
Var16:=IF(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)=0 AND REF(BIDVOL(1),1)>0 AND REF(BIDVOL(1),1)-BIDVOL(1)<BUYVOL AND BIDVOL(1)<REF(BIDVOL(1),1) AND BIDPRICE(1)=REF(BIDPRICE(1),1) AND CLOSE=REF(BIDPRICE(1),1),REF(BIDVOL(1),1)-BIDVOL(1),0);
Var17:=IF(BIDVOL(2)<REF(BIDVOL(3),1) AND BIDPRICE(2)=REF(BIDPRICE(3),1) AND CLOSE>REF(BIDPRICE(3),1),REF(BIDVOL(3),1)-BIDVOL(2),0);
Var18:=IF(BIDVOL(3)<REF(BIDVOL(2),1) AND BIDPRICE(3)=REF(BIDPRICE(2),1) AND CLOSE>REF(BIDPRICE(2),1),REF(BIDVOL(2),1)-BIDVOL(3),0);
Var19:=IF(BUYVOL<=REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1) AND CLOSE>=REF(ASKPRICE(3),1),BUYVOL,0);
Var1A:=IF(SELLVOL<=REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1) AND CLOSE<=REF(BIDPRICE(3),1),SELLVOL,0);
敲买:=Var4+Var5+Var6;
买入:=if((Var1+Var2+Var3+Var3A)>0,(Var1+Var2+Var3+Var3A),if(敲买>0,((Var4+Var5+Var6)-(Var4b+Var5b+Var6b)),0));
对敲买:=(Var4b+Var5b+Var6b);
敲卖:=VarA+VarB+VarC;
卖出:=if((Var7+Var8+Var9+Var9A)>0,(Var7+Var8+Var9+Var9A),if(敲卖>0,(VarA+VarB+VarC)-(VarAa+VarAb+VarAc),0));
对敲卖:=(VarAa+VarAb+VarAc);
涨跌停:=VarD+VarE;
总买:=sum(买入,0);
总敲买:=sum(对敲买,0);
总卖:=sum(卖出,0);
总敲卖:=sum(对敲卖,0);
总涨跌停:=sum(涨跌停,0);
撤卖:=IF((VarF+Var10+Var11+Var12+Var13)>BUYVOL,VarF+Var10+Var11+Var12+Var13-BUYVOL,0);
撤买:=IF((Var14+Var15+Var16+Var17+Var18)>SELLVOL,Var14+Var15+Var16+Var17+Var18-SELLVOL,0);
XS:=10000*n/c/100;
大单买入:=if(买入>=xs ,买入,0);
大对敲买:=if(对敲买>=xs ,对敲买,0);
大单卖出:=if(卖出>=xs ,卖出,0);
大对敲卖:=if(对敲卖>=xs ,对敲卖,0);
大涨跌停:=if(涨跌停>=xs ,涨跌停,0);
大单买:=sum(大单买入,0);
大对买:=sum(大对敲买,0);
大单卖:=sum(大单卖出,0);
大对卖:=sum(大对敲卖,0);
大停:=sum(大涨跌停,0);
if C>0 and BARSTATUS=2 then begin;
DRAWTEXTREL(700,0,'总涨跌停=:'+总涨跌停),Color2F73FF;
DRAWTEXTREL(630,50,'---------------------------------'),LINETHICK1,Coloreeeeee;
DRAWTEXTREL(630,180,'总买=:'+总买),Colorred;
DRAWTEXTREL(755,180,'总敲买=:'+总敲买),COLORMAGENTA;
DRAWTEXTREL(630,330,'总卖=:'+总卖),Color00ff00;
DRAWTEXTREL(755,330,'总敲卖=:'+总敲卖),COLORCYAN;
DRAWTEXTREL(630,460,'---------------------------------'),LINETHICK1,Coloreeeeee;
DRAWTEXTREL(20,200,'总成交手:'+总),COLORffff54;
DRAWTEXTREL(20,350,'大单买入:'+大单买),COLOR0000ff;
DRAWTEXTREL(20,500,'大对敲买:'+大对买),COLOR00cccc;
DRAWTEXTREL(20,650,'大单卖出:'+大单卖),COLOR00ff00;
DRAWTEXTREL(20,800,'大对敲卖:'+大对卖),COLORcccc00;
DRAWTEXTREL(20,950,'大涨跌停:'+大停),COLORff8888;
DRAWTEXTREL(200,200,'成交总笔数:'+fsbs),COLORffff54;
DRAWTEXTREL(400,200,'人气(笔/分):'+NUMTOSTRN(人气,3)),PRECIS3,COLORffff54;
DRAWTEXTREL(200,350,'(买+对)占%:'+NUMTOSTRN((大单买+大对买)/总*100,2)),COLOR0000ff;
DRAWTEXTREL(200,500,'(卖+对)占%:'+NUMTOSTRN((大单卖+大对卖)/总*100,2)),COLOR00ff00;
DRAWTEXTREL(200,650,'大涨跌停占%:'+NUMTOSTRN(大停/总*100,2)),COLORff8888;
DRAWTEXTREL(400,400,'■大单买卖净量:'+NUMTOSTRN(((大单买+大对买)-(大单卖+大对卖)),2)),LINETHICK1,COLORccffcc;
DRAWTEXTREL(400,600,'□占%:'+NUMTOSTRN(((大单买+大对买)-(大单卖+大对卖))/总*100,2)),LINETHICK1,COLORMAGENTA;
end;
dd:=LN(FINANCE2(7)/(403*10))*ATAN(FINANCE2(7))*100;
主动买入a:=SUM(BUYVOL,0);
主动卖出a:=SUM(SELLVOL,0);
大单买a:=if(BUYVOL>=dd,BUYVOL,0);
大单卖a:=if(SELLVOL>dd,SELLVOL,0);
大单买入a:=SUM(大单买a,0);
大单卖出a:=SUM(大单卖a,0);
小单买入:=主动买入a-大单买入a;
小单卖出:=主动卖出a-大单卖出a;
{总A:=DYNAINFO(8);
STICKLINE((总A AND DISPSTATUS=2),0,总A,50,1),COLORFFFFFF;
STICKLINE((大单买入+大单卖出+小单买入+小单卖出 AND DISPSTATUS=2),0,总A,50,0),Color8000FF;
STICKLINE((大单卖出+小单买入+小单卖出 AND DISPSTATUS=2),0,大单卖出+小单买入+小单卖出,50,0),Color2F73FF;
STICKLINE((小单卖出+大单卖出 AND BARSTATUS=2),0,小单卖出+大单卖出,50,0),Color00FF00;
STICKLINE((小单卖出 AND BARSTATUS=2),0,小单卖出,50,0),ColorB4B043;}
总A:=DYNAINFO(8);
STICKLINE((总A AND DISPSTATUS=2),0,总A,50,1),COLORFFFFFF;
STICKLINE((大单买入a+大单卖出a+小单买入+小单卖出 AND DISPSTATUS=2),0,总A,50,0),Color8000FF;
STICKLINE((大单卖出a+小单买入+小单卖出 AND DISPSTATUS=2),0,大单卖出a+小单买入+小单卖出,50,0),Color2F73FF;
STICKLINE((小单卖出+大单卖出a AND BARSTATUS=2),0,小单卖出+大单卖出a,50,0),Color00FF00;
STICKLINE((小单卖出 AND BARSTATUS=2),0,小单卖出,50,0),ColorB4B043;
金币:
奖励:
热心:
注册时间:
2008-2-14

回复 使用道具 举报

发表于 2008-5-8 22:17 | 显示全部楼层
:*22*: 馋啊。
金币:
奖励:
热心:
注册时间:
2004-1-18

回复 使用道具 举报

发表于 2008-5-8 22:49 | 显示全部楼层
xie xie
金币:
奖励:
热心:
注册时间:
2008-2-20

回复 使用道具 举报

发表于 2008-5-8 23:07 | 显示全部楼层

回复 #1 yngs 的帖子

dfdsafdsaf
金币:
奖励:
热心:
注册时间:
2006-9-13

回复 使用道具 举报

发表于 2008-5-8 23:12 | 显示全部楼层
谢谢!如何用?看了
金币:
奖励:
热心:
注册时间:
2008-2-28

回复 使用道具 举报

发表于 2008-5-8 23:31 | 显示全部楼层
支持楼主,感谢共享
金币:
奖励:
热心:
注册时间:
2007-2-9

回复 使用道具 举报

发表于 2008-5-9 03:23 | 显示全部楼层
成交分析&成交统计(分笔看盘公式)
金币:
奖励:
热心:
注册时间:
2002-7-23

回复 使用道具 举报

发表于 2008-5-9 08:09 | 显示全部楼层
ddddddddddddddddd
金币:
奖励:
热心:
注册时间:
2005-5-5

回复 使用道具 举报

发表于 2008-5-9 08:46 | 显示全部楼层
顶!!!!!
金币:
奖励:
热心:
注册时间:
2007-10-22

回复 使用道具 举报

发表于 2008-5-9 08:48 | 显示全部楼层
顶你看看怎么样
金币:
奖励:
热心:
注册时间:
2006-8-14

回复 使用道具 举报

发表于 2008-5-9 12:52 | 显示全部楼层
kanaknaknakankanakankanak
金币:
奖励:
热心:
注册时间:
2002-1-8

回复 使用道具 举报

发表于 2008-5-9 13:05 | 显示全部楼层
非常感谢!!!!
金币:
奖励:
热心:
注册时间:
2005-6-22

回复 使用道具 举报

发表于 2008-5-9 15:17 | 显示全部楼层
kankan
金币:
奖励:
热心:
注册时间:
2007-11-23

回复 使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

本站声明:MACD仅提供交流平台,请交流人员遵守法律法规。
值班电话:18209240771   微信:35550268

举报|意见反馈|手机版|MACD俱乐部

GMT+8, 2025-4-22 16:08 , Processed in 0.041055 second(s), 10 queries , MemCached On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表