• Can you add text to the circle and line animation shown in the last lesson? The text should indicate theta in radians. (Note: your text will have to be in decimal form; you can't make it say 3Pi/2. If your text is in fractional form (i.e. 1/50), change it to decimal form.)

For reference, here is the finished code for the animation:

> with(plottools):with(plots):

> c:=circle([0, 0], 1):

> l:=display(seq(line([0, 0], [cos(t/100), sin(t/100)], color=red), t=0..200*evalf(Pi, 3)), insequence=true):

> display(c, l, scaling=constrained);

Solution:

> t:=display(seq(textplot([0.5, 0.5, convert(evalf(t/100), string)]), t=0..200*evalf(Pi, 3)), insequence=true):

> display(c, l, t, scaling=constrained);

• Create a sequence from 0..e (Euler's constant). Be precise to two decimal places. (Note: to use e in Maple, you need to type exp(1)) Display this sequence in a plot with two lines; one moving and one static. You may use plottools[animate]() or sequences (whichever works best) to draw the moving line. Use plottools[line]() to draw the static line. Display all graphics on a constrained plot.

Solution:

> with(plots):with(plottools):

> txt:=display(seq(textplot([0.5, 0.5, convert(evalf(t/100, 3), string)]), t=0..evalf(exp(1), 4)*100), insequence=true):

> l:=line([0, 0.5], [0.5, 0]):

> display(txt, l, display(seq(plot(x*t/100, x=-0.5..0.75, -0.5..0.5), t=0..evalf(exp(1), 4)*100), insequence=true), scaling=constrained);