|
Identification Division.
Program-Id. Bose.
* 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 -1 to bm
move 0 to s
perform varying iz from 1 until iz>10
compute z=0.1*iz
compute s=s+function sqrt(z)/(function exp(z-bm)-1)
display s
end-Perform
compute s=s*0.2/function sqrt(3.14159)
display s
End-Program Bose.
¤ Dauer der Verarbeitung: 0.27 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.
|
