Structure d'une expression

[Levak]

In recursivity we trust.

[Bisam]

À vrai dire, on peut le faire en une ligne, mais c'est vachement moins lisible...

Code: Select all

struct(ex):=when(part(ex,0)="+",augment(struct(part(ex,1)),struct(part(ex,2))),when(part(ex,0)="-",augment(struct(part(ex,1)),-struct(part(ex,2))),{ex}))

[AnToX98]

Oula c'est là qu'on voit de l'optmisation
Moi, en utilisant part, j'aurais fais au moins 20 lignes

[NspireCas]

Ne vous moquez pas de moi, mais je ne sais pas comment utiliser cette fonction dans un programme...
Stocker par exemple dans une liste les valeurs de {ex} .
Merci

[AnToX98]

Le programme de dérivées de Philippe Fortin (En catégorie maths TI-nspire, c'est le programme le plus téléchargé), utilise une fonction dans ce genre.

[NspireCas]

Oups, j'ai mal posé la question .
Cette fonction est évidemment très utile, mais comment l'utiliser dans mon programme qui analyserait chaque élément de l'expression.
Il faudrait en fait que je stocke la liste de la structure dans une variable, mais je n'y arrive pas .

[AnToX98]

Mais, le programme ne crée-t-il pas automatiquement une liste ? Je crois que le nom de variable de la liste c'est struct

[Bisam]

Ta question n'est toujours pas compréhensible, Nspirecas.
Que veux-tu faire exactement ? Dans quel cas ? Dans quel but final ?

Sache que la "structure" d'une expression est par essence plutôt quelque chose de récursif et donc difficilement stockable dans une liste... à moins d'utiliser la notation postfixe.

[NspireCas]

J'ai trouvé la solution pour stocker la liste de la structure.
J'ai fait :

Code: Select all

a={}
For i,1,dim(struct(ex))
a[i]=struct(ex)[i]
EndFor

La variable a contient alors la liste.
J'avais une idée de programme qui avait besoin de chaque terme d'une expression, mais séparément, et j'aurais utilisé la liste a.
Pour info, le programme existait déjà je l'ai abandonné ; mais je pense que la structure me servira sûrement un de ses jours .

[Bisam]

Bon sang, tu ne pouvais pas faire pire encore ???

Il suffit de faire

Code: Select all

a:=struct(ex)