Somme théosofique - Page 1

Salut. J'ai un petit probleme... Est-ce que quelqu'un peu m'expliquer coomment programmer une fonction qui calcule pour tout nombre superieur à 9 sa somme théosofique (ex:51=5+1=6) ?? Et puis dans la foulée j'aimerais pouvoir faire un programme qui décompose un mot (à savoir un nom ou un prenom) en une suites de chiffres (autant que de lettres) correspondant aux valeurs assigné à l'avance aux differentes lettres et utilisant la fonction ci-dessus pour en calculer la somme theosofique... ? Si quelqu'un peu m'expliquer les commandes à utiliser je l'en remercie d'avance.

P.S. Je programme sur TI-89 (enfin j'essaye)

T'aurais pu chercher un peu...

0->r
while n>0
r+mod(n,10)»r
intdiv(n,10)»n endwhile

Il suffit de récuperer le chiffre des unités et d'additionner chaque fois dans un accumulateur. Pour l'autre truc j'ai rien capté. Tu peux utiliser seq(ord(mid(s,i,1)),i,1,dim(s)) pour convertir ta chaine en liste de nombre, puis appliquer une transformation à cette liste et utiliser l'autre fonction.

si g bien suivit sa deuxième partis, Vertyos=2+2(v=22)+5(e=5)+1+8(r=18)+2(t=20)+2+5(y=25)+1+5(o=15)+1+9(s=19)=39=3+9=12=1+2=3

Ou peut-être que g rien compris aussi

Tu as bien compris MacIntoc, sauf que les valeurs seront différentes, en fait les valeurs sont les suivantes :
1 -> A,J,S
2 -> B,K,T
3 -> C,L,U
4 -> ... etc

Sinon merci Vertyos, même si j'ai po tout compris...

Cette somme se calcule en une ligne: mod(x,9). Si on retrouve 0, la somme vaut en fait 9. Donc si on veut vraiment être lourds: when(mod(x,9)=0 and x/=0,9,mod(x,9)).

ok merci kevin, mon problemme de fonction est reglé, c bien cool, maintenant il me reste à comprendre comment scinder un nom en somme de lettres, puis en somme de valeurs définies (A,J,S=1;B,K,T=2, etc)

Bilo666
: ok merci kevin, mon problemme de fonction est reglé,

Mais tu as intérêt à démontrer que le résultat est bien celui-ci. (Étudie la suite n|->somme des chiffres de n et montre qu'elle converge vers mod(n,9), ou vers 9 si mod(n,9)=0.)

c bien cool, maintenant il me reste à comprendre comment scinder un nom en somme de lettres, puis en somme de valeurs définies (A,J,S=1;B,K,T=2, etc)

Regarde la fonction mid dans ton manuel.

Oula, soyez po trop violents avec moi, j'ai passé mon Bac S mention rattrapage y a deux ans, et depuis je suis dans la musique donc j'ai du mal à m'y remettre...

C encore moi, si quelqu'un pouvait me "corriger" le code ci-dessous, ça bug un peu et je trouve po l'erreur...

decomp()
Prgm
Local rf,p,x,r
1->x
0->rf
Dialog
Title "PORTRAIT NUMEROLOGIQUE" //Eh oui, tout ça pour ça . . .
Text "Calcul de votre nombre hereditaire"
Request "Votre nom :",n
EndDlog
Loop
mid(n,x,x)->p
If p="A" or p="J" or p="S" Then
1->r
ElseIf p="B" or p="K" or p="T" Then
2->r
//etc jusqu'à 9
Else
Exit
EndIf
rf+r->rf
x+1->x
EndLoop
string(rf)->rf
Dialog
Text "Votre nombre hereditaire est le " & rf & "."
EndDlog

EndPrgm


Le prog fonctionne mais il "scotche" sur la premiere valeur de rf, j'ai l'impression que le loop ne fonctionne po comme je voudrais...
help !!!!

mid(n,x,x) est faux, c'est mid(n,x,1).
Et j'espère que tu n'as pas l'intention d'utiliser sérieusement ce programme. La numérologie est de quoi s'amuser un peu pour un mathématicien qui s'ennuie, rien de plus. Y-en a marre des "experts" qui apparaissent à la télévision en disant le contraire (c'est-à-dire qui prétendent que ce soit une manière sérieuse pour prédire le futur de quelqu'un) pour devenir connus ou pour se faire du fric.

C plus le programme que je trouve interessant à faire, le reste je m'en fou

Kevin Kofler :
Et j'espère que tu n'as pas l'intention d'utiliser sérieusement ce programme. La numérologie est de quoi s'amuser un peu pour un mathématicien qui s'ennuie, rien de plus. Y-en a marre des "experts" qui apparaissent à la télévision en disant le contraire (c'est-à-dire qui prétendent que ce soit une manière sérieuse pour prédire le futur de quelqu'un) pour devenir connus ou pour se faire du fric.

Dis, dis, Kevin, tu fais exprès?

Tu pourrais aussi militer pour supprimer des archives de ticalc.org tous les jeux de hasard, parce que c'est une incitation à la débauche et au jeu