改成文華的公式　[文華財經]

A2:=(EMA((O+H+LOW+C)/4,5)+EMA((O+H+LOW+C)/4,10)+EMA((O+H+LOW+C)/4,20))/3;

A3:=(EMA((O+H+LOW+C)/4,7)+EMA((O+H+LOW+C)/4,14)+EMA((O+H+LOW+C)/4,28))/3;

A4:=(EMA((O+H+LOW+C)/4,9)+EMA((O+H+LOW+C)/4,18)+EMA((O+H+LOW+C)/4,36))/3;

A5:=(EMA((O+H+LOW+C)/4,11)+EMA((O+H+LOW+C)/4,22)+EMA((O+H+LOW+C)/4,44))/3;

A6:=(EMA((O+H+LOW+C)/4,13)+EMA((O+H+LOW+C)/4,26)+EMA((O+H+LOW+C)/4,52))/3;

A7:=(EMA((O+H+LOW+C)/4,21)+EMA((O+H+LOW+C)/4,34)+EMA((O+H+LOW+C)/4,68))/3;

WAVAR1:=FORCAST(A1,6);

WAVAR2:=FORCAST(A2,6);

WAVAR3:=FORCAST(A3,6);

WAVAR4:=FORCAST(A4,6);

WAVAR5:=FORCAST(A5,6);

WAVAR6:=FORCAST(A6,6);

WAVAR7:=FORCAST(A7,6);

IF(WAVAR1>REF(WAVAR1,1),WAVAR1,DRAWNULL),POINTDOT,COLORFF00FF;

IF(WAVAR1<REF(WAVAR1,1),WAVAR1,DRAWNULL),POINTDOT,COLOR00FF00;

IF(WAVAR2>REF(WAVAR2,1),WAVAR2,DRAWNULL),POINTDOT,COLORFF00FF;

IF(WAVAR2<REF(WAVAR2,1),WAVAR2,DRAWNULL),POINTDOT,COLOR00FF00;

IF(WAVAR3>REF(WAVAR3,1),WAVAR3,DRAWNULL),POINTDOT,COLORFF00FF;

IF(WAVAR3<REF(WAVAR3,1),WAVAR3,DRAWNULL),POINTDOT,COLOR00FF00;

IF(WAVAR4>REF(WAVAR4,1),WAVAR4,DRAWNULL),POINTDOT,COLORFF00FF;

IF(WAVAR4<REF(WAVAR4,1),WAVAR4,DRAWNULL),POINTDOT,COLOR00FF00;

IF(WAVAR5>REF(WAVAR5,1),WAVAR5,DRAWNULL),POINTDOT,COLORFF00FF;

IF(WAVAR5<REF(WAVAR5,1),WAVAR5,DRAWNULL),POINTDOT,COLOR00FF00;

IF(WAVAR6>REF(WAVAR6,1),WAVAR6,DRAWNULL),POINTDOT,COLORFF00FF;

IF(WAVAR6<REF(WAVAR6,1),WAVAR6,DRAWNULL),POINTDOT,COLOR00FF00;

IF(WAVAR7>REF(WAVAR7,1),WAVAR7,DRAWNULL),LINETHICK2,COLORFF00FF;

IF(WAVAR7<REF(WAVAR7,1),WAVAR7,DRAWNULL),LINETHICK2,COLOR00FF00;

TOWERC:=FORCAST(EMA((3*C+2*O+H+LOW)/7,3),6);

DIRECTIONMAX:=MAX(REF(TOWERC,1),REF(TOWERC,1));

DIRECTIONMIN:=MIN(REF(TOWERC,1),REF(TOWERC,1));

DRAWTEXT_FIX(C>0,0,0,0,'免費獲取更多指標，關注公眾號：【吾愛指標】'),COLORMAGENTA;

STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,DIRECTIONMAX,4,0),COLOR0000FF;

STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,DIRECTIONMIN,4,0),COLOR00FF00;?

?

?來源:程序化99

?

?來源: www.tumamayizhan.com

?