4-5.mws

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

> x1:=cos(t):

> y1:=sin(t):

> x2:=cos(2*t):

> y2:=sin(2*t):

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

> t=n*2*Pi/100:

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

[Maple Plot]

>