- 精华
- 1
- 在线时间
- 212 小时
- UID
- 64747
- 积分
- 782
- 帖子
- 192
- 阅读权限
- 200
- 注册时间
- 2011-9-10
- 最后登录
- 2016-3-22
- 精华
- 1
- UID
- 64747
- 积分
- 782
- 帖子
- 192
- 主题
- 33
- 阅读权限
- 200
- 注册时间
- 2011-9-10
- 最后登录
- 2016-3-22
|
适用于TA30Min、RB30Min- Params
- Numeric LengthMa(20);
- Numeric LengthHL(20);
- Vars
- NumericSeries Ma;
- NumericSeries LineHigh;
- NumericSeries LineLow;
- Numeric MyPrice;
- Numeric MinPoint;
- BoolSeries EnterLong;
- BoolSeries EnterShort;
- BoolSeries ExitLong;
- BoolSeries ExitShort;
-
- Begin
- MinPoint = MinMove*PriceScale;
- Ma = Average(Close,LengthMa);
- PlotNumeric("Ma",Ma);
- LineHigh = Highest(High,LengthHL);
- LineLow = Lowest(Low,LengthHL);
- PlotNumeric("LineHigh",LineHigh);
- PlotNumeric("LineLow",LineLow);
- //开多;
- EnterLong = High>LineHigh[1] And Open>Ma[1];
- EnterShort= Low<LineLow[1] And Open<Ma[1];
- ExitLong = Low<LineLow[1] Or Low<Ma[1];
- ExitShort = High>LineHigh[1] Or High>Ma[1];
- If( EnterLong )
- {
- MyPrice = IIF(Open>LineHigh[1],Open,LineHigh[1])+MinPoint;
- Buy(1,MyPrice);
- }
- If( ExitLong )
- {
- MyPrice = IIF(Open<Ma[1],Open,Ma[1])-MinPoint;
- Sell(1,MyPrice);
- }
- If( EnterShort )
- {
- MyPrice = IIF(Open<LineLow[1],Open,LineLow[1])-MinPoint;
- SellShort(1,MyPrice);
- }
- If( ExitShort )
- {
- MyPrice = IIF(Open>Ma[1],Open,Ma[1])+MinPoint;
- BuyToCover(1,MyPrice);
- }
- End
复制代码 |
|