I have been asked to construct this plot in maple for an analysis assignment. I have been given no other instructions on how to do this. I am not familiar at all with defining or plotting these kinds of functions in maple. Any help would be greatly appreciated as I have been struggling with this for a few days now. Thank you!
1 Answer
$\begingroup$
$\endgroup$
1
This seems to a question about Maple programming rather than math, and as such is better suited to stackoverflow.com or mapleprimes.com and not here.
Some things you could try:
restart:
N := 10:
P := [seq(plots:-implicitplot( abs(x)^p+abs(y)^p=1,
x=-1.1..1.1, y=-1.1..1.1,
gridrefine=2, filledregions,
title=sprintf("p = %a",p)),
p=[$1..N])]:
plots:-display(Array([ seq([seq(P[(i-1)*2+j], j=1..2)],
i=1..iquo(N,2)) ]));
plots:-display( op(P) );
plots:-display( op(P), insequence=true );
# Now click on above plot and play the animation via menubar
Explore( plots:-implicitplot( abs(x)^p+abs(y)^p=1,
x=-1.1..1.1, y=-1.1..1.1,
gridrefine=2, filledregions,
title=sprintf("p = %a",p)),
parameters=[ p=1..N ] );
-
$\begingroup$ Thank you very much for the help! I apologize, I am new to this site, and am still unsure about where to ask certain questions. $\endgroup$– K.H.Feb 2, 2016 at 0:39