Gewebe — Georg Nees, 1969

Dissertation 1969 · S. 258–260

ALGOL 60

'REAL' 'ARRAY' A,B(/-12..12,-8..8/).,

'PROCEDURE' GEWEBE(S).,
'VALUE' S., 'REAL' S.,
'BEGIN' 'INTEGER' P, Q.,
JA1.=JA2.=-S., JE1.=JE2.=S.,
'FOR' P.=-12 'STEP' 1 'UNTIL' 12 'DO'
'BEGIN'
  'FOR' Q.=-8 'STEP' 1 'UNTIL' 8 'DO'
  'BEGIN'
    A(/P,Q/).=7*P+J1.,
    B(/P,Q/).=7*Q+J2
  'END'
'END'.,
'FOR' P.=-12 'STEP' 1 'UNTIL' 12 'DO'
'BEGIN'
  LEER(A(/P,-8/),B(/P,-8/)).,
  'FOR' Q.=-7 'STEP' 1 'UNTIL' 8 'DO'
    LINE(A(/P,Q/),B(/P,Q/))
'END'.,
'FOR' Q.=-8 'STEP' 1 'UNTIL' 8 'DO'
'BEGIN'
  LEER(A(/12,Q/),B(/12,Q/)).,
  'FOR' P.=11 'STEP' -1 'UNTIL' -12 'DO'
    LINE(A(/P,Q/),B(/P,Q/))
'END'
'END' GEWEBE.,

GEWEBE(2.0).,

Diese Seite · Zeichenkern

JavaScript

JA1 = JA2 = -S; JE1 = JE2 = S;
for (P = -12; P <= 12; P++)
  for (Q = -8; Q <= 8; Q++) {
    A[P][Q] = 7*P + J1();
    B[P][Q] = 7*Q + J2();
  }
// zuerst Ketten (P fest), dann Schuss
// (Q fest, P von 12 nach −12).
GEWEBE(2.0);

Abschnitt 3.2.9: der Generator speichert 425 Kreuzungspunkte in den Matrizen A und B, dann legt er Ketten- und Schussfäden durch dieselben Eckpunkte. S ist der Maximalbetrag der Störung um die Ideallage 7·P, 7·Q. Bild 44 ist GEWEBE(2.0); GEWEBE(10.0) wird Bild 46. JS1 und JS2 von S. 122. Blatt 90° wie der Scan.