如何输入功能，以便正确绘制图形

Question

目前我试图绘制sin（x）函数和一个名为myPolys的函数，它是sin（x）的taylor多项式，因为它等于

myPolys = 
Table[Table[(-1)^((j - 1)/2) x^j/Factorial[j], {j, 1, h, 2}], {h, 1, 
      19, 2}];

如何使用操作来绘制两个函数的图形，以便绘制myPolys的每个部分

到目前为止我的图表代码：

Manipulate[Plot[{Sin[x], myPolys[[n]]}, {x, -10, 10}, 
PlotRange -> {-5, 5}], {n, 1, Length[myPolys], 1}];

目前，对于n的每次迭代，myPolys都是单独绘制的 x然后x＆amp; - （X ^ 3）/ 3！然后x＆amp; - （X ^ 3）/ 3！ ＆安培; X ^ 10/10！ （所有都在同一图表中单独绘制）

我想要实现的图是，对于n = 1，应该绘制sin（x）并且应该绘制来自myPoly的x，对于n = 2，它继续并且图x-（x ^ 3/3！） （而不是绘图，对于n = 2，x和-x ^ 3/3！单独）等等，直到n达到10。

我的图表：

我希望的图表：

Answer 1

myPolys = Table[Sum[(-1)^((j - 1)/2) x^j/Factorial[j],
    {j, 1, h, 2}], {h, 1, 19, 2}];

Manipulate[Plot[{Sin[x], Evaluate@Take[myPolys, n]},
  {x, -10, 10}, PlotRange -> {-5, 5}], {n, 1, Length[myPolys], 1}]

或者，更具功能性。

Clear[myPolys]

myPolys[n_] := Table[Sum[(-1)^((j - 1)/2) x^j/Factorial[j],
   {j, 1, h, 2}], {h, 1, 2 n - 1, 2}]

Manipulate[Plot[{Sin[x], Evaluate@myPolys[n]},
  {x, -10, 10}, PlotRange -> {-5, 5}], {n, 1, 10, 1}]

和传说一样。

myLabels[n_] := Table[Sum[(-1)^((j - 1)/2) x^j/ToString[j] <> "!",
   {j, 1, h, 2}], {h, 1, 2 n - 1, 2}] 

Manipulate[Plot[{Sin[x], Evaluate@myPolys[n]},
  {x, -10, 10}, PlotRange -> {-5, 5},
  PlotLegends -> Placed[PointLegend[
     Rest@Array[ColorData[97], n + 1], HoldForm /@ myLabels[n],
     LegendMarkers -> {"\[Tilde]", 30}], Left]], {n, 1, 10, 1}]

Answer 2

我想你知道你可以使用内置<div> <input id="text1" type="text" size="10" /> </div> <div> <input id="date" type="date" /> </div> <div> <input id="text2" type="text" /> </div> ..

Series