系统副图指标【知博陋室自用指标】

    {系统副图指标}

    VAR01:=1;
    VAR02:=1/WINNER(CLOSE);
    VAR03:=MA(CLOSE,13);
    VAR04:=100-ABS((CLOSE-VAR03)/VAR03*100);
    VAR05:=LLV(LOW,75);
    VAR06:=HHV(HIGH,75);
    VAR07:=(VAR06-VAR05)/100;
    VAR08:=SMA((CLOSE-VAR05)/VAR07,20,1);
    VAR09:=SMA((OPEN-VAR05)/VAR07,20,1);
    VAR10:=REF(LOW,1);
    VAR11:=SMA(ABS(LOW-VAR10),3,1)/SMA(MAX(LOW-VAR10,0),3,1)*100;
    VAR12:=EMA(IF(CLOSE*1.2,VAR11*10,VAR11/10),3);
    VAR13:=LLV(LOW,38);
    VAR14:=HHV(VAR12,38);
    VAR15:=IF(LLV(LOW,90),1,0);
    VAR16:=EMA(IF(LOW<=VAR13,(VAR12+VAR14*2)/2,0),3)/618*VAR15;
    VARA:=3*VAR08-2*SMA(VAR08,15,1);
    VARB:=3*VAR09-2*SMA(VAR09,15,1);
    VARC:=100-VARB;
    有庄的影子:STICKLINE(VAR16,0,VAR16,1,0);
    庄影:=VAR16;
    新庄:=(100-IF(VAR02>5,IF(VAR02<100,VAR02,VAR04-10),0))*VAR01;
    新庄图标:STICKLINE(1,新庄,100,1,1);
    短线:MA(WINNER(CLOSE*0.95)*100,3)*VAR01;
    中线收盘:MEMA((0+VARA)*VAR01,2)COLORRED;
    中线开盘:MEMA((0+VARB)*VAR01,3)COLORGREEN;
    换手率:=DYNAINFO(37)<(0.01);
    关注点:=DRAWICON(换手率,-5,1);
    顶:100,DOTLINE,COLORWHITE;
    轴:0,DOTLINE,COLORWHITE;
    底:-10.5,DOTLINE,COLORRED;
    天界:115,DOTLINE,COLORLICYAN;
    地界:-22,DOTLINE,COLORLICYAN;

    {KDJ 金叉}

    RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
    K:=SMA(RSV,3,1);
    D:=SMA(K,3,1);
    J:=3*K-2*D;
    VARK:=K;
    上升K:=IF(VARK>REF(VARK,1),VARK,DRAWNULL),COLORRED;
    走平K:=IF(VARK=REF(VARK,1),VARK,DRAWNULL),COLORYELLOW;
    下降K:=IF(VARK<REF(VARK,1),VARK,DRAWNULL),COLORGREEN;
    VARD:=D,COLORGREEN;
    上升D:=IF(VARD>REF(VARD,1),VARD,DRAWNULL),COLORRED;
    走平D:=IF(VARD=REF(VARD,1),VARD,DRAWNULL),COLORYELLOW;
    下降D:=IF(VARD<REF(VARD,1),VARD,DRAWNULL),COLORGREEN;
    VARJ:=J,COLORMAGENTA;
    上升J:=IF(VARJ>REF(VARJ,1),VARJ,DRAWNULL),COLORRED;
    走平J:=IF(VARJ=REF(VARJ,1),VARJ,DRAWNULL),COLORYELLOW;
    下降J:=IF(VARJ<REF(VARJ,1),VARJ,DRAWNULL),COLORGREEN;

    N:=9;
    M1:=3;
    M2:=3;
    涨:=CROSS(K>D,K);
    跌:=CROSS(K<D,K),COLORCYAN;
    上:=CROSS(J>D,J);
    下:=CROSS(J<D,J),COLORGREEN,LINETHICK1;
    周K:=MA("KDJ.K#WEEK"(N,M1,M2),5);
    周D:=MA("KDJ.D#WEEK"(N,M1,M2),5);
    周J:=MA("KDJ.J#WEEK"(N,M1,M2),5);
    周金叉:DRAWTEXT(CROSS("KDJ.K#WEEK"(N,M1,M2),"KDJ.D#WEEK"(N,M1,M2)),-8,'▲')COLORRED;
    周死叉:DRAWTEXT(CROSS("KDJ.D#WEEK"(N,M1,M2),"KDJ.K#WEEK"(N,M1,M2)),98,'▼')COLORGREEN;
    月金叉:DRAWTEXT(CROSS("KDJ.K#MONTH"(N,M1,M2),"KDJ.D#MONTH"(N,M1,M2)),-8,'▲')COLOR0099FF;
    月死叉:DRAWTEXT(CROSS("KDJ.D#MONTH"(N,M1,M2),"KDJ.K#MONTH"(N,M1,M2)),98,'▼')COLORLIBLUE;

    D1:=1;
    AA1:=DRAWGBK('红三角KDJ周金叉，金三角KDJ月金叉。绿三角KDJ周死叉，蓝三角KDJ月死叉','.','.','.','.','.');
    AA1图标:DRAWTEXT_FIX(D1=1,0,0.0260.18,0,AA1),COLORWHITE,LINETHICK2;