Quellcode-Bibliothek stau-p150.cob   Sprache: Cobol

       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.