从一无所知开始学习交易开拓者(TB)期货程序化交易编程

从一无所知开始学习交易开拓者(TB)期货程序化交易编程经常会看到很多朋友问：帮我写个公式怎么样啊？帮我把某个公式改成 TB的怎么样啊？我想出现这种情况的原因有两种：一是真的不会，毕竟做期货的会编程的不多；二是自己如果多花点时间的话是弄的岀来，但是有点懒；我想无论是哪种原因，都应该好好的学习下 TB,因为真正的你的交易思路只有你自己才清楚而且也只有你自己去把你的交易思路用TB表现岀来你才能更清楚的知道你的交易思维中有何缺点但是编程不是一件很容易的事情，当然,如果您入门了，你会发觉TB编程其实和泡妞一样的简单，就看你敢不敢下手了®所以本文仅是写给完全不懂编程的朋友的，仅是最基本的入门资料，如果您是高手，请忽略此文，以免耽误您的时间我先不说那些专业术语，什么变量，函数和语法的，我们先不管他，以免看的头晕.我想先说说在 TB中代码的执行顺序，也就是说在TB的K线图仃B把K线叫做Bar)里面你写的公式或者指标是如 何得到执行的；我想这个东西是最重要而且也是最好理解的.在其他的期货软件比如文华飞狐一类，我们是无法知道你写的公式是如何执行的，甚至我们不知道我们写岀来的公式是不是真的就体现岀了我们的思想，因为你写的公式或者指标是被这些软件在幕后进行处理的，是黑箱操作！而TB不同，我们能够清楚的看到你写的代码在任意一根K线上是如何得到执行的！!！好了，先说说在TB里面代码是如何得到执行的.1, 代码从第一根K线开始执行，一直到最后一根 K线；2, 在每一根K线上，代码都是从第一行开始执行，一直到最后一行；明白了吧，是不是很简单，我们先看一个小例子，如果您还不明白，那只能说我完全没有任何能力写这文章，您就板砖吧我们就写个输岀每日的收盘价的例子；打开TB,在左边的TB公式里面，点击新建技术指标，新建其他的也没有关系，然后在岀来的对话框的简称里面填入名字，记住,这个名字只能是E文哦在名字里面填入你喜欢的名字，点确定就0K 了啊然后在岀来的公式编辑器里面输入BeginEnd注意,除了参数和变量定义外，所有的代码都必须包含在Begin和End之间意思很简单就是Begin后，你的代码就开始执行了 ,End 了，你的代码就执行完毕拉呵呵我们再在Begin和End之间输入一些代码，完整的就是：BeginFileAppend("c:a.log",Text(Year)+" 年"+Text(Month)+"月"+Text(Day)+"日的收盘价等于")；FileAppend('Ca.log",Text(Close);End我们再说说这两行代码是什么意思File就是文件Append就是添加，现在明白了吧FileAppend就是添加一个文件，文件名是什么呢？就是你后面写的a.log,这个文件的路径在哪里呢？就是c:a.log里 面的C盘,且在这个文件里面添加一行东西，这行东西的内容就是你后面所写的Text(Year)+"年"+Text(Month)+"月"+Text(Day)+"日的收盘价等于"当然,如果这个文件已经存在，他就不会添加文件了 ，仅仅在这个文件的后面添加一行上面你写的内容好了，再看看Text,Text的意思就是把那些不是字符串的东西如数字啊，等变成字符串.而Year,Month,Day就代表了正在执行你写的代码的那一根K线的年,月，日,年月日是数字，我们当然要用Text把它搞成字符串，不然Windows会告诉你你犯了错误的Close的意思我不说大家也明白了吧，就是代表了当前正在执行你的代码的那根K线的收盘价啊，呵呵，如果代码执行到最后的那根K线且行情正在走动的时候Close代表的就是现在的最新价了咯.好了我们点公式编辑器上面的工具栏的第五个按钮(打勾的那个东西),校验保存公式，稍微等一下，就0K 了我们在回到K线图里面,TB把K线图叫做超级图表，呵呵，有点不习惯在K线图里面右键，选择商品设置，然后吧里面的样本数由默认的300改成5,意思是让在超级图表里面仅仅显示5条K线,当然，你可以搞成任意你喜欢的数字你甚至可以从任意一个你喜欢的时间开始显示K线，我们选择5跟K线仅仅是为了测试的方便点确定后，你就看到在K线图里面只显示了5跟K线，所以我们的代码也仅仅只在这5跟K线上执行了当然现在代码还不能被执行，因为我们现在还需要把我们刚刚所写的那个指标加到K线图上面才能被执行的我们再在超级图表里面右键，选择插入技术分析，在出来的列表里面选择我们刚刚所写的技术指标，然后确定就OKl饿晕死,现在怎么在K线图上没有任何变化啊？呵呵我们上面说了，我们这个例子仅仅是把每日的收盘价写到文件里面去啊，那么我们找一找文件在什么地方咯？FileAppend("c:a.log", 很明显，文件是在c盘的，文件的名字是 a.log好了，我们到c盘找到a.log文件，双击打开，我们就会看到下面的内容：2007年9月24日的收盘价等于672802007年9月25日的收盘价等于678002007年9月26日的收盘价等于671602007年9月27日的收盘价等于673002007年9月28日的收盘价等于68020我们现在来分析下：首先你写的代码在第一根 K线上执行，先执行第一行代码FileAppend("c:a.log",Text(Year)+" 年"+Text(Month)+" 月"+Text(Day)+" 日的收盘价等于”)；这行代码就输出了第一根K线的年,月，日,就在a.log文件里输出成"2007年9月24日的收盘价等于然后执行第二行代码：FileAppend("C:a.log",Text(Close);折行代码把第一根K线的收盘价输出到a.log文件里面，于是就输出了 "67280"好了 ,代码在第一根K线上执行完毕，于是再转到第二根 K线,再执行第一行代码，再执行第二行代码好了 ,现在代码在第二根，第三根，第四根K线上执行完毕，于是转到第五根也就是最后一根K线上执行第一行代码再执行第二行代码到此为止，所有的代码在所有的 K线上执行完毕了，圆满的完成了党和祖国赋予他的神圣使命，于是也就有了我们上面所看到的结果：2007年9月24日的收盘价等于672802007年9月25日的收盘价等于678002007年9月26日的收盘价等于671602007年9月27日的收盘价等于673002007年9月28日的收盘价等于68020OK,下回继续我一直非常愿意帮助客户们解答在编程中的难点，但是却不大愿意帮助客户写完整的公式策略。这其中有三个 原因：1、别人写的交易策略，你难以调整它。据统计，90%以上的交易策略会在2年半之内由于种种原因失效或者效率降低。通常的做法是一个季度左右， 交易员就需要微调其策略，调整参数或改动某些条件。如果策略不是自己编写的，调整起来就会有困难。2、别人写的交易策略，你很难彻底执行它。系统交易最重要的好处在于它的执行能力。它可以使你的交易摆脱人性的弱点，摆脱心理因素的干扰。然而这 一切的基础，在于自信。人只会信任自己了解的东西，这是人性。如果一个交易策略是别人写的，无论它的测 试报告是多么天花乱坠，你都不会信任它，因为你不了解它。一旦市场出现了危机情况，你就会坐立不安，你 就会总怀疑是不是策略有问题，然后就又把策略扔到一边，回到凭感觉去操作的老路上去了。3、 最重要的一点在于：编程就是理解，编写交易策略调试交易策略的过程其实就是理解市场的过程。这是一 种非常宝贵的积累。大多数人都是通过在市场中亏钱，靠爆仓来理解市场的。成本高昂，而且难以总结。使用 这种方法来了解市场，往往就算你亏了很多钱，交了大把学费，你仍然不知道自己到底输在哪里。你总结不出来，你就不可能有长进，就不可能赢。而通过写交易策略来了解市场你不需要交什么学费，从历史测试报告里 很容易分析出来自己到底错在哪里，如此你就很容易改进。把编好的交易策略与模拟帐户交易结合起来就可以 为你带来足够逼真的实战经验。skywalker说的非常棒！编程其实是一种思想，编程的目的是把你的思想用各种图形表现出来而已我们期货编程的目的是表现我们的交易思想是为思想而编程，不是为编程而编程！说起这点我想起了TB的伟大！不管你用文华还是飞狐，当你把指标公式写完后可能你自己的不是很清楚你的代码所表现出来的东西到底是不是就是你的交易思想呢？因为他们的代码是工作在后台的我们在前面无法得知这些代码如何工作而TB完全不同你可以在任意时候知道你的代码在做什么！所以你也就非常的清楚你的代码是不是真的表现了你的意思！好了现在开始写数据类型，变量和赋值.这是些非常基本的概念，相信您一下就懂的线说数据类型吧数据类型和人的类型差不多人不是分黄种人，白种人，黑种人么？TB里面的数据也一样分字符串类型，数值型，还有布尔型字符串类型很简单，用分号""括起来的东西就叫做字符串类型的数据，如"I love you"，女如"3345"，.数值型数据类型也同样的简单，数值大家知道吧，如1542啊,1.021啊.这些东西就是数值型的数据类型当然，如果把一个数值型的东西用分号""括起来了那他就不再是数值型数据了，而是字符串类型的数据如1688是数值型数据，但是"1688"就是字符串类型的数据了啊还有就是布尔型，当然,没有接触过编程的朋友可能不明白布尔型的意思 说白点，布尔型就是真假型，意思就是布尔类型的数据只能取真仃rue）或假（False）值.比如2>1,这个东西就是布尔类型的数据，因为2是大于1啊,所以这个表达式返回 True（真） 那么2<1,大家说这个表达式是不是个布尔类型的数据呢？呵呵，也是的，因为2大于1啊,所以2<1是错误的，就返回False（假）咯大家明白了吧，就这三个类型，其中最只要的就是数值型数据类型哦用的最多的也是数值型数据类型如果明白了，那么请您就记住在 TB里面数值型的E文是Numeric吧晕死,看下TB的帮助，数据类型里面还有个序列型，如果数值序列型，字符串序列型，布尔序列型序列这个东西看起来很难理解想个办法来理解他吧比如我们的K线图上有10跟K线,Close大家知道吧，就是收盘价但是这个Close包含了第一根K线的收盘价，也包含了第二根 K线的收盘价一直包含到第五根 K线的收盘价也就是说序列型的数据在没根K线上都有一个值的OK 了吧？如果不0K也没有关系，慢慢的就懂了再说说变量顾名思义，变量就是一个可以改变的东西现在这个变量的值是100,但是等下我可以把它改成20,只要您喜欢，你可以随心所欲的改变这个值呵呵，能够修改他的值的东西就叫做变量了记住：在TB里面变量都是要先定义的！而且有着他独到的定义方法，而且这个定义必须放到Begin的前面如我们定义一个数值型变量a.就应该这样VarsNumeric a;BeginEnd当然你也可以定义两个或者多个变量，如VarsNumeric a;Numeric b;/更多变量定义BeginEnd大家也许想到了我定义这个变量a,我要让他等于2,这个东西很简单你可以在变量定义的时候就给他赋初值让他一开始被定义就等于2,也可以在Begin下面写.如VarsNumeric a(2);Numeric b;/更多变量定义BeginEnd明白了么？那么变量b呢？我们没有用括号()扩个东西啊，那么这个时候b这个变量等于什么呢？ 很简单,如果你在定义变量的时候没有给他初值，那么b这个时候等于0咯好了再看在Begin里面怎么修改这个变量的值VarsNumeric a(2);Numeric b;/更多变量定义Begina = 3;b = 100;End很简单的现在大家应该知道了变量是什么东西了吧对了 ,忘记告诉大家了，在Begin下面给变量复制仅仅只对当前正在执行你的代码的K线有效咯,到下一根K线他就是初始值了啊写个例子吧VarsNumeric a(100); 定义一个变量，类型是数值类型，变量名字是a,变量的初始值是100Beginif(CurrentBar = 0)/如果是第一根 K线,就把变量a的值变为1a = 1;FileAppend("C:a.Log",Text(a);End我们再来看看输出结果：1100100100100我们再来理解下这个结果(当然这个时候我们的K线图上面只有5跟K线啊，其实随便多少跟K线都一样)首先代码在第一根 K线上面执行，先执行if(CurrentBar = 0) 这个东西，CurrentBar代表正在被执行的K线的索引因为代码现在在第一根K线上执行,所以索引就是0拉,于是这个表达式就成立了啊，既然if(CurrentBar = 0)这个表达式成立,那么他就会执行里面的东西a = 1;把1赋给变量a,也就是说吧变量a的内容改成1,然后执行 FileAppend("C:a.Log",Text(a);这个时候变量a的值是1,所以当然输出1 了啊代码执行完毕然后转到第二根K线，既然是第二根 K线,那么这根K线的索引就是1 了啊,1肯定不等于0啊那么表达式if(CurrentBar = 0)就不成立了啊，既然不成立那么他也就不会执行里面的东西a = 1;于是就直接执行 FileAppend("C:a.Log",Text(a);那么这个时候a的值是多少呢？很明显是100,就是他的初始值，而不是上一根K线执行代码的时候改变了的a的值!这点千万注意啊我相信好多朋友会在这里犯下错误的咯再说给变量赋值其实我们上面已经说了 ，记住=和=的区别吧=就是把=右边的东西赋给=左边的东西如 a = 100;就是把=右边的100赋给左边的变量a如 b = 9;就是把9赋给变量b我们在日常中一直把=当成等于，千万急着在TB里面=就是赋值！! 真正的等于的符号是=if(a=b) 就是如果a等于b/做某件事情好了快11点了睡觉了下次见看了，学了，收获不少，不断消化ING ooo谢谢斑竹！但是编程不是一件很容易的事情，当然,如果您入门了，你会发觉TB编程其实和泡妞一样的简单，就看你敢不敢下手了如1688是数值型数据，但是"1688"就是字符串类型的数据了啊说白点，布尔型就是真假型，意思就是布尔类型的数据只能取真仃rue)或假(False)值.序列这个东西看起来很难理解想个办法来理解他吧比如我们的K线图上有10跟K线,Close大家知道吧，就是收盘价但是这个Close包含了第一根K线的收盘价，也包含了第二根 K线的收盘价一直包含到第五根 K线的收盘价也就是说序列型的数据在没根K线上都有一个值的在TB里面变量都是要先定义的！而且有着他独到的定义方法，而且这个定义必须放到Begin的前面那么变量b呢?我们没有用括号()扩个东西啊，那么这个时候b这个变量等于什么呢？很简单,如果你在定义变量的时候没有给他初值，那么b这个时候等于0咯好了再看在Begin里面怎么修改这个变量的值VarsNumeric a;Numeric b;/更多变量定义Begina = 3;b = 100;End现在大家应该知道了变量是什么东西了吧对了 ,忘记告诉大家了，在Begin下面给变量复制仅仅只对当前正在执行你的代码的K线有效咯,到下一根K线他就是初始值了啊写个例子吧VarsNumeric a(100); 定义一个变量，类型是数值类型，变量名字是a,变量的初始值是100Beginif(CurrentBar = 0)/如果是第一根 K线,就把变量a的值变为1a = 1;FileAppend("C:a.Log",Text(a);End我们再来看看输出结果：1100100100100我们再来理解下这个结果(当然这个时候我们的 K线图上面只有5跟K线啊，其实随便多少跟K线都一样)首先代码在第一根K线上面执行，先执行if(CurrentBar = 0)这个东西，CurrentBar代表正在被执行的K线的索引因为代码现在在第一根K线上执行，所以索引就是0拉,于是这个表达式就成立了啊，既然if(CurrentBar = 0)这个表达式成立，那么他就会执行里面的东西a = 1;把1赋给变量a,也就是说吧变量a的内容改成1,然后执行 FileAppend("C:a.Log",Text(a);这个时候变量a的值是1,所以当然输出1 了啊代码执行完毕然后转到第二根K线，既然是第二根 K线,那么这根K线的索引就是1 了啊,1肯定不等于0啊那么表达式if(CurrentBar = 0)就不成立了啊，既然不成立那么他也就不会执行里面的东西a = 1;于是就直接执行 FileAppend("C:a.Log",Text(a);那么这个时候a的值是多少呢？很明显是100,就是他的初始值，而不是上一根K线执行代码的时候改变了的a的值!这点千万注意啊我相信好多朋友会在这里犯下错误的咯再说给变量赋值其实我们上面已经说了 ，记住=和=的区别吧=就是把=右边的东西赋给=左边的东西如 a = 100;就是把=右边的100赋给左边的变量a如 b = 9;就是把9赋给变量b我们在日常中一直把=当成等于，千万急着在TB里面=就是赋值！! 真正的等于的符号是=if（a=b） 就是如果a等于b/做某件事情现在我们说说TB中的流程控制流程控制就是控制代码执行的流程还说的明白点就是如果满足什么阳的条件就做什么事情或者不满足什么条件的时候做什么事情简单说流程控制就是控制语句控制代码控制语句中分为逻辑控制语句 （就是条件控制语句）和循环控制语句条件控制语句中大家记住循环控制语句中大家记住If这个关键字，翻译成中文就是如果For,就是开始循环了先说If.假设一个这样的条件： 如果（收盘价 > 开盘价）贝U输出：今日收红阳线我们先把这个东西翻译成TB如果翻译成If收盘价和开盘价大家都知道会翻译成Close和Open输出语句就是FileAppend,则翻译成TB就是： lf（Close>Open）FileAppend（"c:a.log","今日收红阳线”）；是不是很简单呢？大家记住一点，凡是if（如果）语句中的代码，都给我用括起来 我们再把上面的条件加上一点：如果（收盘价 > 开盘价）贝U输出：今日收红阳线否则如果（收盘价=开盘价）则输出：今日收十字线我们再翻译成TB,把否则翻译成Else,如果翻译成IfIf（Close>Open）FileAppend（"c:a.log","今日收红阳线”）；Else lf(Close=Open) FileAppend("C:a.log","今日收十字线");同样的简单，我们可以再把上面的条件再加 如果(收盘价 > 开盘价)贝U输出：今日收红阳线否则如果(收盘价=开盘价)则输出：今日收十字线否则则输出：今日收绿阴线上面的否则大家知道翻译成Else吧,有两种翻译方法，因为收盘价和开盘价的比较只存在着三种情况收盘价大于开盘价，收盘价等于开盘价，收盘价少于开盘价，我们先这样翻译If(Close>Open)FileAppend("c:a.log","今日收红阳线");Else If(Close=Open)FileAppend("C:a.log","今日收十字线");Else lf(Close<Open)FileAppend("c:a.log","今日收绿阴线");上面的这个语句是很好理解的但是大家想到了吗？开盘价和收盘价的比较，如果不满足Close>Open,也不满足Close=Open 那么肯定的一点就是：ClosevOpen,所以上面的语句可以写成：If(Close>Open)FileAppend("c:a.log","今日收红阳线");Else If(Close=Open)FileAppend("C:a.log","今日收十字线");ElseFileAppend("c:a.log","今日收绿阴线");再说For循环语句.先记下For语句的语法格式：For循环变量=初始值To结束值TradeBlazer 公式语句;也就是(假如变量i已经定义，且循环5次)For i = 0 To 4TradeBlazer 公式语句;for语句的理解稍微复杂点，但是大家不要怕，同样的很简单的，我们先看看For语句是如何执行的：比如上面的例子首先执行i=0,就是给变量i赋值让i等于0,然后判断i是不是少于等于4,这里i等于0,所以小于4,于是执行里面的TradeBlazer公式语句；执行里面的TradeBlazer公式语句后,TB系统会自动给变量i加1,这个时候i就等于1 了 (上面刚刚开始的时候i等于0,加了 1就是等于1 了)再判断i是不是少于等于To后面的4,1当然少于4,于是再执行里面的TradeBlazer公式语句；执行完里面的TradeBlazer公式语句后,Tb系统又自动给变量i加1, 上面i已经等于1 了,加1,于是这个时候i 等于2 了,于是再判断变量i的值2是不是少于To后面的4,当然少于拉，于是再执行里面的TradeBlazer公式语句；以此执行，当i等于5的时候,再与To后面的4进行比较，当然5>4 了 ,所以不满足条件了，于是不再执行里面的TradeBlazer 公式语句;而开始执行下面的语句拉明白了么？应该很清楚了大家再研究下下面的HHV的写法,就会很明白了的：/简称：HHV/名称：求N周期的最高值/类别：用户函数/类型：用户函数/输出：数值型/ParamsNumericSeries Price(0);Numeric Length(5);VarsNumeric highestValue(O);Numeric minDay;Numeric i;BeginminDay = Min(CurrentBar 丄 ength-1);for i=0 to minDayhighestValue=Max(highestValue,Price );Retur n highestValue;End/ 编译版本GS2004.06.12/ 用户版本2007/09/24 08:29/版权所有pwqzc/ 更改声明TradeBlazer Software 保留对TradeBlazer平台/每一版本的TrabeBlazer公式修改和重写的权利/现在说说参数与函数，说完了这个东西，就要进入实践阶段了咯，就要准备开始实打实的独立编写指标了首先我们必须明白，参数仅仅存在于函数里面，如果函数里面存在着参数，那么当你调用这个函数的时候必须要 先传递参数给这个函数 看起来似乎有点深奥和晦涩，那么我们先来明白函数是什么就很容易明了函数就是帮助我们完成某一件事情，并且完成这件事情以后会返回个东西给我们的一个方法比如一个这样的函数请注意，这仅仅是个假想的函数,仅为了帮助理解函数是什么):GetCloseFromTrader我们就很明白，这个函数就是帮助我们到交易所跑一趟，然后把收盘价返回给我们；有点明白了吧，但是仔细一想，这个东西似乎有点问题，比如返回收盘价，晕死，交易所那么多的品种，且每个品种都有那么多的月份，他到底返回的是什么东西的收盘价啊？呵呵，那么我们这样写：GetCloseFromTrader(Cu0801)现在应该完全明白了 ，这个函数就是从交易所返回某个品种的收盘价，到底是什么品种什么月份的收盘价呢？Cu0801就是拉.其实,这里面的Cu0801就是这个函数所需要的参数！我们于是就可以这样理解：函数是帮助用户完成某一件事情且返回用户所需要的数据的方法；那么参数呢？参数就是参到函数里面去的数，也就是说必须要传递给函数的数；我们现在不要求一定能够自己写函数 ，但是必须要懂得的是要看懂这个函数是做什么用的，且知道如何去调用这个函数！ 我们先看看下面的这个函数，这个函数的名字叫:HHV,是根据轮回老大的建议改写的，我们必须要读懂这个函数 且知道怎么样去调用这个函数，如果真懂了，这课就圆满的完成了 ！Copy to clipboard -CODE:/ /简称：HHV/名称：求N周期的最高值/类别：用户函数/类型：用户函数/输岀：数值型/ParamsNumericSeries Price(O);Numeric Length(5);VarsNumeric highestValue(O);Numeric minDay;Numeric i;BeginminDay = Min(CurrentBar,Length-1);for i=0 to minDayhighestValue=Max(highestValue,Pricei);Return highestValue;End/编译版本GS2004.06.12/用户版本2007/09/24 08:29/版权所有pwqzc/更改声明TradeBlazer Software 保留对 TradeBlazer 平台/每一版本的TrabeBlazer公式修改和重写的权利/我们一行一行的读，一行一行的理解；首先我们都知道，/后面的代表是注释，什么是注释？我狂晕！劲通过注释我们可以粗略的明白这个函数是干什么的？代表了什么意思：这个函数的名字HHV,他的作用是求N周期的最高值，并且会把这个最高值返回给调用这个函数的用户 通过此,我们就能够想到，这个N是个参数，比如5个周期或者10个周期或者其他周期的最高值，再仔细一想，是什么价格的最高值啊？是收盘价的最高值还是开盘价的最高值？或者是最高价的最高值呢？于是我们也就想到了这个函数的另外个参数：价格，比如5个周期的收盘价的最高值，或者10个周期的最高价的最高值紧接着,这个函数开始定义参数了 ，Params后面定义的就是参数，一个代表要得到什么价格的最高值，一个代表要得到什么周期的最高值；参数定义完了，这个函数就开始定义变量，对于函数，我们首先定义一个变量highestValue,我们这个函数必须要把这个变量返回给用户的这个变量highestValue就代表了你想得到的最高值！其他的两个变量我们先不要理睬，紧接着就是Begin 了,前面我们说过,Begin后面,我们的代码就要开始工作拉我们先想一想，假设我们求5天的收盘价的最高值，在第一根K线上，我们希望得到的收盘价的最高值就是这天的收盘价；到第二根K线的时候我们希望得到的收盘价的最高值是这两天的收盘价中价格最高的那个，第三根就是得到这三根K线里面收盘价最大的那个收盘价，第四天同样如此，第五天同样如此，第六天开始就取前面 5天的收盘价的最高价，第七天第N天同样如此了 ； 这个时候我们就应该想到，如果当前K线的索引小于你需要的周期数的时候就取当前K线的前面几个周期的最高值于是代码开始写：minDay = Min(CurrentBar,Length-1);这个大家都很明白吧，如果当前K线索引假设是3,而你要得到的是5个周期的最高值，因为暂时还没有5个周期, 我们我们就取这3个周期来获得这三个周期的最高值为什么要-1呢？因为K线的索引是从0开始计算的，那么前面的minDay呢？就是个变量，我们用这个变量来代表 周期,于是我们再到定义变量的地方去定义这个变量：Numeric minDay;再看代码：Copy to clipboard -CODE:for i=0 to minDayhighestValue=Max(highestValue,Pricei);很明显,这是一个前面我们所说的For循环,在For循环里面我们必须要先定义一个变量i(可以是其他名字),代表从什么基数开始循环；于是再到定义变量的地方去定义这个i变量：VarsNumeric highestValue(0);Numeric minDay;Numeric i;再看这个For循环，当i是0的时候,看这个时候0是不是小于等于最小周期minDay,如果条件成立，就执行：Copy to clipboard -CODE:highestValue=Max(highestValue,Pricei);Price0代表今天的价格，先比较今天的价格和最高值，取最大的那个保存；再把i+1 于是这个时候i为1 了，再比较是不是小于等于最小周期minDay,如果条件成立，再执行：Copy to clipboard -CODE: highestValue=Max(highestValue,Pricei);这个时候Price1就代表了昨天的价格，把昨天的价格和保存的最高值比较，取他们的最高的那个再次保存 依次循环，我们是不是就得到了某个周期某个价格的最高值了呢？呵呵最后面,我们用代码：Return highestValue;把这个得到的最高值返回给用户Return就是返回拉明白了吗？调用这个函数的时候就更简单了，比如求10个周期的收盘价的最高值HHV(Close,10);求20个周期的最高价的最高值：HHV(High,20);呵呵大家在看看和分析这个文章里面的函数就会完全明白了的我们现在来写一个飞狐的 DMA函数原文岀自这里QUOTE:请编飞狐DMA函数.函数：别名：DMA(X,N)动态移动平均参数：X为数组，N为计算周期返回：返回数组说明：求X的动态移动平均。算法：若Y=DMA(X,N) 则Y=N*X+(1-N)*Y', 其中Y表示上一周期 Y值,A必须小于1。示例：DMA(CLOSE, ( HIGH-LOW) /CLOSE)表示求以该周期震幅为平滑因子的平均价他上面的描述有点错误，应该是N必须小于1;且N不是计算周期，我们还是看看文华的关于 DMA的描述吧，这样清楚点attach396/attach很简单，我们可以看岀，如果要写这个用户函数，则我们必须要先定义两个参数，一个是上面的X,代表价格，我们用Price来表示，一个是N,代表动态因子，我们用Length来表示 当然，您可以用任意你喜欢的名字来表示 ；好的，开始吧！我们先新建一个用户函数，简称写DMA,名称写：求动态移动平均，分类选用户函数，模板任意(我选bool),然后确定; 出来如下东西：ParamsNumeric Num(10);VarsBool Con1;BeginCon1 = Close > Num;Return Coni;End我们把那些没用的东西删除，仅留下下面的内容ParamsVarsBeginEnd在定义参数的时候我们首先考虑下参数的数据类型我们先看价格参数，很明显我们应该把它定义为数值序列型，因为Close啊,Open啊，都是数值序列型的对于动态因子，同样简单，应该是数值型，于是,我们在Params关键字后面写定义参数的代码，如下：ParamsNumericSeries Price(100);Numeric Length(0.5);VarsBeginEnd我们首先应该明白，我们写函数的目的是要他帮我们做点事情并且返回个什么东西给我们，所以我们再定义一个变量ReturnValue,代表这个函数要返回的数据，到时候当这个函数执行完的时候我们就把这个东西返回给调用者于是我们再在Vars后面定义一个变量ReturnVlaue,数据类型是数值序列型，因为每根K线上都有的，所以定义成 序列型,代码如下：ParamsNumericSeries Price(100);Numeric Length(0.5);VarsNumericSeries ReturnValue(0);BeginEnd好拉,现在我们开始写这个函数的工作代码了；看看这个函数的意思，我们就很明白，今日的动态移动平均=昨日的动态移动平均*(1-动态因子)+今日的价格*动 态因子撚后再把这个值 Return返回就Ok 了 ;于是我们在Begin后面写代码：ParamsNumericSeries Price(IOO);Numeric Length(0.5);VarsNumericSeries ReturnValue(0);BeginReturnValue = ReturnValue1*(1-Length)+Price*Length;Return ReturnValue;End好了 ,这个函数就写好了啊，是不是very very简单啊？呵呵但是细心的朋友可能会发现，这个函数还有点小问题，就是如果是第一根 K线,那么这根K线的昨日的动态移动平均没有啊？这样做是不是会出错啊？对,非常对，会出错的啊，所以我们要先判断一下这根K线是不是第一根K线,用什么来判断是不是第一根K线呢?请看这个函数：Integer BarStatus()当前公式应用商品当前Bar的状态值，返回值0表示为第一个 Bar,返回值为1表示为中间的普通 Bar，返回值为2表示最后一个Bar。呵呵，就用BarStatus这个函数，如果他返回0,就代表第一根K线啊于是我们再改写完善上面的代码为：/简称：DMA/名称：求动态移动平均/类别：用户函数/类型：用户函数/输出：数值型/ParamsNumericSeries Price(100);Numeric Length(0.5);VarsNumericSeries ReturnValue(0);Beginlf(BarStatus=0)ReturnValue = Price;/如果是第一根 K线就直接把 Price赋值ElseReturnValue = ReturnValue1*(1-Length)+Price*Length; Return ReturnValue;End/编译版本GS2004.06.12/用户版本2007/11/03 11:57/版权所有pwqzc/更改声明TradeBlazer Software 保留对 TradeBlazer 平台/每一版本的TrabeBlazer公式修改和重写的权利/在编译这个用户函数的时候我碰到了一个小麻烦，大家都知道，我在上面新建这个函数的时候模板选择的是布尔型所以我编译的时候老是提示：C0122 Return语句的返回值类型与公式定义的返回值类型不符非常郁闷，后面我在公式编辑器里面的文件-属性设置-返回类型里面改成数值型确定后，再编译通过，不知道这是不是TB的一个小Bug,难道模板决定一切?这是个很郁闷的问题啊写这么久了，下次我们就整一个交易模型出来啊y这段时间，寒舍装修了一下，还有这段时间朋友的电脑岀问题特别多，加之其他一些莫名其妙的问题，让本文更新的速度极慢，连自己都感觉到很过意不去了，让我严肃的对大家说一声，用洋玩意儿来说一声:Sorry这篇文章我将写一个简单的交易模型，说起交易模型，大家都会想到在K线上的那些信号箭头，但是对于TB,我似乎不喜欢这样做.基于以下两点：一是如果把K线比喻成多姿多彩的美女，那么这个信号箭头应该是这个美女头上的一朵花，但是TB的那些箭头我怎么看都不舒服，就好比妓女的叫床：哦啊快点，啊哦快点，让人兴奋但又无可奈何,恶心极了 ；二是TB支持全自动下单，我对TB的这个方面还没有任何研究，且暂时现在也没有进行全自动交易的打算，没有调查就没有发言权啊，呵呵俺不是学文学的，俺现在能够找到的唯一能够证明俺有那么一把刷子的东西就仅存一个初中毕业证了，不好,俺要回家看看才好，不会被俺小崽拿去折四角板玩吧 ？如果真是那样，我可要狠狠的批评且严肃的警告他：现在你把 老子的毕业证折四角板玩，等你小学毕业了，老子要把你的毕业证拿来卷烟抽 ！言归正题，我比较喜欢而且非常喜欢把交易模型做成变色的K线,红色代表买，绿色代表卖，非常的简单明了，但是一看就又很能明白是什么意思,K线本来就是一位大大的美女，如果把红色的K线练成一块，把绿色的K线练成一 块,那是多少爽的一件事情啊!于是我们就要先学会画K线,在文华中画K线是STICKLINE,在TB中很简单，就用PlotNumeric吧.如果你要画红色 K线,那么就先输出High丄ow,Close,Open,很好理解吧，大家都知道阳线从上到下是最高 ，收盘， 开盘,最低，我们这个也一样，只是先输岀最高最低，再输岀收盘开盘；如果是要画绿色K线，那么就按照以下顺序输 出那四个价格：最高，最低，开盘，收盘，呵呵下面是画红色K线的代码：PlotNumeric("High",High);PlotNumeric("Low",Low);PlotNumeric("Close",Max(Close,Open);PlotNumeric("Open",Min(Close,Open);大家看到了上面有个Max和Min函数，大家可以想一想为什么咯，呵呵下面是画绿色K线的代码：PlotNumeric("High",High);PlotNumeric("Low",Low);PlotNumeric("Open",Max(Close,Open); PlotNumeric("Close",Min(Close,Open);终于看到有朋友 UP 了，是多么的感动啊！兮那么就让我先来解释下上面的为什么要用Max和Min函数吧，还是说明白一点好.如果我们要把所有 K线画成红色K线,那么是要先输出High,和Low,再输出收盘价和开盘价.但是如果当天ClosevOpen怎么办？于是就用Max 了咯，当然，画绿色K线的Min原理也一样.明白了吧那么我们先来把前面的150根K线全部画成红色，后面的150根K线全部画成绿色(呵呵,我是假设超级图表中存在300根K线啊)在右边的TB公式里面新建个技术指标，名称为MyKLine,简称随意，俺写成哈哈，类型随意选，模板空，确定，写下如 下代码：Copy to clipboard -CODE:/ 简称:MyKLine/名称：哈哈/类别：技术指标/类型：其它类/输岀：/Beginif(CurrentBar>150)/如果是第151根K线画绿色PlotNumeric("High",High);PlotNumeric("Low",Low);PlotNumeric("Open",Max(Close,Open); PlotNumeric("Close",Min(Close,Open);Else/如果是151根K线以前的Kurtosis线画红色PlotNumeric("High",High);PlotNumeric("Low",Low);PlotNumeric("Close",Max(Close,Open);PlotNumeric("Open",Min(Close,Open);End/编译版本GS2004.06.12/用户版本2007/11/14 13:51/版权所有pwqzc/更改声明TradeBlazer Software 保留对 TradeBlazer 平台/每一版本的TrabeBlazer公式修改和重写的权利/然后在文件-属性设置-默认-默认显示改成主图显示，点编译按钮完成编译，然后再在超级图表里面调用 这个技术指标，娃哈哈，效果出来了咯!很爽对不？呵呵,但是如果你是个完美主义者，肯定你会发觉这中间稍有缺陷？在哪里？就是当K线是十字星的时候K线会是白色的拉.怎么办？我们首先要明白为什么会岀现这样的现象的原因是收盘价=开盘价的时候会岀现这样的问题.那么如何去解决这个问题呢？有两种方法：第一种是强烈要求 TB修改系统的底层去实现，怕怕.还有就是自己向办法实现，nopain老大提供了个思路,very very good!真的是长江后浪推前浪，前浪死在沙滩上啊 俺们老了，还是nopain这样的年轻人脑子反应快咯 下面是按照nopain老大的思路实现的代码：Copy to clipboard -CODE:/ 简称:MyKLine/名称：哈哈/类别：技术指标/类型：其它类/输岀：/VarsNumeric OpenIsClose;/ 当开盘等于收盘价的时候Beginif(CurrentBar>150)/如果是第151根K线画绿色PlotNumeric("High",High);PlotNumeric("Low",Low);if(Open=Close)/如果收盘价等于开盘价OpenIsClose = Close-PriceScale*MinMove;PlotNumeric("Open",Open);PlotNumeric("Close",OpenlsClose);ElsePlotNumeric("Open",Max(Close,Open);PlotNumeric("Close",Min(Close,Open);Else/如果是151根K线以前的Kurtosis线画红色PlotNumeric("High",High);PlotNumeric("Low",Low);if(Open=Close)OpenIsClose = Close+PriceScale*MinMove;PlotNumeric("Close",OpenlsClose);PlotNumeric("Open",Open);ElsePlotNumeric("Close",Max(Close,Open);PlotNumeric("Open",Min(Close,Open);End/编译版本GS2004.06.12/用户版本2007/11/14 13:51/版权所有pwqzc/更改声明TradeBlazer Software 保留对 TradeBlazer 平台/每一版本的TrabeBlazer公式修改和重写的权利/上面有两个函数 PriceScale和MinMove,他们相乘的结果得到当前品种的最小变动价位，比如铜是10,胶是5（这两个函数的具体意义以及他们的乘积为什么会得到这个结果请看TB的函数帮助）也就是说当开盘=收盘的时候在收盘价的基础上上下浮动一个变动价位来画K线，呵呵大家看下效果，是不是很完美的解决了这个问题呢？本想晚上继续，但是晚上约了个客户，完后又上同事家弄电脑，我完全被郁闷死了 ，那个讨嫌的没有半点良心的雨 过天晴电脑保护系统可把我害死了！记得我买那个硬盘的时候硬盘厂家送了个雨过天晴保护系统，明明说可以使用一年，但是3个月后就提示到期了无法使用了，于是只好卸载雨过天晴，在卸载过程中我选择了回复电脑到最开始的状态，当重新启动后，我的大脑一片空白！!！天啊，所有的数据没有了 ！!！花了几个小时才把数据找回，到半 夜12点才完全弄好，本来俺的睡眠就非常差劲，于是不说了，我们有了上面的画变色K线的基础，现在来做个简单的变色K线系统吧，是非常非常简单的；曾听说有人用两条均线打天下，我们就做这个打天下的变色K线交易模型；假设两条均线是5日均线和10日均线，于是就有两个变量，MaFive和MaTen,5日上穿10日买，5日下穿10日卖; 写成代码如下：Copy to clipboard -CODE:/ 简称:MyKLine/名称：哈哈/类别：技术指标/类型：其它类/输岀：/VarsNumeric OpenlsClose;/ 当开盘等于收盘价的时候NumericSeries MaFive;/5 日均线NumericSeries MaTen;/10 日均线BeginMaFive = SAverage(Close,5);/5 天移动平均MaTen = SAverage