Quelle  massenanziehung.cob

       identification division.
       program-id. kraft.
      * aus Prof. Ulrich Gähdes Vorlesung
      * Begriffsdefinition und Hypothesenbildung
      * am 6. Januar 2011 gegebenen Beispiel
      * über die Massenanziehung
       author. Jens.
       date-written. 7.1.2011.
       date-compiled.
       data division.
       working-storage section.
         78 g value 9.81.
         77 f1 pic 9(4)V99.
         77 f2 pic 9(4)V99.
       linkage section.
         77 p1 pic 9(4)V99.
         77 p2 pic 9(4)V99.
         77 t pic 9(4)V99.
         77 f pic 9(4)V99.
       procedure division using p1 p2 t returning f.
      * für alle p1, p2, t gilt
         compute f1=function m(p1)+function m(p2)
         compute f2=function r(p1,p2,t)
         compute f=g*f1/(f2*f2)
        end-program kraft.