实在没招了。请高手帮助转通达信指标

qzlj2003

实在没招了。请高手帮助转通达信指标

来自：MACD论坛(bbs.shudaoyoufang.com) 作者：qzlj2003 浏览：6106 回复：11

INPUT:W1(0,-1,1),W2(0.125,-1,1),W3(0.25,-1,1),W4(0.375,-1,1),W5(0.50,-1,1),
W6(0.625,-1,1),W7(0.75,-1,1),W8(0.875,-1,1),W9(1,-1,1);
//////以上参数根据自己需要可调
hhk:=h;
llk:=l;
光标:SYSPARAM(6),LINETHICK,COLOR00AAFF;
STICKLINE(BARPOS=SYSPARAM(1),光标,光标*0.999,600,0),COLOR00AAFF;
PP:=SYSPARAM(1);
KK:=光标-C;
IF KK[PP]>0 THEN BEGIN
{光标向上}
起始L:LLK[PP],COLOR0066FF,LINETHICK2;
涨幅统计:(光标-起始L)/起始L*100,LINETHICK;

STICKLINE(BARPOS=SYSPARAM(1),起始L,光标,0.1,0),COLOR00AAFF;
DRAWTEXT(BARPOS=SYSPARAM(1),起始L,'∨'),ALIGN0,PXUP20,COLOR00AAFF;
DRAWTEXT(BARPOS=SYSPARAM(1),光标,'∧'),ALIGN0,COLOR00AAFF;
DRAWTEXT(BARPOS=SYSPARAM(1)-2,光标,NUMTOSTR(涨幅统计,3)),ALIGN2,PXUP20,COLOR00ffff;

X1:起始L*(1+W1),LINEDOT,COLORFF9966;
X2:起始L*(1+W2),LINEDOT,COLORFF9966;
X3:起始L*(1+W3),LINEDOT,COLORFF9966;
X4:起始L*(1+W4),LINEDOT,COLORFF9966;
X5:起始L*(1+W5),LINEDOT,COLORFF9966;
X6:起始L*(1+W6),LINEDOT,COLORFF9966;
X7:起始L*(1+W7),LINEDOT,COLORFF9966;
X8:起始L*(1+W8),LINEDOT,COLORFF9966;
X9:起始L*(1+W9),LINEDOT,COLORFF9966;
DRAWNUMBER(BARPOS=SYSPARAM(3),X1,X1,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X2,X2,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X3,X3,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X4,X4,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X5,X5,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X6,X6,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X7,X7,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X8,X8,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X9,X9,2),COLORAAAAAA,ALIGN2,PXUP25;

DRAWTEXT(BARPOS=SYSPARAM(1)-4,X1,NUMTOSTR(W1*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X2,NUMTOSTR(W2*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X3,NUMTOSTR(W3*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X4,NUMTOSTR(W4*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X5,NUMTOSTR(W5*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X6,NUMTOSTR(W6*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X7,NUMTOSTR(W7*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X8,NUMTOSTR(W8*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X9,NUMTOSTR(W9*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
END;


ELSE   BEGIN
{光标向下}
  起始H:HHK[PP],COLORFF66DD,LINETHICK2;
跌幅统计:(光标-起始H)/起始H*100,LINETHICK;

STICKLINE(BARPOS=SYSPARAM(1),起始H,光标,0.1,0),COLOR00AAFF;
DRAWTEXT(BARPOS=SYSPARAM(1),起始H,'∨'),ALIGN0,PXUP20,COLOR00AAFF;
DRAWTEXT(BARPOS=SYSPARAM(1),光标,'∧'),ALIGN0,COLOR00AAFF;
DRAWTEXT(BARPOS=SYSPARAM(1)-2,光标,NUMTOSTR(跌幅统计,3)),ALIGN2,PXUP20,COLOR00ffff;

X11:起始H*(1-W1),LINEDOT,COLORFF9966;
X21:起始H*(1-W2),LINEDOT,COLORFF9966;
X31:起始H*(1-W3),LINEDOT,COLORFF9966;
X41:起始H*(1-W4),LINEDOT,COLORFF9966;
X51:起始H*(1-W5),LINEDOT,COLORFF9966;
X61:起始H*(1-W6),LINEDOT,COLORFF9966;
X71:起始H*(1-W7),LINEDOT,COLORFF9966;
X81:起始H*(1-W8),LINEDOT,COLORFF9966;
X91:起始H*(1-W9),LINEDOT,COLORFF9966;
DRAWNUMBER(BARPOS=SYSPARAM(3),X11,X11,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X21,X21,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X31,X31,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X41,X41,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X51,X51,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X61,X61,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X71,X71,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X81,X81,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X91,X91,2),COLORAAAAAA,ALIGN2,PXUP25;


DRAWTEXT(BARPOS=SYSPARAM(1)-4,X11,NUMTOSTR(-W1*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X21,NUMTOSTR(-W2*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X31,NUMTOSTR(-W3*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X41,NUMTOSTR(-W4*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X51,NUMTOSTR(-W5*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X61,NUMTOSTR(-W6*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X71,NUMTOSTR(-W7*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X81,NUMTOSTR(-W8*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X91,NUMTOSTR(-W9*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
END;

qzlj2003

实在没招了。请高手帮助转通达信指标

winju

只有等高手帮忙了

dcw388

帖子帮回

noyesi

只有等高手帮忙了