#wolfram-mathematica
Вопрос:
У меня есть код в ParametricPlot3D, который я хотел бы преобразовать в Graphics3D. Как бы я это сделал?
ParametricPlot3D[{Sin[v] (Cos[u] - 15 Cos[u]), 8 Cos[v], Sin[v] (2 Cos[5 u] - 8 Cos[u] - 10 Cos[3 u] - Cos[4 u])}, {u, 0, Pi}, {v, 0, Pi}, MeshStyle -> None, ColorFunction -> Yellow, Boxed -> False]
Ответ №1:
Если я это сделаю
FullForm[ParametricPlot3D[{Sin[v](Cos[u]-15 Cos[u]),8 Cos[v],
Sin[v](2 Cos[5 u]-8 Cos[u]-10 Cos[3 u]-Cos[4 u])},{u,0,Pi},
{v,0,Pi},MeshStyle->None,ColorFunction->Yellow,Boxed->False]]
затем он отображает
Graphics3D[List[...]]
так что это говорит мне о том, что результат вашего ParametricPlot3D уже есть Graphics3D .
Я предполагаю, что я чего-то не понимаю в том, о чем вы просите.
Комментарии:
1. Попробуйте
InputForm[ParametricPlot3D[...]], и когда это будет сделано, он должен отображать очень большой блок кода Mathematica. Скопируйте это в буфер обмена, а затем вставьте в блокнот и, возможно, сохраните в виде файла. Это должно быть около 400 кбайт. Затем выйдите из Mathematica, перезапустите и вставьте эту 400-килобайтную «строку» кода Mathematica в новую записную книжку. Может потребоваться несколько минут, чтобы прочитать это обратно в Mathematica. Когда это, наконец, будет сделано, поместите курсор сразу после закрытия «]» и <shift><shift><enter> и подождите минуту, пока он обработает это, и вы увидите свое изображение <enter>.Graphics3D[...]