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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 交易策略发布专区 → 一个简单的MACD日内系统

   

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

  共有47253人关注过本帖树形打印复制链接

主题：一个简单的MACD日内系统
帅哥哟，离线，有人找我吗？
aback
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：426 积分：1074 威望：0 精华：0 注册：2011/10/21 13:03:36 		一个简单的MACD日内系统  发帖心情 Post By：2012/10/13 16:25:47 [显示全部帖子]

input:mm1(4,4,5,1);
input:mm2(4,2,5,1);
input:mm3(5,4,6,1);
input:mm5(200,170,260,10);
input:mm6(7,6,10,1);

runmode:0;
variable:ema12=c,ema26=c,dea=0;
if day<>ref(day,1) then begin
  ema12:=c;
  ema26:=c;
  dea:=0;
end
ema12:=ema12*11/13+c*2/13;
ema26:=ema26*25/27+c*2/27;
diff:ema12-ema26;
dea:=dea*4/5+diff/5;
dea1:dea;
macd:2*(diff-dea),colorstick;
input:shou(2,1,5,1);

TYP:= (HIGH + LOW + CLOSE)/3;
cci:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,6));

开多1:count(diff>ref(diff,1),mm1)=mm1;
开多2:count(macd>ref(macd,1),mm2)=mm2;
开多3:count(diff>dea1,mm3)=mm3;
开多:开多1 AND 开多2 AND 开多3;

开空1:count(diff<ref(diff,1),mm1)=mm1;
开空2:count(macd<ref(macd,1),mm2)=mm2;
开空3:count(diff<dea1,mm3)=mm3;
开空:开空1 AND 开空2 AND 开空3;


平多1:=count(macd<ref(macd,1),mm4)=mm4;
平多2:=cci>mm5;
平空1:=count(macd>ref(macd,1),mm4)=mm4;
平空2:=cci<-mm5;

平多:平多1 or 平多2 or CLOSE<=(ENTERPRICE-mm6); 
平空:平空1 or 平空2 or CLOSE>=(ENTERPRICE+mm6);

 

IF HOLDING>0 AND 平多 THEN SELL(1,0,MARKET);
IF HOLDING>0 AND TIME=151200  THEN SELL(1,0,MARKET);
IF HOLDING<0 AND 平空  THEN SELLSHORT(1,0,MARKET);
IF HOLDING<0 AND TIME=151200  THEN SELLSHORT(1,0,MARKET);
IF HOLDING=0 AND 开多  AND TIME<150900  THEN BUY(1,1,MARKET); 
IF HOLDING=0 AND 开空  AND TIME<150900  THEN BUYSHORT(1,1,MARKET);

 

 

 


此主题相关图片如下：555.jpg
按此在新窗口浏览图片
 回到顶部
帅哥哟，离线，有人找我吗？
aback
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：426 积分：1074 威望：0 精华：0 注册：2011/10/21 13:03:36 		请问为何公式设了导出需要密，实际却不需要密也能导出，  发帖心情 Post By：2012/10/13 21:18:25 [显示全部帖子]

以下是引用Change_1206_在2012-10-13 20:14:57的发言：
你难道没有发现少了定义变量mm4吗？

 

input:mm4(10,8,10,1);

 

不好意思，漏了 ！
 回到顶部
帅哥哟，离线，有人找我吗？
aback
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：426 积分：1074 威望：0 精华：0 注册：2011/10/21 13:03:36 		  发帖心情 Post By：2012/10/13 21:24:18 [显示全部帖子]

重发 ：

 

input:mm1(4,4,5,1);
input:mm2(4,2,5,1);
input:mm3(5,4,6,1);
input:mm4(10,8,10,1);
input:mm5(200,170,260,10);
input:mm6(7,6,10,1);

runmode:0;
variable:ema12=c,ema26=c,dea=0;
if day<>ref(day,1) then begin
  ema12:=c;
  ema26:=c;
  dea:=0;
end
ema12:=ema12*11/13+c*2/13;
ema26:=ema26*25/27+c*2/27;
diff:ema12-ema26;
dea:=dea*4/5+diff/5;
dea1:dea;
macd:2*(diff-dea),colorstick;


TYP:= (HIGH + LOW + CLOSE)/3;
cci:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,6));

开多1:count(diff>ref(diff,1),mm1)=mm1;
开多2:count(macd>ref(macd,1),mm2)=mm2;
开多3:count(diff>dea1,mm3)=mm3;
开多:开多1 AND 开多2 AND 开多3;

开空1:count(diff<ref(diff,1),mm1)=mm1;
开空2:count(macd<ref(macd,1),mm2)=mm2;
开空3:count(diff<dea1,mm3)=mm3;
开空:开空1 AND 开空2 AND 开空3;


平多1:=count(macd<ref(macd,1),mm4)=mm4;
平多2:=cci>mm5;
平空1:=count(macd>ref(macd,1),mm4)=mm4;
平空2:=cci<-mm5;

平多:平多1 or 平多2 or CLOSE<=(ENTERPRICE-mm6); 
平空:平空1 or 平空2 or CLOSE>=(ENTERPRICE+mm6);

 

IF HOLDING>0 AND 平多 THEN SELL(1,0,MARKET);
IF HOLDING>0 AND TIME=151200  THEN SELL(1,0,MARKET);
IF HOLDING<0 AND 平空  THEN SELLSHORT(1,0,MARKET);
IF HOLDING<0 AND TIME=151200  THEN SELLSHORT(1,0,MARKET);
IF HOLDING=0 AND 开多  AND TIME<150900  THEN BUY(1,1,MARKET); 
IF HOLDING=0 AND 开空  AND TIME<150900  THEN BUYSHORT(1,1,MARKET);

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
aback
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：426 积分：1074 威望：0 精华：0 注册：2011/10/21 13:03:36 		  发帖心情 Post By：2012/10/13 21:29:10 [显示全部帖子]

重发：注是3分钟周期。

 

 

input:mm1(4,4,5,1);
input:mm2(4,2,5,1);
input:mm3(5,4,6,1);
input:mm4(10,8,10,1);
input:mm5(200,170,260,10);
input:mm6(7,6,10,1);

runmode:0;
variable:ema12=c,ema26=c,dea=0;
if day<>ref(day,1) then begin
  ema12:=c;
  ema26:=c;
  dea:=0;
end
ema12:=ema12*11/13+c*2/13;
ema26:=ema26*25/27+c*2/27;
diff:ema12-ema26;
dea:=dea*4/5+diff/5;
dea1:dea;
macd:2*(diff-dea),colorstick;


TYP:= (HIGH + LOW + CLOSE)/3;
cci:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,6));

开多1:count(diff>ref(diff,1),mm1)=mm1;
开多2:count(macd>ref(macd,1),mm2)=mm2;
开多3:count(diff>dea1,mm3)=mm3;
开多:开多1 AND 开多2 AND 开多3;

开空1:count(diff<ref(diff,1),mm1)=mm1;
开空2:count(macd<ref(macd,1),mm2)=mm2;
开空3:count(diff<dea1,mm3)=mm3;
开空:开空1 AND 开空2 AND 开空3;


平多1:=count(macd<ref(macd,1),mm4)=mm4;
平多2:=cci>mm5;
平空1:=count(macd>ref(macd,1),mm4)=mm4;
平空2:=cci<-mm5;

平多:平多1 or 平多2 or CLOSE<=(ENTERPRICE-mm6); 
平空:平空1 or 平空2 or CLOSE>=(ENTERPRICE+mm6);

 

IF HOLDING>0 AND 平多 THEN SELL(1,0,MARKET);
IF HOLDING>0 AND TIME=151200  THEN SELL(1,0,MARKET);
IF HOLDING<0 AND 平空  THEN SELLSHORT(1,0,MARKET);
IF HOLDING<0 AND TIME=151200  THEN SELLSHORT(1,0,MARKET);
IF HOLDING=0 AND 开多  AND TIME<150900  THEN BUY(1,1,MARKET); 
IF HOLDING=0 AND 开空  AND TIME<150900  THEN BUYSHORT(1,1,MARKET);

 

 

 

 


此主题相关图片如下：666.jpg
按此在新窗口浏览图片
版主评定：好评，获得4个金币奖励好评，获得4个金币奖励
(理由：好文章)
 回到顶部
帅哥哟，离线，有人找我吗？
aback
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：426 积分：1074 威望：0 精华：0 注册：2011/10/21 13:03:36 		  发帖心情 Post By：2012/10/13 21:32:36 [显示全部帖子]

以下是引用jzt3321在2012-10-13 20:51:19的发言：
这种没有回撤的图线 不可靠吧

 

 

20% ，6.8万的回撤还不高？呵呵！

 

这个模型其实几个月前就弄好了，现在看看虽然回撤大点，但资金线还是能往上的，关键是程序简单，提供一个思路，说不定那位修修补补，还能弄得更好也说不准！
 回到顶部
帅哥哟，离线，有人找我吗？
aback
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：426 积分：1074 威望：0 精华：0 注册：2011/10/21 13:03:36 		  发帖心情 Post By：2012/10/14 7:52:01 [显示全部帖子]

声明一下,前半部分是"阿火"的专利,感谢一下!

 

阿火源码:

十一、日内重新计算指标（macd）的方法，以避免跳空对指标造成的影响。

这里顺带介绍一下日内重新计算指标的方法，这样可以避免跳空对指标造成的影响。

比较难的是macd，kdj之类的，均线之类的简单

这里依然以macd为例

runmode:0;

variable:ema12=c,ema26=c,dea=0;

if day<>ref(day,1) then begin

ema12:=c;

ema26:=c;

dea:=0;

end

ema12:=ema12*11/13+c*2/13;

ema26:=ema26*25/27+c*2/27;

diff:ema12-ema26;

dea:=dea*4/5+diff/5;
dea1:dea;

macd:2*(diff-dea),colorstick;

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
aback
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：426 积分：1074 威望：0 精华：0 注册：2011/10/21 13:03:36 		  发帖心情 Post By：2012/10/14 13:58:11 [显示全部帖子]

以下是引用xxb398在2012-10-14 10:37:05的发言：
谢谢LZ分享，测试正常，但图表交易信号出不来呢？

 

我的都有阿,代码都一样的啊!

 

 


图片点击可在新窗口打开查看此主题相关图片如下：777.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
aback
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：426 积分：1074 威望：0 精华：0 注册：2011/10/21 13:03:36 		  发帖心情 Post By：2012/10/14 14:01:31 [显示全部帖子]

以下是引用jzt3321在2012-10-14 13:20:03的发言：
不是说不高，是这种没有回撤的指标 你实盘敢用吗？

 

这个不太懂,回撤指标在测试里不是都有吗?

我虽然实盘不用这个模型,但实际回撤和测试结果也是一样的.
 回到顶部
帅哥哟，离线，有人找我吗？
aback
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：426 积分：1074 威望：0 精华：0 注册：2011/10/21 13:03:36 		  发帖心情 Post By：2013/3/13 12:41:57 [显示全部帖子]

以下是引用萧峰在2013-3-12 20:32:58的发言：
variable:ema12=c,ema26=c,dea=0;
if day<>ref(day,1) then begin
  ema12:=c;
  ema26:=c;
  dea:=0;
end
ema12:=ema12*11/13+c*2/13;
ema26:=ema26*25/27+c*2/27;

能不能解释一下这一段，看了两天没看懂，谢谢！
 
 
见8楼！
 回到顶部
帅哥哟，离线，有人找我吗？
aback
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：426 积分：1074 威望：0 精华：0 注册：2011/10/21 13:03:36 		  发帖心情 Post By：2013/3/13 12:48:02 [显示全部帖子]

最新的走势，程序一个字没改。

 

 


图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.26563 秒, 6 次数据查询