4-2.mws

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

> x:=cos(t);

x := cos(t)

> y:=sin(t);

y := sin(t)

> m:=[[x,0],[0,y]];

m := [[cos(t), 0], [0, sin(t)]]

> t:=n*Pi/50;

t := 1/50*n*Pi

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

[Maple Plot]

>