求助？？？？？？？？？？？ - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

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

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 求助？？？？？？？？？？？

共有11948人关注过本帖树形打印复制链接主题：求助？？？？？？？？？？？

goldding

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

加好友

发短信

等级：新手上路帖子：45 积分：0 威望：0 精华：0 注册：2014/4/11 12:22:33

求助？？？？？？？？？？？ 发帖心情

Post By：2014/4/11 12:28:47 Post IP：119.139.196.147[只看该作者]

贴子已被锁定

1、当1分价格大于TBP时，开仓做多，条件：5、15分 MACD 趋势向上：绿柱缩短，直到红柱伸长。

2、当1分价格小于TBP时，开仓做空，条件：5、15分 MACD 趋势向下：红柱缩短，直到绿柱伸长。

TBP源代码：

APX:=(H+L+C)/3;
TR0:=MAX(H-L,MAX(ABS(H-REF(C,1)),ABS(L-REF(C,1))));
MF0:=C-REF(C,2);
MF1:=REF(MF0,1);
MF2:=REF(MF0,2);
DIRECT1:=BARSLAST(MF0>MF1 AND MF0>MF2);
DIRECT2:=BARSLAST(MF0<MF1 AND MF0<MF2);
DIRECT0:=IF(DIRECT1<DIRECT2,100,-100);
TBP:REF(REF(C,1)+IF(DIRECT0>50,MIN(MF0,MF1),MAX(MF0,MF1)),1);
多头获利:REF(IF(DIRECT0>50,APX*2-L,DRAWNULL),1),NODRAW;
多头停损:REF(IF(DIRECT0>50,APX-TR0,DRAWNULL),1),NODRAW;
空头回补:REF(IF(DIRECT0<-50,APX*2-H,DRAWNULL),1),NODRAW;
空头停损:REF(IF(DIRECT0<-50,APX+TR0,DRAWNULL),1),NODRAW;

goldding

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

加好友

发短信

等级：新手上路帖子：45 积分：0 威望：0 精华：0 注册：2014/4/11 12:22:33

Post By：2014/4/11 12:31:22 Post IP：119.139.196.147[只看该作者]

请求：写代码，这个程序怎么写？？

qq代人发帖

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

加好友

发短信

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

Post By：2014/4/11 13:49:23 Post IP：116.226.223.13[只看该作者]

编写中，请耐心等待。

goldding

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

加好友

发短信

等级：新手上路帖子：45 积分：0 威望：0 精华：0 注册：2014/4/11 12:22:33

Post By：2014/4/11 13:51:21 Post IP：119.139.196.147[只看该作者]

这样的程序，要配你们什么版本的平台？？？

goldding

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

加好友

发短信

等级：新手上路帖子：45 积分：0 威望：0 精华：0 注册：2014/4/11 12:22:33

Post By：2014/4/11 13:52:53 Post IP：119.139.196.147[只看该作者]

一年租用平台费用多少？？一并告之。

jinzhe

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

加好友

发短信

等级：罗宾汉帖子：46311 积分：50819 威望：0 精华：2 注册：2011/3/23 8:50:25

Post By：2014/4/11 14:01:01 Post IP：58.246.57.26[只看该作者]

这个等写出来后一并回复

金字塔—专业程序化交易量化投资平台

客户服务部

----------------------------------------------------------- 欢迎您参加我公司的技术培训，具体培训需求请发邮件到service@weistock.com

您的宝贵建议或者投诉，请发往邮箱:weiwei@weistock.com

qq代人发帖

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

加好友

发短信

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

Post By：2014/4/11 15:12:24 Post IP：116.226.223.13[只看该作者]

图表程式化交易1800元/年，后台程式化交易8800元/年。

版本功能及费用详情：http://www.weistock.com:8080/page/buy/buy.php

新建公式命名为a 把macd公式写进去另一个公式中用stkindi 引用5分钟 15分钟的macd ,TBP源码您自己写进去

macd_5:stkindi('','a.macd',0,2,-1);
macd_15:stkindi('','a.macd',0,3,-1);

zhang_5:ref(macd_5,3)<ref(macd_5,2) and ref(macd_5,2)<0 and 0<ref(macd_5,1) and ref(macd_5,1)<macd_5;
zhang_15:ref(macd_15,3)<ref(macd_15,2) and ref(macd_15,2)<0 and 0<ref(macd_15,1) and ref(macd_15,1)<macd_15;
die_5:ref(macd_5,3)>ref(macd_5,2) and ref(macd_5,2)>0 and 0>ref(macd_5,1) and ref(macd_5,1)>macd_5;
die_15:ref(macd_15,3)>ref(macd_15,2) and ref(macd_15,2)>0 and 0>ref(macd_15,1) and ref(macd_15,1)>macd_15;

if c>tbp and zhang_5 and zhang_15 then
begin
sellshort(holding<0,holding,market);
buy(holding=0,1,market);
end

if c<tbp and die_5 and die_15 THEN
begin
sell(holding>0,holding,market);
buyshort(holding=0,1,market);
end