直观盘口：
公式：


源码：
input:n(15,1,100),M(1000,1,10000);
DRAWGBK(C>0,COLORRGB(80,100,120),0,1);
DRAWTEXTEX(C,1,20,10,' '+STKLABEL+'   '+STKNAME+' '+NUMTOSTR((FINANCE( 7)/10000),2)+'亿股'),Color0000FF;
DRAWTEXTEX(C,1,23,13,' '+STKLABEL+'   '+STKNAME+' '+NUMTOSTR((FINANCE( 7)/10000),2)+'亿股'),Color00FFFF;
yy:=DATE;
yy1:=WEEKDAY;
{显示时间}
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=年份;
fm:=月份;
fd:=日期;
wd:=星期;
p:=系统参数(1);
str1:=''+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'+数字转化为字符串(fd[p],0)+'日 '+wday[wd[p]+1];
DRAWTEXTEX(c,1,390,10,str1),Color0000FF;
DRAWTEXTEX(c,1,393,13,str1),coloryellow;

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 REF(ASKPRICE(3),1)>0  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){ or (CLOSE<REF(ASKPRICE(1),1) AND REF(BIDVOL(1),1)>0 AND REF(ASKVOL(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 REF(BIDPRICE(3),1)>0 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,SELLVOL,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,BUYVOL,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);
量:=V,PRECISION0,VOLSTICK;;
敲买:=Var4+Var5+Var6;
敲卖:=VarA+VarB+VarC;
买入:if((Var1+Var2+Var3+Var3A)>0,(Var1+Var2+Var3+Var3A)-(VarD+VarE),if (敲买>0,((Var4+Var5+Var6)-(Var4b+Var5b+Var6b)),0)),PRECISION0,Colorred, LINETHICK0;
卖出:if((Var7+Var8+Var9+Var9A)>0,(Var7+Var8+Var9+Var9A)-(VarD+VarE),if (敲卖>0,(VarA+VarB+VarC)-(VarAa+VarAb+VarAc),0)),PRECISION0, Color00ff00,LINETHICK0;;
撤买:IF((Var14+Var15+Var16+Var17+Var18)>SELLVOL,Var14+Var15+Var16+Var17+Var18-SELLVOL,0),PRECISION0,COLOR0000ff,LINETHICK0;
撤卖:IF((VarF+Var10+Var11+Var12+Var13)>BUYVOL,VarF+Var10+Var11+Var12+Var13-BUYVOL,0),PRECISION0,COLORffffff,LINETHICK0;
对敲买:(Var4b+Var5b+Var6b),PRECISION0,COLORMAGENTA,LINETHICK0;(来源:www.yz21.org 中国股票网)
对敲卖:(VarAa+VarAb+VarAc),PRECISION0,COLORCYAN,LINETHICK0;
总敲买:=sum(对敲买,0),COLORMAGENTA,PRECISION0,LINETHICK0;
总敲卖:=sum(对敲卖,0),COLORCYAN,PRECISION0,LINETHICK0;
总买:=sum(买入,0),Colorred,PRECISION0,LINETHICK0;
总卖:=sum(卖出,0),Color00ff00,PRECISION0,LINETHICK0;

STICKLINE((Var1+Var2+Var3+Var3A)>0,0,(Var1+Var2+Var3+Var3A),8,1),Colorred;
STICKLINE((Var4+Var5+Var6)>0,0,Var4+Var5+Var6,8,1),COLORMAGENTA;
STICKLINE(敲买>0,0,Var4b+Var5b+Var6b,4,0),COLORMAGENTA;
STICKLINE((Var7+Var8+Var9+Var9A)>0,0,(Var7+Var8+Var9+Var9A),8,1), COLORGREEN;
STICKLINE((VarA+VarB+VarC)>0,0,VarA+VarB+VarC,8,1),COLORCYAN;
STICKLINE(敲卖>0,0,VarAa+VarAb+VarAc,4,0),COLORCYAN;
STICKLINE((VarD+VarE)>0,0,VarD+VarE,6,0),COLORff0000;
STICKLINE(撤卖>0,0,-撤卖,8,0),COLORffffff;
STICKLINE(撤买>0,0,-撤买,4,0),COLOR0000ff;

流通:=FINANCE(7)/10000;
市值:DYNAINFO(7)*FINANCE(7)/10000,Color00FFFF,PRECISION2,LINETHICK0;
老杨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*M;
大单买入:=if(买入>=门限,买入,0);
大对敲买:=if(对敲买>=门限,对敲买,0);
大单卖出:=if(卖出>门限,卖出,0);
大对敲卖:=if(对敲卖>门限,对敲卖,0);
大单买:=sum(大单买入,0);
大对买:=sum(大对敲买,0);
大单卖:=sum(大单卖出,0);
大对卖:=sum(大对敲卖,0);

DRAWTEXTEX(C,1,20,150,'大单买入：'+NUMTOSTR(大单买,0)+''),COLOR0000ff;
DRAWTEXTEX(C,1,650,150,'总买：'+NUMTOSTR(总买,0)+''),COLOR0000ff;
DRAWTEXTEX(C,1,650,300,'总卖：'+NUMTOSTR(总卖,0)+''),COLOR00ff00;
DRAWTEXTEX(C,1,300,150,'大对敲买：'+NUMTOSTR(大对买,0)+''),Color0000FF;
DRAWTEXTEX(C,1,300,300,'大对敲卖：'+NUMTOSTR(大对卖,0)+''),Color00FF00;
DRAWTEXTEX(C,1,20,300,'大单卖出：'+NUMTOSTR(大单卖,0)+''),COLOR00ff00;
DRAWTEXTEX(C,1,20,450,'总敲买：'+NUMTOSTR(总敲买,0)+''),ColorFFFF00;
DRAWTEXTEX(C,1,300,450,'总敲卖：'+NUMTOSTR(总敲卖,0)+''),ColorFFFF00;
DRAWTEXTEX(C,1,670,10,'大单净量：'+NUMTOSTR(((大单买+大对买)-(大单卖+大对卖)),2)+''),Color0000FF;
DRAWTEXTEX(C,1,673,13,'大单净量：'+NUMTOSTR(((大单买+大对买)-(大单卖+大对卖)),2)+''),Color00FFFF;