请写一个波动交易系统公式

ccirsi

请写一个波动交易系统公式
公式原理如下：

ccirsi

请写一个波动交易系统公式

zhx163

不错！！！！什么时候能编出来？

nopain

建一个交易指令VS，和上面文档有所不同，不能再收盘的时候开仓，所以延迟到下一个Bar开盘交易。

1. Params
   
2.         Numeric ATRLength(14);        // 平均波幅的周期
   
3.         Numeric NATR(3);                        // 常量C
   
4. Vars
   
5.         Numeric ATRValue;
   
6.         Numeric ARCValue;
   
7.         NumericSeries SICHigh;
   
8.         NumericSeries SICLow;
   
9.         Numeric SARLong;
   
10.         Numeric SARShort;
    
11. Begin
    
12.         If(BarStatus == 0)
    
13.         {
    
14.                 SICHigh = Close;
    
15.                 SICLow = Close;
    
16.         }Else
    
17.         {
    
18.                 SICHigh = Max(Close,SICHigh[1]);
    
19.                 SICLow = Min(Close,SICLow[1]);
    
20.         }
    
21. 
    
22.         ATRValue = AvgTrueRange(ATRLength);
    
23.         ARCValue = ATRValue * NATR;
    
24.         SARLong = SICLow + ARCValue;
    
25.         SARShort = SICHigh - ARCValue;
    
26.         Commentary("SICHigh="+Text(SICHigh));
    
27.         Commentary("SICLow="+Text(SICLow));
    
28.         Commentary("ATR="+Text(ATRValue));
    
29.         Commentary("ARC="+Text(ARCValue));
    
30.         Commentary("SARLong="+Text(SARLong));
    
31.         Commentary("SARShort="+Text(SARShort));
    
32.        
    
33.         If(MarketPosition ==0)
    
34.         {
    
35.                 If(Close > SARLong)
    
36.                 {
    
37.                         Buy(1,NextOpen,True);
    
38.                         SICHigh = Close;
    
39.                         SICLow = Close;
    
40.                 }
    
41. 
    
42.                 If(Close < SARShort)
    
43.                 {
    
44.                         SellShort(1,NextOpen,True);
    
45.                         SICHigh = Close;
    
46.                         SICLow = Close;
    
47.                 }
    
48.         }Else If(MarketPosition == 1)
    
49.         {
    
50.                 If(Close < SARShort)
    
51.                 {
    
52.                         SellShort(1,NextOpen,True);
    
53.                         SICHigh = Close;
    
54.                         SICLow = Close;
    
55.                 }
    
56.         }Else If(MarketPosition == -1)
    
57.         {
    
58.                 If(Close > SARLong)
    
59.                 {
    
60.                         Buy(1,NextOpen,True);
    
61.                         SICHigh = Close;
    
62.                         SICLow = Close;
    
63.                 }
    
64.         }
    
65. End

复制代码

518

NOPAIN先生， 你试过这本书中的TBP系统吗？

nopain

没有看过您说的这本书~

szkpt

这书再哪里有卖啊。。。

ccirsi

原帖由 szkpt 于 2008-9-5 10:50 发表
这书再哪里有卖啊。。。

macd论坛有电子书.下载地址    http://bbs.macd.cn/thread-1387944-1-4.html

guguzhang

nopain 发表于 2008-9-4 15:29
建一个交易指令VS，和上面文档有所不同，不能再收盘的时候开仓，所以延迟到下一个Bar开盘交易。
...

有没有新版的TB代码？

sorakiraa

guguzhang 发表于 2012-10-24 13:37
有没有新版的TB代码？

1.     Params
   
2.             Numeric ATRLength(14);        // 平均波幅的周期
   
3.             Numeric NATR(3);                        // 常量C
   
4.             Numeric grid(2);                    //滑点
   
5.     Vars
   
6.             Numeric ATRValue;
   
7.             Numeric ARCValue;
   
8.             NumericSeries SICHigh;
   
9.             NumericSeries SICLow;
   
10.             NumericSeries SARLong;
    
11.             NumericSeries SARShort;
    
12.             Numeric MinPoint;
    
13.     Begin
    
14.             If(BarStatus == 0)
    
15.             {
    
16.                     SICHigh = Close;
    
17.                     SICLow = Close;
    
18.             }Else
    
19.             {
    
20.                     SICHigh = Max(Close,SICHigh[1]);
    
21.                     SICLow = Min(Close,SICLow[1]);
    
22.             }
    
23. 
    
24.             ATRValue = AvgTrueRange(ATRLength);
    
25.             ARCValue = ATRValue * NATR;
    
26.             SARLong = SICLow + ARCValue;
    
27.             SARShort = SICHigh - ARCValue;
    
28.             MinPoint=MinMove*PriceScale;
    
29.             Commentary("SICHigh="+Text(SICHigh));
    
30.             Commentary("SICLow="+Text(SICLow));
    
31.             Commentary("ATR="+Text(ATRValue));
    
32.             Commentary("ARC="+Text(ARCValue));
    
33.             Commentary("SARLong="+Text(SARLong));
    
34.             Commentary("SARShort="+Text(SARShort));
    
35.            
    
36.             If(MarketPosition ==0)
    
37.             {
    
38.                     If(Close[1] > SARLong[1])
    
39.                     {
    
40.                             Buy(1,Open+MinPoint*grid);
    
41.                             SICHigh = Close;
    
42.                             SICLow = Close;
    
43.                     }
    
44. 
    
45.                     If(Close[1] < SARShort[1])
    
46.                     {
    
47.                             SellShort(1,Open-MinPoint*grid);
    
48.                             SICHigh = Close;
    
49.                             SICLow = Close;
    
50.                     }
    
51.             }Else If(MarketPosition == 1)
    
52.             {
    
53.                     If(Close[1] < SARShort[1])
    
54.                     {
    
55.                             SellShort(1,Open-MinPoint*grid);
    
56.                             SICHigh = Close;
    
57.                             SICLow = Close;
    
58.                     }
    
59.             }Else If(MarketPosition == -1)
    
60.             {
    
61.                     If(Close[1] > SARLong[1])
    
62.                     {
    
63.                             Buy(1,Open+MinPoint*grid);
    
64.                             SICHigh = Close;
    
65.                             SICLow = Close;
    
66.                     }
    
67.             }
    
68.     End

复制代码

瞎写了一下