Brainstorming: Datei mit definierter Entropie erzeugen

[KodeZwerg]

Zitat von PeterPanino:

Zitat von KodeZwerg:

... mit Deiner auf PE Dateien basierte Entropy Berechnung ...

Nochmals: Das ist keine "PE Dateien basierte Entropy Berechnung", da es gleichgültig ist, ob es eine PE-Datei ist oder nicht. Hast du meinen vorherigen Link durchgelesen und verstanden?

Zitat von PeterPanino:

Zitat von Uwe Raabe:

Wie ermittelst du denn die Entropie?

Es geht um "Shannon's Formula", die MiTeC auf meine Anregung hin in TPEReader integriert hat.

Zur Ermittlung zweckentfremde ich die Klasse TPEReader von MiTeC:

Delphi-Quellcode:

uses
  MiTeC_PE;

var
  PE: TPEReader;

procedure TForm3.FormCreate(Sender: TObject);
begin
  PE := TPEReader.Create;
  try
    PE.FileName := 'R:\test.txt';
    CodeSite.Send('TForm3.FormCreate: ', PE.Entropy.ToString);
  finally
    PE.Free;
  end;
end;

Das hat bestimmt nichts mit PE Dateien zu tun wenn man den Link verfolgt aber irgendwie schon. Du hast mit allem Recht, mehr kann ich dazu nicht Sagen, hab noch einen Schönen Tag.

[PeterPanino]

Zitat von KodeZwerg:

... Das hat bestimmt nichts mit PE Dateien zu tun ...

Wie kann man nur so hartnäckig sein. Mein Beispiel-Code berechnet doch nicht direkt den Entropiewert, sondern verwendet nur eine Klasse, welche eine Funktion enthält, die diesen Entropiewert berechnet (weil ich die Source aus Copyright-Gründen nicht weitergeben kann). Also kannst du aus meinem Code gar nicht schließen, ob die Entropie-Berechnung selbst "PE-basiert" ist oder nicht. Also ist deine Behauptung bez. "PE-basierter" Entropie-Berechnung eine Erfindung von dir. Diesen Unterschied verstehst du schon, oder? Ich wünsche auch einen schönen Tag.

[Delphi.Narium]

Zitat von PeterPanino:

Brainstorming: Datei mit definierter Entropie erzeugen

Zitat von O.F. Osborn:

Grundsatzregeln für Brainstorming-Prozesse:

Die Teilnehmer können und sollen ihrer Phantasie freien Lauf lassen. Jede Anregung ist willkommen.

Ideenmenge geht vor Ideenqualität. Es sollen möglichst viele Ideen erzeugt werden.

Es gibt keinerlei Urheberrechte. Die Ideen der anderen Teilnehmer können und sollen aufgegriffen und weiterentwickelt werden.

Kritik oder Wertungen sind während des Brainstormings nicht erlaubt.

Also: Brainstorming oder nicht

[PeterPanino]

Zitat von Delphi.Narium:

Kritik oder Wertungen sind während des Brainstormings nicht erlaubt.

Sag das bitte direkt dem anderen Teinehmer.

[Schokohase]

Bevor ihr euch noch die Köpfe einschlagt, nehmt das hier als Diskussionsgrundlage

Delphi-Quellcode:

unit Unit1;

interface

uses
  System.Generics.Defaults, System.Generics.Collections, System.SysUtils,
  System.Math;

type
  TShannonEntropy = class
  public
    class function Calculate<T > ( const Source: array of T ): Double; overload;
    class function Calculate<T > ( const Source: array of T; const Comparer: IEqualityComparer<T> ): Double; overload;
  end;

implementation

{ TShannonEntropy }

class function TShannonEntropy.Calculate<T>( const Source: array of T; const Comparer: IEqualityComparer<T> ): Double;
var
  d: TDictionary<T, Integer>;
  i: Integer;
  p,r: Double;
begin
  d := TDictionary<T, Integer>.Create( Comparer );
  try
    for i := Low( Source ) to High( Source ) do
    begin
      if d.ContainsKey( Source[i] ) then
        d[Source[i]] := d[Source[i]] + 1
      else
        d.Add(Source[i],1);
    end;
    Result := 0;

    for i in d.Values do
    begin
      p := i / Length( Source );
      r := p * Log2( p );
      Result := Result + r;
    end;

    Result := -Result;

  finally
    FreeAndNil( d );
  end;
end;

class function TShannonEntropy.Calculate<T>( const Source: array of T ): Double;
begin
  Result := Calculate<T > ( Source, TEqualityComparer<T>.Default );
end;

end.

Das liefert dann mit

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Unit1 in 'Unit1.pas';

procedure Test;
var
  str: string;
  e: Double;
begin
  str := 'Grüne'#13#10'SPD'#13#10'FDP'#13#10'CSU'#13#10'CDU';
  e := TShannonEntropy.Calculate<Char > ( str.ToCharArray( ) );
  WriteLn( e );
end;

begin
  try
    Test;
  except
    on E: Exception do
      Writeln( E.ClassName, ': ', E.Message );
  end;
  ReadLn;
end.

auch die

Code:

 3.49366068968819E+0000

Grundlage dafür ist https://medium.com/udacity/shannon-e...s-5810d35d54b4

[PeterPanino]

@Schokohase

Faszinierend!! Vielen Dank!!

[Schokohase]

Nun ja, es ist lesen, verstehen, tippen. Faszinierendes kann ich da nicht erkennen.

Wenn man sich noch fragt, wie denn ein Kollege hier mit gleichen Werten einen anderen Wert bekommen hat, der ändert einfach mal eine Zeile ab

Delphi-Quellcode:

  // e := TShannonEntropy.Calculate<Char> ( str.ToCharArray() );
  e := TShannonEntropy.Calculate<Byte> ( TEncoding.UTF8.GetBytes(str) );

und erhält wie durch ein Wunder

Code:

 3.59448250651942E+0000

[PeterPanino]

Aber ich kann dich schon verstehen: Nach deinen Postings zu schließen, halte ich dich für einen fleißigen und ehrlichen Programmierer, der eben eine Aversion gegen "versteckten Code" hat. An und für sich eine gesunde Einstellung. "Aber da kommt so ein undurchsichtiger Typ daher (PeterPanino), der ein Beispiel für die Anwendung von GEKAUFTEM (huch!) Code bringt. Da muss doch was faul sein! Aber die Trial herunterzuladen und selbst zu testen und aus den Testergebnissen meine Schlüsse zu ziehen, dafür ist keine Zeit."