Scrambler pour calculatrice

[Emilien]

Bonsoir !

Comme l'indique le titre j'ai réalisé un scrambler sur calculatrice.
Bon il est écrit pour TI mais c'est facilement adaptable pour une Casio !
Il y a un petit 'bug' dessus, par exemple F2 peut être suivit de F' ou de F, donc l'idéal
se serait de mettre 30/35 mouvements pour être sur d'avoir un bon scramble.
L'écriture du programme est très répétitive mais si on s'arme de patience il n'y a pas de soucis.
Tout les conditions d'un M<0 sont des mouvements inverses. Bien qu'il y ait de la couleur
je préfère le signaler !
Par exemple, pour la première condition, si M=-9 on a F' en affichage

Le programme :

Spoiler :

Input "Moves?",D
Lbl 1
For(I,1,D)
randInt(-9,9) -> M
If M=0
Goto 1
If E=M
Goto 1
If E=-M
Goto 1
If M=-9
Then
Disp "R'"
End
If M=9
Then
Disp "R"
End
If M=-8
Then
Disp "L'"
End
If M=8
Then
Disp "L"
End
If M=-7
Then
Disp "U'"
End
If M=7
Then
Disp "U"
End
If M=-6
Then
Disp "D'"
End
If M=6
Then
Disp "D"
End
If M=-5
Then
Disp "B'"
End
If M=5
Then
Disp "B"
End
If M=-4
Then
Disp "F'"
End
If M=4
Then
Disp "F"
End
If M=-3
Then
Disp "R2"
End
If M=3
Then
Disp "L2"
End
If M=-2
Then
Disp "U2"
End
If M=2
Then
Disp "D2"
End
If M=-1
Then
Disp "B2"
End
If M=1
Then
Disp "F2"
End
Pause
M->E
End

[oranjules]

le fait que ce soit des Disp, ca va tout te mettre en colonne et ca marchera pas. Mais ya plus simple : tu tires un nombre entre 0 et 18, son reste modulo 3 ca te donne le signe (0 = rien, 1 = ', 2 = 2) et la division par 3 te donne le mouvement. Du coup, tu peux dire "si la division par 3 est la meme qu'avant, on retire un autre nombre", ca te vire les F F' (par contre il reste les F B F mais ca c'est plus chiant a faire)

[Emilien]

Normalement tu peux pas te manger de F, F'. C'est pour ça que j'ai mis des opposés et l'incrémentation de M dans E à la fin du programme !
Mais F2 suivit de F' ou de F est toujours possible ! C'est hard !

[SqAtx]

Il vient de t'expliquer comment les éviter ._.

[Emilien]

Aaaaaaah oui ! Autant pour moi =_= ! J'avais pas fais gaffe ! Merci beaucoup ! :O

[raphael]

J'avais fait un programme dans le même genre qui était couplé a un chronomètre mais je me suis vite rendu à l'évidence que c'était peu pratique...

[guduleg]

J'avais fait un programme dans le même genre qui était couplé a un chronomètre mais je me suis vite rendu à l'évidence que c'était peu pratique...

Ben ca peut toujours servir aux gens qui s'ennuient en cours

@Emilien: t'as modifié ton programme depuis les conseils d'oranjules?

[Arnaud.S]

J'avais fais un programme de scramble en TI-basic, en essayant de virer les trucs impossibles mais ça marchait pas trop

http://forum.francocube.com/topic1195-1 ... me#p171786

[LeCubeurDu06]

Moi le mien il gère ces problèmes. J'ai deux chaînes de caractère et il tire au pif dans chacune une par une. Du coup, pas de R suivi de L par exemple mais le résultat est moins aléatoire

[Emilien]

J'ai pas mal bossé dessus ces derniers jours. J'ai utilisé la méthode de Jules, c'est vachement bien !
Le problème c'est que la structure de l'algo' est pas mal désordonnée et l'affichage aussi. Je vais
voir pour régler ça cet aprem' et je le post demain matin

[plpdu57]

Mmmh juste comme ça. C'est quoi comme TI ?

[Hippolyte!!!]

Texas Instrument, une marque de calculatrice (entre autres).

EDIT: erreur, my bad.

[Emilien]

C'est une TI83+. L'algo' est vraiment "simple", ya pas de fonctions compliquées dedans. Tu peux largement le faire sur une Casio35+

[plpdu57]

OK j'ai la même. J'essaye ce soir de faire le programme à mon tour et je vous envoie le résultat demain. C'est toujours marrant de comparer les façons de faire.

[plpdu57]

C'est bon j'ai fini. J'ai fait ça vaguement avec la méthode d'Oranjules et j'ai réglé en prime ton problème d'affichage en utilisant OUTPUT à la place de DISP :

Spoiler :

Effecran
Disp : ''nombre de mvts''
Imput Z
Effecran
1->C
1->D
0->X

For(Y,1,Z)

Lbl 1
EntAleat(1,6)->A
If X=A
Then
Goto1
End

If A=1
Then
Output(C,D,''R'')
End
If A=2
Then
Output(C,D,''L'')
End
If A=3
Then
Output(C,D,''U'')
End
If A=4
Then
Output(C,D,''D'')
End
If A=5
Then
Output(C,D,''F'')
End
If A=1
Then
Output(C,D,''B'')
End

PrgmSCRAM2

A->X
End


Et maintenant le contenu du sous programme SCRAM2 :

EntAléat(1,3)->B

D+1->D
If D=17
Then
1->D
C+1->C
End
If C=9
Then
Pause
EffEcran
1->C
1->D
1->B
End

If B=1
Then
Return
End

If B=2
Then
Output(C,D,'' ' '')
End

If B=3
Then
Output(C,D,''2'')
End

D+1->D
If D=17
Then
1->D
C+1->C
End
If C=9
Then
Pause
EffEcran
1->C
1->D
1->B
End

Return

Voilà. Tout ce qui est en rouge c'est ce qui concerne l'affichage avec Output qui est spécifique à cette calculatrice donc c'est pas le plus important.