源码附上，并带图，第一张图是使用免费数据版本的效果，第二张图是使用收费数据版本的效果。方便通达信滴同学。
以下是免费数据版：
VAR3:=EMA(IF(LOW<=LLV(LOW,34),FORCAST(C,5),0),5);
N:=20;JJ:=(HIGH+LOW+CLOSE)/3;QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));
DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,1000000,10000);
DDY:=((QJ2+QJ4)-(QJ1+QJ3))/IF(CAPITAL=0,1000000,10000);
QJ5:=QJ1+QJ2;QJ6:=QJ3+QJ4;DD:=(QJ5-QJ6)/(QJ5+QJ6)*100;
DDZ:=DD*17;
TJ1:=(SUM(DDX>0,5)>=4 AND DDZ>=300) OR (EVERY(DDY>0,3) AND DDZ>=300);
TJ2:FILTER(TJ1,5) AND VAR3>1;
以下是收费数据版：
VAR3:=EMA(IF(LOW<=LLV(LOW,34),FORCAST(C,5),0),5);
大单动向:=(LARGEINTRDVOL-LARGEOUTTRDVOL)*10000/FINANCE(7);
TJ3:=SUM(大单动向>0,3)=3;
XG:REF(TJ3,1)=0 AND TJ3 AND EXIST(VAR3>1,5);
