How to remove superfluous legend elements from my plot

Using the following script with cmaple I got a plot with three legend elements. (see img link). 

How can I remove Curve 3 and Curve 5 entries?

with(plots):
plotsetup(gif,plotoutput=`test_maple.gif`,plotoptions=`color,noborder,portrait`):

l:=10^(-3);
Vel:=(y,t)->sum(n*y*t, n = 0 .. 10);

Vel1 := plot([-Vel(y, 0.1), y, y = 0 .. l], color = green, legend ="analytical"):
Vel2 := plot([-Vel(y, 0.2), y, y = 0 .. l], color = green):
Vel3 := plot([-Vel(y, 0.3), y, y = 0 .. l], color = green):

Vel1Text := textplot([-0.003, 0.0008, "t=1"], align = {above, right}):
Vel2Text := textplot([-0.008, 0.0008, "t=2"], align = {above, right}):
Vel3Text := textplot([-0.013, 0.0008, "t=3"], align = {above, right}):

display(Vel1,Vel1Text, Vel2,Vel2Text, Vel3,Vel3Text);