求解此程序的問(wèn)題在哪里？ [開(kāi)拓者 TB]
- 咨詢(xún)內(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)題
有思路，想編寫(xiě)各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 1145508240 進(jìn)行 有償 編寫(xiě)！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)