Subversion Repositories wimsdev

Rev

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 
 Directed Acyclic Graph
 17 
Directed Acyclic Graph
18 
 
 18 
 
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)
 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