飞狐KD表格2 ↑↓源码公式:
{K数据引用}
K01:="KDJ.K#MIN1" ;
K05:="KDJ.K#MIN5" ;
K15:="KDJ.K#MIN15";
K30:="KDJ.K#MIN30";
K60:="KDJ.K#MIN60";
RK :="KDJ.K#DAY" ;
ZK :="KDJ.K#WEEK" ;
YK :="KDJ.K#MONTH";
NK :="KDJ.K#YEAR";
{11行D数据引用}
D01:="KDJ.D#MIN1" ;
D05:="KDJ.D#MIN5" ;
D15:="KDJ.D#MIN15";
D30:="KDJ.D#MIN30";
D60:="KDJ.D#MIN60";
RD :="KDJ.D#DAY" ;
ZD :="KDJ.D#WEEK" ;
YD :="KDJ.D#MONTH";
ND :="KDJ.D#YEAR";
{21行显示K↑↓用}
DJA:=K01[SYSPARAM(1)];DJA1:=K01[(SYSPARAM(1)-1)];DJ1:=IF((DJA>DJA1),'↑','↓');
DJB:=K05[SYSPARAM(1)];DJB1:=K05[(SYSPARAM(1)-1)];DJ2:=IF((DJB>DJB1),'↑','↓');
DJC:=K15[SYSPARAM(1)];DJC1:=K15[(SYSPARAM(1)-1)];DJ3:=IF((DJC>DJC1),'↑','↓');
DJD:=K30[SYSPARAM(1)];DJD1:=K30[(SYSPARAM(1)-1)];DJ4:=IF((DJD>DJD1),'↑','↓');
DJE:=K60[SYSPARAM(1)];DJE1:=K60[(SYSPARAM(1)-1)];DJ5:=IF((DJE>DJE1),'↑','↓');
DJF:=RK[SYSPARAM(1)];DJF1:=RK[(SYSPARAM(1)-1)];DJ6:=IF((DJF>DJF1),'↑','↓');
DJG:=ZK[SYSPARAM(1)];DJG1:=ZK[(SYSPARAM(1)-1)];DJ7:=IF((DJG>DJG1),'↑','↓');
DJH:=YK[SYSPARAM(1)];DJH1:=YK[(SYSPARAM(1)-1)];DJ8:=IF((DJH>DJH1),'↑','↓');
DJI:=NK[SYSPARAM(1)];DJI1:=NK[(SYSPARAM(1)-1)];DJ9:=IF((DJI>DJI1),'↑','↓');
{31行显示D↑↓用}
DJA2:=D01[SYSPARAM(1)];DJAA:=D01[(SYSPARAM(1)- 1)];DJ1A:=IF((DJA2>DJAA),'↑','↓');
DJB2:=D05[SYSPARAM(1)];DJBB:=D05[(SYSPARAM(1)- 1)];DJ2A:=IF((DJB2>DJBB),'↑','↓');
DJC2:=D15[SYSPARAM(1)];DJCC:=D15[(SYSPARAM(1)- 1)];DJ3A:=IF((DJC2>DJCC),'↑','↓');
DJD2:=D30[SYSPARAM(1)];DJDD:=D30[(SYSPARAM(1)- 1)];DJ4A:=IF((DJD2>DJDD),'↑','↓');
DJE2:=D60[SYSPARAM(1)];DJEE:=D60[(SYSPARAM(1)- 1)];DJ5A:=IF((DJE2>DJEE),'↑','↓');
DJF2:=RD [SYSPARAM(1)];DJFF:=RD [(SYSPARAM(1)- 1)];DJ6A:=IF((DJF2>DJFF),'↑','↓');
DJG2:=ZD [SYSPARAM(1)];DJGG:=ZD [(SYSPARAM(1)- 1)];DJ7A:=IF((DJG2>DJGG),'↑','↓');
DJH2:=YD [SYSPARAM(1)];DJHH:=YD [(SYSPARAM(1)- 1)];DJ8A:=IF((DJH2>DJHH),'↑','↓');
DJI2:=ND [SYSPARAM(1)];DJII:=ND [(SYSPARAM(1)- 1)];DJ9A:=IF((DJI2>DJII),'↑','↓');
{41行}{表框部份}
p:=SYSPARAM(1);
DRAWTEXTEX(1,0,65,0 ,'────────────────────────────────────────'),Color00AAAA;
DRAWTEXTEX(1,0,65,20,'────────────────────────────────────────'),Color00AAAA;
DRAWTEXTEX(1,0,65,40,'────────────────────────────────────────'),Color00AAAA;
DRAWTEXTEX(1,0,65,60,'────────────────────────────────────────'),Color00AAAA;
{47行}
DRAWTEXTEX(1,0,60,5 ,'│ │ │ │ │ │ │ │ │ │ │'),Color00AAAA;
DRAWTEXTEX(1,0,60,17,'│ │ │ │ │ │ │ │ │ │ │'),Color00AAAA;
DRAWTEXTEX(1,0,60,29,'│ │ │ │ │ │ │ │ │ │ │'),Color00AAAA;
DRAWTEXTEX(1,0,60,41,'│ │ │ │ │ │ │ │ │ │ │'),Color00AAAA;
DRAWTEXTEX(1,0,60,53,'│ │ │ │ │ │ │ │ │ │ │'),Color00AAAA;
DRAWTEXTEX(1,0,60,10,' 周期: 1 5 15 30 60 日 周 月 年'),ColorDEDEDE;
DRAWTEXTEX(1,0,60,30,' K:'),ColorDEDEDE;
DRAWTEXTEX(1,0,60,50,' D:'),ColorDEDEDE;
{56行}
DRAWTEXTEX(1,0,70,30,' '+NUMTOSTR(K01[P],2)+DJ1),COLORWHITE;
DRAWTEXTEX(1,0,70,30,' '+NUMTOSTR(K05[P],2)+DJ2),COLORWHITE;
DRAWTEXTEX(1,0,70,30,' '+NUMTOSTR(K15[P],2)+DJ3),COLORWHITE;
DRAWTEXTEX(1,0,70,30,' '+NUMTOSTR(K30[P],2)+DJ4),COLORYELLOW;
DRAWTEXTEX(1,0,70,30,' '+NUMTOSTR(K60[P],2)+DJ5),COLORYELLOW;
DRAWTEXTEX(1,0,70,30,' '+NUMTOSTR(RK[P],2)+DJ6),COLORYELLOW;
DRAWTEXTEX(1,0,70,30,' '+NUMTOSTR(ZK[P],2)+DJ7),COLORYELLOW;
DRAWTEXTEX(1,0,70,30,' '+NUMTOSTR(YK[P],2)+DJ8),COLORWHITE;
DRAWTEXTEX(1,0,70,30,' '+NUMTOSTR(NK[P],2)+DJ9),COLORWHITE;
{66行}
DRAWTEXTEX(C,0,70,50,' '+NUMTOSTR(D01[P],2)+DJ1A),COLORWHITE;
DRAWTEXTEX(c,0,70,50,' '+NUMTOSTR(D05[P],2)+DJ2A),COLORWHITE;
DRAWTEXTEX(c,0,70,50,' '+NUMTOSTR(D15[P],2)+DJ3A),COLORWHITE;
DRAWTEXTEX(c,0,70,50,' '+NUMTOSTR(D30[P],2)+DJ4A),COLORYELLOW;
DRAWTEXTEX(c,0,70,50,' '+NUMTOSTR(D60[P],2)+DJ5A),COLORYELLOW;
DRAWTEXTEX(c,0,70,50,' '+NUMTOSTR(RD[P],2)+DJ6A),COLORYELLOW;
DRAWTEXTEX(c,0,70,50,' '+NUMTOSTR(ZD[P],2)+DJ7A),COLORYELLOW;
DRAWTEXTEX(c,0,70,50,' '+NUMTOSTR(YD[P],2)+DJ8A),COLORWHITE;
DRAWTEXTEX(c,0,70,50,' '+NUMTOSTR(ND[P],2)+DJ9A),COLORWHITE
{76行} |
