Good evening, I am learning how to use wxMaxima so I am trying to solve some exercises, but the answers given and the ones that I think they should be are different in two of them. Would you be so kind as to help me?
Graph G has 15 vertex, u & v are adjacent if remainder(abs(i-j),3)=0 How many closed paths with a length <= 6 which begin at the first vertex are?
The answer given is 3255 but i get 1092. This is my code:
load(graphs); Bool_2(u,v):= if remainder(abs(i-j),3)=0 then true else false$ Grafo_1: make_graph(15,Bool_2);
Matriz: adjacency_matrix(Grafo_1)$ cont:0; for j:1 thru 6 do cont:cont+(Matriz^^j)[1,1]; cont;
cont is like a counter, it is supposed to increase by every path it finds.