打印本文
關(guān)閉窗口
相關(guān)標(biāo)簽:日周月共振公式 、 日周月kdj公式 、 通達(dá)信日周月macd指標(biāo) 、 日周月均線指標(biāo)源碼 、 日周月同現(xiàn)指標(biāo) 、 通達(dá)信日周月kdj指標(biāo) 、 日周月cci指標(biāo)源碼 、 kdj日周月共振指標(biāo) 、 macd日周月共振指標(biāo) 、 日周月共振指標(biāo)系統(tǒng) 、 日周月kdj選股公式 、 日周月共振選股公式 、 kdj日周月選股指標(biāo) 、
?
定點(diǎn)換手日周月年表
{定點(diǎn)換手}
{確定周期參數(shù)}
?
原理解析：
源碼：
?
BZ:=WEEKDAY;ZB:=BZ<REF(BZ,1);Z1:=SUMBARS(ZB,1);ZZ0:=SUMBARS(ZB,2);//周
BY:=MONTH;YB:=BY-REF(BY,1)<>0;Y1:=SUMBARS(YB,1);Y0:=SUMBARS(YB,2);//月
年:=YEAR;FN:=年-REF(年,1)<>0;FN1:=SUMBARS(FN,1);FN0:=SUMBARS(FN,2);//年
QB:=SUMBARS(VOL,CAPITAL);XX:=BACKSET(BARPOS=SYSPARAM(1),QB)*40;QW:=XX>REF(XX,1);
換手:=VOL/CAPITAL*100;
當(dāng)日換:=換手,STICK;
當(dāng)周換:=SUM(VOL,Z1)/CAPITAL*100;
當(dāng)月?lián)Q:=SUM(VOL,Y1)/CAPITAL*100;
當(dāng)季換:=SUM(VOL,J1)/CAPITAL*100;
半年換:=SUM(VOL,N1)/CAPITAL*100;
當(dāng)年換:=SUM(VOL,FN1)/CAPITAL*100;
{16行顯示換手↑↓用}
DJA:=當(dāng)日換[SYSPARAM(1)];DJA1:=當(dāng)日換[(SYSPARAM(1)-1)];DJ1:=IF((DJA>DJA1),'↑','↓');
DJB:=當(dāng)周換[SYSPARAM(1)];DJB1:=當(dāng)周換[(SYSPARAM(1)-1)];DJ2:=IF((DJB>DJB1),'↑','↓');
DJC:=當(dāng)月?lián)Q[SYSPARAM(1)];DJC1:=當(dāng)月?lián)Q[(SYSPARAM(1)-1)];DJ3:=IF((DJC>DJC1),'↑','↓');
DJD:=當(dāng)年換[SYSPARAM(1)];DJD1:=當(dāng)年換[(SYSPARAM(1)-1)];DJ4:=IF((DJD>DJD1),'↑','↓');
{21行圖表部份}
p:=SYSPARAM(1);
DRAWTEXT(c>0 and BARSTATUS=2,-10,''),ColorFFFF00,LINETHICK1,ALIGN2; {表框下限}{48行}
DRAWTEXT(c>0 and BARSTATUS=2, 60,'┏━━━┱─────┬─────┬─────┬─────┐'),Color00AAAA,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2, 50,'┃ ┃ │ │ │ │'),Color00AAAA,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2, 40,'┠───╂─────┼─────┼─────┼─────┤'),Color00AAAA,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2, 30,'┃ ┃ │ │ │ │'),Color00AAAA,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2, 20,'┗━━━┹─────┴─────┴─────┴─────┘'),Color00AAAA,SHIFT3,ALIGN2;
{第29行}
DRAWTEXT(c>0 and BARSTATUS=2,50,'周期:當(dāng)日換手率: 當(dāng)周換手率: 當(dāng)月?lián)Q手率: 當(dāng)年換手率: '),ColorDEDEDE,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,'值: '),ColorDEDEDE,SHIFT3,ALIGN2;
{32行}
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(當(dāng)日換[P],2)+DJ1+' '),COLORWHITE,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(當(dāng)周換[P],2)+DJ2+' '),COLORWHITE,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(當(dāng)月?lián)Q[P],2)+DJ3+' '),COLORWHITE,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(當(dāng)年換[P],2)+DJ4+' '),COLORWHITE,SHIFT3,ALIGN2;
{37行}
?
公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】
?