我想编写一个指标

jiqi

我想编写一个指标，能统计出任何一段BAR数据中阴线和阳线的比例。
请帮忙！

nopain

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

对于取指定返回内的阳线，阴线，有两种方式：
一是按照移动平均的方式，传入N值，求最近N个Bar的阴阳线比例。
二是求从第一个Bar以来所有的阴阳线比例。
以下代码用函数来实现取阴阳线个数值，当Length<=0时，按第二种方式处理，否则按第一种方式处理。
用户函数GetMyBars代码如下：

1. //------------------------------------------------------------------------
   
2. // 简称: GetMyBars
   
3. // 名称: 获取涨或跌的Bars
   
4. // 类别: 用户函数
   
5. // 类型: 用户函数
   
6. // 输出: 布尔型
   
7. //------------------------------------------------------------------------
   
8. 
   
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.                 }
    
29. 
    
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
    
57. 
    
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. //------------------------------------------------------------------------
   
8. 
   
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
    
18. 
    
19. //------------------------------------------------------------------------
    
20. // 编译版本        GS2004.06.12
    
21. // 用户版本        2007/09/18 09:25
    
22. // 版权所有        nopain
    
23. // 更改声明        TradeBlazer Software保留对TradeBlazer平台
    
24. //                        每一版本的TrabeBlazer公式修改和重写的权利
    
25. //------------------------------------------------------------------------

复制代码

nopain

注意，当返回的阴线数量为0时，因为0不能作为除数，所以会出现无效值。

jiqi

感谢热心回复、、、、、、

jiqi

用户函数编译是出错，RETURN返回值类型不符，
不知什么原因

skywalker

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

NOPAIN写的那段例子用户函数返回值是布尔值，所以你在新建用户函数的时候，必须把该函数的返回值选择为布尔值

1. // 简称: GetMyBars
   
2. // 名称: 获取涨或跌的Bars
   
3. // 类别: 用户函数
   
4. // 类型: 用户函数
   
5. // 输出: 布尔型

复制代码

fugongcha