RescaledConcatShiftedHisto.m

function RescaledConcatShiftedHisto
%%
%% Last modified by Cristel Chandre (July 18, 2020)
%% Comments? cristel.chandre@cnrs.fr 
%%

[file, path] = uigetfile;
[~, name, ~] = fileparts(file);
load([path file], 'Rho_t_cat');

%% Rescaled and Concatenated Shifted Polar Histogram Rho (0-90)
delta = 6; %bin size
method = 'count';
avgRho = mean(Rho_t_cat);
figPolarHistoRhoT = figure('Name', 'Polar Histogram (0-90): shifted Rho');
pax = polaraxes(figPolarHistoRhoT);
h = polarhistogram(pax, Rho_t_cat*pi/180, (0:delta:90)*pi/180, 'Normalization', method);
pax.RLim = [0 max(h.Values)];
pax.ThetaDir = 'clockwise';
pax.ThetaLim = [0 90];
pax.ThetaZeroLocation = 'left';
annotation(figPolarHistoRhoT, 'textbox', [0.12 0.99 0 0], 'String', name, 'LineStyle', 'none', 'FontSize', 14, 'FitBoxToText', 'on', 'Interpreter', 'none');
annotation(figPolarHistoRhoT, 'textbox', [0.12 0.9 0 0], 'String', ['\rho - \rho_0 = ' num2str(avgRho, '%.1f') '\pm' num2str(std(Rho_t_cat), '%.1f')], 'LineStyle', 'none', 'FontSize', 14, 'FitBoxToText', 'on');

savefig(figPolarHistoRhoT, [path name '_RescaledConcatShiftedPolarHistoRho90.fig']);

% The data (.mat) used in this code are produced using the software
% Polarimetry Analysis https://www.fresnel.fr/polarimetry/
%
% Copyright (c) 2020 Cristel Chandre.
% All rights reserved.
%
% Redistribution and use in source and binary forms are permitted provided 
% that the above copyright notice and this paragraph are duplicated in all 
% such forms and that any documentation, advertising materials, and other 
% materials related to such distribution and use acknowledge that the
% software was developed by the CNRS. The name of the CNRS may not be used 
% to endorse or promote products derived from this software without 
% specific prior written permission.

% THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED 
% WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF 
% MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.