DDX-片片枫叶情（通达信源码，未来附图）

源码附上，并带图，第一张图是使用免费数据版本的效果，第二张图是使用收费数据版本的效果。方便通达信滴同学。

以下是免费数据版：
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);