MN> Neato. The first few I can verify in my head. What was your 
 MN> general approach; permute all scales, then eliminate ones 
 MN> which are in same ring? I still haven't figured a way to 
Exactly that.
 MN> calculate the number directly, without counting. I wonder 
 MN> if there actually is a way? Would you care to post your 
 MN> code? 
DEFLNG A-Z
CONST ln = 12
CONST lnn = 2048   ' lnn is 2^(ln-1)
DIM a$(2048)
n = 0
CLS
FOR t = 0 TO lnn - 1
  IF (t AND 63) = 0 THEN LOCATE 1, 1: PRINT t
  c$ = "": b = 1: k = 0
  FOR d = 0 TO ln - 1
    IF (t AND b) THEN c$ = "-" + c$ ELSE c$ = "x" + c$
    b = b + b
  NEXT d
  FOR s = 0 TO n - 1
  IF INSTR(a$(s) + a$(s), c$) THEN k = 1: EXIT FOR
  NEXT s
  IF k = 0 THEN a$(n) = c$: n = n + 1
NEXT t
PRINT n
Matju 1:243/68.1 101:163/100 34:104/103 http://www.comnet.ca/~galois/matju/
--- Terminate 3.00
---------------