Mathematica : 많은 함수 오류로 ContourPlot3D를 조작하십시오.

Question

세 가지 함수를 조작하고 팝업 메뉴를 선택하려고합니다. 아직 변수를 배치하지 않았습니다 (16, 25, 2 등의 위치에 있습니다).

어떤 이유로, 나는 그것을 실행할 때 팝업 메뉴로 조작 상자를 다시 제공하지만 ContourPlot3D를 표시하는 대신 코드를 표시합니다. 오류를 찾을 수 있습니까?

Clear[x, y, z, ell, mu, du] 

ell[x_, y_, z_] := x^2/16 + y^2/25 + z^2/2 
mu[x_, y_, z_] := x^2/1 + y^2/2 - z^2/1 
du[x_, y_, z_] := x^2/2 - y^2/4 - z^2/1 

Manipulate[ 
ContourPlot3D[ 
    F == 1, {x, -4, 4}, {y, -5, 5}, {z, -3, 3}], {F, {ell, mu, du}, ControlType -> PopupMenu}] 

그리고 이것은 티카 문서의 예는 다음과 같습니다

Manipulate[Plot[f[x], {x, 0, 2 Pi}], {f, {Sin, Cos, Tan, Cot}, ControlType -> PopupMenu}] 

Answer 1

하나의 방법 :

f["ell"][x_, y_, z_] := x^2/16 + y^2/25 + z^2/2 
f["mu"][x_, y_, z_] := x^2/1 + y^2/2 - z^2/1 
f["du"][x_, y_, z_] := x^2/2 - y^2/4 - z^2/1 
Manipulate[ 
    ContourPlot3D[ 
      f[key][x, y, z] == 1, {x, -4, 4}, {y, -5, 5}, {z, -3, 3}], 
       {{key,"ell"}, {"ell", "mu", "du"}, ControlType -> PopupMenu}]