Déterminer le domaine de définition des fonctions suivantes

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

q+=1;
f[x_,q]:=Sqrt[1-3x];
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^2-5x-6)/((x-1)(5-x^2))];
Print[q,".  f(x) = ",f[x,q]];

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

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

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

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

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

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

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


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


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

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

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

Solutions

q=0;
q+=1;

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

q+=1;

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

q+=1;

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

q+=1;

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

q+=1;

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

q+=1;

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

q+=1;

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

q+=1;

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

q+=1;

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

q+=1;

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

q+=1;

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

q+=1;

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

q+=1;

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

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

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