Subversion Repositories wimsdev

Rev

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

Rev 8560 Rev 12676
Line 30... Line 30...
30 
 
 30 
 
31 
!read slib/graph/distance [$slib_G]
 31 
!read slib/graph/distance [$slib_G]
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
43 
        !for slib_JJ in $slib_J
 43 
    !for slib_JJ in $slib_J
44 
            slib_G=!exec pari slib_N=Mat([$slib_G]);slib_N[$slib_c,$slib_JJ]=1;slib_N[$slib_JJ,$slib_c]=1;slib_N
 44 
      slib_G=!exec pari slib_N=Mat([$slib_G]);slib_N[$slib_c,$slib_JJ]=1;slib_N[$slib_JJ,$slib_c]=1;slib_N
45 
        !next slib_JJ
 45 
    !next slib_JJ
46 
        slib_debut=$[$slib_c+1]
 46 
    slib_debut=$[$slib_c+1]
47 
        !goto debut
 47 
    !goto debut
48 
    !endif
 48 
  !endif
49 
!next slib_c
 49 
!next slib_c
50 
 
 50 
 
51 
:end
 51 
:end
52 
 
 52 
 
53 
slib_out=$slib_G
 53 
slib_out=$slib_G
54 
 
 -