Ui ui das wollte ich nicht.
Ich habe wohl meinen Code für die WalshHadamard-Transformation zu frühr veröffentlicht.
Wie ich schon gesagt habe "soll das ganze Copy" gar nichts. war rein der Entwicklung/Beobachtung geschuldet.
Ich stelle Euch folgenden Code zur Verfügung:
Delphi-Quellcode:
type
PDatas = ^TDatas;
TDatas = array of UInt8;
oder auch
type
PDatas = ^TDatas;
TDatas = array of Int64;
oder etwas dazwischen...
class procedure TCompressOSCT.WalshHadamardTransform(var Data: TDatas);
var
i, j, n, m, x, y: UInt64;
begin
n := Length(Data);
m := 1;
while 2 * m <= n do
begin
i := 0;
while i < n do
begin
for j := i to i + m - 1 do
begin
x := Data[j];
y := Data[j + m];
Data[j] := y;
Data[j + m] := x + y;
end;
i := i + 2 * m;
end;
m := m * 2;
end;
Data := Copy(Data, 0, Length(Data));
end;
class procedure TCompressOSCT.InvWalshHadamardTransform(var Data: TDatas);
var
i, j, n, m, x, y: UInt64;
begin
n := Length(Data);
m := 1;
while 2 * m <= n do
begin
i := 0;
while i < n do
begin
for j := i to i + m - 1 do
begin
x := Data[j];
y := Data[j + m];
Data[j] := -x + y;
Data[j + m] := x;
end;
i := i + 2 * m;
end;
m := m * 2;
end;
end;
Also dieser Code für die WalshHadamard-Transformation funktioniert.
Somit also InPlace jetzt und mit einer Erklärung für was TDatas steht.
Imho kommt Delphi nicht klar mit var Parametern die ein "Array of Integer" darstellen. Es muss ein Typ festgelegt werden.
Um aber die zunehmende Debatte mit mehr Beteiligung nicht über Code-Platitüden welche ich schon erklärt habe warum ich es so mache veröffentlicht habe am Leben zu erhalten:
Folgendes:
Ich habe vorsichtiger Weise TDatas mal als Int64 definiert.
Obschon ich nur Bytes einspeise.
Prompt waren die "Antworten" im Output relativ Hohe Koeffizienten (sehr weit über 255=Byte).
Das interessante ist aber wenn ich TDatas gnadenlos als UInt8 definiere und es laufen lasse, dann ist klar, dass die hohen Stellen gnadenlos verloren gehen wenn ich Sie wieder an UInt8 zuweise.
Der Witz ist aber, dass die Rücktransformation trotzdem zu 100% klappt!
Den "AudioFreaks" unter uns würde ich dies nicht Empfehlen - das Gejaule dürfte ohrenbetäubend sein
Für die reinen "Daten Freaks" aber ev. interessant...