Question: How to set in order wrong animation ?

with(plots); R := 5; alpha := (1/9)*Pi; beta := (1/3)*Pi; n := 100; dt := 2*Pi/n; C1 := plot([R*cos(t), R*sin(t), t = 0 .. 2*Pi], color = blue); O := [0, 0]; M := [R*cos(beta), R*sin(beta)]; A := [R*cos(alpha), R*sin(alpha)]; B := [R*cos(alpha+Pi), R*sin(alpha+Pi)]; AB := plot([A, B]); OM := plot([O, M]); P := [R*cos(t0*dt), R*sin(t0*dt)]; Q := [R*cos(dt*t0+Pi), R*sin(dt*t0+Pi)]; diamob := seq(plot([P, Q], color = green), t0 = 0 .. n); MP := plot([M, P]); MQ := plot([M, Q]); tp := textplot([[A[1]+.3, A[2], "A"], [B[1]-.3, B[2], "B"], [M[1]+.3, M[2]+.3, "M"]]); display({AB, C1, OM, tp, display(diamob, MP, MQ, insequence = true)}, scaling = constrained):
I wish animate MPand MQ.

Please Wait...