開拓者交易系統源碼集錦大全

作者：開拓者 TB 來源：cxh99.com 發布時間：2012年12月11日

內容： 倡儀：
愿交流自動化交易研究心得者，可將公式貼出來，同時貼出圖片，供大家相互學習用！
同意者頂！　
1 MACDK線波段

Params
Numeric FastLength(12);
Numeric SlowLength(26);
Numeric MACDLength(9);
Vars
NumericSeries MACDValue;
Numeric AvgMACD;
Numeric MACDDiff;
NumericSeries aa12;
Numeric aa13;
Begin
MACDValue = XAverage( Close, FastLength ) - XAverage( Close, SlowLength ) ;
AvgMACD = XAverage(MACDValue,MACDLength);
MACDDiff = MACDValue - AvgMACD;
PlotNumeric("MACD",MACDValue);
PlotNumeric("MACDAvg",AvgMACD);
If (MACDDiff >= 0)
  PlotNumeric("MACDDiff",MACDDiff,Red);
Else
  PlotNumeric("MACDDiff",MACDDiff,Green);
PlotNumeric("零線",0);
aa12=MACDValue;
aa13=AvgMACD;
If(aa12-aa13>0)
   {
   PlotNumeric("high",aa12);
   PlotNumeric("Low",aa13);
   PlotNumeric("Close",aa12);
   PlotNumeric("Open",aa13);
}
   Else
   {
   PlotNumeric("high",aa13);
      PlotNumeric("Low",aa12);
      PlotNumeric("Open",aa13);
      PlotNumeric("Close",aa12);
   }
//程序化交易
End
2  翻譯文華論壇里的《波段王》

Params
   Numeric M1(13);
   Numeric M2(60);
   Numeric M3(34);
   Numeric M4(667);

Vars
   NumericSeries aa1;
   NumericSeries aa2;
   NumericSeries aa3;
   NumericSeries aa4;
   NumericSeries aa5;
   NumericSeries aa6;
   NumericSeries aa7;
   NumericSeries aa8;
   NumericSeries aa9;
   NumericSeries aa10;
   NumericSeries aa11;
   NumericSeries aa12;
   NumericSeries aa13;
   NumericSeries aa14;
   NumericSeries bb;
Begin
bb=M4/1000;
aa1=Highest(High,M1)-Lowest(low,M1);
aa2=Highest(HIGH,M1)-CLOSE;
aa3=CLOSE-Lowest(LOW,M1);
aa4=((aa2/aa1)*100)-70;
aa5=(((CLOSE-Lowest(LOW,M2))/(Highest(HIGH,M2)-Lowest(LOW,M2)))*100);
aa6=(((2*CLOSE)+HIGH)+LOW)/4;
aa7=WAverage(100*aa3/aa1,3);
aa8=Lowest(LOW,M3);
aa9=WAverage(aa7,3)-WAverage(aa4,9);
if(aa9>100)
   {
         aa10=aa9-100;
   }Else
      {
aa10=0;
      }
aa11=Highest(HIGH,M3);
aa12=SAverage((((aa6-aa8)/(aa11-aa8))*100),M1);
aa13=SAverage(((bb*aa12[1])+((1-bb)*aa12)),2);
If(aa12-aa13>0)
   {
   PlotNumeric("high",aa12);
   PlotNumeric("Low",aa13);
   PlotNumeric("Close",aa12);
   PlotNumeric("Open",aa13);
   }
   Else
   {
      PlotNumeric("high",aa13);
      PlotNumeric("Low",aa12);
      PlotNumeric("Open",aa13);
      PlotNumeric("Close",aa12);
   }

aa14=SAverage(aa13,5);
PlotNumeric("aa14",aa14);
End
3  nopain 老師編寫的《顧比倒數線》

Params
      Numeric Length(5);
Vars
      Bool ConTmp;
      NumericSeries CBLHi;
      NumericSeries CBLLo;
Begin
      If(High < Highest(High,Length))
      {
            CBLHi = CBLHi[1];
      }Else
      {
            ConTmp = Low[2] < Low[1] && Low[2] < Low && Low[1] < Low;
            If(ConTmp)
            {
                     CBLHi = Low[2];
            }Else
            {
                     ConTmp = (Low[3] < Low[2] && Low[3] < Low[1] && Low[3] < Low) And
                                    (Low[2] < Low || Low[1] < Low);
                     If(ConTmp)
                     {
                              CBLHi = Low[3];
                     }Else
                     {
                              ConTmp = (Low[4] < Low[3] && Low[4] < Low[2] && Low[4] < Low[1] && Low[4] < Low) And
                                             (Low[3] < Low || Low[2] < Low || Low[1] < Low);
                              If(ConTmp)
                              {
                                    CBLHi = Low[4];
                              }Else
                              {
                                    ConTmp = (Low[5] < Low[4] && Low[5] < Low[3] && Low[5] < Low[2] && Low[5] < Low[1] && Low[5] < Low) And
                                                      (Low[4] < Low || Low[3] < Low || Low[2] < Low || Low[1] < Low);
                                    If(ConTmp)
                                    {
                                             CBLHi = Low[5];
                                    }Else
                                    {
                                             CBLHi = CBLHi[1];
                                    }
                              }
                     }
            }
      }

      If(Low > Lowest(Low,Length))
      {
            CBLLo = CBLLo[1];
      }Else
      {
            ConTmp = High[2] > High[1] && High[2] > High && High[1] > High;
            If(ConTmp)
            {
                     CBLLo = High[2];
            }Else
            {
                     ConTmp = (High[3] > High[2] && High[3] > High[1] && High[3] > High) And
                                    (High[2] > High || High[1] > High);
                     If(ConTmp)
                     {
                              CBLLo = High[3];
                     }Else
                     {
                              ConTmp = (High[4] > High[3] && High[4] > High[2] && High[4] > High[1] && High[4] > High) And
                                             (High[3] > High || High[2] > High || High[1] > High);
                              If(ConTmp)
                              {
                                    CBLLo = High[4];
                              }Else
                              {
                                    ConTmp = (High[5] > High[4] && High[5] > High[3] && High[5] > High[2] && High[5] > High[1] && High[5] > High) And
                                                      (High[4] > High || High[3] > High || High[2] > High || High[1] > High);
                                    If(ConTmp)
                                    {
                                             CBLLo = High[5];
                                    }Else
                                    {
                                             CBLLo = CBLLo[1];
                                    }
                              }
                     }
            }
      }

      If(CBLHi < Close)
      {
            PlotNumeric("CBLHi",CBLHi,Yellow);
            PlotNumeric("CBLLo",InvalidNumeric);

            PlotNumeric("Open",Min(Open,Close));
            PlotNumeric("Close",Max(Open,Close));
      }Else
      {
            PlotNumeric("CBLHi",InvalidNumeric);
            If(CBLLo > Close)
            {
                     PlotNumeric("CBLLo",CBLLo,Magenta);
                     PlotNumeric("Open",Max(Open,Close));
                     PlotNumeric("Close",Min(Open,Close));
            }Else
            {
                     PlotNumeric("CBLLo",InvalidNumeric);
                     PlotNumeric("Open",Close);
                     PlotNumeric("Close",Close);
            }
      }
//程序化交易
      PlotNumeric("High",High);
      PlotNumeric("Low",Low);
End