4-6 Construct the line segments joining [cos(t),sin(t)] with [cos(3t),sin(3t)] as t ranges over [0,2Pi].

> restart;

> x1:=cos(t):

> y1:=sin(t):

> x2:=cos(3*t):

> y2:=sin(3*t):

> m:=[[x1,y1],[x2,y2]]:

> t:=n*2*Pi/300:

> plot([m$n=0..300],color=red,scaling=constrained,axes=none);

>