设为首页收藏本站

 找回密码
 注册
查看: 1850|回复: 3
打印 上一主题 下一主题

求助管理员,关于跨周期问题 [复制链接]

Rank: 7Rank: 7Rank: 7

精华
0
UID
113242
积分
3506
帖子
97
主题
11
阅读权限
80
注册时间
2012-10-31
最后登录
2013-6-4
跳转到指定楼层
1#
发表于 2013-1-18 02:37:02 |只看该作者 |倒序浏览
研究了下Nopain老大的方法 通过建立TranminsData 来建立跨周期均线,和通过读写文件来调用跨周期数据 ,,,  发现还是解决不了我的问题,,,我由于公式编写需要—— 需要求大周期N根bar的最高点、最低点、最高收盘价和最低收盘价;不过这跟N需要参数优化,,,该如何编写。。。

Rank: 7Rank: 7Rank: 7

精华
0
UID
113242
积分
3506
帖子
97
主题
11
阅读权限
80
注册时间
2012-10-31
最后登录
2013-6-4
2#
发表于 2013-1-18 02:39:50 |只看该作者
比如我的公式为了避免出现信号闪烁问题,,想在1分钟图上跑,,但是用到5Min前Nbar的最高最低点,,该如何编写,
自己尝试着编写,,不知道错在哪里,请老大指点
Params
        Numeric Length(10);
Vars
        NumericSeries MyOpen;
        NumericSeries MyHigh;
        NumericSeries MyLow;
        NumericSeries MyClose;
        
        
        Numeric HH(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");
        
        For i = Length-1 DownTo 0
        {
                Value1 = TransMinsData(MyHigh,5,i);
                HH =Max( HH , Value1);
        }Return;
               
        PlotNumeric("HH",HH);
End

使用道具 举报

Rank: 7Rank: 7Rank: 7

精华
0
UID
113242
积分
3506
帖子
97
主题
11
阅读权限
80
注册时间
2012-10-31
最后登录
2013-6-4
3#
发表于 2013-1-18 02:43:59 |只看该作者
还有 跨周期 读写文件能在指点文件输出数据,但是调用的时候又调用不出来。。。错误在哪里?求教
Vars
        string strkey;
        string strValue1;
                string strValue2;
                string strValue3;
                string strValue4;
Begin
        strKey = DateTimeToString(Date+Time);//索引 目录
               
        strValue1 = Text(High);
                SetTBProfileString2File("F:\\数据\\My5MinsHigh.txt","MyHigh",strKey,strValue1);
                PlotNumeric("MyHigh",High);

        strValue2 = Text(Low);
                SetTBProfileString2File("F:\\数据\\My5MinsLow.txt","Mylow",strKey,strValue2);
                PlotNumeric("Mylow",Low);

            strValue3 = Text(Close);
                SetTBProfileString2File("F:\\数据\\My5MinsClose.txt","MyClose",strKey,strValue3);
                PlotNumeric("MyClose",Close);
               
        strValue4= Text(Open);
                SetTBProfileString2File("F:\\数据\\My5MinsOpen.txt","MyOpen",strKey,strValue4);
                PlotNumeric("MyOpen",Open);
End   
  这能正常的输出出来。。但是下面的读写又读不出来,,
Vars
        NumericSeries OpenValue;
        StringSeries strKey;
        string strValue;
Begin
        
                If(IntPart(Minute%5)==0)
                  {
                  strKey = DateToString(Date+Time);
                   }Else
                  {
                  strKey =strKey[1];
                  }
        
        strValue = GetTBProfileString2File("F:\\数据\\My5MinsOpen.txt","MyOpen",strKey);
        If(strValue != InvalidString)
        {
                OpenValue = Value(strValue);
        }Else
        {
               OpenValue = OpenValue[1];
        }
        PlotNumeric("My5MinsOpen",OpenValue);
End

使用道具 举报

Rank: 4

精华
0
UID
113600
积分
251
帖子
192
主题
20
阅读权限
50
注册时间
2012-11-20
最后登录
2013-6-7
4#
发表于 2013-1-18 07:44:11 |只看该作者

使用道具 举报

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

bottom

静态版|手机版|联系我们|交易开拓者 ( 粤ICP备07044698   

GMT+8, 2024-5-11 23:04

Powered by Discuz! X2 LicensedChrome插件扩展

© 2011-2012 交易开拓者 Inc.

回顶部