Mikado heap I — Georg Nees, 1969

Dissertation 1969 · p. 220

ALGOL 60

'BEGIN' 'COMMENT'
MIKADOSPIELHAUFEN I.,
'REAL' PSI, PI.,
'PROCEDURE' STAB.,
'BEGIN' PSI.=J1.,
LEER(P+2.5+30*COS(PSI),
Q+2.5+30*SIN(PSI)).,
LINE(P+2.5+45*COS(PSI+PI),
Q+2.5+45*SIN(PSI+PI))
'END'.,
PI.=3.14159., JI1.=JS1.,
JA1.=0., JE1.=PI.,
SERIE(5.0,5.0,26,18,STAB)
'END' MIKADOSPIELHAUFEN I.,

This page · drawing kernel

JavaScript

PSI = J1(); // JA1=0 … JE1=π
LEER(P+2.5+30*cos(PSI),
     Q+2.5+30*sin(PSI));
LINE(P+2.5+45*cos(PSI+π),
     Q+2.5+45*sin(PSI+π));
SERIE(5, 5, 26, 18, STAB);

Approximate rendering. P. 220: STAB puts a segment in every cell of SERIE(5,5,26,18), with J1 choosing the angle between 0° and 180°. Listing: 30 units along PSI, 45 the other way (PSI+π), through the cell centre. The prose speaks of 15 units (|45−30|). JS1 is the book seed of p. 122.