Matlab 沿螺旋线绘制等距标记

我想沿着螺旋轨迹移动一个红星标记，在其圆周上的红星点之间有5个单位的相等距离，如下图所示

vertspacing = 10;
horzspacing = 10;
thetamax = 10*pi;
% Calculation of (x,y) - underlying archimedean spiral.
b = vertspacing/2/pi;
theta = 0:0.01:thetamax;
x = b*theta.*cos(theta)+50;
y = b*theta.*sin(theta)+50;

% Calculation of equidistant (xi,yi) points on spiral.
smax = 0.5*b*thetamax.*thetamax;
s = 0:horzspacing:smax;
thetai = sqrt(2*s/b);
xi = b*thetai.*cos(thetai);
yi = b*thetai.*sin(thetai);
plot(x,y,'b-');
hold on

我想得到一个如下所示的数字：

这是我的圆轨迹代码：

% Initialization steps.
format long g;
format compact;
fontSize = 20;
r1 = 50;
r2 = 35;
r3=  20;
xc = 50;
yc = 50;
% Since arclength = radius * (angle in radians),
% (angle in radians) = arclength / radius = 5 / radius.
deltaAngle1 = 5 / r1;
deltaAngle2 = 5 / r2;
deltaAngle3 = 5 / r3;
theta1 = 0 : deltaAngle1 : (2 * pi);
theta2 = 0 : deltaAngle2 : (2 * pi);
theta3 = 0 : deltaAngle3 : (2 * pi);
x1 = r1*cos(theta1) + xc;
y1 = r1*sin(theta1) + yc;
x2 = r2*cos(theta2) + xc;
y2 = r2*sin(theta2) + yc;
x3 = r3*cos(theta3) + xc;
y3 = r3*sin(theta3) + yc;
plot(x1,y1,'color',[1 0.5 0])
hold on
plot(x2,y2,'color',[1 0.5 0])
hold on
plot(x3,y3,'color',[1 0.5 0])
hold on

% Connecting Line:
plot([70 100], [50 50],'color',[1 0.5 0])
% Set up figure properties:
% Enlarge figure to full screen.
set(gcf, 'Units', 'Normalized', 'OuterPosition', [0, 0, 1, 1]);
drawnow;
axis square;
for i = 1 : length(theta1)
    plot(x1(i),y1(i),'r*')
    pause(0.1)
end
for i = 1 : length(theta2)
    plot(x2(i),y2(i),'r*')
    pause(0.1)
end
for i = 1 : length(theta3)
    plot(x3(i),y3(i),'r*')    
    pause(0.1)
end

---

我想不出沿螺旋线计算距离的方法，所以我用圆来近似它，希望它仍然有用

我的解决方案依赖于FEX的函数，找到圆与螺旋线的交点。我提供了一个动画，所以它更容易理解

代码（在R2017a上测试）：

<代码>函数[x，y，席，y]＝q44 916610（do绘图） %%输入处理： 如果nargin<1 | |是空的（doPlot） doPlot=false； 结束 %%初始化： 原点=[50,50]； 垂直间距=10； θ=5*（2*pi）； %%（x，y）-下伏阿基米德螺线的计算。 b=垂直间距/（2*pi）； θ=0:0.01:thetamax； x=b*theta.*cos（theta）+原点（1）； y=b*theta.*sin（theta）+原点（2）； %%螺旋上等距（xi，yi）点的计算。 DST=5；cRes=360； numPts=ceil（顶点间距*最大值）；%预分配 [xi，yi]=交易（NaN（numPts，1））； 如果doPlot&&isHG2（）%，则仅当MATLAB版本足够新时，才会启用绘图。 图（）；图（x，y，'b-'）；等等轴相等；网格化；格网小调； hAx=gca；hAx.XLim=[-5 105]；hAx.YLim=[-5 105]； hP=图（xi，yi，'r*'）； 其他的 HP =结构（xDATA），席，“yDATA”，YI； 结束 扩展数据（1）=源（1）；hP.YData（1）=原点（2）； 对于ind=2:numPts P=InterX（[x；y]、makeCircle（[hP.XData（ind-1）、hP.YData（ind-1）]、DST/2、cRes）； [~，I]=max（abs（P（1，：）-原点（1）+1i*（P（2，：）-原点（2）））； 如果是doPlot，则暂停（0.1）；结束 扩展数据（ind）=P（1，I）；hP.YData（ind）=P（2，I）； 如果是doPlot，则暂停（0.1）；删除（hAx.Children（1））；结束 结束 席＝H.XDATA（~ISNANN（HP XDATA））；yi=hP.YData（~isnan（hP.YData））； %%嵌套函数： 函数[XY]=生成圆（cnt、R、NPT） P=（cnt（1）+1i*cnt（2））+R*exp（linspace（0,1，nPts）*pi*2i）； 如果是doPlot，则绘制（P，'Color'，线条（1））；结束 XY=[实（P）；imag（P）]； 结束 结束 %%本地功能： 函数tf=isHG2（） 尝试 tf=~verLessThan（'MATLAB'，'8.4'）； 抓住 tf=假； 结束 结束 函数P=InterX（L1，varargin） %文件已删除。有关完整版本，请访问： % https://www.mathworks.com/matlabcentral/fileexchange/22441-curve-intersections narginchk（1,2）； 如果nargin==1 L2=L1；hF=@lt；%。。。避免包含公共点 其他的 L2=varargin{1}；hF=@le； 结束 %…初步材料 x1=L1（1，：）'；x2=L2（1，：）； y1=L1（2，：）'；y2=L2（2，：）； dx1=diff（x1）；dy1=差值（y1）； dx2=diff（x2）；dy2=差值（y2）； %…确定“符号距离” S1=dx1.*y1（1:end-1）-dy1.*x1（1:end-1）； S2=dx2.*y2（1:end-1）-dy2.*x2（1:end-1）； C1=feval（hF，D（bsxfun（@times，dx1，y2）-bsxfun（@times，dy1，x2），S1），0）； C2=feval（hF，D（（bsxfun（@times，y1，dx2）-bsxfun（@times，x1，dy2））'，S2'），0'）； %…获取预期相交的线段 [i，j]=find（C1和C2）； 若为空（i），P=0（2,0）；返回；结束 %…转换并准备输出 i＝i′；dx2=dx2'；dy2=dy2'；S2=S2’； L=dy2（j）。*dx1（i）-dy1（i）。*dx2（j）； i=i（L~=0）；j=j（L~=0）；L=L（L~=0）；%。。。避免以0除法 %…求解等式系统以获得共同点 P=唯一（[dx2（j）。*S1（i）-dx1（i）。*S2（j）。。。 dy2（j）。*S1（i）-dy1（i）。*S2（j）]/[L]，“行”）； 函数u=D（x，y） u=bsxfun（@减号，x（：，1:end-1），y）。*bsxfun（@减号，x（：，2:end），y）； 结束 结束 结果:

---

请注意，在上面的动画中，圆的直径（因此红点之间的距离）是10而不是5。

我想不出沿螺旋线计算距离的方法，所以我用圆来近似它，希望它仍然有用

我的解决方案依赖于FEX的函数，找到圆与螺旋线的交点。我提供了一个动画，所以它更容易理解

代码（在R2017a上测试）：

<代码>函数[x，y，席，y]＝q44 916610（do绘图） %%输入处理： 如果nargin<1 | |是空的（doPlot） doPlot=false； 结束 %%初始化： 原点=[50,50]； 垂直间距=10； θ=5*（2*pi）； %%（x，y）-下伏阿基米德螺线的计算。 b=垂直间距/（2*pi）； θ=0:0.01:thetamax； x=b*theta.*cos（theta）+原点（1）； y=b*theta.*sin（theta）+原点（2）； %%螺旋上等距（xi，yi）点的计算。 DST=5；cRes=360； numPts=ceil（顶点间距*最大值）；%预分配 [xi，yi]=交易（NaN（numPts，1））； 如果doPlot&&isHG2（）%，则仅当MATLAB版本足够新时，才会启用绘图。 图（）；图（x，y，'b-'）；等等轴相等；网格化；格网小调； hAx=gca；hAx.XLim=[-5 105]；hAx.YLim=[-5 105]； hP=图（xi，yi，'r*'）； 其他的 HP =结构（xDATA），席，“yDATA”，YI； 结束 扩展数据（1）=源（1）；hP.YData（1）=原点（2）； 对于ind=2:numPts P=InterX（[x；y]、makeCircle（[hP.XData（ind-1）、hP.YData（ind-1）]、DST/2、cRes）； [~，I]=max（abs（P（1，：）-原点（1）+1i*（P（2，：）-原点（2）））； 如果是doPlot，则暂停（0.1）；结束 扩展数据（ind）=P（1，I）；hP.YData（ind）=P（2，I）； 如果是doPlot，则暂停（0.1）；删除（hAx.Children（1））；结束 结束 席＝H.XDATA（~ISNANN（HP XDATA））；yi=hP.YData（~isnan（hP.YData））； %%嵌套函数： 函数[XY]=生成圆（cnt、R、NPT） P=（cnt（1）+1i*cnt（2））+R*exp（linspace（0,1，nPts）*pi*2i）； 如果是doPlot，则绘制（P，'Color'，线条（1））；结束 XY=[实（P）；imag（P）]； 结束 结束 %%本地功能： 函数tf=isHG2（） 尝试 tf=~verLessThan（'MATLAB'，'8.4'）； 抓住 tf=假； 结束 结束 函数P=InterX（L1，varargin） %文件已删除。有关完整版本，请访问： % https://www.mathworks.com/matlabcentral/fileexchange/22441-curve-intersections narginchk（1,2）； 如果nargin==1 L2=L1；hF=@lt；%。。。避免包含公共点 其他的

function [x,y,xi,yi] = q44916610(doPlot)
%% Input handling:
if nargin < 1 || isempty(doPlot)
  doPlot = false;
end
%% Initialization:
origin = [50,50];
vertspacing = 10;
thetamax = 5*(2*pi);
%% Calculation of (x,y) - underlying archimedean spiral.
b = vertspacing/(2*pi);
theta = 0:0.01:thetamax;
x = b*theta.*cos(theta) + origin(1);
y = b*theta.*sin(theta) + origin(2);
%% Calculation of equidistant (xi,yi) points on spiral.
DST = 5; cRes = 360; 
numPts = ceil(vertspacing*thetamax); % Preallocation
[xi,yi] = deal(NaN(numPts,1));

if doPlot && isHG2() % Plots are only enabled if the MATLAB version is new enough.
  figure(); plot(x,y,'b-'); hold on; axis equal; grid on; grid minor;
  hAx = gca; hAx.XLim = [-5 105]; hAx.YLim = [-5 105];
  hP = plot(xi,yi,'r*');
else
  hP = struct('XData',xi,'YData',yi);
end
hP.XData(1) = origin(1); hP.YData(1) = origin(2);
for ind = 2:numPts
  P = InterX([x;y], makeCircle([hP.XData(ind-1),hP.YData(ind-1)],DST/2,cRes));  
  [~,I] = max(abs(P(1,:)-origin(1)+1i*(P(2,:)-origin(2))));
  if doPlot, pause(0.1); end
  hP.XData(ind) = P(1,I); hP.YData(ind) = P(2,I);
  if doPlot, pause(0.1); delete(hAx.Children(1)); end
end
xi = hP.XData(~isnan(hP.XData)); yi = hP.YData(~isnan(hP.YData));

%% Nested function(s):
function [XY] = makeCircle(cnt, R, nPts)
  P = (cnt(1)+1i*cnt(2))+R*exp(linspace(0,1,nPts)*pi*2i);
  if doPlot, plot(P,'Color',lines(1)); end
  XY = [real(P); imag(P)];
end

end

%% Local function(s):
function tf = isHG2()
  try
    tf = ~verLessThan('MATLAB', '8.4');
  catch
    tf = false;
  end
end

function P = InterX(L1,varargin)
    % DOCUMENTATION REMOVED. For a full version go to:
    % https://www.mathworks.com/matlabcentral/fileexchange/22441-curve-intersections

    narginchk(1,2);
    if nargin == 1
        L2 = L1;    hF = @lt;   %...Avoid the inclusion of common points
    else
        L2 = varargin{1}; hF = @le;
    end

    %...Preliminary stuff
    x1  = L1(1,:)';  x2 = L2(1,:);
    y1  = L1(2,:)';  y2 = L2(2,:);
    dx1 = diff(x1); dy1 = diff(y1);
    dx2 = diff(x2); dy2 = diff(y2);

    %...Determine 'signed distances'   
    S1 = dx1.*y1(1:end-1) - dy1.*x1(1:end-1);
    S2 = dx2.*y2(1:end-1) - dy2.*x2(1:end-1);

    C1 = feval(hF,D(bsxfun(@times,dx1,y2)-bsxfun(@times,dy1,x2),S1),0);
    C2 = feval(hF,D((bsxfun(@times,y1,dx2)-bsxfun(@times,x1,dy2))',S2'),0)';

    %...Obtain the segments where an intersection is expected
    [i,j] = find(C1 & C2); 
    if isempty(i), P = zeros(2,0); return; end

    %...Transpose and prepare for output
    i=i'; dx2=dx2'; dy2=dy2'; S2 = S2';
    L = dy2(j).*dx1(i) - dy1(i).*dx2(j);
    i = i(L~=0); j=j(L~=0); L=L(L~=0);  %...Avoid divisions by 0

    %...Solve system of eqs to get the common points
    P = unique([dx2(j).*S1(i) - dx1(i).*S2(j), ...
                dy2(j).*S1(i) - dy1(i).*S2(j)]./[L L],'rows')';

    function u = D(x,y)
        u = bsxfun(@minus,x(:,1:end-1),y).*bsxfun(@minus,x(:,2:end),y);
    end
end