如何将 Matlab 代码转换为 Delphi？

Question

如何将这部分Matlab代码转换为Delphi？

for i=1:popsize 
    fi=rand(1,dimension); % Generate a vector of uniform random numbers
    p=pbest(i,:);
    pbest(i,:)=x(i,:);
end

我的代码：

for i:= 1 to popsize do
begin
  fi:= // which function generates vector of uniform random numbers in Delphi?
  for k :=1 to popsize do
  begin
    p:=pbest(i,k);
    pbest(i,k):=x(i,k);
  end;
end;

Answer 1

您可以调用Random 函数来生成一个均匀分布的随机值。调用Randomize 一次会使Random 在每次运行中生成不同的值。

var
  fi: array of Double;
  J: Integer;
begin
  Randomize;
  for J := 0 to dimension - 1 do
    fi[J] := Random;
end;