Quadratverteilung III — 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;
V = 16;
SERIE(16, 16, 12, 8, RANREC); // 51
// Erster Aufruf, frische Saat JS3.

Derselbe Block wie Bild 49 und 50, jetzt der erste Aufruf: V=16, SERIE(16,16,12,8,RANREC) = Zeile 8. Grobes Raster, 12×8 Zellen. Nur JS3 (S. 122) — die Saat trifft das gedruckte Blatt. Blatt 90° wie der Scan (12 Zeilen hochkant). Knopf Kippen dreht +X nach unten.