function carTraffic
t=VideoReader('traffic.avi');
nframes=get(t,'NumberofFrames');
I=read(t,1);
if nframes>390
nframes=390;
end
tagged=zeros([size(I,1) size(I,2) 3 nframes],class(I));
I=rgb2gray(I);
for k=1:nframes
singleFrame=read(t,k);
D=rgb2gray(singleFrame);
D=D-I;
n=imextendedmax(D,60); %最大扩展变换
sedisk1=strel('rectangle',[7 6]); %生成结构元素
sedisk2=strel('line',10,90);
n=imclose(n,sedisk2); %闭运算
n=imclose(n,sedisk1);
nosmall=bwareaopen(n,150); %打开二值区域(删除小对象)
[L,num]=bwlabel(nosmall); %标识目标物体,,,实现跟踪
tagged(:,:,:,k)=singleFrame;
for num11 = 1:num
s = 0;
s = s + num11;
stats = regionprops(L);
temp = [stats.BoundingBox];
row(s) = temp(4*s-3);
col(s) = temp(4*s-2);
l(s) = temp(4*s-1);
w(s) = temp(4*s);
figure(1),imshow(tagged(:,:,:,k));
hold on
rectangle('Position',[row(s) col(s) l(s) w(s)], 'EdgeColor', 'y', 'LineWidth', 2);
text(1, 15, sprintf('跟踪视频:%d帧 ', k), 'FontWeight', 'Bold', 'Color', 'r');
text(row(s)+l(s)/2,col(s)+w(s)/2,sprintf('(%d,%d)',floor(row(s)+l(s)/2),floor(col(s)+w(s)/2)), ...
'FontWeight', 'Bold', 'Color', 'b');
pause(0.1);
end
hold off;
end
if nframes<200
pause(0.1);
end
end
阿里matlab建模师
- 粉丝: 4592
- 资源: 2868
最新资源
- 雷利衰落模拟器Matlab代码.rar
- 零强制均衡用于STBC-MIMO系统Matlab实现.rar
- 雷利信道中采用交织的硬解码误码率Matlab代码.rar
- 零强制均衡用于STBC-MIMO系统Matlab代码.rar
- 模拟 Hdb3 基带调制的Matlab程序.rar
- 脉冲编码调制Matlab代码.rar
- 蒙特卡洛模拟并估计Alamouti方案在雷利信道上的误码率matlab.rar
- 模拟QPSK调制方案的符号误码率matlab实现.rar
- 模拟不同类型的调制、编码和交织的误码率(BER)与Eb_No(db)的关系Matlab代码1.rar
- 模拟OFDM的峰值平均功率比的累积分布函数Matlab代码.rar
- 模拟了在单通道中传输和接收BPSK调制信号的模型Matlab代码.rar
- 模拟瑞利信道中的 BPSK 传输和接收的简单 Matlab 示例.rar
- 模拟瑞利信道中的 QPSK 或 4-QAM 调制方案Matlab代码.rar
- 频率选择性瑞利衰落信道中的 OFDM BER 与 SNR Matlab代码.rar
- 能够通过不同的模拟来评估(MIMO)-(多用户)-OFDM 系统的性能.rar
- 能够生成802.11ad控制、SC和OFDM PHY波形Matlabdiamond.rar
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈