Affichage de l\'expression d\'une fonction rationnelle

[Lionel Paillet]

Up

0

Down

::

\title{ Équation de la tangente }

\author{Lionel Paillet}

\email{ lpaillet@ac-limoges .fr}
\computeanswer{no}
\integer{a=randint(-1,1)}
\integer{a1=randint(1..2)*randint(-1,1)}
\integer{b=randint(1..5)*randint(-1,1)}
\integer{c=randint(1..8)*randint(-1,1)}
\integer{delta=1}
\while{\delta>=0}{
\integer{d=randint(1..8)*randint(-1,1)}
\integer{e=randint(1..8)*randint(-1,1)}
\integer{delta=(\d)^2-4*\e*\a1}
}
\function{num=\a*x^2+\b*x+\c}
\text{textnum=texmath(\num)}
\function{den=\a1*x^2+\d*x+\e}
\text{textden=texmath(\den)}
\function{f=(\num)/(\den)}
\text{textf=\frac{\textnum}{\textden}}
\integer{xa=randint(-5..5)}
\rational{ya=evalue(\f,x=\xa)}
\function{derf=pari(diff(\f,x))}
\rational{m=evalue(\derf,x=\xa)}
\rational{p=\ya-\m*\xa}
\steps{r1,r2
r3}

\statement{
\draw{601,601}{
xrange -6,6.01
yrange -6,6.01,
linewidth=1
parallel -6,-6,-6,6,1,0,13,green
parallel -6,-6,6,-6,0,1,13,green
linewidth=3
vline 0,0,black
hline 0,0,black
arrow 0,0,1,0,10,black
arrow 0,0,0,1,10,black
linewidth=2
plot blue,\f
plot red,\m*x+\p
linewidth=10
point \xa,\ya,black
}<br>
On donne la fonction \(f) définie sur \(\mathbb{R}) par \(f(x)=\textf)<br><br>
Sa représentation graphique \(C_f) est donnée ci-dessus.
Déterminer l’équation de la tangente à \(C_f) au point A de coordonnées(\(\xa);\(\ya))
représenté.
}

J’ai un problème avec l’affichage de la fonction dans le cas où un des coefficients b;c;d ou e est nul. La fonction s’affiche avec un 0x ou un +0.
Comment solutionner ce problème ?

Merci et cordialement.

Lionel Paillet.

[bernadette]

Up

0

Down

::

\function{den=simplify(\a1*x^2+\d*x+\e)}

Sinon, fais attention avec le while, (j’avais mis a1=0 et a=0 pour tester
et j’ai eu une boucle infinie !) Cela ne peut peut-être pas se produire, mais
je préfère quand même faire au plus 50 tests et si rien n’est trouvé, on donne
une solution.

Bernadette

[Auteur]

Messages