拋物線轉(zhuǎn)向系統(tǒng)分享 [開拓者 TB]
- 咨詢內(nèi)容：
剛才看到群里討論了會(huì)SAR,很多人也想寫一個(gè)SAR系統(tǒng),最近比較忙,利用午飯時(shí)間寫了個(gè)SAR系統(tǒng),大家拿去擴(kuò)充吧
- TB技術(shù)人員：
原創(chuàng)作品,轉(zhuǎn)載注明出處
- //------------------------------------------------------------------------
- // 簡(jiǎn)稱: SAR_system
- // 名稱:
- // 類別: 公式應(yīng)用
- // 類型: 用戶應(yīng)用
- // 輸出: 穿堂風(fēng)
- //------------------------------------------------------------------------
- Params
- Numeric AfStep(0.02);
- Numeric AfLimit(0.2) ;
- Numeric malen(120);
- Numeric stopLoss(1);
- Numeric BuyLots(1);
- Numeric offset(0);
- Vars
- Numeric oParCl( 0 );
- Numeric oParOp( 0 );
- Numeric oPosition( 0 );
- Numeric oTransition( 0 );
- NumericSeries oParOp_s;
- Numeric oParOp_p;
- Numeric i_offset;
- Numeric ma;
- Bool bUpline;
- string strkey;
- string strValue;
- Numeric i_stopLoss;
-
- Begin
- ma = Average(Open,malen);
- bUpline = Open>= ma;
- ParabolicSAR( AfStep, AfLimit, oParCl, oParOp, oPosition, oTransition ) ;
- oParOp_s = oParOp;
- oParOp_p = oParOp_s[1];
- i_offset = offset*MinMove*PriceScale;
- i_stopLoss = stopLoss*(OpenD(0)/100);
-
- Commentary("oParOp:"+Text(oParOp));
- Commentary("oTransition:"+Text(oTransition));
- Commentary("oPosition:"+Text(oPosition));
- If(CurrentBar>malen)
- {
- PlotNumeric("oParCl",oParCl);
- If(malen != 0)
- {
- PlotNumeric("ma",ma);
- }
- If(MarketPosition == 0)
- {
- If(malen == 0)
- {
- bUpline = True;
- }
- If(oTransition == 1 and bUpline)
- {
- Buy(BuyLots,Max(Open,oParOp_p)+i_offset);
- Return;
- }
-
- If(malen == 0)
- {
- bUpline = False;
- }
- If(oTransition == -1 and bUpline==False)
- {
- SellShort(BuyLots,Min(Open,oParOp_p)-i_offset);
- Return;
- }
- }
- If(MarketPosition == 1)
- {
- If(malen == 0)
- {
- bUpline = False;
- }
-
- If(LastEntryPrice-Low>=i_stopLoss)
- {
- Sell(BuyLots,Min(Open,LastEntryPrice-i_stopLoss)-i_offset);
- Return;
- }
- If(oPosition == -1)
- {
- If(oTransition == -1 and bUpline==False)
- {
- SellShort(BuyLots,Min(Open,oParOp_p)-i_offset);
- }
- Else
- {
- Sell(BuyLots,Min(Open,oParOp_p)-i_offset);
- }
- }
- }
- If(MarketPosition == -1)
- {
- If(malen == 0)
- {
- bUpline = True;
- }
- If(High-LastEntryPrice>=i_stopLoss)
- {
- BuyToCover(BuyLots,Max(Open,LastEntryPrice+i_stopLoss)+i_offset);
- Return;
- }
- If(oPosition == 1)
- {
- If(oTransition == 1 and bUpline)
- {
- Buy(BuyLots,Max(Open,oParOp_p)+i_offset);
- }
- Else
- {
- BuyToCover(BuyLots,Max(Open,oParOp_p)+i_offset);
- }
- }
- }
- }
- End
- //------------------------------------------------------------------------
- // 編譯版本 GS2010.12.08
- // 用戶版本 2011/09/05 12:21
- // 版權(quán)所有 穿堂風(fēng)
- // 更改聲明 TradeBlazer Software保留對(duì)TradeBlazer平臺(tái)
- // 每一版本的TrabeBlazer公式修改和重寫的權(quán)利
- //------------------------------------------------------------------------
- //------------------------------------------------------------------------
- TB客服：
1.jpg
(69.84 KB, 下載次數(shù): 9)
2011-9-5 12:44:55 上傳
下載次數(shù): 9
2.jpg
(93.09 KB, 下載次數(shù): 6)
2011-9-5 12:44:55 上傳
下載次數(shù): 6
- 網(wǎng)友回復(fù)：
因?yàn)闀r(shí)間短促,已盡量考慮邏輯性,如果有質(zhì)疑的地方,一定要細(xì)看代碼,我不希望沒分析清楚就說未來函數(shù),這是對(duì)我的不尊重.
- 網(wǎng)友回復(fù)：
謝謝分享，，，好月餅！
如果以上指標(biāo)公式不適用于您常用的行情軟件
或者您想改編成選股公式，以便快速選出某種形態(tài)個(gè)股的話，
可以聯(lián)系我們相關(guān)技術(shù)人員 QQ: 262069696 進(jìn)行 有償 改編！
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)