把（背离王）和（趋势王）同时变红做个选股和预警

编写要求：

（趋势王）码源 A1:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,3)+EMA((OPEN+HIGH+LOW+CLOSE)/4,6)+EMA((OPEN+HIGH+LOW+CLOSE)/4,9))/3; A2:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,5)+EMA((OPEN+HIGH+LOW+CLOSE)/4,10)+EMA((OPEN+HIGH+LOW+CLOSE)/4,20))/3; A3:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,7)+EMA((OPEN+HIGH+LOW+CLOSE)/4,14)+EMA((OPEN+HIGH+LOW+CLOSE)/4,28))/3; A4:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,9)+EMA((OPEN+HIGH+LOW+CLOSE)/4,18)+EMA((OPEN+HIGH+LOW+CLOSE)/4,36))/3; A5:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,11)+EMA((OPEN+HIGH+LOW+CLOSE)/4,22)+EMA((OPEN+HIGH+LOW+CLOSE)/4,44))/3; A6:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,13)+EMA((OPEN+HIGH+LOW+CLOSE)/4,26)+EMA((OPEN+HIGH+LOW+CLOSE)/4,52))/3; ma1:=FORCAST(A1,6); ma2:=FORCAST(A2,6); ma3:=FORCAST(A3,6); ma4:=FORCAST(A4,6); ma5:=FORCAST(A5,6); ma6:=FORCAST(A6,6); partline(ma2,ma2ref(ma2,1),rgb(255,0,255)),dotline; partline(ma3,ma3ref(ma3,1),rgb(255,0,255)),dotline; partline(ma4,ma4ref(ma4,1),rgb(255,0,255)),dotline; partline(ma5,ma5ref(ma5,1),rgb(255,0,255)),dotline; partline(ma6,ma6ref(ma6,1),rgb(255,0,255)),dotline; partline(ma1,ma1ref(ma1,1),rgb(255,0,255)),dotline; TOWERC:=FORCAST(EMA((3*CLOSE+2*OPEN+HIGH+LOW)/7,3),6); DIRECTIONMAX:=MAX(REF(TOWERC,1),REF(TOWERC,1)); DIRECTIONMIN:=MIN(REF(TOWERC,1),REF(TOWERC,1)); STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,DIRECTIONMAX,8,0),color0000FF; STICKLINE(TOWERC=REF(TOWERC,1),TOWERC,REF(TOWERC,1),8,0),COLORRED; STICKLINE(TOWERC=REF(TOWERC,1),TOWERC,REF(TOWERC,1),5,0),COLORRED; STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),3,0),COLORRED; STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),0,0),COLORRED; STICKLINE(TOWERC

解答：

?TOWERC:=FORCAST(EMA((3*CLOSE+2*OPEN+HIGH+LOW)/7,3),6);

A1:=FORCAST(EMA(CLOSE,5),6);