Fractal Curves Generated by Fourier Series

​
terms
100
1000
5000
10000
animate
show axes
coefficients
exp squared
randomize modulus
randomize coefficients
parameter a
​
1
1
4
1
5
1
7
1
8
1
10
1
5
perturbation eps
0
randomize a
Given a sequence of coefficients
f(n)
,
n=1,2,…
, write the Fourier series
F(t)=
∞
∑
n=1
1
n
f(n)
2πint
e
. For
t∈[0,1]
, the plot of
F(t)
traces out a closed curve in the complex plane. This Demonstration shows this curve for some selected choices of the coefficients
f(n)
.

Details

This Demonstration is inspired by a 1995 paper by J. Bohman and C.-E. Fröberg[1] investigating the Fourier series
F(t)=
∞
∑
n=1
f(n)
2πint
e
n
for various classes of oscillating coefficients
f(n)
. In many cases, they observed remarkable fractal-like patterns in the plots of
F(t)
. More recent work by E. Kowalski and W. F. Sawin[2] examines the behavior of series of this type from a probabilistic point of view. Their work sheds some light on the peculiar shape of the curve traced out by
F(t)
when the coefficients
f(n)
are given by the Möbius function.
This Demonstration shows the closed curve in the complex plane traced out by
F(t)
as
t
ranges from 0 to 1 for the following coefficient sequences
f(n)
:
Möbius:
f(n)μ(n)
, where
μ(n)
is the Möbius function.
Jacobi symbol:
f(n)
n
m
, where the modulus
m
is a prime in the range
2≤m≤20000
, selected randomly. Use the "randomize modulus" button to generate a new randomization.
Exp-squared:
f(n)
2πia
2
n
e
, in which you set the parameter
a
in the range
0≤a≤3
. Of particular interest is the behavior of the associated Fourier series
F(t)
in the case when the parameter
a
is close to a rational number with a small denominator. To study this behavior, this Demonstration offers a list of predefined rational values for
a
. Use the "perturbation" slider to perturb the parameter
a
over a narrow range.
Sine-squared:
f(n)sin(a
2
n
)
, for selected parameter
a
.
Fractional part:
f(n)
an

, for selected parameter
a
. The braces denote the fractional part.
Tangent:
f(n)tan(an)/n
, for selected parameter
a
.
randomize coefficients:
f(n)
is selected randomly, with uniform probability, from
{-1,0,1}
. Use the "randomize coefficients" button to generate a new randomization.
Implementation Notes
This Demonstration uses the built-in Mathematica function Fourier, which, given a list of
N
complex numbers, outputs the discrete Fourier transform of this list. Applying this function to the list
f(n)
n
,n=1,…,N
, we obtain an approximation to the Fourier series
F(t)
, sampled at
N
equally spaced points
t
. The path shown in this Demonstration is the polygonal path through these
N
sampled points. Use the "terms" control to select the truncation value
N
. Larger values provide a more accurate approximation to the true path of
F(t)
, while smaller values lead to smoother animations of these paths.
Snapshot 1: Exp-squared series, with
a=0.001437
and
10000
steps to show more detail. Changing the perturbation will vary the size, shape and position of the fractal-like patterns.
Snapshot 2: Sine-squared series, with
a=0.529914
and
5000
steps. Showing more steps will show more detail, and changing the perturbation will vary the size, shape and position of the fractal-like patterns.
Snapshot 3: Tangent series, with
a=1.31302
and
5000
steps. Changing the perturbation will vary the size of the fractal-like patterns, from points to circles that almost fill the entire shape.

References

[1] J. Bohman and C.-E. Föberg, "Heuristic Investigation of Chaotic Mapping Producing Fractal Objects," BIT Numerical Mathematics, 35, 1995 pp. 609–615. doi:10.1007/BF01739831.
[2] E. Kowalski and W. F. Sawin, "Kloosterman Paths and the Shape of Exponential Sums," Compositio Mathematica, 152(7), 2016 pp. 1489–1516. doi:10.1112/S0010437X16007351.

External Links

Curlicue Fractal
Fractal Curves Generated by the Sum-of-Digits Function
Pseudorandom Walks with Generalized Gauss Sums
Fractal (Wolfram MathWorld)
Fourier Transform (Wolfram MathWorld)
Jacobi Symbol (Wolfram MathWorld)
Moebius Function (Wolfram MathWorld)

Permanent Citation

Nick Kokkines, Andre Park, Efstathios Konstantinos Chrontsios Garitsis, A. J. Hildebrand
​
​"Fractal Curves Generated by Fourier Series"​
​http://demonstrations.wolfram.com/FractalCurvesGeneratedByFourierSeries/​
​Wolfram Demonstrations Project​
​Published: March 22, 2022