{晶红色表示K值>50,青色表示K值<50.}
K30:="kdj.K#MIN30";
K60:="kdj.K#MIN60";
KR :="kdj.K#DAY"  ;
KZ :="kdj.K#WEEK" ;
P:=SYSPARAM(1);
{}
VERTLINE(BARPOS=DATACOUNT-26),COLOR00AAAA,LINETHICK2;
VERTLINE(BARPOS=DATACOUNT),COLOR00AAAA,LINETHICK2;
STICKLINE(BARPOS=DATACOUNT-13,100,100,260,0),COLOR00AAAA;
STICKLINE(BARPOS=DATACOUNT-13,-80,-80,260,0),COLOR00AAAA;
{}
STICKLINE(BARPOS=DATACOUNT-22 and K30[p]>=50,0,K30[P],40,0),COLORMAGENTA;
STICKLINE(BARPOS=DATACOUNT-22 and K30[p] <50,0,K30[P],40,0),COLORCYAN;
STICKLINE(BARPOS=DATACOUNT-16 and K60[P]>=50,0,K60[P],40,0),COLORMAGENTA;
STICKLINE(BARPOS=DATACOUNT-16 and K60[P] <50,0,K60[P],40,0),COLORCYAN;
STICKLINE(BARPOS=DATACOUNT-10 and KR[P] >=50,0,KR[P] ,40,0),COLORMAGENTA;
STICKLINE(BARPOS=DATACOUNT-10 and KR[P]  <50,0,KR[P] ,40,0),COLORCYAN;
STICKLINE(BARPOS=DATACOUNT-4 and KZ[P] >=50,0,KZ[P] ,40,0),COLORMAGENTA;
STICKLINE(BARPOS=DATACOUNT-4 and KZ[P]  <50,0,KZ[P] ,40,0),COLORCYAN;
{}
DRAWTEXT(BARPOS=DATACOUNT-24,-10,'K30\n'+NUMTOSTR(K30[p],2)),PXDN5,COLORWHITE;
DRAWTEXT(BARPOS=DATACOUNT-18,-10,'K60\n'+NUMTOSTR(K60[p],2)),PXDN5,COLORWHITE;
DRAWTEXT(BARPOS=DATACOUNT-12,-10,'KR\n' +NUMTOSTR(KR[p] ,2)),PXDN5,COLORWHITE;
DRAWTEXT(BARPOS=DATACOUNT-6,-10,'KZ\n' +NUMTOSTR(KZ[p] ,2)),PXDN5,COLORWHITE;
{}