[通达信指标]波浪顶底公式源码

PYS1:=1;

PYS2:=BARSCOUNT(CLOSE)*3.142/180;

A2:SIN(PYS2*8)*40,COLORYELLOW;

PYS3:=1;

IF(A2>REF(A2,1),A2,DRAWNULL)*PYS1,COLORMAGENTA;

A3:COS(PYS2*8)*40,COLORGRAY;

IF(A3>REF(A3,1),A3,DRAWNULL)*PYS1,COLORRED;

PYS4:=(CLOSE*2+HIGH+LOW)/4;

PYS5:=EMA(PYS4,13)-EMA(PYS4,34)*PYS1;

PYS6:=EMA(PYS5,9)*PYS3;

PYX:=2*(PYS5-PYS6)*PYS3*61.799999,COLORAA77AA;

STICKLINE(PYX>0,PYX,0,2.6,0),COLOR000088;

STICKLINE(PYX>0,PYX,0,1.8,0),COLOR0000AA;

STICKLINE(PYX>0,PYX,0,1,0),COLOR0000CC;

STICKLINE(PYX>0,PYX,0,0.1,0),COLOR0000DD;

STICKLINE(PYX<0,PYX,0,2.6,0),COLOR008800;

STICKLINE(PYX<0,PYX,0,1.8,0),COLOR00AA00;

STICKLINE(PYX<0,PYX,0,1,0),COLOR00CC00;

STICKLINE(PYX<0,PYX,0,0.1,0),COLOR00DD00;

F1:=IF(C>REF(C,1),100*VOL/CAPITAL,0);

F2:=IF(C<REF(C,1),100*VOL/CAPITAL,0);

XX:=-SUM(F2,5);

YY:=SUM(F1,5);

ZZ:=XX+YY;

XG:=(DOWNNDAY(CLOSE,5) AND XX=ZZ) OR (EVERY(CLOSE<OPEN,4) AND XX=ZZ),COLORRED,LINETHICK2;

JL:=(UPNDAY(CLOSE,5) AND YY=ZZ) OR (EVERY(C>O,4) AND YY=ZZ),COLORGREEN,LINETHICK2;

DRAWICON(XG,PYX,1);

DRAWICON(JL,PYX,2);