SALIDA.SAL

J. Rafael R. Ochoa
LOGARITMO BASE 2 DE UN NUMERO


;********************** LOGARITMO BASE 2  ***************************
(SETQ FUNCION_DE_TRANSICION '(
	     ((Q0 0) (2 R Q1))
	     ((Q0 3) (R L Q4))
	     
	     ((Q1 0) (0 R Q1))
	     ((Q1 1) (1 L Q2))
	     ((Q1 3) (3 L Q2))
	     ((Q1 R) (R L Q2))
	     
	     ((Q2 0) (3 L Q3))
	     
	     ((Q3 0) (0 L Q3))
	     ((Q3 2) (2 R Q0))

	     ((Q4 2) (0 L Q4))
	     ((Q4 B) (B R Q0))
	     
))
(SETQ ENTRADA '(0 0 0 0 0 0 0 0 1))
(SETQ ESTADO_INICIAL Q0)
(SETQ POSICION_INICIAL_CINTA 0)
(SETQ SIMBOLOS '(0 1 B 2) )