Tinkertrons: Göra artificiella neuroner för robotar (6 / 9 steg)
Steg 6: Master nervceller för robotar
Master Neuron kod
Den faktiska koden av en master neuron beror på robot som kontrolleras. Min första verkliga världen använder använder tinkertrons för att styra en air muskel robot controller. För detaljer om hur man gör registeransvarige, se här:
Här är koden som används i master neuron av luft muskel robot controller som styr två aktivare nervceller:
"20 m 2 master neuron
B1 = 1
Pausa 100
serout c.0,t4800,(1,11) ' öppet intag
Pausa 40
serout c.0,t4800,(1,11) ' öppet intag
Pausa 40
serout c.1,t2400,(170,9,$0C,127) ' m1 24-127, 84-2/3 klockhastigheten
Pausa 100
loop1:
låga c.7
"debug b1
IRIN [1000,loop1],b.5, b6
om b6 = 0 då send1 "Knapp1 = 0
om b6 = 1 då send2
om b6 = 2 sedan send3
om b6 = 3 då send4
om b6 = 4 då send5
om b6 = 5 sedan send6
om b6 = 6 sedan send7
om b6 = 7 sedan send8
om b6 = 8 då send9
om b6 = 9 sedan send10
om b6 = 59 så send11 ' (-)
om b6 = 11 sedan send12 "Ange
om b6 = 14 då send13 ' guide
om b6 = 21 sedan send14 "power
om b6 = 16 så send16 ' ch +
om b6 = 17 sedan send17 "ch -
om b6 = 116 sedan send116 "tillbaka
om b6 = 117 så send117 ' meddelandeprofil
om b6 = 52 sedan send52 "vänster
om b6 = 51 så send51 ' rätt
om b6 = 18 så seq1 ' arm ner
om b6 = 19 sedan seq1rev "omvänd arm ner
gå till loop1
send1:
' serout c.0,t4800,(1,13) ' guide
"pausa 40
serout c.0,t4800,(1,1) ' Skicka 1 byte med 1, som qualifier
Pausa 40
gå till loop1
send2:
serout c.0,t4800,(1,2)
Pausa 40
gå till loop1
send3:
serout c.0,t4800,(1,3)
Pausa 40
gå till loop1
send4:
serout c.0,t4800,(1,4)
Pausa 40
gå till loop1
send5:
serout c.0,t4800,(1,5)
Pausa 40
gå till loop1
send6:
serout c.0,t4800,(1,6)
Pausa 40
gå till loop1
send7:
serout c.0,t4800,(1,7)
Pausa 40
gå till loop1
send8:
serout c.0,t4800,(1,8)
Pausa 40
gå till loop1
send9:
serout c.0,t4800,(1,9)
Pausa 40
gå till loop1
send10:
serout c.0,t4800,(1,10)
Pausa 40
gå till loop1
send11: "(-)
serout c.0,t4800,(1,11)
Pausa 40
gå till loop1
send12: "Ange
serout c.0,t4800,(1,12)
Pausa 40
gå till loop1
send13: ' guide
serout c.0,t4800,(1,13)
Pausa 40
gå till loop1
send14: "power skicka 21
serout c.0,t4800,(1,21) ' Skicka 21
Pausa 40
gå till loop1
send16: '
serout c.0,t4800,(1,16)
Pausa 40
gå till loop1
send17: '
serout c.0,t4800,(1,17)
Pausa 40
gå till loop1
send116: '
serout c.0,t4800,(1,116)
Pausa 40
gå till loop1
send117: '
serout c.0,t4800,(1,117)
Pausa 40
gå till loop1
send52: '
serout c.0,t4800,(1,52)
Pausa 40
gå till loop1
send51: '
serout c.0,t4800,(1,51)
Pausa 40
gå till loop1
seq1: '
serout c.0,t4800,(1,18)
Pausa 40
gå till loop1
seq1rev: '
serout c.0,t4800,(1,19)
Pausa 40
gå till loop1