人人爽天天爽夜夜爽qc-人人爽天天爽夜夜爽曰-人人天天爱天天做天天摸-人人天天夜夜-色网站在线-色网站在线看

您現在的位置：程序化交易>> 期貨公式>> 交易開拓者(TB)>> 開拓者知識>>正文內容

求大神看看跨周期使用是那個地方出現了問題！　[開拓者 TB]

作者：開拓者 TB 來源：cxh99.com 發布時間：2016年02月18日 點擊數： 　【收藏到本網的會員中心】
  • 咨詢內容： 代碼如下：
    1、我在日線上插入的是
    Vars
            string strkeydate;
            Numeric D1;
            NumericSeries short1;
        NumericSeries short2;
        NumericSeries media1;
        NumericSeries media2;
        NumericSeries long1;
        NumericSeries long2;

    Begin
       
            short1=(xaverage(Close,4)+average(Close,8)+average(Close,16))/3;
        short2=(xaverage(Close,6)+average(Close,12)+average(Close,24))/3;
        media1=(xaverage(Close,9)+average(Close,18)+average(Close,36))/3;
        media2=(xaverage(Close,13)+average(Close,26)+average(Close,52))/3;
        long1=(xaverage(Close,18)+average(Close,36)+average(Close,72))/3;
        long2=(xaverage(Close,24)+average(Close,48)+average(Close,96))/3;
           
            PlotNumeric("short1",short1,0,white);
        PlotNumeric("short2",short2,0,DarkMagenta);
        PlotNumeric("media1",media1,0,Blue);
        PlotNumeric("media2",media2,0,Green);
        PlotNumeric("long1",long1,0,Yellow);
        PlotNumeric("long2",long2,0,Red);
           
                if(MarketPosition<>1&&short1[1] > short2[1] and short2[1] > media1[1] and media1[1] > media2[1] and media2[1] > long1[1] and long1[1] > long2[1])
            {
                    D1=1;
            }
        if(MarketPosition<>1&&short1[1] < short2[1] and short2[1] < media1[1] and media1[1] < media2[1] and media2[1] < long1[1] and long1[1] < long2[1])
        {
                   
                    D1=2;
            }
           
            strkeydate = DateToString(Date);
            SetTBProfileString2File("f:\\r.log",Symbol,"1and2:"+strkeydate,Text(D1));
            PlotNumeric("1and2",D1);
    End

    2、我要調用的就是上面的D1的值。
    3、在1小時中執行的代碼是這樣的
    Params
            Numeric Length(14) ;
            Numeric OverSold(30) ;
            Numeric OverBought(70) ;

    Vars
            NumericSeries NetChgAvg( 0 );
            NumericSeries TotChgAvg( 0 );
            Numeric SF( 0 );
            Numeric Change( 0 );       
            Numeric ChgRatio( 0 ) ;
            Numeric RSIValue;
        StringSeries strkeydate;
            StringSeries strkeyhour;
            String dayvalue1;
            NumericSeries H1;
            Numeric HH;
    Begin       
            If(CurrentBar <= Length - 1)
            {
                    NetChgAvg = ( Close - Close[Length] ) / Length ;
                    TotChgAvg = Average( Abs( Close - Close[1] ), Length ) ;
            }Else
            {
                    SF = 1/Length;
                    Change = Close - Close[1] ;
                    NetChgAvg = NetChgAvg[1] + SF * ( Change - NetChgAvg[1] ) ;
                    TotChgAvg = TotChgAvg[1] + SF * ( Abs( Change ) - TotChgAvg[1] ) ;       
            }
           
            If( TotChgAvg <> 0 )
            {
                    ChgRatio = NetChgAvg / TotChgAvg;
            }else
            {
                    ChgRatio = 0 ;
            }       
            RSIValue = 50 * ( ChgRatio + 1 );       
            PlotNumeric("RSI",RSIValue);
            PlotNumeric("超買",OverBought);
            PlotNumeric("超賣",OverSold);
           
            If(date!=date[1])
               strkeydate=DateToString(Date);
            Else
               strkeydate=strkeydate[1];
            If(Hour!=Hour[1])
               strkeyhour=DateToString(Date)+":"+Text(Hour);
            Else
               strkeyhour=strkeyhour[1];

        dayvalue1=GetTBProfileString2File("f:\\r.log","if000","1and2"+strkeydate);
            H1 = Value(dayvalue1);
           
            If(RSIValue>70)
            {
                If(H1==2)
                     {
                        HH=2;
                     }
            }
            If(RSIValue<30)
            {
                 If(H1==1)
                     {
                        HH=1;
                     }
            }
            SetTBProfileString2File("f:\\0.log",Symbol,"1and2:"+strkeyhour,Text(HH));
    End

    4、為什么調用的結果卻老是不對，這問題糾結我快半個月了。救大神幫我解決解決！

     

  • TB技術人員： 本帖最后由 Allin9999 于 2015-12-8 20:39 編輯

    我不知道你具體是什么調用結果不對，粗略看了一下代碼，至少有2個問題：
    （1） 寫入文件和從文件中讀取的代碼沒有完全對應。
    日線寫入到文件的代碼是：SetTBProfileString2File("f:\\r.log",Symbol,"1and2:"+strkeydate,Text(D1));
    小時從文件中讀取的代碼是：dayvalue1=GetTBProfileString2File("f:\\r.log","if000","1and2"+strkeydate);
    寫入時，塊名是Symbol，讀取時的塊名變成了具體的"if000"，這樣的公式只適合if000一個品種。
    然后是鍵名，讀取的代碼少了冒號，"1and2:"，這可能是你調用不到的主要原因。
    （2）存在未來數據調用，主要是這一段代碼沒寫對
             If(date!=date[1])
                strkeydate=DateToString(Date);
             Else
                strkeydate=strkeydate[1];
          正確的寫法應該是：
             If(date!=date[1])
                strkeydate=DateToString(Date[1]);
             Else
                strkeydate=strkeydate[1];
    否則的話，你9點-10點那根小時線可能會讀到當天收盤后的日線數據


     

  • TB客服：
    Allin9999 發表于 2015-12-8 20:36
    我不知道你具體是什么調用結果不對，粗略看了一下代碼，至少有2個問題：
    （1） 寫入文件和從文件中讀取的代 ...

    現在15分鐘上能讀取日線的了，但是1小時的RSI卻讀不出來，檢查了幾遍，不知道問題在那里。現在的代碼是這樣的：
    1、日線插入代碼
    Vars
        string strkeydate;
        NumericSeries pubu1;
        NumericSeries pubu2;
        NumericSeries pubu3;
        NumericSeries pubu4;
        NumericSeries pubu5;
        NumericSeries pubu6;

    Begin
       
        pubu1=(xaverage(Close,4)+average(Close,8)+average(Close,16))/3;
        pubu2=(xaverage(Close,6)+average(Close,12)+average(Close,24))/3;
        pubu3=(xaverage(Close,9)+average(Close,18)+average(Close,36))/3;
        pubu4=(xaverage(Close,13)+average(Close,26)+average(Close,52))/3;
        pubu5=(xaverage(Close,18)+average(Close,36)+average(Close,72))/3;
        pubu6=(xaverage(Close,24)+average(Close,48)+average(Close,96))/3;

        strkeydate=DateToString(Date);
        SetTBProfileString("daypubu","daypubu1:"+strkeydate,Text(pubu1));
        SetTBProfileString("daypubu","daypubu2:"+strkeydate,Text(pubu2));
        SetTBProfileString("daypubu","daypubu3:"+strkeydate,Text(pubu3));
        SetTBProfileString("daypubu","daypubu4:"+strkeydate,Text(pubu4));
        SetTBProfileString("daypubu","daypubu5:"+strkeydate,Text(pubu5));
        SetTBProfileString("daypubu","daypubu6:"+strkeydate,Text(pubu6));

        PlotNumeric("pubu1",pubu1,0,white);
        PlotNumeric("pubu2",pubu2,0,DarkMagenta);
        PlotNumeric("pubu3",pubu3,0,Blue);
        PlotNumeric("pubu4",pubu4,0,Green);
        PlotNumeric("pubu5",pubu5,0,Yellow);
        PlotNumeric("pubu6",pubu6,0,Red);
    End

    2、1小時插入代碼
    Params
            Numeric Length(14) ;
            Numeric OverSold(30) ;
            Numeric OverBought(70) ;

    Vars
            NumericSeries NetChgAvg( 0 );
            NumericSeries TotChgAvg( 0 );
            Numeric SF( 0 );
            Numeric Change( 0 );       
            Numeric ChgRatio( 0 ) ;
            Numeric RSIValue;
        StringSeries strkeydate;

    Begin       
            If(CurrentBar <= Length - 1)
            {
                    NetChgAvg = ( Close - Close[Length] ) / Length ;
                    TotChgAvg = Average( Abs( Close - Close[1] ), Length ) ;
            }Else
            {
                    SF = 1/Length;
                    Change = Close - Close[1] ;
                    NetChgAvg = NetChgAvg[1] + SF * ( Change - NetChgAvg[1] ) ;
                    TotChgAvg = TotChgAvg[1] + SF * ( Abs( Change ) - TotChgAvg[1] ) ;       
            }
           
            If( TotChgAvg <> 0 )
            {
                    ChgRatio = NetChgAvg / TotChgAvg;
            }else
            {
                    ChgRatio = 0 ;
            }       
            RSIValue = 50 * ( ChgRatio + 1 );       
           
            strkeydate=DateToString(Date)+":"+Text(hour);
            SetTBProfileString("HRSI","HourRSI:"+strkeydate,Text(RSIValue));

            PlotNumeric("HourRSI",RSIValue);
            PlotNumeric("超買",OverBought);
            PlotNumeric("超賣",OverSold);
    End

    3、15分鐘插入代碼
    Vars
            NumericSeries Daypubu1;
        NumericSeries Daypubu2;
        NumericSeries Daypubu3;
        NumericSeries Daypubu4;
        NumericSeries Daypubu5;
        NumericSeries Daypubu6;
            NumericSeries HourRSI;
            StringSeries strkeydate;
        StringSeries strkeyhour;
            String dayvalue1;
            String dayvalue2;
            String dayvalue3;
            String dayvalue4;
            String dayvalue5;
            String dayvalue6;
            String Hourvalue;
    Begin
        If(Date!=Date[1])
               strkeydate=DateToString(Date);
            Else
               strkeydate=strkeydate[1];
            If(Hour!=Hour[1])
               strkeyhour=DateToString(Date)+":"+Text(Hour);
            Else
               strkeyhour=strkeyhour[1];
            //讀取日線
            dayvalue1=GetTBProfileString("daypubu","daypubu1:"+strkeydate);
            dayvalue2=GetTBProfileString("daypubu","daypubu2:"+strkeydate);
            dayvalue3=GetTBProfileString("daypubu","daypubu3:"+strkeydate);
            dayvalue4=GetTBProfileString("daypubu","daypubu4:"+strkeydate);
            dayvalue5=GetTBProfileString("daypubu","daypubu5:"+strkeydate);
            dayvalue6=GetTBProfileString("daypubu","daypubu6:"+strkeydate);
        //讀取小時線
            Hourvalue=GetTBProfileString("HRSI","HourRSI:"+strkeydate);
           
            Daypubu1=Value(dayvalue1);
            Daypubu2=Value(dayvalue2);
            Daypubu3=Value(dayvalue3);
            Daypubu4=Value(dayvalue4);
            Daypubu5=Value(dayvalue5);
            Daypubu6=Value(dayvalue6);
            HourRSI=Value(Hourvalue);
           
            PlotNumeric("Dpb1",Daypubu1,0,white);
        PlotNumeric("Dpb2",Daypubu2,0,DarkMagenta);
        PlotNumeric("Dpb3",Daypubu3,0,Blue);
        PlotNumeric("Dpb4",Daypubu4,0,Green);
        PlotNumeric("Dpb5",Daypubu5,0,Yellow);
        PlotNumeric("Dpb6",Daypubu6,0,Red);
               PlotNumeric("HRSI",HourRSI);
    End

    4、現在15分鐘上可以顯示和日線上一樣的線，但是1小時的RSI卻讀不出來。代碼檢查了幾遍不知道問題出在那里。

     

  • 網友回復：
    Allin9999 發表于 2015-12-8 20:36
    我不知道你具體是什么調用結果不對，粗略看了一下代碼，至少有2個問題：
    （1） 寫入文件和從文件中讀取的代 ...

    按你說的改成這樣反而和日線上的數據不一樣了
            If(date!=date[1])
                strkeydate=DateToString(Date[1]);
             Else
                strkeydate=strkeydate[1];
    按原來的寫法就和日線的數據一樣。現在主要是調用1小時的RSI，調不出來

     

  • 網友回復：
    xiaokakaren 發表于 2015-12-9 14:39
    按你說的改成這樣反而和日線上的數據不一樣了
            If(date!=date[1])
                strkeydate=DateTo ...


    在3#的公式中，如果你的1小時線也要寫入數據，并由15分鐘線中讀取。
    那么1小時的公式中，strkeyhour這個鍵名是需要繼續存在的。
    1. strkeyhour=DateToString(Date)+":"+Text(hour);
    2.      SetTBProfileString("HRSI","HourRSI:"+strkeyhour,Text(RSIValue));
    復制代碼同時，在15分鐘的也得要聲明strkeyhour,并賦值
    1.   strkeyhour=DateToString(Date)+":"+Text(hour);
    2.           //讀取小時線
    3.          Hourvalue=GetTBProfileString("HRSI","HourRSI:"+strkeyhour);
    復制代碼就是這個細節，改過來應該就可以取到值了。

 

有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友

可聯系技術人員 QQ: 511411198  點擊這里給我發消息進行 有償 編寫！（不貴！點擊查看價格！）


【字體：小 大】【打印文章】【查看評論】

相關文章

    沒有相關內容
主站蜘蛛池模板： 小娜的荡高h放荡日记 | 在线看的黄色网址 | 免费成人看片 | 国产综合视频在线 | a级精品九九九大片免费看 a级精品国产片在线观看 | 天天拍天天射 | 亚洲三级影视 | 天天拍天天操 | 深夜福利日韩 | 欧美午夜网 | 亚洲国产精品乱码一区二区三区 | 亚洲成人在线播放 | 夜色资源站www国产在线资源 | 国产欧美日韩精品a在线观看高清 | 日本午夜免费福利视频 | av成人在线播放 | 中文字幕在线观看网站 | 久久中文字幕一区二区三区 | 天天操天天舔天天干 | 欧美日韩成人在线 | 第一福利网址导航 | 亚洲一区www | 日日私人影院 | 国产v国产v片大片线观看网站 | bbbb在线视频播放 | 天天插天天透 | 97精品国产高清久久久久蜜芽 | 一级黄色片视频 | 免费精品国产 | 色噜噜狠狠色综合免费视频 | 麻豆按摩| 国产在线不卡免费播放 | 天天色天天干天天 | 日本高清h色视频在线观看 日本妇人成熟免费观看18 | 黄色大片免费网站 | 男女无遮挡毛片免费视频 | 最近高清无吗免费看 | 成年人视频在线免费观看 | 欧美成人观看 | 中文字幕免费 | 欧美一区二区手机在线观看视频 |