Forum TI-Planet.org

Texas Instruments diffuse sur son site un programme de démo pour son robot pilotable TI-Innovator Rover, pour calculatrices TI-83 Premium CE (ou TI-84 Plus CE) et TI-Nspire CX munies d'une interface TI-Innovator à insérer ici dans le robot.

Aux journées APMEP à Nantes et au congrès de l'UdPPC à Limoges, l'on pouvait tester ce programme avec une TI-83 Premium CE bleue fort bien assortie au TI-Innovator Rover.

Le programme comporte en fait 3 sous-programmes que l'on active alternativement en tapant ou .

Regardons aujourd'hui le sous-programme n°3 dont une version simplifiée est reproduite ci-dessous :

Code: Select all

{1041.74,928.09,1041.74,928.09,928.09,619.43,928.09,520.87}→L₁
{0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125}→L₂
{0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125}→L₃
{1041.74,1169.32,1238.85,1169.32,1238.85,1041.74,1169.32,1041.74,1169.32,928.09,1041.74,928.09,1041.74,826.83,1041.74}→L₄
{0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125}→L₅
{0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.625}→L₆
0.76→F
Send("CONNECT RV")
Send("SET RV FORWARD 2")
Send("SET RV BACKWARD 2")
Send("SET RV FORWARD 1")
Send("SET RV.COLOR 255 0 255")
For(I,1,3)
Send("SET RV.COLOR 102 255 102")
Send("SET RV LEFT 30")
Send("SET RV RIGHT 30")
Send("SET RV FORWARD 1")
Send("SET RV RIGHT 30")
Send("SET RV.COLOR 51 102 255")
For(A,1,dim(L₁))
  Send("SET SOUND TO eval(L₁(A)) eval(L₂(A)*F)")
  Wait L₂(A)*F+L₃(A)*F
End
Send("SET RV LEFT 180")
Send("SET RV.COLOR 255 0 255")
Send("SET RV LEFT 30")
Send("SET RV BACKWARD  1")
Send("SET RV LEFT 30")
Send("SET RV RIGHT 30")
Send("SET RV.COLOR 102 255 102")
For(A,1,dim(L₁))
  Send("SET SOUND TO eval(L₁(A)) eval(L₂(A)*F)")
  Wait L₂(A)*F+L₃(A)*F
End
Send("SET RV.COLOR 51 102 255")
Send("SET RV FORWARD 1")
Send("SET RV RIGHT 30")
Send("SET RV LEFT 30")
Send("SET RV RIGHT 30")
Send("SET RV LEFT 30")
For(A,1,dim(L₄))
  Send("SET SOUND TO eval(L₄(A)) eval(L₅(A)*F)")
  Wait L₅(A)*F+L₆(A)*F
End
Send("SET RV BACKWARD 1")
Send("SET RV.COLOR 102 255 102")
End
For(Q,1,2)
For(A,1,dim(L₁))
  Send("SET SOUND TO eval(L₁(A)) eval(L₂(A)*F)")
  Wait L₂(A)*F+L₃(A)*F
End
End
For(A,1,dim(L₄))
Send("SET SOUND TO eval(L₄(A)) eval(L₅(A)*F)")
Wait L₅(A)*F+L₆(A)*F
End
Send("SET RV LEFT 360)
Send("SET RV.COLOR 0 0 0")

Il s'agit en fait à la fois d'un programme de danse et de son et lumière, contenant plusieurs listes de fréquences et de durées, et déplaçant le robot tout en jouant ces sons sur le haut-parleur intégré au TI-Innovator et éclairant la diode RVB du robot sous différentes couleurs :


On peut toutefois regretter qu'avec l'interface TI-Innovator insérée dans le robot, les sons soient ici difficilement audibles sur un salon. En pratique, il faudra donc un public particulièrement calme et silencieux...