[飞狐]飞狐KD5立体固定(15-周)源码公式

我是一个兵

飞狐KD5立体固定(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=DATACOUNT-42),COLOR00AAAA,LINETHICK2;
VERTLINE(BARPOS=DATACOUNT),COLOR00AAAA,LINETHICK2;
STICKLINE(BARPOS=DATACOUNT-21,100,100,410,0),COLOR00AAAA;
STICKLINE(BARPOS=DATACOUNT-21,-80,-80,410,0),COLOR00AAAA;
{}
STICKLINE(BARPOS=DATACOUNT-37 and K15[p]>=50,0,K15[P],60,0),COLOR008888;
STICKLINE(BARPOS=DATACOUNT-37 and K15[p]>=50,0,K15[P],50,0),COLOR008899;
STICKLINE(BARPOS=DATACOUNT-37 and K15[p]>=50,0,K15[P],40,0),COLOR0088AA;
STICKLINE(BARPOS=DATACOUNT-37 and K15[p]>=50,0,K15[P],30,0),COLOR0088BB;
STICKLINE(BARPOS=DATACOUNT-37 and K15[p]>=50,0,K15[P],20,0),COLOR0088CC;
STICKLINE(BARPOS=DATACOUNT-37 and K15[p]>=50,0,K15[P],10,0),COLOR0088DD;
STICKLINE(BARPOS=DATACOUNT-37 and K15[p]>=50,0,K15[P],5,0),COLOR0088EE;
STICKLINE(BARPOS=DATACOUNT-37 and K15[p]>=50,0,K15[P],2,0),COLOR0088FF;

STICKLINE(BARPOS=DATACOUNT-37 and K15[p] <50,0,K15[P],60,0),COLORFF8800;
STICKLINE(BARPOS=DATACOUNT-37 and K15[p] <50,0,K15[P],50,0),COLORFF9900;
STICKLINE(BARPOS=DATACOUNT-37 and K15[p] <50,0,K15[P],40,0),COLORFFAA00;
STICKLINE(BARPOS=DATACOUNT-37 and K15[p] <50,0,K15[P],30,0),COLORFFBB00;
STICKLINE(BARPOS=DATACOUNT-37 and K15[p] <50,0,K15[P],20,0),COLORFFCC00;
STICKLINE(BARPOS=DATACOUNT-37 and K15[p] <50,0,K15[P],10,0),COLORFFDD00;
STICKLINE(BARPOS=DATACOUNT-37 and K15[p] <50,0,K15[P],5,0),COLORFFEE00;
STICKLINE(BARPOS=DATACOUNT-37 and K15[p] <50,0,K15[P],2,0),COLORFFFF00;

STICKLINE(BARPOS=DATACOUNT-29 and K30[p]>=50,0,K30[P],60,0),COLOR008888;
STICKLINE(BARPOS=DATACOUNT-29 and K30[p]>=50,0,K30[P],50,0),COLOR008899;
STICKLINE(BARPOS=DATACOUNT-29 and K30[p]>=50,0,K30[P],40,0),COLOR0088AA;
STICKLINE(BARPOS=DATACOUNT-29 and K30[p]>=50,0,K30[P],30,0),COLOR0088BB;
STICKLINE(BARPOS=DATACOUNT-29 and K30[p]>=50,0,K30[P],20,0),COLOR0088CC;
STICKLINE(BARPOS=DATACOUNT-29 and K30[p]>=50,0,K30[P],10,0),COLOR0088DD;
STICKLINE(BARPOS=DATACOUNT-29 and K30[p]>=50,0,K30[P],5,0),COLOR0088EE;
STICKLINE(BARPOS=DATACOUNT-29 and K30[p]>=50,0,K30[P],2,0),COLOR0088FF;

STICKLINE(BARPOS=DATACOUNT-29 and K30[p] <50,0,K30[P],60,0),COLORFF8800;
STICKLINE(BARPOS=DATACOUNT-29 and K30[p] <50,0,K30[P],50,0),COLORFF9900;
STICKLINE(BARPOS=DATACOUNT-29 and K30[p] <50,0,K30[P],40,0),COLORFFAA00;
STICKLINE(BARPOS=DATACOUNT-29 and K30[p] <50,0,K30[P],30,0),COLORFFBB00;
STICKLINE(BARPOS=DATACOUNT-29 and K30[p] <50,0,K30[P],20,0),COLORFFCC00;
STICKLINE(BARPOS=DATACOUNT-29 and K30[p] <50,0,K30[P],10,0),COLORFFDD00;
STICKLINE(BARPOS=DATACOUNT-29 and K30[p] <50,0,K30[P],5,0),COLORFFEE00;
STICKLINE(BARPOS=DATACOUNT-29 and K30[p] <50,0,K30[P],2,0),COLORFFFF00;

STICKLINE(BARPOS=DATACOUNT-21 and K60[P]>=50,0,K60[P],60,0),COLOR008888;
STICKLINE(BARPOS=DATACOUNT-21 and K60[P]>=50,0,K60[P],50,0),COLOR008899;
STICKLINE(BARPOS=DATACOUNT-21 and K60[P]>=50,0,K60[P],40,0),COLOR0088AA;
STICKLINE(BARPOS=DATACOUNT-21 and K60[P]>=50,0,K60[P],30,0),COLOR0088BB;
STICKLINE(BARPOS=DATACOUNT-21 and K60[P]>=50,0,K60[P],20,0),COLOR0088CC;
STICKLINE(BARPOS=DATACOUNT-21 and K60[P]>=50,0,K60[P],10,0),COLOR0088DD;
STICKLINE(BARPOS=DATACOUNT-21 and K60[P]>=50,0,K60[P],5,0),COLOR0088EEF;
STICKLINE(BARPOS=DATACOUNT-21 and K60[P]>=50,0,K60[P],2,0),COLOR0088FF;

STICKLINE(BARPOS=DATACOUNT-21 and K60[P] <50,0,K60[P],60,0),COLORFF8800;
STICKLINE(BARPOS=DATACOUNT-21 and K60[P] <50,0,K60[P],50,0),COLORFF9900;
STICKLINE(BARPOS=DATACOUNT-21 and K60[P] <50,0,K60[P],40,0),COLORFFAA00;
STICKLINE(BARPOS=DATACOUNT-21 and K60[P] <50,0,K60[P],30,0),COLORFFBB00;
STICKLINE(BARPOS=DATACOUNT-21 and K60[P] <50,0,K60[P],20,0),COLORFFCC00;
STICKLINE(BARPOS=DATACOUNT-21 and K60[P] <50,0,K60[P],10,0),COLORFFDD00;
STICKLINE(BARPOS=DATACOUNT-21 and K60[P] <50,0,K60[P],5,0),COLORFFEE00;
STICKLINE(BARPOS=DATACOUNT-21 and K60[P] <50,0,K60[P],2,0),COLORFFFF00;

STICKLINE(BARPOS=DATACOUNT-13 and KR[P] >=50,0,KR[P] ,60,0),COLOR008888;
STICKLINE(BARPOS=DATACOUNT-13 and KR[P] >=50,0,KR[P] ,50,0),COLOR008899;
STICKLINE(BARPOS=DATACOUNT-13 and KR[P] >=50,0,KR[P] ,40,0),COLOR0088AA;
STICKLINE(BARPOS=DATACOUNT-13 and KR[P] >=50,0,KR[P] ,30,0),COLOR0088BB;
STICKLINE(BARPOS=DATACOUNT-13 and KR[P] >=50,0,KR[P] ,20,0),COLOR0088CC;
STICKLINE(BARPOS=DATACOUNT-13 and KR[P] >=50,0,KR[P] ,10,0),COLOR0088DD;
STICKLINE(BARPOS=DATACOUNT-13 and KR[P] >=50,0,KR[P] ,5,0),COLOR0088EE;
STICKLINE(BARPOS=DATACOUNT-13 and KR[P] >=50,0,KR[P] ,2,0),COLOR0088FF;

STICKLINE(BARPOS=DATACOUNT-13 and KR[P]  <50,0,KR[P] ,60,0),COLORFF8800;
STICKLINE(BARPOS=DATACOUNT-13 and KR[P]  <50,0,KR[P] ,50,0),COLORFF9900;
STICKLINE(BARPOS=DATACOUNT-13 and KR[P]  <50,0,KR[P] ,40,0),COLORFFAA00;
STICKLINE(BARPOS=DATACOUNT-13 and KR[P]  <50,0,KR[P] ,30,0),COLORFFBB00;
STICKLINE(BARPOS=DATACOUNT-13 and KR[P]  <50,0,KR[P] ,20,0),COLORFFCC00;
STICKLINE(BARPOS=DATACOUNT-13 and KR[P]  <50,0,KR[P] ,10,0),COLORFFDD00;
STICKLINE(BARPOS=DATACOUNT-13 and KR[P]  <50,0,KR[P] ,5,0),COLORFFEE00;
STICKLINE(BARPOS=DATACOUNT-13 and KR[P]  <50,0,KR[P] ,2,0),COLORFFFF00;

STICKLINE(BARPOS=DATACOUNT-5  and KZ[P] >=50,0,KZ[P] ,60,0),COLOR008888;
STICKLINE(BARPOS=DATACOUNT-5  and KZ[P] >=50,0,KZ[P] ,50,0),COLOR008899;
STICKLINE(BARPOS=DATACOUNT-5  and KZ[P] >=50,0,KZ[P] ,40,0),COLOR0088AA;
STICKLINE(BARPOS=DATACOUNT-5  and KZ[P] >=50,0,KZ[P] ,30,0),COLOR0088BB;
STICKLINE(BARPOS=DATACOUNT-5  and KZ[P] >=50,0,KZ[P] ,20,0),COLOR0088CC;
STICKLINE(BARPOS=DATACOUNT-5  and KZ[P] >=50,0,KZ[P] ,10,0),COLOR0088DD;
STICKLINE(BARPOS=DATACOUNT-5  and KZ[P] >=50,0,KZ[P] ,5,0),COLOR0088EE;
STICKLINE(BARPOS=DATACOUNT-5  and KZ[P] >=50,0,KZ[P] ,2,0),COLOR0088FF;

STICKLINE(BARPOS=DATACOUNT-5  and KZ[P]  <50,0,KZ[P] ,60,0),COLORFF8800;
STICKLINE(BARPOS=DATACOUNT-5  and KZ[P]  <50,0,KZ[P] ,50,0),COLORFF9900;
STICKLINE(BARPOS=DATACOUNT-5  and KZ[P]  <50,0,KZ[P] ,40,0),COLORFFAA00;
STICKLINE(BARPOS=DATACOUNT-5  and KZ[P]  <50,0,KZ[P] ,30,0),COLORFFBB00;
STICKLINE(BARPOS=DATACOUNT-5  and KZ[P]  <50,0,KZ[P] ,20,0),COLORFFCC00;
STICKLINE(BARPOS=DATACOUNT-5  and KZ[P]  <50,0,KZ[P] ,10,0),COLORFFDD00;
STICKLINE(BARPOS=DATACOUNT-5  and KZ[P]  <50,0,KZ[P] ,5,0),COLORFFEE00;
STICKLINE(BARPOS=DATACOUNT-5  and KZ[P]  <50,0,KZ[P] ,2,0),COLORFFFF00;
{}
DRAWTEXT(BARPOS=DATACOUNT-40,-14,'K15\n'+NUMTOSTR(K15[p],2)),COLORWHITE;
DRAWTEXT(BARPOS=DATACOUNT-32,-14,'K30\n'+NUMTOSTR(K30[p],2)),COLORWHITE;
DRAWTEXT(BARPOS=DATACOUNT-24,-14,'K60\n'+NUMTOSTR(K60[p],2)),COLORWHITE;
DRAWTEXT(BARPOS=DATACOUNT-16,-14,'KR\n' +NUMTOSTR(KR[p] ,2)),COLORWHITE;
DRAWTEXT(BARPOS=DATACOUNT-7 ,-14,'KZ\n' +NUMTOSTR(KZ[p] ,2)),COLORWHITE;