Stützpunkte II — Georg Nees, 1969

Dissertation 1969 · S. 174 / 176

ALGOL 60

'COMMENT' Kein Listing. S. 174:,
'Bilder 19 und 20: dasselbe
 Alphabet, zwei Eruptionen'.,

'FOR' K.=1 'STEP' 1 'UNTIL' 2 'DO'
'BEGIN'
  'FOR' I.=1 'STEP' 1 'UNTIL' 10 'DO'
  'BEGIN' X[I].=J1(-130,130).,
          Y[I].=J2(-90,90)
  'END'.,
  'FOR' I.=1 'STEP' 1 'UNTIL' 9 'DO'
  'FOR' L.=I+1 'STEP' 1 'UNTIL' 10 'DO'
  'BEGIN' LEER(X[I],Y[I]).,
          LINE(X[L],Y[L])
  'END'
'END'
'COMMENT' K=1 Bild 19, K=2 Bild 20.
 Zwischen den Eruptionen keine
 Wieder-Initiierung der JI.

Diese Seite · Zeichenkern

JavaScript

for (let erupt = 1; erupt <= 2; erupt++) {
  const X = [], Y = [];
  for (let I = 1; I <= 10; I++) {
    X.push(J1(-130, 130));
    Y.push(J2(-90, 90));
  }
  // erupt 1 = Bild 19 (nicht gezeichnet)
  // erupt 2 = Bild 20
}

S. 174: Bilder 19 und 20 sind ein Alphabet — zwei Äpfel vom selben Baum. Dieselbe Streuung und Vollverbindung, ohne die Generatoren neu zu laden. Die Zeichnung zeigt die zehn Stützpunkte von Bild 20, aus dem Scan zurückgewonnen. Neu würfeln erzeugt andere Zweit-Eruptionen.