逐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;