金字塔代碼修改 [金字塔]
- 咨詢內(nèi)容： AvgTR := ref(MA(TR,ATRLen),1) ;
//建立多頭進(jìn)場(chǎng)條件
Long := h > T20Hi ;
//多頭進(jìn)場(chǎng)
if Long then begin
myEntryPrice := IF(Open>T20Hi+MINDIFF ,Open ,T20Hi+MINDIFF ) ;
buy( _DEBUG,PosNum,limitr,myEntryPrice);
Position := 1 ;
TurtleUnits := 1 ;
N := AvgTR ;BuyOrderThisBar := 1;
//多頭加倉條件
While (High>myEntryPrice+0.5*N) and TurtleUnits<4 Do Begin
myEntryPrice := IF(Open>myEntryPrice+0.5*N ,Open ,myEntryPrice+0.5*N ) ;
myEntryPrice := Ceiling(myEntryPrice/MINDIFF)*MINDIFF ;
buy( _DEBUG, PosNum, limitr, myEntryPrice);
TurtleUnits := TurtleUnits+1 ;
BuyOrderThisBar := 1;
End //While 上面的ATR計(jì)算了4次，第一段開倉有1次，記為第一次，后面一段加倉有3次，分別記為第二，第三，第四次，我希望第二第三第四次依然用第一次的ATR，而不要刷新k線后重新計(jì)算。 本人不擅長(zhǎng)編程，所以希望版上老師幫我寫一下，能夠給我完整的修改好的代碼。不要只提供一個(gè)思路，思路我也懂，就是第一次下單記錄最初的值。 不勝感激。 [此貼子已經(jīng)被作者于2012-9-25 19:39:39編輯過] - 金字塔客服：
您好，正在處理該問題，預(yù)計(jì)在今天收盤前解決
- 用戶回復(fù)：
variable:N=0;
AvgTR := ref(MA(TR,ATRLen),1) ;
//建立多頭進(jìn)場(chǎng)條件
Long := h > T20Hi ;
//多頭進(jìn)場(chǎng)
if Long and a=0 then begin
myEntryPrice := IF(Open>T20Hi+MINDIFF ,Open ,T20Hi+MINDIFF ) ;
buy( _DEBUG,PosNum,limitr,myEntryPrice);
Position := 1 ;
TurtleUnits := 1 ;
N:= AvgTR ;
BuyOrderThisBar := 1;a:=1;
end
//多頭加倉條件
if long and a=1 then begin
myEntryPrice := IF(Open>T20Hi+MINDIFF ,Open ,T20Hi+MINDIFF ) ;
buy( _DEBUG,PosNum,limitr,myEntryPrice);
Position := 1 ;
TurtleUnits := 1 ;
BuyOrderThisBar := 1;
While (High>myEntryPrice+0.5*N) and TurtleUnits<4 Do Begin
myEntryPrice := IF(Open>myEntryPrice+0.5*N ,Open ,myEntryPrice+0.5*N ) ;
myEntryPrice := Ceiling(myEntryPrice/MINDIFF)*MINDIFF ;
buy( _DEBUG, PosNum, limitr, myEntryPrice);
TurtleUnits := TurtleUnits+1 ;
BuyOrderThisBar := 1;
End //While - 網(wǎng)友回復(fù)： 多頭進(jìn)場(chǎng)第一句就不理解，if Long and a=0。。。這個(gè)a哪里來的啊？
- 網(wǎng)友回復(fù)：
//多頭加倉條件
if long and a=1 then begin
myEntryPrice := IF(Open>T20Hi+MINDIFF ,Open ,T20Hi+MINDIFF ) ;
buy( _DEBUG,PosNum,limitr,myEntryPrice);
Position := 1 ;
TurtleUnits := 1 ;
BuyOrderThisBar := 1;為什么加倉的時(shí)候有這樣一段代碼？這不是開倉嗎？加倉應(yīng)該用while語句啊
有思路，想編寫各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 262069696 進(jìn)行 有償 編寫！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)