我想去当前k线周期，怎么写？ - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 我想去当前k线周期，怎么写？

共有4276人关注过本帖树形打印复制链接主题：我想去当前k线周期，怎么写？

qq代人发帖

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：18691 积分：0 威望：0 精华：0 注册：2013/7/15 9:22:16

我想去当前k线周期，怎么写？ 发帖心情

Post By：2020/2/17 14:31:23 Post IP：101.87.174.215[只看该作者]

我想去当前k线周期，怎么写？

Zq:DATATYPE,noaxis; {取当前k线周期}
{返回值范围为0-19，分别表示
0:分笔成交、1:1分钟、2:5分钟、3:15分钟、4:30分钟、5:60分钟、
6:日、7:周、8:月、9:年、10:多日、11:多小时、12:季度、
13:多分钟、14:多秒、15:半年线、16:节气线、17:3分钟、18:10分钟、19:多笔线;}

这个转换成分钟数字。只要 1分钟到240分钟到周期数字就好了。

wenarm

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：26632 积分：0 威望：0 精华：7 注册：2015/4/9 14:59:07

Post By：2020/2/17 14:36:26 Post IP：180.169.30.6[只看该作者]

这段枚举的代码你自己在里面摘取你要的部分。

IF DATATYPE=0 THEN 分笔:1;
IF DATATYPE=1 THEN 1分钟:1;
IF DATATYPE=2 THEN 5分钟:5;
IF DATATYPE=3 THEN 15分钟:15;
IF DATATYPE=4 THEN 30分钟:30;
IF DATATYPE=5 THEN 60分钟:60;
IF DATATYPE=6 THEN 日:1;
IF DATATYPE=7 then 周:1;
IF DATATYPE=8 then 月:1;
IF DATATYPE=9 THEN 年:1;
IF DATATYPE=12 THEN 季度:1;
IF DATATYPE=15 THEN 半年:1;
IF DATATYPE=16 then 节气:1;
IF DATATYPE=17 THEN 3分钟:3;
IF DATATYPE=18 THEN 10分钟:10;
IF DATATYPE=10 THEN N日:DATATYPEMORE(0);
IF DATATYPE=11 THEN N小时:DATATYPEMORE(1);
IF DATATYPE=13 THEN N分钟:DATATYPEMORE(2);
IF DATATYPE=14 THEN N秒:DATATYPEMORE(3);
IF DATATYPE=19 THEN N笔:DATATYPEMORE(4);

编程无捷径，技巧靠积累。

ma-robot

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：83 积分：0 威望：0 精华：0 注册：2020/2/12 18:02:45

Post By：2020/2/17 14:38:10 Post IP：112.240.70.6[只看该作者]

以下是引用wenarm在2020/2/17 14:36:26的发言：

这段枚举的代码你自己在里面摘取你要的部分。

多谢

FireScript

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：14496 积分：0 威望：0 精华：0 注册：2017/7/4 13:40:18

Post By：2020/2/17 14:38:53 Post IP：183.194.169.168[只看该作者]

没有函数直接取。

保证足够数据情况下。下面代码可直接计算出周期对应的秒数。

aa:=VALUEWHEN(TODAYBAR=1,time);

bb:=VALUEWHEN(TODAYBAR=2,time);

M1:TIMETOT0(BB)- TIMETOT0(aa);//转换成秒。五分钟周期返回值是300，1分钟周期返回的是60

命数如织，当如磐石。

ma-robot

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：83 积分：0 威望：0 精华：0 注册：2020/2/12 18:02:45

Post By：2020/2/17 15:02:51 Post IP：180.169.30.6[只看该作者]

cyc:BARSLAST(DATE<>REF(DATE,1))+1,noaxis;{有效数据区间}

Jy:=IF(high-low=0 or vol=0,0,1),noaxis; {涨停无交易或者停牌状态}

Tk:=TIME>OPENTIME(1) AND TIME=CLOSETIME(0)-10*100,noaxis; {累计交易时间}

IF DATATYPE=0 THEN 分笔:1;

IF DATATYPE=1 THEN 1分钟:1;

IF DATATYPE=2 THEN 5分钟:5;

IF DATATYPE=3 THEN 15分钟:15;

IF DATATYPE=4 THEN 30分钟:30;

IF DATATYPE=5 THEN 60分钟:60;

IF DATATYPE=6 THEN 日:1;

IF DATATYPE=7 then 周:1;

IF DATATYPE=8 then 月:1;

IF DATATYPE=9 THEN 年:1;

IF DATATYPE=12 THEN 季度:1;

IF DATATYPE=15 THEN 半年:1;

IF DATATYPE=16 then 节气:1;

IF DATATYPE=17 THEN 3分钟:3;

IF DATATYPE=18 THEN 10分钟:10;

IF DATATYPE=10 THEN N日:DATATYPEMORE(0);

IF DATATYPE=11 THEN N小时:DATATYPEMORE(1);

IF DATATYPE=13 THEN N分钟:DATATYPEMORE(2);

IF DATATYPE=14 THEN N秒:DATATYPEMORE(3);

IF DATATYPE=19 THEN N笔:DATATYPEMORE(4);

OpenMIN1:="$Open#MIN1"; {当前一分钟开盘价}

OpenDAY:="$Open#DAY"; {当日开盘价}

OpenStart:=IF(OpenMIN1=OpenDAY,1,0); {日开盘价=分钟开盘价}

Ost:=FILTER(OpenStart,cyc); {第一个分钟开盘交易数据有效}

SELL(Ts=1,HOLDING,MARKETR);

SELLSHORT(Ts=1,HOLDING,MARKETR);

BUY(Ost=1 and Tk=1 AND Jy=1 and cyc>=1,1,MARKETR);

BUYSHORT(Ost=1 and Tk=1 AND Jy>=1 and cyc>=1,1,MARKETR);

上面我写的开盘买收盘卖，1分钟正常，其他周期就不正常了，怎么解决？最近几天停盘造成的。

ma-robot

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：83 积分：0 威望：0 精华：0 注册：2020/2/12 18:02:45

Post By：2020/2/17 15:07:04 Post IP：180.169.30.6[只看该作者]

cyc:BARSLAST(DATE<>REF(DATE,1))+1,noaxis;{有效数据区间}

Jy:=IF(high-low=0 or vol=0,0,1),noaxis; {涨停无交易或者停牌状态}

Tk:=TIME>OPENTIME(1) AND TIME=CLOSETIME(0)-10*100,noaxis; {累计交易时间}

OpenMIN1:="$Open#MIN1"; {当前一分钟开盘价}

OpenDAY:="$Open#DAY"; {当日开盘价}

OpenStart:=IF(OpenMIN1=OpenDAY,1,0);

{日开盘价=分钟开盘价} Ost:=FILTER(OpenStart,cyc); {第一个分钟开盘交易数据有效}

SELL(Ts=1,HOLDING,MARKETR);

SELLSHORT(Ts=1,HOLDING,MARKETR);

BUY(Ost=1 and Tk=1 AND Jy=1 and cyc>=1,1,MARKETR);

BUYSHORT(Ost=1 and Tk=1 AND Jy>=1 and cyc>=1,1,MARKETR); ????奇怪了，我怎么编辑也不能分行？？？

FireScript

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：14496 积分：0 威望：0 精华：0 注册：2017/7/4 13:40:18

Post By：2020/2/17 15:20:28 Post IP：183.194.169.168[只看该作者]

你把开平的控制变量都单独输出在图表上看下排查下。

而且你这里开盘买收盘卖的控制逻辑没太看懂。

命数如织，当如磐石。

ma-robot

小大 8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：83 积分：0 威望：0 精华：0 注册：2020/2/12 18:02:45

Post By：2020/2/17 18:28:26 Post IP：112.240.70.6[只看该作者]

这个就是一个框架，为了能运行起来，用开盘买收盘卖了，后面写风控，不用指标进行判断，直接使用持仓成本进行计算。幽灵交易。随机交易，持仓成本仓控，多空同时进入。

ma-robot

小大 9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：83 积分：0 威望：0 精华：0 注册：2020/2/12 18:02:45

Post By：2020/2/17 18:37:52 Post IP：112.240.70.6[只看该作者]

Zq1:=IF(DATATYPE=1,1,0);{1·??ó} Zq3:=IF(DATATYPE=17,3,0);{3·??ó} Zq5:=IF(DATATYPE=2,5,0);{5·??ó} Zq10:=IF(DATATYPE=18,10,0);{10·??ó} Zq15:=IF(DATATYPE=3,15,0);{15·??ó} Zq30:=IF(DATATYPE=4,30,0);{30·??ó} Zq60:=IF(DATATYPE=5,60,0);{60·??ó} ZqF:=IF(DATATYPE=13,DATATYPEMORE(2),0);{?à·??ó} ZqH:=IF(DATATYPE=11,DATATYPEMORE(1)*60,0);{?àD?ê±} Zq:Zq1+Zq3+Zq5+Zq10+Zq15+Zq30+Zq60+ZqF+ZqH,noaxis;{è?μ?±?K??·?ê±?ü?ú·??ó} cyc:BARSLAST(DATE<>REF(DATE,1))+1,noaxis;{×ü??ò×ê±3¤} Jy:IF(high-low=0 and vol=0,0,1),noaxis; {??μ?í￡/?T??ò×/í￡??×′ì?} Tk:TIME>OPENTIME(1) AND TIME=CLOSETIME(0)-10*100,noaxis; {à?????ò×ê±??} F:="Zq";{K???ü?ú·??ó????} OpenMIN1:="$Open#MINF"; {μ±?°·??ó?ü?ú?a?ì??} OpenDAY:="$Open#DAY"; {μ±è??a?ì??} OpenStart:=IF(OpenMIN1=OpenDAY,1,0); {è??a?ì??=·??ó?a?ì??} Ost:=FILTER(OpenStart,cyc); {μúò???·??ó?a?ì??ò×êy?YóDD§} 我从虚拟机复制出来的，中文乱码先不管她了，老师帮忙看看有没有问题。多谢

ma-robot

小大 10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：83 积分：0 威望：0 精华：0 注册：2020/2/12 18:02:45

Post By：2020/2/17 18:46:47 Post IP：112.240.70.6[只看该作者]

这个框架，目前看，能支持的周期是1 3 5 10 15 30 60 多分钟多小时。开盘买收盘卖。自动计算当前k线周期，分时盘口这个有点问题，30s好像没有大问题。日线k线不支持。开盘买以后改成虚拟开盘开仓转入持仓成本计算的仓控去。收盘卖以后改成收盘风控进行日内调仓到安全距离。目前不支持的就是开盘同时开一个空和一个多。收盘平空同时平多。这个不知道怎么解决。金字塔图表交易支持不？或者有其他方法进行多空双开的交易方式？我不想用后台，那个不好观察进行调控。实在不行分拆成两个框架，一个空策略，一个多策略，同时跑两个账户进行交易。这个是最后方案。请老师看看，有没有bug在。多谢

下一主题 >> << 上一主题

总数 11 1 2 下一页

RSS2.0 | Xhtml无图版 | Xslt无图版 Powered By weistock 2012
页面执行时间 0.09375 秒, 6 次数据查询

主题：我想去当前k线周期，怎么写？