用Wolfram看 課本 n 跟a的變化

x[a_, n_] := Normal@Series[Sin[x], {x, a, n}] 
Manipulate[ 
 Column[{  x[a, n], 
   Plot[ { Sin[x], x[a, n]} // Flatten // Evaluate, {x, -2 \[Pi], 
     4 \[Pi]}, PlotRange -> {-2, 2}]}], {a, -2, 8, 1}, {n, 2, 20, 1}, 
 ControlPlacement -> Top]