BaseForm函数的功能是将十进制数转换为其他进制数,但是它能够转换的进制范围为2到36(10个阿拉伯数字+26个英文字母表示数字),如果英文字母区分大小写,可以将进制范围扩大到62(10+26*2).
Mathematica代码实现为:
baseform[num_, base_] :=
With[{set =
Join[CharacterRange["0", "9"], CharacterRange["a", "z"],
CharacterRange["A", "Z"]]},
Subscript[StringJoin@set[[IntegerDigits[num, base] + 1]],
ToString@base]]