第一个:
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;
AH:=HHV(RSI1,8);
AL:=LLV(RSI1,8);
STO1:=IF(AL=AH,0,100*(RSI1-AL)/(AH-AL));
SK:EMA(STO1,5),COLORGREEN,LINETHICK1;
SD:EMA(SK,3),COLORWHITE;
DRAWCOLORLINE(SK>REF(SK,1),SK,COLORMAGENTA,COLORGREEN),LINETHICK1;
PARTLINE(1,90,COLORWHITE),DOT,COLORGRAY;
PARTLINE(1,50,COLORWHITE),DOT,COLORGRAY;
PARTLINE(1,85,COLORWHITE),DOT,COLORGRAY;
PARTLINE(1,15,COLORWHITE),DOT,COLORGRAY;
PARTLINE(1,10,COLORWHITE),DOT,COLORGRAY;
第二个:
MA9:EMA(CLOSE,30),RGB(255,128,64);
MA10:EMA(CLOSE,35),RGB(128,0,0),DOT;
MA11:EMA(CLOSE,40),RGB(128,0,0),DOT;
MA12:EMA(CLOSE,45),RGB(128,0,0),DOT;
MA13:EMA(CLOSE,50),RGB(128,0,0),DOT;
MA14:EMA(CLOSE,55),RGB(128,0,0),DOT;
MA15:EMA(CLOSE,60),COLORRED;
MA1:EMA(CLOSE,3),COLORWHITE,LINETHICK1;
MA2:EMA(CLOSE,5),RGB(0,120,0),DOT;
MA3:EMA(CLOSE,8),RGB(0,120,0),DOT;
MA4:EMA(CLOSE,10),RGB(0,120,0),DOT;
MA5:EMA(CLOSE,12),RGB(0,120,0),DOT;
MA6:EMA(CLOSE,15),COLORGREEN,LINETHICK1;
第三个:
G:=MA(C,5);//5 倍均线
D:=MA(C,10);//10倍均线
NNH:=BARSLAST(H=HHV(H,7)) ,NODRAW;//记录顶分型的位置
NNL:=BARSLAST(L=LLV(L,7)) ,NODRAW; //记录底分型的位置
NN:=IF(REF(G,NNH)>REF(D,NNH) AND NNH<=4, //当前K前与顶分型和底分型的最近距离
NNH,
IF(REF(G,NNL)<REF(D,NNL) AND NNL<=4,NNL,5)) ,NODRAW;
N:=IF(ISLASTBAR AND NN>0,NN,5) ,NODRAW;//在最新K线上去验证N周期前的顶分型或者底分型是否有效(最多5根K线)
HH:=REF(H,N)=HHV(H,6);//N周期前的高点是否是最近6个周期的高点,HH为1的时候是下降趋势
LL:=REF(L,N)=LLV(L,6);//N周期前的低点是否是最近6个周期的低点,LL为1的时候是上升趋势
FG01:=BACKSET(HH,N+1)>BACKSET(HH,N),NODRAW;//确认N周期前的顶分型是否有效,无效则去掉记号
FD01:=BACKSET(LL,N+1)>BACKSET(LL,N) ,NODRAW;//确认N周期前的底分型是否有效,无效则去掉记号
FG0:=FG01 AND H=HHV(H,IF(BARSLAST(L=LLV(L,7))>=5,5,BARSLAST(FD01))),NODRAW;//过滤掉部分连续顶分型,未突破前一个顶分型的高点
FD0:=FD01 AND L=LLV(L,IF(BARSLAST(H=HHV(L,7))>=5,5,BARSLAST(FG01))),NODRAW;//过滤掉部分连续底分型,未突破签个底分型的低点
DRAWLINE1(HH ,H,LL,L,0),RGB(128,128,128),DOT;
DRAWLINE1(LL,L,HH ,H,0),RGB(128,128,128),DOT;
PARTLINE(FG0 ,H,COLORYELLOW),LINETHICK3;
PARTLINE(FD0 ,L,COLORCYAN),LINETHICK3; |