[飞狐]飞狐KD2移动(15-周)源码公式

我是一个兵

飞狐KD2移动(15-周)源码公式：
K15:="kdj.K#MIN15";
K30:="kdj.K#MIN30";
K60:="kdj.K#MIN60";
KR :="kdj.K#DAY"  ;
KZ :="kdj.K#WEEK" ;
P:=SYSPARAM(1);
VERTLINE(BARPOS=P-32),COLOR00AAAA,LINETHICK2;
VERTLINE(BARPOS=P),COLOR00AAAA,LINETHICK2;
STICKLINE(BARPOS=P-16,100,100,320,0),COLOR00AAAA;
STICKLINE(BARPOS=P-16,-80,-80,320,0),COLOR00AAAA;
{}
STICKLINE(BARPOS=P-28 and K15[p]>=50,0,K15[P],40,0),COLORMAGENTA;
STICKLINE(BARPOS=P-28 and K15[p] <50,0,K15[P],40,0),COLORCYAN;
STICKLINE(BARPOS=P-22 and K30[p]>=50,0,K30[P],40,0),COLORMAGENTA;
STICKLINE(BARPOS=P-22 and K30[p] <50,0,K30[P],40,0),COLORCYAN;
STICKLINE(BARPOS=P-16 and K60[P]>=50,0,K60[P],40,0),COLORMAGENTA;
STICKLINE(BARPOS=P-16 and K60[P] <50,0,K60[P],40,0),COLORCYAN;
STICKLINE(BARPOS=P-10 and KR[P] >=50,0,KR[P] ,40,0),COLORMAGENTA;
STICKLINE(BARPOS=P-10 and KR[P]  <50,0,KR[P] ,40,0),COLORCYAN;
STICKLINE(BARPOS=P-4  and KZ[P] >=50,0,KZ[P] ,40,0),COLORMAGENTA;
STICKLINE(BARPOS=P-4  and KZ[P]  <50,0,KZ[P] ,40,0),COLORCYAN;
{}
DRAWTEXT(BARPOS=P-30,-14,'K15\n'+NUMTOSTR(K15[p],2)),COLORWHITE;
DRAWTEXT(BARPOS=P-24,-14,'K30\n'+NUMTOSTR(K30[p],2)),COLORWHITE;
DRAWTEXT(BARPOS=P-18,-14,'K60\n'+NUMTOSTR(K60[p],2)),COLORWHITE;
DRAWTEXT(BARPOS=P-12,-14,'KR\n' +NUMTOSTR(KR[p] ,2)),COLORWHITE;
DRAWTEXT(BARPOS=P-6 ,-14,'KZ\n' +NUMTOSTR(KZ[p] ,2)),COLORWHITE;