开启辅助访问 切换到宽版

交易危机

 找回密码
 快捷注册(禁q号)

QQ登录

只需一步，快速开始

搜索
交易危机»首页 › 交易讨论 › 量化代码 › 标注历史实体区块改进版显示日图区域
广告位
返回列表 发新帖
查看: 4067|回复: 1
打印 上一主题 下一主题

[其他] 标注历史实体区块改进版显示日图区域

[复制链接]
tianye0328

29

主题

1223

积分

1

精华

初级操盘手

金钱
1223 美元
权重
14 股
跳转到指定楼层
楼主
发表于 2014-3-10 17:40 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
标记周线实体区块H4版:
使用：
1.切换到H4图
2.按ctrl+y显示区间
3.加载指标
----------------------
标记日线实体区块M30版:
使用：
1.切换到M30图
2.按ctrl+y显示区间
3.加载指标
PS:只适合服务器每周5天的平台
颜色可修改
标记日k实体区域30分钟代码：

  2. #property indicator_chart_window
  3. extern color 阳线颜色=C'75,0,0';
  4. extern color 阴线颜色=C'0,0,75';
  5. double DaysOpen,DaysClose;//DaysHigh,DaysLow;
  6. extern int 数量=1000;
  7. //+------------------------------------------------------------------+
  8. //| Custom indicator initialization function                         |
  9. //+------------------------------------------------------------------+
  10. int init()
  11. {
  12.    for(int i=ObjectsTotal();i>=0;i--)
  13.    {
  14.       if(StringFind(ObjectName(i),"标记实体区块M30",0)==0)
  15.       {
  16.          ObjectDelete(ObjectName(i));
  17.          i=ObjectsTotal();
  18.       }
  19.    }
  20.    return(0);
  21. }
  22. //+------------------------------------------------------------------+
  23. //| Custom indicator deinitialization function                       |
  24. //+------------------------------------------------------------------+
  25. int deinit()
  26.   {
  27.    for(int i=ObjectsTotal();i>=0;i--)
  28.    {
  29.       if(StringFind(ObjectName(i),"标记实体区块M30",0)==0)
  30.       {
  31.          ObjectDelete(ObjectName(i));
  32.          i=ObjectsTotal();
  33.       }
  34.    }
  35.    
  36.    return(0);
  37.   }
  38. //+------------------------------------------------------------------+
  39. //| Custom indicator iteration function                              |
  40. //+------------------------------------------------------------------+
  41. int start()
  42. {
  43.    if(Period()!=PERIOD_M30){
  44.       for(int i=ObjectsTotal();i>=0;i--)
  45.       {
  46.          if(StringFind(ObjectName(i),"标记实体区块M30",0)==0)
  47.          {
  48.             ObjectDelete(ObjectName(i));
  49.             i=ObjectsTotal();
  50.          }
  51.       }
  52.       return(0);
  53.    }
  54.    for(int j=1;j<=数量;j++){
  55.       string 当天年月日="";
  56.       当天年月日=TimeYear(iTime(Symbol(),PERIOD_D1,j))+"."+TimeMonth(iTime(Symbol(),PERIOD_D1,j))+"."+TimeDay(iTime(Symbol(),PERIOD_D1,j));
  57.       DaysOpen=iOpen(NULL,PERIOD_D1,j);
  58.       DaysClose=iClose(NULL,PERIOD_D1,j);
  59.       ObjectCreate("标记实体区块M30"+当天年月日,OBJ_RECTANGLE,0,M30中当日首K时间(j),DaysOpen,M30中当日首K时间(j-1),DaysClose);
  60.       ObjectSet("标记实体区块M30"+当天年月日, OBJPROP_BACK, true );
  61.       ObjectSet("标记实体区块M30"+当天年月日, OBJPROP_COLOR, Yellow );
  62.       if(DaysOpen>DaysClose){
  63.          ObjectSet("标记实体区块M30"+当天年月日, OBJPROP_COLOR, 阴线颜色 );
  64.       }
  65.       else if(DaysOpen<DaysClose){
  66.          ObjectSet("标记实体区块M30"+当天年月日, OBJPROP_COLOR, 阳线颜色 );
  67.       }
  68.    }
  69. //END
  70. //----
  71.    return(0);
  72.   }
  73. //+------------------------------------------------------------------+
  74. datetime M30中当日首K时间(int 日K索引){
  75.    datetime 首K时间=0;
  76.    int 首K索引=0;
  77.    for(int j=0;j<48;j++){
  78.       首K索引=iBarShift(Symbol(),PERIOD_M30,iTime(Symbol(),PERIOD_D1,日K索引)+j*30*60,true); //30*60=一个30分钟K的秒数
  79.       if(首K索引!=-1){
  80.          return(iTime(Symbol(),PERIOD_M30,首K索引));
  81.       }
  82.       else if(首K索引==-1){
  83.          //啥也不做，继续下一个循环
  84.       }
  85.    }
  86. }
  87. //无用函数
  88. int M30中当日首K索引(int 日K索引){
  89.    datetime 首K时间=0;
  90.    int 首K索引=0;
  91.    for(int j=0;j<48;j++){
  92.       首K索引=iBarShift(Symbol(),PERIOD_M30,iTime(Symbol(),PERIOD_D1,日K索引)+j*30*60,true);
  93.       if(首K索引!=-1){
  94.          return(首K索引);
  95.       }
  96.       else if(首K索引==-1){
  97.          //啥也不做，继续下一个循环
  98.       }
  99.    }
  100. }
复制代码

标记日k实体区域4h代码：

  2. #property indicator_chart_window
  3. extern color 阳线颜色=C'75,0,0';
  4. extern color 阴线颜色=C'0,0,75';
  5. double WeeksOpen,WeeksClose;
  6. extern int 数量=200;
  7. //+------------------------------------------------------------------+
  8. //| Custom indicator initialization function                         |
  9. //+------------------------------------------------------------------+
  10. int init()
  11. {
  12.    for(int i=ObjectsTotal();i>=0;i--)
  13.    {
  14.       if(StringFind(ObjectName(i),"标记实体区块H4",0)==0)
  15.       {
  16.          ObjectDelete(ObjectName(i));
  17.          i=ObjectsTotal();
  18.       }
  19.    }
  20.    return(0);
  21. }
  22. //+------------------------------------------------------------------+
  23. //| Custom indicator deinitialization function                       |
  24. //+------------------------------------------------------------------+
  25. int deinit()
  26.   {
  27.    for(int i=ObjectsTotal();i>=0;i--)
  28.    {
  29.       if(StringFind(ObjectName(i),"标记实体区块H4",0)==0)
  30.       {
  31.          ObjectDelete(ObjectName(i));
  32.          i=ObjectsTotal();
  33.       }
  34.    }
  35.    
  36.    return(0);
  37.   }
  38. //+------------------------------------------------------------------+
  39. //| Custom indicator iteration function                              |
  40. //+------------------------------------------------------------------+
  41. int start()
  42. {
  43.    if(Period()!=PERIOD_H4){
  44.       for(int i=ObjectsTotal();i>=0;i--)
  45.       {
  46.          if(StringFind(ObjectName(i),"标记实体区块H4",0)==0)
  47.          {
  48.             ObjectDelete(ObjectName(i));
  49.             i=ObjectsTotal();
  50.          }
  51.       }
  52.       return(0);
  53.    }
  54.    for(int j=1;j<=数量;j++){
  55.       string 当天年月日="";
  56.       当天年月日=TimeYear(iTime(Symbol(),PERIOD_W1,j))+"."+TimeMonth(iTime(Symbol(),PERIOD_W1,j))+"."+TimeDay(iTime(Symbol(),PERIOD_W1,j));
  57.       WeeksOpen=iOpen(NULL,PERIOD_W1,j);
  58.       WeeksClose=iClose(NULL,PERIOD_W1,j);
  59.       ObjectCreate("标记实体区块H4"+当天年月日,OBJ_RECTANGLE,0,H4中当周首K时间(j),WeeksOpen,H4中当周首K时间(j-1),WeeksClose);
  60.       ObjectSet("标记实体区块H4"+当天年月日, OBJPROP_BACK, true );
  61.       ObjectSet("标记实体区块H4"+当天年月日, OBJPROP_COLOR, Yellow );
  62.       if(WeeksOpen>WeeksClose){
  63.          ObjectSet("标记实体区块H4"+当天年月日, OBJPROP_COLOR, 阴线颜色 );
  64.       }
  65.       else if(WeeksOpen<WeeksClose){
  66.          ObjectSet("标记实体区块H4"+当天年月日, OBJPROP_COLOR, 阳线颜色 );
  67.       }
  68.    }
  69. //END
  70. //----
  71.    return(0);
  72.   }
  73. //+------------------------------------------------------------------+
  74. datetime H4中当周首K时间(int 周K索引){
  75.    datetime 首K时间=0;
  76.    int 首K索引=0;
  77.    for(int j=0;j<30;j++){
  78.       首K索引=iBarShift(Symbol(),PERIOD_H4,iTime(Symbol(),PERIOD_W1,周K索引)+j*60*60*4,true); //60*60*4=一个H4-K的秒数
  79.       if(首K索引!=-1){
  80.          return(iTime(Symbol(),PERIOD_H4,首K索引));
  81.       }
  82.       else if(首K索引==-1){
  83.          //啥也不做，继续下一个循环
  84.       }
  85.    }
  86. }
复制代码

升级版, k线

标注历史实体区块改进版.rar

2.26 KB, 下载次数: 7, 下载积分: 金钱 -8

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 转播转播 分享分享 分享淘帖 支持支持 保留保留

相关帖子
回复

使用道具 举报

可中文名

122

主题

3万

积分

23

精华

地佐更接地气

大型投行

金钱
30820 美元
权重
870 股
沙发
发表于 2015-12-26 19:22 | 只看该作者
沙发消灭零回复。
如果你认为看懂了市场,那你一定是误解了市场。

市场从来不在乎你、我或任何专家，从不会按照你认为发生什么就应该要发生什么那样。

在市场中赚钱并不容易，但是有可能的，只有把资金、技术、心理这三者和谐地融汇贯通去指导行为，将会走向更加有利可图的交易之路！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 快捷注册(禁q号)

本版积分规则

QQ|黄金吧|黄金论坛|手机版|指标下载|非农|目录|交易危机

版权所有: ©2014-2021 fx3q.com Powered by Discuz! X3
浙ICP备: ICP14039028

浙公网安备 33011802001420号
风险提示：杠杆风险高，交易要谨慎 声明:坛友发言和回复均为个人观点,不代表论坛立场。
若有侵权请联系fx3q@qq.com删除

快速回复 返回顶部 返回列表