Ответ: Или на Delphi: («Телесистемы»: Конференция «Микроконтроллеры и их применение»)

Разработка, производство и продажа радиоэлектронной аппаратуры

| Карта сайта | Пишите нам | В избранное

Требуется программист в Зеленограде
- обработка данных с датчиков; ColdFire; 40 тыс.
e-mail:jobsmp@pochta.ru

Телесистемы | Электроника | Конференция «Микроконтроллеры и их применение»

Ответ: Или на Delphi:

Отправлено Gs 12 декабря 2006 г. 00:31
В ответ на: ну да, например откалибруйте в 3 точках (по краям и в середине) и аппроксимируйте параболой: отправлено __hard 12 декабря 2006 г. 00:22

function Parab_Line(x1, y1, x2, y2, x3, y3, x : Single) : Single;
var
a, b, d, da, db,
xx, xx1, xx2, yy1, yy2 : Single;
begin

Result := 0;

try
xx := x - x1;
xx1 := x2 - x1;
xx2 := x3 - x1;
yy1 := y2 - y1;
yy2 := y3 - y1;
d := xx1*xx1*xx2 - xx2*xx2*xx1;
da := yy1*xx2 - yy2*xx1;
db := xx1*xx1*yy2 - xx2*xx2*yy1;
a := da / d;
b := db / d;
Result := a*xx*xx + b*xx + y1;
except end;

end;

Составить ответ | Вернуться на конференцию

Ответ: Или на Delphi:

Ответы