通达信版新KDJ源码

以下是通达信版新KDJ源码

N:=24;
 M1:=7;
 M2:=5;
 STICKLINE(C>0,80,90,1,1),COLOREE8088;
 STICKLINE(C>0,10,20,1,1),COLOR909090;
 STICKLINE(C>0,50,51,15,1),COLORWHITE;
 STICKLINE(C>0,80,79.5,15,0),COLORRED;
 STICKLINE(C>0,90,89.5,15,0),COLORRED;
 STICKLINE(C>0,20,19.5,15,0),COLORGREEN;
 STICKLINE(C>0,10,9.5,15,0),COLORGREEN;
 RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
 A:=SMA(RSV,M1,1);
 B:=SMA(A,M2,1);
 E:=3*A-2*B;
 S:=SMA(B,M2,1);
 IF(A<0,0,A);
 IF(A>100,100,A);
 IF(B<0,0,B);
 IF(B>100,100,B);
 IF(E<0,0,E);
 IF(E>100,100,E);
 K:A;
 D:B;
 J:E LINETHICK2;
 STICKLINE(J>90,J,90,2,0),COLORWHITE;
 STICKLINE(J<10,J,10,2,0),COLORWHITE;
 AAAA:=DRAWBAND(K,RGB(255,0,0),D,RGB(0,255,0));