Rev 17168 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
17003 | bpr | 1 | !reset slib_xyz slib_ff |
2 | !!calcul de slib_ff et slib_xyz |
||
3 | slib_t=1 |
||
4 | slib_tmp=!line $slib_t of $slib_pol |
||
5 | !while # isin $slib_tmp |
||
6 | !advance slib_t |
||
7 | slib_tmp=!line $slib_t of $slib_pol |
||
8 | !endwhile |
||
9 | slib_sfa=!line $slib_t of $slib_pol |
||
17168 | bpr | 10 | slib_sfa=!items2words $slib_sfa |
11 | |||
17003 | bpr | 12 | slib_somcnt=!word 1 of $slib_sfa |
13 | slib_facecnt=!word 2 of $slib_sfa |
||
14 | slib_sfa=!wordstoitems $slib_sfa |
||
15 | slib_xyz_=!line $[1+$slib_t] to $slib_somcnt+$slib_t of $slib_pol |
||
16 | |||
17 | !for slib_j=1 to $slib_somcnt |
||
18 | slib_tmp=!row $slib_j of $slib_xyz_ |
||
19 | slib_tmp=!words2items $slib_tmp |
||
20 | slib_xyz=!append semicolon $slib_tmp to $slib_xyz |
||
21 | !next |
||
22 | |||
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 |
||
25 | slib_tmp=!row $slib_j of $slib_ff_ |
||
26 | slib_tmp=!words2items $slib_tmp |
||
17214 | bpr | 27 | slib_ff=!append item [$(slib_tmp[1..$(slib_tmp[1])+1])] to $slib_ff |
17003 | bpr | 28 | !next |
29 | |||
30 | !if $slib_header_patron= |
||
31 | !readproc gp/spanning_tree.gp |
||
32 | slib_pr=!exec pari $slib_header_patron |
||
33 | !endif |
||
34 | slib_pr=!exec pari xyz=[$slib_xyz];ff=[$slib_ff] |