实现matlab直方图的网格填充

最新推荐文章于 2022-09-02 01:33:23 发布

happy423

最新推荐文章于 2022-09-02 01:33:23 发布

阅读量6.1k

点赞数

分类专栏： matlab

本文链接：https://blog.csdn.net/happy423/article/details/48133055

版权

这段代码定义了一个名为gridbar的函数，用于在MATLAB中创建直方图，并用网格填充。输入参数包括x轴数据、y轴数据和条形宽度。通过循环遍历每个数据点，绘制出条形并使用网格线连接，从而实现填充效果。函数还处理了角度计算和比例调整，以适应不同坐标轴的比例。

摘要由CSDN通过智能技术生成

function gridbar(x,y,w)
% x is the data at x-axis
% y is the data at y-axis
% w is the width of bar
%  Example:
%     gridbar(1:6,rand(1,6),0.4);
for k=1:length(x);
    xk=x(k);yk=y(k);
    plot([xk-w,xk-w,xk+w,xk+w],[0,yk,yk,0],'k');
    hold on;
end
xt=get(gca,'xtick');
yt=get(gca,'ytick');
Po=get(gca,'Position');
A=[yt(2)-yt(1)]/[xt(2)-xt(1)];
A=tan(A)*2;
yd=[xt(2)+w]*tan(A);
D=[yt(2)-yt(1)]/3;
xm=min(xt);ym=min(yt);
for k=1:length(x);
    xk=x(k);yk=y(k);
    ydt=-[xk+w]*tan(A)+D;
    while ydt<[yk-(xk-w)*tan(A)];
        xc=[ym-ydt]/tan(A);
        if xc<xk+w & xc>xk-w;
            x1=xc;y1=ym;
        else
            x1=xk-w;y1=(xk-w)*tan(A)+ydt;
        end
        xc=[yk-ydt]/tan(A);
        if xc<xk+w & xc>xk-w;
            x2=xc;y2=yk;
        else
            x