幫忙改改能在博易云上用的?謝謝 [博易POBO]
咨詢內容:
DRAWGBK(C>0, RGB(1,1,1),RGB(1,1,1),0,'0',0);
STICKLINE(C>0,120,120,28,-1)COLORBLACK;
STICKLINE(C>0,100,100,28,-1)COLOR000080;
STICKLINE(C>0,80,80,28,-1)COLOR000080;
STICKLINE(C>0,50,50,28,-1)COLOR000080;
STICKLINE(C>0,20,20,28,-1)COLOR000080;
STICKLINE(C>0,0,0,28,-1)COLOR000080;
STICKLINE(C>0,-20,-20,28,-1)COLORBLACK;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1)COLORCYAN;
D:SMA(K,3,1)COLORYELLOW;
J:3*K-2*D,COLORMAGENTA;
{K值,D值,J值的背離}
{------------------------------------------------------------------------------}
N:=5;
{}
J底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.J,N)=LLV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=LLV(KDJ.J,N+1),1))+1)>C AND?
REF(KDJ.J,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.J,N)=LLV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=LLV(KDJ.J,N+1),1))+1)<KDJ.J AND?
FILTER(BACKSET(REF(KDJ.J,N)=LLV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=LLV(KDJ.J,N+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJ.J,N)=LLV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=LLV(KDJ.J,N+1),KDJ.J,FILTER(J底背>0,5),KDJ.J,0),
COLORWHITE,DOTLINE;
DRAWTEXT(J底背,KDJ.J,'J底背'),COLORLIMAGENTA;
J頂背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.J,N)=HHV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=HHV(KDJ.J,N+1),1))+1)<C AND?
REF(KDJ.J,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.J,N)=HHV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=HHV(KDJ.J,N+1),1))+1)>KDJ.J AND?
FILTER(BACKSET(REF(KDJ.J,N)=HHV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=HHV(KDJ.J,N+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJ.J,N)=HHV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=HHV(KDJ.J,N+1),KDJ.J,FILTER(J頂背>0,5),KDJ.J,0),
COLORGREEN,DOTLINE;
DRAWTEXT(J頂背,KDJ.J,'J頂背'),COLORMAGENTA;
{------------------------------------------------------------------------------}
K底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.K,N)=LLV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=LLV(KDJ.K,N+1),1))+1)>C AND?
REF(KDJ.K,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.K,N)=LLV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=LLV(KDJ.K,N+1),1))+1)<KDJ.K AND?
FILTER(BACKSET(REF(KDJ.K,N)=LLV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=LLV(KDJ.K,N+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJ.K,N)=LLV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=LLV(KDJ.K,N+1),KDJ.K,FILTER(K底背>0,5),KDJ.K,0),
COLORWHITE,DOTLINE;
DRAWTEXT(K底背,KDJ.K,'K底背'),COLORWHITE;
K頂背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.K,N)=HHV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=HHV(KDJ.K,N+1),1))+1)<C AND?
REF(KDJ.K,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.K,N)=HHV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=HHV(KDJ.K,N+1),1))+1)>KDJ.K AND?
FILTER(BACKSET(REF(KDJ.K,N)=HHV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=HHV(KDJ.K,N+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJ.K,N)=HHV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=HHV(KDJ.K,N+1),KDJ.K,FILTER(K頂背>0,5),KDJ.K,0),
COLORGREEN,DOTLINE;
DRAWTEXT(K頂背,KDJ.K,'K頂背'),COLORLIBLUE;
{------------------------------------------------------------------------------}
D底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.D,N)=LLV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=LLV(KDJ.D,N+1),1))+1)>C AND?
REF(KDJ.D,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.D,N)=LLV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=LLV(KDJ.D,N+1),1))+1)<KDJ.D AND?
FILTER(BACKSET(REF(KDJ.D,N)=LLV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=LLV(KDJ.D,N+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJ.D,N)=LLV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=LLV(KDJ.D,N+1),KDJ.D,FILTER(D底背>0,5),KDJ.D,0),
COLORWHITE,DOTLINE;
DRAWTEXT(D底背,KDJ.D,'D底背'),COLORYELLOW;
D頂背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.D,N)=HHV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=HHV(KDJ.D,N+1),1))+1)<C AND?
REF(KDJ.D,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.D,N)=HHV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=HHV(KDJ.D,N+1),1))+1)>KDJ.D AND?
FILTER(BACKSET(REF(KDJ.D,N)=HHV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=HHV(KDJ.D,N+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJ.D,N)=HHV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=HHV(KDJ.D,N+1),KDJ.D,FILTER(D頂背>0,5),KDJ.D,0),
COLORGREEN,DOTLINE;
DRAWTEXT(D頂背,KDJ.D,'D頂背'),COLOR4080FF;
{以下是金叉死叉背離}
{}
A2:=BARSLAST(REF(CROSS(K,D),1));
B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);
DRAWTEXT((B2>0),-10,'_金叉底背'),COLORLIRED;
STICKLINE((B2>0),-10,50,0,-1)COLORLIRED;
{DRAWLINE((B2>0),K,B2,K,0),COLORLIRED,DOTLINE;}{金叉底背畫線};
{}
C2:=BARSLAST(REF(CROSS(D,K),1));
D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);
DRAWTEXT((D2>0),110,'_死叉頂背'),COLORLICYAN;
STICKLINE((D2>0),110,50,0,-1)COLORLICYAN;
{DRAWLINE((D2>0),K,D2,K,0),COLORGREEN,DOTLINE;}{死叉頂背畫線};
STICKLINE(C>0,100,100,28,-1),COLOR000080;
STICKLINE(C>0,80,80,28,-1),COLOR000080;
STICKLINE(C>0,50,50,28,-1),COLOR000080;
STICKLINE(C>0,20,20,28,-1),COLOR000080;
STICKLINE(C>0,0,0,28,-1),COLOR000080;
STICKLINE(C>0,-20,-20,28,-1),COLORBLACK;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),COLORCYAN;
D:SMA(K,3,1),COLORYELLOW;
J:3*K-2*D,COLORMAGENTA;
{K值,D值,J值的背離}
{------------------------------------------------------------------------------}
?KDJJ:=STKINDI('',6,'kdj.j',9,3,3);
?KDJK:=STKINDI('',6,'kdj.k',9,3,3);
?KDJD:=STKINDI('',6,'kdj.d',9,3,3);
N:=5;
{}
J底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJJ,N)=LLV(KDJJ,2*N+1),N+1),N) AND KDJJ=LLV(KDJJ,N+1),1))+1)>C AND?
REF(KDJJ,BARSLAST(REF(FILTER(BACKSET(REF(KDJJ,N)=LLV(KDJJ,2*N+1),N+1),N) AND KDJJ=LLV(KDJJ,N+1),1))+1)<KDJJ AND?
FILTER(BACKSET(REF(KDJJ,N)=LLV(KDJJ,2*N+1),N+1),N) AND KDJJ=LLV(KDJJ,N+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJJ,N)=LLV(KDJJ,2*N+1),N+1),N) AND KDJJ=LLV(KDJJ,N+1),KDJJ,FILTER(J底背>0,5),KDJJ,0),
COLORWHITE,POINTDOT;
DRAWTEXT(J底背,KDJJ,'J底背'),COLORMAGENTA;
J頂背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJJ,N)=HHV(KDJJ,2*N+1),N+1),N) AND KDJJ=HHV(KDJJ,N+1),1))+1)<C AND?
REF(KDJJ,BARSLAST(REF(FILTER(BACKSET(REF(KDJJ,N)=HHV(KDJJ,2*N+1),N+1),N) AND KDJJ=HHV(KDJJ,N+1),1))+1)>KDJJ AND?
FILTER(BACKSET(REF(KDJJ,N)=HHV(KDJJ,2*N+1),N+1),N) AND KDJJ=HHV(KDJJ,N+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJJ,N)=HHV(KDJJ,2*N+1),N+1),N) AND KDJJ=HHV(KDJJ,N+1),KDJJ,FILTER(J頂背>0,5),KDJJ,0),
COLORGREEN,POINTDOT;
DRAWTEXT(J頂背,KDJJ,'J頂背'),COLORMAGENTA;
{------------------------------------------------------------------------------}
K底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJK,N)=LLV(KDJK,2*N+1),N+1),N) AND KDJK=LLV(KDJK,N+1),1))+1)>C AND?
REF(KDJK,BARSLAST(REF(FILTER(BACKSET(REF(KDJK,N)=LLV(KDJK,2*N+1),N+1),N) AND KDJK=LLV(KDJK,N+1),1))+1)<KDJK AND?
FILTER(BACKSET(REF(KDJK,N)=LLV(KDJK,2*N+1),N+1),N) AND KDJK=LLV(KDJK,N+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJK,N)=LLV(KDJK,2*N+1),N+1),N) AND KDJK=LLV(KDJK,N+1),KDJK,FILTER(K底背>0,5),KDJK,0),
COLORWHITE,POINTDOT;
DRAWTEXT(K底背,KDJK,'K底背'),COLORWHITE;
K頂背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJK,N)=HHV(KDJK,2*N+1),N+1),N) AND KDJK=HHV(KDJK,N+1),1))+1)<C AND?
REF(KDJK,BARSLAST(REF(FILTER(BACKSET(REF(KDJK,N)=HHV(KDJK,2*N+1),N+1),N) AND KDJK=HHV(KDJK,N+1),1))+1)>KDJK AND?
FILTER(BACKSET(REF(KDJK,N)=HHV(KDJK,2*N+1),N+1),N) AND KDJK=HHV(KDJK,N+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJK,N)=HHV(KDJK,2*N+1),N+1),N) AND KDJK=HHV(KDJK,N+1),KDJK,FILTER(K頂背>0,5),KDJK,0),
COLORGREEN,POINTDOT;
DRAWTEXT(K頂背,KDJK,'K頂背'),COLORBLUE;
{------------------------------------------------------------------------------}
D底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJD,N)=LLV(KDJD,2*N+1),N+1),N) AND KDJD=LLV(KDJD,N+1),1))+1)>C AND?
REF(KDJD,BARSLAST(REF(FILTER(BACKSET(REF(KDJD,N)=LLV(KDJD,2*N+1),N+1),N) AND KDJD=LLV(KDJD,N+1),1))+1)<KDJD AND?
FILTER(BACKSET(REF(KDJD,N)=LLV(KDJD,2*N+1),N+1),N) AND KDJD=LLV(KDJD,N+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJD,N)=LLV(KDJD,2*N+1),N+1),N) AND KDJD=LLV(KDJD,N+1),KDJD,FILTER(D底背>0,5),KDJD,0),
COLORWHITE,POINTDOT;
DRAWTEXT(D底背,KDJD,'D底背'),COLORYELLOW;
D頂背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJD,N)=HHV(KDJD,2*N+1),N+1),N) AND KDJD=HHV(KDJD,N+1),1))+1)<C AND?
REF(KDJD,BARSLAST(REF(FILTER(BACKSET(REF(KDJD,N)=HHV(KDJD,2*N+1),N+1),N) AND KDJD=HHV(KDJD,N+1),1))+1)>KDJD AND?
FILTER(BACKSET(REF(KDJD,N)=HHV(KDJD,2*N+1),N+1),N) AND KDJD=HHV(KDJD,N+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJD,N)=HHV(KDJD,2*N+1),N+1),N) AND KDJD=HHV(KDJD,N+1),KDJD,FILTER(D頂背>0,5),KDJD,0),
COLORGREEN,POINTDOT;
DRAWTEXT(D頂背,KDJD,'D頂背'),COLOR4080FF;
{以下是金叉死叉背離}
{}
A2:=BARSLAST(REF(CROSS(K,D),1));
B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);
DRAWTEXT((B2>0),-10,'_金叉底背'),COLORRED;
STICKLINE((B2>0),-10,50,0,-1),COLORRED;
{DRAWLINE((B2>0),K,B2,K,0),COLORLIRED,DOTLINE;}{金叉底背畫線};
{}
C2:=BARSLAST(REF(CROSS(D,K),1));
D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);
DRAWTEXT((D2>0),110,'_死叉頂背'),COLORCYAN;
STICKLINE((D2>0),110,50,0,-1),COLORCYAN;
{DRAWLINE((D2>0),K,D2,K,0),COLORGREEN,DOTLINE;}{死叉頂背畫線}; 來源 程序化久久網
幫忙改改能在博易云上用的?謝謝
DRAWGBK(C>0, RGB(1,1,1),RGB(1,1,1),0,'0',0);
STICKLINE(C>0,120,120,28,-1)COLORBLACK;
STICKLINE(C>0,100,100,28,-1)COLOR000080;
STICKLINE(C>0,80,80,28,-1)COLOR000080;
STICKLINE(C>0,50,50,28,-1)COLOR000080;
STICKLINE(C>0,20,20,28,-1)COLOR000080;
STICKLINE(C>0,0,0,28,-1)COLOR000080;
STICKLINE(C>0,-20,-20,28,-1)COLORBLACK;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1)COLORCYAN;
D:SMA(K,3,1)COLORYELLOW;
J:3*K-2*D,COLORMAGENTA;
{K值,D值,J值的背離}
{------------------------------------------------------------------------------}
N:=5;
{}
J底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.J,N)=LLV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=LLV(KDJ.J,N+1),1))+1)>C AND?
REF(KDJ.J,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.J,N)=LLV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=LLV(KDJ.J,N+1),1))+1)<KDJ.J AND?
FILTER(BACKSET(REF(KDJ.J,N)=LLV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=LLV(KDJ.J,N+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJ.J,N)=LLV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=LLV(KDJ.J,N+1),KDJ.J,FILTER(J底背>0,5),KDJ.J,0),
COLORWHITE,DOTLINE;
DRAWTEXT(J底背,KDJ.J,'J底背'),COLORLIMAGENTA;
J頂背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.J,N)=HHV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=HHV(KDJ.J,N+1),1))+1)<C AND?
REF(KDJ.J,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.J,N)=HHV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=HHV(KDJ.J,N+1),1))+1)>KDJ.J AND?
FILTER(BACKSET(REF(KDJ.J,N)=HHV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=HHV(KDJ.J,N+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJ.J,N)=HHV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=HHV(KDJ.J,N+1),KDJ.J,FILTER(J頂背>0,5),KDJ.J,0),
COLORGREEN,DOTLINE;
DRAWTEXT(J頂背,KDJ.J,'J頂背'),COLORMAGENTA;
{------------------------------------------------------------------------------}
K底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.K,N)=LLV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=LLV(KDJ.K,N+1),1))+1)>C AND?
REF(KDJ.K,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.K,N)=LLV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=LLV(KDJ.K,N+1),1))+1)<KDJ.K AND?
FILTER(BACKSET(REF(KDJ.K,N)=LLV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=LLV(KDJ.K,N+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJ.K,N)=LLV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=LLV(KDJ.K,N+1),KDJ.K,FILTER(K底背>0,5),KDJ.K,0),
COLORWHITE,DOTLINE;
DRAWTEXT(K底背,KDJ.K,'K底背'),COLORWHITE;
K頂背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.K,N)=HHV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=HHV(KDJ.K,N+1),1))+1)<C AND?
REF(KDJ.K,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.K,N)=HHV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=HHV(KDJ.K,N+1),1))+1)>KDJ.K AND?
FILTER(BACKSET(REF(KDJ.K,N)=HHV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=HHV(KDJ.K,N+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJ.K,N)=HHV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=HHV(KDJ.K,N+1),KDJ.K,FILTER(K頂背>0,5),KDJ.K,0),
COLORGREEN,DOTLINE;
DRAWTEXT(K頂背,KDJ.K,'K頂背'),COLORLIBLUE;
{------------------------------------------------------------------------------}
D底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.D,N)=LLV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=LLV(KDJ.D,N+1),1))+1)>C AND?
REF(KDJ.D,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.D,N)=LLV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=LLV(KDJ.D,N+1),1))+1)<KDJ.D AND?
FILTER(BACKSET(REF(KDJ.D,N)=LLV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=LLV(KDJ.D,N+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJ.D,N)=LLV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=LLV(KDJ.D,N+1),KDJ.D,FILTER(D底背>0,5),KDJ.D,0),
COLORWHITE,DOTLINE;
DRAWTEXT(D底背,KDJ.D,'D底背'),COLORYELLOW;
D頂背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.D,N)=HHV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=HHV(KDJ.D,N+1),1))+1)<C AND?
REF(KDJ.D,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.D,N)=HHV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=HHV(KDJ.D,N+1),1))+1)>KDJ.D AND?
FILTER(BACKSET(REF(KDJ.D,N)=HHV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=HHV(KDJ.D,N+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJ.D,N)=HHV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=HHV(KDJ.D,N+1),KDJ.D,FILTER(D頂背>0,5),KDJ.D,0),
COLORGREEN,DOTLINE;
DRAWTEXT(D頂背,KDJ.D,'D頂背'),COLOR4080FF;
{以下是金叉死叉背離}
{}
A2:=BARSLAST(REF(CROSS(K,D),1));
B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);
DRAWTEXT((B2>0),-10,'_金叉底背'),COLORLIRED;
STICKLINE((B2>0),-10,50,0,-1)COLORLIRED;
{DRAWLINE((B2>0),K,B2,K,0),COLORLIRED,DOTLINE;}{金叉底背畫線};
{}
C2:=BARSLAST(REF(CROSS(D,K),1));
D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);
DRAWTEXT((D2>0),110,'_死叉頂背'),COLORLICYAN;
STICKLINE((D2>0),110,50,0,-1)COLORLICYAN;
{DRAWLINE((D2>0),K,D2,K,0),COLORGREEN,DOTLINE;}{死叉頂背畫線};
?
?來源:程序化99網( www.tumamayizhan.com )
博易技術人員: STICKLINE(C>0,120,120,28,-1),COLORBLACK;STICKLINE(C>0,100,100,28,-1),COLOR000080;
STICKLINE(C>0,80,80,28,-1),COLOR000080;
STICKLINE(C>0,50,50,28,-1),COLOR000080;
STICKLINE(C>0,20,20,28,-1),COLOR000080;
STICKLINE(C>0,0,0,28,-1),COLOR000080;
STICKLINE(C>0,-20,-20,28,-1),COLORBLACK;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),COLORCYAN;
D:SMA(K,3,1),COLORYELLOW;
J:3*K-2*D,COLORMAGENTA;
{K值,D值,J值的背離}
{------------------------------------------------------------------------------}
?KDJJ:=STKINDI('',6,'kdj.j',9,3,3);
?KDJK:=STKINDI('',6,'kdj.k',9,3,3);
?KDJD:=STKINDI('',6,'kdj.d',9,3,3);
N:=5;
{}
J底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJJ,N)=LLV(KDJJ,2*N+1),N+1),N) AND KDJJ=LLV(KDJJ,N+1),1))+1)>C AND?
REF(KDJJ,BARSLAST(REF(FILTER(BACKSET(REF(KDJJ,N)=LLV(KDJJ,2*N+1),N+1),N) AND KDJJ=LLV(KDJJ,N+1),1))+1)<KDJJ AND?
FILTER(BACKSET(REF(KDJJ,N)=LLV(KDJJ,2*N+1),N+1),N) AND KDJJ=LLV(KDJJ,N+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJJ,N)=LLV(KDJJ,2*N+1),N+1),N) AND KDJJ=LLV(KDJJ,N+1),KDJJ,FILTER(J底背>0,5),KDJJ,0),
COLORWHITE,POINTDOT;
DRAWTEXT(J底背,KDJJ,'J底背'),COLORMAGENTA;
J頂背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJJ,N)=HHV(KDJJ,2*N+1),N+1),N) AND KDJJ=HHV(KDJJ,N+1),1))+1)<C AND?
REF(KDJJ,BARSLAST(REF(FILTER(BACKSET(REF(KDJJ,N)=HHV(KDJJ,2*N+1),N+1),N) AND KDJJ=HHV(KDJJ,N+1),1))+1)>KDJJ AND?
FILTER(BACKSET(REF(KDJJ,N)=HHV(KDJJ,2*N+1),N+1),N) AND KDJJ=HHV(KDJJ,N+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJJ,N)=HHV(KDJJ,2*N+1),N+1),N) AND KDJJ=HHV(KDJJ,N+1),KDJJ,FILTER(J頂背>0,5),KDJJ,0),
COLORGREEN,POINTDOT;
DRAWTEXT(J頂背,KDJJ,'J頂背'),COLORMAGENTA;
{------------------------------------------------------------------------------}
K底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJK,N)=LLV(KDJK,2*N+1),N+1),N) AND KDJK=LLV(KDJK,N+1),1))+1)>C AND?
REF(KDJK,BARSLAST(REF(FILTER(BACKSET(REF(KDJK,N)=LLV(KDJK,2*N+1),N+1),N) AND KDJK=LLV(KDJK,N+1),1))+1)<KDJK AND?
FILTER(BACKSET(REF(KDJK,N)=LLV(KDJK,2*N+1),N+1),N) AND KDJK=LLV(KDJK,N+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJK,N)=LLV(KDJK,2*N+1),N+1),N) AND KDJK=LLV(KDJK,N+1),KDJK,FILTER(K底背>0,5),KDJK,0),
COLORWHITE,POINTDOT;
DRAWTEXT(K底背,KDJK,'K底背'),COLORWHITE;
K頂背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJK,N)=HHV(KDJK,2*N+1),N+1),N) AND KDJK=HHV(KDJK,N+1),1))+1)<C AND?
REF(KDJK,BARSLAST(REF(FILTER(BACKSET(REF(KDJK,N)=HHV(KDJK,2*N+1),N+1),N) AND KDJK=HHV(KDJK,N+1),1))+1)>KDJK AND?
FILTER(BACKSET(REF(KDJK,N)=HHV(KDJK,2*N+1),N+1),N) AND KDJK=HHV(KDJK,N+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJK,N)=HHV(KDJK,2*N+1),N+1),N) AND KDJK=HHV(KDJK,N+1),KDJK,FILTER(K頂背>0,5),KDJK,0),
COLORGREEN,POINTDOT;
DRAWTEXT(K頂背,KDJK,'K頂背'),COLORBLUE;
{------------------------------------------------------------------------------}
D底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJD,N)=LLV(KDJD,2*N+1),N+1),N) AND KDJD=LLV(KDJD,N+1),1))+1)>C AND?
REF(KDJD,BARSLAST(REF(FILTER(BACKSET(REF(KDJD,N)=LLV(KDJD,2*N+1),N+1),N) AND KDJD=LLV(KDJD,N+1),1))+1)<KDJD AND?
FILTER(BACKSET(REF(KDJD,N)=LLV(KDJD,2*N+1),N+1),N) AND KDJD=LLV(KDJD,N+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJD,N)=LLV(KDJD,2*N+1),N+1),N) AND KDJD=LLV(KDJD,N+1),KDJD,FILTER(D底背>0,5),KDJD,0),
COLORWHITE,POINTDOT;
DRAWTEXT(D底背,KDJD,'D底背'),COLORYELLOW;
D頂背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJD,N)=HHV(KDJD,2*N+1),N+1),N) AND KDJD=HHV(KDJD,N+1),1))+1)<C AND?
REF(KDJD,BARSLAST(REF(FILTER(BACKSET(REF(KDJD,N)=HHV(KDJD,2*N+1),N+1),N) AND KDJD=HHV(KDJD,N+1),1))+1)>KDJD AND?
FILTER(BACKSET(REF(KDJD,N)=HHV(KDJD,2*N+1),N+1),N) AND KDJD=HHV(KDJD,N+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(KDJD,N)=HHV(KDJD,2*N+1),N+1),N) AND KDJD=HHV(KDJD,N+1),KDJD,FILTER(D頂背>0,5),KDJD,0),
COLORGREEN,POINTDOT;
DRAWTEXT(D頂背,KDJD,'D頂背'),COLOR4080FF;
{以下是金叉死叉背離}
{}
A2:=BARSLAST(REF(CROSS(K,D),1));
B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);
DRAWTEXT((B2>0),-10,'_金叉底背'),COLORRED;
STICKLINE((B2>0),-10,50,0,-1),COLORRED;
{DRAWLINE((B2>0),K,B2,K,0),COLORLIRED,DOTLINE;}{金叉底背畫線};
{}
C2:=BARSLAST(REF(CROSS(D,K),1));
D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);
DRAWTEXT((D2>0),110,'_死叉頂背'),COLORCYAN;
STICKLINE((D2>0),110,50,0,-1),COLORCYAN;
{DRAWLINE((D2>0),K,D2,K,0),COLORGREEN,DOTLINE;}{死叉頂背畫線}; 來源 程序化久久網
有思路,想編寫各種指標公式,交易模型,選股公式,還原公式的朋友
可聯系技術人員 QQ: 262069696 或微信號:cxh99cxh99 進行 有償收費 編寫!
(注:由于人數限制,QQ或微信請選擇方便的一個聯系我們就行,加好友時請簡單備注下您的需求,否則無法通過。謝謝您!)
相關文章
-
沒有相關內容