Schachtelung — Georg Nees, 1969

Dissertation 1969

ALGOL 60

'BEGIN' 'COMMENT' SCHACHTELUNG.,
'REAL' LI, RE, UN, OB, H.,
H.=.5., OPEN(0,0).,
LI.=-130., RE.=130.,
UN.=-90., OB.=90.,
ANF..
LEER(0,OB)., LINE(LI,OB).,
LINE(LI,UN)., LINE(RE,UN).,
LINE(RE,OB)., LINE(0,OB).,
LINE(LI,0)., LINE(0,UN).,
LINE(RE,0)., LINE(0,OB).,
LI.=LI*H., RE.=RE*H.,
UN.=UN*H., OB.=OB*H.,
'IF' RE 'GREATER' 1.0 'THEN' 'GOTO' ANF.,
CLOSE
'END' SCHACHTELUNG.,

Diese Seite · Zeichenkern

JavaScript

let LI = -130, RE = 130, UN = -90, OB = 90;
const H = 0.5;

do {
  LEER(0, OB);
  LINE(LI, OB);
  LINE(LI, UN); LINE(RE, UN);
  LINE(RE, OB); LINE(0, OB);
  LINE(LI, 0);  LINE(0, UN);
  LINE(RE, 0);  LINE(0, OB);
  LI *= H; RE *= H;
  UN *= H; OB *= H;
} while (RE > 1.0);

Anders als die Bogenraute läuft dieser Prozess ohne Laufanweisung, nur mit einer Sprungmarke (ANF) und einer Weiche. Jeder Durchlauf zeichnet ein Rechteck (Eckpunkte LI/RE/UN/OB) und die Raute, die seine vier Seitenmitten verbindet — dann werden alle vier Maße mit H = 0.5 halbiert. Die Schleife endet nicht nach einer festen Anzahl Durchläufe, sondern erst, wenn die halbe Rechteckbreite RE auf 1.0 oder darunter geschrumpft ist — eine Konvergenz im wörtlichen, mathematischen Sinn.