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 | $ |
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 |
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 |
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 | $ |
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 |