[angvelem]

Там и так понятно, данные из текстового файла "1.txt".

[Pilot_Red]

Сообщение от angvelem

Да ну? Интересно, какая линия между Землёй и Луной - наверно толстая, канат. Но это всё оффтоп, желающие за школьную парту по-новой.

Товарищ angvelem, немного увиливаешь в сторону. Я не спрашиваю про свойства линий. Ты сказал, что понятия прямой в программировании и геометрии несколько отличаются. Тем самым, ты программирования вынес в отдельный предмет, чуть ли не в фундаментальный. Мы знания геометрии, алгебры, физики применяем в программировании. Нет такого, эта линия используется в программировании, а эта, блин, а геометрии. Как вообще их можно сравнивать, если они не сравнимы. Ладно это действительно оффтоп..

по теме.

после того как вы получили ур. прямой, например y=0.5x+1.2

по этому уравнению можно нарисовать прямую.

например в виде точек:

То есть взять цикл
for x=0 to 100 do
y=0.5x+1.2
точка(x,y)

можно нарисовать линию найдя начальное и конечное значение

x1=0
x2:=100

подставив эти значения в место x в уравнение получаем y1, y2

[angvelem]

Опять оффтоп:
читаем внимательно и в дальнейшем постараемся отвечать ТС, а не друг другу

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

[Pilot_Red]

чутка поправил код. То не то?

[angvelem]

Какой-то мусор в начальной точке координат.

[Pilot_Red]

Теперь покопался в вычислениях, вроде заработало

[angvelem]

Собственно говоря, практически ничего не изменил от оригинала.

[Pilot_Red]

Сообщение от angvelem

Собственно говоря, практически ничего не изменил от оригинала.

у тебя линия не совпадает с скоплением точек... ну это наверно из-за того, что ты практически ничего не менял

[angvelem]

Наверное так.

[fonochka]

Всем спасибо огромное.
Pilot Red, то что нужно. Только во втором по счету вложении потерялись некоторые файлы и я не могу открыть код программы и сравнить с вашим первым вариантом. Что с первым вариантом не так? Он ведь тоже работает.

[Pilot_Red]

Сообщение от 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;

[fonochka]

Я запуталась... Pilot Red, вы мне скинете правильно работающую программу полностью??
И зачем тут минус:
Chart1.Series[1].AddXY(m,-m*a+b);
А еще у меня программа воспроизводит только восходящие графики, а если точки идут сверху-вниз, даже коэффициенты не считаются.... Тоже не понимаю почему(

[Pilot_Red]

Упс, самое главное забыл

[fonochka]

Спасибо большое! Только пожалуй последний вопрос - что за переменная nn?? Для чего мы ее заводим?

[Pilot_Red]

Сообщение от fonochka

Спасибо большое! Только пожалуй последний вопрос - что за переменная nn?? Для чего мы ее заводим?

в этой переменной храниться количество точек из считываемого файла