Can anyone help me clean up this code?

2 次查看（过去 30 天）

Sim 2012-11-2

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/52622-can-anyone-help-me-clean-up-this-code

The function below is used to plot histograms for any give data. Basically what I wnat is to display the mean, median and std on the left hand of the histogram but by lines/arrows. If the mean and median overlap I would want to separate them somehow but indicate them by lines. I have written something as below which does not work.

function data_plot2(data,bins,name,units)
[x,y]=hist(data,bins);
barh(y,x);
mu = mean(data);
mu1 = median(data);
sigma = std(data(:));
mn = min(data(:));
mx = max(data(:));
if nargin==2
    xlabel('Bar Lengths of Histogram Bars')
    ylabel('Data Distribution')
    title('Histogram')
elseif nargin==3
    xlabel(varargin{1})
    ylabel('Data Distribution')
    title('Histogram')
elseif nargin==4
    xlabel(varargin(1))
    ylabel(varargin(2))
    title('Histogram')
end
hold on
plot(0,mn,'c*')
hold on
plot(0,mu,'sr')
hold on
plot(0,mu1,'vk')
hold on
plot(0,sigma,'dg')
hold on
plot(0,mx,'pm')
hold on 
legend('Bar Length','Minimum','Mean','Median','Std. Dev.','Maximum')
if abs(mu-mu1)<=30
    text(max(x)*10/100,mu,'Mean','Color','r')
    hold on
    line([0 max(x)*10/100],[mu mu],'Color','r')
    hold on
    text(max(x)*10/100,mu1+sigma,'Median','Color','g')
    hold on
    line([0 max(x)*10/100],[mu1 mu1+sigma],'Color','g')
    hold on
else
    text(max(x)*10/100,mu,'Mean','Color','r')
    hold on
    line([0 max(x)*10/100],[mu mu],'Color','r')
    hold on
    text(max(x)*10/100,mu1,'Median','Color','g')
    hold on
    line([0 max(x)*10/100],[mu1 mu1],'Color','g')
    hold on
end
end