{MA30 ●波浪主图 2010.6.8}

INPUT:N(5,1,999);

MA5:MA(CLOSE,5);

MA10:MA(CLOSE,10);

MA20:MA(CLOSE,20);

MA30:MA(CLOSE,30);

MA60:MA(CLOSE,60);

FILLRGN(MA5,MA10,MA5>MA10,RGB(255,0,255),MA5<MA10,RGB(0,255,0)),PRECIS0,LAYER6;

STICKLINE(C>MA(C,N),O,C,8,0),COLOR000077;

STICKLINE(C>MA(C,N),O,C,6,0),COLOR000099;

STICKLINE(C>MA(C,N),O,C,4,0),COLOR0000AA;

STICKLINE(C>MA(C,N),O,C,2,0),COLOR0000DD;

STICKLINE(C>MA(C,N),O,C,1,0),COLOR0000FF;

STICKLINE(C<MA(C,N),O,C,8,0),COLOR007700;

STICKLINE(C<MA(C,N),O,C,6,0),COLOR009900;

STICKLINE(C<MA(C,N),O,C,4,0),COLOR00AA00;

STICKLINE(C<MA(C,N),O,C,2,0),COLOR00DD00;

STICKLINE(C<MA(C,N),O,C,1,0),COLOR00FF00;

STICKLINE(O<MA(C,N) AND C>MA(C,N),O,MA(C,N),8,0),COLOR007700;

STICKLINE(O<MA(C,N) AND C>MA(C,N),O,MA(C,N),6,0),COLOR009900;

STICKLINE(O<MA(C,N) AND C>MA(C,N),O,MA(C,N),4,0),COLOR00AA00;

STICKLINE(O<MA(C,N) AND C>MA(C,N),O,MA(C,N),2,0),COLOR00DD00;

STICKLINE(O<MA(C,N) AND C>MA(C,N),O,MA(C,N),1,0),COLOR00FF00;

STICKLINE(O>MA(C,N) AND C<MA(C,N),O,MA(C,N),8,0),COLOR000077;

STICKLINE(O>MA(C,N) AND C<MA(C,N),O,MA(C,N),6,0),COLOR000099;

STICKLINE(O>MA(C,N) AND C<MA(C,N),O,MA(C,N),4,0),COLOR0000AA;

STICKLINE(O>MA(C,N) AND C<MA(C,N),O,MA(C,N),2,0),COLOR0000DD;

STICKLINE(O>MA(C,N) AND C<MA(C,N),O,MA(C,N),1,0),COLOR0000FF;

GET:ZIG(3,5),LINETHICK2,COLOR00FFFF;

PL5:=ZIG(3,5);

EN1:=pl5>REF(pl5,1) AND REF(pl5,1)<=REF(pl5,2) AND REF(pl5,2)<=REF(pl5,3);

EX1:=pl5<REF(pl5,1) AND REF(pl5,1)>=REF(pl5,2) AND REF(pl5,2)>=REF(pl5,3);

PL10:=ZIG(3,10);

EN2:=pl10>REF(pl10,1) AND REF(pl10,1)<=REF(pl10,2) AND REF(pl10,2)<=REF(pl10,3);

EX2:=pl10<REF(pl10,1) AND REF(pl10,1)>=REF(pl10,2) AND REF(pl10,2)>=REF(pl10,3);

PL20:=ZIG(3,20);

EN3:=pl20>REF(pl20,1) AND REF(pl20,1)<=REF(pl20,2) AND REF(pl20,2)<=REF(pl20,3);

EX3:=pl20<REF(pl20,1) AND REF(pl20,1)>=REF(pl20,2) AND REF(pl20,2)>=REF(pl20,3);

走强1:=BARSLAST(PL5<REF(PL5,1));

走弱1:=BARSLAST(PL5>REF(PL5,1));

走强2:=BARSLAST(PL10<REF(PL10,1));

走弱2:=BARSLAST(PL10>REF(PL10,1));

走强3:=BARSLAST(PL20<REF(PL20,1));

走弱3:=BARSLAST(PL20>REF(PL20,1));

ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0);

ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0);

DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0);

DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0);

ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0);

ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0);

DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0);

DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0);

DRAWTEXT(EN1 AND DTJZ5=1,L*0.98,'㈠'),COLORFFFF00;

DRAWTEXT(EX1 AND DTJD5=2,H*1.02,'㈡'),COLORFFFF00;

DRAWTEXT(EN2 AND ZTJZ5=1,L*0.98,'㈢'),COLORFFFF00;

DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H*1.02,'⑴'),COLOR0000FF;

DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L*0.98,'⑵'),COLOR0000FF;

DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H*1.02,'⑶'),COLOR0000FF;

DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.98,'⑷'),COLOR0000FF;

DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.02,'⑸'),COLOR0000FF;

DRAWTEXT(EN2 AND DTJZ10=1,L*0.9,'Ⅰ'),colorred;

DRAWTEXT(EX2 AND DTJD10=2,H*0.9,'Ⅱ'),colorred;

DRAWTEXT(EN3 AND ZTJZ10=1,L*0.9,'Ⅲ'),colorred;

DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.06,'①'),LINETHICK3,COLOR00FFFF;

DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.94,'②'),LINETHICK3,COLOR00FFFF;

DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.06,'③'),LINETHICK3,COLOR00FFFF;

DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L*0.94,'④'),LINETHICK3,COLOR00FFFF;