T06-AUTOMATA: SLOGO

El siguiente autómata acepta la cadena a(ab)*c:



Código utilizado en el intérprete del profe para la prueba:

c none! b ,3! C 50@70,20!
c none! b,3! P M70,70 C70,70 100,30 135,65!
c black!
P M125,45 L135,65 L120,70!
90@47,a!

c black! C 150@70,20!
c none! b,3! P M168,70 C170,70 200,30 235,60!
c black!
P M225,40 L235,60 L220,65!
190@47,c!
c none! b ,3! C 250@70,20!
cblack! C  150@150,20!
c none! b,3! P M140,75 C140,75 115,125 145,155!
c black!
P M140,125 L135,140 L125,130!
115@115,a!

c none! b,3! P M165,155 C165,155 180,120 165,80!
c black!
P M180,90 L165,80 L160,95!
175@115,b!

Para a(ab)*c:

TEXTO ::= a AB c (epsilon) // nota no supe poner el simbolo
// de Epsilon(fin de cadena)
AB := AB ab