1、TB跨周期、跨品種調用數(shù)據(jù)的實現(xiàn)方法 編輯課件關于跨周期使用算法整合當前周期上的bar數(shù)據(jù)，取得相應周期的bar數(shù)據(jù)。(難)學習請點擊我使用函數(shù)DataConvert。使用數(shù)據(jù)庫SetTBProfileString、GetTBProfileString.編輯課件寫公式信息文件SetTBProfileString寫入Bool SetTBProfileString(String strSection,String strKey,String strValue)GetTBProfileString讀取String GetTBProfileString(String strSection,String

2、 strKey)strSection：塊名strKey：鍵名strValue：存儲值編輯課件圖表1圖表2圖表3編輯課件跨周期舉例（一）以5分鐘周期調用日線指標數(shù)據(jù)舉例講解具體應用。編輯課件操作步驟一1、新建一個工作區(qū)，包含上下兩個圖表窗體，上面選擇日線周期，下面選擇5分鐘周期。編輯課件操作步驟二2、新建一個技術指標，命名為MyDayMA。編譯成功后插入日線圖表中。詳細代碼ParamsNumeric length(10);VarsNumeric MA;string strkey;string strValue;BeginMA = AverageFC(Close,length);strKey =

3、DateToString(Date);strValue = Text(MA); SetTBProfileString(DayMA,strKey,strValue);PlotNumeric(MA,MA);End編輯課件操作步驟三3、新建一個技術指標，My5MinMA。編譯成功后插入5分鐘圖表中。編輯課件VarsNumericSeries DayMAValue;StringSeries strKey;string strValue;BeginIf(Date!=Date1)strKey = DateToString(Date1);ElsestrKey = strKey1;strValue = Get

4、TBProfileString(DayMA,strKey);If(strValue != InvalidString)DayMAValue = Value(strValue);ElseDayMAValue = DayMAValue1;PlotNumeric(DayMA,DayMAValue);End步驟三 詳細代碼編輯課件跨周期例子(一)上圖為日線圖下圖為5分鐘圖從五分鐘上讀取日線圖上的MA數(shù)據(jù)編輯課件跨品種、跨周期例子（二）在1分鐘線上取得1小時和日線周期舉例講解具體應用。編輯課件操作步驟一1、新建一個工作區(qū)，包含上下三個圖表窗體，上面左邊選擇股指指數(shù)日線，上面右邊選擇股指指數(shù)小時線，下面選

5、擇1分鐘股指IF1101周期。編輯課件操作步驟二2、新建一個技術指標，命名為DayLine。編譯成功后插入日線圖表中。Params Numeric length(10); Numeric length1(10); Numeric length2(20);Vars Numeric MA1; Numeric MA2; string strkeyDate;Begin MA1 = AverageFC(Close,length1); MA2 = AverageFC(Close,length2); strKeyDate = DateToString(Date);SetTBProfileString(Sym

6、bol,DayMA1:+strKeyDate,Text(MA1);SetTBProfileString(Symbol,DayMA2:+strKeyDate,Text(MA2); PlotNumeric(DayMA1,MA1); PlotNumeric(DayMA2,MA2);End編輯課件操作步驟三3、新建一個技術指標，HourLine。編譯成功后插入小時線圖表中。編輯課件Params Numeric length(10); Numeric length1(10); Numeric length2(20);Vars Numeric MA1; Numeric MA2; string strkey

7、Date;Begin MA1 = AverageFC(Close,length1); MA2 = AverageFC(Close,length2); strKeyDate = DateToString(Date)+:+Text(Hour); SetTBProfileString(Symbol,HourMA1:+strKeyDate,Text(MA1); SetTBProfileString(Symbol,HourMA2:+strKeyDate,Text(MA2); PlotNumeric(HourMA1,MA1); PlotNumeric(HourMA2,MA2);End編輯課件操作步驟四4、

8、新建一個技術指標，MinLine。編譯成功后插入1分鐘圖表中。編輯課件Vars NumericSeries DayMA1; NumericSeries DayMA2; NumericSeries HourMA1; NumericSeries HourMA2; StringSeries strKeyDate; StringSeries strKeyHour; string DayValue1; string DayValue2; string HourValue1; string HourValue2;Begin If(Date!=Date1) strKeyDate = DateToString

9、(Date); Else strKeyDate = strKeyDate1; If(Hour!=Hour1) strKeyHour = DateToString(Date)+:+Text(Hour); Else strKeyHour = strKeyHour1;編輯課件/讀取日線 DayValue1 = GetTBProfileString(“If000,DayMA1:+strKeyDate); DayValue2 = GetTBProfileString(“If000,DayMA2:+strKeyDate);/讀取小時線 HourValue1 = GetTBProfileString(“If

10、000,HourMA1:+strKeyHour); HourValue2 = GetTBProfileString(“If000,HourMA2:+strKeyHour);DayMA1 = Value(DayValue1);DayMA2 = Value(DayValue2);HourMA1 = Value(HourValue1);HourMA2 = Value(HourValue2);/輸出PlotNumeric(DayMA1,DayMA1);PlotNumeric(DayMA2,DayMA2);PlotNumeric(HourMA1,HourMA1);PlotNumeric(HourMA2,

11、HourMA2);End編輯課件編輯課件跨周期實現(xiàn)從1分鐘周期上取得日線上的KDJ信息用到的函數(shù)有SetTBProfileString、GetTBProfileString、熟悉與掌握 （練習一）編輯課件跨周期例子三編輯課件在日線圖上保存每日的KDJ數(shù)據(jù)ParamsNumeric Length(14);Numeric SlowLength(3);Numeric SmoothLength(3);VarsNumericSeries HighestValue;NumericSeries LowestValue;NumericSeries KValue;Numeric DValue;StringSer

12、ies strKeyDate;/日期變量,使用序列字符串新建技術指標公式,命名為DayAvgLine,公式內容如下:編輯課件Begin/獲得日期If(Date!=Date1) strKeyDate = DateToString(Date);Else strKeyDate = strKeyDate1;/計算KDJ值HighestValue = HighestFC(High, Length);LowestValue = LowestFC(Low, Length); KValue = SummationFC(Close - LowestValue,SlowLength)/SummationFC(Hi

13、ghestValue-LowestValue,SlowLength)*100;DValue = AverageFC(KValue,SmoothLength);編輯課件/將KDJ信息保存在數(shù)據(jù)庫中SetTBProfileString(Symbol,KValue_+strKeyDate,Text(KValue);SetTBProfileString(Symbol,DValue_+strKeyDate,Text(DValue);SetTBProfileString(Symbol,JValue_+strKeyDate,Text(3*KValue - 2*DValue);/在日線圖上輸出KDJ值Plot

14、Numeric(KValue,KValue);PlotNumeric(DValue,DValue);PlotNumeric(JValue,3*KValue - 2*DValue);End編輯課件在分鐘線上取得相應日期的KDJ值新建技術指標公式,命名為GetDayAvgLine,公式內容如下:VarsNumericSeries KValue;NumericSeries DValue;NumericSeries JValue;StringSeries strKeyDate;編輯課件BeginIf(Date!=Date1) strKeyDate = DateToString(Date);Else strKeyDate = strKeyDate1;KValue=Value(GetTBProfileString(Symbol,KValue_+strKeyDate);DValue=Value(GetTBProfileString(Symbol,