{晶红色表示K值>50,青色表示K值<50.}
KR :="kdj.K#DAY"  ;
KZ :="kdj.K#WEEK" ;
KY :="kdj.K#MONTH" ;
KN :="kdj.K#YEAR" ;
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 KR[P] >=50,0,KR[P] ,40,0),COLORMAGENTA;
STICKLINE(BARPOS=DATACOUNT-22 and KR[P]  <50,0,KR[P] ,40,0),COLORCYAN;
STICKLINE(BARPOS=DATACOUNT-16 and KZ[P] >=50,0,KZ[P] ,40,0),COLORMAGENTA;
STICKLINE(BARPOS=DATACOUNT-16 and KZ[P]  <50,0,KZ[P] ,40,0),COLORCYAN;
STICKLINE(BARPOS=DATACOUNT-10 and KY[P] >=50,0,KY[P] ,40,0),COLORMAGENTA;
STICKLINE(BARPOS=DATACOUNT-10 and KY[P]  <50,0,KY[P] ,40,0),COLORCYAN;
STICKLINE(BARPOS=DATACOUNT-4  and KN[P] >=50,0,KN[P] ,40,0),COLORMAGENTA;
STICKLINE(BARPOS=DATACOUNT-4  and KN[P]  <50,0,KN[P] ,40,0),COLORCYAN;
{}
DRAWTEXT(BARPOS=DATACOUNT-24,-10,'KR\n' +NUMTOSTR(KR[p] ,2)),PXDN5,COLORWHITE;
DRAWTEXT(BARPOS=DATACOUNT-18,-10,'KZ\n' +NUMTOSTR(KZ[p] ,2)),PXDN5,COLORWHITE;
DRAWTEXT(BARPOS=DATACOUNT-12,-10,'KY\n' +NUMTOSTR(KY[p] ,2)),PXDN5,COLORWHITE;
DRAWTEXT(BARPOS=DATACOUNT-6 ,-10,'KN\n' +NUMTOSTR(KN[p] ,2)),PXDN5,COLORWHITE;
{}