Occurence TI-89 Titanium

[Phileas]

Bonsoir à tous,
J'aurais besoin d'un peu d'aide pour ma calculatrice TI-89 Titanium, en gros j'ai une série statistiques, cette derniere représente 41 notes allant de 3 à 16, et j'aimerais avoir le nombre de fois ou une valeur est apparue (L'occurence), je connais la formule à entrer pour les TI-83 qui est seq(sum(L1=x,x,3,16,1)) [sum(expr,var,low,high,pas] mais elle ne fonctionne pas sur la TI-89, j'ai testé beaucoup de choses mais je suis vraiment bloqué.

Phil,
Merci d'avance !

[Bisam]

Avec ceci, ça devrait marcher :

Code: Tout sélectionner

seq(sum(seq(when(liste[i]=x,1,0),i,​1,dim(liste)),x,3,16,1)) -> occur(liste)

Je verrai plus tard si on peut faire mieux.

[Phileas]

Ok, je teste cela tout de suite, merci !

[Phileas]

[APRES TEST]
Donc, j'ai rentré dans la cellule c3

seq(sum(when(c1=x,1,0),i,1),x,3,16,1)

Et je reçois le message d'erreur Domain Error

Je tiens a préciser que lorsque je rentre la formule
seq(sum(seq(when(L1[i]=x,1,0),i,​1,41),x,3,16,1))
Je reçois le message d'erreur, "Too Many Arguments" au niveau du 41 (ma 89 est en anglais, d'ailleurs, je ne sais pas si cela change quelque chose, si ce n'est que je n'ai pas ecrit "Liste 1" mais C1 pour Column )

[Bisam]

Petite erreur de parenthésage dans ce que j'avais écrit précédemment et sur le chat.
Il faut en fait écrire :

Code: Tout sélectionner

seq(sum(seq(when(liste[i]=x,1,0),i,1,dim(liste))),x,3,16) -> occur(liste)

[Phileas]

Bonsoir Bisam, c'est fantastique, ça marche tout comme il faut ! je te remercie grandement de ton aide, ça m'a donné envie d'approfondir mes connaissances sur la calculatrice, étant déja mordu par le java (Oui c'est moche mais bon) et commençant tout juste le C++.
On va se mettre au Xcas maintenant !

Bonne soirée !
Phil

[Bisam]

Ici, ça marche bien parce que les valeurs de "x" sont faciles...
D'ailleurs, on peut même considérablement améliorer l'algorithme quadratique précédent en un algorithme linéaire en se servant du fait que les valeurs sont connues et entières.

Il suffit d'écrire :

Code: Tout sélectionner

Define occur(liste, valmax)=Func
local rep,n,i
dim(liste)->n
newlist(valmax)->rep
for i,1,n
    rep[liste[i]]+1->rep[liste[i]]
return(rep)
EndFunc

Cela renvoie la liste des occurrences de la liste "liste" dont les valeurs prises sont des entiers de 1 à "valmax".