Subversion Repositories wimsdev

Rev

Rev 8321 | Rev 12676 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8321 Rev 8560
Line 19... Line 19...
19 
slib_liste = !values 1 for x=1 to $slib_m
 19 
slib_liste = !values 1 for x=1 to $slib_m
20 
slib_liste0=!values 0 for x=1 to $slib_n*($slib_n-1)/2 -$slib_m
 20 
slib_liste0=!values 0 for x=1 to $slib_n*($slib_n-1)/2 -$slib_m
21 
slib_liste =!shuffle $slib_liste,$slib_liste0
 21 
slib_liste =!shuffle $slib_liste,$slib_liste0
22 
slib_G= !exec pari slib_n =$slib_n;slib_ liste =[$slib_liste];\
 22 
slib_G= !exec pari slib_n =$slib_n;slib_ liste =[$slib_liste];\
23 
slib_M=matrix(slib_n,slib_n,slib_i,slib_j, if(slib_i < slib_j, slib_liste[slib_n*(slib_n-1)/2-(slib_n-slib_i+1)*(slib_n-slib_i)/2 +slib_j-slib_i]));\
 23 
slib_M=matrix(slib_n,slib_n,slib_i,slib_j, if(slib_i < slib_j, slib_liste[slib_n*(slib_n-1)/2-(slib_n-slib_i+1)*(slib_n-slib_i)/2 +slib_j-slib_i]));\
24 
matrix(slib_n,slib_n,slib_i,slib_j,  if(slib_i<slib_j,slib_M[slib_i,slib_j],slib_M[slib_j,slib_i]))
 24 
matrix(slib_n,slib_n,slib_i,slib_j, if(slib_i<slib_j,slib_M[slib_i,slib_j],slib_M[slib_j,slib_i]))
25 
 
 25 
 
26 
!!On rend le graphe connexe
 26 
!!On rend le graphe connexe
27 
slib_debut=1
 27 
slib_debut=1
28 
 
 28 
 
29 
:debut
 29 
:debut
Line 32... Line 32...
32 
slib_D=$slib_out
 32 
slib_D=$slib_out
33 
 
 33 
 
34 
!if -1 notin $slib_D
 34 
!if -1 notin $slib_D
35 
    !goto end
 35 
    !goto end
36 
!endif
 36 
!endif
37 
slib_D=!translate internal  ; to $\
 37 
slib_D=!translate internal ; to $\
38 
$  in $slib_D
 38 
$  in $slib_D
39 
!for slib_c=$slib_debut to $slib_n
 39 
!for slib_c=$slib_debut to $slib_n
40 
    slib_ligne=!line $slib_c of $slib_D
 40 
    slib_ligne=!line $slib_c of $slib_D
41 
    !if -1 isin $slib_ligne
 41 
    !if -1 isin $slib_ligne
42 
        slib_J=!positionof item -1 in $slib_ligne
 42 
        slib_J=!positionof item -1 in $slib_ligne