Und im von dir verlinkten VB6 steht klar:
Zitat:
Natürlicher Logarithmus: LOG
LOG berechnet den Logarithmus zur Basis e (die Eulersche Zahl, e ist ungefähr 2.718282). Dies ist der sogenannte natürliche Logarithmus. Es sind nur positive Argumente erlaubt.
VB6 LOG() entspricht also in Delphi ln()
Du kannst schlicht alle LOG() aus VB6 in Delphi durch ln() ersetzen.
Danke dann kann ich das hier vergessen da es keinen sinn macht.
Delphi-Quellcode:
function TSpectrum.Log(x: Real): Real;
begin
result := ln(x) / ln(10);
end;
Trotzdem Danke für den versuch.
Interessanter link ja da steht fast alles was wichtig wäre.
Zitat:
Du hast nach Tönen gesucht:
Wenn du nicht selbst eine WAV Datei schreiben willst (zum Beispiel mit MathLab und Co), dann findest du hier Töne:
Ich habe mir Audacity herunter geladen und mir eine *.mp3 erstellt wer es zum testen haben möchte ist im Anhang.
50 sec linearer Sinus Ton.
Es gibt immer noch große unterschiede zwischen Original und meiner Version.
gruss