Apprendre Maple

[yoan123]

J'ai un gros souci,et j'aimerais avoir un gros coup de main...En effet j'ai un projet(dont la date arrive bientot à expiration...) et je n'arrive pas à trouver des procédures qui:

determinent des chemins les plus courts,plus longs,plus fiables,plus grandes capacités.
et pour chacune de ces procédures, elles doivent prendre en entrée une matrice d'adjacence A de taille n et fournir en sortie une matrice de fermeture B correspondante.

En espérant qu'une généreuse personne pourra m'aider-que dis-je me sauver!!-
Merci d'avance...

[ALS]

Je ne suis pas spécialiste, aussi allez peut-être dans les moteurs de recherche en tapant le mot-clé "matrice de fermeture"
Cette page contient des renseignements qui pourront vous aider je pense:

http://www-igm.univ-mlv.fr/~perrin/Enseignement/X/X98/pc8/pc8Java/pc8Java.html

A plus tard.

[yoan123]

Je vous remercie de m'avoir répondu,et il est vrai qu'il y a de nombreux renseignements utiles,mais cependant ils sont dans un autre langage,je m'en suis inspiré ainsi qu'avec d'autres exemples et j'en ai "pondu" quelques procédures,mais bon je n'arrive pas à les tester (peut-être sont-elles fausses...) et j'aimerais avoir un avis:

fermeture transitive:

[yoan123]

[quote="ALS"]Sans me prononcer sur la justesse des algorithmes utilisés, je corrige la syntaxe de vos 2 procédures (on peut aussi remplacer integer par posint (entier >0) )
Mettre i,j,k en variables locales.


[code]
>with(linalg):

>fermtrans := proc(m::matrix, n::integer)
>local i, j, k, t;
> t := m;
> for i to n do for j to n do
> if t[j, i] = 1 then for k to n do
> if t[i, k] = 1 then t[j, k] := 1 end if;
> end do;
> end if;
> end do;
> end do;
> evalm(t)
end proc;

> A:=matrix([[1,1,0,1],[0,0,1,0],[1,1,1,0],[0,0,0,1]]);

[1 1 0 1]
[ ]
[0 0 1 0]
A := [ ]
[1 1 1 0]
[ ]
[0 0 0 1]

> fermtrans(A,4);

[1 1 1 1]
[ ]
[1 1 1 1]
[ ]
[1 1 1 1]
[ ]
[0 0 0 1]

> Courtchemin:= proc(m::matrix, n::integer )
> local d,i,j,k;
> d:=m;
> for i from 1 to n do
> for j from 1 to n do
> if d[j,i] < infinity then
> for k from 1 to n do
> if d[j,k]>d[j,i]+d[i,k] then
> d[j,k]:=d[j,i]+d[i,k];
> fi;
> od;
> fi;
> od;
> od;
> evalm(d)
> end;


> Courtchemin(A,4);

[1 1 1 1]
[ ]
[1 1 1 1]
[ ]
[1 1 1 1]
[ ]
[0 0 0 1]
[/code][/quote]

Je ne fait donc que sans cesse vous remercier,car gràce à vos précieux renseignements,j'ai pu finir mes procédures sur les chemins...Donc je vous témoigne de ma reconnaissance et longue vie au site!