Gewebe, Störung zentriert — Georg Nees, 1969

Dissertation 1969 · S. 261 / 264

ALGOL 60

'BEGIN'
'COMMENT' GEWEBE STOERUNG
ZENTRIERT.,
'REAL' NK, ZK, F.,
'INTEGER' P, Q.,
'REAL' 'ARRAY' A,B(/-12..12,-8..8/).,
JA1.=JA2.=-1.,
JE1.=JE2.=1.,
JI1.=JS3., JI2.=JS4.,
NK.=5., ZK.=200.,
'FOR' P.=-12 'STEP' 1 'UNTIL' 12 'DO'
'BEGIN'
  'FOR' Q.=-8 'STEP' 1 'UNTIL' 8 'DO'
  'BEGIN'
    F.=ZK/(7*SQRT(P*P+Q*Q)+NK).,
    A(/P,Q/).=7*P+J1*F.,
    B(/P,Q/).=7*Q+J2*F
  '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'.,
CLOSE
'END' GEWEBE STOERUNG ZENTRIERT.,

Diese Seite · Zeichenkern

JavaScript

JI1 = JS3; JI2 = JS4;
JA = -1; JE = 1;
NK = 5; ZK = 200;
F = ZK / (7*sqrt(P*P+Q*Q) + NK);
A[P][Q] = 7*P + J1()*F;
B[P][Q] = 7*Q + J2()*F;
// Am Ursprung F = 40, am Rand ≈ 2.

S. 261: zwischen Bild 44 und 46 soll die Störung nicht nur größer, sondern makroinnovativ sein — abhängig vom Abstand zum Ursprung. Der Faktor F bläht J1 und J2 in der Mitte auf, am Rand bleibt das Gewebe ruhig. JS3 und JS4 von S. 122. Blatt 90° wie der Scan.