<<Vilcretas`

GrafoString["Bienvenidos"]

arbolito =ArbolBinarioBusqueda["no esperes nunca va a ser el momento adecuado"]
?Postfijo
Postfijo[arbolito, "no"]
Altura[arbolito, "no"]

grafo=Grafo[{{1,3},{1,6},{1,7},{1,12},{2,7},{2,9},{2,11},{2,12},{3,9},{3,10},{4,7},{4,10},{5,9},{6,7},{6,10},{7,10},{8,9},{9,10},{9,11},{9,12}},pesos->-1 {14,6,14,12,6,13,2,2,4,17,16,19,8,18,20,11,11,18,1,6},mostrarpesos->True]

AlDijkstra[grafo,6,8]

aristas={{a,b},{a,c},{a,e},{b,c},{b,d},{b,e},{c,d},{c,e},{d,d},{c,c},{d,e}};
pes={7,5,2,8,3,14,6,2,6,4,2};

graf =Grafo[aristas, pesos->pes, mostrarpesos->True]
MPGrafo[graf, {a,b,c,d,e}]

arist ={{1,2},{1,4},{1,5},{1,7},{1,8},{1,10},{2,3},{2,4},{2,5},{2,6},{2,7},{2,8},{2,9},{3,5},{3,7},{3,10},{4,5},{4,8},{4,10},{5,6},{5,8},{5,10},{6,8},{6,10},{7,9},{8,9},{8,10},{9,10}};

gra=Grafo[arist, dirigido->True]

\[Placeholder]

Valencias[gra]

arbol =ArbolBinarioBusqueda[{96,24,65,97,87,84,66,94,44,33,9,36,17,67,11}]

Postfijo[arbol, 96]

Interfijo[arbol, 96]

KnmCircuitoHamiltonQ[500,500]

?KnmCircuitoHamiltonQ

arbolq=GrafoBipartitoCompleto[10,5]

ArbolJQ[arbolq]

grafo3=Grafo[{{a,b},{a,c},{b,c},{b,d},{c,d},{c,e},{c,h},{d,e},{d,f},{e,f},{e,h},{f,g},{f,h},{g,h}},pesos->{3,2,4,2,3,2,6,5,6,4,5,5,5,4},mostrarpesos->True];

CircuitoEulerQ[grafo3]

RutaEulerQ[grafo3]

CircuitoHamiltonQ[grafo3]

RutaHamiltonQ[grafo3]

RutaEuler[grafo3]

ResaltarRuta[grafo3, {{b,a},{a,c},{c,d},{d,e},{e,c},{c,h},{h,e},{e,f},{f,g},{g,h},{h,f},{f,d},{d,b},{b,c}}]

AnimarGrafo[grafo3, {{b,a},{a,c},{c,d},{d,e},{e,c},{c,h},{h,e},{e,f},{f,g},{g,h},{h,f},{f,d},{d,b},{b,c}}]

?Prim

?Kruskal

Prim[grafo3]

Kruskal[grafo3]