nom=Andr, Bruno, Carole,Dominique,Emilie, Franois, Gaspard, Henri, Jean, Karim,Luc,Monique,Nomi,Odile,Patricia,Quentin,Raphal,Sophie,Thomas,Ursule, 
Valrie,William, Xavier,Yves, Zo

G=!exec pari matrix(0,0)
!for i in $N
	!read slib/graph/randomconnex $i
	G1=$slib_out
	!read slib/matrix/concate [$G],[$G1]
	G = $slib_out
!next i	 
p = !shuffle $n

G=!exec pari G=Mat([$G]); p=[$p]; matrix($n,$n,i,j,G[p[i],p[j]])

G=!trim $G
GM=!translate internal ; to $\
$ in $G
GM=!nonempty lines $GM
 !for i = 1 to $n 
 	Nom$i= !item $i of $nom
 !endif
dem= <table align="center" border =1 bgcolor= "navajowhite"><tr align="center">
!for i=1 to $n
	r= !item $i of $nom
	dem=$dem <th> $r</th>
!next i
dem=$dem </tr><tr align="center">
!for i=1 to $n	
	dem= !append line <td> to $dem
	U=!line $i of $GM
	H=!positionof item 1  in $U
	!if $H=$empty
	dem= $dem  &nbsp;</td> 
	!else
		!for j in $H
			nom2=!item $j of $nom
			dem= $dem  $nom2 <br>
		!next j
		dem= $dem </td> 
	!endif
!next i

dem=!append line </tr></table> to $dem

etp=0
GC=!exec pari M=matrix($n,$n,i,j,0);print(M)
D=$G
GCM=!translate internal ; to $\
$ in $GC
DM=!translate internal ; to $\
$ in $D
