9477 25

[程序化交易] [源码]RENKO(砖形图) [分享]

  • 0关注
  • 1粉丝

禁止发言

学前班

80%

还不是VIP/贵宾

-

威望
0
论坛币
100 个
通用积分
0
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
140 点
帖子
2
精华
0
在线时间
1 小时
注册时间
2015-6-12
最后登录
2015-6-28

红璟技术支持 发表于 2015-6-12 08:47:36 |显示全部楼层

本帖隐藏的内容

  1. public class RENKO : IndicatorBase
  2.      {
  3.          public double N = 0;
  4.   
  5.          public RENKO()
  6.              : base()
  7.          {
  8.              AddParam("N", "0.02", "0", "100", "", IndicatorParamType.Double);
  9.          }
  10.   
  11.          public override IndicatorPackage Run(IDataProvider DP)
  12.          {
  13.              this.DataProvider = DP;
  14.              DataArray fc = (DataArray)CLOSE.Clone();
  15.              DataArray fo = (DataArray)OPEN.Clone();
  16.              DataArray cc = new DataArray(C.Length, 0.0); cc.SetAttr("LINETHICK0");
  17.              DataArray oo = new DataArray(C.Length, 0.0); oo.SetAttr("LINETHICK0");
  18.              DataArray t1 = new DataArray(C.Length, 0.0);
  19.              DataArray t2 = new DataArray(C.Length, 0.0);
  20.   
  21.              for (int i = 0; i < CLOSE.Length; i++)
  22.              {
  23.                  if (i == 0)
  24.                  {
  25.                      cc = fc;
  26.                      oo = fo;
  27.                  }
  28.                  else
  29.                  {
  30.                      cc = cc[i - 1];
  31.                      oo = oo[i - 1];
  32.   
  33.                      if (fc > cc * (1 + N / 100))
  34.                      {
  35.                          cc = cc[i - 1] * (1 + N / 100);
  36.                          oo = cc[i - 1];
  37.                      }
  38.                      if (fc < oo / (1 + N / 100))
  39.                      {
  40.                          oo = oo[i - 1] / (1 + N / 100);
  41.                          cc = oo[i - 1];
  42.                      }
  43.                      if (oo == oo[i - 1])
  44.                          t1 = t1[i - 1] + 1;
  45.                      if (cc == cc[i - 1])
  46.                          t2 = t2[i - 1] + 1;
  47.                  }
  48.              }
  49.   
  50.              DataArray o1 = REF(oo, t1 + 1);
  51.              DataArray c1 = REF(cc, t2 + 1);
  52.   
  53.              DataArray s1 = STICKLINE(c1 == oo, cc, oo, 8, 1); s1.SetAttrs("COLORRED,BRUSH#FF0000");
  54.              DataArray s2 = STICKLINE(o1 == cc, cc, oo, 8, 1); s2.SetAttrs("COLORGREEN,BRUSH#00FF00");
  55.   
  56.              return new IndicatorPackage(new DataArray[] { s1, s2 }, "");
  57.   
  58.          }
  59.   
  60.          public override string LongName
  61.          {
  62.              get { return "砖型图"; }
  63.          }
  64.   
  65.          public override string Description
  66.          {
  67.              get { return ""; }
  68.          }
  69.      }   
  70.   
  71. ///////////////
复制代码

关键词:Description Indicator PROVIDER provide package public double

已有 2 人评分经验 论坛币 收起 理由
lasgpope + 20 + 20 精彩帖子
fantuanxiaot + 20 + 20 精彩帖子

总评分: 经验 + 40  论坛币 + 40   查看全部评分

本帖被以下文库推荐

stata SPSS
ydb8848 发表于 2015-6-12 08:59:08 |显示全部楼层
用啥软件编的?
回复

使用道具 举报

mike68097 发表于 2015-6-12 11:33:57 |显示全部楼层
回复

使用道具 举报

wangcanjie 发表于 2015-6-12 11:55:01 |显示全部楼层
谢谢分享啊
回复

使用道具 举报

xlpan 发表于 2015-6-12 15:46:39 |显示全部楼层
let me see it
回复

使用道具 举报

千叶月 发表于 2015-6-12 18:37:13 |显示全部楼层
xuexi111111
回复

使用道具 举报

sunyiping 发表于 2015-6-13 04:23:27 |显示全部楼层
学习学习。
回复

使用道具 举报

jgw1213 发表于 2015-6-13 08:22:22 |显示全部楼层
谢谢分享
回复

使用道具 举报

haozizeng 发表于 2015-6-14 20:01:50 |显示全部楼层
非常感谢分享
回复

使用道具 举报

wulinux 发表于 2015-6-15 05:54:15 |显示全部楼层
thanks 看看
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 我要注册

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2020-2-18 19:14