Quadratverteilung — 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
SERIE(8, 8, 24, 16, RANREC);  // 50
V = 4;
SERIE(4, 4, 48, 32, RANREC);  // 49
// Erste zwei ohne Tinte, J3 läuft weiter.

Abschnitt 3.3.1, Gegenstandsreflexion. Ein Programm, drei Auflösungen: Zeile 8 Bild 51, Zeile 9 Bild 50, Zeile 10 dieses Blatt. RANREC füllt die Zelle mit REC (Schraffur 0.4), wenn J3 unter ½ liegt. Nur JS3 (S. 122) — die Saat trifft das gedruckte Blatt. Die ersten beiden SERIE-Aufrufe werden mitgezählt, aber nicht gezeichnet. Blatt 90° wie der Scan (48 Zeilen hochkant). Knopf Kippen dreht +X nach unten.