- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2008-2-14
|
|
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; |
|
|