> plot(3*'x'^2,'x'=0..3);

[Maple Plot]

> f:=x->3*x^2;

[Maple Math]

> plot(f('x'),'x'=0..3);

[Maple Plot]

> plot(f,0..3);

[Maple Plot]

> plot(cos('x'),'x'=-5..5);
f:=(x,y)->cos(x+y);
g:=(x,y)->sin(x+y);
plot3d({f,g},-2..2,-2..2);

[Maple Plot]

[Maple Math]

[Maple Math]

[Maple Plot]

> g:=x->`if`(x>1,x^2,-x^3);
plot(g,-5..5);

[Maple Math]

[Maple Plot]

>

> plot(['x'^2,'x'^3],'x'=0..2);

[Maple Plot]

> f:=x->x^2;
g:=proc(x) RETURN(x^3); end;
plot([f,g],0..2);

[Maple Math]

[Maple Math]

[Maple Plot]

> plot([sin(x),cos(x)],x=-5..5);
plot3d(cos(x+y),x=-5..5,y=-5..5);

[Maple Plot]

[Maple Plot]

> plot([seq(x^n,n=0..4)],x=-2..2);

[Maple Plot]

> affpuissance:=proc(d,f)
li:=[seq(x^n,n=d..f)];
print(li);
plot(li,x=-2..2);
end;

>

Warning, `li` is implicitly declared local

Warning, `n` in call to `seq` is not local

[Maple Math]

> affpuissance(0,4);

[Maple Math]

[Maple Plot]

> affpuissance(1/2,3/2);

[Maple Math]

[Maple Plot]

> s:=[[1,1],[2,1],[2,2],[1,2],[1,1]];

> plot([[1,1],[2,1],[2,2],[1,2],[1,1]]);
s:=[[1,1],[2,1],[2,2],[1,2],[1,1]];
plot(s,style=point);

[Maple Math]

[Maple Plot]

[Maple Math]

[Maple Plot]

> s:=[[0,1],[1,-1],[-1,-1],[0,1]];
plot(s);

[Maple Math]

[Maple Plot]

> with(plots);
implicitplot(x^2+y^2-1,x=-1..1,y=-1..1);

[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]

[Maple Plot]

> implicitplot(tan(x)+cos(y)-1,x=-1..2,y=-5..5);

[Maple Plot]

> implicitplot3d(x^2+y^2+z^2-1,x=-1..1,y=-1..1,z=-1..1);

[Maple Plot]

> implicitplot3d(tan(x)+cos(y)+sin(z)-1,x=-2..2,y=-5..5,z=-4..2);

[Maple Plot]

> animate(x^t,x=1..5,t=0..3);

[Maple Plot]

> x;t;

[Maple Math]

[Maple Math]

> animate(sin(x+t),x=0..5,t=0..2*Pi);

[Maple Plot]

> animate3d(sin(x+t)+sin(y),x=0..5,y=0..5,t=0..2*Pi);

[Maple Plot]

> animate({seq(sin(x+i+t),i=1..3)},x=0..5,t=0..2*Pi);

[Maple Plot]

> multsin:=proc(n) animate({seq(sin(x+2*i*Pi/n+t),i=1..n)},x=0..5,t=0..2*Pi); end;

[Maple Math]

> multsin(3);

[Maple Plot]

> multsin(8);

[Maple Plot]

> multsin(15);

[Maple Plot]

> multcerc:=proc(li)
ens:=[];
for i from 1 to nops(li) do
ens:={op(ens),li[i]-sqrt('x'^2+'y'^2)};
od;
implicitplot(ens,'x'=-li[-1]..li[-1],'y'=-li[-1]..li[-1]);
end;

Warning, `ens` is implicitly declared local

Warning, `i` is implicitly declared local

[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]

> multcerc([1,3]);

[Maple Plot]

> multcerc3d:=proc(li)
ens:=[];
for i from 1 to nops(li) do
ens:={op(ens),li[i]-sqrt('x'^2+'y'^2+'z'^2)};
od;
implicitplot3d(ens,'x'=-li[-1]..li[-1],'y'=-li[-1]..li[-1],'z'=0..li[-1]);
end;

Warning, `ens` is implicitly declared local

Warning, `i` is implicitly declared local

[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]

> multcerc3d([1,2,5]);

[Maple Plot]

>

> plot([seq( (x^((n/2)-1)*exp(-(x/2)))/(GAMMA(n/2)*2^(n/2)) ,n=1..5)],x=0..10);

[Maple Plot]

>

>