【千鈞DDE系統】公式源碼:
{千鈞DDX}
input:p1(60),p2(5),p3(10);
DRAWGBK(C>0,COLORRGB(100,120,180),0,1);
varl1:=(EXTDATA(9)+EXTDATA(10)+EXTDATA(11))/CAPITAL*100;
varl2:=(EXTDATA(6)+EXTDATA(7))/SUM(VOL,120);
DDX:IF(C>1000,varl2,varl1),PRECISION3,COLORSTICK,LINETHICK4;
DDX1:(ema(DDX,p1)*60.177)/5;
DDX2:(MA(DDX1,p2));
DDX3:(MA(DDX1,p3));
{顯示時間}
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=年份;
fm:=月份;
fd:=日期;
wd:=星期;
p:=系統參數(1);
str1:=''+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'+數字轉化為字符串(fd[p],0)+'日 '+wday[wd[p]+1];
DRAWTEXT(BARPOS=DATACOUNT-103,0,str1),ALIGN4,PXDN0,Color00FFaF;
DRAWTEXT(BARPOS=DATACOUNT-128,0,STKLABEL+' '+STKNAME+''),ALIGN4,PXDN0,Color00FFaF;
DRAWTEXTEX(c,1,10,150,'大單動向='+NUMTOSTR(DDX,2)+''),ColorFFFF8;


{千鈞ddy}
DRAWGBK(C>0,COLORRGB(100,120,180),0,1);
input:p1(60),p2(5),p3(10);
大單量差:=EXTDATA(9)+EXTDATA(10)+EXTDATA(11);
DDy:大單量差/CAPITAL*100,COLORSTICK,linethick4;
買:(ema(DDy,p1)*60.177)/10,Color0000FF,linethick1;
加倉:MA(DDy,p2),Color00FFFF,linethick1;
賣:MA(DDy,p3),Color00FF00,linethick1;
DRAWTEXTEX(c>0,1,10,0,'漲跌動因='+NUMTOSTR(DDy,2)),ColorFFFF8,LINETHICK3;



{千鈞DDZ}
DRAWGBK(C>0,COLORRGB(100,120,180),0,1);
大單量差:=EXTDATA(9)+EXTDATA(10)+EXTDATA(11);
大單凈值:=大單量差*100*c;
DDZ:((大單凈值*c)/CAPITAL*200)/1000;
DDZ1:(大單量差*c)/CAPITAL*170;
FILLRGN(DDZ>DDZ1,DDZ*10,DDZ1),Color0000FF;
FILLRGN(DDZ<DDZ1,DDZ,DDZ1*10),Color00FF00;
DRAWTEXTEX(c>0,1,10,0,'大單分差='+NUMTOSTR(DDZ,2)+' %'),ColorFFFF8;