仿照系統(tǒng)自帶的海龜系統(tǒng)編寫了一套簡單的海龜交易系統(tǒng) [開拓者 TB]
- 咨詢內(nèi)容：
- //------------------------------------------------------------------------
- // 簡稱: TurtleDayTrader
- // 名稱: TurtleDayTrader
- // 類別: 公式應(yīng)用
- // 類型: 用戶應(yīng)用
- // 輸出:
- //------------------------------------------------------------------------
- Params
- Numeric LongLength(20); // 長周期
- Numeric ShortLength(10); // 短周期
- Numeric TrailingScale(0.5); // 增倉比例
- Numeric StopLossSet(2); // 止損比例
- Numeric Lots(1); // 交易數(shù)量
- Vars
- Numeric MinPoint; // 最小變動(dòng)單位
- NumericSeries AvgTR; // ATR
- Numeric N; // N 值
- NumericSeries DonchianHi; // 唐奇安通道上軌，延后1個(gè)Bar
- NumericSeries DonchianLo; // 唐奇安通道下軌，延后1個(gè)Bar
- Numeric ExitHighestPrice; // 離市時(shí)判斷需要的N周期最高價(jià)
- Numeric ExitLowestPrice; // 離市時(shí)判斷需要的N周期最低價(jià)
- Numeric myEntryPrice; // 開倉價(jià)格
- Numeric myExitPrice; // 平倉價(jià)格
- Bool SendOrderThisBar(False); // 當(dāng)前Bar有過交易
- NumericSeries preEntryPrice(0); // 前一次開倉的價(jià)格
- Begin
- If(BarStatus == 0)
- {
- preEntryPrice = InvalidNumeric;
- } Else
- {
- preEntryPrice = preEntryPrice[1];
- }
-
- AvgTR = XAverage(TrueRange,LongLength);
- N = AvgTR[1];
- DonchianHi = HighestFC(High[1],LongLength);
- DonchianLo = LowestFC(Low[1],LongLength);
- ExitLowestPrice = LowestFC(Low[1],ShortLength);
- ExitHighestPrice = HighestFC(High[1],ShortLength);
- Commentary("N="+Text(N));
- Commentary("preEntryPrice="+Text(preEntryPrice));
- PlotNumeric("上軌",DonchianHi);
- PlotNumeric("下軌",DonchianLo);
- PlotNumeric("退出上軌",ExitHighestPrice);
- PlotNumeric("退出下軌",ExitLowestPrice);
-
- /*/////////////////////////////////開倉////////////////////////////////////////*/
- If(MarketPosition == 0 && High > DonchianHi)
- {
- myEntryPrice = min(high,DonchianHi);
- myEntryPrice = IIF(myEntryPrice < Open, Open,myEntryPrice); // 大跳空的時(shí)候用開盤價(jià)代替
- preEntryPrice = myEntryPrice;
- Buy(Lots,myEntryPrice);
- SendOrderThisBar = True;
- }
- If(MarketPosition == 0 && Low < DonchianLo)
- {
- myEntryPrice = max(low,DonchianLo);
- myEntryPrice = IIF(myEntryPrice > Open, Open,myEntryPrice); // 大跳空的時(shí)候用開盤價(jià)代替
- preEntryPrice = myEntryPrice;
- SendOrderThisBar = True;
- SellShort(Lots,myEntryPrice);
- }
- /*///////////////////////////////止盈加倉////////////////////////////////////*/
- If(MarketPosition == 1)
- {
- Commentary("ExitLowestPrice="+Text(ExitLowestPrice));
- If(Low < ExitLowestPrice)
- {
- myExitPrice = max(Low,ExitLowestPrice);
- myExitPrice = IIF(myExitPrice > Open, Open,myExitPrice); // 大跳空的時(shí)候用開盤價(jià)代替
- Sell(0,myExitPrice); // 數(shù)量用0的情況下將全部平
- }Else
- {
- If(preEntryPrice!=InvalidNumeric)
- {
- If(Open >= preEntryPrice + TrailingScale*N) // 如果開盤就超過設(shè)定的1/2N,則直接用開盤價(jià)增倉。
- {
- myEntryPrice = Open;
- preEntryPrice = myEntryPrice;
- Buy(Lots,myEntryPrice);
- SendOrderThisBar = True;
- }
- while(High >= preEntryPrice + TrailingScale*N) // 以最高價(jià)為標(biāo)準(zhǔn)，判斷能進(jìn)行幾次增倉
- {
- myEntryPrice = preEntryPrice + TrailingScale * N;
- preEntryPrice = myEntryPrice;
- Buy(Lots,myEntryPrice);
- SendOrderThisBar = True;
- }
- }
- /*///////////////////////////////////止損策略///////////////////////////////*/
- If(Low <= preEntryPrice - StopLossSet * N && SendOrderThisBar == false) // 加倉Bar不止損
- {
- myExitPrice = preEntryPrice - StopLossSet * N;
- myExitPrice = IIF(myExitPrice > Open, Open,myExitPrice); // 大跳空的時(shí)候用開盤價(jià)代替
- Sell(0,myExitPrice); // 數(shù)量用0的情況下將全部平倉
- }
- }
- }Else If(MarketPosition ==-1) // 有空倉的情況
- {
- Commentary("ExitHighestPrice="+Text(ExitHighestPrice));
- If(High > ExitHighestPrice)
- {
- myExitPrice = Min(High,ExitHighestPrice);
- myExitPrice = IIF(myExitPrice < Open, Open,myExitPrice); // 大跳空的時(shí)候用開盤價(jià)代替
- BuyToCover(0,myExitPrice); // 數(shù)量用0的情況下將全部平倉
- }Else
- {
- If(preEntryPrice!=InvalidNumeric)
- {
- If(Open <= preEntryPrice - TrailingScale*N) // 如果開盤就超過設(shè)定的1/2N,則直接用開盤價(jià)增倉。
- {
- myEntryPrice = Open;
- preEntryPrice = myEntryPrice;
- SellShort(Lots,myEntryPrice);
- SendOrderThisBar = True;
- }
- while(Low <= preEntryPrice - TrailingScale*N) // 以最低價(jià)為標(biāo)準(zhǔn)，判斷能進(jìn)行幾次增倉
- {
- myEntryPrice = preEntryPrice - TrailingScale * N;
- preEntryPrice = myEntryPrice;
- SellShort(Lots,myEntryPrice);
- SendOrderThisBar = True;
- }
- }
- /*///////////////////////////////////止損策略///////////////////////////////*/
- If(High >= preEntryPrice + StopLossSet * N && SendOrderThisBar==false) // 加倉Bar不止損
- {
- myExitPrice = preEntryPrice + StopLossSet * N;
- myExitPrice = IIF(myExitPrice < Open, Open,myExitPrice); // 大跳空的時(shí)候用開盤價(jià)代替
- BuyToCover(0,myExitPrice); // 數(shù)量用0的情況下將全部平倉
- }
- }
- }
- End
- //------------------------------------------------------------------------
- // 編譯版本 GS2010.12.08
- // 用戶版本 2012/02/24 20:16
- // 版權(quán)所有 飛躍
- // 更改聲明 TradeBlazer Software保留對TradeBlazer平臺(tái)
- // 每一版本的TrabeBlazer公式修改和重寫的權(quán)利
- //------------------------------------------------------------------------
- //------------------------------------------------------------------------
- TB技術(shù)人員：
本帖最后由 飛躍 于 2012-3-18 11:45 編輯
TB自帶的海龜交易系統(tǒng)，仿照其編寫了一套簡單的海龜交易系統(tǒng)，大家可以模擬一下，表現(xiàn)還是不錯(cuò)的，全局設(shè)置我設(shè)置了交易次數(shù)為4次。 - TB客服：
橡膠的30分鐘周期（優(yōu)化參數(shù)后的）
0.jpg
(70.74 KB, 下載次數(shù): 7)
2012-3-18 06:58:39 上傳
下載次數(shù): 7
4.jpg
(100.61 KB, 下載次數(shù): 1)
2012-3-18 06:58:38 上傳
下載次數(shù): 1
3.jpg
(64.12 KB, 下載次數(shù): 1)
2012-3-18 06:58:39 上傳
下載次數(shù): 1
2.jpg
(37.18 KB, 下載次數(shù): 1)
2012-3-18 06:58:39 上傳
下載次數(shù): 1
- 網(wǎng)友回復(fù)：
橡膠的30分鐘周期（參數(shù)優(yōu)化后）
1.jpg
(245.33 KB, 下載次數(shù): 0)
2012-3-18 07:00:28 上傳
下載次數(shù): 0
- 網(wǎng)友回復(fù)：
PTA30分鐘周期（參數(shù)優(yōu)化后）
0.jpg
(204.22 KB, 下載次數(shù): 0)
2012-3-18 07:04:04 上傳
下載次數(shù): 0
1.jpg
(70.13 KB, 下載次數(shù): 0)
2012-3-18 07:04:05 上傳
下載次數(shù): 0
2.jpg
(67.17 KB, 下載次數(shù): 0)
2012-3-18 07:04:05 上傳
下載次數(shù): 0
4.jpg
(47.16 KB, 下載次數(shù): 0)
2012-3-18 07:04:03 上傳
下載次數(shù): 0
如果以上指標(biāo)公式不適用于您常用的行情軟件
或者您想改編成選股公式，以便快速選出某種形態(tài)個(gè)股的話，
可以聯(lián)系我們相關(guān)技術(shù)人員 QQ: 262069696 進(jìn)行 有償 改編！
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會(huì)員登錄/注冊