開拓者 TB KD2號交易策略模型源碼
作者：開拓者 TB 來源：cxh99.com 發(fā)布時間：2013年03月14日
- 咨詢內(nèi)容： 本帖最后由 woomin1985 于 2013-2-19 23:52 編輯
//------------------------------------------------------------------------
// 簡稱: kd2
// 名稱:
// 類別: 公式應用
// 類型: 用戶應用
// 輸出://程序化交易 www.weiqiv.net.cn
//------------------------------------------------------------------------
Params
Numeric Length1(16);
Numeric Length2(35);
Numeric Length3(9);
Numeric Lots(1);
Vars
NumericSeries Value1;
NumericSeries Value2;
NumericSeries LowestValue;
NumericSeries Value5;
NumericSeries RSV;
NumericSeries KValue;
NumericSeries DValue;
NumericSeries AvgVol5;
NumericSeries CloseTmp1;
NumericSeries CloseTmp2;
NumericSeries RSIValue;
NumericSeries PreLow;
NumericSeries PreKValue;
NumericSeries Lowest33Value;
NumericSeries VarTmp1;
NumericSeries VarTmp2;
NumericSeries ZL;
NumericSeries SH;
Begin
Value1 =XAverage(Close,Length1);
Value2 =XAverage(Close,Length2);
//取兩條均線的值
LowestValue = Lowest(Low,Length3);
//取最低值
Value5= (CLOSE-LowestValue)/(Highest(High,Length3)-LowestValue)*100;
RSV =XAverage(Value5,3);
KValue = XAverage(RSV,3);
DValue =Average(KValue,3);
PreKValue =KValue[1];
PreLow =Low[1];
AvgVol5 =Average(Vol,5);
Lowest33Value= Lowest(Low,33);
VarTmp1=((2*CLOSE+HIGH+LOW)/4 - Lowest33Value )/(Highest(High,33) - Lowest33Value) *100;
ZL =XAverage(VarTmp1,17);
VarTmp2 =0.667*ZL[1] + 0.333*ZL;
SH =XAverage(VarTmp2,2);
CloseTmp1 =Max(Close - Close[1], 0);
CloseTmp2 =Abs(Close - Close[1]);
RSIValue =WAverage(CloseTmp1,6)/WAverage(CloseTmp2,6) *100;
//以上為KD部分只要如何換書寫方式就可了，，higest ==hhv lowest==llv xAverager=ma
// Buy什么時做買入動作，條件
If((Close[1]>Value1[1] and Close[2]<Value1[2] && KValue[1] > DValue[1] && ZL[1]>SH[1]) or
(Value1[1]>Value2[1] and Value1[2]<Value2[2] && ZL[1]>SH[1] && Vol[1]> 1.25 * AvgVol5[1] && KValue[1] > DValue[1]) Or
(KValue[1]>DValue[1] and KValue[2]<DValue[2] && Close[1] > Value1[1] && ZL[1]>SH[1]) Or
(RSIValue[1]>70 and RSIValue[2]<70))//條件
{
Buy(Lots,open+MinMove*PriceScale);
}
//SellShort 什么作賣出動作
If((PreLow[1]>Close[1] and PreLow[2]<Close[2] && KValue[1] > DValue[1] && SH>ZL) Or
(DValue[1]>KValue[1] and DValue[2]<KValue[2] && Close[1] < Value1[1] && Value1[1] < Value2[1]) Or
(PreKValue[1]>KValue[1] and PreKValue[2]<KValue[2] && SH[1]>ZL[1]))//條件
{
SellShort(Lots,open-MinMove*PriceScale);
}
// Sell 什么做多平倉動作
If((DValue[1]>KValue[1] and DValue[2]<KValue[2]) or Close[1] < Value1 [1]* 1.001)//條件
{
Sell(Lots,open-MinMove*PriceScale);;
}
//BuyToCover什么做空平倉動作
If((KValue[1]>DValue[1] and KValue[2]<DValue[2]) or Close[1] > Value1[1] * 1.001)//條件
{
BuyToCover(Lots,open+MinMove*PriceScale);
}
End
打印本文
關(guān)閉窗口