Exercices 2 - Déterminer les éventuelles asymptotes des fonctions suivantes

q=0;
q+=1;
f[x_,q]:=Sqrt[x-2]-Sqrt[x+3];
Print[q,".  f(x) = ",f[x,q]];

q+=1;
f[x_,q]:=Sqrt[4x^2-4x-8]-2x;
Print[q,".  f(x) = ",f[x,q]];

q+=1;
f[x_,q]:=(2x^2+5x+2)/(x+3);
Print[q,".  f(x) = ",f[x,q]];

q+=1;
f[x_,q]:=(1-2x)/(2x^2+x-1);
Print[q,".  f(x) = ",f[x,q]];

q+=1;
f[x_,q]:=(x^3-x)/(x^2+2x+1);
Print[q,".  f(x) = ",f[x,q]];

q+=1;
f[x_,q]:=(2x^2-5x-3)/(3-x);
Print[q,".  f(x) = ",f[x,q]];

q+=1;
f[x_,q]:=(2x+3)/(x^2+3x+2);
Print[q,".  f(x) = ",f[x,q]];

q+=1;
f[x_,q]:=(3x^2+2x-1)/(x^2-x-2);
Print[q,".  f(x) = ",f[x,q]];


q+=1;
f[x_,q]:=(x^2+2x-3)/(2x^2+3x-9);
Print[q,".  f(x) = ",f[x,q]];


q+=1;
f[x_,q]:=(x^2+x-2)/(x-x^3);
Print[q,".  f(x) = ",f[x,q]];

q+=1;
f[x_,q]:=(2x^2-3x-2)/(2-x);
Print[q,".  f(x) = ",f[x,q]];

q+=1;
f[x_,q]:=Sqrt[x^2+x-12]-Sqrt[x^2-3x-10];
Print[q,".  f(x) = ",f[x,q]];

q+=1;
f[x_,q]:=(Sqrt[3x+1]-Sqrt[2x+6])/(x-5);
Print[q,".  f(x) = ",f[x,q]];

q=0;
q+=1;

Print[q,".  Dom f = ",Domaine[f[x,q],x]];
AV[f[x,q],x];
AO[f[x,q],x];

q+=1;
Print[q,".  Dom f = ",Domaine[f[x,q],x]];
AV[f[x,q],x];
AO[f[x,q],x];


q+=1;
Print[q,".  Dom f = ",Domaine[f[x,q],x]];
AV[f[x,q],x];
AO[f[x,q],x];


q+=1;
Print[q,".  Dom f = ",Domaine[f[x,q],x]];
AV[f[x,q],x];
AO[f[x,q],x];


q+=1;
Print[q,".  Dom f = ",Domaine[f[x,q],x]];
AV[f[x,q],x];
AO[f[x,q],x];


q+=1;
Print[q,".  Dom f = ",Domaine[f[x,q],x]];
AV[f[x,q],x];
AO[f[x,q],x];


q+=1;
Print[q,".  Dom f = ",Domaine[f[x,q],x]];
AV[f[x,q],x];
AO[f[x,q],x];


q+=1;
Print[q,".  Dom f = ",Domaine[f[x,q],x]];
AV[f[x,q],x];
AO[f[x,q],x];


q+=1;
Print[q,".  Dom f = ",Domaine[f[x,q],x]];
AV[f[x,q],x];
AO[f[x,q],x];

q+=1;
Print[q,".  Dom f = ",Domaine[f[x,q],x]];
AV[f[x,q],x];
AO[f[x,q],x];

q+=1;
Print[q,".  Dom f = ",Domaine[f[x,q],x]];
AV[f[x,q],x];
AO[f[x,q],x];

q+=1;
Print[q,".  Dom f = ",Domaine[f[x,q],x]];
AV[f[x,q],x];
AO[f[x,q],x];

q+=1;
Print[q,".  Dom f = ",Domaine[f[x,q],x]];
AV[f[x,q],x];
AO[f[x,q],x];