TB跨周期、跨品种调用数据的实现方法.pptx

《TB跨周期、跨品种调用数据的实现方法.pptx》由会员分享，可在线阅读，更多相关《TB跨周期、跨品种调用数据的实现方法.pptx（29页珍藏版）》请在装配图网上搜索。

1、TB跨周期、跨品种调用数据的实现方法,深圳市拓瑞邦泽科技有限公司,关于跨周期,使用算法整合当前周期上的bar数据，取得相应周期的bar数据。(难)学习请点击我 使用函数DataConvert。 使用数据库SetTBProfileString、GetTBProfileString.,写公式信息文件,SetTBProfileString写入 Bool SetTBProfileString(String strSection,String strKey,String strValue) GetTBProfileString读取 String GetTBProfileString(String str

2、Section,String strKey) strSection：块名 strKey：键名 strValue：存储值,图表1,图表2,图表3,跨周期举例（一）,以5分钟周期调用日线指标数据举例讲解具体应用。,操作步骤一,1、新建一个工作区，包含上下两个图表窗体，上面选择日线周期，下面选择5分钟周期。,操作步骤二,2、新建一个技术指标，命名为MyDayMA。 编译成功后插入日线图表中。 详细代码,Params Numeric length(10); Vars Numeric MA; string strkey; string strValue; Begin MA = AverageFC(Clo

3、se,length); strKey = DateToString(Date); strValue = Text(MA); SetTBProfileString(DayMA,strKey,strValue); PlotNumeric(MA,MA); End,操作步骤三,3、新建一个技术指标，My5MinMA。 编译成功后插入5分钟图表中。,Vars NumericSeries DayMAValue; StringSeries strKey; string strValue; Begin If(Date!=Date1) strKey = DateToString(Date1); Else str

4、Key = strKey1; strValue = GetTBProfileString(DayMA,strKey); If(strValue != InvalidString) DayMAValue = Value(strValue); Else DayMAValue = DayMAValue1; PlotNumeric(DayMA,DayMAValue); End,步骤三 详细代码,跨周期例子(一),上图为日线图 下图为5分钟图 从五分钟上读取日线图上的MA数据,跨品种、跨周期例子（二）,在1分钟线上取得1小时和日线周期举例讲解具体应用。,操作步骤一,1、新建一个工作区，包含上下三个图表窗

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 = DateToS

6、tring(Date); SetTBProfileString(Symbol,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 Numer

7、ic MA1; Numeric MA2; string strkeyDate; 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); Plot

8、Numeric(HourMA2,MA2); End,操作步骤四,4、新建一个技术指标，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!

9、=Date1) strKeyDate = DateToString(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); /读取小时线 Hour

10、Value1 = GetTBProfileString(“If000,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

11、(HourMA1,HourMA1); PlotNumeric(HourMA2,HourMA2); End,跨周期实现从1分钟周期上取得日线上的KDJ信息 用到的函数有SetTBProfileString、GetTBProfileString、,熟悉与掌握 （练习一）,跨周期例子三,在日线图上保存每日的KDJ数据,Params Numeric Length(14); Numeric SlowLength(3); Numeric SmoothLength(3); Vars NumericSeries HighestValue; NumericSeries LowestValue; NumericS

12、eries KValue; Numeric DValue; StringSeries strKeyDate;/日期变量,使用序列字符串,新建技术指标公式,命名为DayAvgLine,公式内容如下:,Begin /获得日期 If(Date!=Date1) strKeyDate = DateToString(Date); Else strKeyDate = strKeyDate1; /计算KDJ值 HighestValue = HighestFC(High, Length); LowestValue = LowestFC(Low, Length); KValue = SummationFC(Clo

13、se - LowestValue,SlowLength)/SummationFC(HighestValue-LowestValue,SlowLength)*100; DValue = AverageFC(KValue,SmoothLength);,/将KDJ信息保存在数据库中 SetTBProfileString(Symbol,KValue_+strKeyDate,Text(KValue); SetTBProfileString(Symbol,DValue_+strKeyDate,Text(DValue); SetTBProfileString(Symbol,JValue_+strKeyDat

14、e,Text(3*KValue - 2*DValue); /在日线图上输出KDJ值 PlotNumeric(KValue,KValue); PlotNumeric(DValue,DValue); PlotNumeric(JValue,3*KValue - 2*DValue); End,在分钟线上取得相应日期的KDJ值,新建技术指标公式,命名为GetDayAvgLine,公式内容如下:,Vars NumericSeries KValue; NumericSeries DValue; NumericSeries JValue; StringSeries strKeyDate;,Begin If(D

15、ate!=Date1) strKeyDate = DateToString(Date); Else strKeyDate = strKeyDate1; KValue=Value(GetTBProfileString(Symbol,KValue_+strKeyDate); DValue=Value(GetTBProfileString(Symbol,DValue_+strKeyDate); JValue=Value(GetTBProfileString(Symbol,JValue_+strKeyDate); PlotNumeric(KValue,KValue); PlotNumeric(DValue,DValue); PlotNumeric(JValue,JValue); End,在日线图上插入公式DayAvgLine,在1分钟图上插入公式GetDayAvgLine,结 束 END,