I want to evaluate the values of x and y and the data should bo saved in .xls format  from contour plot 

for g=0.1 the data x and y values  should be stored in xls sheet 1  atleast 50 values 

similarly  in separate xls sheet 

for g=0.0 the data x and y values  should be stored in xls sheet 1  atleast 50 values 

with(plots):
g:=y*(1-1/(x^2+y^2)):
colors:=table([0.1=blue,0.0=green,0.2=red]):
display(seq(contourplot(g,x=-1..1,y=0..2,
contours=[i],color=colors[i],axes=boxed,legend=(i)),i=[0.1,0.0,0.2]));

thanks in advance

How to give the different colors in implicit plot  and add legends my codes are 

with(plots):

g:=y*(1-1/(x^2+y^2)):

aa:=[g=0.1,g=0,g=0.5]:

implicitplot({seq(aa[i],i=1..3)},x=-5..5,y=0..2,legend="g=0.1,g=0,g=0.5",color=[red,blue,green],scaling=constrained);

i want to draw  a countour plot and i want the graph in the given below patter  and my codes are 

for Q=1, and Q=2 ,Q=3.2

F:= x^2+2*y^3+Q:
p1:=contourplot( F, x=0..1, Q=1,color=red):
p2:=contourplot( F, x=0..10, Q=2,color=blue):
display(p1,p2):

thanks in advance

i want to plot a streamlines for the functions 

psi=2y-exp(-x):

for different values of psi=0,1,2,3 and x=0 to 1 i want plot stream lines 

i want to display a1,a2,a3 on one side and b1,b2,b3 on another sides  that is in an array (one side a1,a2,a3 graph and another side b1,b2,b3 graphs)

 my codes are 

a1:=plot(x^2,x=1..2);a2:=plot(x^2,x=3..4);a3:=plot(x^2,x=4..5);
b1:=plot(x^3,x=1..2);b2:=plot(x^4,x=1..1);b3:=plot(x^5,x=1..2);

A:=([a1,a2,a3])

B:=([b1,b2,b3])

with(plots):display([A,B]);