- 精华
- 20
- 在线时间
- 2981 小时
- UID
- 4
- 积分
- 22709
- 帖子
- 4802
- 阅读权限
- 255
- 注册时间
- 2007-7-20
- 最后登录
- 2024-1-15
- 精华
- 20
- UID
- 4
- 积分
- 22709
- 帖子
- 4802
- 主题
- 64
- 阅读权限
- 255
- 注册时间
- 2007-7-20
- 最后登录
- 2024-1-15
|
重新更新了代码,这应该差不多了,图片在下楼
- Params
- Numeric DnPoint(100);
- Vars
- Numeric myHigherPrice;
- Numeric myHigherBar;
- Numeric myLowerPrice;
- Numeric myLowerBar;
- Numeric Type;
- Begin
- If(BarStatus == 0)
- {
- myHigherPrice = High;
- myHigherBar = CurrentBar;
- myLowerPrice = Low;
- myLowerBar = CurrentBar;
- Type = 0;
- SetGlobalVar(0,myHigherPrice);
- SetGlobalVar(1,myHigherBar);
- SetGlobalVar(2,myLowerPrice);
- SetGlobalVar(3,myLowerBar);
- SetGlobalVar(4,Type);
- Return;
- }Else
- {
- myHigherPrice = GetGlobalVar(0);
- myHigherBar = GetGlobalVar(1);
- myLowerPrice = GetGlobalVar(2);
- myLowerBar = GetGlobalVar(3);
- Type = GetGlobalVar(4);
- }
-
- If(Type ==0 )
- {
- If(High >= myHigherPrice)
- {
- myHigherPrice = High;
- SetGlobalVar(0,myHigherPrice);
- myHigherBar = CurrentBar;
- SetGlobalVar(1,myHigherBar);
-
- PlotNumeric("MyLine",High);
-
- Type = 1;
- SetGlobalVar(4,Type);
- }
-
- If(Low <= myLowerPrice)
- {
- myLowerPrice = Low;
- SetGlobalVar(2,myLowerPrice);
- myLowerBar = CurrentBar;
- SetGlobalVar(3,myLowerBar);
-
- PlotNumeric("MyLine",Low);
-
- Type = -1;
- SetGlobalVar(4,Type);
- }
- }Else If(Type == 1)
- {
- If(High >= myHigherPrice)
- {
- If(MyHigherBar != InvalidNumeric) Unplot("MyLine",CurrentBar - MyHigherBar);
- myHigherPrice = High;
- SetGlobalVar(0,myHigherPrice);
- myHigherBar = CurrentBar;
- SetGlobalVar(1,myHigherBar);
-
- PlotNumeric("MyLine",High);
- }Else If(myHigherPrice - Low > DnPoint)
- {
- myLowerPrice = Low;
- SetGlobalVar(2,myLowerPrice);
- myLowerBar = CurrentBar;
- SetGlobalVar(3,myLowerBar);
-
- PlotNumeric("MyLine",Low);
-
- Type = -1;
- SetGlobalVar(4,Type);
- }
-
- }Else If(Type == -1)
- {
- If(Low <= myLowerPrice)
- {
- If(myLowerBar != InvalidNumeric) Unplot("MyLine",CurrentBar - MyLowerBar);
- myLowerPrice = Low;
- SetGlobalVar(2,myLowerPrice);
- myLowerBar = CurrentBar;
- SetGlobalVar(3,myLowerBar);
-
- PlotNumeric("MyLine",Low);
- }Else If(High - myLowerPrice > DnPoint)
- {
- myHigherPrice = High;
- SetGlobalVar(0,myHigherPrice);
- myHigherBar = CurrentBar;
- SetGlobalVar(1,myHigherBar);
-
- PlotNumeric("MyLine",High);
-
- Type = 1;
- SetGlobalVar(4,Type);
- }
- }
- End
复制代码
[ 本帖最后由 nopain 于 2007-12-3 17:15 编辑 ] |
|