H5:=高1-(高1-低1)*0.809;
%19:REFDATE(H1,DATE),POINTDOT,COLORYELLOW,LINETHICK3;
%38:REFDATE(H2,DATE),POINTDOT,COLORMAGENTA,LINETHICK3;
%50:REFDATE(H3,DATE),POINTDOT,COLORLIGRAY,LINETHICK3;
%61:REFDATE(H4,DATE),POINTDOT,COLORRED,LINETHICK3;
%80:REFDATE(H5,DATE),POINTDOT,COLORWHITE,LINETHICK3;
AA05:MA(C,5),LINETHICK3,COLOR0099CC;
五日乖离率:=(C-AA05)/AA05*100;
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;
速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);
加速度5:EMA((速度5-REF(速度5,1)),3),NODRAW;
IF(BB05 30 AND AA05 REF(AA05,1), AA05,DRAWNULL),LINETHICK3,COLORRED;
AA10:MA(C,10);AA20:=MA(C,20);
BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;
IF(BB05 0 AND AA05 REF(AA05,1), AA05,DRAWNULL),LINETHICK3,COLORGREEN;
AA30:MA(C,30);
三拾日乖离率:(C-AA30)/AA30*100,NODRAW;
VAR1:=(AA20-AA30) REF((AA20-AA30),1) AND AA20 REF(AA20,1) AND AA30 REF(AA30,1);
VAR2:=(AA30-AA20) REF((AA30-AA20),1) AND AA20 REF(AA20,1) AND AA30 REF(AA30,1);
BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416;
IF(BB30 15 AND AA30 REF(AA30,1), AA30,DRAWNULL),LINETHICK3,COLORFF00FF;
强势狙击:=FILTER(BB30 30 AND BB10 45 AND CROSS(BB05,60),10);
加仓:=FILTER(COUNT(CROSS(BB05,30),5) =1 AND AA05 REF(AA05,1) AND 三拾日乖离率 REF(三拾日乖离率,1) AND AA10 REF(AA10,1)
AND 加速度5 REF(加速度5,1) AND 速度5 REF(速度5,1) ,10) ;
清仓:=FILTER(COUNT(CROSS(30,BB05),5) =1 AND (C AA30 OR O AA30) AND AA05 REF(AA05,1) AND 三拾日乖离率 REF(三拾日乖离率,1) AND AA10 REF(AA10,1),10);
DRAWTEXT(加仓 ,LOW*0.98,' 加仓'),COLORRED;
JC:=CROSS(0,五日乖离率) AND 三拾日乖离率 REF(三拾日乖离率,1) AND AA10 REF(AA10,1) ;
减仓:=FILTER(JC,10);
MR:=COUNT(CROSS(五日乖离率,0),3) =1 AND 三拾日乖离率 REF(三拾日乖离率,1) AND AA05 REF(AA05,1) AND (C/REF(C,1)-1)*100 5 AND REF(C,1) AA30;
买入:=FILTER(MR,10);
DRAWTEXT(减仓,HIGH*1.02,' 减仓'),COLORCYAN;
DRAWTEXT(买入,LOW*0.98,' 买入'),COLORYELLOW;
加仓选股:
AA05:=MA(C,5);
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;
速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);
加速度5:=EMA((速度5-REF(速度5,1)),3);
AA10:=MA(C,10);AA20:=MA(C,20);
AA30:=MA(C,30);
三拾日乖离率:=(C-AA30)/AA30*100;
加仓:FILTER(COUNT(CROSS(BB05,30),5) =1 AND AA05 REF(AA05,1) AND 三拾日乖离率 REF(三拾日乖离率,1) AND AA10 REF(AA10,1)
AND 加速度5 REF(加速度5,1) AND 速度5 REF(速度5,1) ,10) ;