求解此程序的問(wèn)題在哪里？

作者：開(kāi)拓者 TB 來(lái)源：cxh99.com 發(fā)布時(shí)間：2015年07月06日

咨詢內(nèi)容： Params
Numeric N1(6);
Numeric N2(5);
Numeric FastLength(12);
Numeric SlowLength(26);
Numeric MACDLength(9);
Numeric Lots(1);
Numeric X(10);
Vars
Numeric HD;
Numeric MACDValue;
Numeric AvgMACD;
NumericSeries M1;
NumericSeries M2;
NumericSeries HH;
NumericSeries LL;
Numeric bartime;
String sectionname;
String PCName;
String MP;
Numeric OrderIndex;

Begin
HD=MinMove*PriceScale;

MACDValue = XAverage( Close, FastLength ) - XAverage( Close, SlowLength ) ;
AvgMACD = XAverage(MACDValue,MACDLength);

M1 = dema(c,5);
M2 = dema(c,22);

If(MarketPosition!=0)                //畫(huà)開(kāi)倉(cāng)價(jià)
{PlotNumeric("c",EntryPrice);}

If(CurrentBar < MaxBarsBack) Return;

// 當(dāng)前BAR的日期和時(shí)間
bartime = Date*1000000+Time*1000000;

// 準(zhǔn)備保存交易信號(hào)的數(shù)據(jù)庫(kù)塊名
sectionname = Symbol+"_"+IIFString(BarType==0,"D","M")+Text(BarInterval)+"_"+FormulaName;
PCName = Symbol+"_"+IIFString(BarType==0,"D","M")+Text(BarInterval)+"_"+FormulaName;

// 實(shí)時(shí)交易才記錄交易信號(hào)
If(BarStatus == 2 And Date == CurrentDate)
{
MP = GetTBProfileString(sectionname,Text(bartime)+"_MP");

//If(MarketPosition <>1 && M1[1] > M2[1])
If( MP <> "1" And MarketPosition ==0 And MACDValue >=AvgMACD AND M1>=M2 )
{
// 按順序給當(dāng)前BAR的交易信號(hào)編號(hào)并記錄在數(shù)據(jù)庫(kù)中
OrderIndex = Value(GetTBProfileString(sectionname,Text(bartime)+"_OrderCnt"));
If(OrderIndex == InvalidNumeric) OrderIndex = 1;
Else OrderIndex = OrderIndex + 1;
SetTBProfileString(sectionname,Text(bartime)+"_TotalOrder",Text(OrderIndex));

// 記錄數(shù)據(jù)庫(kù)交易信號(hào)的MarketPosition
MP = "1";
SetTBProfileString(sectionname,Text(bartime)+"_MP",MP);

// 記錄交易信號(hào)的方向和價(jià)格，1多  -1空

//Buy(Lots,Open);
SetTBProfileString(sectionname,Text(bartime)+"_Order_"+Trim(Text(OrderIndex)),"1");
SetTBProfileString(sectionname,Text(bartime)+"_Price_"+Trim(Text(OrderIndex)),Text(Close));
}

//If(MarketPosition <>-1 && M1[1] < M2[1])
If(MP <> "-1" And MarketPosition ==0 And MACDValue<=AvgMACD AND M1<=M2)
{
// 按順序給當(dāng)前BAR的交易信號(hào)編號(hào)并記錄在數(shù)據(jù)庫(kù)中
OrderIndex = Value(GetTBProfileString(sectionname,Text(bartime)+"_OrderCnt"));
If(OrderIndex == InvalidNumeric) OrderIndex = 1;
Else OrderIndex = OrderIndex + 1;
SetTBProfileString(sectionname,Text(bartime)+"_TotalOrder",Text(OrderIndex));

// 記錄數(shù)據(jù)庫(kù)交易信號(hào)的MarketPosition
MP = "-1";
SetTBProfileString(sectionname,Text(bartime)+"_MP",MP);

// 記錄交易信號(hào)的方向和價(jià)格，1多  -1空

//SellShort(Lots,Open);
SetTBProfileString(sectionname,Text(bartime)+"_Order_"+Trim(Text(OrderIndex)),"-1");
SetTBProfileString(sectionname,Text(bartime)+"_Price_"+Trim(Text(OrderIndex)),Text(Close));
}
}

// 根據(jù)數(shù)據(jù)庫(kù)中記錄的該BAR的交易信號(hào)，順序發(fā)出交易指令

// 第一筆交易
OrderIndex =1;
If(GetTBProfileString(sectionname,Text(bartime)+"_Order_"+Text(OrderIndex)) == InvalidString) // 沒(méi)有記錄則返回
{
Return;
}
Else // 否則發(fā)出交易指令
{
If(GetTBProfileString(sectionname,Text(bartime)+"_Order_"+Text(OrderIndex)) == "1")
{
Buy(0,Value(GetTBProfileString(sectionname,Text(bartime)+"_Price_"+Text(OrderIndex))));
}
Else If(GetTBProfileString(sectionname,Text(bartime)+"_Order_"+Text(OrderIndex)) == "-1")
{
SellShort(0,Value(GetTBProfileString(sectionname,Text(bartime)+"_Price_"+Text(OrderIndex))));
}
}

//定義開(kāi)倉(cāng)后的最高最低點(diǎn)
If(MarketPosition<>0)
{
   If(GetTBProfileString(PCname,Text(bartime)+"HH") == InvalidString) //開(kāi)倉(cāng)時(shí)記錄開(kāi)倉(cāng)價(jià)位高低點(diǎn)
   {
   SetTBProfileString(PCName,Text(bartime)+"HH",Text(EntryPrice));
   SetTBProfileString(PCName,Text(bartime)+"LL",Text(EntryPrice));
   }
   Else
   {
   If(C>Value(GetTBProfileString(PCName,Text(bartime)+"HH")))          //開(kāi)倉(cāng)后更新高點(diǎn)
{
   SetTBProfileString(PCName,Text(bartime)+"HH",Text(C));
}
   If(C<Value(GetTBProfileString(PCName,Text(bartime)+"LL")))          //開(kāi)倉(cāng)后更新低點(diǎn)
{
SetTBProfileString(PCName,Text(bartime)+"LL",Text(C));
}
   }
}


If(MarketPosition==1 )
{
   If( Value(GetTBProfileString(pcname,Text(bartime)+"LL"))<=EntryPrice-X*HD)
   {Sell(0,Min(o,EntryPrice-X*HD));}             //止損

   ELSE If(Value(GetTBProfileString(pcname,Text(bartime)+"HH"))>=EntryPrice+X*HD AND C<=Value(GetTBProfileString(pcname,Text(bartime)+"HH"))-X*HD)  //跟蹤止盈
   {Sell(0,Min(o,Value(GetTBProfileString(pcname,Text(bartime)+"HH"))-X*HD));}
}
If(MarketPosition==-1 )
{
   If( Value(GetTBProfileString(pcname,Text(bartime)+"HH"))>=EntryPrice+X*HD)
   {BuyToCover(0,Max(o,EntryPrice+X*HD));}
   ELSE If(Value(GetTBProfileString(pcname,Text(bartime)+"LL"))<=EntryPrice-X*HD AND C>=Value(GetTBProfileString(pcname,Text(bartime)+"LL"))+X*HD)
   {BuyToCover(0,MAX(o,Value(GetTBProfileString(pcname,Text(bartime)+"LL"))+X*HD));}
}
END
TB技術(shù)人員： 你程序輸出有什么問(wèn)題