下面公式是复自金字塔公式指南的
//用于序列模式下运行的公式:
INPUT:N(5,2,500); //参数申明
RUNMODE:1; //运行于序列模式
VARIABLE:I=0,S=0,VAR1:=C;//变量申明
FOR J=1 TO DATACOUNT DO BEGIN
S:=S+VAR1[J]; -----------------------这里出现:数组越界操作
IF J>=N THEN BEGIN
IF J>N THEN
S:=S-VAR1[J-N];
MA1[J]:S/N; //实现MA(C,N)
I:=0;
END;
END;
运行时出现错误: 数组越界操作
教程用的老的算法,做如下改进即可
//用于序列模式下运行的公式:
INPUT:N(5,2,500); //参数申明
RUNMODE:1; //运行于序列模式
VARIABLE:I=0,S=0;
VAR1:=C;//变量申明
FOR J=1 TO DATACOUNT DO BEGIN
S:=S+VAR1[J]; -----------------------这里出现:数组越界操作
IF J>=N THEN BEGIN
IF J>N THEN
S:=S-VAR1[J-N];
MA1[J]:S/N; //实现MA(C,N)
I:=0;
END;
END;