MaplePrimes - answers and comments on Question, extract data x and y values contour plot

getdata

Preben Alsholm — Tue, 12 Feb 2013 20:25:25 Z

restart;
g:=y*(1-1/(x^2+y^2)):
# g = 0.1
plots:-contourplot(g,x=-1..1,y=0..2,contours=[0.1]); p:=%:
dt:=plottools:-getdata(p):
L:=ListTools:-Flatten(select~(type,[dt],Matrix)):
M:=<op(L)>;
#plot(M);
#M[1..10,..];
#Lots of repeats, so:
Mu:=Matrix(ListTools:-MakeUnique(convert(M,listlist)));
#plot(Mu);

Then do the same for g = 0 and save in Mu0, say. Notice now that plot(Mu0); connects points in a confusing manner. But you can do plot(Mu0,style=points) to avoid seeing these connecting lines.
To export Mu and Mu0 to Excel see ?ExcelTools

getting data

waseem — Wed, 13 Feb 2013 10:46:29 Z

thanks but still i can not get the data

restart;
with(ExcelTools);
                              [Export, Import]
g:=y*(1-1/(x^2+y^2)):
# g = 0.1
plots:-contourplot(g,x=-1..1,y=0..2,contours=[0.1]); p:=%:
dt:=plottools:getdata(p):
L:=ListTools:-Flatten(select(type,[dt],Matrix)):
M:=<op(L)>;
#plot(M);
#M[1..10,..];
#Lots of repeats, so:
Mu:=Matrix(ListTools:-MakeUnique(convert(M,listlist)));
#plot(Mu);

copy-paste

PatrickT — Wed, 13 Feb 2013 14:21:06 Z

@waseem

you need to copy-paste the code exactly as given:

dt:=plottools:getdata(p):

should be

dt:=plottools:-getdata(p):

missing -

L:=ListTools:-Flatten(select(type,[dt],Matrix)):

should be:

L:=ListTools:-Flatten(select~(type,[dt],Matrix)):

missing ~