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/07/04 04:49:03
![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,](/uploads/image/z/13098549-21-9.jpg?t=Mathematica%E7%AE%80%E5%8D%95%E7%9A%84%E7%BC%96%E7%A8%8B%E9%A2%98%E4%BB%85%E7%94%A8Select%2CFlatten%2CApply%E5%92%8CFreeQ%E5%91%BD%E4%BB%A4%E8%8E%B7%E5%BE%97%E4%B8%8B%E5%88%97%E8%A1%A8%E8%BE%BE%E5%BC%8F%E7%9A%84%E5%8F%98%E9%87%8F%E5%88%97%E8%A1%A8%28%E4%BE%9D%E5%8F%98%E9%87%8F%E5%9C%A8%E8%A1%A8%E8%BE%BE%E5%BC%8F%E4%B8%AD%E5%87%BA%E7%8E%B0%E7%9A%84%E6%AC%A1%E5%BA%8F%EF%BC%89x%5E3+%2B+3+x%5E2+y%5E2+%2B+3+x+y%5E4+%2B+y%5E6+%2B+3+x%5E2+z%5E3+%2B+6+x+y%5E2+z%5E3+%2B+3+y%5E4+z%5E3+%2B+3+x+z%5E6+%2B+3+y%5E2+z%5E6+%2B+z%5E9%7Bx%2Cx%2C)
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] &]