打印本文
關(guān)閉窗口
相關(guān)標簽:日周月共振公式 、 日周月kdj公式 、 通達信日周月macd指標 、 日周月均線指標源碼 、 日周月同現(xiàn)指標 、 通達信日周月kdj指標 、 日周月cci指標源碼 、 kdj日周月共振指標 、 macd日周月共振指標 、 日周月共振指標系統(tǒng) 、 日周月kdj選股公式 、 日周月共振選股公式 、 kdj日周月選股指標 、
?
定點換手日周月年表
{定點換手}
{確定周期參數(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;
當日換:=換手,STICK;
當周換:=SUM(VOL,Z1)/CAPITAL*100;
當月?lián)Q:=SUM(VOL,Y1)/CAPITAL*100;
當季換:=SUM(VOL,J1)/CAPITAL*100;
半年換:=SUM(VOL,N1)/CAPITAL*100;
當年換:=SUM(VOL,FN1)/CAPITAL*100;
{16行顯示換手↑↓用}
DJA:=當日換[SYSPARAM(1)];DJA1:=當日換[(SYSPARAM(1)-1)];DJ1:=IF((DJA>DJA1),'↑','↓');
DJB:=當周換[SYSPARAM(1)];DJB1:=當周換[(SYSPARAM(1)-1)];DJ2:=IF((DJB>DJB1),'↑','↓');
DJC:=當月?lián)Q[SYSPARAM(1)];DJC1:=當月?lián)Q[(SYSPARAM(1)-1)];DJ3:=IF((DJC>DJC1),'↑','↓');
DJD:=當年換[SYSPARAM(1)];DJD1:=當年換[(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,'周期:當日換手率: 當周換手率: 當月?lián)Q手率: 當年換手率: '),ColorDEDEDE,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,'值: '),ColorDEDEDE,SHIFT3,ALIGN2;
{32行}
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(當日換[P],2)+DJ1+' '),COLORWHITE,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(當周換[P],2)+DJ2+' '),COLORWHITE,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(當月?lián)Q[P],2)+DJ3+' '),COLORWHITE,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(當年換[P],2)+DJ4+' '),COLORWHITE,SHIFT3,ALIGN2;
{37行}
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?