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 10... Line 10...
10
 
10
 
11
:proc
11
:proc
12
 
12
 
13
slib_G= $wims_read_parm
13
slib_G= $wims_read_parm
14
slib_G=!declosing $slib_G
14
slib_G=!declosing $slib_G
15
slib_G=!translate internal  $\
15
slib_G=!translate internal $\
16
$   to ; in $slib_G
16
$ to ; in $slib_G
17
 
17
 
18
slib_n=!exec pari slib_N=Mat([$slib_G]);matsize(slib_N)[1]
18
slib_n=!exec pari slib_N=Mat([$slib_G]);matsize(slib_N)[1]
19
 
19
 
20
slib_G= !exec pari  slib_N=Mat([$slib_G]); matrix($slib_n,$slib_n,i,j, max(slib_N[i,j],slib_N[j,i]))
20
slib_G= !exec pari slib_N=Mat([$slib_G]); matrix($slib_n,$slib_n,i,j, max(slib_N[i,j],slib_N[j,i]))
21
 
21
 
22
slib_cnt=0
22
slib_cnt=0
23
slib_liste=
23
slib_liste=
24
slib_matrix=
24
slib_matrix=
25
slib_out=
25
slib_out=
26
!for slib_i=1 to $slib_n
26
!for slib_i=1 to $slib_n
27
    !if $slib_i notitemof $slib_liste
27
    !if $slib_i notitemof $slib_liste
28
        !readproc slib/graph/connexcomponent [$slib_G],$slib_i
28
        !readproc slib/graph/connexcomponent [$slib_G],$slib_i
29
        slib_liste=!append item $slib_out to $slib_liste
29
        slib_liste=!append item $slib_out to $slib_liste
30
        !advance slib_cnt
30
        !advance slib_cnt
31
        slib_matrix=!append line  $slib_out to $slib_matrix
31
        slib_matrix=!append line $slib_out to $slib_matrix
32
        slib_out=
32
        slib_out=
33
    !endif
33
    !endif
34
!next slib_i
34
!next slib_i
35
 
35
 
36
slib_matrix=!translate internal $\
36
slib_matrix=!translate internal $\
37
$   to ; in $slib_matrix
37
$ to ; in $slib_matrix
38
 
38
 
39
slib_out= $slib_cnt,[$slib_matrix]
39
slib_out= $slib_cnt,[$slib_matrix]
40
 
40
 
41
 
41