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{可调};
选股b: D6 and a1<-0.50;{可调};
 |
