Replace deprecated xlswrite with write* functions

diff --git a/Bubliny2023.m b/Bubliny2023.m
index b1bbe8430f9b9afac86be201592d5c3a948d0654..e9d2957c1efd68b9eb00e6adb34e54c5d44127d7 100755 (executable)
--- a/Bubliny2023.m
+++ b/Bubliny2023.m
@@ -61,7 +61,7 @@ for iii=1:1:nSelectedDirectory  % Cycles for directories with files
        endFile= 110; %nFFiles;                                           %1000;  %325 (20.)\r
        nFFiles=endFile;                                                        % Attention!!!\r
        for jjj=[1 startFile:step:nFFiles]                                      % Cycles for figures files\r
-               ImageName = FFiles(jjj).name\r
+               ImageName = FFiles(jjj).name;\r
                Figure = imread([FFiles(jjj).folder '/' ImageName]);\r
                [p,q]=size(Figure);\r
                ContrastFigure = imadjust(Figure);                                  % Adjust the contrast of the image using imadjust.\r
@@ -201,20 +201,20 @@ clear ContrastMeterMid
                        print ('-dpng', '-r1200', 'Dashes_scale.png')\r
 %--------------------------------------------------------------------------\r
 \r
-                       xlswrite(ResFile,{'Contrasted meter'},['Met ' cell2mat(SelectedDirectory(iii))],'A2'); %[cell2mat(SelectedDirectory(iii)) ': Meter scale'],'A1'); ['Meter scale ' num2str(iii)]\r
+                       writematrix("Contrasted meter", ResFile, "Sheet", append("Met ", SelectedDirectory(iii)), "Range","A2"); %[cell2mat(SelectedDirectory(iii)) ': Meter scale'],'A1'); ['Meter scale ' num2str(iii)]\r
                        %%xlswritefig(hf1, ResFile, ['Met ' cell2mat(SelectedDirectory(iii))] , 'A4')\r
-                       xlswrite(ResFile,{'Intensity: places of dashes on the axis'},['Met ' cell2mat(SelectedDirectory(iii))],'A6');\r
+                       writematrix("Intensity: places of dashes on the axis", ResFile, "Sheet", append("Met ", SelectedDirectory(iii)), "Range", "A6");\r
                        %%xlswritefig(hf2, ResFile, ['Met ' cell2mat(SelectedDirectory(iii))], 'B8')\r
-                       xlswrite(ResFile,{'Dashes scale'},['Met ' cell2mat(SelectedDirectory(iii))],'K6');\r
+                       writematrix("Dashes scale", ResFile, "Sheet", append("Met ", SelectedDirectory(iii)), "Range", "K6");\r
                        %%xlswritefig(hf3, ResFile, ['Met ' cell2mat(SelectedDirectory(iii))], 'L8')\r
-                       xlswrite(ResFile,[{'Meter Scale'} {'Dashes scale'}],['Met ' cell2mat(SelectedDirectory(iii))],'A28');\r
-                       xlswrite(ResFile,[{'AxisIntens'} {'AxisIntensUp'} {'AxisEmpty'} {'LevelMeter'}],['Met ' cell2mat(SelectedDirectory(iii))],'D28');\r
+                       writematrix(["Meter Scale" "Dashes scale"], ResFile, "Sheet", append("Met ", SelectedDirectory(iii)), "Range", "A28");\r
+                       writematrix(["AxisIntens" "AxisIntensUp" "AxisEmpty" "LevelMeter"], ResFile, "Sheet", append("Met ", SelectedDirectory(iii)), "Range", "D28");\r
                        if D_num==1\r
-                               xlswrite(ResFile,[MeterScale' [1000;900;800;700;600;500;400;300;200;100]],['Met ' cell2mat(SelectedDirectory(iii))],'A29');\r
+                               writematrix([MeterScale' [1000;900;800;700;600;500;400;300;200;100]], ResFile, "Sheet", append("Met ", SelectedDirectory(iii)), "Range", "A29");\r
                        elseif D_num==2\r
-                               xlswrite(ResFile,[MeterScale(1:end-1)' [1800;1700;1600;1500;1400;1300;1200;1100]],['Met ' cell2mat(SelectedDirectory(iii))],'A29');\r
+                               writematrix([MeterScale(1:end-1)' [1800;1700;1600;1500;1400;1300;1200;1100]], ResFile, "Sheet", append("Met ", SelectedDirectory(iii)), "Range", "A29");\r
                        end\r
-                       xlswrite(ResFile,[{AxisIntens} {AxisIntensUp} {AxisEmpty} {LevelMeter}],['Met ' cell2mat(SelectedDirectory(iii))],'D29');\r
+                       writematrix([AxisIntens AxisIntensUp AxisEmpty LevelMeter], ResFile, "Sheet", append("Met ", SelectedDirectory(iii)), "Range", "D29");\r
 \r
                end\r
 %%\r
@@ -415,8 +415,8 @@ clear ContrastMeterMid
                        end\r
                end\r
 \r
-               xlswrite(ResFile,[{'ImageName'} {'Date'} {'Time [s]'} {'Intensita Heihgt [-]'} {'Intensita Botom [-]'} {'Heihgt [cm]'} {'Botom [cm]'} {'Level [cm]'}],cell2mat(SelectedDirectory(iii)),'A1:H1');\r
-               xlswrite(ResFile,[{ImageName} {string(Date(1,jjj))} {seconds(Time(1,jjj))} {Heihgt(1,jjj)} {Botom(1,jjj)} {Metr_fit_H(1,jjj)} {Metr_fit_B(1,jjj)} {str2double(SelectedDirectory{iii}(7:9))}], cell2mat(SelectedDirectory(iii)),['A' num2str(jjj+1) ':H' num2str(jjj+1)]);\r
+               writematrix(["ImageName" "Date" "Time [s]" "Intensita Heihgt [-]" "Intensita Botom [-]" "Heihgt [cm]" "Botom [cm]" "Level [cm]"], ResFile, "Sheet", SelectedDirectory{iii}, "Range", "A1:H1");\r
+               writematrix([ImageName string(Date(1,jjj)) seconds(Time(1,jjj)) Heihgt(1,jjj) Botom(1,jjj) Metr_fit_H(1,jjj) Metr_fit_B(1,jjj) str2double(SelectedDirectory{iii}(7:9))], ResFile, "Sheet", SelectedDirectory{iii}, "Range", ['A' num2str(jjj+1) ':H' num2str(jjj+1)]);\r
 \r
 \r
                clear Figure\r