B:=(CLOSE – LLV(LOW,32)) / (HHV(HIGH,32) – LLV(LOW,32)) * 1.2 * CLOSE;
DRAWGBKlast(BARSTATUS=2 and C<=B,strip(RGB(0,0,200),RGB(0,0,0),0));
DRAWGBKlast(BARSTATUS=2 and C>B,strip(RGB(0,120,0),RGB(0,0,0),0));
IF BARSTATUS=2 and C<=B THEN BEGIN DRAWTEXTREL(500,0,'該股:=已見頂(藍色):★ 收盤價<=J32 '),LINETHICK3,COLOR9999ff;end;
IF BARSTATUS=2 and C>B THEN BEGIN DRAWTEXTREL(500,0,’該股:=可持股(綠色):☆ 收盤價>J32′),LINETHICK3,COLOR00FFFF;end;
{9KDJ}
VAR9:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K9:=SMA(VAR9,3,1);
D9:=SMA(K9,9,1);
j9:3*K9-2*D9;
{13KDJ}
VAR13:=(CLOSE-LLV(LOW,14))/(HHV(HIGH,14)-LLV(LOW,14))*100;
K1:SMA(VAR13,3,1),LINETHICK0;
D1:SMA(K1,9,1),LINETHICK0;
j13:3*K1-2*D1;
PARTLINE(j13,(j13>REF(j13,1))-1,rgb(0,255,0),1,rgb(255,0,0) ),LINETHICK3;
接近頭部:IF(CROSS(100,j13),80,100),COLOR0000ff,LINETHICK3;
{13KDJ27KDJ}
VAR27:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
K2:=SMA(VAR27,3,1);
D2:=SMA(K2,9,1);
j27:3*K2-2*D2;
PARTLINE(j27,(j27>REF(j27,1))-1,rgb(0,200,100),1,rgb(200,100,0) ),LINETHICK2;
D6:=CROSS(K2,D2) AND D2<20;
DRAWTEXT(FILTER(D6,10)=1,60,’底’),COLOR00FFFF,LINETHICK2 ;
STICKLINE(FILTER(D6,10)=1,0,40,10,0),COLOR00FFFF;
D7:=CROSS(D2,K2) AND D2>80;
STICKLINE(FILTER(D7,5)=1,70,100,10,0),COLOR0000FF;
DRAWTEXT(FILTER(D7,5)=1,60,’頂’),COLOR0000FF,LINETHICK2 ;
{34KDJ}
VAR34:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
K3:=SMA(VAR34,3,1);
D3:=SMA(K3,9,1);
j34:3*K3-2*D3,COLORFF8800,LINETHICK1;
{55KDJ}
VAR57:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
K5:=SMA(VAR57,3,1);
D5:=SMA(K5,9,1);
j55:3*K5-2*D5,COLORFF00ff,LINETHICK1;
{大盤KDJ}
CC1:=EMA(INDEXC,500)/EMA(C,500);
DC1:=INDEXO/CC1; DC2:=INDEXH/CC1;
DC3:=INDEXL/CC1; DC4:=INDEXC/CC1;
VARDC:=(DC4-LLV(DC3,14))/(HHV( DC2,14)-LLV( DC3,14))*100;
KDC:=SMA(VARDC,3,1);
DDC:=SMA(KDC,3,1);
jDC:3*KDC-2*DDC,COLOR00ffFF,DOTLINE;
PARTLINE(jDC,(jDC>REF(jDC,1))-1,rgb(60,200,60),1,rgb(200,60,60) ),POINTDOT,LINETHICK6;
DIBU:= K1<20 AND D1<20 AND K2<20 AND D2<20 AND K3<20 AND D3<20 AND D5<20;
STICKLINE(DIBU=1,96,75,1,0),COLORRED;
STICKLINE(DIBU=1,75,50,2,0),COLORff00ff;
STICKLINE(DIBU=1,50,25,3,0),COLORYELLOW;
STICKLINE(DIBU=1,25,0,4,0),COLORBLUE;
TOBU:= K3>80 AND K2>80 ;
{STICKLINE(TOBU=1,100,78,4,1) ,COLORGREEN;}
50;
DRAWTEXTABS(5,5,'{不同周期KDJ共振,只要有3組 J, 在100上集結必見頂，在0下邊集結必見底}, ‘),Color00FF00,LINETHICK2;
DRAWTEXTABS(5,25,'{還要關注大盤與KDJ的共振,}, ‘),Color00ffff,LINETHICK2;
a1:=(c-ma(c,250))/ma(c,250);
選股a: DIBU and a1<-0.50{可調(diào)};
選股b: D6 and a1<-0.50;{可調(diào)};