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