identification division.
program-id. betrag.
* von Appell/Väth
* aus Funktionalanalysis S. 324
* eine Approximation der Betragsfunktion
author. "JD".
date-written. 18.9.2006.
date-compiled.
data division.
working-storage section.
77 xn pic 9(8)V99.
77 t pic 9(4).
procedure division.
display "start"
move 0 to t xn
perform 100 times
add 1 to t
compute xn=xn+1/2*(t*t- xn*xn)
end-perform
display "done, xn="xn.
end-program betrag.
¤ Dauer der Verarbeitung: 0.14 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|