Einzelnen Beitrag anzeigen

Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#184

Re: Positive Zahlen in negative umwandeln

  Alt 2. Nov 2008, 11:02
Nach den zahlreichen analytische Lösungen, will ich mal mit einer Numerischen aufwarten. Ich habe mal einen Schwarm -> Particle Swarm Optimization auf das Problem geschickt. Damit es auch nach etwas aussieht, habe ich mich wieder auf die komplexe Ebene bezogen. Die numerisch zu lösende Gleichung lautet
0=sqrt(sqr(Real+x)+sqr(Imag))
X ist dabei die zu negierende reelle Zahl und die Lösung ist die komplexe Zahl "Real+i*Imag"

Der Code ist jetzt etwas zu lang, um ihn hier zu posten.
Ich habe schonmal die Parameter in dem Beispiel gut eingestellt.


Edit: Verdammt; Eklatanter Fehler! Ich habe lokal und global verwechselt. Damit landet gleich eine neue Version für meinen Meffi hier.


(Ich gebe ja zu, dass ich den Algo nicht nur für dieses Problem geschrieben habe, sondern hier auch noch ein wenig Eigennutz dahintersteckt)
Miniaturansicht angehängter Grafiken
screen_944.jpg  
Angehängte Dateien
Dateityp: zip delphi_pso_192.zip (19,3 KB, 10x aufgerufen)
Dateityp: exe pso_876.exe (474,5 KB, 38x aufgerufen)
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.