сортировка массива и получение индексов в Delphi

Question

У меня есть небольшая головоломка, которая дает мне головные боли и должна быть довольно приятной для решения.

У меня есть набор массивов

arrayX : array of real; 
arrayY : array of real; 

, которые представляют ряд точек х, у такие, что (arrayX [0], arrayY [0]) представляет собой точку. Теперь я хочу сортировать эти массивы относительно X, и я думаю, что путь должен состоять в том, чтобы получить список отсортированных индексов с помощью arrayX и применить это к обоим массивам, и здесь возникает моя проблема:

напишите функцию, которая дает мне отсортированные индексы (возрастание) массива X, предпочтительно в массиве целых чисел? ArrayX может содержать повторяющиеся значения

Answer 1

Я думаю, что я понял, как это можно сделать: 1) сделать временный массив, который является копией входного 2) найти минимальное значение временного массива 3) хранить индекс минимального значения 4) установить минимальное значение NaN во временном массиве 5) повторять 2-5 до тех пор, временный массив больше не имеет номера

Function indexedSort(inputArray : array of real) : array of integer; 
var 
    i,j : integer; 
    n : integer; 
    minVal : real; 
    tempArray : TArrayOfReal; 
begin 
    n := length(inputArray); 
    setLength(result,n); 
    tempArray := copy(inputArray,0,n); 
    for i:= 0 to n-1 do begin 
    for j := 0 to n-1 do begin 
     if not(IsNan(tempArray[j])) then begin //find any non-NaN value for minimum 
     minVal := tempArray[j]; 
     break; 
     end; 
    end; 
    for j:=0 to n-1 do begin //find actual min val 
     if not(isNan(tempArray[j])) then begin 
     if tempArray[j] <= minVal then begin 
      minVal := tempArray[j]; 
      result[i] := j; 
     end; 
     end; 
    end; 
    tempArray[result[i]] := NaN; 
    end; 
end; 

Answer 2

Я предполагаю, что у вас уже есть возможность сортировки в вашем коде, и я не буду пытаться объяснить, как сортировать здесь. Для этой цели RTL предоставляет TArray.Sort<T>.

Вместо сортировки значений, индексы сортировки. Добавьте уровень косвенности.

1. Создайте массив целых чисел, Indices, содержащий индексы 0, 1, ..., N-1.
2. Сортировка этого массива целых чисел.
3. При сравнении двух значений L и R из массива индексов вместо сравнения L и R сравните X[L] и X[R].

Таким образом, чтобы расширить свое присутствие на конечной точке, стандартную функцию сравнения при сортировке чисел выглядит следующим образом:

function Compare(L, R: Integer): Integer; 
begin 
    if L<R then 
    Result := -1 
    else if L>R then 
    Result := 1 
    else 
    Result := 0; 
end; 

Но вместо этого, вы применяете косвенность на данный момент:

function Compare(L, R: Integer): Integer; 
begin 
    if X[L]<X[R] then 
    Result := -1 
    else if X[L]>X[R] then 
    Result := 1 
    else 
    Result := 0; 
end; 

В конце этого процесса у вас есть индексы, которые сообщают вам порядок очков. Я ^й точка:

X[Indices[i]], Y[Indices[i]] 

Этот метод известен как непрямой сортировки.

---

Проблема, которую вы представляете, предполагает, что вы, возможно, не правильно определили свои структуры данных.Вместо двух отдельных массивов, один, содержащие координаты X, и один, содержащий Y координаты, казалось бы, более целесообразно хранить один массив точек:

type 
    TPoint = record 
    X: Real; 
    Y: Real; 
    end; 

var 
    Points: array of TPoint; 

Теперь вы можете сортировать Points при заказе на X значений , но обмениваясь целыми точками. Когда вы представляете данные таким образом, нет никакой возможности для смещения координат. А координата X никогда не может быть отделена от соответствующей координаты Y.