以文本方式查看主题
- 金字塔客服中心 - 专业程序化交易软件提供商 (http://222.73.7.161/bbs/index.asp)
-- 公式模型编写问题提交 (http://222.73.7.161/bbs/list.asp?boardid=4)
---- [求助]请高手帮忙实现当今最先进的止损算法ATR荆棘轮 (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=3476)
|
-- 作者：z7c9
-- 发布时间：2010/10/26 12:37:22
-- [求助]请高手帮忙实现当今最先进的止损算法ATR荆棘轮
参考资料：
1.http://www.cnfstar.com/forex/2008/20080215/20080215730957.shtml
2.http://www.novasign.cn/viewthread.php?tid=10686&extra=&page=1
|
-- 作者：董小球
-- 发布时间：2010/10/26 14:04:51
--
|
-- 作者：solarhe2006
-- 发布时间：2010/10/27 22:54:00
-- [公告]上海中期北京营业部与金字塔合作
支持Z7C9,我的QQ:994515961
请互相加好友
|
-- 作者：sdcgj209
-- 发布时间：2010/10/28 16:50:21
-- z7c9你看这是你要的吗？不过这是TB源码
Params
Numeric length(20);
Numeric atrSet(3);
Vars
NumericSeries AvgValue;
Numeric ATRValue;
NumericSeries MyTrend(0);
NumericSeries MyHigher;
NumericSeries MyLower;
Begin
If(BarStatus == 0)
{
MyTrend = 0;
MyHigher = InvalidNumeric;
MyLower = InvalidNumeric;
}Else
{
MyTrend = MyTrend[1];
If(MyHigher!=InvalidNumeric)
MyHigher = max(high,MyHigher[1]);
If(MyLower!=InvalidNumeric)
MyLower = min(Low,MyLower[1]);
}
AvgValue = AverageFC(Close,Length);
ATRValue = AvgTrueRange(Length);
If(CrossOver(Close,AvgValue))
{
MyTrend = 1;
MyHigher = High;
MyLower = InvalidNumeric;
}
If(CrossUnder(Close,AvgValue))
{
MyTrend = -1;
MyHigher = InvalidNumeric;
MyLower = Low;
}
If(MyTrend==1)
{
PlotNumeric("StopLong",MyHigher-atrSet*ATRValue);
}Else If(MyTrend==-1)
{
PlotNumeric("StopShort",MyLower+atrSet*ATRValue);
}
End
|
-- 作者：sdcgj209
-- 发布时间：2010/10/28 16:59:01
--
这是图片，也麻烦高手给改成我们金字塔的代码吧？
[此贴子已经被作者于2010-10-28 17:12:32编辑过]
|