Démo TI-Rover n°3 : danse - vidéo APMEP Nantes 2017

→ **MyCalcs** profile · by **critor** » 04 Nov 2017, 12:10

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...

Téléchargements :

Crédits audio : https://www.nonstop2k.com