东方红一号 旭日东升
源码
MA55:=MA(CLOSE,5);
MA15:=MA(CLOSE,15);
MA30:=MA(CLOSE,30);
MA60:=MA(CLOSE,60);
离散量30:=100*(MA55-(MA15+MA30)/2)/MA30;
离散量60:=100*(MA55-(MA15+MA30+MA60)/3)/MA60;
粘合K:=-2*(离散量30-离散量60);
粘合D:=EMA(粘合K,3);
主升:=BARSLAST(CROSS(粘合K,粘合D))*(粘合K>粘合D);
粘合:=ABS(粘合K)+ABS(离散量60);
VAR3:=REF(离散量30,3)>=REF(离散量30,1) AND REF(离散量30,1)<=离散量30 AND (离散量30-粘合K<2) AND 主升>0;
小牛:=IF(VAR3,1,0);
月D:="KDJ.D"(89,3,3);
周D:="KDJ.D"(27,3,3);
周D涨:=周D>REF(周D,1);
周D跌:=周D<REF(周D,1);
月D涨:=月D>REF(月D,1);
月D跌:=月D<REF(月D,1);
背离:=(周D涨 AND 月D跌) OR (周D跌 AND 月D涨);
同向:=周D涨 AND 月D涨 AND REF(周D跌,1) AND REF(月D跌,1) AND REF(周D跌,2) AND REF(月D跌,2) AND REF(周D跌,3) AND REF(月D跌,3);
暴涨兆:=背离 OR 同向;
MV3:=EMA(V,3);
MA3:=EMA(C,3);
MV3角度:=ATAN((MV3/REF(MV3,1)-1)*100)*180/3.1416;
MA3角度:=ATAN((MA3/REF(MA3,1)-1)*100)*180/3.1416;
MV5:=EMA(V,5);
MA5:=EMA(C,5);
MV5角度:=ATAN((MV5/REF(MV5,1)-1)*100)*180/3.1416;
MA5角度:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416;
MV10:=EMA(V,10);
MA10:=EMA(C,10);
MV10角度:=ATAN((MV10/REF(MV10,1)-1)*100)*180/3.1416;
MA10角度:=ATAN((MA10/REF(MA10,1)-1)*100)*180/3.1416;
强弱度:=(MV3角度+MA3角度+MV5角度+MA5角度+MV10角度+MA10角度)/6;
QBD:=CROSS(强弱度,50) AND COUNT(强弱度>50,7)<=3;
启爆点:=IF(QBD AND COUNT(QBD,4)=1,50,0);
悍马:= 起爆点 AND 暴涨兆 AND 小牛 AND C>MA(C,60);
STICKLINE(悍马,0,60,2,0)COLOR00FFFF;
DRAWTEXT(悍马,20,'←悍马'),COLOR00FFFF;
