Forum: Object-Pascal / Delphi-Language
Delphi
by sirius,
4. Nov 2008
Das werte ich nicht als zufriedenstellende Reaktiom.
Forum: Object-Pascal / Delphi-Language
Delphi
by sirius,
2. Nov 2008
Du musst uns doch nicht hier vor allen Leuten outen :oops:
Vielleicht bekommt man ja dieses elementare Problem auch mit Neuronalen Netzen in den Griff. Irgendwann müssen wir doch für den OP eine zufriedenstellende Lösung haben. Jedenfalls scheint Larsi mit den bisherigen Lösungen noch nicht zufrieden. Zumindest habe ich dies noch nicht gelesen.
Forum: Object-Pascal / Delphi-Language
Delphi
by sirius,
2. Nov 2008
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...
Forum: Object-Pascal / Delphi-Language
Delphi
by sirius,
31. Okt 2008
@Sherlock:
Ich nehme an, ihr habt auch ein fertiges Script, um diese Funktion zu erstellen. Kannst du die bitte mal posten?
Forum: Object-Pascal / Delphi-Language
Delphi
by sirius,
31. Okt 2008
Hier geht es doch schon lange nicht mehr darum bei einem Problem zu helfen. Hier geht es darum das Problem neu zu definieren.
Forum: Object-Pascal / Delphi-Language
Delphi
by sirius,
31. Okt 2008
Ich meinte "eine Zeile" == "ein Befehl"
Forum: Object-Pascal / Delphi-Language
Delphi
by sirius,
31. Okt 2008
Was ist denn das für ein Contest? Etwa: "Wer bekommt eine komplette Datenbankanwendung in eine Zeile?"
Forum: Object-Pascal / Delphi-Language
Delphi
by sirius,
30. Okt 2008
Da das hier ein rein mathematisches Problem ist, muss man das auch so lösen.
Der Ansatz ist recht simpel. Man negiert eine reelle Zahl indem man sie ins Komplexe überführt und dort mit e^(i*pi) multipliziert. Das klingt jetzt etwas kompliziert, aber wenn man die eulersche Darstellung nimmt, reciht es die Phase mit pi zu summieren.
procedure TForm1.NegButtonClick(Sender: TObject);
var...