% BC para trabalho pratico % Parte I rotunda(r1,'Mouzinho de Albuquerque', [v2], [v3,v4,v5],50). rotunda(r2,'Senhora-a-Branca', [v6,v7], [v7,v8,v9,v17],50). rotunda(r3,'Joao XXI', [v10,v11,v12,v13], [v11,v12,v13],50). rotunda(r4,'Sao Joao', [v11,v14], [v11,v14],50). rotunda(r5,'Cruz Vermelha', [v13,v15,v16], [v6,v13,v15,v16],50). /* via( código, nome, n_de_sentidos, lista_origens1, destino1, lista_entram1, lista_saem1, lista_origens2, destino2, lista_entram2, lista_saem2, comprimento). */ via( v1,'Rua dos Chaos', 1, [v17], v2, [], [], [], 0, [], [], 150). via( v2,'Rua St. Andre', 1, [v1], r1, [], [], [], 0, [], [], 150). via( v3,'Rua do Albergue', 1, [r1], 0, [], [], [], 0, [], [], 100). via( v4,'Rua de Guadalupe', 1, [r1], v18, [], [], [], 0, [], [], 100). via( v5,'Rua de S. Goncalo', 2, [r1], v17, [], [], [], 0, [], [], 150). via( v6,'Av 31 de Janeiro Norte', 1, [r5], r2, [v19, v20], [v20], [], 0, [], [], 200). via( v7,'Rua de St. Margarida', 2, [r2], 0, [], [], [0], r2, [], [], 250). via( v8,'Rua de S. Vitor', 1, [r2], v21, [v22], [v22, v23, v24], [], 0, [], [], 250). via( v9,'Rua do Raio', 1, [r2], v10, [], [], [], 0, [], [], 200). via( v10,'Av. Liberdade Norte', 1, [v17], r3, [v9], [v19], [], 0, [], [], 400). via( v11,'Av. Liberdade Sul', 2, [r3], r4, [], [], [r4], r3, [], [], 300). via( v12,'Av. Imaculada Conceicao', 2, [r3], 0, [], [], [0], r3, [], [], 200). via( v13,'Av. Joao XXI Oeste', 2, [r3], r5, [], [], [r5], r3, [], [], 200). via( v14,'Rua dos Barbosas', 2, [r4], v16, [], [], [v16], r4, [], [], 250). via( v15,'Av. Joao XXI Este', 2, [r5], 0, [], [], [0], r5, [v24], [v25], 500). via( v16,'Av. 31 de Janeiro Sul', 2, [r5], v14, [], [], [v14], r5, [], [], 300). via( v17,'Av. Central', 1, [r2], v1, [v5,v18], [v10], [], 0, [], [], 300). via( v18,'Rua do Sardoal', 1, [0], v17, [v4], [], [], 0, [], [], 150). via( v19,'Rua 25 de Abril', 1, [v10], v6, [], [], [], 0, [], [], 250). via( v20,'Rua Beato Miguel de Carvalho', 2, [v6], v24, [v25,v22], [v22] , [v24], v6, [v25,v22], [v22], 200). via( v21,'Rua D. Pedro V', 1, [v8], 0, [], [], [], 0, [], [], 100). via( v22,'Rua Restauracao Norte', 2, [v20], v8, [], [], [v8], v20, [], [], 100). via( v23,'Rua S. Domingos', 1, [v8], 0, [], [], [], 0, [], [], 100). via( v24,'Rua Morais Sarmento', 1, [v8], v15, [v20], [v20], [], 0, [], [], 150). via( v25,'Rua da Restauracao Sul', 1, [v15], v20, [], [], [], 0, [], [], 100).