Wolfram mathematica Mathematica CDF播放器无法正确播放我的动画

我用Mathematica 8.04编写了一个动画，并将其保存为myfile.cdf。它在我安装了mathematica的电脑上播放得很好。如果我在另一台只安装了cdf播放器的计算机上播放，它只播放一小部分图像。有一个类似于

Show[Graphical object1，Graphical object2，…]

的命令

我从CDF播放器收到一条错误消息，说

“Show Gcomb:无法在Show[…]中组合图形对象”

有人知道解决办法吗

---

编辑：请求的代码

\[Phi] = -\[Pi]/6;
A2 = 1.5;
Kreis = ParametricPlot[{2.5 Cos[ t], 2.5 Sin[t]}, {t, 0, 
    2 \[Pi]},(*AspectRatio->1,*)
   PlotStyle -> {{Thickness[.005], RGBColor[1, 1, 1]}}, 
   AxesLabel -> {"Re", "Im"}, Ticks -> {{-3, 3}, {-3, 3}}, 
   ImageSize -> {338, 338}];

   sinus1 = Plot[Sin[x], {x, 0, 2 \[Pi]} , 
   PlotStyle -> {{Thickness[.005], RGBColor[1, 0, 0]}}, 
   Ticks -> {{0, \[Pi]/2, \[Pi], 3 \[Pi]/2, 2 \[Pi](*,5\[Pi]/2,3\[Pi],
      7\[Pi]/2,4\[Pi]*)}, {-3, -1, 1, 3}}, AxesLabel -> {"t", ""}, 
   PlotRange -> {{0, 2 \[Pi]}, {-2.5, 2.5}}, ImageSize -> {525, 525}];
sinus2 = Plot[A2 Sin[x - \[Phi]], {x, 0, 2 \[Pi]}, 
   PlotStyle -> {{Thickness[.005], RGBColor[0, 1, 0]}} ];
sinus3 = Plot[A2 Sin[x - \[Phi]] + Sin[x], {x, 0, 2 \[Pi]}, 
   PlotStyle -> {{Thickness[.005], RGBColor[0, 0, 1]}} , 
   PlotRange -> {{0, 2 \[Pi]}, {-2.5, 2.5}}];


Kreisbewegung = 
 Animate[(*\[Phi]3=ArcTan[(Sin[t]+A2 Sin[t-\[Phi]])/(Cos[t]+A2 Cos[
  t-\[Phi]])];
  A3=Sqrt[(Cos[t]+A2 Cos[t-\[Phi]])^2+(Sin[t]+A2 Sin[t-\[Phi]])^2];*)


  GraphicsRow[{Show [Kreis,(*ParametricPlot[{Cos[ s],Sin[s]},{s,0,t},
     PlotStyle->{{Thickness[.005],RGBColor[1,0,0]}}],
     ParametricPlot[{A2 Cos[ s],A2 Sin[s]},{s,0,t-\[Phi]},
     PlotStyle->{{Thickness[.005],RGBColor[0,1,0]}}],
     ParametricPlot[{ A3 Cos[s],A3 Sin[s]},{s,0,\[Phi]3},
     PlotStyle->{{Thickness[.005],RGBColor[0,0,1]}}],*)

     Graphics[{
        Red, Arrowheads[.05], Arrow[{{0, 0}, {Cos[t], Sin[t]}}],
       { Thickness[.0015], Red, Line[{{Cos[t], 0}, {Cos[t], Sin[t]}}]},


        Green, Arrowheads[.05], 
       Arrow[{{0, 0}, {A2 Cos[t - \[Phi]], A2 Sin[t - \[Phi]]}}],
        {Thickness[.0015], Green, 
        Line[{{A2 Cos[t - \[Phi]], 0}, {A2 Cos[t - \[Phi]], 
           A2 Sin[t - \[Phi]]}}]},
       Blue, Arrowheads[.05], 
       Arrow[{{0, 0}, {Cos[t] + A2 Cos[t - \[Phi]], 
          Sin[t] + A2 Sin[t - \[Phi]]}}],
        {Thickness[.0015],
        Blue, 
        Line[{{Cos[t] + A2 Cos[t - \[Phi]], 
           0}, {Cos[t] + A2 Cos[t - \[Phi]], 
           Sin[t] + 
            A2 Sin[t - \[Phi]]}}]},                                   


                  Axes -> True, AxesOrigin -> {0, 0}, Ticks -> None ,
           PlotRange -> {{-3, 3}, {-3, 3}}, AxesLabel -> {y, x}, 
       AspectRatio -> 1/1}]],



    Show[sinus1, sinus2, sinus3, 
     Graphics[{Thickness[.0015], Green, 
       Line[{{t, 0}, {t, A2 Sin[t - \[Phi]]}}],

                        RGBColor[0, 1, 0], PointSize[0.013], 
       Point[{t, A2 Sin[ t - \[Phi]]}],


                         Thickness[.0015], Red, 
       Line[{{t, 0}, {t, Sin[t]}}], 

                         RGBColor[1, 0, 0], PointSize[0.013], 
       Point[{t, Sin[t]}],


                         Thickness[.0015], Blue, 
       Line[{{t, 0}, {t, Sin[t] + A2 Sin[ t - \[Phi]]}}], 

                         RGBColor[0, 0, 1], PointSize[0.013], 
       Point[{t, Sin[t] + A2 Sin[ t - \[Phi]]}]


                     } ] 
                     ]


    }], {t, 0, 2 \[Pi]}, AnimationRate -> 0.01]

---

这是一个应该可以工作的版本。正如注释中提到的，您的CDF代码需要在不计算代码行的情况下工作

\[Phi] = -\[Pi]/6;
A2 = 1.5;
Kreis = ParametricPlot[{2.5 Cos[t], 2.5 Sin[t]}, {t, 0, 
    2 \[Pi]},(*AspectRatio->1,*)
   PlotStyle -> {{Thickness[.005], RGBColor[1, 1, 1]}}, 
   AxesLabel -> {"Re", "Im"}, Ticks -> {{-3, 3}, {-3, 3}}, 
   ImageSize -> {338, 338}];
sinus1 = Plot[Sin[x], {x, 0, 2 \[Pi]}, 
  PlotStyle -> {{Thickness[.005], RGBColor[1, 0, 0]}}, 
  Ticks -> {{0, \[Pi]/2, \[Pi], 3 \[Pi]/2, 2 \[Pi](*,5\[Pi]/2,3\[Pi],
     7\[Pi]/2,4\[Pi]*)}, {-3, -1, 1, 3}}, AxesLabel -> {"t", ""}, 
  PlotRange -> {{0, 2 \[Pi]}, {-2.5, 2.5}}, 
  ImageSize -> {525, 525}]; sinus2 = 
 Plot[A2 Sin[x - \[Phi]], {x, 0, 2 \[Pi]}, 
  PlotStyle -> {{Thickness[.005], RGBColor[0, 1, 0]}}];
sinus3 = Plot[A2 Sin[x - \[Phi]] + Sin[x], {x, 0, 2 \[Pi]}, 
   PlotStyle -> {{Thickness[.005], RGBColor[0, 0, 1]}}, 
   PlotRange -> {{0, 2 \[Pi]}, {-2.5, 2.5}}];

Manipulate[
 (*\[Phi]3=ArcTan[(Sin[t]+A2 Sin[t-\[Phi]])/(Cos[t]+A2 Cos[t-\[Phi]])];
 A3=Sqrt[(Cos[t]+A2 Cos[t-\[Phi]])^2+(Sin[t]+A2 Sin[t-\[Phi]])^2];*)
 GraphicsRow[{Show[Kreis,(*ParametricPlot[{Cos[s],Sin[s]},{s,0,t},
    PlotStyle->{{Thickness[.005],RGBColor[1,0,0]}}],
    ParametricPlot[{A2 Cos[s],A2 Sin[s]},{s,0,t-\[Phi]},
    PlotStyle->{{Thickness[.005],RGBColor[0,1,0]}}],
    ParametricPlot[{A3 Cos[s],A3 Sin[s]},{s,0,\[Phi]3},
    PlotStyle->{{Thickness[.005],RGBColor[0,0,1]}}],*)
    Graphics[{Red, Arrowheads[.05], 
      Arrow[{{0, 0}, {Cos[t], Sin[t]}}], {Thickness[.0015], Red, 
       Line[{{Cos[t], 0}, {Cos[t], Sin[t]}}]}, Green, Arrowheads[.05],
       Arrow[{{0, 0}, {A2 Cos[t - \[Phi]], 
         A2 Sin[t - \[Phi]]}}], {Thickness[.0015], Green, 
       Line[{{A2 Cos[t - \[Phi]], 0}, {A2 Cos[t - \[Phi]], 
          A2 Sin[t - \[Phi]]}}]}, Blue, Arrowheads[.05], 
      Arrow[{{0, 0}, {Cos[t] + A2 Cos[t - \[Phi]], 
         Sin[t] + A2 Sin[t - \[Phi]]}}], {Thickness[.0015], Blue, 
       Line[{{Cos[t] + A2 Cos[t - \[Phi]], 
          0}, {Cos[t] + A2 Cos[t - \[Phi]], 
          Sin[t] + A2 Sin[t - \[Phi]]}}]}, Axes -> True, 
      AxesOrigin -> {0, 0}, Ticks -> None, 
      PlotRange -> {{-3, 3}, {-3, 3}}, AxesLabel -> {y, x}, 
      AspectRatio -> 1/1}]], 
   Show[sinus1, sinus2, sinus3, 
    Graphics[{Thickness[.0015], Green, 
      Line[{{t, 0}, {t, A2 Sin[t - \[Phi]]}}], RGBColor[0, 1, 0], 
      PointSize[0.013], Point[{t, A2 Sin[t - \[Phi]]}], 
      Thickness[.0015], Red, Line[{{t, 0}, {t, Sin[t]}}], 
      RGBColor[1, 0, 0], PointSize[0.013], Point[{t, Sin[t]}], 
      Thickness[.0015], Blue, 
      Line[{{t, 0}, {t, Sin[t] + A2 Sin[t - \[Phi]]}}], 
      RGBColor[0, 0, 1], PointSize[0.013], 
      Point[{t, Sin[t] + A2 Sin[t - \[Phi]]}]}]]}], {t, 0, 2 \[Pi]}, 
 SaveDefinitions -> True]

---

这是一个应该可以使用的版本。如注释中所述，您的CDF代码需要在不计算代码行的情况下使用

\[Phi] = -\[Pi]/6;
A2 = 1.5;
Kreis = ParametricPlot[{2.5 Cos[t], 2.5 Sin[t]}, {t, 0, 
    2 \[Pi]},(*AspectRatio->1,*)
   PlotStyle -> {{Thickness[.005], RGBColor[1, 1, 1]}}, 
   AxesLabel -> {"Re", "Im"}, Ticks -> {{-3, 3}, {-3, 3}}, 
   ImageSize -> {338, 338}];
sinus1 = Plot[Sin[x], {x, 0, 2 \[Pi]}, 
  PlotStyle -> {{Thickness[.005], RGBColor[1, 0, 0]}}, 
  Ticks -> {{0, \[Pi]/2, \[Pi], 3 \[Pi]/2, 2 \[Pi](*,5\[Pi]/2,3\[Pi],
     7\[Pi]/2,4\[Pi]*)}, {-3, -1, 1, 3}}, AxesLabel -> {"t", ""}, 
  PlotRange -> {{0, 2 \[Pi]}, {-2.5, 2.5}}, 
  ImageSize -> {525, 525}]; sinus2 = 
 Plot[A2 Sin[x - \[Phi]], {x, 0, 2 \[Pi]}, 
  PlotStyle -> {{Thickness[.005], RGBColor[0, 1, 0]}}];
sinus3 = Plot[A2 Sin[x - \[Phi]] + Sin[x], {x, 0, 2 \[Pi]}, 
   PlotStyle -> {{Thickness[.005], RGBColor[0, 0, 1]}}, 
   PlotRange -> {{0, 2 \[Pi]}, {-2.5, 2.5}}];

Manipulate[
 (*\[Phi]3=ArcTan[(Sin[t]+A2 Sin[t-\[Phi]])/(Cos[t]+A2 Cos[t-\[Phi]])];
 A3=Sqrt[(Cos[t]+A2 Cos[t-\[Phi]])^2+(Sin[t]+A2 Sin[t-\[Phi]])^2];*)
 GraphicsRow[{Show[Kreis,(*ParametricPlot[{Cos[s],Sin[s]},{s,0,t},
    PlotStyle->{{Thickness[.005],RGBColor[1,0,0]}}],
    ParametricPlot[{A2 Cos[s],A2 Sin[s]},{s,0,t-\[Phi]},
    PlotStyle->{{Thickness[.005],RGBColor[0,1,0]}}],
    ParametricPlot[{A3 Cos[s],A3 Sin[s]},{s,0,\[Phi]3},
    PlotStyle->{{Thickness[.005],RGBColor[0,0,1]}}],*)
    Graphics[{Red, Arrowheads[.05], 
      Arrow[{{0, 0}, {Cos[t], Sin[t]}}], {Thickness[.0015], Red, 
       Line[{{Cos[t], 0}, {Cos[t], Sin[t]}}]}, Green, Arrowheads[.05],
       Arrow[{{0, 0}, {A2 Cos[t - \[Phi]], 
         A2 Sin[t - \[Phi]]}}], {Thickness[.0015], Green, 
       Line[{{A2 Cos[t - \[Phi]], 0}, {A2 Cos[t - \[Phi]], 
          A2 Sin[t - \[Phi]]}}]}, Blue, Arrowheads[.05], 
      Arrow[{{0, 0}, {Cos[t] + A2 Cos[t - \[Phi]], 
         Sin[t] + A2 Sin[t - \[Phi]]}}], {Thickness[.0015], Blue, 
       Line[{{Cos[t] + A2 Cos[t - \[Phi]], 
          0}, {Cos[t] + A2 Cos[t - \[Phi]], 
          Sin[t] + A2 Sin[t - \[Phi]]}}]}, Axes -> True, 
      AxesOrigin -> {0, 0}, Ticks -> None, 
      PlotRange -> {{-3, 3}, {-3, 3}}, AxesLabel -> {y, x}, 
      AspectRatio -> 1/1}]], 
   Show[sinus1, sinus2, sinus3, 
    Graphics[{Thickness[.0015], Green, 
      Line[{{t, 0}, {t, A2 Sin[t - \[Phi]]}}], RGBColor[0, 1, 0], 
      PointSize[0.013], Point[{t, A2 Sin[t - \[Phi]]}], 
      Thickness[.0015], Red, Line[{{t, 0}, {t, Sin[t]}}], 
      RGBColor[1, 0, 0], PointSize[0.013], Point[{t, Sin[t]}], 
      Thickness[.0015], Blue, 
      Line[{{t, 0}, {t, Sin[t] + A2 Sin[t - \[Phi]]}}], 
      RGBColor[0, 0, 1], PointSize[0.013], 
      Point[{t, Sin[t] + A2 Sin[t - \[Phi]]}]}]]}], {t, 0, 2 \[Pi]}, 
 SaveDefinitions -> True]

---

你的动画是否完全独立运行？意思是：保存动画，退出Mathematica，重新打开笔记本。现在，你的动画应该可以运行，而不需要计算任何代码行。如果可以，请遵循ruebenkos的建议。否则，请确保动态内容完全自包含。@hans cycon我已将你的代码添加到问题中假设你和原始海报是一样的。你的代码被版主删除了，因为它是作为答案给出的（而不是一个）.@ruebenko代码现在在那里。你的动画是否完全独立运行？意思是：保存你的动画，退出Mathematica并重新打开笔记本。现在，你的动画应该在不计算任何代码行的情况下工作。如果可行，请遵循ruebenkos的建议。否则，请确保你的动态内容完全自包含。@hans cycon我补充道假设你和原来的海报是一样的，你的代码被版主删除了，因为它是作为答案给出的（而不是答案）。@ruebenko代码现在在那里了