Autor Beitrag
Fiete
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 604
Erhaltene Danke: 341

W7
Delphi 6 pro
BeitragVerfasst: Mo 31.01.11 12:15 
Das Programm berechnet die Quadratwurzel reeller Zahlen mit beliebiger Anzahl der Nachkommastellen.
Das Verfahren des schriftlichen Wurzelziehens ist hier beschrieben.
de.wikipedia.org/wik...tliches_Wurzelziehen
Den Algorithmus habe ich 1962 in der Schule gelernt und jetzt implementiert.
Gruß Fiete
Einloggen, um Attachments anzusehen!
_________________
Fietes Gesetz: use your brain (THINK)
Gammatester
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 328
Erhaltene Danke: 101



BeitragVerfasst: Mo 31.01.11 13:43 
Da sind aber noch ein ganzer Haufen Fehler drin. Hier mal eine kleine Auswahl (der Übersichtlichkeit halber nur mit 10 Nachkommastellen):
ausblenden Quelltext
1:
2:
3:
4:
5:
6:
7:
Radikand   Wurzel         Kontrolle
0,1        0,31622776601  0,999999999956753113201
1          0,10000000000  1,00000000000000000000
10         3,1622776601   99,9999999956753113201
100        1,00000000000  100,00000000000000000000
1000       31,6227766016  9999,9999999470044512256
0          Ungültige Gleitkomma-Operation

Es ist entweder die Wurzel oder die Kontrolle völlig falsch. Wenn die Wurzeln halbwegs richtig sind, sind sie oft falsch gerundet. Wie die Kontrolle falsch sein kein, ist mir nicht ganz klar, denn das bedeutet doch eigentlich, daß wahrscheinlich Deine Arithmetik (zumindest das Quadrieren) buggy ist, und nicht nur die Quadratwurzel.

Weiterhin kann man keine Exponenenten eingeben.
Fiete Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 604
Erhaltene Danke: 341

W7
Delphi 6 pro
BeitragVerfasst: Do 03.02.11 19:12 
Moin Gammatester,
danke für Deine Tests, die Fehler sind behoben.
Hatte zwei Zeilen vertauscht und die Kommasetzung mußte revidiert werden.
Die neue Version ist hochgeladen.
Gruß Fiete

_________________
Fietes Gesetz: use your brain (THINK)
Sinspin
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1322
Erhaltene Danke: 117

Win 10
RIO, CE, Lazarus
BeitragVerfasst: Do 03.02.11 19:38 
Das ist aber genial, ich habe schon ehwig nach einem Algo gesucht mit dem man Wurzeln vernünftig auf dem Papier ziehen kann ohne sich annähern zu müssen. Selbst Wikipedia hat an keiner Stelle in seiner allgemeinen Ausführung zu mathematischen Wurzeln einen Link auf dieses Verfahren.
Mal angenommen, Wurzel gabs auch früher in Mathematik nicht vor der 8. Klasse dann dürftest du so (2011-1962)+8+6 Jahre alt sein.

_________________
Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Warum sollte unser aller Mutter, die Natur, nicht die gleichen Rechte haben?
Fiete Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 604
Erhaltene Danke: 341

W7
Delphi 6 pro
BeitragVerfasst: Fr 04.02.11 12:32 
Moin Stefan,
danke für Dein Interesse an der Mathematik.
Mein Alter hast Du fast richtig ermittelt, es ist heute ein Palindrom.
Gruß Fiete

_________________
Fietes Gesetz: use your brain (THINK)