複素数を余裕でサポートしているMathematicaは、2Dグラフィックスをより簡単に処理できます。 座標としてリストを用いた星形の描画 例として星形を使います。 星形を描くには次のように組むとある程度すっきりするでしょう。 listPts = Table[{Cos[a Pi], Sin[a Pi]}, {a, 0, 4, 4/5}] ListLinePlot[listPts, AspectRatio -> Automatic] 平行移動 これを右に1、上に2だけ平行移動するには、以下のように座標 $(1, 2)$ を足せばいいでしょう。 listPtsに直接{1, 2}を足すのも直感的に行けそうな気がするかもしれませんが、次元が合わないのが駄目なようなのでやむなくリストのそれぞれに適用させます。