以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  看看这个程序，什么原因不能运行？怎么才能运行？  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=30083)
--  作者：sun999
--  发布时间：2012/10/24 18:23:16
--  看看这个程序，什么原因不能运行？怎么才能运行？

if ISLASTBAR  then exit;
r:ma(c,10);
hh:=c;
ll:=c;
bb:=LLVBARS(l,50);
for i=bb  to  0  do  

   begin  
      if  r[barpos-i-1]<r[barpos-i]&&r[barpos-i]>r[barpos-i+1]
      then   hh:=i; else  hh:=-1;
      
      if  r[barpos-i-1]>r[barpos-i]&&r[barpos-i]<r[barpos-i+1]
      then   ll:=i; else  ll:=-1;
   end
   
if  hh<>-1&&ll<>-1&&hh>ll then  zz:=1 ; else  zz:=0;

h1:hh;
l1:ll;
z:zz;
--  作者：jinzhe
--  发布时间：2012/10/25 9:21:05
--  
你好，工作人员正在处理，请耐心等候
--  作者：jinzhe
--  发布时间：2012/10/25 9:37:06
--  

把第一行去掉

把

for i=bb  to  0  do  
改成
for i=b downto  1 do
--  作者：王锋
--  发布时间：2012/10/25 9:49:35
--  

如果你是逐K线上使用，那么请注意要将MA等带有统计性质的函数，放在IF THEN语句之前去执行，请参考

http://www.weistock.com/bbs/dispbbs.asp?boardid=4&Id=332 问题8，原理是一样的