公式模型编写问题提交-[求助]寻找区间金字塔客服中心 - 专业程序化交易软件提供商

-- [求助]寻找区间
逐K模式（日线）

从当前K线往前找，知道有一日收盘价为当前收盘价的Parameter倍为止，之间每天记录DX+，DX-

我的代码如下跑不出结果问题出在哪里

input: Parameter(1.5);

variable:flag=false, no=0, FilC[10000]=0, CloseArray[10000]=0, DXPlusArray[10000]=0, DXMinusArray[10000]=0;

no:=1;

while log(ref(c,no))<Parameter*log(c) do

begin

CloseArray[no]:= ref(c,no);

FilC[no]:=log(ref(c,no));

if no=1 then

BEGIN

DXPlusArray[no] := Max( log(c) - FilC[no], 0 );

DXMinusArray[no] := Max(FilC[no] - log(c), 0 );

end

else BEGIN

DXPlusArray[no] := Max( FilC[no-1] - FilC[no], 0 );

DXMinusArray[no] := Max(FilC[no] - FilC[no-1], 0 );

end;

no:=no+1;

end;

CloseArray[no]:= ref(c,no);

FilC[no]:=log(ref(c,no));

DXPlusArray[no] := Max( log(c) - FilC[no], 0 );

DXMinusArray[no] := Max(FilC[no] - log(c), 0 );

if (no>1) then

if (FilC[no-1]>=Parameter*log(c)) then

flag:=true;