Bugs corriges dans la nouvelle version de domaine

[Levak]

Je peux faire un programme qui va scanner la chaîne.
Pour sqrt(abs(x)), il ressort x intact, c'est simple à faire!
Ensuite, je te laisse le x pour que tu lui appliques ce que tu veux non?

C'est pas sqrt(abs(x)) le problème si j'ai bien compris, mais abs(sqrt(x))

[maestroarte]

c'est la même chose, on peut faire un programme qui sort le x ...

[Levak]

c'est la même chose, on peut faire un programme qui sort le x ...

Donc je te donne abs(sqrt(x+1)) et tu sais plus comment faire =)

[maestroarte]

bon, ok je m'y met (c'est de la provocation )

[maestroarte]

Code: Select all


Define str()=
Prgm
:RequestStr "Expression: ",ex
:
:If mid(ex,1,3)="abs" Then
:az:=1
:While az≠dim(ex)+1
:a:=mid(ex,az,4)
:
:If a="sqrt" Then
:ai:=mid(ex,az+4,dim(ex)-az-4)
:Goto a
:EndIf
:az:=az+1
:EndWhile
:EndIf
:If mid(ex,1,4)="sqrt" Then
:az:=1
:While az≠dim(ex)+1
:a:=mid(ex,az,3)
:If a="abs" Then
:ai:=mid(ex,az+3,dim(ex)-az-3)
:Goto a
:EndIf
:az:=az+1
:EndWhile
:EndIf
:Lbl a
:Disp "x = ",expr(ai)
:
:
:EndPrgm


Voilà tu rentre ton expression qui commence soit par abs() soit par sqrt() et ça te sort l'expression E contenue dans le truc d'après... genre
abs(sqrt(E)) ---> E
sqrt(abs(E)) ---> E
On peut encore l'améliorer en "comptant" le nombre d'abs et être sur d'avoir le E final, bref, en tout cas tu réponds aux cas simples comme ça

[Lionel Debroux]

"aux cas simples", oui - c'est exactement ça

Mais pour faire les choses bien, c'est beaucoup plus compliqué:
* utilisation de part() - peut-être, si les fonctions de simplification ne mettent pas le bazar avant;
* programmation du CAS en code natif - là aussi, si les fonctions de simplification implicites ne mettent pas le bazar, et puis de toute façon, TI combat explicitement toutes les formes de programmation en code natif sur les machines de la famille Nspire, même celles qui ont, de façon évidente, un but éducatif;
* utilisation d'un AST et de pattern matching puis transformations dessus.

[critor]

Mais pour faire les choses bien, c'est beaucoup plus compliqué:
* utilisation de part() - peut-être, si les fonctions de simplification ne mettent pas le bazar avant;

Déjà vérifié.
Hélas, le 1er argument de part() est là encore automatiquement simplifié avant l'exécution de ce dernier.

[Bisam]

Je ne comprends pas le problème...
Sur ma calculette,

Code: Select all

abs(sqrt(x))

n'est pas "simplifié" en

Code: Select all

sqrt(abs(x))

et cela que le mode soit réglé sur Réel ou sur Rectangulaire. (J'ai bien l'OS 3.1.0.392, si vous en doutiez...)

En fait, c'est la mise au carré qui fait planter, dans ce cas... Donc c'est dans la mise au carré qu'il faut travailler quelque chose... et par conséquent, on peut intercepter le problème avec "part" et le contourner.

Par exemple, on peut commencer par :

Code: Select all

if part(f,0)="abs"
f:=part(f,1)

[Levak]

Je ne comprends pas le problème...
Sur ma calculette,

Code: Select all

abs(sqrt(x))

n'est pas "simplifié" en

Code: Select all

sqrt(abs(x))

et cela que le mode soit réglé sur Réel ou sur Rectangulaire. (J'ai bien l'OS 3.1.0.392, si vous en doutiez...)

J'ai également l'OS 3.1.0.392, sur CX CAS, et quand je lui donne abs(sqrt(x)) il affiche toujours abs(sqrt(x)) à gauche, mais le résultat donné est sqrt(abs(x)) avec un message d'avertissement "le domaine de définition a peut être changé"

[Bisam]

Ça, c'est fort... Un OS qui ne répond pas la même chose à tout le monde !

En tout cas, j'ai essayé de mettre mes lignes

Code: Select all

if part(f,0)="abs"
f:=part(f,1)

AVANT le

Code: Select all

setmode(4,1)

... et ça marche !!