(C>0, RGB(1,1,1),RGB(1,1,1),0,'0',0);
(C>0,120,120,28,-1);
(C>0,100,100,28,-1);
(C>0,80,80,28,-1);
(C>0,50,50,28,-1);
(C>0,20,20,28,-1);
(C>0,0,0,28,-1);
(C>0,-20,-20,28,-1);
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,;
{K值,D值,J值的背离}
{------------------------------------------------------------------------------}
N:=5;
{}
J底背:REF(C,(REF(((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,(REF(((REF(KDJ.J,N)=LLV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=LLV(KDJ.J,N+1),1))+1)((REF(KDJ.J,N)=LLV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=LLV(KDJ.J,N+1),,;
(((REF(KDJ.J,N)=LLV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=LLV(KDJ.J,N+1),KDJ.J,(J底背>0,5),KDJ.J,0),
,;
(J底背,KDJ.J,'J底背'),;
J顶背:REF(C,(REF(((REF(KDJ.J,N)=HHV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=HHV(KDJ.J,N+1),1))+1)REF(KDJ.J,(REF(((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
((REF(KDJ.J,N)=HHV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=HHV(KDJ.J,N+1),,;
(((REF(KDJ.J,N)=HHV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=HHV(KDJ.J,N+1),KDJ.J,(J顶背>0,5),KDJ.J,0),
,;
(J顶背,KDJ.J,'J顶背'),;
{------------------------------------------------------------------------------}
K底背:REF(C,(REF(((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,(REF(((REF(KDJ.K,N)=LLV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=LLV(KDJ.K,N+1),1))+1)((REF(KDJ.K,N)=LLV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=LLV(KDJ.K,N+1),,;
(((REF(KDJ.K,N)=LLV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=LLV(KDJ.K,N+1),KDJ.K,(K底背>0,5),KDJ.K,0),
,;
(K底背,KDJ.K,'K底背'),;
K顶背:REF(C,(REF(((REF(KDJ.K,N)=HHV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=HHV(KDJ.K,N+1),1))+1)REF(KDJ.K,(REF(((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
((REF(KDJ.K,N)=HHV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=HHV(KDJ.K,N+1),,;
(((REF(KDJ.K,N)=HHV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=HHV(KDJ.K,N+1),KDJ.K,(K顶背>0,5),KDJ.K,0),
,;
(K顶背,KDJ.K,'K顶背'),;
{------------------------------------------------------------------------------}
D底背:REF(C,(REF(((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,(REF(((REF(KDJ.D,N)=LLV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=LLV(KDJ.D,N+1),1))+1)((REF(KDJ.D,N)=LLV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=LLV(KDJ.D,N+1),,;
(((REF(KDJ.D,N)=LLV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=LLV(KDJ.D,N+1),KDJ.D,(D底背>0,5),KDJ.D,0),
,;
(D底背,KDJ.D,'D底背'),;
D顶背:REF(C,(REF(((REF(KDJ.D,N)=HHV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=HHV(KDJ.D,N+1),1))+1)REF(KDJ.D,(REF(((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
((REF(KDJ.D,N)=HHV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=HHV(KDJ.D,N+1),,;
(((REF(KDJ.D,N)=HHV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=HHV(KDJ.D,N+1),KDJ.D,(D顶背>0,5),KDJ.D,0),
,;
(D顶背,KDJ.D,'D顶背'),;
{以下是金叉死叉背离}
{}
A2:=(REF(CROSS(K,D),1));
B2:=REF(C,A2+1)>C AND REF(K,A2+1)((B2>0),-10,'_金叉底背'),;
((B2>0),-10,50,0,-1);
{((B2>0),K,B2,K,0),,;}{金叉底背画线};
{}
C2:=(REF(CROSS(D,K),1));
D2:=REF(C,C2+1)K AND CROSS(D,K);
((D2>0),110,'_死叉顶背'),;
((D2>0),110,50,0,-1);
{((D2>0),K,D2,K,0),,;}{死叉顶背画线};
有话要说...