Advanced Search

Question: Please help me DFS Code

Question:Please help me DFS Code

chuong2a 26 Maple
graph format
May 29 2010
1

Please help me DFS Code. Where am I wrong? Thank you.

 

DFS := proc(G::Graph, v1)

local i, n, v2, A, V; 

n := NumberOfVertices(G);

A := AdjacencyMatrix(G);

V := [ seq( 0, i = 1..n) ];  V[v1] := 1;

for v2 from 1 to n do

    if A[v1][v2] != 0 and V[v2] != 0 then

        print( v1, v2);  DFS(G, v2);

    end if;

end do;

end proc;
Please Wait...