>>357
三角形PQRの1分ごとの形状のリストは作れた。

https://i.imgur.com/I5zxr1L.png
動画化する方法がわからん。


Ra=17/Sqrt[ 2(1-Sin[3Pi/14])];
r=E^(-2I Pi/7);
p=Table[Ra I r^(i-1),{i,Range[14]}];
f[t_,v_,v0_] :=( (* ｔ分後,v:分速 v0:スタート頂点*)
d = v t;
i = v0 + Mod[Floor[d/17],7];
v1 = {Re[p[[i]]],Im[p[[i]]]};
v2 = {Re[p[[i+1]]],Im[p[[i+1]]]};
s= Mod[d,17]/17;
(1-s) v1 + s v2
)
PQR[t_] :=(
P=f[t,5,1];
Q=f[t,11,3];
R=f[t,13,4];
{P,Q,R}
)
Table[Graphics[{EdgeForm[Thin],Pink,Polygon[PQR[t]]}],{t,Range[0,100]}]