以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  金字塔编程请教  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=65480)

--  作者:Follow
--  发布时间:2014/5/26 23:25:50
--  金字塔编程请教
请教大家一个金字塔的编程问题,我觉得这段代码比较繁琐,能不能用类似于循环语句把它改良一下

总差:=ABS(close-ref(close,20));
差1:=ABS(ref(close,20)-ref(close,19));
差2:=ABS(ref(close,19)-ref(close,18));
差3:=ABS(ref(close,18)-ref(close,17));
差4:=ABS(ref(close,17)-ref(close,16));
差5:=ABS(ref(close,16)-ref(close,15));
差6:=ABS(ref(close,15)-ref(close,14));
差7:=ABS(ref(close,14)-ref(close,13));
差8:=ABS(ref(close,13)-ref(close,12));
差9:=ABS(ref(close,12)-ref(close,11));
差10:=ABS(ref(close,11)-ref(close,10));
差11:=ABS(ref(close,10)-ref(close,9));
差12:=ABS(ref(close,9)-ref(close,8));
差13:=ABS(ref(close,8)-ref(close,7));
差14:=ABS(ref(close,7)-ref(close,6));
差15:=ABS(ref(close,6)-ref(close,5));
差16:=ABS(ref(close,5)-ref(close,4));
差17:=ABS(ref(close,4)-ref(close,3));
差18:=ABS(ref(close,3)-ref(close,2));
差19:=ABS(ref(close,2)-ref(close,1));
差20:=ABS(close-ref(close,1));

价格轨迹的效率:总差/(差1+差2+差3+差4+差5+差6+差7+差8+差9+差10+差11+差12+差13+差14+差15+差16+差17+差18+差19+差20),NOAXIS;

--  作者:jinzhe
--  发布时间:2014/5/27 9:02:23
--  
就这样写
--  作者:Follow
--  发布时间:2014/5/27 10:23:04
--  
你好,没有可以简化的方法吗
--  作者:jinzhe
--  发布时间:2014/5/27 10:28:21
--  
abs(c-ref(c,20))/sum(abs(c-ref(c,1)),20)