通达信牛熊彩K主图指标

源码

{牛熊彩K}
M30: MA(CLOSE,30);
M60: MA(CLOSE,60);

AA10:MA(CLOSE,8),COLOR00FF00;
AA12:MA(CLOSE,12),COLOR0000FF;
VAR1111:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);
VAR2222:=CROSS(VAR1111,0.9);
VAR3333:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);
VAR4444:=CROSS(VAR3333,0.9);
压力:= REF(HIGH,BARSLAST(VAR2222));
STICKLINE(CLOSE,REF(HIGH,BARSLAST(VAR2222)),REF(HIGH,BARSLAST(VAR2222)),2,1),COLOREA91B5,LINETHICK3;
支撑:= REF(LOW,BARSLAST(VAR4444));
STICKLINE(CLOSE,REF(LOW,BARSLAST(VAR4444)),REF(LOW,BARSLAST(VAR4444)),2,1),COLOR00B4FF,LINETHICK3;
BB10:=((ATAN((AA10 - REF(AA10,1))) * 3.1416) * 10);
BB12:=((ATAN((AA12 - REF(AA12,1))) * 3.1416) * 10);
IF((((AA12 <= AA10) AND (BB12 >= 1)) AND (BB10 >= 1)),AA12,DRAWNULL),COLOR0080FF,LINETHICK2;
下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
RRRSV:=SMA(下档线,3,1);
KKK:=SMA(RRRSV,3,1);
DDD:=((3 * RRRSV) - (2 * KKK));
JJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
RSV24:=SMA(JJ12,3,1);
K24:=SMA(RSV24,3,1);
D24:=((3 * RSV24) - (2 * K24));
压力2:=IF(CROSS(D24,DDD),HIGH,REF(HIGH,BARSLAST(CROSS(D24,DDD)))),COLORFFFFFF;
压力位:=IF(ISLASTBAR,压力2,DRAWNULL);
STICKLINE(ISLASTBAR ,压力位,压力位,120,1),LINETHICK3,COLORFFFFFF;
底部:=LLV(HIGH,30),COLOR00FF00;
底部位:=IF(ISLASTBAR,底部,DRAWNULL);
STICKLINE(ISLASTBAR ,底部位,底部位,100,1),LINETHICK3,COLOR00FF00;
AA:=IF(C>=REF(C,3),1,0);
BB:=IF(C>=REF(C,5),1,0);
CC:=IF(C>=REF(C,7),1,0);
DD:=IF(C>=REF(C,8),1,0);
EE:=IF(C>=REF(C,13),1,0);
FF:=IF(C>=REF(C,21),1,0);
GZ2:=AA+BB+CC+DD+EE+FF;
M5:= EMA(CLOSE,5);
M10:= EMA(CLOSE,10);

VAR1:=EMA(CLOSE,3)-EMA(CLOSE,6)-(EMA(CLOSE,6)-EMA(CLOSE,12))*(-100);
VAR2:=EMA(VAR1,3);
VAR5:=CROSS(VAR1,VAR2);
VAR6:=CROSS(VAR2,VAR1);
乖离5:=(C-M5)/M5*100;
斜率5:=ATAN((M5/REF(M5,1)-1)*100)*57.29583;
速度5:=SMA(EMA((M5-REF(M5,1))/REF(M5,1),3)*100,3,1);
加速度5:=EMA((速度5-REF(速度5,1)),3);
斜率10:=ATAN((M10/REF(M10,1)-1)*100)*57.29583;
乖离30:=(C-M30)/M30*100;
斜率30:=ATAN((M30/REF(M30,1)-1)*100)*57.29583;
强势狙击:=FILTER(斜率30>30 AND 斜率10>45 AND CROSS(斜率5,60),10);
加仓:=FILTER(COUNT(CROSS(斜率5,30),5)>=1 AND M5>REF(M5,1)  AND 乖离30>REF(乖离30,1) AND M10>REF(M10,1)
AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1)  ,10) ;
JC:=CROSS(0,乖离5) AND 乖离30REF(M10,1) ;
减仓:=FILTER(JC,10);
MR:=COUNT(CROSS(乖离5,0),3)>=1 AND 乖离30>REF(乖离30,1) AND M5>REF(M5,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)
买入:=FILTER(MR,10) OR FILTER(KKK=0 AND GZ2>0 AND C>REF(C,1),10);
清仓:=FILTER(COUNT(CROSS(30,斜率5),5)>=1 AND (C>M30 OR O>M30)
AND M5
OR FILTER((KKK=6 AND GZ2<6),10);
DRAWICON(买入 OR 强势狙击 OR 加仓,LOW*0.995,1);
DRAWICON(减仓 OR 清仓,HIGH*1.005,2);
DRAWKLINE(H,O,L,C);
STICKLINE(VAR6,OPEN,CLOSE,2.8,0),  COLORBLUE;
STICKLINE(VAR5,OPEN,CLOSE,2.8,0),  COLORYELLOW;
STICKLINE(VAR5,OPEN,CLOSE-(CLOSE-OPEN)*0.33,2.8,0), COLORAACCDD;
STICKLINE(VAR5,OPEN,CLOSE-(CLOSE-OPEN)*0.66,2.8,0),  COLORRED;

GJ:=(C+H+L+O)/4;
明日阻力:=L+(GJ-L)+(C-L),LINETHICK0;
明日支撑:=L+(C-GJ),LINETHICK0;
今日阻力:=REF(明日阻力 , 1),LINETHICK0;
今日支撑:=REF(明日支撑 , 1),LINETHICK0;
STICKLINE(ISLASTBAR,今日阻力,今日阻力,10,1),LINETHICK2,COLOR0000FF;
STICKLINE(ISLASTBAR,今日支撑,今日支撑,10,1),LINETHICK2,COLOR00FFFF;