()
Prgm
If getConfg()[10]=160 Then
Dialog
Title "Changez de version !"
Text "Veuillez utiliser la version de":Text "fonction pour TI-89 avec votre TI-89."
EndDlog
Stop
EndIf
If getType(main\flib)?"ASM" Then
Dialog
Title "ATTENTION"
Text "":Text "Vous devez avoir le programme flib":Text "placé dans le répertoire main, pour":Text "utiliser Fonction !!!":Text ""
EndDlog

top:EndIf:Try
getFold()»main\fold: Else:EndTry
Try
NewFold aaa
Else
EndTry
Define aaa\tsolve(eq,var,mini,maxi)=Prgm
Local aa,bb,cc,dd,cond,di,mini2,maxi2,rac,soluce,soluce1,soluce2,test
If string(var)?"x":eq|var=x»eq
If mini=ª¸ or maxi=¸ Then

isp "Choisissez un intervalle restreint pour","une fonction trigonométrique !!!":Pause :1»bornes:Return :EndIf
Try
solve(eq=0,x)|xžmini and xœmaxi»soluce1:solve(getDenom(eq)=0,x)|x>mini and x<maxi»soluce2
If inString(string(soluce1),"@n")=0 Then:expÐlist(soluce1,x)»list:If inString(string(soluce2),"@n")=0 Then:augment(list,expÐlist(soluce1,x))»list:Goto aff:EndIf
EndIf
expÐlist(soluce1,x)»soluce
augment(soluce,expÐlist(soluce2,x))»soluce
dim(soluce)»di:{}»list
For aa,1,di
mid(string(soluce[aa]),inString(string(soluce[aa]),"@n"),5)»cond
{false,false}»test
ETc.....
Alors j'aurais du mal?
merci