Question

mathematica二维图形如何在三维空间内旋转

比如说我有一个 a=PolarPlot[Sin[3 t], {t, 0, Pi}] ，我要画出这个图形沿着x轴转45度的图形怎么画？

Answer 1

对此，可以利用PolarPlot是ParametricPlot的特例这一点：

ParametricPlot3D[{Sin[3*t] Cos[t], Sin[Pi/4] Sin[3*t] Sin[t], Cos[Pi/4] Sin[3*t] Sin[t]}, {t, 0, Pi}]

当然，直接在a上动刀也是可以的：

Graphics3D[{ColorData[1, "ColorList"][[1]], 
   Cases[a, 
    Line[a_] :> 
     Line[{#[[1]], #[[2]] Sin[Pi/4], #[[2]] Cos[Pi/4]} & /@ a], 
    Infinity]}, Axes -> True]