В программе возникает ошибка
"... raised exception type class EAccessViolation..."
в строке, помеченной стрелочками...

Код

SetLength(mu, num_of_x, Km); ........ procedure step3; var  i, j, k, l: integer;      sum: double; begin   inc(iter);   SetLength(d,num_of_x, Km);   for i:=0 to num_of_x-1 do     for j:=0 to Km-1 do       d[i][j]:=0;   for i:=0 to num_of_x-1 do     for j:=0 to Km-1 do       begin         d[i][j]:=0;         for l:=0 to razmernost-1 do           d[i][j]:=d[i][j]+(x[i][l]-v[j][l])*(x[i][l]-v[j][l]);         d[i][j]:=sqrt(d[i][j]);       end;   for i:=0 to num_of_x-1 do     for j:=0 to Km-1 do       if d[i][j]=0 then         begin           mu[i][j]:=1;           for l:=0 to Km-1 do             if l<>j then mu[i][l]:=0;         end;   for i:=0 to num_of_x-1 do     begin       l:=0; --> while (d[i][l]<>0) and (l<Km) do inc(l);      <---       if l=Km then          for k:=0 to Km-1 do             begin               sum:=0;               for j:=0 to Km-1 do                 sum:=sum+1/d[i][j];               mu[i][k]:=1/(d[i][k]*d[i][k]*sum);             end;     end;   step4; end;

Ну на что он жалуется, если размерности массивов правильные???

Не вникал в алгоритм, но попробуй в:

Код

while (d[i][l]<>0) and (l<Km) do inc(l);

поменять местами условия:

Код

while (l<Km) and (d[i][l]<>0) do inc(l);

хм... у меня возникала из-за конструктора калсса, который я создавал...
но у тебя классов здесь не видно
попробуй взять в скобки условие:

Код

while ((l<Km) and (d[i][l]<>0)) do inc(l);

А что за прога может скажешь... будет легче разобраться...

За границы массива выходишь скорее всего.
Добавлено @ 07:53
Воспользуйся отладчиком и ещё F5, F7, F9, Ctrl+F5, так проще поймать ошибку будет.

Есть набор векторов x[i],i=0..num_of_x-1, x[i] - вектор размерности razmernost, их надо разбить на Km кластеров с центрами v[k] - они тоже в свою очередь векторы длинной razmernost.
Определена матрица расстояний между центрами и элементами d[i][k]=||x[i]-v[k]|| и матрица принадлежности векторов кластерам mu[i][k]:=1/(d[i][k]*d[i][k]*sum(d[i][j]^2, j=0..Km);
0<=mu[i][j]<=1, если mu[i][j]=0 - вектор i кластеру j точно не принадлежит, если mu[i][j]=alfa, то вектор i принадлежит кластеру j с вероятностью alfa.
Если (для некоторого k d[i][k]=0){mu[i][k]:=1, для всех j<>k mu[i][j]:=0;}

мда.... кжись несколько сумбурно...

Поменять местами условия не помогло...
Добавлено @ 08:09
За границы массивов я не выхожу... Я за этим вроде бы довольно четко следила...

Цитата

За границы массивов я не выхожу... Я за этим вроде бы довольно четко следила...

Просто в этой срочке ничего другого не может быть, кроме выхода за границы.

Код

while (d[i][l]<>0) and (l<Km) do inc(l);

Как d объявлен?

d: array of array of double;

В этой строке не должно быть ошибки. Ну, проверь так:
вместо

Код

l:=0; while (d[i][l]<>0) and (l<Km) do inc(l);

напиши простой цикл

Код

for l := 0 to Km-1 do  if d[i][l] <> 0 then break; ...................

Я так исправила, и оно теперь не ругается... Фиг знает че это с ним было... Вроде бы и ниче же не поменялось?!

Спасибо за подсказки!

Посмотри еще опцию Project|Options|Compiler|Syntax Options|Complete boolean eval - установлена или нет??

И на будущее- используй БрейкПоинты(Точки останова). Прогоняй по ним программу и ищи ошибку там, где точка останова даст ошибку.

Это был тот случай, когда ни отладчик, ни бейк-пойнты не помогали))