通达信DDE实时看盘 原创、源码

{股海网提供：www.guhai.com.cn}

个人总结后修改的DDE，珍藏的东西也拿出来了。注意：别把三组公式放在一起

DDX大单动向：
参数：N 2 500 10
AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
买量:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),LINETHICK0;
卖量:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL/2)),LINETHICK0,COLORCYAN;
大单动向:(买量+卖量)*10000/FINANCE(7),COLOR00FFFF,NODRAW;
STICKLINE(大单动向<0,0,大单动向,2,0),COLORCYAN;
STICKLINE(大单动向<0,0,大单动向,2,0),COLORCYAN;
STICKLINE(大单动向<0,0,大单动向,2,0),COLORCYAN;
STICKLINE(大单动向<0,0,大单动向,0.5,0),COLORCYAN;
STICKLINE(大单动向>0,0,大单动向,2,0),COLORRED;
STICKLINE(大单动向>0,0,大单动向,1,0),COLORRED;
STICKLINE(大单动向>0,0,大单动向,1.5,0),COLORRED;
STICKLINE(大单动向>0,0,大单动向,0.5,0),COLORRED;
MA1:MA(大单动向,N)COLORYELLOW;


DDY涨跌动因：
参数：N 2 500 10
AA:=IF(BETWEEN(C,REF(C,1),H),VOL,0);
BB:=IF(BETWEEN(C,REF(C,1),L),VOL,0);
CC:=IF(AA AND BB,0,VOL/3);
涨跌动因:3*(AA-(BB+CC))/IF(CAPITAL<1,SUM(INDEXV,71),CAPITAL),LINETHICK0;
STICKLINE(涨跌动因>0,0,涨跌动因,2,0 ),COLORRED;
STICKLINE(涨跌动因<0,0,涨跌动因,2,0 ),COLORCYAN;
MA1:MA(涨跌动因,N);


DDZ大单差分：
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)));
QJ5:=QJ1+QJ2;
QJ6:=QJ3+QJ4;
DD:=(QJ5-QJ6)/(QJ5+QJ6)*100;
DDZ:DD*7,LINETHICK1;
DDZ1:=DD*3,LINETHICK1;
DRAWBAND(DDZ,RGB(255,32,32),DDZ1,RGB(0,224,224));