TB编程从入门到进阶

《TB编程从入门到进阶》由会员分享，可在线阅读，更多相关《TB编程从入门到进阶（105页珍藏版）》请在装配图网上搜索。

1、1TB编程从入门到进阶编程从入门到进阶2公式基础知识1交易策略实现4技术指标编写2TB编程进阶5 TB公式基本概念公式基本概念什么是TB公式？TB公式类型用户函数公式应用（包括技术指标、交易指令等）如何创建和应用公式？公式导入（*.fbk)或新建公式应用，粘贴代码，校验保存公式(编译)打开超级图表，选择交易品种，插入公式应用 修改公式应用设置 启动自动策略交易系统3 Bar数据数据(K线数据线数据)当前时间周期下所有K线的相关数据，按照时间从先到后的顺序排列而成的序列数据。每根K线中包含的数据如下：4Bar数据含义Date当前K线的日期Time当前K线的开始时间Open当前K线的开盘价High

2、当前K线的最高价Low当前K线的最低价Close当前K线的收盘价（最新价）Vol当前K线成交量OpenInt当前K线持仓量CurrentBar当前K线的索引值（K线的编号，从0开始）BarStatus当前K线的状态值（0第一根K线、2最后即最新一根K线、1其他K线）Bar数据的使用数据的使用Bar数据是TB公式运行的基础。Bar数据是序列数据，可以回溯读取(图示)。举例：比较今天的最高价是否突破了昨天的最高价 表达式为：High High1 比较今天的最高价是否突破了前两天的最高价 表达式为：High High1 and HighHigh2 或者：High High1&HighHigh25 序

3、列数据序列数据6序序列列变变量量序序列列变变量量序序列列变变量量序序列列变变量量序序列列变变量量序序列列变变量量序序列列变变量量序序列列变变量量序序列列变变量量序序列列变变量量序序列列变变量量序序列列变变量量N N-1 2 1 0 非序列变量非序列变量(简单变量简单变量)7 非序列变量非序列变量 TB公式运行机制公式运行机制从左到右，从上到下8 盘中和盘后公式运行的差别盘中和盘后公式运行的差别盘后公式的执行情况分析 K线是确定的，不存在信号消失问题；公式在每根K线上只执行一遍；符合开仓条件和平仓条件会标出买卖信号(使用Buy、Sell指令)，但并不真正发单；盘中公式的执行情况分析K线是变化的，

4、如用最新价或基于最新价计算出的指标来作为入场或出场条件会出现信号消失问题；每当分笔交易数据（tick)传来时，公式都会执行一遍；符合开仓条件和平仓条件除标出买卖信号，还会真正发单；有些函数和数据只有盘中才能支持，盘后不支持。TB公式的结构公式的结构TB的公式一般由三段组成。ParamsNumeric Length(10);公式参数段 VarsNumericSeries MA;公式变量段 BeginMA=AverageFC(Close,Length);公式脚本段 End10 例例1：Hello WorldSample1:BeginFileAppend(c:tbsample1.txt,Hello

5、World!);End 实验实验1：Sample1实验目标实验目标：通过学习，掌握在TB中如何新建公式应用，如何编译和使用公式。实验步骤：实验步骤：TB公式 新建公式应用 输入公式简称 选择适当的模板；在公式编辑器中，输入sample1的代码；点击工具栏中的“校验保存公式”进行代码编译；新建超级图表，鼠标右键 插入公式应用；到指定文件路径，查看文件内容。公式运行结果公式运行结果大家都知道每个Hello World!都是怎么产生的吗?例例2：输出：输出BAR数据数据Sample2:BeginFileAppend(“c:tbsample2.txt,Date=+DateToString(Date)+

6、Time=+TimeToString(time)+Close=+Text(Close)+CurrentBar=+Text(CurrentBar)+Barstatus=+Text(BarStatus);End 例例2 运行结果运行结果 参数的作用参数的作用 假如我们要写一个均线指标，现在是用10天做周期。代码如下：BeginPlotNumeric(MA,AverageFC(Close,10);End那如果要改用20天做周期，我们必须改程序，把10改成20，然后编译。下次想用别的周期，还得改，非常麻烦。如果使用参数，就方便多了。程序写好，使用时改参数就好了。代码如下：ParamsNumeric L

7、ength(10);BeginPlotNumeric(MA,AverageFC(Close,Length);End 数据类型数据类型TB公式中有三种基本的数据类型 数值型(Numeric)字符型(String)布尔型(Bool)为了对变量、参数进行回溯，又增加了序列类型 数值型序列变量/参数(NumericSeries)字符型序列变量/参数(StringSeries)布尔型序列变量/参数(BoolSeries)为了通过用户函数返回多个值，又增加了引用类型数值型引用(NumericRef)字符型引用(StringRef)布尔型引用(BoolRef)参数的声明和使用参数的声明和使用参数在使用前必须

8、进行声明，声明方法如下：ParamsNumeric Length(10);String Filename(D:sample2.log);bool OutputToFile(false);公式应用和用户函数的参数略有不同：公式应用的参数只支持三种基本类型，用户函数的参数支持全部九种类型；公式应用的参数一定要有初始值，而用户函数的参数可以没有默认值；参数的值在公式的脚本段中只能引用，不能修改；变量变量变量的主要用处在于它可以存放计算或比较的结果，以方便在之后的脚本中直接引用运算的值，而无需重现计算过程。变量在使用前必须进行声明，声明方法如下：VarsNumericSeries MA;Numeric

9、 Stopline(30);变量的赋值（变量类型和表达式的类型要一致）变量名称=表达式;例如：MA=AverageFC(Close,10);常用数据类型转换函数常用数据类型转换函数(1)数值型转字符型：String Text(Numeric value)例如：Text(1.2345)返回值为 1.2345 字符型转数值型：Numeric Value(String str)例如：Value(1.2345)返回值为1.2345根据布尔型值返回转字符型或数值型：Numeric IIF(Bool Conditon,Numeric TrueValue,Numeric FalseValue)例如：IIF(

10、CloseOpen,Close,Open);String IIFString(Bool Conditon,String TrueValue,String falseValue)例如：IIFString(CloseOpen,阳线,阴线);常用数据类型转换函数常用数据类型转换函数(2)日期时间值转字符型：String DateTimeToString(Numeric dtDateTime)例如：DateTimeToString(20040612.114323)=2004-06-12 11:43:23日期值转字符型：String DateToString(Integer nDate)时间值转字符型：

11、String TimeToString(Numeric fTime)将字符串转化为日期时间：Numeric StringToDateTime(String str)例如：StringToDateTime(2003-02-23 12:24:55)=20030223.122455将字符串转化为日期：Integer StringToDate(String str)将字符串转化为时间：Integer StringToTime(String str)例例3：使用参数和变量：使用参数和变量Sample3：ParamsString Filename(c:tbsample3.txt);VarsNumeric

12、change;Beginchange=Close-Close1;FileAppend(Filename,Date=+DateToString(Date)+Time=+TimeToString(time)+Close=+Text(Close)+涨跌：+text(change);End 例例3 运行结果运行结果 变量的存续周期变量的存续周期简单变量在每次公式运行时，被赋默认值，公式运行过程中存在，公式运行完后不再存在；序列变量的生存周期V3和V4略有区别：V3:每次公式运行时，序列变量被赋默认值，公式运行完后仍然存在，但下次如果还是同一根Bar运行公式的话，变量值又会被赋成默认值；V4：每次公式运

13、行时，除了第一根BAR会被赋默认值，其他BAR会自动传递上一根BAR的值，公式运行完后仍然存在，但下次如果还是同一根BAR运行公式的话，变量值又会传递上一根BAR的 值；只有一根BAR的最后一个Tick公式运行完后，序列变量的值才能保留下来。24 例例4：变量的存续周期差别：变量的存续周期差别Sample4：VarsNumeric jdbl;NumericSeries xlbl;BeginFileAppend(c:tbsample4.txt,Bartime=+DateTimeToString(date+time)+t CurrentTime=+TimeToString(Currenttime)

14、+t 公式运行前 Jdbl=+Text(jdbl)+xlbl=+Text(xlbl);jdbl=jdbl+1;xlbl=xlbl+1;FileAppend(c:tbsample4.txt,Bartime=+DateTimeToString(date+time)+t CurrentTime=+TimeToString(Currenttime)+t 公式运行后 Jdbl=+Text(jdbl)+xlbl=+Text(xlbl);End 实验实验2：Sample4实验目标实验目标：通过实验，理解TB中简单变量和序列变量的区别，了解简单变量和序列变量的存续周期；学习如何设置图表的K线样本数。实验步骤：

15、实验步骤：新建公式应用，在公式编辑器中，输入Sample4的代码；新建超级图表，任意选择一个交易品种，设置时间周期，鼠标右键点击图表，进入“商品设置”，选择商品合约后，点“属性”，修改样本数为“10”后确定返回；插入公式应用Sample4；打开Sample4.txt，分析和思考在盘后K线和实时K线中简单变量和序列变量值的变化过程以及产生的原因。Sample4运行结果运行结果1 Sample4运行结果运行结果2(实时实时)注释语句注释语句-CommentaryTB的信息输出，除了可以通过FileAppend输出到文件外，也可以将信息输出显示到图表上；Commentary的用法：在超级图表的当前B

16、AR添加一行注释信息；参数：String strTip;/提示的信息 例例5：改写例：改写例2Sample5:BeginCommentary(Date=+DateToString(Date);Commentary(Time=+TimeToString(time);Commentary(Open=+Text(Open);Commentary(High=+Text(High);Commentary(Low=+Text(Low);Commentary(Close=+Text(Close);Commentary(CurrentBar=+Text(CurrentBar);Commentary(Barst

17、atus=+Text(BarStatus);End 例例5 运行结果运行结果 控制语句控制语句条件语句(If-Else)if 语句 if-else 语句 if-Else if 语句 if-Else 嵌套循环语句(ForWhile)For 循环变量=初始值 TO 结束值 For 循环变量=初始值 Downto 结束值 While 循环 条件语句条件语句-IF Else语句语句语法如下：If(Condition)TB公式语句1;Else TB公式语句2;如果TB公式语句是单条，您可以省略，二条或者二条以上的语句必须使用。For 语句语句 1For语句是一个循环语句，重复执行某项操作，直到循环结束。

18、语法如下：For 循环变量=初始值 To 结束值 TradeBlazer公式语句;For循环的执行是从循环变量从初始值到结束值，按照步长为1递增，依次执行TradeBlazer公式语句,结束值必须大于或等于初始值才有意义。For 语句语句 2如果希望For语句从大到小进行循环，可以使用以下的语法：For 循环变量=初始值 DownTo 结束值 TradeBlazer公式语句;For-DownTo让循环变量从结束值每次递减1直到等于结束值，依次调用TradeBlazer公式语句执行，初始值必须大于或等于结束值才有意义。例例6：For语句求和及均线语句求和及均线Sample6：ParamsNume

19、ric Length(10);VarsNumeric SumValue(0);Numeric MA;Numeric i;BeginSumValue=0;for i=0 to Length-1SumValue=SumValue+Closei;MA=SumValue/Length;Commentary(SumValue=+text(SumValue);Commentary(MA=+Text(MA);EndWhile循环循环While语句在条件为真的时候重复执行某一项操作。即，只要条件表达式的值为真(True)时，就重复执行某个动作。直到行情信息改变以致条件为假(False)时，循环才结束。语法如下

20、：While(Condition)TradeBlazer公式语句;Continue 和 Break 例例7：BarsSinceTodaySample7：(求当天第一根求当天第一根Bar到现在的到现在的BAR数数)VarsNumeric TodayBars;BeginTodayBars=0;While(CurrentBar TodayBars and dateTodayBars=dateTodayBars+1)TodayBars=TodayBars+1;Commentary(TodayBars=+text(TodayBars);End BarsSinceToday的算法的算法VarsNumeri

21、cSeries ReBars;BeginIf(CurrentBar=0|Date!=Date1)ReBars=0;ElseReBars=ReBars+1;Return ReBars;End40公式基础知识1交易策略实现4技术指标编写2TB编程进阶541 技术指标输出函数技术指标输出函数(1)PlotNumeric 在当前BAR输出一个数值 参数：String Name -输出值的名称；Numeric Number -输出的数值；Numeric Locator=0 -输出值的定位点；Integer Color=-1 -输出值的颜色；Integer BarsBack=0 -从当前BAR回溯的 BA

22、R数举例：PlotNumeric(“MA”,AverageFC(Close,10);输出均线指标值PlotNumeric(“OpenToClose”,open,close);输出开盘价与收盘价的连线(线型选择柱状图)42 技术指标输出函数技术指标输出函数(2)PlotString 在当前BAR输出一个字符串 参数：String Name -输出值的名称 String str -输出的字符串；Numeric Locator=0 -输出值的定位点；Integer Color=-1 -输出值的颜色；Integer BarsBack=0 -从当前BAR回溯的 BAR数举例：PlotString(Can

23、dleStick,阳线,Low,Red);在Bar的最低价位置输出字符串“阳线”，并显示为红色43 技术指标输出函数技术指标输出函数(3)PlotBool 在当前BAR输出一个布尔值 参数：String Name -输出值的名称 Bool bPlot -输出的布尔值；Numeric Locator=0 -输出值的定位点；Integer Color=-1 -输出值的颜色；Integer BarsBack=0 -从当前BAR回溯的 BAR数举例：PlotString(“con,con,High);在Bar的最高价位置输出布尔变量con的值，如果con为真，则显示“笑脸”图标，否则显示为“哭脸”图标

24、 实验实验3：Sample8实验目标实验目标：通过实验，学习TB中技术指标的编写；掌握PlotNumeric、PlotString和PlotBool函数的用法；掌握正确设置技术指标的属性。实验步骤：实验步骤：新建公式应用，在公式编辑器中，输入Sample8的代码；点击“文件”-“属性设置”-在“常规”中选择“主图显示”，在线型中针对不同的线选择适当的线型、粗细和颜色等等，然后“校验保存公式”；新建超级图表，选择交易品种和时间周期，插入公式应用；观察指标的输出结果。45 例例8：自编指标的输出：自编指标的输出Sample8：单均线加通道指标单均线加通道指标ParamsNumeric Length

25、(10);/均线周期Numeric FilterPercent(20);/通道幅度比例（%）VarsNumericSeries MA;NumericSeries UpperBand;NumericSeries LowerBand;Bool ConBuy(False);Bool ConSell(False);BeginMA=AverageFC(Close,Length);UpperBand=MA*(1+FilterPercent/10000);LowerBand=MA*(1-FilterPercent/10000);46 PlotNumeric(MA,MA,0,Yellow);PlotNumer

26、ic(UpperBand,UpperBand,0,Red);PlotNumeric(LowerBand,LowerBand,0,Green);ConBuy=CrossOver(Close,UpperBand);ConSell=CrossUnder(Close,LowerBand);if(ConBuy)PlotBool(ConBuy,ConBuy,High+(High-Low)*0.3);PlotString(BS,多头突破,High+(High-Low)*0.6,red);if(ConSell)PlotBool(ConSell,!ConSell,Low-(High-Low)*0.3);Plot

27、String(SS,空头突破,Low-(High-Low)*0.6,Green);End47 Sample8运行结果运行结果48 指标编写常见问题指标编写常见问题指标编写完成后，还要注意在属性设置中进行相应的设置；指标是在主图显示还是在子图显示；指标的线型；从V3转到V4的客户注意参数的位置另外学习的例子可以参考：MACD指标的写法（柱状图）SAR指标（点图）49公式基础知识1交易策略实现4技术指标编写2TB编程进阶5 TB用户函数用户函数 用户函数是可以通过名称进行调用的一组语句的集合，实际应用中一般将某些经常需要用到的功能做成用户函数以方便以后编程时调用；用户函数一般有一个返回值，类型可以

28、是三种基本类型之一；用户函数通过参数传入数据，通过返回值或引用型变量返回值；用户函数间可以相互调用，也可以递归调用；用户函数分为内建用户函数和其他用户函数，内建用户函数可以查看和调用，不能修改；例例9：求平均值：求平均值 Sample9：这是求平均值的内建用户函数，其中就调用了summation函数ParamsNumericSeries Price(1);Numeric Length(10);VarsNumeric AvgValue;BeginAvgValue=Summation(Price,Length)/Length;Return AvgValue;End 例例10：求极值：求极值 Sam

29、ple10：这是求极值的内建用户函数，其中就用到了引用参数ParamsNumericSeries Price(1);Numeric Length(10);Bool bMax(True);NumericRef ExtremeBar;VarsNumericSeries MyVal;NumericSeries MyBar;Numeric i;BeginMyVal=Price;MyBar=0;If(CurrentBar MyVal)MyVal=Pricei;MyBar=i;ElseIf(Pricei=MyVal1)MyVal=Price;MyBar=0;Else MyVal=MyVal1;MyBar=

30、MyBar1+1;ElseIf(Price High1)buy(1,High1);例例11：双均线系统：双均线系统交易规则：如果短期均线上穿长期均线，做多，如原来持有空单，则先平空单，再建多仓如果短期均线下穿长期均线，做空，如原来持有多单，则先平多单，再建空单短周期：10长周期：20交易头寸暂为1手64 实现代码实现代码Sample11：Params Numeric Length1(10);Numeric Length2(20);Numeric Lots(1);Vars NumericSeries MA1;NumericSeries MA2;BoolSeries condBuy(false);

31、BoolSeries condSell(false);Begin MA1=AverageFC(Close,Length1);MA2=AverageFC(Close,Length2);65 PlotNumeric(MA1,MA1);PlotNumeric(MA2,MA2);condBuy=CrossOver(MA1,MA2);condSell=CrossUnder(MA1,MA2);If(MarketPosition 1 and condBuy1=true)Buy(Lots,Open);If(MarKetPosition-1 and condSell1=true)SellShort(lots,O

32、pen);End 6667公式基础知识1交易策略实现4技术指标编写2TB编程进阶5 止盈止损策略的实现止盈止损策略的实现止盈止损的设置有多种方法，常见的有：固定点数价格百分比进场价的一定比例；平均波动范围的一定比例；形态判断下面以固定点数止损，进场价的一定比例止盈为例，来实现它。68 例例12：止盈止损的代码：止盈止损的代码Sample12：ParamsNumeric TakeProfit(1);/百分比Numeric StopLoss(20);VarsNumeric MinPoint;Numeric MyEntryPrice;Numeric MyExitPrice;BeginMinPoint

33、=MinMove*PriceScale;MyEntryPrice=AvgEntryPrice;if(MarketPosition=1)if(High=MyEntryPrice*(1+TakeProfit*0.01)MyExitPrice=MyEntryPrice *(1+TakeProfit*0.01);if(open MyExitPrice)MyExitPrice=Open;Sell(0,MyExitPrice);69 Else if(Low MyEntryPrice-Stoploss*MinPoint)MyExitPrice=MyEntryPrice-Stoploss*MinPoint;i

34、f(Open MyExitPrice)MyExitPrice=Open;Sell(0,MyExitPrice);Else if(MarketPosition=-1)if(Low=MyEntryPrice*(1-TakeProfit*0.01)MyExitPrice=MyEntryPrice*(1-TakeProfit*0.01);if(open MyEntryPrice+Stoploss*MinPoint)MyExitPrice=MyEntryPrice+Stoploss*MinPoint;if(Open MyExitPrice)MyExitPrice=Open;BuyToCover(0,My

35、ExitPrice);End 70 追踪止盈策略的实现追踪止盈策略的实现追踪止盈的设置也有多种方法，常见的有：峰值价回落固定点数峰值价回落一定的百分比峰值价的一定比例；平均波动范围的一定比例；开盘价的一定比例。是否盈利达到一定幅度才启用追踪止盈；动态的回落点数或比例。下面以峰值价回落一定比例为例，来实现它。71 例例13：追踪止盈的代码：追踪止盈的代码Sample13：Params Numeric TrailingStop(1);/跟踪止损百分比Vars Numeric MinPoint;Numeric MyExitPrice;NumericSeries HigherAfterEntry;Nu

36、mericSeries LowerAfterEntry;Numeric StopLine(0);Beginif(BarsSinceEntry=1)HigherAfterEntry=AvgEntryPrice;LowerAfterEntry=AvgEntryPrice;Else If(BarsSinceEntry 1)HigherAfterEntry=Max(HigherAfterEntry1,High1);LowerAfterEntry=Min(LowerAfterEntry1,Low1);72 ElseHigherAfterEntry=HigherAfterEntry1;LowerAfter

37、Entry=LowerAfterEntry1;MinPoint=MinMove*PriceScale;If(MarketPosition=1)StopLine=HigherAfterEntry*(1-TrailingStop*0.01);If(Low=StopLine)MyExitPrice=StopLine-MinPoint;If(Open=StopLine)MyExitPrice=StopLine+MinPoint;If(Open MyExitPrice)MyExitPrice=Open;BuyToCover(0,MyExitPrice);End 7374 应注意的问题应注意的问题如果单根

38、K线的最高价和最低价相差很大，有可能出现止盈和止损同时满足的情况，解决办法：切换到更小的时间周期上进行交易；扩大止盈和止损的幅度在开仓BAR，因无法判断开仓价和最高价最低价的先后顺序，因此一般是在开仓BAR的后一根BAR才开始判断是否满足止盈止损或跟踪止盈的的条件。如交易策略需要及时的止损，同样需要切换到更小的时间周期上进行交易。K线波动太大的问题线波动太大的问题 进场位置和盈利峰值价计算进场位置和盈利峰值价计算 开盘价开盘价最低价最低价追踪止损价追踪止损价盈利峰值价盈利峰值价止止损损没没被被止止损损 开盘价进场的追踪止损开盘价进场的追踪止损 开盘价开盘价（进场价（进场价)最低价最低价追踪止损

39、价追踪止损价以进场价作为盈利峰值价以进场价作为盈利峰值价止止损损 再进场策略的设计再进场策略的设计使用止损止盈或追踪止盈出场后，如果趋势没有改变，我们仍然需要再进场的策略以避免错失大的波段趋势；可以考虑的再入场的方法有：价格创出新高或新低，再次入场；出场后一定时间后，大趋势仍未改变则再次入场；出场后大趋势未改变，其他辅助指标出现和大趋势一致的进场信号时再次入场。下面以出场后一定时间后大趋势仍未改变即再次入场的方法来举例。78 跟踪止盈后，我们要设个标志，表示曾经出场过，因此要增加两个布尔型序列变量；BoolSeries bLongStoped(false);BoolSeries bShortS

40、toped(false);跟踪止盈后，设置这两个变量；/多头跟踪止盈后If(Low=StopLine)BuyToCover(0,MyExitPrice);bShortStoped=true;79 这两个序列变量值必须往下传递（V4中可以免写）if(BarStatus 0)bLongStoped=bLongStoped1;bShortStoped=bShortStoped1;多头或空头初次进场和再次进场后，都要将这两个变量复位；bLongStoped=false;bShortStoped=false;为了配合再进场，我们需要记录当前的趋势方向，以例9的双均线交叉为例，我们需要增加以下代码：if(

41、condBuy=false and condSell=false)condBuy=condBuy1;condSell=condSell1;80 追踪止盈后的等待时间，我们可用止盈后的K线根数来衡量。因为我们止盈后bLongStoped或bShortStoped会被置为True，因此我们可通过一个函数NthCon来寻找跟踪止盈的那根BAR到现在的BAR数。具体止盈后多少根BAR后趋势还在持续再进场，我们可以设置为一个参数：BarsReEntry。多头再进场部分的代码如下BarsAfterLongExit=NthCon(!bLongStoped,1);Commentary(BarsAfterLon

42、gExit=+text(BarsAfterLongExit);If(bLongStoped and MarketPosition=0 and condBuy1=true and BarsAfterLongExit=BarsReEntry)Buy(Lots,Open);bLongStoped=False;HigherAfterEntry=Open;81 例例14：双均线完整策略：双均线完整策略Sample14：例例11加上跟踪止盈和再进场策略加上跟踪止盈和再进场策略Params Numeric Length1(10);Numeric Length2(20);Numeric Lots(1);Num

43、eric TrailingStop(1);/跟踪止损百分比跟踪止损百分比Numeric BarsReEntry(5);/出场后趋势维持多少根出场后趋势维持多少根Bar后再进场后再进场Vars NumericSeries MA1;NumericSeries MA2;BoolSeries condBuy(false);BoolSeries condSell(false);Numeric MinPoint;Numeric MyExitPrice;NumericSeries HigherAfterEntry;NumericSeries LowerAfterEntry;Numeric StopLine(

44、0);BoolSeries bLongStoped(false);BoolSeries bShortStoped(false);Numeric BarsAfterLongExit(0);Numeric BarsAfterShortExit(0);Begin /*if(BarStatus 0)/V4中可以省略的序列变量传递部分中可以省略的序列变量传递部分bLongStoped=bLongStoped1;bShortStoped=bShortStoped1;*/Commentary(bLongStoped=+IIFString(bLongStoped,true,false);Commentary(

45、bShortStoped=+IIFString(bShortStoped,true,false);if(BarsSinceEntry=1)HigherAfterEntry=AvgEntryPrice;LowerAfterEntry=AvgEntryPrice;Else If(BarsSinceEntry 1)HigherAfterEntry=Max(HigherAfterEntry1,High1);LowerAfterEntry=Min(LowerAfterEntry1,Low1);ElseHigherAfterEntry=HigherAfterEntry1;LowerAfterEntry=L

46、owerAfterEntry1;MA1=AverageFC(Close,Length1);MA2=AverageFC(Close,Length2);PlotNumeric(MA1,MA1);PlotNumeric(MA2,MA2);condBuy=CrossOver(MA1,MA2);condSell=CrossUnder(MA1,MA2);if(condBuy=false and condSell=false)condBuy=condBuy1;condSell=condSell1;If(MarketPosition 1 and condBuy1=true and bLongStoped=fa

47、lse)Buy(Lots,Open);HigherAfterEntry=Open;bLongStoped=false;bShortStoped=false;If(MarKetPosition-1 and condSell1=true and bShortStoped=false)SellShort(lots,Open);LowerAfterEntry=Open;bLongStoped=false;bShortStoped=false;BarsAfterLongExit=NthCon(!bLongStoped,1);Commentary(BarsAfterLongExit=+text(BarsA

48、fterLongExit);If(bLongStoped and MarketPosition=0 and condBuy1=true and BarsAfterLongExit=BarsReEntry)Buy(Lots,Open);bLongStoped=False;HigherAfterEntry=Open;Return;BarsAfterShortExit=NthCon(!bShortStoped,1);Commentary(BarsAfterShortExit=+text(BarsAfterShortExit);If(bShortStoped and MarketPosition=0

49、and condSell1=true and BarsAfterShortExit=BarsReEntry)SellShort(Lots,Open);bShortStoped=False;LowerAfterEntry=Open;Return;MinPoint=MinMove*PriceScale;If(MarketPosition=1)StopLine=HigherAfterEntry*(1-TrailingStop*0.01);If(Low=StopLine)MyExitPrice=StopLine-MinPoint;If(Open=StopLine)MyExitPrice=StopLin

50、e+MinPoint;If(Open MyExitPrice)MyExitPrice=Open;BuyToCover(0,MyExitPrice);bShortStoped=true;End 实验实验4：Sample14实验目标实验目标：通过实验，学习TB中交易策略的编写；理解交易策略中具体的进场、出场、再进场、再出场规则的设计思路和代码实现；掌握公式应用的全局设置以及交易品种费率的调整；掌握历史回测和参数优化工具的使用。实验步骤：实验步骤：新建公式应用，输入Sample14的代码，编译通过；打开超级图表，选好品种和时间周期，插入公式应用；右键点击图表-商品设置-交易-修改保证金率和佣金比率；

51、右键点击图表-公式应用设置-全局交易设置；点击“工具”-投资组合性能测试报告，进行历史测试；点击“工具”-交易策略参数优化报告，进行参数优化。全局变量全局变量序列变量的缺陷序列变量的缺陷序列变量在每个BAR只能有一个值，这个值在行情更新时，会不断刷新，直到最后一个Tick才能将值保存下来；因此，序列变量无法记录盘中每个Tick运行公式产生的数据；比如：我们要对每个Tick计数，用序列变量就做不到。全局变量全局变量全局变量通过SetGlobalVar和GetGlobalVar函数来设置和读取，TB V4中单个 公式应用可以支持500个全局变量；Bool SetGlobalVar(Integer

52、nIndex,Numeric fVal)参数：nIndex -全局变量的索引值 fVal -要设置的变量的值 如：SetGlobalVar(0,1)将0号全局变量设置为1；Numeric GetGlobalVar(Integer nIndex)获取某个索引的全局变量值 全局变量的初始值为无效值，它的值不会因为当前BAR的变化而变化，而只能由SetGlobalVar函数来设置；全局变量依附在超级图表上，一旦关掉超级图表后，所有与该图表有关的全局变量将不复存在；全局变量值的变化只跟SetGlobalVar的执行顺序有关，因此在图表上进行刷新时，必须考虑因公式重新运行导致的全局变量值的变化。例例15

53、：记录：记录BAR的的tick数数Sample15：VarsNumericSeries SeTickCnt;Numeric TickCnt;Numeric GlobTickCnt;Numeric bartime;Beginbartime=GetGlobalVar(0);if(CurrentBar=0|bartime=InvalidNumeric)bartime=date+time;SetGlobalVar(0,bartime);TickCnt=1;SeTickCnt=1;GlobTickCnt=1;SetGlobalVar(1,GlobTickCnt);FileAppend(c:tbSampl

54、e15.txt,Bartime=+DateTimeToString(date+time)+计数器初始化计数器初始化,全局变量时间全局变量时间=+DateTimeToString(bartime)+TickCnt=+Text(tickcnt)+SeTickCnt=+Text(SeTickCnt)+GlobTickCnt=+Text(GlobTickCnt);else if(Date+Time bartime)bartime=Date+Time;SetGlobalVar(0,bartime);TickCnt=1;SeTickCnt=1;GlobTickCnt=1;SetGlobalVar(1,Gl

55、obTickCnt);FileAppend(c:tbSample15.txt,Bartime=+DateTimeToString(date+time)+新新K线产生线产生,全局变量时间全局变量时间=+DateTimeToString(bartime)+TickCnt=+Text(tickcnt)+SeTickCnt=+Text(SeTickCnt)+GlobTickCnt=+Text(GlobTickCnt);Else If(Date+Time=bartime)TickCnt=TickCnt+1;SeTickCnt=SeTickCnt+1;GlobTickCnt=GetGlobalVar(1)

56、+1;SetGlobalVar(1,GlobTickCnt);FileAppend(c:tbSample15.txt,Bartime=+DateTimeToString(date+time)+原原K线增加计数线增加计数,全局变量时间全局变量时间=+DateTimeToString(bartime)+TickCnt=+Text(tickcnt)+SeTickCnt=+Text(SeTickCnt)+GlobTickCnt=+Text(GlobTickCnt);End Sample15 运行结果运行结果 Sample15 运行结果运行结果写数据库文件写数据库文件SetTBProfileString

57、 写信息文件参数1：String strSection -指定的信息块的块名参数2：String strKey -指定的信息的键名参数3：String strValue -写入的字符串信息GetTBProfileString 读信息文件参数1：String strSection参数2：String strKey 例例16：序列函数参数传递：序列函数参数传递这是为了理解序列函数参数传递而做的实验,函数名：Sample16_2ParamsNumericSeries Price(0);VarsNumeric i(0);BeginFileAppend(“c:tbsample16.txt,=);File

58、Append(“c:tbsample16.txt,date=+Text(date)+t time=+Text(time)+t Price=+Text(Price)+t Price1=+Text(Price1);for i=0 to 9FileAppend(c:tbsample16.txt,date=+Text(datei)+t time+Text(timei)+t Open=+Text(Openi)+t Close=+Text(Closei)+t CloseOpen=“+IIFString(closeiopeni,true,false);Return price1;End 然后新建一公式应用S

59、ample16_1，来调用这个函数VarsNumeric preclose;Beginif(CloseOpen)preclose=Sample16_2(close);End Sample16 测试结果测试结果 工作中的实例工作中的实例VarsBool longCon;Bool shortCon;BeginlongCon =(CloseD(1)OpenD(1)&(CloseD(1)CloseD(2);shortCon=(CloseD(1)OpenD(1)&(CloseD(1)Open1 and Close1 close2;shortCon=Close1 open1 and close1 Open

60、D(1);longcon2=CloseD(1)CloseD(2);longCon =longcon1 and longcon2;shortCon1=CloseD(1)OpenD(1);shortcon2=CloseD(1)Price2 and Price1 Price3;shortcon=Price1 Price2 and Price1 Price3;If(longCon&Date!=Date1)PlotBool(Buy,true,high+10);If(shortCon&Date!=Date1)PlotBool(SellShort,false,high+10);End 信号对比（正确）信号对比（正确）TB的学习资源和方法的学习资源和方法系统自带的交易指令范例TB公式开发TB的系统交易论TB的帮助文件(F1帮助)最好的学习方法就是动手实验。谢谢大家！谢谢大家！105