0 // XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX Если число повторений поля 30 больше, чем поля 24, лишние нужно удалить из 24 // XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX Удаояются повторения поля 24, которые не являются результатом вычисления ни из какого повторения 30 поля ADD 1111 XXXXXXXXXXXXXXXXXXX '1' XXXXXXXXXXXXXXXXXXX // XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX Счетчик по повторениям 30 поля REPEAT XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX ADD 2222 XXXXXXXXXXXXXXXXXXX &uf('AV30#'v1111) XXXXXXXXXXXXXXXXXXX ADD 3333 XXXXXXXXXXXXXXXXXXX '1' XXXXXXXXXXXXXXXXXXX // XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX Счетчик по повторениям 24 поля REPEAT XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX ADD 4444 XXXXXXXXXXXXXXXXXXX &uf('AV24#'v3333) XXXXXXXXXXXXXXXXXXX // XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX Здесь анализируем, можно ли вычислить 4444 из 2222 по принятому алгоритму DEL 24 F (if p(v24) then if v4444*3:&uf(|+961*0.|&uf(|+95|v4444*3)|#|v2222) and v24=v4444 then '1' else '0' fi fi/) XXXXXXXXXXXXXXXXXXX REP 3333 1 &unifor('+X=#'v3333) XXXXXXXXXXXXXXXXXXX DEL 4444 * XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX UNTIL if val(v3333)<=rsum((if p(v24) then '1;' else '0;' fi)) then '1' else '0' fi XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX DEL 3333 * XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX DEL 2222 * XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX REP 1111 1 &unifor('+X=#'v1111) XXXXXXXXXXXXXXXXXXX UNTIL if val(v1111)<=rsum((if p(v30) then '1;' else '0;' fi)) then '1' else '0' fi XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX DEL 1111 * XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX