1 w[0] ? x
2 for j from 1 to n do
3 w[j] ? 2Św[j -1]
4 i f w[j] = 1/2 then
5 w[j] ? w[j] -d
6 qj ? 1
7 else
8 i f w[j] < -1/2 then
9 w[j] ? w[j] +d
10 qj ?- -1
11 else
12 qj ? 0