通达信PK忽悠副图公式

源码

PK忽悠
DRAWGBK(C>0, RGB(0,10,10),RGB(88,0,0),0,'0',0);
中线:=EMA(C,10),COLOR0F00FF,LINETHICK0;
升线: STD(中线,7),COLOR0000FF,DOTLINE,LINETHICK1;
降线: -STD(中线,7),COLORGREEN,DOTLINE,LINETHICK1;
IF(升线>REF(升线,1)AND NOT(C<中线),升线,DRAWNULL),COLORRED ,LINETHICK2;
IF(升线>REF(升线,1)AND NOT(C<中线),升线,DRAWNULL),COLOR00FFFF ,POINTDOT,LINETHICK7;
IF(降线>REF(降线,1)AND NOT(C>中线),降线,DRAWNULL),COLORFFFF00 ,POINTDOT,LINETHICK7;
IF(降线>REF(降线,1)AND NOT(C>中线),降线,DRAWNULL),COLORFFFF00 ,LINETHICK2;
IF(降线<REF(降线,1),降线,DRAWNULL),COLOR00FF00 ,LINETHICK2;
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2,COLORSTICK;
W1:STICKLINE(MACD>0,MACD,0,2,1),COLORRED;
W2:STICKLINE(MACD<0,MACD,0,2,0),COLORCYAN;
VA1:=HHVBARS(MACD,BARSLAST(MACD<0)+1);
VA2:=CROSS(BACKSET(CROSS(0,MACD) OR (ISLASTBAR AND MACD>0),REF(VA1,1)+2),0.5);
前高:DRAWLINE(VA2,MACD,REF(VA2,1),REF(MACD,1),1),COLORWHITE;
VA3:=LLVBARS(MACD,BARSLAST(MACD>0)+1);
VA4:=CROSS(BACKSET(CROSS(MACD,0) OR (ISLASTBAR AND MACD<0),REF(VA3,1)+2),0.5);
前低:DRAWLINE(VA4,MACD,REF(VA4,1),REF(MACD,1),1),COLORYELLOW;
W3:STICKLINE(MACD>0 AND MACD>前高 AND 前高>0,MACD,前高,2,0),COLORYELLOW;
W4:STICKLINE(MACD<0 AND MACD<前低 AND 前低<0,MACD,前低,2,0),COLORGREEN;
W5:DRAWTEXT(REFX(VA2,1),0,'点'),COLORWHITE;
W6:DRAWTEXT(REFX(VA2,1),MACD/2,界),COLORWHITE;
W7:DRAWTEXT(REFX(VA2,1),MACD,'临'),COLORWHITE;
W8:DRAWTEXT(REFX(VA4,1),0,'临'),COLORRED;
W9:DRAWTEXT(REFX(VA4,1),MACD/2,界),COLORRED;
W10:DRAWTEXT(REFX(VA4,1),MACD,'点'),COLORRED;
JC:=DEA-DIF;
绿柱面积:IF(MACD<0,SUM(0-MACD,BARSLAST(JC<0)),0),NODRAW,COLOR00FF00;
红柱面积:IF(MACD>0,SUM(MACD,BARSLAST(JC>0)),0),NODRAW,COLOR00FFFF;
A1:=IF(MACD<0,HHV(绿柱面积,BARSLAST(JC<0)),0);
A2:=IF(MACD>0,HHV(红柱面积,BARSLAST(JC>0)),0);
DRAWNUMBER(CROSS(DIF,DEA),0,REF(A1,1)),COLOR00FF00;
DRAWNUMBER(CROSS(DEA,DIF),0,REF(A2,1)),COLOR00FFFF;
LM:=REF(绿柱面积,BARSLAST(CROSS(DIF,DEA))+1);
HM:=REF(红柱面积,BARSLAST(CROSS(DEA,DIF))+1);
转强:CROSS(红柱面积,LM),NODRAW,COLORFFFF00;
转弱:CROSS(绿柱面积,HM),NODRAW,COLOR00FF00;
DRAWICON(转强,DEA,1);
DRAWICON(转弱,DEA,2);