KD_MACD表格14(30_周)3简短中线

{图表反应的是KD,MACD各周期指标线的数值及上下行和上下拐点.使用,只要移动您的光标,就能找到规律. }
{KD_表格}
{K数据引用}
K30:="KD.K#MIN30";
K60:="KD.K#MIN60";
KR :="KD.K#DAY";
KZ :="KD.K#WEEK";
{7行D数据引用}
D30:="KD.D#MIN30";
D60:="KD.D#MIN60";
DR :="KD.D#DAY";
DZ :="KD.D#WEEK";
{12行显示K↑↓用}
DJC:=K30[SYSPARAM(1)];DJC1:=K30[(SYSPARAM(1)- 1)];DJ1:=IF((DJC>DJC1),'↑','↓');
DJD:=K60[SYSPARAM(1)];DJD1:=K60[(SYSPARAM(1)- 1)];DJ2:=IF((DJD>DJD1),'↑','↓');
DJE:=KR[SYSPARAM(1)] ;DJE1:=KR[(SYSPARAM(1)- 1)] ;DJ3:=IF((DJE>DJE1),'↑','↓');
DJF:=KZ[SYSPARAM(1)] ;DJF1:=KZ[(SYSPARAM(1)- 1)] ;DJ4:=IF((DJF>DJF1),'↑','↓');
{17行显示D↑↓用}
DJC2:=D30[SYSPARAM(1)];DJCC:=D30[(SYSPARAM(1)- 1)];DJ1A:=IF((DJC2>DJCC),'↑','↓');
DJD2:=D60[SYSPARAM(1)];DJDD:=D60[(SYSPARAM(1)- 1)];DJ2A:=IF((DJD2>DJDD),'↑','↓');
DJE2:=DR[SYSPARAM(1)] ;DJEE:=DR[(SYSPARAM(1)- 1)] ;DJ3A:=IF((DJE2>DJEE),'↑','↓');
DJF2:=DZ[SYSPARAM(1)] ;DJFF:=DZ[(SYSPARAM(1)- 1)] ;DJ4A:=IF((DJF2>DJFF),'↑','↓');
{22行K上拐数据引用}
K上拐30:="KD.K上拐#MIN30";
K上拐60:="KD.K上拐#MIN60";
K上拐R :="KD.K上拐#DAY";
K上拐Z :="KD.K上拐#WEEK";
{27行K下拐数据引用}
K下拐30:="KD.K下拐#MIN30";
K下拐60:="KD.K下拐#MIN60";
K下拐R :="KD.K下拐#DAY";
K下拐Z :="KD.K下拐#WEEK";
{32行K上行数据引用}
K上行30:="KD.K上行#MIN30";
K上行60:="KD.K上行#MIN60";
K上行R :="KD.K上行#DAY";
K上行Z :="KD.K上行#WEEK";
{37行K下行数据引用}
K下行30:="KD.K下行#MIN30";
K下行60:="KD.K下行#MIN60";
K下行R :="KD.K下行#DAY";
K下行Z :="KD.K下行#WEEK";
{42行D上拐数据引用}
D上拐30:="KD.D上拐#MIN30";
D上拐60:="KD.D上拐#MIN60";
D上拐R :="KD.D上拐#DAY";
D上拐Z :="KD.D上拐#WEEK";
{47行D下拐数据引用}
D下拐30:="KD.D下拐#MIN30";
D下拐60:="KD.D下拐#MIN60";
D下拐R :="KD.D下拐#DAY";
D下拐Z :="KD.D下拐#WEEK";
{52行D上行数据引用}
D上行30:="KD.D上行#MIN30";
D上行60:="KD.D上行#MIN60";
D上行R :="KD.D上行#DAY";
D上行Z :="KD.D上行#WEEK";
{57行D下行数据引用}
D下行30:="KD.D下行#MIN30";
D下行60:="KD.D下行#MIN60";
D下行R :="KD.D下行#DAY";
D下行Z :="KD.D下行#WEEK";
{62行}{表框部份}
p:=SYSPARAM(1);
DRAWTEXTEX(c,0,225,0  ,'─────────────────────────'),Color00AAAA;
DRAWTEXTEX(c,0,225,20 ,'─────────────────────────'),Color00AAAA;
DRAWTEXTEX(c,0,225,40 ,'─────────────────────────'),Color00AAAA;
DRAWTEXTEX(c,0,225,60 ,'─────────────────────────'),Color00AAAA;
DRAWTEXTEX(c,0,225,80 ,'─────────────────────────'),Color00AAAA;
DRAWTEXTEX(c,0,225,103,'─────────────────────────'),Color00AAAA;
DRAWTEXTEX(c,0,220,5  ,'│        │        │        │        │        │'),Color00AAAA;
DRAWTEXTEX(c,0,220,17 ,'│        │        │        │        │        │'),Color00AAAA;
DRAWTEXTEX(c,0,220,29 ,'│        │        │        │        │        │'),Color00AAAA;
DRAWTEXTEX(c,0,220,41 ,'│        │        │        │        │        │'),Color00AAAA;
DRAWTEXTEX(c,0,220,53 ,'│        │        │        │        │        │'),Color00AAAA;
DRAWTEXTEX(c,0,220,65 ,'│        │        │        │        │        │'),Color00AAAA;
DRAWTEXTEX(c,0,220,77 ,'│        │        │        │        │        │'),Color00AAAA;
DRAWTEXTEX(c,0,220,89 ,'│        │        │        │        │        │'),Color00AAAA;
DRAWTEXTEX(c,0,220,97 ,'│        │        │        │        │        │'),Color00AAAA;
DRAWTEXTEX(c,0,220,10,'    周期:      30分      60分      日        周'),ColorDEDEDE;
DRAWTEXTEX(c,0,220,30,'      K:'),ColorDEDEDE;
DRAWTEXTEX(c,0,220,50,'      D:'),ColorDEDEDE;
DRAWTEXTEX(c,0,220,70,'    K拐:'),ColorDEDEDE;
DRAWTEXTEX(c,0,220,90,'    D拐:'),ColorDEDEDE;
{84行}
DRAWTEXTEX(c,0,120,30,'                              '+NUMTOSTR(K30[P],2)+DJ1),COLORWHITE;
DRAWTEXTEX(c,0,120,30,'                                        '+NUMTOSTR(K60[P],2)+DJ2),COLORYELLOW;
DRAWTEXTEX(c,0,120,30,'                                                  '+NUMTOSTR(KR[P],2)+DJ3),COLORYELLOW;
DRAWTEXTEX(c,0,120,30,'                                                            '+NUMTOSTR(KZ[P],2)+DJ4),COLORYELLOW;
{89行}
DRAWTEXTEX(c,0,120,50,'                              '+NUMTOSTR(D30[P],2)+DJ1A),COLORWHITE;
DRAWTEXTEX(c,0,120,50,'                                        '+NUMTOSTR(D60[P],2)+DJ2A),COLORYELLOW;
DRAWTEXTEX(c,0,1