with(plots):
mespoints := pointplot({[-3, -4/3], [4, 1]}, symbol = circle):
marelation := implicitplot(x^3*y^2-3*x^2*y^3 = 16, x = -6 .. 6, y = -6 .. 6, numpoints = 5000, scaling = constrained, color = blue):
mestangentes := plot({-10/9+(2/27)*x, (3/2)*x-5}, x = -6 .. 6, y = -6 .. 6, color = red):
display(mespoints, marelation, mestangentes);

monpoint := pointplot({[1, 1]}, symbol = circle);
fonction := plot({x^2+2*x-3}, x = -5 .. 3, y = -5 .. 7, color = blue);
display(fonction, monpoint);

r := sin(t)*sqrt(abs(cos(t)))/(sin(t)+7/5)-2*sin(t)+2
plot([r, t, t = -Pi .. Pi], numpoints = 10000, coords = polar)

coeur.zip

Résoudre des équations différentielles dans Maple :

ode:=d^2/dx y(x)=2y(x)+1
dsolve(ode)
ics:=y(0)=1,D(y)(0)=0
dsolve({ode,ics})

with(inttrans):
ode1:=diff(y(t),t,t)+4*y(t)=cos(t);
Lap1:=laplace(ode1,t,s);
solve(Lp1,Y(s)): Y(s):=%;
soln1:=invlaplace(Y(s),s,t);

with(Student[LinearAlgebra]):
infolevel[Student[LinearAlgebra]]:=1:
PlanePlot(-3x+2y+z=-3,[x,y,z],normaloptions=[shape=harpoon])

with(plots);
spacecurve([t, t^2, (1/2)*t^3], t = -5 .. 5, axes = boxed, thickness = 2);

i := vector([1, 0, 0]); j := vector([0, 1, 0]); k := vector([0, 0, 1]);
r := cos(t)*sin(t)*i+sin(t)^2*j+cos(t)*k;
spacecurve(evalm(r(t)), t = 0 .. 2*Pi, color = red, axes = NORMAL);

pointplot3d(<[8, 6, -7], [10, 8, -5], [15, 13, 0]>, color = [red, black, blue], axes = normal, symbol = box)

point(A, [8, 6, -7]);
point(B, [10, 8, -5]);
distance(A, B)

• m13qrc_mac.pdf
• m13qrc_win.pdf

Lien externe