Kreisbogen — Georg Nees, 1969

Dissertation 1969 · S. 135

ALGOL 60

1 'BEGIN'
2 'COMMENT' DEMONSTRATION KREISBOGEN.,
3 'INTEGER' I., 'REAL' U, V, R.,
4 OPEN(X,Y), JI1.=JS1., JI2.=JS2.,
5 JA1.=0., JE1.=130., JA2.=-80., JE2.=80.,
6 'FOR' I.=1 'STEP' 1 'UNTIL' 200 'DO'
7 'BEGIN' ANF ..
8   U.=J1., V.=J2.,
9   'IF' ABS(V) 'LESS' 1.0 'THEN' 'GOTO' ANF .,
10  R.=.5*(U*U+V*V)/V .,
11  LEER(U,V), ZIRK(0.0,R,R,-U,V)
12 'END',,
13 CLOSE
14 'END' DEMONSTRATION KREISBOGEN.,

Diese Seite · Zeichenkern

JavaScript

for (let I = 1; I <= 200; I++) {
  let U, V;
  do { U = J1(0, 130); V = J2(-80, 80); }
  while (Math.abs(V) < 1);
  const R = 0.5 * (U * U + V * V) / V;
  LEER(U, V);
  ZIRK(0, R, R, -U, V);
}
// Kreis durch (U,V) und den Ursprung,
// Mittelpunkt (0,R). Blatt 90° wie der Scan.

Ungefähre Darstellung. Die Saaten des gedruckten Blattes sind nicht überliefert; JS1 und JS2 stehen wie auf S. 122. Abschnitt 2.3 führt die Sprache G3 ein: ZIRK(M,N,R,P,Q) zieht einen Kreisbogen vom aktuellen Griffel zum Punkt P,Q. Mittelpunkt M,N, Radius der Betrag von R; nichtnegatives R läuft im Uhrzeigersinn. Bild 13: 200 mal Zufallspunkt U,V (Saaten JS1, JS2 wie S. 122), Kreis durch den Ursprung, Bogen nach −U,V. |V| < 1 wird verworfen, sonst würde der Radius explodieren. Blatt 90° im Uhrzeigersinn wie der Scan: die langen Bögen stehen senkrecht, die beiden Augen links und rechts vom Ursprung.