4-3.mws

Construct the velocity vector field along a
constant motion around a circle.

> restart;

> x:=cos(t);

x := cos(t)

> y:=sin(t);

y := sin(t)

> m:=[[x,y],[x-y,y+x]];

m := [[cos(t), sin(t)], [cos(t)-sin(t), sin(t)+cos(...

> t:=k*2*Pi/100;

t := 1/50*k*Pi

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

[Maple Plot]

>