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 = |
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 |