Rev 13587 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 13587 | Rev 14860 | ||
---|---|---|---|
Line 12... | Line 12... | ||
12 | 12 | ||
13 | !distribute item $wims_read_parm into slib_A,slib_s,slib_t |
13 | !distribute item $wims_read_parm into slib_A,slib_s,slib_t |
14 | slib_A=!declosing $slib_A |
14 | slib_A=!declosing $slib_A |
15 | slib_A=!lines2rows $slib_A |
15 | slib_A=!lines2rows $slib_A |
16 | 16 | ||
17 |
|
17 | Directed Acyclic Graph |
18 | 18 | ||
19 |
|
19 | slib_res=!exec pari (allpaths(M,a,b)={my(n=#M,res=[],res1);if(a==b,res=[[a]],for(i=1,n,if(M[a,i],res1=allpaths(M,i,b);for(j=1,#res1,res=concat(res,[concat(a,res1[j])]))))); res});A=[$slib_A]; allpaths(A,$slib_s,$slib_t) |
20 | 20 | ||
21 | slib_rescnt=!itemcnt $slib_res |
21 | slib_rescnt=!itemcnt $slib_res |
22 | !for slib_ch=1 to $slib_rescnt |
22 | !for slib_ch=1 to $slib_rescnt |
23 | slib_chh=!declosing $(slib_res[$slib_ch]) |
23 | slib_chh=!declosing $(slib_res[$slib_ch]) |
24 | slib_out=!append line $slib_chh to $slib_out |
24 | slib_out=!append line $slib_chh to $slib_out |