N:=3; A1:=FORCAST(EMA(CLOSE,5),6); A2:=FORCAST(EMA(CLOSE,8),6); A3:=FORCAST(EMA(CLOSE,11),6); A4:=FORCAST(EMA(CLOSE,14),6); A5:=FORCAST(EMA(CLOSE,17),6); B:=A1+A2+A3+A4-4*A5; TOWERC:=EMA(B,2); B1:=FORCAST(EMA(B,3),6),POINTDOT,COLORGREEN; B2:=FORCAST(EMA(B,4),6),POINTDOT,COLORGREEN; B3:=FORCAST(EMA(B,5),6),POINTDOT,COLORGREEN; B4:=FORCAST(EMA(B,6),6),POINTDOT,COLORGREEN; B5:=FORCAST(EMA(B,7),6),POINTDOT,COLORGREEN; B6:=FORCAST(EMA(B,8),6),POINTDOT,COLORGREEN; B7:=FORCAST(EMA(B,9),6),POINTDOT,COLORGREEN; B8:=FORCAST(EMA(B,10),6),POINTDOT,COLORGREEN; B9:=FORCAST(EMA(B,11),6),POINTDOT,COLORGREEN; B10:=FORCAST(EMA(B,12),6),POINTDOT,COLORGREEN; B11:=FORCAST(EMA(B,13),6),POINTDOT,COLORGREEN; B12:=FORCAST(EMA(B,14),6),POINTDOT,COLORGREEN; B13:=FORCAST(EMA(B,15),6),POINTDOT,COLORGREEN; B14:=FORCAST(EMA(B,16),6),POINTDOT,COLORGREEN; B15:=FORCAST(EMA(B,17),6),POINTDOT,COLORGREEN; STICKLINE1(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),COLORRED; STICKLINE1(TOWERC=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),COLORRED; STICKLINE1(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),COLORRED; STICKLINE1(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),COLORRED; STICKLINE1(TOWERCBAN,BMAX,BMIN); C1:=BFIN-BMAX=0 AND REF(BFIN,1)-REF(BMIN,1)=0; C2:=BFIN-BMIN=0 AND REF(BFIN,1)-REF(BMAX,1)=0; BFINAL:=IF(C1 OR C2,(BMAX+BMIN)/2,BFIN),NODRAW; HC:TOWERC-REF(TOWERC,1),NODRAW; KC:HC-REF(HC,1),NODRAW; 绿柱变大:=IF(HC<=0 AND KC<=0,BFINAL,NULL),POINTDOT,COLORGREEN,LINETHICK3; 绿柱变小:=IF(HC<0 AND KC>0,BFINAL,NULL),POINTDOT,COLORMAGENTA,LINETHICK3; 红柱变大:=IF(HC>0 AND KC>=0,BFINAL,NULL),POINTDOT,COLORRED,LINETHICK3; 红柱变小:=IF(HC>0 AND KC<0,BFINAL,NULL),POINTDOT,COLORBLUE,LINETHICK3; //QHQQW.COM DRAWLINE(绿柱变大>0,BFINAL,1,TOWERC,COLORGREEN),POINTDOT; DRAWLINE(绿柱变小>0,BFINAL,1,TOWERC,COLORMAGENTA),POINTDOT; DRAWLINE(红柱变大>0,BFINAL,1,TOWERC,COLORRED),POINTDOT; DRAWLINE(红柱变小>0,BFINAL,1,TOWERC,COLORBLUE),POINTDOT; SEL:=REF(KC,4)>0 AND REF(KC,3)>0 AND REF(KC,2)<0 AND REF(KC,1)<0 AND KC<0; BU:=REF(KC,4)<0 AND REF(KC,3)<0 AND REF(KC,2)>0 AND REF(KC,1)>0 AND KC>0; DRAWTEXT(SEL,MAX(TOWERC,REF(TOWERC,1)),'降'),COLORWHITE; DRAWTEXT(BU,MIN(TOWERC,REF(TOWERC,1)),'升'),COLORWHITE;