identificationdivision. program-id. golden. * aus D.Nowottny p. 95 * Mathematik am Computer author. "JD". date-written. 24.9.2006. date-compiled. datadivision. working-storagesection.
77 delta pic 9(4)V9(8).
77 as pic 9(4)V9(8).
77 bs pic 9(4)V9(8).
77 bss pic 9(4)V9(8).
77 fa pic 9(4)V9(8).
77 fb pic 9(4)V9(8).
77 fas pic 9(4)V9(8).
77 fbs pic 9(4)V9(8).
77 r pic 9(4)V9(8). linkagesection.
77 a pic 9(4)V9(8).
77 b pic 9(4)V9(8).
77 f pic x(8).
77 x pic 9(4)V9(8). proceduredivisionusing f a b x. * Suche einen lokalen Minimums in [a,b] compute delta = 1e-8 compute r = (function sqrt(5)-1)/2 compute as = a+(1-r)*(b-a) compute bs = a+r*(b-a) compute fa = function f(a) compute fb = function f(b) compute fas = function f(as) compute fbs = function f(bs) performuntil b-a<=delta if fas<=fbs then move bs to b move fbs to fb move as to bs move fas to fbs compute as = a+(1-r)*(b-a) compute fas = function f(as) else move as to a move fas to fa move bs to as move fbs to fas compute bs = a+r*(b-a) compute fas = function f(bss) end-if end-perform compute x = (a+b)/2 * (ein) Minimum ist in x end-program golden.
¤ Dauer der Verarbeitung: 0.13 Sekunden
(vorverarbeitet)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
