[TB源码] KDJ指标及系统交易源码

张咏

KDJ源码： //------------------------------------------------------------------------ // 简称: KDJ // 名称: 快速随机指数 // 类别: 技术指标 // 类型: 振荡类 // 输出: 五条指标线 //------------------------------------------------------------------------ Params     Numeric Length(14);                 Numeric SlowLength(3);        Numeric SmoothLength(3); Vars     NumericSeries HighestValue;                    NumericSeries LowestValue;                         NumericSeries KValue;     Numeric DValue; Begin     HighestValue = HighestFC(High, Length);     LowestValue = LowestFC(Low, Length);     KValue = SummationFC(Close - LowestValue,SlowLength)/SummationFC(HighestValue-LowestValue,SlowLength)*100;     DValue = AverageFC(KValue,SmoothLength);     PlotNumeric("K",KValue);     PlotNumeric("D",DValue);     PlotNumeric("J",3*KValue - 2*DValue);     PlotNumeric("Ref1",20);     PlotNumeric("Ref2",80); End //------------------------------------------------------------------------ // 编译版本    GS2004.06.12 // 版权所有    TradeBlazer Software 2003－2008 // 更改声明    TradeBlazer Software保留对TradeBlazer平 //            台每一版本的TradeBlazer公式修改和重写的权利 //------------------------------------------------------------------------ 复制代码 程式交易源码： //------------------------------------------------------------------------ // 简称: My_kdjSYS // 名称: // 类别: 交易指令 // 类型: 其他 // 输出: //------------------------------------------------------------------------ Params     Numeric Length(14);                 Numeric SlowLength(3);        Numeric SmoothLength(3); Vars     NumericSeries HighestValue;                    NumericSeries LowestValue;                         NumericSeries KValue;     NumericSeries DValue;         Bool condition1;     Bool condition2; Begin             HighestValue = HighestFC(High, Length);     LowestValue = LowestFC(Low, Length);     KValue = SummationFC(Close - LowestValue,SlowLength)/SummationFC(HighestValue-LowestValue,SlowLength)*100;     DValue = AverageFC(KValue,SmoothLength);                  condition1 = CrossOver(Kvalue,dvalue);         condition2 = CrossUnder(kvalue,dvalue);         if (condition1)         {         Buy(0,Close);         }    if (condition2)    {    SellShort(0,Close);    } End //------------------------------------------------------------------------ // 编译版本        GS2004.06.12 // 用户版本        2011/03/18 10:06 // 版权所有        yezi08895 // 更改声明        TradeBlazer Software保留对TradeBlazer平台 //                        每一版本的TrabeBlazer公式修改和重写的权利 //------------------------------------------------------------------------ 复制代码