Elementarer Irrweg — Georg Nees, 1969

Dissertation 1969 · S. 189 / 194

ALGOL 60

'PROCEDURE' ELIRR.,
'BEGIN'
  JA1.=P+JLI., JE1.=P+JRE.,
  JA2.=Q+JUN., JE2.=Q+JOB.,
  P1.=J1., Q1.=J2.,
  LEER(P1,Q1).,
  'FOR' M.=1 'STEP' 1 'UNTIL' N 'DO'
  'IF' T 'EQUAL' 0 'THEN'
  'BEGIN' LINE(J1,Y)., LINE(X,J2)
  'END'
  'ELSE' LINE(J1,J2).,
  'IF' T 'EQUAL' 0 'THEN'
  'BEGIN' LINE(P1,Y)., LINE(X,Q1)
  'END'
  'ELSE' LINE(P1,Q1)
'END' ELIRR.,

JI1.=JS1., JI2.=JS2.,
N.=20.,
JLI.=0., JRE.=20.,
JUN.=0., JOB.=20.,
T.=0.,
SERIE(20.0,20.0,8,6,ELIRR).,

Diese Seite · Zeichenkern

JavaScript

JA1 = P + JLI; JE1 = P + JRE;
JA2 = Q + JUN; JE2 = Q + JOB;
const P1 = J1(), Q1 = J2();
LEER(P1, Q1);
for (let M = 1; M <= N; M++) {
  if (T === 0) {
    LINE(J1(), Y);  // waagrecht
    LINE(X, J2());  // senkrecht
  } else LINE(J1(), J2());
}
if (T === 0) { LINE(P1, Y); LINE(X, Q1); }
else LINE(P1, Q1);
// Bild 22: T=0, N=20, 8×6 Zellen à 20.

Ungefähre Darstellung. Abschnitt 3.2.2: ELIRR legt einen geschlossenen Irrweg in das Rahmenrechteck, dessen Grenzen J1 und J2 sind (P+JLI…P+JRE, Q+JUN…Q+JOB). Bei T = 0 (Bild 22) sind die Kanten achsenparallel: erst neue Abszisse, dann neue Ordinate; der Schluss führt zum Startpunkt zurück. N = 20 ergibt K = 2·(N+1) Ecken. JS1 und JS2 sind die üblichen Werte von S. 122, nicht die des gedruckten Blattes. Der Generator läuft weiter — Bild 23 folgt ohne Neu-Saat. Das Blatt steht wie der Scan hochkant.