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

[alexander13]

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

Цикл Repeat-Until при этом остаётся?

Да, конечно. У Вас же все делается в цикле, и ошибка там вычисляется, и центроиды. Просто в случае, когда у Вас новый центроид и предыдущий совпадут, программа выйдет из цикла repeat..until и продолжит выполнение.

То, что я написал, это все внутри цикла. Если с учетом кода, что Вам исправил преподаватель, то как-то так:

Repeat

{ ... }

x1 := m1[1];  y1 := m1[2];  z1 := m1[3];
x2 := m2[1];  y2 := m2[2];  z2 := m2[3];


for i:=1 to 10 do begin
sumIn1:=sumIn1+In1[i];
sumIn2:=sumIn2+In2[i];
end;

for i:=1 to 10 do begin
sumKol1:=sumKol1+(Kol[i]*In1[i]);
sumGar1:=sumGar1+(Gar[i]*In1[i]);
sumRem1:=sumRem1+(Rem[i]*In1[i]);
sumKol2:=sumKol2+(Kol[i]*In2[i]);
sumGar2:=sumGar2+(Gar[i]*In2[i]);
sumRem2:=sumRem2+(Rem[i]*In2[i]);
end;

for i:=1 to 3 do begin
m1[1]:=sumKol1/sumIn1;
m1[2]:=sumGar1/sumIn1;
m1[3]:=sumRem1/sumIn1;
m2[1]:=sumKol2/sumIn2;
m2[2]:=sumGar2/sumIn2;
m2[3]:=sumRem2/sumIn2;
end;

if (x1-m1[1] = 0) and (y1-m1[2]=0) and (z1-m1[3]=0)
    and (x2-m2[1] = 0) and (y2-m2[2]=0) and (z2-m2[3]=0) then
  break;

Until {...}

[Ягодка]

alexander13, пребольшое спасибо, всё получилось =)

[alexander13]

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

alexander13, пребольшое спасибо, всё получилось =)

Да не за что, обращайтесь.

[Ягодка]

Хмм... а я сделала

Until (x1-m1[1] = 0) and (y1-m1[2]=0) and (z1-m1[3]=0)
    and (x2-m2[1] = 0) and (y2-m2[2]=0) and (z2-m2[3]=0);

Не писать же в Until снова E<E1/1000

[Ягодка]

Вот полный текст:

Repeat
sumKol1:=0;
sumGar1:=0;
sumRem1:=0;
sumIn1:=0;
sumKol2:=0;
sumGar2:=0;
sumRem2:=0;
sumIn2:=0;
E:=0;

x1 := m1[1];  y1 := m1[2];  z1 := m1[3];
x2 := m2[1];  y2 := m2[2];  z2 := m2[3];

for i:=1 to 10 do begin
sumIn1:=sumIn1+In1[i];
sumIn2:=sumIn2+In2[i];
end;

for i:=1 to 10 do begin
sumKol1:=sumKol1+(Kol[i]*In1[i]);
sumGar1:=sumGar1+(Gar[i]*In1[i]);
sumRem1:=sumRem1+(Rem[i]*In1[i]);
sumKol2:=sumKol2+(Kol[i]*In2[i]);
sumGar2:=sumGar2+(Gar[i]*In2[i]);
sumRem2:=sumRem2+(Rem[i]*In2[i]);
end;

for i:=1 to 3 do begin
m1[1]:=sumKol1/sumIn1;
m1[2]:=sumGar1/sumIn1;
m1[3]:=sumRem1/sumIn1;
m2[1]:=sumKol2/sumIn2;
m2[2]:=sumGar2/sumIn2;
m2[3]:=sumRem2/sumIn2;
end;

for i:=1 to 10 do begin
Dm1[i]:=sqrt(sqr((Kol[i]-m1[1]))+sqr((Gar[i]-m1[2]))+sqr((Rem[i]-m1[3])));
Dm2[i]:=sqrt(sqr((Kol[i]-m2[1]))+sqr((Gar[i]-m2[2]))+sqr((Rem[i]-m2[3])));
if Dm1[i]<Dm2[i] then
In1[i]:=1 else
In1[i]:=0;
if Dm1[i]<Dm2[i] then
In2[i]:=0 else
In2[i]:=1;
E:=E+((sqr(Dm1[i])*In1[i])+(sqr(Dm2[i])*In2[i]));
end;

Until (x1-m1[1] = 0) and (y1-m1[2]=0) and (z1-m1[3]=0)
    and (x2-m2[1] = 0) and (y2-m2[2]=0) and (z2-m2[3]=0);

[alexander13]

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

Хмм... а я сделала

Until (x1-m1[1] = 0) and (y1-m1[2]=0) and (z1-m1[3]=0)
    and (x2-m2[1] = 0) and (y2-m2[2]=0) and (z2-m2[3]=0);

Не писать же в Until снова E<E1/1000

Ну я бы все же оставил первый вариант. А вдруг найдутся такие входные данные и центроиды, что ошибка у Вас все-таки будет в 1000 раз меньше, а центроиды еще не стабилизировались?

[Ягодка]

И то правда... Спасибо! =*