开拓者期货期权程序化系统交易论坛

标题: 我想编写一个指标 [打印本页]
作者: jiqi    时间: 2007-9-17 23:41:36     标题: 我想编写一个指标

我想编写一个指标，能统计出任何一段BAR数据中阴线和阳线的比例。
请帮忙！
作者: nopain    时间: 2007-9-18 09:47:30

原帖由 jiqi 于 2007-9-17 23:41 发表
我想编写一个指标，能统计出任何一段BAR数据中阴线和阳线的比例。
请帮忙！


对于取指定返回内的阳线，阴线，有两种方式：
一是按照移动平均的方式，传入N值，求最近N个Bar的阴阳线比例。
二是求从第一个Bar以来所有的阴阳线比例。
以下代码用函数来实现取阴阳线个数值，当Length<=0时，按第二种方式处理，否则按第一种方式处理。
用户函数GetMyBars代码如下：
  1. //------------------------------------------------------------------------
  2. // 简称: GetMyBars
  3. // 名称: 获取涨或跌的Bars
  4. // 类别: 用户函数
  5. // 类型: 用户函数
  6. // 输出: 布尔型
  7. //------------------------------------------------------------------------

  9. Params
  10.         Numeric Length(10);
  11.         NumericRef UpBars;
  12.         NumericRef DnBars;
  13. Vars
  14.         NumericSeries Value1(0);
  15.         NumericSeries Value2(0);
  16.         Numeric i;
  17. Begin
  18.         If(Length <= 0)
  19.         {
  20.                 If(CurrentBar == 0)
  21.                 {
  22.                         Value1 = 0;
  23.                         Value2 = 0;
  24.                 }Else
  25.                 {
  26.                         Value1 = Value1[1];
  27.                         Value2 = Value2[1];
  28.                 }

  30.                 If(Close>Open)
  31.                         Value1 = Value1 + 1;
  32.                        
  33.                 If(Close<Open)
  34.                         Value2 = Value2 + 1;
  35.                        
  36.         }Else
  37.         {
  38.                 If ( CurrentBar < Length || Close[Length] == InvalidNumeric || Open[Length] == InvalidNumeric ||
  39.                         Value1[1] == InvalidNumeric || Value2[1] == InvalidNumeric)
  40.                 {
  41.                         for i = 0 to Length - 1
  42.                         {
  43.                                 Value1 = Value1 + IIF(Close[i]>Open[i],1,0);
  44.                                 Value2 = Value2 + IIF(Close[i]<Open[i],1,0);
  45.                         }
  46.                 }Else
  47.                 {
  48.                         Value1 = Value1[1] + IIF(Close>Open,1,0) - IIF(Close[Length]>Open[Length],1,0);
  49.                         Value2 = Value2[1] + IIF(Close<Open,1,0) - IIF(Close[Length]<Open[Length],1,0);
  50.                 }               
  51.         }
  52.                
  53.         UpBars = Value1;
  54.         DnBars = Value2;       
  55.         Return true;
  56. End

  58. //------------------------------------------------------------------------
  59. // 编译版本        GS2004.06.12
  60. // 用户版本        2007/09/18 09:28
  61. // 版权所有        nopain
  62. // 更改声明        TradeBlazer Software保留对TradeBlazer平台
  63. //                        每一版本的TrabeBlazer公式修改和重写的权利
  64. //------------------------------------------------------------------------
复制代码


技术指标jiqi代码如下：
  1. //------------------------------------------------------------------------
  2. // 简称: jiqi
  3. // 名称: 用户指标
  4. // 类别: 技术指标
  5. // 类型: 其它类
  6. // 输出:
  7. //------------------------------------------------------------------------

  9. Params
  10.         Numeric Length(10);
  11. Vars
  12.         Numeric UpCount;
  13.         Numeric DnCount;
  14. Begin
  15.         GetMyBars(Length,UpCount,DnCount);
  16.         PlotNumeric("UpDn",UpCount/DnCount);
  17. End

  19. //------------------------------------------------------------------------
  20. // 编译版本        GS2004.06.12
  21. // 用户版本        2007/09/18 09:25
  22. // 版权所有        nopain
  23. // 更改声明        TradeBlazer Software保留对TradeBlazer平台
  24. //                        每一版本的TrabeBlazer公式修改和重写的权利
  25. //------------------------------------------------------------------------
复制代码
作者: nopain    时间: 2007-9-18 09:48:44

注意，当返回的阴线数量为0时，因为0不能作为除数，所以会出现无效值。
作者: jiqi    时间: 2007-9-19 22:44:17

感谢热心回复、、、、、、
作者: jiqi    时间: 2007-9-19 23:06:28

用户函数编译是出错，RETURN返回值类型不符，
不知什么原因
作者: skywalker    时间: 2007-9-19 23:42:50

原帖由 jiqi 于 2007-9-19 23:06 发表
用户函数编译是出错，RETURN返回值类型不符，
不知什么原因


NOPAIN写的那段例子用户函数返回值是布尔值，所以你在新建用户函数的时候，必须把该函数的返回值选择为布尔值
  1. // 简称: GetMyBars
  2. // 名称: 获取涨或跌的Bars
  3. // 类别: 用户函数
  4. // 类型: 用户函数
  5. // 输出: 布尔型
复制代码
作者: fugongcha    时间: 2018-2-13 09:50:05





欢迎光临 开拓者期货期权程序化系统交易论坛 (http://bbs.tb18.net/) Powered by Discuz! X2