Stützpunkte — Georg Nees, 1969

Dissertation 1969 · S. 174 / 175

ALGOL 60

'COMMENT' Kein Listing. S. 174:,
'Zehn Punkte werden gestreut
 und dann untereinander verbunden'.,

N.=10.,
'FOR' I.=1 'STEP' 1 'UNTIL' N 'DO'
'BEGIN' X[I].=J1(-130,130).,
        Y[I].=J2(-90,90)
'END'.,
'FOR' I.=1 'STEP' 1 'UNTIL' N-1 'DO'
'FOR' L.=I+1 'STEP' 1 'UNTIL' N 'DO'
'BEGIN' LEER(X[I],Y[I]).,
        LINE(X[L],Y[L])
'END'

Diese Seite · Zeichenkern

JavaScript

const X = [], Y = [];
for (let I = 1; I <= 10; I++) {
  X.push(J1(-130, 130));
  Y.push(J2(-90, 90));
}
for (let i = 0; i < 9; i++) {
  for (let l = i + 1; l < 10; l++) {
    LEER(X[i], Y[i]);
    LINE(X[l], Y[l]);
  }
}
// aus der Prosa S. 174, kein Listing.

S. 174: zehn Punkte streuen, dann jeden mit jedem verbinden. Die Zeichnung zeigt die zehn Stützpunkte von Bild 19, aus dem Scan zurückgewonnen. Neu würfeln erzeugt andere Individuen desselben Gitters (JS1, JS2). Bild 20 ist der nächste Durchlauf ohne Neu-Initiierung — Kapitel ⑬.