Цитата:
|
Сообщение от fonochka
Всем спасибо огромное.
Pilot Red, то что нужно. Только во втором по счету вложении потерялись некоторые файлы и я не могу открыть код программы и сравнить с вашим первым вариантом. Что с первым вариантом не так? Он ведь тоже работает.
|
Они не потерялись, а я их сам удалил
В первом варианте, я понадеялся на ваши вычисления, и поэтому подправил только тот момент, в котором происходила отрисовка линии.
Но когда решил посмотреть на результат, можно сказать благодаря angvelem-у, то он меня не очень порадовал, т.к. линия по вашим расчетам никак не хотела ложиться вдоль скопления точек. Так что ту часть кода пришлось тоже подлатать. И в принципе сечас программка рисует не только линию, но и еще рисует ее правильно!
Вот кусок кода до исправления:
Код:
if ReadOk then
begin
sx := 0;
sxx := 0;
sxy := 0;
n := Length(D);
for i := 1 to n do
begin
sx := sx + D[i];
sxx := sxx + D[i]*D[i];
sxy := sxy + D[i]*i;
end;
a := (sxy - 1)/(sxx - sx*sx/n);
b := 1 - sx/n*a;