AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Neuen Beitrag zur Code-Library hinzufügen Delphi [Tutorial] Quadratische Gleichungen vollständig lösen
Thema durchsuchen
Ansicht
Themen-Optionen

[Tutorial] Quadratische Gleichungen vollständig lösen

Ein Thema von Wolfgang Mix · begonnen am 24. Jul 2009 · letzter Beitrag vom 10. Apr 2010
Antwort Antwort
Seite 8 von 9   « Erste     678 9      
gammatester

Registriert seit: 6. Dez 2005
999 Beiträge
 
#71

Re: [Tutorial] Quadratische Gleichungen vollständig lösen

  Alt 31. Jan 2010, 12:49
Zum alzaimar-Code - ein Vorschlag und drei Bugs:

V: Wenn man schon für die einmalige Abfrage (abs(n) > sqrt(Math.MaxDouble)) eine eigene Funktion spendiert: IsAPositiveAndVeryLargeNumber sollte dann doch besser IsAVeryLargeNumber heißen, da ja abs(n) getestet wird. (Wieso eigentlich 'n'?)

B1: Außerdem ist die sqrt(MaxDouble)-Logik noch nicht richtig implementiert. Mit s=sqrt(MaxDouble) hat x^2 +s + s^2 = 0, d.h. a=1, b=s, c=s^2, angeblich 2 relle Lösungen, leider allerdings beide =NAN in der IDE, Exception außerhalb. Tatsächlich gibt es, wie man leicht nachrechnet, zwei konjugiert komplexe Lösungen x1,x2 = 0.5*(1 +/- sqrt(3)*i)*s.

B2: Weiter hat x^2 - 1e160*x + 0 = 0 angeblich die Lösungen x1=x2=1e160, richtig ist x=1e160, x2=0.

B3: Und wiedermal das unsägliche iszero-Problem, das wir eigentlich schon ad acta gelegt hatten: Der Code weigert sich die Lösungen x1=1, x2=2 von (rx)^2 - 3r(r*x) + 2r^2 = 0 zu berechnen für abs(r) <= 1e-6.

Noch eine Bemerkung zu Daniels "Compiler-Direktiven wie $REGION, die für das eigentliche Problem völlig irrelevant sind." In dem Codelib-Beitrag bitte bitte entfernen, da sie ja offensichtlich irrelevant sind, aber zumindest bis Delphi 10 das Kompilieren verhindern.

Gruß Gammatester
  Mit Zitat antworten Zitat
Benutzerbild von Der.Kaktus
Der.Kaktus

Registriert seit: 22. Jan 2008
Ort: Erfurt
958 Beiträge
 
Delphi 7 Enterprise
 
#72

Re: [Tutorial] Quadratische Gleichungen vollständig lösen

  Alt 31. Jan 2010, 12:54
[OT]
Herzlichen Glückwunsch dem "Threaderöffner" zum "runden" Geburtstag..alles Gute usw... geballt mit der Summe an Beiträgen (dato "777")..wenn das nichts ist !?

[/OT]
Gruss Kaki

Repeat Until true=false;
  Mit Zitat antworten Zitat
Benutzerbild von Wolfgang Mix
Wolfgang Mix

Registriert seit: 13. Mai 2009
Ort: Lübeck
1.222 Beiträge
 
Delphi 2005 Personal
 
#73

Re: [Tutorial] Quadratische Gleichungen vollständig lösen

  Alt 31. Jan 2010, 13:08
@Der.Kaktus:

[OT] Danke für die Glückwünsche [/OT]
Wolfgang Mix
if you can't explain it simply you don't understand it well enough - A. Einstein
Mein Baby:http://www.epubli.de/shop/buch/Grund...41818516/52824
  Mit Zitat antworten Zitat
Benutzerbild von Wolfgang Mix
Wolfgang Mix

Registriert seit: 13. Mai 2009
Ort: Lübeck
1.222 Beiträge
 
Delphi 2005 Personal
 
#74

Re: [Tutorial] Quadratische Gleichungen vollständig lösen

  Alt 19. Feb 2010, 21:41
Liebe DPler,

die Diskussion im thread fand ich richtig gut und danke allen
noch einmal für die rege Beteiligung. Inzwischen habe ich mir
gedacht, das Tut auf das Wesentliche zu beschränken, nämlich
auf die wesentlichen Probleme der Numerik, ohne Codebeispiele
zu bevorzugen. Im thread gab es ja genügend gute Beispiele.
Das nun gekürzte Tut habe ich Frederic am 02.02. zukommen
lassen, damit er mit seinen Comoderatoren entscheiden kann,
wo es untergebracht werden kann oder was man noch ändern
sollte. Lassen wir Ihnen Zeit!
Euch "normalen" Usern will ich den Entwurf aber nicht vorenthalten
und hänge ihn an Post #1 an.

Liebe Grüße

Wolfgang
Wolfgang Mix
if you can't explain it simply you don't understand it well enough - A. Einstein
Mein Baby:http://www.epubli.de/shop/buch/Grund...41818516/52824
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#75

Re: [Tutorial] Quadratische Gleichungen vollständig lösen

  Alt 20. Feb 2010, 10:10
Was hat dieses Tutorial eigentlich mit Delphi zu tun? Ich hab darin rein gar nichts entdeckt was mit Delphi zu tun hat und somit in die Codelib sollte (nach meiner persönlichen Meinung)
Anders ausgedrückt: Gehört so etwas nicht in eine Mathematikforum? Und dort wäre es vermutlich zu simpel um das sich jemand der Sache annimmt.
Ich dachte immer in die Codelib sollen wichtige Dinge die ein Jeder gebrauchen kann und nicht gaaaanz viele gaaaanz spezielle Dinge die nur ein einziger in 20 Jahren einmal benötigt

Dies ist meine ganz persönliche Meinung und ist somit nicht automatisch die Meinung des gesamten Teams
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#76

Re: [Tutorial] Quadratische Gleichungen vollständig lösen

  Alt 20. Feb 2010, 16:18
Hi!

Es soll ja gar nicht mehr in die Codelib
Es ist als Tutorial gedacht (also auch dann später in die Sparte) und behandelt ein Problem, dass afair nur bei Computer-Berechnung auftritt und somit in einem Mathematik-Forum eher nicht passt, aber bei allen Programmiersprachen quasi auftritt.
Insofern ist es doch ein Tutorial für allgemeines Programmieren, oder?


Grüße, Frederic

P.S.
Auch nur persönliche Meinung
Frederic Kerber
  Mit Zitat antworten Zitat
Benutzerbild von Wolfgang Mix
Wolfgang Mix

Registriert seit: 13. Mai 2009
Ort: Lübeck
1.222 Beiträge
 
Delphi 2005 Personal
 
#77

Re: [Tutorial] Quadratische Gleichungen vollständig lösen

  Alt 20. Feb 2010, 16:25
Ich denke, es paßt in beide Sparten, wenn man den Thread bestehen läßt,
meine Meinung. Im Tut gibt es ja einen Link auf diesen Thread.
Wolfgang Mix
if you can't explain it simply you don't understand it well enough - A. Einstein
Mein Baby:http://www.epubli.de/shop/buch/Grund...41818516/52824
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#78

Re: [Tutorial] Quadratische Gleichungen vollständig lösen

  Alt 20. Feb 2010, 19:25
Zitat:
Dies ist meine ganz persönliche Meinung und ist somit nicht automatisch die Meinung des gesamten Teams
was aber auch nicht heisst, dass das Team hier anders denkt, sondern er nicht für alle spricht
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von Wolfgang Mix
Wolfgang Mix

Registriert seit: 13. Mai 2009
Ort: Lübeck
1.222 Beiträge
 
Delphi 2005 Personal
 
#79

Re: [Tutorial] Quadratische Gleichungen vollständig lösen

  Alt 20. Feb 2010, 20:10
Ich lasse einfach das Team entscheiden, und gut ist es.
Die Mods können ja dann die persönlichen Dinge und Polemiken
aus dem Thread herausnehmen.

Gruß

Wolfgang
Wolfgang Mix
if you can't explain it simply you don't understand it well enough - A. Einstein
Mein Baby:http://www.epubli.de/shop/buch/Grund...41818516/52824
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#80

Re: [Tutorial] Quadratische Gleichungen vollständig lösen

  Alt 20. Feb 2010, 20:40
Zitat von Wolfgang Mix:
Die Mods können ja dann die persönlichen Dinge und Polemiken aus dem Thread herausnehmen.
Eine Zensur findet in diesem Forum nicht statt.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 8 von 9   « Erste     678 9      


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 12:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz