Question: plotting graphs together using display

I've got the following code:

with(plots):
a:=seq(combinat[fibonacci](k), k=2..10);
for i from 1 to 5 do
#with(plots):
multiple(plot,[sin(a[i]*x),x=-2..2,-2..2,color="Red",legend=typeset("Curve1:",sin(a[i]*x))],[sin(a[i+1]*x),x=-2..2,-2..2,color="Green",legend=typeset("Curve2:",sin(a[i+1]*x))],title=typeset("Lissajous",i));
end do;

 

that plots the sine functions of consecutive fibonacci numbers pairwise. Now, if I had to use the display command to plot these pairs together, how would I be able to do so?

 

Please Wait...