跨周期情况下的均线计算。

nopain

使用环境：
基本数据源为1分钟，通过DataConvert可以转化为对应的5分钟数据，有些朋友希望能够在1分钟图里面取道5分钟的数据的均线，效果要和单独使用5分钟的均线一样。为此，提供以下函数。

1、新建一个用户函数，TransMinsData，返回值为数值型。
参数1：要计算的数据源。
参数2：想按N分钟来处理，本例是5分钟，不能大于60。
参数3：希望取多少个N分钟前的数据。

1. Params
   
2.         NumericSeries Price(1);
   
3.         Numeric nMinSet(5);
   
4.         Numeric MinsAgo(2);
   
5. Vars
   
6.         NumericSeries barCnt;
   
7.         NumericSeries MinData;
   
8.         Numeric i;
   
9.         Numeric j;
   
10.         Numeric nIndex(0);
    
11. Begin
    
12.         If(IntPart(Minute%nMinSet)==0)
    
13.         {
    
14.                 barCnt = 1;
    
15.         }Else
    
16.         {
    
17.                 barCnt = barCnt[1] + 1;
    
18.         }
    
19.         MinData = Price;
    
20.                
    
21.         If(MinsAgo == 0)
    
22.         {
    
23.                 return MinData;
    
24.         }Else
    
25.         {
    
26.                 For i = 1 To MinsAgo
    
27.                 {
    
28.                         If( i == 1)
    
29.                         {       
    
30.                                 j = 0;
    
31.                         }Else
    
32.                         {
    
33.                                 j = j + BarCnt[j];                               
    
34.                         }
    
35.                         If (j > CurrentBar ) Return InvalidNumeric;
    
36.                         nIndex = nIndex + BarCnt[j];
    
37.                 }
    
38.                 Return MinData[nIndex];
    
39.         }
    
40. End

复制代码

2、新建一个技术指标，用来举例说明如何使用该函数。
本例是取5分钟的均值((O+H+L+C)/4)的10周期移动平均。

1. Params
   
2.         Numeric Length(10);
   
3. Vars
   
4.         Numeric MyOpen;
   
5.         Numeric MyHigh;
   
6.         Numeric MyLow;
   
7.         Numeric MyClose;
   
8.         NumericSeries MyAvgPrice;
   
9.        
   
10.         Numeric SumValue(0);
    
11.         Numeric Value1;
    
12.         Numeric i;
    
13. Begin
    
14.         MyOpen = DataConvert(Open,"min",5,"Open");
    
15.         MyHigh = DataConvert(High,"min",5,"High");
    
16.         MyLow = DataConvert(Low,"min",5,"Low");
    
17.         MyClose = DataConvert(Close,"min",5,"Close");
    
18.         MyAvgPrice = (MyOpen+MyHigh+MyLow+MyClose)*0.25;
    
19.        
    
20.         For i = Length-1 DownTo 0
    
21.         {
    
22.                 Value1 = TransMinsData(MyAvgPrice,5,i);
    
23.                 SumValue = SumValue + Value1;
    
24.         }
    
25.         PlotNumeric("AvgPrice",SumValue/Length);
    
26. End

复制代码

qq434306968

哎！翻了10页看看，初学者真难啊，估计我这个也是不会有人理了，说真的不如文化，文化半小时解决不解决都有人处理，可是文化用不起啊

qq434306968

这个5分钟周期30日均线怎么就算不出来，5日均线10日均线都算的出来，到30日均线就显示不出来，等半天也没反应，还有指标只计算当天的，以前的也显示不出来要怎么处理

wsjtry

编译不通过？

wwq1989

比如我的策略运行在1小时K线周期里面，但是我想调用日线周期里面的5日、10日、20日均线，代码怎么写

wwq1989

破论坛，连个跨周期怎么写都搜索不到完整的答案，这个论坛有人管？

wangdong1984

用户函数总过不了，                return 返回类型和声明类型不匹配，

LCMing1987

程序是死的，人是活的，跟踪程序每条指令的执行过程，没有搞不明白的程序代码。但要独立做出这么设计精巧，逻辑缜密的程序，确实需要专业知识和智慧

china_lizhi

cjqh60004924 发表于 2016-12-7 00:27
是的 我真是服了  对于我们这些初学者   管理员只要在后面加上一些中文注释  我们就能稍微看明白  就这点 ...

哈哈，我是功德无量喽，其实我们应该感谢楼主nopain

cjqh60004924

china_lizhi 发表于 2016-10-27 22:50
//------------------------------------------------------------------------
// 简称: Test_TransMinsDa ...

是的 我真是服了  对于我们这些初学者   管理员只要在后面加上一些中文注释  我们就能稍微看明白  就这点  都懒得写   这一下 我就明白了   毕竟我们都是消费者  对我们耐心些   开拓者的跨周期 这么复杂   既然不封装一个函数   那就把每个周期的例子都例举一遍 我们学着 也不费事    我就想在1分钟引用15分钟的数据  快2年了  都没弄明白   发帖也没人回复   心里好冷