以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  想写一个ATR止损，但怎么改也不行，求教。  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=70985)
--  作者：zengxing
--  发布时间：2014/10/15 13:13:40
--  想写一个ATR止损，但怎么改也不行，求教。
为什么总运行 IF c>0 and f=0 THEN BEGIN  这个，有什么办法？
正常一些
VARIABLE:f=0;
Coeficient:=2;
ll:=REF(l,1);
hh:=REF(h,1);

TR1 := HIGH-LOW;
atrr := MA(TR1,20);
rez:= Coeficient * REF(atrr,1);
IF c>0 and f=0 THEN BEGIN
       dn: h + rez;
mode1:-1;
f=f+1;
END

If mode1 =  -1 and  ll > dn THEN BEGIN
up : ll  - rez;
mode1 = 1;
END
If mode1 = 1 and hh < up  THEN BEGIN
dn = hh  + rez;
mode1 = -1;
END
If ll >= up + rez and mode1 =  1  THEN BEGIN
up = ll - rez;
dn =  null;
END

If ll <up + rez and mode1 =  1  THEN BEGIN
up = up;
dn = null;  
END

If  hh < dn - rez and mode1 = -1  THEN BEGIN
 
dn =  hh   + rez;
up =  null;
end

If  hh  >= dn - rez  and  mode1 = -1 THEN BEGIN
dn = dn;
up =  null;

end

[此贴子已经被作者于2014/10/15 13:14:31编辑过]
--  作者：jinzhe
--  发布时间：2014/10/15 13:26:51
--  

1.   

 dn: h + rez;
   mode1:-1;
   f=f+1;

 

类似这样的都改成

        dn: =h + rez;
   mode1:=-1;
   f:=f+1;

少等号的就加等号，少分号的就加分号

 

2. 

null改成drawnull

[此贴子已经被作者于2014/10/15 13:27:03编辑过]
--  作者：zengxing
--  发布时间：2014/10/15 13:42:56
--  
您好，谢谢您的回复。但我还是不懂呀。
我想看K线图上出现up dn这两条线。 但是现在什么也没有。已经根据您建议修改了。全体源码如下，还有哪里不对吗？模型是逐K模型

VARIABLE:f=0;
Coeficient:=2;
ll:=REF(l,1);
hh:=REF(h,1);

TR1 := HIGH-LOW;
atrr := MA(TR1,20);
rez:= Coeficient * REF(atrr,1);
IF c>0 and f=0 THEN BEGIN
  dn: h + rez;
   mode1:=-1;
   f:=f+1;
END
If mode1 =  -1 and  ll > dn THEN BEGIN
up : ll  - rez;
mode1 = 1;
END
If mode1 = 1 and hh < up  THEN BEGIN
dn = hh  + rez;
mode1 = -1;
END
If ll >= up + rez and mode1 =  1  THEN BEGIN
up = ll - rez;
dn =  drawnull;
END

 
If ll <up + rez and mode1 =  1  THEN BEGIN
up = up;
dn = drawnull;  
END
If  hh < dn - rez and mode1 = -1  THEN BEGIN
 
dn =  hh   + rez;
up =  drawnull;
end
If  hh  >= dn - rez  and  mode1 = -1 THEN BEGIN
dn = dn;
up =  drawnull;

end

--  作者：jinzhe
--  发布时间：2014/10/15 14:08:13
--  
你这个不是没有改？我的意思你全部改掉，而不是就改我给你的例子
--  作者：zengxing
--  发布时间：2014/10/15 14:34:14
--  
这个思路哪里有错误？我在TB上用这个思路写了，可以实现，想转到金字塔上。想问一下您。

如果想改，要改哪里？
--  作者：jinzhe
--  发布时间：2014/10/15 14:42:53
--  

所有的BEGIN

。。。。。。

END

中间全部都改一遍
--  作者：zengxing
--  发布时间：2014/10/15 14:50:12
--  
您好，已经按照您说的，都加了“：=”
--  作者：zengxing
--  发布时间：2014/10/15 14:51:01
--  
您好，已经都加了，但还是没有任何显示，我想在图上显示up和dn


VARIABLE:f=0;
Coeficient:=2;
ll:=REF(l,1);
hh:=REF(h,1);

TR1 := HIGH-LOW;
atrr := MA(TR1,20);
rez:= Coeficient * REF(atrr,1);
IF c>0 and f=0 THEN BEGIN
  dn:=h + rez;
   mode1:=-1;
   f:=f+1;
END
If mode1 =  -1 and  ll > dn THEN BEGIN
up :=ll  - rez;
mode1 = 1;
END
If mode1 = 1 and hh < up  THEN BEGIN
dn:= hh  + rez;
mode1:= -1;
END
If ll >= up + rez and mode1 =  1  THEN BEGIN
up:=ll - rez;
dn:= drawnull;
END

 
If ll <up + rez and mode1 =  1  THEN BEGIN
up:= up;
dn:= drawnull;  
END
If  hh < dn - rez and mode1 = -1  THEN BEGIN
 
dn:= hh   + rez;
up:= drawnull;
end
If  hh  >= dn - rez  and  mode1 = -1 THEN BEGIN
dn:= dn;
up:=  drawnull;

end

--  作者：jinzhe
--  发布时间：2014/10/15 15:03:13
--  
你这个代码是什么思路？来来回回最终都赋值为空？
--  作者：zengxing
--  发布时间：2014/10/15 15:22:45
--  
整个思路就是和跟踪止损类似，如果价格向有利方向变动，就变动，如果不利方向，碰到线了，就转变方向。我把图附上了，就是这个效果。下面的代码我都每行加了注释。


图片点击可在新窗口打开查看此主题相关图片如下：eeeeeeeeeeeee.png
图片点击可在新窗口打开查看

VARIABLE:f=0;
Coeficient:=2;
ll:=REF(l,1);
hh:=REF(h,1);

TR1 := HIGH-LOW;
atrr := MA(TR1,20);
rez:= Coeficient * REF(atrr,1);
IF c>0 and f=0 THEN BEGIN //这个循环只运行一次，就是要有一个开始的方向，开始的方向选的是空头方向
  dn:h + rez;
   mode1:=-1;
   f:=f+1;
END
If mode1 =  -1 and  ll > dn THEN BEGIN //如果现在是空头方向，上个K线的最低值大于了 dn
up :ll  - rez;                  
mode1:= 1;               //转为多头方向
END
If mode1 = 1 and hh < up  THEN BEGIN //如果现在是多头方向，上个K线的最高值小于了 up
dn:= hh  + rez;
mode1:= -1;                    //转为空头方向
END
If ll >= up + rez and mode1 =  1  THEN BEGIN //如果上个K线的最低值大于或者 up + rez 还是多头情况 
up:=ll - rez;                           //就更新up的值
dn:= drawnull;                     //dn为空值，就是消失不显示了
END

 
If ll <up + rez and mode1 =  1  THEN BEGIN        //如果上个K线的最低值小于于 up + rez 还是多头情况 
up:= up;                                    //UP不变
dn:= drawnull;                       //dn为空值，就是消失不显示了
END
If  hh < dn - rez and mode1 = -1  THEN BEGIN //这个和上边的相反
 
dn:= hh   + rez;
up:= drawnull;
end
If  hh  >= dn - rez  and  mode1 = -1 THEN BEGIN
dn:= dn;
up:=  drawnull;

end
[此贴子已经被作者于2014/10/15 15:23:19编辑过]