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