Subversion Repositories wimsdev

Rev

Rev 4351 | Rev 8560 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4351 Rev 7692
Line 35... Line 35...
35
!next slib_j
35
!next slib_j
36
 slib_cor = ($slib_S), ($slib_pi)
36
 slib_cor = ($slib_S), ($slib_pi)
37
 slib_pi = !nonempty items $slib_pi
37
 slib_pi = !nonempty items $slib_pi
38
 
38
 
39
!for slib_i = 1 to $slib_n
39
!for slib_i = 1 to $slib_n
40
  !if $slib_i != $slib_s 
40
  !if $slib_i != $slib_s
41
# 1. On trouve un sommet satisfaisant
41
# 1. On trouve un sommet satisfaisant
42
    !distribute items $[($slib_bp+1)*$slib_n],0,0 into slib_x,slib_y,slib_z
42
    !distribute items $[($slib_bp+1)*$slib_n],0,0 into slib_x,slib_y,slib_z
43
    !for slib_j = 1 to $slib_n
43
    !for slib_j = 1 to $slib_n
44
       slib_u = !item $slib_j of $slib_pi
44
       slib_u = !item $slib_j of $slib_pi
45
       !if $slib_u notsametext \infty
45
       !if $slib_u notsametext \infty
Line 56... Line 56...
56
    !if $slib_y != 0
56
    !if $slib_y != 0
57
        slib_sommet = $slib_y
57
        slib_sommet = $slib_y
58
    !else
58
    !else
59
        slib_sommet = $slib_z
59
        slib_sommet = $slib_z
60
    !endif
60
    !endif
61
 
61
 
62
    slib_S = $slib_S,$slib_sommet
62
    slib_S = $slib_S,$slib_sommet
63
# 2. On modifie le vecteur pi
63
# 2. On modifie le vecteur pi
64
   !for slib_j = 1 to $slib_n
64
   !for slib_j = 1 to $slib_n
65
    !if $slib_j != $slib_s
65
    !if $slib_j != $slib_s
66
     slib_u = !item $slib_j of $slib_pi
66
     slib_u = !item $slib_j of $slib_pi
Line 71... Line 71...
71
     !if $slib_v notsametext \infty
71
     !if $slib_v notsametext \infty
72
        !if $slib_u notsametext \infty
72
        !if $slib_u notsametext \infty
73
          slib_x = $[min($slib_u,$[$slib_v+$slib_w])]
73
          slib_x = $[min($slib_u,$[$slib_v+$slib_w])]
74
          !if ($slib_w != 0) and ($slib_j notitemof $slib_S)
74
          !if ($slib_w != 0) and ($slib_j notitemof $slib_S)
75
            slib_y = 1
75
            slib_y = 1
76
            !if $slib_x = $[$slib_v+$slib_w] 
76
            !if $slib_x = $[$slib_v+$slib_w]
77
              slib_precedent =  !replace item number $slib_j by $slib_sommet in $slib_precedent
77
              slib_precedent = !replace item number $slib_j by $slib_sommet in $slib_precedent
78
            !endif
78
            !endif
79
          !endif       
79
          !endif
80
        !else
80
        !else
81
          slib_x = $[$slib_v+$slib_w]
81
          slib_x = $[$slib_v+$slib_w]
82
          !if ($slib_w != 0) and ($slib_j notitemof $slib_S)
82
          !if ($slib_w != 0) and ($slib_j notitemof $slib_S)
83
            slib_y = 1
83
            slib_y = 1
84
            slib_precedent =  !replace item number $slib_j by $slib_sommet in $slib_precedent
84
            slib_precedent =  !replace item number $slib_j by $slib_sommet in $slib_precedent