1

我正在为类似于 BASIC 的语言在 Delphi/Lazarus 创建一个简单的解释器。我已经实现了很多功能。目前，我正在尝试创建一个类似 DIM 的命令来处理多维数值数组。我的想法是使用 TList 来模拟仅受可用内存限制的多维数组。例如，当我在解释器中声明如下命令时：

DIM num_arr[3,3,3]

我想创建一个双精度的三维数组，每个索引从 0 到 2 不等。

到目前为止，我只有创建“TList 数组”的功能。我使用两个 TList 对象来保存数组维度和数据项列表，我还有第三个对象来保存存储/检索数据的索引。我想不通的是如何将索引列表与 TList 中的特定条目相关联。当数组最多为二维时，这很简单，我可以将每对索引转换为数字序列，但不能成功转换为三个及更多维。有什么算法可以用来解决这个问题吗？真的很难找到与这件事相关的东西。欢迎任何有关如何实现类似功能的建议。下面我将发布到目前为止我开发的部分代码：

//Creates a "n" dimensional array
function array_allocate(Dim: TList; var DataArray: TList): integer;
var
  i: integer;
  s: string;
begin
  Result := 1;
  //Simple way to find the array length
  //For example. An array with dimensions [3,3,3] will handle 27 items
  for i := 0 to Dim.Count-1 do
  begin
    Result := Result * Integer(Dim[i]);
  end;
  Result := Result;
  DataArray.Capacity := Result; //DataArray now handles 27 items

  //************************************
  //Every line below is just for testing
  //************************************
  fmMain.Memo1.Lines.Add('Allocating size for array with '+IntToStr(Dim.Count)+' dimension(s).');
  s := '';
  for i := 0 to Dim.Count-1 do
    s := s + '['+IntToStr(Integer(Dim[i]))+']';
  fmMain.Memo1.Lines.Add('DIM Sizes: '+s);
  fmMain.Memo1.Lines.Add('Manage: '+IntToStr(Result)+' Items.');
end;

{*************************************}
{NOT functional, this is the challenge}
{*************************************}
function calculate_offset(Dim, Indexes: TList; var DataArray: TList; BaseAddr: integer): integer;
var
  i, Depth, dimIdx: Integer;
  k,index,sizeProduct: integer;
begin
  for Depth := 0 to Dim.Count-1 do
    for dimIdx := 0 to Integer(Dim[Depth])-1 do
      fmMain.mmOut.Lines.Add('Dim: '+IntToStr(Depth)+' ,Index: '+IntToStr(dimIdx));

  result := 0;
end;

procedure TfmMain.FormShow(Sender: TObject);
var
  dataList: TList; //keep the data
  dimList: TList; //keep the dimensions
  indexList: TList; //keep the indexes
  offset: integer;
begin
  dimList := TList.Create; //create the dim array
  //simulate the creation of an array with dimension [3,3,3]
  //something like DIM myVar[3,3,3]
  dimList.Add(Pointer(3));
  dimList.Add(Pointer(3));
  dimList.Add(Pointer(3));

  dataList := TList.Create; //create the data list
  array_allocate(dimList, dataList); //allocates memory

  //indexList is the way to indicate which index to retrieve/store data
  indexList := TList.Create;
  indexList.Add(Pointer(1));
  indexList.Add(Pointer(1));
  indexList.Add(Pointer(1));
  indexList.Add(Pointer(1));

  //The idea is to relate indexes like [0,0,0], [0,0,1], [0,1,1] to
  //a numeric sequence between 0 to 26 in this case (DIM = [3,3,3])
  offset := calculate_offset(dimList, indexList, dataList, 1, 0);

  indexList.Free;
  dimList.Free;
  dataList.Free;
end;
4

2 回答 2

3

当我阅读您的问题时，您希望将索引元组转换为线性索引，假设行主要存储。

假设维度保存在动态数组中，dim索引在动态数组中，idx. 然后线性指数计算如下：

function LinearIndex(const dim, idx: array of Integer): Integer;
var 
  i: Integer;
begin
  Assert(Length(dim)=Length(idx));
  Assert(Length(dim)>0);
  Result := idx[0];
  for i := 1 to high(dim) do
    Result := Result*dim[i-1] + idx[i];
end;
于 2015-02-17T20:12:18.100 回答
0

上述 LinearIndex 函数对某些不平衡数组不起作用。例如，如果我正确分配“dim”来保存值 [2,3]，该函数将返回 2 作为“idx”两个内容的索引：[0,2], [1,0]。我根据在 StackOverflow 上找到的另一篇文章创建了一个 Pascal 函数，这似乎有效。

function LinearIndex2(const dim, idx: array of Integer): Integer;
var
  i,index,mult: Integer;
begin
  Assert(Length(dim)=Length(idx));
  Assert(Length(dim)>0);

  index := 0; mult := 1;
  for i := 0 to High(dim) do
  begin
    index := index + idx[i] * mult;
    mult := mult * dim[i];
  end;

  result := index;
end;
于 2015-02-19T19:02:10.990 回答