您现在的位置:程序化交易>> 股票公式>> 其他>> 其他软件公式>>正文内容

定点换手日周月年表[其他软件公式]

相关标签:日周月共振公式 、 日周月kdj公式 、 通达信日周月macd指标 、 日周月均线指标源码 、 日周月同现指标 、 通达信日周月kdj指标 、 日周月cci指标源码 、 kdj日周月共振指标 、 macd日周月共振指标 、 日周月共振指标系统 、 日周月kdj选股公式 、 日周月共振选股公式 、 kdj日周月选股指标 、

 

定点换手日周月年表
{定点换手}
{确定周期参数}

 

原理解析:

BZ赋值:星期
ZB赋值:BZ<1日前的BZ
Z1赋值:ZB累加至1的天数
ZZ0赋值:ZB累加至2的天数
周BY赋值:月份
YB赋值:BY-1日前的BY不等于0
Y1赋值:YB累加至1的天数
Y0赋值:YB累加至2的天数
月年赋值:年份
FN赋值:年-1日前的年不等于0
FN1赋值:FN累加至1的天数
FN0赋值:FN累加至2的天数
年QB赋值:成交量(手)累加至当前流通股本(手)的天数
XX赋值:若BARPOS=SYSPARAM(1)则将最近QB周期置为1*40
QW赋值:XX>1日前的XX
换手赋值:成交量(手)/当前流通股本(手)*100
当日换赋值:换手,STICK
当周换赋值:成交量(手)的Z1日累和/当前流通股本(手)*100
当月换赋值:成交量(手)的Y1日累和/当前流通股本(手)*100
当季换赋值:成交量(手)的J1日累和/当前流通股本(手)*100
半年换赋值:成交量(手)的N1日累和/当前流通股本(手)*100
当年换赋值:成交量(手)的FN1日累和/当前流通股本(手)*100
DJA赋值:当日换[SYSPARAM(1)]
DJA1赋值:当日换[(SYSPARAM(1)-1)]
DJ1赋值:如果(DJA>DJA1),返回'↑',否则返回'↓'
DJB赋值:当周换[SYSPARAM(1)]
DJB1赋值:当周换[(SYSPARAM(1)-1)]
DJ2赋值:如果(DJB>DJB1),返回'↑',否则返回'↓'
DJC赋值:当月换[SYSPARAM(1)]
DJC1赋值:当月换[(SYSPARAM(1)-1)]
DJ3赋值:如果(DJC>DJC1),返回'↑',否则返回'↓'
DJD赋值:当年换[SYSPARAM(1)]
DJD1赋值:当年换[(SYSPARAM(1)-1)]
DJ4赋值:如果(DJD>DJD1),返回'↑',否则返回'↓'
P赋值:SYSPARAM(1)
当满足条件收盘价>0ANDBARSTATUS=2时,在-10位置书写文字,COLORFFFF00,线宽为1,ALIGN2
 当满足条件收盘价>0ANDBARSTATUS=2时,在60位置书写文字,COLOR00AAAA,SHIFT3,ALIGN2
当满足条件收盘价>0ANDBARSTATUS=2时,在50位置书写文字,COLOR00AAAA,SHIFT3,ALIGN2
当满足条件收盘价>0ANDBARSTATUS=2时,在40位置书写文字,COLOR00AAAA,SHIFT3,ALIGN2
当满足条件收盘价>0ANDBARSTATUS=2时,在30位置书写文字,COLOR00AAAA,SHIFT3,ALIGN2
当满足条件收盘价>0ANDBARSTATUS=2时,在20位置书写文字,COLOR00AAAA,SHIFT3,ALIGN2
当满足条件收盘价>0ANDBARSTATUS=2时,在50位置书写文字,COLORDEDEDE,SHIFT3,ALIGN2
当满足条件收盘价>0ANDBARSTATUS=2时,在30位置书写文字,COLORDEDEDE,SHIFT3,ALIGN2
当满足条件收盘价>0ANDBARSTATUS=2时,在30位置书写文字,画白色,SHIFT3,ALIGN2
当满足条件收盘价>0ANDBARSTATUS=2时,在30位置书写文字,画白色,SHIFT3,ALIGN2
当满足条件收盘价>0ANDBARSTATUS=2时,在30位置书写文字,画白色,SHIFT3,ALIGN2
当满足条件收盘价>0ANDBARSTATUS=2时,在30位置书写文字,画白色,SHIFT3,ALIGN2
 

源码:

 


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;
当月换:=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:=当月换[SYSPARAM(1)];DJC1:=当月换[(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,'周期:当日换手率: 当周换手率: 当月换手率: 当年换手率: '),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(当月换[P],2)+DJ3+' '),COLORWHITE,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(当年换[P],2)+DJ4+' '),COLORWHITE,SHIFT3,ALIGN2;
{37行}


 

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程

 

 

有思路,想编写各种指标公式,交易模型,选股公式,还原公式的朋友

可联系技术人员 QQ: 262069696  点击在线交流或微信:cxhjy888 进行 有偿收费 编写!(注:由于人数限制,QQ或微信请选择方便的一个联系我们就行,加好友时请简单备注下您的需求,否则无法通过。谢谢您!)

怎么收费,代编流程等详情请点击查阅!

(注:由于人数限制,QQ或微信请选择方便的一个联系我们就行,加好友时请简单备注下您的需求,否则无法通过。谢谢您!)

 


【字体: 】【打印文章】【查看评论

相关文章

    没有相关内容