π
<-
Chat plein-écran
[^]

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

:32ti73: :32ti73e: :32ti73e2: :32ti76f: :32ti80: :32ti81: :32ti82: :32ti85: :32ti86: :32ti82s: :32ti82sf: :32ti82sfn: :32ti83: :32ti83p: :32ti83pb: :32ti83pr: :32ti83pfr: :32ti83pse: :32ti84p: :32ti84pse: :32ti84ppse: :32ti84pfr: :32ti84pcse: :32ti83pfrusb: :32ti82p: :32ti82a: :32ti84pce: :32ti83pce:

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

Unread postby critor » 04 Nov 2017, 12:10

896089717284
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 :ns1: :ns2: ou :ns3: .

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
Image
User avatar
critorAdmin.
Niveau 19: CU (Créateur Universel)
Niveau 19: CU (Créateur Universel)
Level up: 0.1%
 
Posts: 34179
Images: 8851
Joined: 25 Oct 2008, 00:00
Location: Montpellier
Gender: Male
Calculator(s):
Class: Lycée
YouTube: critor3000
Twitter: critor2000
Facebook: critor.ti

Return to News TI-z80 (TI-73, 76, 80, 81, 82, 83, 84, 85, 86)

Who is online

Users browsing this forum: No registered users and 8 guests

-
Search
-
Featured topics
Omega, le fork étendant les capacités de ta NumWorks, même en mode examen !
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Concours TI-Planet-Casio de rentrée 2019. 3 défis pour plus d'une 15aine de calculatrices graphiques et nombre de goodies sortant de l'ordinaire ! :D
123
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...

Discover the the advantages of a donor account !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partner and ad
Notre partenaire Jarrety 
-
Stats.
519 utilisateurs:
>487 invités
>26 membres
>6 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Other interesting websites
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)