Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

У кого какие мысли? [D5, D6, D7, Win2k, WinXP]

yuraspb © (2006-11-09 20:46:00)
Что в этом коде arr_double и sgData? Ктонибудь может собрать это в прожект?

текст программы:
function Distance_Evklid(e1,e2 : arr_double) : Double;
var
i : Integer;
begin
Result := 0;

for i:=1 to High(e1) do
Result := Result + (e1[i]-e2[i])*(e1[i]-e2[i]);
Result := Sqrt(Result);
end;

procedure TFrmMain.Min_Matrix(var i,j : Integer ; G : Array of arr_double);
var
k, l : Integer;
min : Double;
begin
min := 100;
i := 0;
j :=0;
for k := 0 to High(G) - 1 do
for l:=i to high(G[k]) - 1 do
if G[k,l]0 then
if G[k,l]

MikePetrichenko (2006-11-10 20:18:00) [1]

> тогда жди. авось кому-то настолько нечего делать будет (в
> чём я лично сильно сомневаюсь).

Сколько бездельников оказалось :)

Anatoly Podgoretsky (2006-11-10 20:17:00) [2]
> Горгер (10.11.2006 20:11:09) [9]

А с чего бы ему ругаться, если синтактически конструкция правильная.

Горгер (2006-11-10 20:11:00) [3]
>А вот этот arr_double нужно прописать как type ?
type arr_Double = array of Double;
Вроде не ругается.

yuraspb (2006-11-10 11:22:00) [4]
Горгер, Вы абсолютно правы.
А вот этот arr_double нужно прописать как type ?

Горгер (2006-11-10 01:42:00) [5]
> Между ними считается сумма квадратов разностей и потом из всего этого извлекаем корень.
В смысле это формула евклидового расстояния, используется в т.ч. и в кластерном анализе. Я не утверждаю категорично

Горгер (2006-11-10 01:40:00) [6]
Проанализируем код:
1) Есть матрица каких-то натуральных чисел.
2)Берем 2 вектора из этой матрицы
3) Между ними считается сумма квадратов разностей и потом из всего этого извлекаем корень.
Что это может быть?Скорее всего какая-то прога для кластерного анализа.

yuraspb (2006-11-09 22:29:00) [7]
Видишь, Ketmar, не все такие, ждать пришлось не долго )))
Спасибо Вам за ответ !

очевидно (2006-11-09 22:00:00) [8]
arr_double = array of Double;
sgData: TStringGrid;

Ketmar (2006-11-09 21:57:00) [9]
тогда жди. авось кому-то настольконечего делать будет (в чём я лично сильно сомневаюсь).

yuraspb (2006-11-09 21:27:00) [10]
Ketmar, бесплатно.

Ketmar (2006-11-09 20:58:00) [11]
не вижу суммы. какова оплата-то?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »