Circular spectrum visualizer

[EWeiss]

Danke..
Habe jetzt einen gleichbleibenden Sinuston sinus250hz-10db leider mit leichter Schwingung.


Delphi.

Delphi-Quellcode:

b := (Log(Sqr(Spectrum[i1].r * Spectrum[i1].r + (Spectrum[i1].i * Spectrum[i1].i))
  + 0.0001) + 9.21034037197618) * q1;

VB6

Code:

b = (Log(Sqr(Spectrum(i1).r * Spectrum(i1).r + Spectrum(i1).i * Spectrum(i1).i) _
  + 0.0001) + 9.21034037197618) * q1

q1 ist immer gleich = 25

Log.. wie von dir vorgeschlagen.

Delphi-Quellcode:

function TSpectrum.Log(x: Real): Real;
begin

  result := ln(x) / ln(10);
end;

VB6

Code:

Public Type Complex
    r As Single
    i As Single
End Type

Dim Spectrum() As Complex

Delphi

Delphi-Quellcode:

  TComplex = Record
    r: Single;
    i: Single;
  end;

Spectrum: array of TComplex;

Unterschied siehe Anhang. (Was aber nicht bedeutet das die Berechnung für Log falsch ist)
Doch sie ist falsch.
Schon hart das wenn nichts gespielt wird der Ausschlag des Spektrum bei deiner Berechnung gleich Volllast ist.

gruss