Support points II — Georg Nees, 1969

Dissertation 1969 · pp. 174 / 176

ALGOL 60

'COMMENT' No listing. P. 174:,
'Figures 19 and 20: the same
 alphabet, two eruptions'.,

'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 fig. 19, K=2 fig. 20.
 No re-init of JI between
 eruptions.

This page · drawing kernel

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 = fig. 19 (not drawn)
  // erupt 2 = fig. 20
}

P. 174: figures 19 and 20 are an alphabet — two apples from the same tree. The same scatter and complete joining, without reloading the generators. The drawing shows the ten support points of figure 20, recovered from the scan. New seeds makes other second eruptions.