Quelle  stau-p103.cob   Sprache: unbekannt

       Identification Division.
       Program-Id. Oscillator.
      * 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.1 to e
        move 1.0 to ps
        move 0 to p1
        move 0.01 to dx
        move 0 to x
        L60.
        add dx to x
        compute p2=(x*x-e)*ps
        compute p1=p1+p2*dx
        compute ps=ps+p1*dx
        display ps, p1
        go to L60.
       End-Program Oscillator.