開拓者交易系統(tǒng)源碼集錦大全
作者：開拓者 TB 來源：cxh99.com 發(fā)布時間：2012年12月11日
- 內(nèi)容： 倡儀：
愿交流自動化交易研究心得者，可將公式貼出來，同時貼出圖片，供大家相互學(xué)習(xí)用！
同意者頂！
- 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 老師編寫的《顧比倒數(shù)線》
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
打印本文
關(guān)閉窗口