Правильно построить цикл Repeat-Until

[Ягодка]

Добрый день, уважаемые форумчане!
В моей программе из массивов Kol, Gar, Rem вычитаются массивы m1 и m2, после этого действия получаются массивы Dm1 и Dm2. После того, как мы получили массивы Dm1 и Dm2, массивам In1 и In2 присваиваются нули и единицы, если выполняется условие "Dm1<Dm2". Ищется ошибка "Е1" - сумма квадратов массивов Dm1 и Dm2. Затем массивы m1 и m2 пересчитываются и снова вычитаются из массивов Kol, Gar, Rem и снова ищется ошибка "Е".
Самая первая ошибка "Е1" получается очень большой. А мне нужно, чтобы поиск новых значений массивов m1 и m2 и вычитание из массивов Kol, Gar, Rem массивов m1 и m2 продолжалось до тех пор, пока ошибка "Е" не станет меньше самой первой ошибки "Е1" в тысячу раз.
Т.е., при самом первом вычитании из массивов Kol, Gar, Rem массивов m1 и m2 мы получили ошибку "Е1"=272. Вычислили новые значения массивов m1 и m2, отняли эти значения из массивов Kol, Gar, Rem, посчитали массивы Dm1 и Dm2, присвоили массивам In1 и In2 нули и единицы, считаем ошибку "Е". Если не выполняется условие E<E1/1000, то мы снова ищем новые значения массивов m1 и m2, отнимаем, получаем массивы Dm1 и Dm2, присваиваем массивам In1 и In2 нули и единицы, считаем ошибку "Е", и так далее. Это я реализую через цикл Repeat-Until. У меня не получается правильно построить этот цикл, программа зависает (зацикливается). Я думаю, это потому что я вычитаю из массивов Kol, Gar, Rem не новые найденные значения массивов m1 и m2, а старые, полученные в самом начале программы с помощью поиска максимумов и минимумов... Пробовала в Repeat-Until переименовывать массивы m1 и m2 - всё равно зацикливается... В архиве прилагается весь проект, а текст программы не умещается, ограничение до 5000 символов

[alexander13]

Не, не то..

Upd.

E:=sqr(Dm1[i]+Dm2[i]);

Тогда в E будет сумма последних двух элементов массивов. Не понимаю, как вычисляется ошибка.

Upd. 2
Я к тому, что важно знать, ЧТО в массивах.. Мне кажется, что при определенных значениях Ваша "ошибка" может никогда не приблизиться к нулю, а, наоборот, бесконечно возрастать. Там же квадрат.. вот если бы был корень из суммы значений (а лучше из разности), то это было бы похоже на какую-то ошибку.. а так.. не понимаю..

[Ягодка]

alexander13, ошибка Е - это сумма квадратов массивов. Т.е. (Dm1[i])^2+(Dm2[i])^2. Это я получается ещё и ошибку неправильно вычисляю...

[alexander13]

Сообщение от Ягодка

alexander13, ошибка Е - это сумма квадратов массивов. Т.е. (Dm1[i])^2+(Dm2[i])^2. Это я получается ещё и ошибку неправильно вычисляю...

Само предложение неправильное. Как Вы определяете "квадрат массива"? Это может быть "квадрат суммы элементов массивов" или "сумма квадратов элементов массивов".. но не "сумма квадратов массивов".
А по какому методу вычисляется ошибка? Вот если бы там была сумма квадратов элементов,а потом корень из всего..

Не могу сказать точно, что нужно исправить в программе, т.к. нет возможности запустить код...

Upd.
(Dm1[i])^2+(Dm2[i])^2 - это сумма квадратов i-х элементов массива.

Upd. 2
Кстати, у Вас

E:=sqr(Dm1[i]+Dm2[i]);

что никак не равно (Dm1[i])^2+(Dm2[i])^2, если вспомнить школьную математику.
Если вы хотите найти сумму квадратов всех элементов двух массивов, то как-нибудь так это должно быть:

E:=E+Dm1[i]*Dm1[i]+Dm2[i]*Dm2[i];

Естественно, надо следить, чтобы перед началом цикла E равнялось нулю.

[Ягодка]

alexander13, спасибо за помощь, поиск ошибки я исправлю, но вот дипл.рук-ль сказала, что именно сумма, а не разность... Может она перепутала...

[alexander13]

Сообщение от Ягодка

alexander13, спасибо за помощь, поиск ошибки я исправлю, но вот дипл.рук-ль сказала, что именно сумма, а не разность... Может она перепутала...

Может и сумма, я просто хочу узнать, что это за метод вычисления ошибки) Или это просто называется "ошибкой", а на самом деле ей не является?
В общем, обратите внимание на вычисление E.
Я вечером гляну прогу и, если к тому времени еще не разберетесь, отпишусь.

Upd.
А исходный текст задания имеется?

[Ягодка]

alexander13, вся эта байда называется "Алгоритм кластеризации k-means (к-средних)", там просто ёлки-палки-лес густой)) Нахождение суммы квадратов я исправила, но это не подействовало, всё равно зацикливается... Большое Вам спасибо =)

[alexander13]

Сообщение от Ягодка

alexander13, вся эта байда называется "Алгоритм кластеризации k-means (к-средних)", там просто ёлки-палки-лес густой))

Понятно. Но насчет ошибки - все равно непонятно... Я что-то не помню, чтобы в k-means ошибка так вычислялась..
Попробуйте последить за переменной E и посмотреть, какие там вообще значения.

Upd.
На 99% уверен, что ошибка в способе нахождения ошибки.

Upd. 2
Потестил программу.
В общем, я только сильнее убедился в том, что проблема в способе вычисления ошибки. Что-то тут не так, таким образом ошибки не вычисляются. Возможно, Вы неправильно поняли преподавателя.

[Ягодка]

alexander13, могу отскринить лист с заданием, где преподаватель своей рукой написала мне формулу вычисления ошибки)) Может, запарилась к концу рабочего дня и действительно ошиблась, в "свободных источниках" ошибка ищется как
Е= (Dm1[i])^2 - (Dm2[i])^2, т.е. именно вычитание. Сделала так в программе-не помогло всё равно(

[alexander13]

Сообщение от Ягодка

alexander13 ошибка ищется как
Е= (Dm1[i])^2 - (Dm2[i])^2, т.е. именно вычитание.

Вот! А я о чем.. теперь надо смотреть дальше, вполне могут быть и другие неточности в коде. Опять же, не раньше вечера смогу посмотреть. Вы скиньте какой-нибудь набор входных данных что ли.. А-то без них тяжело тестить.
Кстати, а корня там не должно быть? В ошибке-то? =)

Upd.
Листы с заданием тоже давайте, лишним не будет.