Déterminer les éventuelles asymptotes des fonctions suivantes

q=0;
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]:=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]:=Abs[x-1]x/(x^2-1);
Print[q,".  f(x) = ",f[x,q]];


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

Solutions

n=10;
Do[
Print[q,".  Dom f = ",Domaine[f[x,q],x]];
AV[f[x,q],x];
AO[f[x,q],x],{q,n}];