|
Identification Division.
Program-Id. Atom.
* from Stauffer/Stanley
* From Newton to Mandelbrot
* Springer 1996
Data Division.
Working-Storage Section.
01 is pic S9(4)V9(4) occurs 1680.
77 vx pic S9(4)V9(4).
77 vy pic S9(4)V9(4).
77 dt pic S9(4)V9(4).
Procedure Division.
move -0.25 to e
move 0 to ps
move 1 to p1
move 0.01 to dx
move 0 to x
L60.
perform varying i from 1 until i>10
add dx to x
compute p2=(-1/x-e)*ps
compute p1=p1+p2*dx
compute ps=ps+p1*dx
end-Perform
display ps, p1
go to L60.
End-Program Atom.
¤ Dauer der Verarbeitung: 0.16 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.
|
