Rev 17168 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 17168 | Rev 17214 | ||
---|---|---|---|
Line 22... | Line 22... | ||
22 | 22 | ||
23 | slib_ff_=!line $[1+$slib_t+$slib_somcnt] to $[$slib_t+1+$slib_somcnt+$slib_facecnt] of $slib_pol |
23 | slib_ff_=!line $[1+$slib_t+$slib_somcnt] to $[$slib_t+1+$slib_somcnt+$slib_facecnt] of $slib_pol |
24 | !for slib_j=1 to $slib_facecnt |
24 | !for slib_j=1 to $slib_facecnt |
25 | slib_tmp=!row $slib_j of $slib_ff_ |
25 | slib_tmp=!row $slib_j of $slib_ff_ |
26 | slib_tmp=!words2items $slib_tmp |
26 | slib_tmp=!words2items $slib_tmp |
27 | slib_ff=!append item [ |
27 | slib_ff=!append item [$(slib_tmp[1..$(slib_tmp[1])+1])] to $slib_ff |
28 | !next |
28 | !next |
29 | 29 | ||
30 | !if $slib_header_patron= |
30 | !if $slib_header_patron= |
31 | !readproc gp/spanning_tree.gp |
31 | !readproc gp/spanning_tree.gp |
32 | slib_pr=!exec pari $slib_header_patron |
32 | slib_pr=!exec pari $slib_header_patron |