【跟風發套系統】道氏理論系統分享 [開拓者 TB]
- 咨詢內容:
跟穿堂風一個群的 平時喜歡琢磨點系統 我看流氓風分享了好幾套系統了 我也跟風發一個吧~
道氏理論大家應該都很熟悉
不太清楚的同志請自己搜索下 這個東西是套很經典的系統
因為我是做日內的 所以寫成了日內交易 有興趣的朋友可以改成中長線的系統
代碼如下- //------------------------------------------------------------------------
- // 簡稱: D1
- // 名稱: 道氏理論
- // 類別: 交易指令
- // 類型: 多頭建倉
- // 輸出:
- //------------------------------------------------------------------------
- Params
- Numeric ATime(918);
- Numeric CTime(1510);
- Numeric Lot(1);
- Numeric MoneyLoss(0.6);
- Numeric BarCross(1);
- Numeric Length(5);
-
- Vars
- Numeric bTime(0);
- Numeric MyClose(0);
- Numeric MyDiff(0);
- NumericSeries estP(0);
- NumericSeries ExitP(0);
- NumericSeries Position(0);
- NumericSeries est(0);
- NumericSeries est1(0);
- NumericSeries est2(0);
- NumericSeries est3(0);
-
- Bool bTimeCon;
- Bool BarUpCon;
- Bool BarDownCon;
- Bool BarExitCon;
- Bool LongOpenCon;
- Bool ShortOpenCon;
- Bool LongExitCon;
- Bool ShortExitCon;
-
- Begin
-
- If (Date != Date[1])
- {
- est = Open;
- est1 = Open;
- est2 = Open;
- est3 = Open;
- estP = 0;
- ExitP = 0;
- Position = 0;
- MyClose = Open;
- }
- Else
- {
- est = est[1];
- est1 = est1[1];
- est2 = est2[1];
- est3 = est3[1];
- estP = estP[1];
- ExitP = ExitP[1];
- Position = Position[1];
- If(Length != 0) MyClose = Average(Close[1],Length);
- Else MyClose = Close[1];
- }
-
- MyDiff = MyClose * BarCross / 1000;
-
- bTime = IntPart(Time*10000);
- bTimeCon = (bTime > ATime) And (bTime < CTime);
-
- If((MyClose < est And MyClose < est1) Or (MyClose > est And MyClose > est1)) est = MyClose;
- If(((MyClose - est) > MyDiff And est < est1) Or ((est - MyClose) > MyDiff And est > est1))
- {
- est3 = est2;
- est2 = est1;
- est1 = est;
- est = MyClose;
- }
-
- If(Position > 0 And High > estP) estP = High;
- If(Position < 0 And Low < estP) estP = Low;
- If(Position > 0) ExitP = estP * (100 - MoneyLoss) / 100;
- If(Position < 0) ExitP = estP * (100 + MoneyLoss) / 100;
-
- If(bTime >= CTime)
- {
- If (Position > 0)
- Sell(lot,Open);
- Else
- BuyToCover(lot,Open);
- }
-
- If(bTimeCon)
- {
- If (Position == 0)
- {
- If(est3 < est1 And (est2 / 2000 + est2) <= est And est3 < est2)
- {
- Buy(lot,Open);
- Position = lot;
- estP = Open;
- ExitP = estP * (100 - MoneyLoss) / 100;
- Commentary("LongOpen");
-
- }
-
- Else If(est3 > est1 And (est2 - est2 / 2000) >= est And est3 > est2)
- {
- SellShort(lot,Open);
- Position = lot * -1;
- estP = Open;
- ExitP = estP * (100 + MoneyLoss) / 100;
- Commentary("ShortOpen");
- }
- }
-
- Else
-
- {
- If(Position > 0 And est3 > est1)
- {
- Sell(lot,Open);
- Position = 0;
- Commentary("LongExit1");
- }
-
- Else If(Position < 0 And est3 < est1)
- {
- BuyToCover(lot,Open);
- Position = 0;
- Commentary("ShortExit1");
- }
-
- Else If(Position > 0 And Open < ExitP)
- {
- Sell(lot,Open);
- Position = 0;
- Commentary("LongExit2");
- }
-
- Else If(Position < 0 And Open > ExitP)
- {
- BuyToCover(lot,Open);
- Position = 0;
- Commentary("ShortExit2");
- }
- }
- }
-
- Commentary("Position = "+Text(Position));
- Commentary("ExitP = "+Text(ExitP));
- End
- //------------------------------------------------------------------------
- // 編譯版本 GS2004.06.12
- // 用戶版本 2011/05/03 13:21
- // 版權所有 illidanyl
- // 更改聲明 TradeBlazer Software保留對TradeBlazer平臺
- // 每一版本的TrabeBlazer公式修改和重寫的權利
- //------------------------------------------------------------------------
- //------------------------------------------------------------------------
- TB技術人員:
中間有些資金控制的東西 不修改任何參數的日內結果如下 大家圖個樂吧~
11.jpg (109.97 KB, 下載次數: 8) 2011-7-26 17:08:48 上傳 下載次數: 8
- TB客服:
快把壓箱底的交出來
- 網友回復:
我的測試結果怎么和版主的不一樣?
- 網友回復:
快把壓箱底的交出來
穿堂風 發表于 2011-7-26 17:34
才不要 -v-
如果以上指標公式不適用于您常用的行情軟件
或者您想改編成選股公式,以便快速選出某種形態個股的話,
相關文章
-
指定的模型還沒有相關內容!