[浏览完整版]
标题：想写一个ATR止损，但怎么改也不行，求教。
1楼
zengxing 发表于：2014/10/15 13:13:40为什么总运行 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编辑过]
2楼
jinzhe 发表于：2014/10/15 13:26:511.
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编辑过]
3楼
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
4楼
jinzhe 发表于：2014/10/15 14:08:13你这个不是没有改？我的意思你全部改掉，而不是就改我给你的例子
5楼
zengxing 发表于：2014/10/15 14:34:14这个思路哪里有错误？我在TB上用这个思路写了，可以实现，想转到金字塔上。想问一下您。
如果想改，要改哪里？
6楼
jinzhe 发表于：2014/10/15 14:42:53所有的BEGIN
。。。。。。
END
中间全部都改一遍
7楼
zengxing 发表于：2014/10/15 14:50:12您好，已经按照您说的，都加了“：=”
8楼
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
9楼
jinzhe 发表于：2014/10/15 15:03:13你这个代码是什么思路？来来回回最终都赋值为空？
10楼
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编辑过]