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

1、TB跨周期、跨品种调用数据的实现方法 编辑课件关于跨周期使用算法整合当前周期上的bar数据，取得相应周期的bar数据。(难)学习请点击我使用函数DataConvert。使用数据库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分钟周期调用日线指标数据举例讲解具体应用。编辑课件操作步骤一1、新建一个工作区，包含上下两个图表窗体，上面选择日线周期，下面选择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数据编辑课件跨品种、跨周期例子（二）在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 = 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编辑课件编辑课件跨周期实现从1分钟周期上取得日线上的KDJ信息用到的函数有SetTBProfileString、GetTBProfileString、熟悉与掌握 （练习一）编辑课件跨周期例子三编辑课件在日线图上保存每日的KDJ数据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信息保存在数据库中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,