Quadratverteilung II — Georg Nees, 1969

Dissertation 1969 · S. 281

ALGOL 60

'BEGIN' 'COMMENT'
QUADRATVERTEILUNG.,
'REAL' V.,
'PROCEDURE' RANREC.,
'BEGIN' 'IF' J3 'LESS' .5
'THEN' REC(P,P+V,Q,Q+V,.4)
'END' RANREC.,
JI3.=JS3., JA3.=0., JE3.=1.,
V.=16., SERIE(16.0,16.0,12,8,RANREC).,
V.=8.,  SERIE(8.0,8.0,24,16,RANREC).,
V.=4.,  SERIE(4.0,4.0,48,32,RANREC)
'END' QUADRATVERTEILUNG.,

'COMMENT' Zeile 8 = Bild 51,
 Zeile 9 = Bild 50,
 Zeile 10 = Bild 49.

Diese Seite · Zeichenkern

JavaScript

function RANREC() {
  if (J3() < 0.5)
    REC(P, P + V, Q, Q + V, 0.4);
}
JI3 = JS3; JA3 = 0; JE3 = 1;
SERIE(16, 16, 12, 8, RANREC); // 51, ohne Tinte
V = 8;
SERIE(8, 8, 24, 16, RANREC);  // 50
// J3 läuft weiter, keine Neu-Saat.

Derselbe Block wie Bild 49, aber der mittlere Aufruf: V=8, SERIE(8,8,24,16,RANREC) = Zeile 9. Bild 51 (Zeile 8) wird mitgezählt, ohne Tinte. Nur JS3 (S. 122) — die Saat trifft das gedruckte Blatt. Blatt 90° wie der Scan (24 Zeilen hochkant). Knopf Kippen dreht +X nach unten.