Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > Определение расстояния между двумя точками


Автор: ratu 15.7.2008, 13:35
Может кто подскажет, как рассчитать длину в см или мм относительно реальных масштабов? Допустим есть картика которая соответствует 1:1 реальному объекту.В PictureBox отмечаем 2 точки. И как дальше имея 2 точки с координатами А(Х1, У1) и В(Х2, У2) расчитать реальную длину в см или мм?

Автор: JusTalionis 15.7.2008, 18:12
А какие сантиметры-то? На экране? При разном разрешении разные будут. И на большом мониторе естественно больше, чем на маленьком...

Автор: Akina 15.7.2008, 18:51
Цитата(ratu @  15.7.2008,  14:35 Найти цитируемый пост)
Допустим есть картика которая соответствует 1:1 реальному объекту

Значит, там есть 2 точки, расстояние между которыми в сантиметрах известно. Расстояние в пикселах посчитать несложно, если знать теорему Пифагора. А далее расстояние "на местности" между любыми двумя пикселами изображения считается тривиальной пропорцией.

Автор: ratu 16.7.2008, 00:35
Гм... короче, суть проблемы. Есть картинка (рентгеновский снимок) он всегда стандартного размера, допустим 20 на 30 см. Его электронный вариант запихивается в PictureBOX. На нем отмечается 2 точки между которыми нужно измерить расстояние. На сколько я понял, то ваше предложение для начала запихнуть какой-то рисунок с заранее известными размерами и затем высчитать эквивалент 1 мм и им оперировать как константой? Или есть другие предложения?

Автор: JusTalionis 16.7.2008, 08:01
А, так; ну это просто. Сначала считаем коэффициент: сантиметры на пиксел, но в VB лучше на твип, а не на пиксел. (Твип - единица размеров в VB)

Допустим размер снимка известен 20х30 см и он поместился в пикчбокс например 4000х5000 твипов.
Тогда коэффициент ky = 20/4000 = 0.005 
Если пропорции не нарушены, то по вертикали и по горизонтали коэффициент будет одинаковый, а если разный - значит рисунок вытянут или сжат. У нас kx=30/5000=0.006, сжат по горизонтали. Это не страшно, главное чтоб не был подрезан.
Пусть координаты точек в твипах будут X1, Y1 и X2, Y2.
Сначала пересчитываем их в сантиметры:
X1=X1*kx
Y1=Y1*ky
X2=X2*kx
Y2=Y2*ky
и получили в правильных сантиметрах, с исправленной пропорцией, сжатие ликвидировалось.
Остается применить теорему о расстоянии между точками на плоскости (геометрия 9-й класс, кажется)
Код

d = Sqr((X2-X1) * (X2-X1) + (Y2-Y1) * (Y2-Y1))

и d -искомое расстояние в сантиметрах на снимке  smile 


Автор: Akina 16.7.2008, 08:06
Цитата(ratu @  16.7.2008,  01:35 Найти цитируемый пост)
Или есть другие предложения?

Конечно, я говорю о другом - уж коли 
Цитата(ratu @  16.7.2008,  01:35 Найти цитируемый пост)
На нем отмечается 2 точки между которыми нужно измерить расстояние.

то можно и отметить еще 2 точки, расстояние между которыми заведомо известно. В лучшем случае такая пара реперных точек должна быть на каждом снимке, в худшем - на отдельном калибровочном шаблоне (но уж коли шаблон - так сразу сделать сетку, скажем сантиметровую). В последнем случае можно будет учесть не только растяжение-сжатие, но и существующую нелинейность, если она наличествует.

Автор: ratu 16.7.2008, 10:56
О па = ) Спасиб большое = )

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)