Subversion Repositories wimsdev

Rev

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]