Add legend, axes labels and time to the plot
authorLukáš Jiřiště <jiriste@icpf.cas.cz>
Tue, 20 Aug 2024 13:30:57 +0000 (15:30 +0200)
committerLukáš Jiřiště <jiriste@icpf.cas.cz>
Tue, 20 Aug 2024 13:30:57 +0000 (15:30 +0200)
Bubliny.m

index 5db35aa5f5c241c1385b6d7d692290694a1d784e..e623cf6e6e1a05c1271045a350198c4389b6ef0d 100755 (executable)
--- a/Bubliny.m
+++ b/Bubliny.m
@@ -58,7 +58,7 @@ for i=1:nSelectedDirectory
 \r
        wait_bar = waitbar(0, '');\r
        set(gca(wait_bar).Title, 'Interpreter', 'none');\r
-       intensity = [];\r
+       start_time = name_to_time(FFiles(1).name);\r
        startFile = 1;\r
        endFile = numel(FFiles);\r
        step = 1;\r
@@ -70,12 +70,16 @@ for i=1:nSelectedDirectory
                waitbar(j/N, wait_bar, 'Proccessing the images');\r
                intensity = mean(double(Figure), Weights = mask);\r
                [water(j), bubble_top(j), bubble_bot(j)] = get_levels(intensity);\r
+               time(j) = name_to_time(ImageName) - start_time;\r
        end\r
        close(wait_bar);\r
        waitbar(i/nSelectedDirectory, main_wb);\r
 \r
        figure\r
-       plot(meter([water; bubble_top; bubble_bot]'));\r
+       plot(seconds(time), 100 * meter([water; bubble_top; bubble_bot]'), 'LineWidth', 3);\r
+       legend('Water level', 'Bubble top', 'Bubble bottom','Location', 'north');\r
+       xlabel('Time (s)');\r
+       ylabel('Height (cm)');\r
 \r
 end\r
 close(main_wb);\r