相關標簽:

 

input:n(5);
k1:=IF(CLOSE>=REF(CLOSE,1),HIGH-OPEN+CLOSE-LOW+CLOSE-REF(CLOSE,1),HIGH-OPEN+CLOSE-LOW);
k2:=IF(CLOSE<=REF(CLOSE,1),OPEN-LOW+HIGH-CLOSE+REF(CLOSE,1)-CLOSE,OPEN-LOW+HIGH-CLOSE);
dt:=VOL*K1/(K1+K2);
kt:=VOL-DT;
買量:sum(dt,n),COLOR0000FF;
賣量:-sum(kt,n),COLORFFFF00;
FILLRGN(買量,0,買量), COLOR7800;
FILLRGN(賣量,0,賣量), COLOR5000;
進出量:買量+賣量,POINTDOT,COLOR00FFFF;
凈量換手:100*進出量/CAPITAL,POINTDOT,COLOR00FF33;
STICKLINE(進出量>=0,0,進出量,6,1),COLOR0000FF;
STICKLINE(進出量<0,0,進出量,6,1),COLORFFFF00;
D5:=100*SUM(DT,5)/CAPITAL;
K5:=100*SUM(KT,5)/CAPITAL;
J5:=D5-K5;
D10:=100*SUM(DT,10)/CAPITAL;
K10:=100*SUM(KT,10)/CAPITAL;
J10:=D10-K10;
D20:=100*SUM(DT,20)/CAPITAL;
K20:=100*SUM(KT,20)/CAPITAL;
J20:=D20-K20;
yyzq:=sysparam(3)-sysparam(2);
FILL:=barscount(c)>SYSPARAM(2) and barscount(c)<if(sysparam(3)-sysparam(2)>20,SYSPARAM(2)+INTPART(yyzq/2),20);
pich:=refx(hhv(買量,yyzq),yyzq);
picl:=refx(llv(賣量,yyzq),yyzq);
kg0:=' ';
kg:=' ';
kg1:=' ';
bgh:=refx(pich,yyzq)*0.89;
bgl:=refx(picl,yyzq)*0.89;
jg:=(bgh*0.89-bgl*0.89)/10;
fillrgn(fill,refx(pich,yyzq)*0.9,refx(picl,yyzq)*0.9),colorcc00cc;
fillrgn(ref(fill,1) and refx(fill,1),refx(pich,yyzq)*0.885,refx(picl,yyzq)*0.885),color333333;
BL5:=(bgh-bgl)/2*0.9/MAX(D5,K5);
BL10:=(bgh-bgl)/2*0.9/MAX(D10,K10);
BL20:=(bgh-bgl)/2*0.9/MAX(D20,K20);
D5B:=bgl+D5*BL5;
K5B:=bgl+K5*BL5;
J5B:=bgl+ABS(J5)*BL5;
D10B:=bgl+D10*BL10;
K10B:=bgl+K10*BL10;
J10B:=bgl+ABS(J10)*BL10;
D20B:=bgl+D20*BL20;
K20B:=bgl+K20*BL20;
J20B:=bgl+ABS(J20)*BL20;
zx:=if(sysparam(3)-sysparam(2)>40,yyzq/2,20)/20;
fillrgn(barpos>SYSPARAM(2)+2*zx and barpos<sysparam(2)+3*zx,refx(D5B,yyzq),bgl),color3300aa;
fillrgn(barpos>SYSPARAM(2)+3*zx and barpos<sysparam(2)+4*zx,refx(K5B,yyzq),bgl),color99cc33;
fillrgn(barpos>SYSPARAM(2)+4*zx and barpos<sysparam(2)+5*zx,refx(J5B,yyzq),bgl),color00cccc;
fillrgn(barpos>SYSPARAM(2)+8*zx and barpos<sysparam(2)+9*zx,refx(D10B,yyzq),bgl),color3300aa;
fillrgn(barpos>SYSPARAM(2)+9*zx and barpos<sysparam(2)+10*zx,refx(K10B,yyzq),bgl),color99cc33;
fillrgn(barpos>SYSPARAM(2)+10*zx and barpos<sysparam(2)+11*zx,refx(J10B,yyzq),bgl),color00cccc;
fillrgn(barpos>SYSPARAM(2)+14*zx and barpos<sysparam(2)+15*zx,refx(D20B,yyzq),bgl),color3300aa;
fillrgn(barpos>SYSPARAM(2)+15*zx and barpos<sysparam(2)+16*zx,refx(K20B,yyzq),bgl),color99cc33;
fillrgn(barpos>SYSPARAM(2)+16*zx and barpos<sysparam(2)+17*zx,refx(J20B,yyzq),bgl),color00cccc;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-jg,kg1+'買量'), colorddffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-jg,kg1+kg+'賣量'), colorddffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-jg,kg1+kg+kg+'進出量'), colorddffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-2*jg,kg0+'今日'), colorddffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-2*jg,kg1+NUMTOSTR(100*refx(DT,yyzq)/CAPITAL,2)), color33ffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-2*jg,kg1+kg+NUMTOSTR(100*refx(KT,yyzq)/CAPITAL,2)), color33ffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-2*jg,kg1+kg+kg+NUMTOSTR(100*refx(DT,yyzq)/CAPITAL-100*refx(KT,yyzq)/CAPITAL,2)), color33ffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-3*jg,kg0+' 5日'),colorddffff;

DRAWTEXT(BARPOS=SYSPARAM(2),bgh-3*jg,kg1+NUMTOSTR(refx(D5,yyzq),2)), colorddffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-3*jg,kg1+kg+NUMTOSTR(refx(K5,yyzq),2)), colorddffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-3*jg,kg1+kg+kg+NUMTOSTR(refx(J5,yyzq),2)), colorddffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-4*jg,kg0+'10日'), colorddffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-4*jg,kg1+NUMTOSTR(refx(D10,yyzq),2)), color33ffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-4*jg,kg1+kg+NUMTOSTR(refx(K10,yyzq),2)), color33ffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-4*jg,kg1+kg+kg+NUMTOSTR(refx(J10,yyzq),2)), color33ffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-5*jg,kg0+'20日'), colorddffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-5*jg,kg1+NUMTOSTR(refx(D20,yyzq),2)), colorddffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-5*jg,kg1+kg+NUMTOSTR(refx(K20,yyzq),2)), colorddffff;
DRAWTEXT(BARPOS=SYSPARAM(2),bgh-5*jg,kg1+kg+kg+NUMTOSTR(refx(J20,yyzq),2)), colorddffff;
DRAWTEXT(BARSSINCE(barpos>SYSPARAM(2)+zx)=1,bgl+(bgh*0.89-bgl*0.89)/4,' 5\n日'),align0,COLORwhite;
DRAWTEXT(BARSSINCE(barpos>SYSPARAM(2)+7*zx)=1,bgl+(bgh*0.89-bgl*0.89)/4,'10\n日'),align0,COLORwhite;
DRAWTEXT(BARSSINCE(barpos>SYSPARAM(2)+13*zx)=1,bgl+(bgh*0.89-bgl*0.89)/4,'20\n日'),align0,COLORwhite;{程序化交易 www.kzuj.com.cn }

 

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】