Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
Algol p270.cob
Sprache: Unknown
|
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.
[ Dauer der Verarbeitung: 0.15 Sekunden
(vorverarbeitet)
]
|
|
