简单易懂，底部逃顶信号给出各种操作方向
VAR1:=EMA(EMA(CLOSE,5),5);
控盘:(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000,NODRAW;
STICKLINE(控盘<0,控盘,0,1,0),COLORYELLOW;
A10:=CROSS(控盘,0);
散户:IF(控盘<0,控盘,0),COLORYELLOW,NODRAW;
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2,COLORSTICK;
力度:=MACD/REF(MACD,1);
大盘热点正:= MACD>0 AND MACD/REF(MACD,1)>1.15 AND C/REF(C,1)>1.005;
大盘热点负:= MACD<0 AND REF(MACD,1)/MACD>1.15 AND C/REF(C,1)>1.005;
负到正0:=MACD>0 AND REF(MACD<0,1) AND C/REF(C,1)>1.003 ;
大盘热点:=IF(大盘热点正 OR 大盘热点负 OR 负到正0 ,1,0);
开始控盘:=A10 AND 大盘热点,NODRAW;
STICKLINE(开始控盘,0,6,0,0),COLORFF00FF,COLORRED;
DRAWICON(开始控盘,6,18)NODRAW;{公式之家 BBS.GSZB.TOP}
抛物线:=SAR(5,34,110),NODRAW; {短波}
空:=IF(抛物线>C,抛物线,DRAWNULL),COLORWHITE,DOTLINE;
多:=IF(抛物线<C,抛物线,DRAWNULL),COLORMAGENTA,DOTLINE;
正离:=(H/多-1)*100,NODRAW;
负离:=(空/L-1)*100,NODRAW;
正离底:=(L/多-1)*100,NODRAW;
抛物线2:=SAR(5,3,15),NODRAW; {长波}
空2:=IF(抛物线2>C,抛物线2,DRAWNULL),COLORWHITE;
多2:=IF(抛物线2<C,抛物线2,DRAWNULL),COLORLIMAGENTA;
长波正离:=(H/多2-1)*100,NODRAW;
长波负离:=(空2/L-1)*100,NODRAW;
长波正离底:=(L/多2-1)*100,NODRAW;
顶5:=L<REF(L,1) AND REF(L,1)>REF(L,2) AND H<REF(H,1) AND REF(H,1)>REF(H,2) AND REF(H,1)>H AND C<MA5 AND REF(C>多,1) AND REF(HHV(H,7),2)<REF(H,1) AND C<REF(C,1) ;
顶3:=L<REF(L,1) AND REF(L,1)>REF(L,2) AND H<REF(H,1) AND REF(H,1)>REF(H,2) AND REF(H,1)>H AND C<MA3 AND REF(C>多,1) AND REF(HHV(H,7),2)<REF(H,1) AND C<REF(C,1) ;
顶:=L<REF(L,1) AND REF(L,1)>REF(L,2) AND H<=REF(H,1) AND REF(H,1)>REF(H,2) AND REF(H,1)>H AND REF(C>多,1) AND REF(HHV(H,7),2)<=REF(H,1) AND C<REF(C,1);
大顶:=IF(顶5=1 AND 顶3=1 AND 顶=1,顶5,DRAWNULL);
DRAWTEXT(大顶,控盘+1,'大顶'), COLORGREEN;
次顶:=IF(顶5=0 AND 顶3=1 AND 顶=1,顶3,DRAWNULL);
DRAWTEXT(次顶,控盘+1,'顶3'), COLORGREEN;
小顶:=IF(顶5=0 AND 顶3=0 AND 顶=1,顶,DRAWNULL);
DRAWTEXT(小顶,控盘+1,'顶'), COLORGREEN;
特殊顶:=L<REF(L,1) AND REF(L,1)>REF(L,2) AND REF(L,2)>REF(L,3) AND H<REF(H,2) AND REF(H,1)<REF(H,2) AND REF(HHV(H,7),3)<REF(H,2) AND C<REF(C,1);
DRAWTEXT(特殊顶,控盘+1,'特殊顶'),COLORRED; {顶分型右包含关系};
特殊顶2:=L<REF(L,2) AND REF(L,2)>REF(L,3) AND REF(L,1)<REF(L,2) AND REF(H,1)>H AND REF(H,1)>REF(H,2) AND REF(H,2)>REF(H,3) AND REF(HHV(H,7),2)<REF(H,1) AND C<REF(C,1);
DRAWTEXT(特殊顶2,控盘+1,'特殊顶2'),COLORRED; {顶分型左包含关系};
特殊顶3:=L<REF(L,1) AND REF(L,1)>REF(L,2) AND REF(L,2)>REF(L,3) AND REF(L,3)>REF(L,4) AND L<REF(L,2) AND H<REF(H,3) AND REF(H,1)<REF(H,3) AND REF(H,2)<REF(H,3) AND REF(H,3)>REF(H,4) AND REF(HHV(H,7),4)<REF(H,3) AND C<REF(C,1);
DRAWTEXT(特殊顶3,控盘+1,'特殊顶3'),COLORRED; {顶分型包含4根关系};
{底}
底5:=L>REF(L,1) AND REF(L,1)<REF(L,2) AND H>REF(H,1) AND REF(H,1)<REF(H,2) AND REF(H,1)<H AND C>MA5 AND REF(C<空,1) AND REF(LLV(L,7),2)>REF(L,1) AND C>REF(C,1) AND C>REF(O,1);
底3:=L>REF(L,1) AND REF(L,1)<REF(L,2) AND H>REF(H,1) AND REF(H,1)<REF(H,2) AND REF(H,1)<H AND C>MA3 AND REF(C<空,1) AND REF(LLV(L,7),2)>REF(L,1) AND C>REF(C,1) AND C>REF(O,1);
底:=L>REF(L,1) AND REF(L,1)<REF(L,2) AND H>REF(H,1) AND REF(H,1)<REF(H,2) AND REF(H,1)<H AND REF(C<空,1) AND REF(LLV(L,7),2)>REF(L,1) AND C>REF(C,1) AND C>REF(O,1);
大底:=IF(底5=1 AND 底3=1 AND 底=1,底5,DRAWNULL);
DRAWTEXT(大底,控盘-1,'大底'), COLORMAGENTA;
次底:=IF(底5=0 AND 底3=1 AND 底=1,底3,DRAWNULL);
DRAWTEXT(次底,控盘-1,'底3'), COLORMAGENTA;
小底:=IF(底5=0 AND 底3=0 AND 底=1,底,DRAWNULL);
DRAWTEXT(小底,控盘-1,'底'), COLORMAGENTA;
特殊底:=L>REF(L,1) AND REF(L,1)>REF(L,2) AND REF(L,2)<REF(L,3) AND H>REF(H,1) AND REF(H,1)<REF(H,2) AND REF(LLV(L,7),3)>REF(L,2);
DRAWTEXT(特殊底,控盘-1,'特殊底'),COLORYELLOW; {底分型包含关系};
行业换手:CALCSTOCKINDEX(HYZSCODE,'换手引用',1),NODRAW; |
|
