Funktionen von zwei Veränderlichen
> restart;
Beispiel 1:
> z1:= x*(x^2 + y^2)/(x-y);
> plot3d(z1,
x = 2..5, y = 1.7..1.9,
style = polygonoutline,
orientation = [129, 58]);
style = polygonoutline,
orientation = [129, 58]);
Beispiel 2:
> z2:= sin(x) + sin(y);
> plot3d(z2,
x = -1.5*Pi..1.5*Pi,
y = -1.5*Pi..1.5*Pi,
font = [COURIER, 12],
axes = boxed);
y = -1.5*Pi..1.5*Pi,
font = [COURIER, 12],
axes = boxed);
Beispiel 3:
> with(plots):
Warning, the name changecoords has been redefined
> f(x,y):= x^3 - y^3;
> implicitplot(f(x,y)= x + y,
x = -2..2,
y = -3..3,
numpoints = 2000,
font = [COURIER, 12],
thickness = 2);
y = -3..3,
numpoints = 2000,
font = [COURIER, 12],
thickness = 2);
Beispiel 4:
> gl:= sqrt(a*x^2 + b*y^2) = exp(k*(x + y)): gl;
> gl1:= subs({a = 2, b = 1, k = 1/3}, gl):
mplicitplot(gl1, x = -4..8, y = -10..10,
thickness = 2,
font = [COURIER, 12],
color = blue);
thickness = 2,
font = [COURIER, 12],
color = blue);
> Bildfolge:= [ ]:
for k from 0.23 to 0.35 by 0.005 do
Bild:= implicitplot(subs({a = 2, b = 1}, gl),
x = -4..4,
y = -1..10,
thickness = 2,
color = red,
axesfont = [COURIER, 12],
labels = ["", ""],
numpoints = 500):
Bildfolge:= [op(Bildfolge), Bild]:
od:
display(Bildfolge, insequence = true);
Bild:= implicitplot(subs({a = 2, b = 1}, gl),
x = -4..4,
y = -1..10,
thickness = 2,
color = red,
axesfont = [COURIER, 12],
labels = ["", ""],
numpoints = 500):
Bildfolge:= [op(Bildfolge), Bild]:
od:
display(Bildfolge, insequence = true);