Выделить двигающийся объект.

[meren]

Есть камера с поворотным устройством,хочу ,чтобы она поворачивалась за передвигающимся объектом.
Помогите

[codemaster]

http://sourceforge.net/projects/motion/ пойдет?

[meren]

http://sourceforge.net/projects/motion/ пойдет?

Надо самому на VB

Но ,все таки спасибо...

[codemaster]

http://sourceforge.net/projects/motion/ пойдет?

Надо самому на VB

Но ,все таки спасибо...

на VB гиблое это дело
но если очень хочется то посмотри
это
http://www-2.cs.cmu.edu/~kiranb/motionD ... ICME00.pdf

[meren]

на VB гиблое это дело

Почему гиблое ?

[Костя]

Вообще-то для программирования систем машинного зрения существуют специальные средства... Это задача из разряда АСУ. Поищи в яндексе ссылки на такие системы.

[Inferno]

Для выделения движущегося обьекта нужно 2 кадра.
1 Статика-шаблон
2 С двигающимся обьектом
Затем попиксельно сравниваешь рисунки и все что не будет совпадать и будет твоим движущимся объектом.
Конечно на самом деле все немного сложнее.

[codemaster]

на VB гиблое это дело

Почему гиблое ?

Очень много всяких факторов.
Сколько движущихся объектов будет в кадре?
Тип(ы) объекта, скорость?
Как меняется освещенность и пр.
Быстродействие?


Наш отдел писал софт по считыванию номерных знаков
проезжающих автомобилей. Этот гемор надолго запомнится всем
сотрудникам.

Одним словом забей и возьми что нибудь готовое.

[meren]

Одним словом забей и возьми что нибудь готовое.

Для себя хочу, а то давно забил..

[meren]

Затем попиксельно сравниваешь рисунки .

Это и надо.

[codemaster]

Затем попиксельно сравниваешь рисунки .

Это и надо.

попиксельно на VB6 при условии движения объекта?
ну ну

[meren]

Private Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Dim PicBits() As Byte, PicInfo As BITMAP
Dim Cnt As Long, BytesPerLine As Long
Private Sub Command1_Click()
'2я картинка
GetObject Picture2.Image, Len(PicInfo), PicInfo
BytesPerLine = (PicInfo.bmWidth * 3 + 3) And &HFFFFFFFC
ReDim PicBits(1 To BytesPerLine * PicInfo.bmHeight * 3) As Byte
GetBitmapBits Picture2.Image, UBound(PicBits), PicBits(1)
'1я картинка
GetObject Picture1.Image, Len(PicInfo), PicInfo
BytesPerLine = (PicInfo.bmWidth * 3 + 3) And &HFFFFFFFC
ReDim PicBits(1 To BytesPerLine * PicInfo.bmHeight * 3) As Byte
GetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)
''''''''''''''''''''''''''
For Cnt = 1 To UBound(PicBits)
PicBits(Cnt) = 'Я идиот! Убейте меня, кто-нибудь!?? как организовать разницу
Next Cnt
'''''''''''''''''''''''''''''
SetBitmapBits Picture2.Image, UBound(PicBits), PicBits(1)
Picture2.Refresh
End Sub

[CodeName33]

Ну попиксельно не обязательно. Можно разбить изображения на блоки 10*10 или что-то вроде этого. Найти средний цвет блока и сравнить со средним цветом блока следуюшего кадра (если разница в цвете больше определённого числа). Так можно найти движение. И если ещё поработать то можно и определить направление движения. Я когда-то делал программу определения движений, но без вращения камеры. (Идея появилась после того, как посмотрел Resident Evil, где камера людей детектила... ).

А вот про смену яркости и освещения в комнате - это да. Сильно сбивает программу. Да и камера сама постоянно меняла настройку яркости...

[meren]

А вот про смену яркости и освещения в комнате - это да. Сильно сбивает программу. Да и камера сама постоянно меняла настройку яркости...

Если захват второго кадра через 0.5 сек освещение не изменится,я думаю

[CodeName33]

meren, иногда успевает. Если камера дешёвая и постоянно пытается правильную цветность подобрать...

[meren]

meren, иногда успевает. Если камера дешёвая и постоянно пытается правильную цветность подобрать...

А дорогие не подбирают цветность?

[CodeName33]

meren, подбирают, но качество изображения и цветопередача у них лучше и автоподгонка RGB не скачет так резко как на дешёвых.

[artyuha]

А ты не подумал, что кроме поступательного движения объект может совершать и вращательное. Так что тупое сравнение на смещение образа тут не покатит. Алгоритм тут действительно не так прост.

[meren]

А ты не подумал, что кроме поступательного движения объект может совершать и вращательное. Так что тупое сравнение на смещение образа тут не покатит. Алгоритм тут действительно не так прост.

А какая разница какое движение, если реагирование происходит по изменению пикселей.

[artyuha]

Не дай бог наблюдать твоему детищу колыхающуюся штору (например) – привод сгорит только так.

[meren]

Не дай бог наблюдать твоему детищу колыхающуюся штору

Я ее гвоздиком к стеночке...
Угол по координатам найти помоги
Atn(Y - Y1) / (X - X1) * 180 / pi
как с отрицательным быть ?

[tyomitch]

Угол по координатам найти помоги
Atn(Y - Y1) / (X - X1) * 180 / pi
как с отрицательным быть ?

http://bbs.vbstreets.ru/viewtopic.php?p=77099#77099

[meren]

[quote="tyomitch"][/quote]
Спасибо . С меня причитается.