作业帮Mathematica简单的编程题仅用Select,Flatten,Apply和FreeQ命令获得下列表达式的变量列表(依变量在表达式中出现的次序）x^3 + 3 x^2 y^2 + 3 x y^4 + y^6 + 3 x^2 z^3 + 6 x y^2 z^3 + 3 y^4 z^3 + 3 x z^6 + 3 y^2 z^6 + z^9{x,x,
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/09 11:43:40
Mathematica简单的编程题仅用Select,Flatten,Apply和FreeQ命令获得下列表达式的变量列表(依变量在表达式中出现的次序）x^3 + 3 x^2 y^2 + 3 x y^4 + y^6 + 3 x^2 z^3 + 6 x y^2 z^3 + 3 y^4 z^3 + 3 x z^6 + 3 y^2 z^6 + z^9{x,x,
Mathematica简单的编程题
仅用Select,Flatten,Apply和FreeQ命令获得下列表达式的变量列表(依变量在表达式中出现的次序）
x^3 + 3 x^2 y^2 + 3 x y^4 + y^6 + 3 x^2 z^3 + 6 x y^2 z^3 +
3 y^4 z^3 + 3 x z^6 + 3 y^2 z^6 + z^9
{x,x,y,x,y,y,x,z,x,y,z,y,z,x,z,y,z,z}
想看看他人的解法.
Mathematica简单的编程题仅用Select,Flatten,Apply和FreeQ命令获得下列表达式的变量列表(依变量在表达式中出现的次序）x^3 + 3 x^2 y^2 + 3 x y^4 + y^6 + 3 x^2 z^3 + 6 x y^2 z^3 + 3 y^4 z^3 + 3 x z^6 + 3 y^2 z^6 + z^9{x,x,
我想了个答案,但这个/@相当于用到Map了……不知是否还合题意?
Select[Flatten[
Apply[{##} &, #] & /@ Apply[{##} &, #] & /@
Apply[{##} &,
x^3 + 3 x^2 y^2 + 3 x y^4 + y^6 + 3 x^2 z^3 + 6 x y^2 z^3 +
3 y^4 z^3 + 3 x z^6 + 3 y^2 z^6 + z^9]], FreeQ[#, _Integer] &]
不过也可以避开/@：
Select[Flatten[
Apply[{##} &,
Apply[{##} &,
Apply[{##} &,
x^3 + 3 x^2 y^2 + 3 x y^4 + y^6 + 3 x^2 z^3 + 6 x y^2 z^3 +
3 y^4 z^3 + 3 x z^6 + 3 y^2 z^6 + z^9], {1}], {2}]],
FreeQ[#, _Integer] &]