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

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

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

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

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

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

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

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

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


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


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

q+=1;
f[x_,q]:=Sqrt[x+5]+x;
Print[q,".  f(x) = ",f[x,q]];

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

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

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

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

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


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

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


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

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

Solutions

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];

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];