Не удалось объединить графические объекты в 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