学习Mathematica迭代函数的几个画图例子: 1.三角形沿着某一点旋转 verticse = {{0, 0}, {1, 0}, {1/2, Sqrt[3]/2}}; tri = Line[verticse /. {a_, b__}->{a, b, a}]; Graphics[tri] rotation[gr_] := Rotate[gr, Pi/13, {1, 1}]; Graphics[NestList[rotation, tri, 30]] 2.绘出迭代平移之后的三角形 transla…