WOLFRAM

Wolfram 语言与系统参考资料中心

模仿按钮拨号盘

构造一个简易的按钮拨号盘.

Wolfram Language code: Flatten[Outer[List, {697, 770, 852}, {1209, 1336, 1477}], 1]
Wolfram Language code: Grid[Partition[MapIndexed[Button[First[#2], EmitSound[Play[Total[Sin[2Pi # t]& /@ #], {t, 0, .1}]]]&, %], 3]]