AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Positive Zahlen in negative umwandeln

Ein Thema von Larsi · begonnen am 29. Okt 2008 · letzter Beitrag vom 13. Jun 2009
Thema geschlossen
Benutzerbild von sirius
sirius

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

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)
Angehängte Grafiken
Dateityp: jpg screen_944.jpg (37,1 KB, 133x aufgerufen)
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.
 
Thema geschlossen


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz