Save data to Excel without overlapping

Question

Teo Chou Wen 2020-6-27

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/555790-save-data-to-excel-without-overlapping

评论： Teo Chou Wen 2020-7-4

采纳的回答： Sindar

A, a 3x2 variables that store 3 points detected.

B, variable to store angle of that 3 points.

A and B is in a for loop, since I detect many frames (around 400 frames).

How can I store A and B for all frames in two different excel files.

Excel filename for A: Coordinates.xlsx, B: Angle.xlsx

0 个评论
显示 -2更早的评论隐藏 -2更早的评论

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

Sindar 2020-6-27

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/555790-save-data-to-excel-without-overlapping#answer_458080

在 MATLAB Online 中打开

Check out writematrix: https://www.mathworks.com/help/matlab/ref/writematrix.html#mw_f36f6f84-e6bd-4749-8957-a88b07036116

Something like this should work:

writematrix(A,'Coordinates.xlsx','WriteMode','append')
writematrix(B,'Angle.xlsx','WriteMode','append')

10 个评论
显示 8更早的评论隐藏 8更早的评论

Teo Chou Wen 2020-6-30

在 MATLAB Online 中打开

I just updated to R2020a. Below is the complete code for my proposed system. Thanks for your help.

video=VideoReader('BikeFit1Ori.mp4'); %read video %'BikeFit1.mp4' can be change as users need.
nFrame=video.NumFrames; %number of frame in the video
for img=1:nFrame
    frames=read(video,img); %read every frames in video
    imshow(frames); %show the frames of vidoe
 
    myVideo=VideoWriter('AfterDetected'); %play all frames with result
    myVideo.FrameRate=10; %play all frames with result
    open(myVideo) %play all frames with result    
    
    %detect red areas
    diff_im=imsubtract(frames(:,:,1), rgb2gray(frames)); %extracting the Red color from grayscale image
    diff_im=im2bw(diff_im,0.18); %converting grayscale image into binary image
    diff_im=bwareafilt(diff_im,[1000 2200]); %retaining only those objects with areas between 1000 and 2200
    diff_im=bwareafilt(diff_im,3); %retaining only the 3 objects with the largest areas
    bw=bwlabel(diff_im,8); %create the label matrix using 8-connected objects
    stats=regionprops(bw, 'BoundingBox', 'Centroid'); %draw rectangular boxes around the red object detected & label image
    
    AllCentroids=vertcat(stats.Centroid); %save Centroid detected into array
    writematrix(AllCentroids,'Coordinates.xlsx','WriteMode','append')
    hold on
    for object=1:length(stats)
        %mark the red areas
        bb=stats(object).BoundingBox;
        bc=stats(object).Centroid;
        rectangle('Position',bb,'EdgeColor','b','LineWidth',2)
        plot(bc(1),bc(2),'-m')
        a=text(bc(1)+15,bc(2),strcat('(X: ',num2str(round(bc(1))),'  Y: ',num2str(round(bc(2))),')'));
        set(a,'FontName','Arial','FontWeight','bold','FontSize',12,'Color','white');
        
        %draw line
        line1=plot([AllCentroids(1,1),AllCentroids(end,1)],[AllCentroids(1,end),AllCentroids(end,end)],...
            'Color','k','LineWidth',2);
        line2=plot([AllCentroids(end,1),AllCentroids(2,1)],[AllCentroids(end,end),AllCentroids(2,end)],...
            'Color','k','LineWidth',2);
        
        %calculate and plot angle
        theta1=atan((AllCentroids(1,end)-AllCentroids(end,end))/(AllCentroids(1,1)-AllCentroids(end,1)));
        theta2=atan((AllCentroids(end,end)-AllCentroids(2,end))/(AllCentroids(end,1)-AllCentroids(2,1)));
        theta=(abs((theta1-theta2)*(180/pi)));
        writematrix(theta,'Angle.xlsx','WriteMode','append')
        
        %set the position of Angle display
        p=10.0;
        q=15.0;
        t=text(theta,theta,strcat('Angle: ',[sprintf('%1.2f',theta),'{\circ}']),'FontName', 'Arial',...
            'FontWeight', 'bold', 'FontSize', 12, 'Color', 'white');
        set(t,'Position',[p q 0]);
    end
    hold off
    
    pause(0.01) %play all frames with result
    frames2=getframe(gcf); %play all frames with result
    writeVideo(myVideo,frames2); %play all frames with result
    close(myVideo) %play all frames with result
end

Sindar 2020-7-1

编辑：Sindar 2020-7-1

在 MATLAB Online 中打开

Looking back at it, I realize that you probably want three thetas to a row. In that case, try this:

thetas=nan(1,length(stats));
for object=1:length(stats)
        ...
        theta2=atan((AllCentroids(end,end)-AllCentroids(2,end))/(AllCentroids(end,1)-AllCentroids(2,1)));
        theta=(abs((theta1-theta2)*(180/pi)));
        
        
        %set the position of Angle display
        p=10.0;
        q=15.0;
        t=text(theta,theta,strcat('Angle: ',[sprintf('%1.2f',theta),'{\circ}']),'FontName', 'Arial',...
            'FontWeight', 'bold', 'FontSize', 12, 'Color', 'white');
        set(t,'Position',[p q 0]);
        thetas(object) = theta;
end
writematrix(thetas,'Angle.xlsx','WriteMode','append')

Teo Chou Wen 2020-7-4

Thanks. The code work well as I need.

请先登录，再进行评论。

Save data to Excel without overlapping

0 个评论
显示 -2更早的评论隐藏 -2更早的评论

采纳的回答

10 个评论
显示 8更早的评论隐藏 8更早的评论

更多回答（0 个）

另请参阅

类别

标签

Community Treasure Hunt

Save data to Excel without overlapping

0 个评论 显示 -2更早的评论隐藏 -2更早的评论

采纳的回答

10 个评论 显示 8更早的评论隐藏 8更早的评论

更多回答（0 个）

另请参阅

类别

标签

Community Treasure Hunt

0 个评论
显示 -2更早的评论隐藏 -2更早的评论

10 个评论
显示 8更早的评论隐藏 8更早的评论