Square distribution II — Georg Nees, 1969

Dissertation 1969 · p. 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' Line 8 = fig. 51,
 line 9 = fig. 50,
 line 10 = fig. 49.

This page · drawing kernel

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, no ink
V = 8;
SERIE(8, 8, 24, 16, RANREC);  // 50
// J3 keeps running; no re-seed.

The same block as figure 49, but the middle call: V=8, SERIE(8,8,24,16,RANREC) = line 9. Figure 51 (line 8) is counted without ink. Only JS3 (p. 122) — the seed matches the printed plate. Sheet 90° like the scan (24 rows upright). Flip turns +X down.