通达信KRM顶底主图指标公式

安装后如下图，友情提示（指标只是辅助，不作建议） 所有程序均为免费分享。

不会安装点击 安装指南 步骤操作。

VAR1:=EMA(C,3);

VAR2:=EMA(C,5);

VAR3:=EMA(C,10);

VAR4:=EMA(C,20);

VAR5:=EMA(C,30);

VAR6:=(VAR2+VAR3+VAR4+VAR5)/4;

VAR7:=(VAR6-REF(VAR6,15))/REF(VAR6,15)*100;

VAR8:=(VAR6-REF(VAR6,15))/REF(VAR6, 15)*100;

VAR9:=EMA(VAR7,8);

STICKLINE(VAR7<1*REF(VAR7,1),H,L,0.5,0),COLORBLUE;{蓝-持币}

STICKLINE(VAR7<1*REF(VAR7,1),O,C,5, 1),COLORBLUE;

STICKLINE(VAR7>1*REF(VAR7,1),H,L,0.5,0),COLORRED;{红-持股}

STICKLINE(VAR7>1*REF(VAR7,1),O,C,5, 1),COLORRED;

STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),H,L,0.5,0),COLORGREEN;{绿-洗盘}

STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),O,C,5, 1),COLORGREEN;

买进价:=((C-REF(MA(C,6),1))/6+MA(C,6))*1.004;

买进条件:=CROSS(C,买进价) AND 买进价>REF(买进价,1);

STICKLINE(买进条件,H,L,0.5,1),COLORWHITE,LINETHICK2;{白-买进}

STICKLINE(买进条件,O,C,6,0),COLORWHITE,LINETHICK2;

加码价:=((C-REF(MA(C,18),1))/18+MA(C,18))*1.004;

加码条件:=CROSS(C,加码价) AND 加码价>REF(加码价,1);

STICKLINE(加码条件,H,L,0.5,1),COLORYELLOW,LINETHICK2;{黄-加码}

STICKLINE(加码条件,O,C,6,0),COLORYELLOW,LINETHICK2;

X1:EMA(C,7),COLOR0088FF;

X2:EMA(C,21),COLOREE00EE;

X3:EMA(X2,21),COLORWHITE;

X4:EMA(X3,27),COLOR009900;

X5:EMA(X2,100),COLORFFAA00;

X6:EMA(X5,100),COLOR009999;

V1:EMA(CLOSE,5);

V2:EMA(EMA(CLOSE,29)*1.01,10);

DRAWICON(CROSS(V1,V2),V2,1);

LC:=REF(CLOSE,1); {需要编写选股关注微信公众号：程序化指标}

RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100; 

逃 :IF(CROSS(84,RSI) , HIGH,HIGH+1),POINTDOT,LINETHICK7,COLORYELLOW ;HIGH+1,POINTDOT,LINETHICK7,COLOR000000;

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);

DEA:=EMA(DIFF,9);

MACD:=2*(DIFF-DEA);

A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));

B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);

DRAWICON(FILTER(B1>0,5),L*0.94,10);

DRAWTEXT(FILTER(B1>0,5),L*0.94,'M底'),COLORGREEN;{MACD底背离}

A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));

B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));

DRAWICON(FILTER(B2>0,5),L*0.96,10);

DRAWTEXT(FILTER(B2>0,5),L*0.96,'K底'),COLORYELLOW;{KDJ底背离}

A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));

B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));

DRAWICON(FILTER(B3>0,5),L*0.98,10);

DRAWTEXT(FILTER(B3>0,5),L*0.98,'R底'),COLORFFFF00;{RSI底背离}

C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));

D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);

DRAWICON(FILTER(D1>0,5),H*1.07,12);

DRAWTEXT(FILTER(D1>0,5),H*1.07,'M顶'),COLOR0066FF;{MACD顶背离}

C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));

D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));

DRAWICON(FILTER(D2>0,5),H*1.05,12);

DRAWTEXT(FILTER(D2>0,5),H*1.05,'K顶'),COLORRED;{KDJ顶背离}

C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));

D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));

DRAWICON(FILTER(D3>0,5),H*1.03,12),;

DRAWTEXT(FILTER(D3>0,5),H*1.03,'R顶'),COLORFF00FF;{RSI顶背离};