已经很久不用DDE指标了，最近感觉千钧DDE非常不错，无须下载数据，越用越爽，于是，根据个人喜好，对其进行了修改。改的好不好，还需大家提提意见。源码奉献，免得害死人！我向来反感加密指标。先上张图，让大家养眼一下，呵呵。
千钧DDX
N:=5;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))/SUM(VOL,10)*10,COLOR3D;
DX:=ma(ddx,5)*N;
DDX1:sma(DX,3,1);
DDX2:sma(DDX1,3,1);
DDX3:wma(DDX2,5);
1,DOTLINE;
预警:=DDX>0 and ma(v,5)>ma(ma(v,5),5) and CROSS(DDX1,DDX2);
天:=COUNT(DDX>0,5);
DRAWTEXT(预警,DDX*1.06,'★'),LINETHICK3,COLOR00FFFF;
DRAWTEXTABS(180,0,'一周内翻红:'+NUMTOSTRN(天,0)+' 天'),Color00EEFF;
DRAWTEXTABS(0,0,'大单动向');
千钧DDY
N:=5;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)));
DDY:((QJ2+QJ4)-(QJ1+QJ3))/SUM(VOL,10)*10,COLOR3D;
DY:=ma(ddy,5)*N;
DDY1:sma(DY,3,1);
DDY2:sma(DDY1,3,1);
DDY3:wma(DDY2,5);
1,DOTLINE;
预警:=DDy>0 and CROSS(DDy1,DDy2) and ddy1<0;
DRAWTEXT(预警,DDy*1.06,'★'),LINETHICK3,COLOR00BBFF;
DRAWTEXTABS(0,0,'涨跌动因');
千钧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;
DDZ:(qj5-qj6)/(qj5+qj6)*100;
DDZ1:=DDZ*0.8;
FILLRGN(DDZ,DDZ1,DDZ>=DDZ1,RGB(255,0,0),DDZ<DDZ1,RGB(0,130,250));
DRAWTEXTABS(0,0,'大单分差'); {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
