ERRATA in "A Computer Program Illustrating an Ordering Algorithm for Eighteen Departments"
Jsun Yui Wong
Line 364 and line 366 of the September 22 post of the present blog should read as follows:
364 IF ABS(X(K)-X(J)) less than T(K,J) THEN TZ(K,J)=99999! ELSE TZ(K,J)=0
366 NEXT J
The "less than" above should be replaced by <.