Quelle  stau-p8.cob

       Identification Division.
       Program-Id. Pendulum.
      * from Stauffer/Stanley
      * From Newton to Mandelbrot
      * Springer 1996
       Data Division.
       Working-Storage Section.
         77 x           pic S9(4)V9(4).
         77 f           pic S9(4)V9(4).
         77 v           pic S9(4)V9(4).
         77 dt          pic S9(4)V9(4).
       Procedure Division.
        move 0 to x
        move 1 to v
        move 0.1 to dt
       L40.
        move -function sin(x) to f
        compute v=v+f*dt
        compute x=x+v*dt
        display x, v
        go to L40.
       End-Program Pendulum.