Mathematica解方程我要Mathematica同时解一些方程,并显示出所有根例如同时解x-1==0,x-2==0,x-3==0,x-4==0,x-5==0,x-6==0,x-7==0,x-8==0,x-9==0,要Mathematica显示出{1,2,3,4,5,6,7,8,9},而不是当成方程组去解,然后显示无

Question

Mathematica解方程 我要Mathematica同时解一些方程,并显示出所有根
例如同时解x-1==0,x-2==0,x-3==0,x-4==0,x-5==0,x-6==0,x-7==0,x-8==0,x-9==0,要Mathematica显示出{1,2,3,4,5,6,7,8,9},而不是当成方程组去解,然后显示无解

Answer 1

利用纯函数（Function,简写是#和&的结合）再加上Map（/@）就可以了啊：
Solve[#,x] & /@ {x - 1 == 0,x - 2 == 0,x - 3 == 0,x - 4 == 0,x - 5 == 0,x - 6 == 0,x - 7 == 0,x - 8 == 0,x - 9 == 0}
对于Map是什么意思,简单地说就是作用于列表的每一项,纯函数简单地说就是没有具体自变量名和应变量名、只有纯粹的函数关系的函数,具体请参看帮助文档.