|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Там и так понятно, данные из текстового файла "1.txt".
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#17
|
||||
|
||||
Цитата:
Товарищ 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 |
#18
|
||||
|
||||
Опять оффтоп:
читаем внимательно и в дальнейшем постараемся отвечать ТС, а не друг другу Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#19
|
||||
|
||||
чутка поправил код. То не то?
Последний раз редактировалось Pilot_Red, 14.06.2012 в 22:25. |
#20
|
||||
|
||||
Какой-то мусор в начальной точке координат.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 18.07.2011 в 02:13. |
#21
|
||||
|
||||
Теперь покопался в вычислениях, вроде заработало
Последний раз редактировалось Pilot_Red, 14.06.2012 в 22:25. |
#22
|
||||
|
||||
Собственно говоря, практически ничего не изменил от оригинала.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#23
|
||||
|
||||
Цитата:
у тебя линия не совпадает с скоплением точек... ну это наверно из-за того, что ты практически ничего не менял |
#24
|
||||
|
||||
Наверное так.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#25
|
|||
|
|||
Всем спасибо огромное.
Pilot Red, то что нужно. Только во втором по счету вложении потерялись некоторые файлы и я не могу открыть код программы и сравнить с вашим первым вариантом. Что с первым вариантом не так? Он ведь тоже работает. |
#26
|
||||
|
||||
Цитата:
Они не потерялись, а я их сам удалил В первом варианте, я понадеялся на ваши вычисления, и поэтому подправил только тот момент, в котором происходила отрисовка линии. Но когда решил посмотреть на результат, можно сказать благодаря 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; |
#27
|
|||
|
|||
Я запуталась... Pilot Red, вы мне скинете правильно работающую программу полностью??
И зачем тут минус: Chart1.Series[1].AddXY(m,-m*a+b); А еще у меня программа воспроизводит только восходящие графики, а если точки идут сверху-вниз, даже коэффициенты не считаются.... Тоже не понимаю почему( Последний раз редактировалось fonochka, 20.07.2011 в 00:07. |
#28
|
||||
|
||||
Упс, самое главное забыл
Последний раз редактировалось Pilot_Red, 14.06.2012 в 22:25. |
#29
|
|||
|
|||
Спасибо большое! Только пожалуй последний вопрос - что за переменная nn?? Для чего мы ее заводим?
|
#30
|
||||
|
||||
Цитата:
|