以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  [求助]我写的公试出现了这样的提取示  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=68660)
--  作者：shaibu
--  发布时间：2014/8/12 21:55:13
--  [求助]我写的公试出现了这样的提取示

INPUT:N(15,1,300);      //参数申明
VARIABLE:j:=1,f:=0,k=0,VAR1=C,vv=vol; //变量申明
FOR i=1 TO DATACOUNT DO
BEGIN
    IF i>n  THEN 
    BEGIN
       for j=1 to n-2 do
       BEGIN 
           if VAR1[i-14]>VAR1[i-15] then
           BEGIN
           if VAR1[i-j]>=VAR1[i-14] then
              f:=f+1;
             
          end;
       end;
    if f=n-2 then
    k:=k+vv[i-14];
    k;
    j:=0;
    end;
END;

调试提示：第九行，错误：数组越界操作  数组变量请不要用VARIABLE声明。请老师帮我改写一下公试，可能还有别的问题，我是个新手。
--  作者：jinzhe
--  发布时间：2014/8/13 9:28:50
--  

INPUT:N(15,1,300);      //参数申明
VARIABLE:j:=1,f:=0,k=0,VAR1=C,vv=vol; //变量申明
FOR i=1 TO DATACOUNT DO
BEGIN
    IF i>n  THEN 
    BEGIN
       for j=1 to n-2 do
       BEGIN 
           if VAR1[i-14]>VAR1[i-15] then
           BEGIN
           if VAR1[i-j]>=VAR1[i-14] then
              f:=f+1;
             
          end;
       end;
    if f=n-2 then
    k:=k+vv[i-14];
    k;
    j:=0;
    end;
END;