Quellcode-Bibliothek Algol p270.cob

       Identification Division.
       Program-Id. Victor.
      * Buch "Introduction to Cybernetics", 1966
      * von Viktor Gluschkow
      * p270
       Data Division.
       Working-Storage Section.
         78 n            value 100.
         77 i            pic 9(4).
         77 j            pic 9(4).
         77 k            pic 9(4).
         77 y            pic 9(4)V99.
         77 s            pic 9(4)V99.
         77 d            pic 9(4)V99.
         77 r            pic 9(4)V99.
         77 a            pic 9(4)V99 occurs n.
         77 b            pic 9(4)V99 occurs n.
         01 p            pic 9(4)V99 occurs n.
       Procedure Division.
      * Formula
       L.
        accept b 
        move function f(b) to y
        move 0 to s 
        perform varying i from 1 until i=n
          add d to a(i)
          display a
          accept b
          compute p(i)=(function f(b)-y)/d
          compute s=s+p(i)*p(i)
          subtract d from a(i)
        end-perform       
        compute r=d/function sqrt(s)
        perform varying i from 1 until i=n
          compute a(i)=r*p(i)+a(i)
        end-perform       
        display a
        accept b
        if function abs(y - function f(b))>1 then goto L
        else 
          perform varying k from 1 until k=n
            compute a(i)=a(i)-r*p(i)
          end-perform
        end-if
        display a        
        goto L.
      * P=???
       End-Program Victor.