源碼：

INPUT:N(2,1,100);
R:=DYNAINFO(3);HH:=DYNAINFO(5);LL:=DYNAINFO(6);F:=MAX(HH-R,R-LL);FF:=F/R*100;Q4:=IF(FF<1,0.9898*R,R+F*1.01);
BU:=BARSLAST(CLOSE=HHV(CLOSE,2000));SE:=BARSLAST(CLOSE=LLV(CLOSE,2000));KK1:=SE;
KK2:=BU;LM1:=SE;LM2:=BU;OK:=KK1>KK2 AND LM1>LM2;OK1:=KK1>KK2 AND LM1<LM2;NOK:=KK2>KK1 AND LM2>LM1;NOK1:=KK2>KK1 AND LM2<LM1;
DRAWICON(CROSS(KK1,KK2),OPEN*1,1);DRAWTEXT(CROSS(KK1,KK2),OPEN*0.99,'抓'),colorFF00;
A:POLYLINE(CLOSE<COST(50),COST(20)),POINTDOT,color8800;B:POLYLINE(CLOSE<COST(50),COST(80)),POINTDOT,color66CC00;
VAR1:=AMOUNT/VOL/100;VAR2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;VAR3:=SUM(AMOUNT,5)/VAR1/100;
VAR4:=SUM(AMOUNT,13)/VAR1/100;VAR5:=SUM(AMOUNT,34)/VAR1/100;
CYC5:=DMA(VAR2,VOL/VAR3);CYC13:=DMA(VAR2,VOL/VAR4);CYC34:=DMA(VAR2,VOL/VAR5);CYC∞:=DMA(VAR2,VOL/CAPITAL);
一劍封喉:=CROSS(CLOSE,MA(CLOSE,13)) AND CROSS(CLOSE,MA(CLOSE,34)) AND CROSS(CLOSE,MA(CLOSE,55));
A1:=(CLOSE-LLV(LOW,22))/(HHV(HIGH,22)-LLV(LOW,22))*100;A2:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
A:=3*SMA(A1,5,1)-2*SMA(SMA(A2,5,1),3,1),POINTDOT,color8800;YNGS:=一劍封喉 AND A<30;
DRAWICON(一劍封喉 AND A<30,LOW*0.985,10);
昨收:=DYNAINFO(3);HH:=DYNAINFO(5);LL:=DYNAINFO(6);FK:=MAX(HH-昨收,昨收-LL);
ZS:=昨收-FK*1.01;Q1:=昨收-FK*1.012;Q2:=昨收-2*FK*1.012;Q3:=昨收-3*FK*1.01;
RSV:=((CLOSE-LLV(LOW,240))/(HHV(HIGH,240)-LLV(LOW,240))*200-100)/2;
K:=SMA(SMA(RSV,18,1),3,1);D:=MA(EMA(K,18),3);J:=3*K-2*D;空頭:=-3*K-2*D;
DIFF:=EMA(CLOSE,240)-EMA(CLOSE,240)*100;DEA:=EMA(DIFF,18);多頭MACD:=(-3*(DIFF-DEA))*2;
ZD:=HHV(多頭MACD,0);ZX:=LLV(多頭MACD,0);CZ:=(Q2-Q3)/6;
FILLRGN(1,昨收-2*FK*1.015,昨收-3*FK*1.01),color10000;
FDM:=MAX(ABS(ZD),ABS(ZX))*1.5;
RB:=(Q2+Q3)/2+2*(Q2-Q3)/3/FDM*多頭MACD;
STICKLINE(多頭MACD>0,RB,(Q2+Q3)/2,2,1),colorFF;
STICKLINE(多頭MACD<0,RB,(Q2+Q3)/2,2,1),colorFF00;
短買:IF(CROSS(K,D) AND K>0,(Q2+Q3)/2+(Q2-Q3)/4,(Q2+Q3)/2),LINETHICK2,colorFF00FF;
突擊:IF(CROSS(多頭MACD,空頭) AND 多頭MACD>0,(Q2+Q3)/2+(Q2-Q3)/4,(Q2+Q3)/2),LINETHICK2,colorFFFF;
DRAWICON(CROSS(K,D) AND K>0,RB,1),ALIGN1;
DRAWTEXT(CROSS(K,D) AND K>0,(Q2+Q3)/2+(Q2-Q3)/3,'短買'),colorFF0000;
DRAWTEXT(CROSS(多頭MACD,空頭) AND 多頭MACD>0,(Q2+Q3)/2+(Q2-Q3)/3,'突擊'),colorFFFF00;
PK:=VOL*(OPEN+CLOSE+HIGH+LOW)/4;PK1:=IF(VOL>0,PK/VOL,(OPEN+CLOSE+HIGH+LOW)/4);
C11:=PK1;A01:=(C11-LLV(C11,75))/(HHV(C11,75)-LLV(C11,75));A11:=SMA(A01,13,1);A21:=SMA(A11,13,1);
A31:=3*A11-2*A21;A41:=2*A31-0.5;ZS:=DYNAINFO(3)*0.95;選1:=C11*(1-(A41-A21)/40);選2:=CROSS(C11,選1) AND CLOSE/REF(CLOSE,1)<1.03;
選3:IF(選2,ZS*1.03,ZS),colorFF00;

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;
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);
委買:=BIDVOL(1)+BIDVOL(2)+BIDVOL(3);
委賣:=ASKVOL(1)+ASKVOL(2)+ASKVOL(3);
委買總量:=SUM(委買,0);
委賣總量:=SUM(委賣,0);
WWW1:=SUM(BUYVOL,0)-SUM(SELLVOL,0);
買賣存量:=REF(WWW1,1)+WWW1;
流通:=FINANCE(7)/10000;
市值:=DYNAINFO(7)*FINANCE(7)/10000;
流通:=FINANCE(7)/10000;
QJ1:=CAPITAL/2500;
QJ2:=CAPITAL/8000;
QJ3:=CAPITAL/16000;
QJ4:=CAPITAL/33000;
QJ5:=CAPITAL/80000;
QJ6:=CAPITAL/150000;
QJ7:=CAPITAL/200000;
QJ8:=CAPITAL/400000;
XS:=IF(流通<1,QJ1,IF(流通>=1 AND 流通<5,QJ2,IF(流通>=5 AND 流通<10,QJ3,IF(流通>=10 AND 流通<20,QJ4,IF(流通>=20 AND 流通<50,QJ5,IF(流通>=50 AND 流通<100,QJ6,IF(流通>=100 AND 流通<300,QJ7,IF(流通>=300,QJ8,0))))))));
門限:=XS;
特門限:=XS*2.67;
特大買:=IF(BUYVOL>=特門限,BUYVOL,0);
特大賣:=IF(SELLVOL>=特門限,SELLVOL,0);
大單買:=IF(BUYVOL>=門限 AND BUYVOL<特門限,BUYVOL,0);
大單賣:=IF(SELLVOL>=門限 AND SELLVOL<特門限,SELLVOL,0);
小單買:=IF(BUYVOL<門限,BUYVOL,0);
小單賣:=IF(SELLVOL<門限,SELLVOL,0);
特大買入:=SUM(特大買,0);
特大賣出:=SUM(特大賣,0);
大單買入:=SUM(大單買,0);
大單賣出:=SUM(大單賣,0);
小單買入:=SUM(小單買,0);
小單賣出:=SUM(小單賣,0);
大買:=特大買入+大單買入;
大賣:=特大賣出+大單賣出;
特買金:=SUM((IF(BUYVOL>=特門限,BUYVOL,0))*CLOSE,0);
特賣金:=SUM((IF(SELLVOL>=特門限,SELLVOL,0))*CLOSE,0);
大買金:=SUM((IF(BUYVOL>=門限 AND BUYVOL<特門限,BUYVOL,0))*CLOSE,0);
大賣金:=SUM((IF(SELLVOL>門限 AND SELLVOL<特門限,SELLVOL,0))*CLOSE,0);
小買金:=SUM((IF(BUYVOL<門限,BUYVOL,0))*CLOSE,0);
小賣金:=SUM((IF(SELLVOL<門限,SELLVOL,0))*CLOSE,0);
特買均價:=特買金/特大買入;
特賣均價:=特賣金/特大賣出;
大單買均價:=大買金/大單買入;
大單賣均價:=大賣金/大單賣出;
小單買均價:=小買金/小單買入;
小單賣均價:=小賣金/小單賣出;
大單凈量:=大單買入-大單賣出;
大單標(biāo)準(zhǔn):=門限*100*CLOSE/10000;
特單標(biāo)準(zhǔn):=特門限*100*CLOSE/10000;
資金大單進(jìn)量:=特大買入+大單買入;
資金大單出量:=特大賣出+大單賣出;
籌碼量差:=資金大單進(jìn)量-資金大單出量;
買入:=BUYVOL;
賣出:=SELLVOL;
委買:=DYNAINFO(20);
委賣:=DYNAINFO(21);
撤BB:=IF(VARF+VAR10+VAR11+VAR12+VAR13>BUYVOL,VARF+VAR10+VAR11+VAR12+VAR13-BUYVOL,0);
撤AA:=IF(VAR14+VAR15+VAR16+VAR17+VAR18>SELLVOL,VAR14+VAR15+VAR16+VAR17+VAR18-SELLVOL,0);
小撤買:=SUM(IF(撤AA<門限,撤AA,0),0);
小撤賣:=SUM(IF(撤BB<門限,撤BB,0),0);
大撤買:=SUM(IF(撤AA>=門限,撤AA,0),0);
大撤賣:=SUM(IF(撤BB>=門限,撤BB,0),0);
總撤買:=小撤買+大撤買;
總撤賣:=小撤賣+大撤賣;
對敲買:=SUM(IF(VAR4B+VAR5B+VAR6B<門限,VAR4B+VAR5B+VAR6B,0),0);
對敲賣:=SUM(IF(VARAA+VARAB+VARAC<門限,VARAA+VARAB+VARAC,0),0);
大對敲買:=SUM(IF(VAR4B+VAR5B+VAR6B>=門限,VAR4B+VAR5B+VAR6B,0),0);
大對敲賣:=SUM(IF(VARAA+VARAB+VARAC>=門限,VARAA+VARAB+VARAC,0),0);
總敲買:=對敲買+大對敲買;
總敲賣:=對敲賣+大對敲賣;
VARA:=IF(BUYVOL<=REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1) AND DYNAINFO(7)>=REF(ASKPRICE(5),1),BUYVOL,0);
上掃:=SUM(INTPART(IF(VARA<門限,BUYVOL,0)),0);
大上掃:=SUM(INTPART(IF(VARA>=門限,BUYVOL,0)),0);
VARB:=IF(SELLVOL<=REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1) AND DYNAINFO(7)<=REF(BIDPRICE(5),1),SELLVOL,0);
下掃:=SUM(INTPART(IF(VARB<門限,SELLVOL,0)),0);
大下掃:=SUM(INTPART(IF(VARB>=門限,SELLVOL,0)),0);
總上掃:=上掃+大上掃;
總下掃:=下掃+大下掃;
每筆均額:=AMOUNT/dyNAINFO(51);
大單筆數(shù):=COUNT(大單買+大單賣+特大買+特大買,0);
人均持股:=FINANCE(7)/FINANCE(50)*10000;
主力買賣比:=大買金/大賣金;
總成交:=特大買入+特大賣出+大單買入+大單賣出+小單買入+小單賣出+總敲買+總敲賣+總上掃+總下掃;
散戶跟風(fēng)系數(shù):=小單買入/總成交*100;