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

jinshuangfu

请教先Nopain,函数TransMinsData是什么意思呢？能不能帮解释下，万分感谢

jinshuangfu

请问版主，复制代码编译，提示错误编号W0201，包含序列函数，可能存在潜在风险，如附件，这个该怎么解决呢？谢谢



Params
        Numeric Length(10);
Vars
        Numeric MyOpen;
        Numeric MyHigh;
        Numeric MyLow;
        Numeric MyClose;
        NumericSeries MyAvgPrice;
        
        Numeric SumValue(0);
        Numeric Value1;
        Numeric i;
Begin
        MyOpen = DataConvert(Open,"min",5,"Open");
        MyHigh = DataConvert(High,"min",5,"High");
        MyLow = DataConvert(Low,"min",5,"Low");
        MyClose = DataConvert(Close,"min",5,"Close");
        MyAvgPrice = (MyOpen+MyHigh+MyLow+MyClose)*0.25;
        
        For i = Length-1 DownTo 0
        {
                Value1 = TransMinsData(MyAvgPrice,5,i);
                SumValue = SumValue + Value1;
        }
        PlotNumeric("AvgPrice",SumValue/Length);
End

gjqh99990750

崇拜，新手学习中。

wangshaoqi123

请问一下，那个transmindate是要实现什么功能

cjqh60004924

怎么感觉  开拓者的跨周期 这么复杂呢  老师们能不能 封装几个函数 直接调用时间函数 就可以跨周期引用

wshj1214

时间来到了2016年，请问下NOPAIN楼主是否还在？求教下现在V5旗舰版中，在小时线上需要知道日线数据有没有更好的办法了

gtja45700670

china_lizhi

zzhong 发表于 2008-12-30 16:53
这样算走完了吧？

Params

?

china_lizhi

//------------------------------------------------------------------------
// 简称: Test_TransMinsData
// 名称: 测试TransMinsData
// 类别: 公式应用
// 类型: 用户应用
// 输出: Void
//------------------------------------------------------------------------
Params
        Numeric nMinSet(5);     //想按N分钟来处理，本例是5分钟，不能大于60
        Numeric MinsAgo(2);    //希望取多少个N分钟前的数据
Vars
        NumericSeries BarCnt;    //bar的数量统计，可回溯
        NumericSeries MinData;  //5分钟数据，可回溯
        NumericSeries MyMinData;
        Numeric i;  //循环变量
        Numeric j;  //中间变量
        Numeric nIndex(0);  //MinData的回溯索引号
        String Mystring;
Begin
        //IntPart 函数： 返回指定实数舍入后的整数值
        //Minute 函数： 返回当前Bar的分钟信息
        //求模运算符%  是指将两个数相除并只返回余数
        //===============计算并记录Bar的根数（从第一根到第五根循环计算并记录）======================
        If(IntPart(Minute%nMinSet)==0) //如果返回指定实数(Minute%nMinSet)舍入后的整数值等于0
        {
                BarCnt = 1; //每当满5分钟、不满下一个1分钟时BarCnt的值恢复为1。
        }Else //即当时间不是5分钟的整数倍时
        {
                BarCnt = BarCnt[1] + 1;
                //nMinSet参数为5时，BarCnt的值依次是1（不满1分钟时）、2、3、4、5（不满5分钟时）
                //BarCnt[1] 的值依次是1、2、3、4——循环往复
        }
        //=====================================================================================
        MinData = Close;
     //======================================================================================           
        If(MinsAgo == 0)
        {
                MyMinData = MinData;
        }Else
        {
                For i = 1 To MinsAgo //
                {
                        If( i == 1) //
                        {        
                                j = 0; //如果j = 0，则BarCnt[j]==BarCnt[0]==1;
                        }Else //
                        {
                                j = j + BarCnt[j]; // j 依次输出1、2、3、4、5——循环往复
                                //BarCnt[j]的输出值是1、1、1、1、1、5、5、5、......、5、                              
                        }
                        If (j > CurrentBar )//前5个Bar的CurrentBar索引值依次是0、1、2、3、4
                        Mystring = "InvalidNumeric";//If (j > CurrentBar )，则前5根1分钟bar上输出无效值
                        nIndex = nIndex + BarCnt[j]; //nIndex的输出值是2、3、4、5、6、6、7、8、9、10、6、7、8、9、10、6、....
                }
                MyMinData = MinData[nIndex];
        }
        //======================================================================================
        FileAppend("e:\TransMinsData.log","==Date=="+Text(Date)+"hour=="+Text(Hour)+"==Minute==" + Text(Minute) + "==BarCnt==" + Text(BarCnt) + "==i==" + Text(i) + "==j==" + Text(j) + "==BarCnt[j]==" + Text(BarCnt[j]) + "==nIndex==" + Text(nIndex)+ "==Mystring==" + Mystring);
End
//------------------------------------------------------------------------
// 编译版本:        2016/10/27 200052
// 内核版本:        V2.3.2.10
// 版权所有        china_lizhi
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TradeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

BennyHuang

翻出老帖，收获颇丰。

请问楼主NoPain， 为何要使用DataConvert？ 我直接使用TransMinsData（Close，5，i）也没有问题。

这里有什么门道吗？求指点！