大智慧L2的指标，用了不会后悔
input:n(1000,1,10000);
DRAWTEXTREL(10,5,STKLABEL),LINETHICK4,Color0000FF;
DRAWTEXTREL(13,8,STKLABEL),LINETHICK4,Color00FFFF;
DRAWTEXTREL(140,5,STKNAME),LINETHICK4,Color0000FF;
DRAWTEXTREL(143,8,STKNAME),LINETHICK4,Color00FFFF;
DRAWTEXTABS(310,145,'收益:'+NUMTOSTRN(FINANCE2(3),2)+' 市盈:'+NUMTOSTRN(DYNAINFO(39),2)+' 市净:'+NUMTOSTRN(DYNAINFO(58),2)),LINETHICK1,Color00FF00;
DRAWTEXTREL(20,550,'-------------------------2007-08-28-(一发千钧制作)-------------------------------------------------------'),LINETHICK1,Color0000FF;
DRAWTEXTREL(360,515,extrastring('评级')),color00ffff;
a:=BUYVOL*c/100;
bz:=SUM(a,0);
b:=SELLVOL*c/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;
j10:=b10-s10;
j30:=b30-s30;
j50:=b50-s50;
j70:=b70-s70;
j100:=b100-s100;
j150:=b150-s150;
IF BARSTATUS=2 and (z) THEN BEGIN DRAWTEXTREL(260,5,' ■总成交金额（万元）：'+NUMTOSTRN(DYNAINFO(10)/10000,2)),LINETHICK4,Color0000FF;end;
IF BARSTATUS=2 and (bz) THEN BEGIN DRAWTEXTREL(30,600,'■■■买入金额:'+NUMTOSTRN(bz,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (sz) THEN BEGIN DRAWTEXTREL(250,600,' ■■■卖出金额:'+NUMTOSTRN(sz,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b5) THEN BEGIN DRAWTEXTREL(30,650,' 5 万大单买入:' +NUMTOSTRN(b5,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s5) THEN BEGIN DRAWTEXTREL(250,650,' 5 万大单卖出:'+NUMTOSTRN(s5,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b10) THEN BEGIN DRAWTEXTREL(30,700,' 10 万大单买入:'+NUMTOSTRN(b10,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s10) THEN BEGIN DRAWTEXTREL(250,700,' 10 万大单卖出:'+NUMTOSTRN(s10,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b30) THEN BEGIN DRAWTEXTREL(30,750,' 30 万大单买入:'+NUMTOSTRN(b30,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s30) THEN BEGIN DRAWTEXTREL(250,750,' 30 万大单卖出:'+NUMTOSTRN(s30,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b50) THEN BEGIN DRAWTEXTREL(30,800,' 50 万大单买入:'+NUMTOSTRN(b50,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s50) THEN BEGIN DRAWTEXTREL(250,800,' 50 万大单卖出:'+NUMTOSTRN(s50,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b70) THEN BEGIN DRAWTEXTREL(30,850,' 70 万大单买入:'+NUMTOSTRN(b70,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s70) THEN BEGIN DRAWTEXTREL(250,850,' 70 万大单卖出:'+NUMTOSTRN(s70,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b100) THEN BEGIN DRAWTEXTREL(30,900,'100 万大单买入:'+NUMTOSTRN(b100,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s100) THEN BEGIN DRAWTEXTREL(250,900,' 100 万大单卖出:'+NUMTOSTRN(s100,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b150) THEN BEGIN DRAWTEXTREL(30,950,'150 万大单买入:'+NUMTOSTRN(b150,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s150) THEN BEGIN DRAWTEXTREL(250,950,' 150 万大单卖出:'+NUMTOSTRN(s150,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (cz) THEN BEGIN DRAWTEXTREL(470,600,' ■■ 净买入金额:'+NUMTOSTRN(cz,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j5) THEN BEGIN DRAWTEXTREL(470,650, ' 5 万大单净买入; '+NUMTOSTRN(j5,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j10) THEN BEGIN DRAWTEXTREL(470,700, ' 10万大单净买入; '+NUMTOSTRN(j10,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j30) THEN BEGIN DRAWTEXTREL(470,750, ' 30万大单净买入; '+NUMTOSTRN(j30,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j50) THEN BEGIN DRAWTEXTREL(470,800, ' 50万大单净买入; '+NUMTOSTRN(j50,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j70) THEN BEGIN DRAWTEXTREL(470,850, ' 70万大单净买入; '+NUMTOSTRN(j70,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j100) THEN BEGIN DRAWTEXTREL(470,900,' 100万大单净买入; '+NUMTOSTRN(j100,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j150) THEN BEGIN DRAWTEXTREL(470,950,' 150万大单净买入; '+NUMTOSTRN(j150,2)),LINETHICK1,COLORccff00;end;
委买总量:=SUM((BIDVOL(1)+BIDVOL(2)+BIDVOL(3)),0);
委卖总量:=SUM((ASKVOL(1)+ASKVOL(2)+ASKVOL(3)),0);
www1:=SUM(BUYVOL,0)-SUM(SELLVOL,0);
买卖存量:=REF(www1,1)+www1;
日换手:DYNAINFO(37)*100,LINETHICK0,Color00FFFF;
买入:=(sum(IF(BUYVOL>0,BUYVOL,0),0))-REF((sum(IF(BUYVOL>=0,BUYVOL,0),0)),1);
卖出:=(sum(IF(SELLVOL>0,SELLVOL,0),0))-REF((sum(IF(SELLVOL>0,SELLVOL,0),0)),1);
流通:FINANCE2(37)/10000,ColorFFFF00,LINETHICK0;
市值:DYNAINFO(7)*FINANCE2(37)/10000,ColorFF00FF,LINETHICK0;
买卖意愿:=(SUM(BUYVOL,0)-SUM(SELLVOL,0))/DYNAINFO(8)*100;
老杨1:=1.75; 老杨2:=2.0; 老杨3:=2.35; 老杨4:=2.75; 老杨5:=3.0; 老杨6:=3.35; 老杨7:=3.75; 老杨8:=4.00;
系数:=IF(流通<1.0,老杨1,IF(流通>=1.0 AND 流通<5.0,老杨2,IF(流通>=5.0 AND 流通<10,老杨3,IF(流通>=10 AND 流通<20,老杨4,IF(流通>=20 AND 流通<50,老杨5,IF(流通>=50 AND 流通<100,老杨6,IF(流通>=100 AND 流通<300,老杨7,IF(流通>=300,老杨8,0))))))));
门限:=(市值*系数)/15.5*n;
资金大单进量:=sum(IF(BUYVOL>=门限,BUYVOL,0),0);
资金大单出量:=sum(IF(SELLVOL>=门限,SELLVOL,0),0);
大单量差:=资金大单进量-资金大单出量;
Var1:=IF(BUYVOL<=REF(ASKVOL(1),1) AND DYNAINFO( 7)=REF(ASKPRICE(1),1),BUYVOL,0);
Var2:=IF(BUYVOL<=(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)) AND DYNAINFO( 7)=REF(ASKPRICE(2),1),BUYVOL,0);
Var3:=IF(BUYVOL<=(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND DYNAINFO( 7)=REF(ASKPRICE(3),1),BUYVOL,0);
Var3A:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND DYNAINFO( 7)>REF(ASKPRICE(3),1),BUYVOL,0);
Var41:=IF(DYNAINFO( 7)<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 DYNAINFO( 7)=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;
Var51:=IF(BUYVOL>REF(ASKVOL(1),1) AND DYNAINFO( 7)>REF(ASKPRICE(1),1) AND DYNAINFO( 7)<REF(ASKPRICE(2),1),BUYVOL,0);
Var52:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)) AND DYNAINFO( 7)=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;
Var61:=IF(BUYVOL>REF(ASKVOL(1),1)+REF(ASKVOL(2),1) AND DYNAINFO( 7)>REF(ASKPRICE(2),1) AND DYNAINFO( 7)<REF(ASKPRICE(3),1),BUYVOL,0);
Var62:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND DYNAINFO( 7)=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;
Var9A:=IF(SELLVOL>(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)) AND DYNAINFO( 7)<REF(BIDPRICE(3),1),SELLVOL,0);
VarA1:=IF(DYNAINFO( 7)>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 DYNAINFO( 7)=REF(BIDPRICE(1),1) AND REF(ASKVOL(1),1)>0,SELLVOL,0);
VarAa:=IF(VarA2>0,SELLVOL-REF(BIDVOL(1),1),0);
VarB1:=IF(SELLVOL>REF(BIDVOL(1),1) AND DYNAINFO( 7)<REF(BIDPRICE(1),1) AND DYNAINFO( 7)>REF(BIDPRICE(2),1),SELLVOL,0);
VarB2:=IF(SELLVOL>(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)) AND DYNAINFO( 7)=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;
VarC1:=IF(SELLVOL>REF(BIDVOL(1),1)+REF(BIDVOL(2),1) AND DYNAINFO( 7)<REF(BIDPRICE(2),1) AND DYNAINFO( 7)>REF(BIDPRICE(3),1),SELLVOL,0);
VarC2:=IF(SELLVOL>(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)) AND DYNAINFO( 7)=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;
VarF:=IF(ASKVOL(1)<REF(ASKVOL(1),1) AND ASKPRICE(1)=REF(ASKPRICE(1),1) AND DYNAINFO( 7)<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 DYNAINFO( 7)<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 DYNAINFO( 7)<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 DYNAINFO( 7)<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 DYNAINFO( 7)<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 DYNAINFO( 7)>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 DYNAINFO( 7)>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 DYNAINFO( 7)=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 DYNAINFO( 7)>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 DYNAINFO( 7)>REF(BIDPRICE(2),1),REF(BIDVOL(2),1)-BIDVOL(3),0);
对敲买:=(Var4b+Var5b+Var6b);
对敲卖:=(VarAa+VarAb+VarAc);
撤卖:=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);
每笔均额:=AMOUNT/TICKCOUNT;
主动买入:=SUM(BUYVOL,0);
主动卖出:=SUM(SELLVOL,0);
大单买:=IF(BUYVOL*DYNAINFO(7)>=门限,BUYVOL,0);
大单卖:=IF(SELLVOL*DYNAINFO(7)>门限,SELLVOL,0);
大单买入:=SUM(大单买,0);
大单卖出:=SUM(大单卖,0);
小单买入:=主动买入-大单买入;
小单卖出:=主动卖出-大单卖出;
大买金:=SUM(IF(BUYVOL*DYNAINFO(7)>=门限,BUYVOL,0)*c,0);
大卖金:=SUM(IF(SELLVOL*DYNAINFO(7)>门限,SELLVOL,0)*c,0);
小买金:=SUM(IF(BUYVOL*DYNAINFO(7)<门限,BUYVOL,0)*c,0);
小卖金:=SUM(IF(SELLVOL*DYNAINFO(7)<门限,SELLVOL,0)*c,0);
大单买均价:=大买金/大单买入;
大单卖均价:=大卖金/大单卖出;
小单买均价:=小买金/小单买入;
小单卖均价:=小卖金/小单卖出;
大单笔数:=COUNT(VOL>门限,0);
大单净量:=大单买入-大单卖出;
当日主力买入:=(大单买入/2-大单卖出/10)/2;
当日主力卖出:=(大单卖出/2-大单买入/10)/2;
主力持仓量:=sum(当日主力买入,(SUMBARS(VOL,FINANCE2(36)))/4);
比例:=(主力持仓量/FINANCE2(36));
成交笔数:=SUM(IF(BUYVOL>0,1,0),0)+SUM(IF(SELLVOL>0,1,0),0);
DRAWTEXTABS(20,145,'■大单买卖差:'+NUMTOSTRN(大单净量,2)),Color00FF00,LINETHICK1;
DRAWTEXTABS(20,25,'■ 大单买入:'+NUMTOSTRN(大单买入,0)),Color0000FF,LINETHICK1;
DRAWTEXTABS(145,25,'占:'+NUMTOSTRN(FLOOR(大单买入/(主动买入+主动卖出)*100),0)+'%'),Color0000FF,LINETHICK1;
DRAWTEXTABS(200,25,'大单买均价: '+NUMTOSTRN(大单买均价,2)),Color8000FF,LINETHICK1;
DRAWTEXTABS(20,40,'■ 大单卖出:'+NUMTOSTRN(大单卖出,0)),Color00FF00,LINETHICK1;
DRAWTEXTABS(145,40,'占:'+NUMTOSTRN(FLOOR(大单卖出/(主动买入+主动卖出)*100),0)+'%'),Color00FF00,LINETHICK1;
DRAWTEXTABS(200,40,'大单卖均价: '+NUMTOSTRN(大单卖均价,2)),Color00FF00,LINETHICK1;
DRAWTEXTABS(20,55,'■ 小单买入:'+NUMTOSTRN(小单买入,0)),ColorFF00FF,LINETHICK1;
DRAWTEXTABS(145,55,'占:'+NUMTOSTRN(FLOOR(小单买入/(主动买入+主动卖出)*100),0)+'%'),ColorFF00FF,LINETHICK1;
DRAWTEXTABS(20,70,'■ 小单卖出:'+NUMTOSTRN(小单卖出,0)),ColorFFFF00,LINETHICK1;
DRAWTEXTABS(145,70,'占:'+NUMTOSTRN(FLOOR(小单卖出/(主动买入+主动卖出)*100),0)+'%'),ColorFFFF00,LINETHICK1;
DRAWTEXTABS(20,85,'■ 每笔均额:'+NUMTOSTRN(每笔均额,2)),ColorFF00FF,LINETHICK1;
DRAWTEXTABS(20,100,'■ 每笔均量:'+NUMTOSTRN(INTPART((主动买入+主动卖出)/成交笔数),2)),ColorFFFF00,LINETHICK1;
DRAWTEXTABS(310,25,'人均大约持股:'+INTPART(FINANCE2(36)/extradata('散户线')*10000)),Color0000FF,LINETHICK1;
DRAWTEXTABS(310,40,'大约持股比例:'+NUMTOSTRN((FINANCE2(36)/extradata('散户线')*10000)/FINANCE2(36),2)+' %'),Color00FF00,LINETHICK1;
DRAWTEXTABS(310,55,'■主力持仓量:'+INTPART(主力持仓量)),ColorFF00FF,LINETHICK1;
DRAWTEXTABS(310,100,'主力持仓比例:'+NUMTOSTRN(比例,2)+'%'),ColorFFFF00,LINETHICK1;
DRAWTEXTABS(20,130,'散户跟风系数:'+FLOOR((小单买入-小单卖出)/DYNAINFO(8)*100)+' %'),ColorFFFF00,LINETHICK1;
DRAWTEXTABS(310,115,'本日增减仓量:'+INTPART(sum(BUYVOL,0)-sum(SELLVOL,0))),Color00FFFF,LINETHICK1;
DRAWTEXTABS(310,70,'■五日增减仓:'+INTPART(sum(当日主力买入,5))),ColorFFFF00,LINETHICK1;
DRAWTEXTABS(310,85,'■十日增减仓:'+INTPART(sum(当日主力买入,10))),ColorFF00FF,LINETHICK1;
DRAWTEXTABS(160,130,'本日主力买入:'+INTPART(sum(当日主力买入,1))),ColorFFFF00,LINETHICK1;
DRAWTEXTABS(160,145,'本日主力卖出:'+INTPART(sum(当日主力卖出,1))),Color00FF00,LINETHICK1;
DRAWTEXTABS(310,130,'买卖意愿:'+NUMTOSTRN(买卖意愿,0 )),ColorFFFF00;
VarA:=IF(BUYVOL<=REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1) AND CLOSE>=REF(ASKPRICE(3),1),BUYVOL,0);
