 | |  |  |
飞狐KD_MACD表格14(30_周)2简短中线源码公式:
{KD_表格(30_Z)}
{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,120,50,' '+NUMTOSTR(DR[P],2)+DJ3A),COLORYELLOW;
DRAWTEXTEX(c,0,120,50,' '+NUMTOSTR(DZ[P],2)+DJ4A),COLORYELLOW;
{94行显示K上拐∨}
DRAWTEXTEX(C AND K上拐30[P],0,305,70,'∨'),COLORGREEN;
DRAWTEXTEX(C AND K上拐30[P],0,305,71,'∨'),COLORGREEN;
DRAWTEXTEX(C AND K上拐30[P],0,305,72,'∨'),COLORGREEN;
DRAWTEXTEX(C AND K上拐60[P],0,365,70,'∨'),COLORGREEN;
DRAWTEXTEX(C AND K上拐60[P],0,365,71,'∨'),COLORGREEN;
DRAWTEXTEX(C AND K上拐60[P],0,365,72,'∨'),COLORGREEN;
DRAWTEXTEX(C AND K上拐R[P],0,425,70,'∨'),COLORGREEN;
DRAWTEXTEX(C AND K上拐R[P],0,425,71,'∨'),COLORGREEN;
DRAWTEXTEX(C AND K上拐R[P],0,425,72,'∨'),COLORGREEN;
DRAWTEXTEX(C AND K上拐Z[P],0,485,70,'∨'),COLORGREEN;
DRAWTEXTEX(C AND K上拐Z[P],0,485,71,'∨'),COLORGREEN;
DRAWTEXTEX(C AND K上拐Z[P],0,485,72,'∨'),COLORGREEN;
{107行显示K下拐∧}
DRAWTEXTEX(C AND K下拐30[P],0,320,70,'∧'),COLORRED;
DRAWTEXTEX(C AND K下拐30[P],0,320,71,'∧'),COLORRED;
DRAWTEXTEX(C AND K下拐30[P],0,320,72,'∧'),COLORRED;
DRAWTEXTEX(C AND K下拐60[P],0,380,70,'∧'),COLORRED;
DRAWTEXTEX(C AND K下拐60[P],0,380,71,'∧'),COLORRED;
DRAWTEXTEX(C AND K下拐60[P],0,380,72,'∧'),COLORRED;
DRAWTEXTEX(C AND K下拐R[P],0,440,70,'∧'),COLORRED;
DRAWTEXTEX(C AND K下拐R[P],0,440,71,'∧'),COLORRED;
DRAWTEXTEX(C AND K下拐R[P],0,440,72,'∧'),COLORRED;
DRAWTEXTEX(C AND K下拐Z[P],0,500,70,'∧'),COLORRED;
DRAWTEXTEX(C AND K下拐Z[P],0,500,71,'∧'),COLORRED;
DRAWTEXTEX(C AND K下拐Z[P],0,500,72,'∧'),COLORRED;
{120行显示D上拐∨}
DRAWTEXTEX(C AND D上拐30[P],0,305,90,'∨'),COLORGREEN;
DRAWTEXTEX(C AND D上拐30[P],0,305,91,'∨'),COLORGREEN;
DRAWTEXTEX(C AND D上拐30[P],0,305,92,'∨'),COLORGREEN;
DRAWTEXTEX(C AND D上拐60[P],0,365,90,'∨'),COLORGREEN;
DRAWTEXTEX(C AND D上拐60[P],0,365,91,'∨'),COLORGREEN;
DRAWTEXTEX(C AND D上拐60[P],0,365,92,'∨'),COLORGREEN;
DRAWTEXTEX(C AND D上拐R[P],0,425,90,'∨'),COLORGREEN;
DRAWTEXTEX(C AND D上拐R[P],0,425,91,'∨'),COLORGREEN;
DRAWTEXTEX(C AND D上拐R[P],0,425,92,'∨'),COLORGREEN;
DRAWTEXTEX(C AND D上拐Z[P],0,485,90,'∨'),COLORGREEN;
DRAWTEXTEX(C AND D上拐Z[P],0,485,91,'∨'),COLORGREEN;
DRAWTEXTEX(C AND D上拐Z[P],0,485,92,'∨'),COLORGREEN;
{133行显示D下拐∧}
DRAWTEXTEX(C AND D下拐30[P],0,320,90,'∧'),COLORRED;
DRAWTEXTEX(C AND D下拐30[P],0,320,91,'∧'),COLORRED;
DRAWTEXTEX(C AND D下拐30[P],0,320,92,'∧'),COLORRED;
DRAWTEXTEX(C AND D下拐60[P],0,380,90,'∧'),COLORRED;
DRAWTEXTEX(C AND D下拐60[P],0,380,91,'∧'),COLORRED;
DRAWTEXTEX(C AND D下拐60[P],0,380,92,'∧'),COLORRED;
DRAWTEXTEX(C AND D下拐R[P],0,440,90,'∧'),COLORRED;
DRAWTEXTEX(C AND D下拐R[P],0,440,91,'∧'),COLORRED;
DRAWTEXTEX(C AND D下拐R[P],0,440,92,'∧'),COLORRED;
DRAWTEXTEX(C AND D下拐Z[P],0,500,90,'∧'),COLORRED;
DRAWTEXTEX(C AND D下拐Z[P],0,500,91,'∧'),COLORRED;
DRAWTEXTEX(C AND D下拐Z[P],0,500,92,'∧'),COLORRED;
{------------------------------------------------------------------------------------------------------------------------------------------}
{MACD表格(30_Z)}
{148行DIFF数据引用}
DF30:="MACD1.DIFF#MIN30";
DF60:="MACD1.DIFF#MIN60";
DFR :="MACD1.DIFF#DAY";
DFZ :="MACD1.DIFF#WEEK";
{153行DEA数据引用}
DE30:="MACD1.DEA#MIN30";
DE60:="MACD1.DEA#MIN60";
DER :="MACD1.DEA#DAY";
DEZ :="MACD1.DEA#WEEK";
{158行显示DIFF↑↓用}
DJL:=DF30[SYSPARAM(1)];DJL1:=DF30[(SYSPARAM(1)- 1)];DJ11:=IF((DJL>DJL1),'↑','↓');
DJM:=DF60[SYSPARAM(1)];DJM1:=DF60[(SYSPARAM(1)- 1)];DJ12:=IF((DJM>DJM1),'↑','↓');
DJN:=DFR[SYSPARAM(1)] ;DJN1:=DFR[(SYSPARAM(1)- 1)] ;DJ13:=IF((DJN>DJN1),'↑','↓');
DJO:=DFZ[SYSPARAM(1)] ;DJO1:=DFZ[(SYSPARAM(1)- 1)] ;DJ14:=IF((DJO>DJO1),'↑','↓');
{163行显示DEA↑↓用}
DJ1L:=DE30[SYSPARAM(1)];DJ1L1:=DE30[(SYSPARAM(1)- 1)];DJ11A:=IF((DJ1L>DJ1L1),'↑','↓');
DJ1M:=DE60[SYSPARAM(1)];DJ1M1:=DE60[(SYSPARAM(1)- 1)];DJ12A:=IF((DJ1M>DJ1M1),'↑','↓');
DJ1N:=DER[SYSPARAM(1)] ;DJ1N1:=DER[(SYSPARAM(1)- 1)] ;DJ13A:=IF((DJ1N>DJ1N1),'↑','↓');
DJ1O:=DEZ[SYSPARAM(1)] ;DJ1O1:=DEZ[(SYSPARAM(1)- 1)] ;DJ14A:=IF((DJ1O>DJ1O1),'↑','↓');
{168行DIFF上拐数据引用}
DF上拐30:="MACD1.DF上拐#MIN30";
DF上拐60:="MACD1.DF上拐#MIN60";
DF上拐R :="MACD1.DF上拐#DAY";
DF上拐Z :="MACD1.DF上拐#WEEK";
{173行DIFF下拐数据引用}
DF下拐30:="MACD1.DF下拐#MIN30";
DF下拐60:="MACD1.DF下拐#MIN60";
DF下拐R :="MACD1.DF下拐#DAY";
DF下拐Z :="MACD1.DF下拐#WEEK";
{178行DIFF上行数据引用}
DF上行30:="MACD1.DF上行#MIN30";
DF上行60:="MACD1.DF上行#MIN60";
DF上行R :="MACD1.DF上行#DAY";
DF上行Z :="MACD1.DF上行#WEEK";
{183行DIFF下行数据引用}
DF下行30:="MACD1.DF下行#MIN30";
DF下行60:="MACD1.DF下行#MIN60";
DF下行R :="MACD1.DF下行#DAY";
DF下行Z :="MACD1.DF下行#WEEK";
{188行DEA上拐数据引用}
DE上拐30:="MACD1.DE上拐#MIN30";
DE上拐60:="MACD1.DE上拐#MIN60";
DE上拐R :="MACD1.DE上拐#DAY";
DE上拐Z :="MACD1.DE上拐#WEEK";
{193行DEA下拐数据引用}
DE下拐30:="MACD1.DE下拐#MIN30";
DE下拐60:="MACD1.DE下拐#MIN60";
DE下拐R :="MACD1.DE下拐#DAY";
DE下拐Z :="MACD1.DE下拐#WEEK";
{198行DEA上行数据引用}
DE上行30:="MACD1.DE上行#MIN30";
DE上行60:="MACD1.DE上行#MIN60";
DE上行R :="MACD1.DE上行#DAY";
DE上行Z :="MACD1.DE上行#WEEK";
{203行DEA下行数据引用}
DE下行30:="MACD1.DE下行#MIN30";
DE下行60:="MACD1.DE下行#MIN60";
DE下行R :="MACD1.DE下行#DAY";
DE下行Z :="MACD1.DE下行#WEEK";
{208行}{表框部份}
p:=SYSPARAM(1);
DRAWTEXTEX(c,0,225,120 ,'─────────────────────────'),Color00AAAA;
DRAWTEXTEX(c,0,225,140 ,'─────────────────────────'),Color00AAAA;
DRAWTEXTEX(c,0,225,160 ,'─────────────────────────'),Color00AAAA;
DRAWTEXTEX(c,0,225,180 ,'─────────────────────────'),Color00AAAA;
DRAWTEXTEX(c,0,220,101 ,'│ │ │ │ │ │'),Color00AAAA;
DRAWTEXTEX(c,0,220,113 ,'│ │ │ │ │ │'),Color00AAAA;
DRAWTEXTEX(c,0,220,125 ,'│ │ │ │ │ │'),Color00AAAA;
DRAWTEXTEX(c,0,220,137 ,'│ │ │ │ │ │'),Color00AAAA;
DRAWTEXTEX(c,0,220,149 ,'│ │ │ │ │ │'),Color00AAAA;
DRAWTEXTEX(c,0,220,161 ,'│ │ │ │ │ │'),Color00AAAA;
DRAWTEXTEX(c,0,220,174 ,'│ │ │ │ │ │'),Color00AAAA;
DRAWTEXTEX(c,0,220,110,' DIFF:'),ColorDEDEDE;
DRAWTEXTEX(c,0,220,130,' DEA:'),ColorDEDEDE;
DRAWTEXTEX(c,0,220,150,' DIFF拐:'),ColorDEDEDE;
DRAWTEXTEX(c,0,220,170,' DEA拐:'),ColorDEDEDE;
{225行}
DRAWTEXTEX(c,0,120,110,' '+NUMTOSTR(DF30[P],2)+DJ11),COLORWHITE;
DRAWTEXTEX(c,0,120,110,' '+NUMTOSTR(DF60[P],2)+DJ12),COLORYELLOW;
DRAWTEXTEX(c,0,120,110,' '+NUMTOSTR(DFR[P],2)+DJ13),COLORYELLOW;
DRAWTEXTEX(c,0,120,110,' '+NUMTOSTR(DFZ[P],2)+DJ14),COLORYELLOW;
{230行}
DRAWTEXTEX(c,0,120,130,' '+NUMTOSTR(DE30[P],2)+DJ11A),COLORWHITE;
DRAWTEXTEX(c,0,120,130,' '+NUMTOSTR(DE60[P],2)+DJ12A),COLORYELLOW;
DRAWTEXTEX(c,0,120,130,' '+NUMTOSTR(DER[P],2)+DJ13A),COLORYELLOW;
DRAWTEXTEX(c,0,120,130,' '+NUMTOSTR(DEZ[P],2)+DJ14A),COLORYELLOW;
{235行显示DIFF上拐∨}
DRAWTEXTEX(C AND DF上拐30[P],0,305,150,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DF上拐30[P],0,305,151,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DF上拐30[P],0,305,152,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DF上拐60[P],0,365,150,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DF上拐60[P],0,365,151,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DF上拐60[P],0,365,152,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DF上拐R[P],0,425,150,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DF上拐R[P],0,425,151,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DF上拐R[P],0,425,152,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DF上拐Z[P],0,485,150,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DF上拐Z[P],0,485,151,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DF上拐Z[P],0,485,152,'∨'),COLORGREEN;
{248行显示DIFF下拐∧}
DRAWTEXTEX(C AND DF下拐30[P],0,320,150,'∧'),COLORRED;
DRAWTEXTEX(C AND DF下拐30[P],0,320,151,'∧'),COLORRED;
DRAWTEXTEX(C AND DF下拐30[P],0,320,152,'∧'),COLORRED;
DRAWTEXTEX(C AND DF下拐60[P],0,380,150,'∧'),COLORRED;
DRAWTEXTEX(C AND DF下拐60[P],0,380,151,'∧'),COLORRED;
DRAWTEXTEX(C AND DF下拐60[P],0,380,152,'∧'),COLORRED;
DRAWTEXTEX(C AND DF下拐R[P],0,440,150,'∧'),COLORRED;
DRAWTEXTEX(C AND DF下拐R[P],0,440,151,'∧'),COLORRED;
DRAWTEXTEX(C AND DF下拐R[P],0,440,152,'∧'),COLORRED;
DRAWTEXTEX(C AND DF下拐Z[P],0,500,150,'∧'),COLORRED;
DRAWTEXTEX(C AND DF下拐Z[P],0,500,151,'∧'),COLORRED;
DRAWTEXTEX(C AND DF下拐Z[P],0,500,152,'∧'),COLORRED;
{261行显示DEA上拐∨}
DRAWTEXTEX(C AND DE上拐30[P],0,305,170,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DE上拐30[P],0,305,171,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DE上拐30[P],0,305,172,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DE上拐60[P],0,365,170,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DE上拐60[P],0,365,171,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DE上拐60[P],0,365,172,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DE上拐R[P],0,425,170,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DE上拐R[P],0,425,171,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DE上拐R[P],0,425,172,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DE上拐Z[P],0,485,170,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DE上拐Z[P],0,485,171,'∨'),COLORGREEN;
DRAWTEXTEX(C AND DE上拐Z[P],0,485,172,'∨'),COLORGREEN;
{274行显示DEA下拐∧}
DRAWTEXTEX(C AND DE下拐30[P],0,320,170,'∨'),COLORRED;
DRAWTEXTEX(C AND DE下拐30[P],0,320,171,'∧'),COLORRED;
DRAWTEXTEX(C AND DE下拐30[P],0,320,172,'∧'),COLORRED;
DRAWTEXTEX(C AND DE下拐60[P],0,380,170,'∧'),COLORRED;
DRAWTEXTEX(C AND DE下拐60[P],0,380,171,'∧'),COLORRED;
DRAWTEXTEX(C AND DE下拐60[P],0,380,172,'∧'),COLORRED;
DRAWTEXTEX(C AND DE下拐R[P],0,440,170,'∧'),COLORRED;
DRAWTEXTEX(C AND DE下拐R[P],0,440,171,'∧'),COLORRED;
DRAWTEXTEX(C AND DE下拐R[P],0,440,172,'∧'),COLORRED;
DRAWTEXTEX(C AND DE下拐Z[P],0,500,170,'∨'),COLORRED;
DRAWTEXTEX(C AND DE下拐Z[P],0,500,171,'∧'),COLORRED;
DRAWTEXTEX(C AND DE下拐Z[P],0,500,172,'∧'),COLORRED; |
| |  | |  |
|
