我想要实现的是一个经典的弯矩分布图,可能看起来像这样:
我尝试过使用面积图、xy图和条形图,最后一个接近我所需的——但仍无法满足我的要求。我可以使用任意形式的数据。
虽然丹尼尔的回答更加通用,可以用于倾斜的条纹,但这里有一种更简单的解决方案,使用不带标记和基线的stem
:
x1 = -3;
x2 = 2;
upfun = @(x) -1/10*(x-x1).*(x-x2);
downfun = @(x) 1/5*(x-x1).*(x-x2);
x_dense = linspace(x1,x2,100);
x_sparse = linspace(x1,x2,20);
%// plot outline
plot(x_dense,upfun(x_dense),'b-',x_dense,downfun(x_dense),'b-');
hold on;
%// plot stripes
stem(x_sparse,upfun(x_sparse),'b','marker','none','showbaseline','off');
stem(x_sparse,downfun(x_sparse),'b','marker','none','showbaseline','off');
%some example plot
x1 = -3;
x2 = 2;
upfun = @(x) -1/10*(x-x1).*(x-x2);
downfun = @(x) 1/5*(x-x1).*(x-x2);
%set slope you want. Inf for vertical lines
slope=inf;
x_dense = linspace(x1,x2,100);
x_sparse = linspace(x1,x2,20);
%plotting it without the stripes. nan is used not to have unintended lines connecting first and second function
plot([x_dense ,nan,x_dense ],[upfun(x_dense),nan,downfun(x_dense)])
x_stripes=nan(size(x_sparse).*[3,1]);
y_stripes=nan(size(x_sparse).*[3,1]);
if slope==inf
%vertical lines, no math needed to know the x-value.
x_stripes(1,:)=x_sparse;
x_stripes(2,:)=x_sparse;
else
%intersect both functions with the sloped stripes to know where they
%end
for stripe=1:numel(x_sparse)
x_ax=x_sparse(stripe);
x_stripes(1,stripe)=fzero(@(x)(upfun(x)-slope*(x-x_ax)),x_ax);
x_stripes(2,stripe)=fzero(@(x)(downfun(x)-slope*(x-x_ax)),x_ax);
end
end
y_stripes(1,:)=upfun(x_stripes(1,:));
y_stripes(2,:)=downfun(x_stripes(2,:));
x_stripes=reshape(x_stripes,1,[]);
y_stripes=reshape(y_stripes,1,[]);
plot([x_dense ,nan,x_dense,nan,x_stripes],[upfun(x_dense),nan,downfun(x_dense),nan,y_stripes])
斜率为1的示例
斜率为无穷大的示例
stem
)。 - Andras Deak -- Слава Україніg)
这样的情况,斜条纹可能会被切成两半。我不使用stem
的主要原因是为了将所有内容保持在一个数据系列中,以便后续步骤(如添加图例)更简单。 - Danielg)
这样的情况。我们不必担心图例,它们的 行为
可以被禁用。但我知道这只是一个例子 :) 我想这也取决于 OP 需要什么。 - Andras Deak -- Слава Україні
stem()
而不带标记来绘制线条。一个用于正位,一个用于负位。但前提是你是一种特殊的懒人:D - Andras Deak -- Слава Україні