!!!! fichier de donnees sur la fonction 5 !!!!
!! coefficients pour fabriquer (x^2-a)^(3/2) !!
a=!randint 1,19
m=!randint 1,5

f=!exec maxima (x^2-($a))^(3/2);
derf=!exec maxima diff($f,x,1);

1recipf=-sqrt(x^(2/3)+($a))
2recipf=sqrt(x^(2/3)+($a))
y=($m)^3
1derrecipfy=ev($derf,x=-sqrt($a+(($m)^2)))
2derrecipfy=ev($derf,x=sqrt($a+(($m)^2)))
imborng=0

!! execution en chaine de maxima puis distribution des resultats !!

dataList=!exec maxima $1recipf;\
$2recipf;\
$y;\
$1derrecipfy;\
$2derrecipfy; 
!distribute lines $dataList into 1recipf,2recipf,y,1derrecipfy,2derrecipfy

!! forme pour affichage de f(x) !!
pf=(x^2-$a)^{3/2}

!! les intervalles de monotonie et leurs images !!
!!! intervalles de monotonie !!!
delimg1=2
borng1=-infinity
pborng1=-\infty
bornd1=!exec maxima -sqrt($a);
pbornd1=!texmath $bornd1
delimd1=2
I1=\left$crocd $pborng1,$pbornd1\right$crocd

delimg2=1
borng2=!exec maxima sqrt($a);
pborng2=!texmath $borng2
bornd2=+infinity
pbornd2=+\infty
delimd2=1
I2=\left$crocg $pborng2,$pbornd2\right$crocg
!!! images de I1 et I2 !!!
imdelimg1=1
imborng1=$imborng
pimborng1=$imborng1
imbornd1=+infinity
pimbornd1=+\infty
imdelimd1=1
imI1=\left$crocg $pimborng1, $pimbornd1\right$crocg

imdelimg2=1
imborng2=$imborng
pimborng2=$imborng2
imbornd2=+infinity
pimbornd2=+\infty
imdelimd2=1
imI2=\left$crocg $pimborng2, $pimbornd2\right$crocg
