Hi
has somebody experience with the Archimedean Spiral? In general it is quite simple to create an Archimedean Spiral by e.g. a line function. I rather want to create a spiral with equidistant points. The amount of the "sampling" points should be adjustable. I saw some examples, but I could not follow it, for example:
Equation to place points equidistantly on an Archimedian Spiral using arc-length
I created following code so far:
a = 0.75;
K = 3;
L1 = 90;
rp = 0.0;
alpha = L1*Pi/180;
Sample = 80; (* sampling per azimuth direction *)
M = 1; (* number of spirals *)
x1[t_, m_] := (rp*Cos[alpha]) + a*t*Cos[t + (m*2*Pi/M)];
y1[t_, m_] := (rp*Sin[alpha]) + a*t*Sin[t + (m*2*Pi/M)];
data1 = Table [{x1[t, m], y1[t, m]}, {t, 0, K*2 \[Pi],
2 \[Pi]/Sample}, {m, 1, M}];
dataflat1 = Flatten[data1, 1];
Graphics[{Thick, Blue, PointSize[0.0075], Point[dataflat1]}, Axes -> True, AxesLabel -> {X, Y}]
