无法在 Show[

Question

我在 Show 方法中遇到这个错误，为什么？ :/

sol = First@
  NDSolve[{eq1ad, eq2ad, eqrad} U CondizioniIniziali, {q1, q2, 
    qr}, {t, 0, T}]

p1 = ParametricPlot3D[
  {xE, yE, zE} /. sol,
  {t, 0, T},
  AxesLabel -> {"x[t]", "y[t]", "z[t]"},
  BoxRatios -> {1, 1, 1},
  PlotStyle -> Red
  ]    

Manipulate[
 Show[
  p1,
  ListLinePlot[
   {{0, 0, 0}, {xB, yB, zB}, {xE, yE, zE}} /. sol /. t -> time,
   PlotStyle -> {Thick, Red}
   ]
  ],
 {time, 0, T}
 ]

可能是因为我无法将 ParametricPlot3d 与 Show 结合使用？

Answer 1

我认为您正在尝试将 2D ListLinePlot 与 3D ParametricPlot3D 结合起来。阅读 ListLinePlot 的文档似乎表明它只接受 2D 点，不接受 3D 点。

你或许可以像这样改编

T=2;
p1 = ParametricPlot3D[{Sin[t],Cos[t],t^2}, {t,0,T}];
Show[p1, Graphics3D[ Line[{{0, 0, 0}, {1/2,1/2,2}, {1/3, 1/3,3}}]]]

可以将 3D 点列表变成 Line 变成 Graphics3D，然后将你的 ParametricPlot3D

组合起来

无法在 Show[

Could not combine the graphics objects in Show[

wolfram-mathematica