1樓：Grass Little
Wolfram Demonstrations Project 上有 Solutions of Fermat's Equation
demonstrations.wolfram.com/SolutionsOfFermatsEquation/我改了一下顏色Manipulate[
Show[With[, , , , ], , , 0,1}, , -2, 2}]
這是n=4 和 n=5
2樓：happy fish
畫出一模一樣的我不知道怎麼做。但是畫出複數定義域的圖形是可以做到的。引數可以自己調整
Clear[f, g];
(*Plot a contour f[x,y] in 3D with one of the parameters fixed*)
f[x_, y_] := x^3 + y^3 - 1;
With[,
ContourPlot3D[, , , ]]
(*Plot a function g[z] with complex domain*)
g[z_] := (1 - z^3)^(1/3);
With[,
Plot3D[, , ]]
上圖沒什麼意義，看不到各種角度，而且還可以調引數，你自己用mma執行是最好的
如何用mathematica證明下述方程只有唯一實根，且該實根為無理根？
用軟體證明是無理根還是奇怪了點。不過其實你可以直接證明該多項式在Q上面不可約，從而根不可能是有理根。對於這種級數截斷，當你截斷的地方是個質數的時候，可以輕鬆使用Eisenstein判別法判斷。當你截斷的地方不是個質數的時候，就稍微要用到一點點代數知識。利用準素分解就能得到結果，這個東西應該是叫Sch...
如何用Mathematica求解以下不定方程並作圖？
紐澤西管風琴 一種方法是用 FindInstance，FindInstance x y z 120 168x 280y 325z 34505,Integers 另一種方法是用 FrobeniusSolve，FrobeniusSolve 168,34505 168 120 然後再算出就可以了.可以包裝...
請問如何用Mathematica求1 Cos a I Sin a 的模和輻角
這問題其實有點意思的。分析到最後你會發現，Mathematica的化簡函式不知道 Simplify ArcTan Cot a 2 a,0 a Pi 2 2 a ArcTan Cot a 然後再替 最近沒怎麼出現過的 Maple黨說一句 Maple知道。Simplify tan cot a to fr...