![]() | This article may be too technical for most readers to understand.(December 2023) |
The Lorenz system is a set of three ordinary differential equations, first developed by the meteorologist Edward Lorenz while studying atmospheric convection. It is a classic example of a system that can exhibit chaotic behavior, meaning its output can be highly sensitive to small changes in its starting conditions.
For certain values of its parameters, the system's solutions form a complex, looping pattern known as the Lorenz attractor. The shape of this attractor, when graphed, is famously said to resemble a butterfly. The system's extreme sensitivity to initial conditions gave rise to the popular concept of the butterfly effect—the idea that a small event, like the flap of a butterfly's wings, could ultimately alter large-scale weather patterns. While the system is deterministic—its future behavior is fully determined by its initial conditions—its chaotic nature makes long-term prediction practically impossible.
In 1963, Edward Lorenz developed the system as a simplified mathematical model for atmospheric convection. [1] He was attempting to model the way air moves when heated from below and cooled from above. The model describes how three key properties of this system change over time:
The model was developed with the assistance of Ellen Fetter, who performed the numerical simulations and created the figures, [1] and Margaret Hamilton, who aided in the initial computations. [2] The behavior of these three variables is governed by the following equations:
The constants σ, ρ, and β are parameters representing physical properties of the system: σ is the Prandtl number, ρ is the Rayleigh number, and β relates to the physical dimensions of the fluid layer itself. [3]
From a technical standpoint, the Lorenz system is nonlinear, aperiodic, three-dimensional, and deterministic. While originally for weather, the equations have since been found to model behavior in a wide variety of systems, including lasers, [4] dynamos, [5] electric circuits, [6] and even some chemical reactions. [7] The Lorenz equations have been the subject of hundreds of research articles and at least one book-length study. [3]
One normally assumes that the parameters σ, ρ, and β are positive. Lorenz used the values σ = 10, ρ = 28, and β = 8/3. The system exhibits chaotic behavior for these (and nearby) values. [8]
If ρ < 1 then there is only one equilibrium point, which is at the origin. This point corresponds to no convection. All orbits converge to the origin, which is a global attractor, when ρ < 1. [9]
A pitchfork bifurcation occurs at ρ = 1, and for ρ > 1 two additional critical points appear at These correspond to steady convection. This pair of equilibrium points is stable only if
which can hold only for positive ρ if σ > β + 1. At the critical value, both equilibrium points lose stability through a subcritical Hopf bifurcation. [10]
When ρ = 28, σ = 10, and β = 8/3, the Lorenz system has chaotic solutions (but not all solutions are chaotic). Almost all initial points will tend to an invariant set –the Lorenz attractor –a strange attractor, a fractal, and a self-excited attractor with respect to all three equilibria. Its Hausdorff dimension is estimated from above by the Lyapunov dimension (Kaplan-Yorke dimension) as 2.06±0.01, [11] and the correlation dimension is estimated to be 2.05±0.01. [12] The exact Lyapunov dimension formula of the global attractor can be found analytically under classical restrictions on the parameters: [13] [11] [14]
The Lorenz attractor is difficult to analyze, but the action of the differential equation on the attractor is described by a fairly simple geometric model. [15] Proving that this is indeed the case is the fourteenth problem on the list of Smale's problems. This problem was the first one to be resolved, by Warwick Tucker in 2002. [16]
For other values of ρ, the system displays knotted periodic orbits. For example, with ρ = 99.96 it becomes a T(3,2) torus knot.
Example solutions of the Lorenz system for different values of ρ | |
---|---|
![]() | ![]() |
ρ = 14, σ = 10, β = 8/3 (Enlarge) | ρ = 13, σ = 10, β = 8/3 (Enlarge) |
![]() | ![]() |
ρ = 15, σ = 10, β = 8/3 (Enlarge) | ρ = 28, σ = 10, β = 8/3 (Enlarge) |
For small values of ρ, the system is stable and evolves to one of two fixed point attractors. When ρ > 24.74, the fixed points become repulsors and the trajectory is repelled by them in a very complex way. |
Sensitive dependence on the initial condition | ||
---|---|---|
Time t = 1 (Enlarge) | Time t = 2 (Enlarge) | Time t = 3 (Enlarge) |
![]() | ![]() | ![]() |
These figures — made using ρ = 28, σ = 10, and β = 8/3 — show three time segments of the 3-D evolution of two trajectories (one in blue, the other in yellow) in the Lorenz attractor starting at two initial points that differ only by 10−5 in the x-coordinate. Initially, the two trajectories seem coincident (only the yellow one can be seen, as it is drawn over the blue one) but, after some time, the divergence is obvious. |
Divergence of nearby trajectories. |
---|
![]() |
The parameters are: , , and . Significant divergence is seen at around , beyond which the trajectories become uncorrelated. The full-sized graphic can be accessed here. |
In Figure 4 of his paper, [1] Lorenz plotted the relative maximum value in the z direction achieved by the system against the previous relative maximum in the z direction. This procedure later became known as a Lorenz map (not to be confused with a Poincaré plot, which plots the intersections of a trajectory with a prescribed surface). The resulting plot has a shape very similar to the tent map. Lorenz also found that when the maximum z value is above a certain cut-off, the system will switch to the next lobe. Combining this with the chaos known to be exhibited by the tent map, he showed that the system switches between the two lobes chaotically.
Over the past several years, a series of papers regarding high-dimensional Lorenz models have yielded a generalized Lorenz model, [17] which can be simplified into the classical Lorenz model for three state variables or the following five-dimensional Lorenz model for five state variables: [18]
A choice of the parameter has been applied to be consistent with the choice of the other parameters. See details in. [17] [18]
usingPlots# define the Lorenz attractor@kwdefmutablestructLorenzdt::Float64=0.02σ::Float64=10ρ::Float64=28β::Float64=8/3x::Float64=2y::Float64=1z::Float64=1endfunctionstep!(l::Lorenz)dx=l.σ*(l.y-l.x)dy=l.x*(l.ρ-l.z)-l.ydz=l.x*l.y-l.β*l.zl.x+=l.dt*dxl.y+=l.dt*dyl.z+=l.dt*dzendattractor=Lorenz()# initialize a 3D plot with 1 empty seriesplt=plot3d(1,xlim=(-30,30),ylim=(-30,30),zlim=(0,60),title="Lorenz Attractor",marker=2,)# build an animated gif by pushing new points to the plot, saving every 10th frame@giffori=1:1500step!(attractor)push!(plt,attractor.x,attractor.y,attractor.z)endevery10
deq:=[diff(x(t),t)=10*(y(t)-x(t)),diff(y(t),t)=28*x(t)-y(t)-x(t)*z(t),diff(z(t),t)=x(t)*y(t)-8/3*z(t)]:with(DEtools):DEplot3d(deq,{x(t),y(t),z(t)},t=0..100,[[x(0)=10,y(0)=10,z(0)=10]],stepsize=0.01,x=-20..20,y=-25..25,z=0..50,linecolour=sin(t*Pi/3),thickness=1,orientation=[-40,80],title=`Lorenz Chaotic Attractor`);
[sigma,rho,beta]:[10,28,8/3]$eq:[sigma*(y-x),x*(rho-z)-y,x*y-beta*z]$sol:rk(eq,[x,y,z],[1,0,0],[t,0,50,1/100])$len:length(sol)$x:makelist(sol[k][2],k,len)$y:makelist(sol[k][3],k,len)$z:makelist(sol[k][4],k,len)$draw3d(points_joined=true,point_type=-1,points(x,y,z),proportional_axes=xyz)$
% Solve over time interval [0,100] with initial conditions [1,1,1]% ''f'' is set of differential equations% ''a'' is array containing x, y, and z variables% ''t'' is time variablesigma=10;beta=8/3;rho=28;f=@(t,a)[-sigma*a(1)+sigma*a(2);rho*a(1)-a(2)-a(1)*a(3);-beta*a(3)+a(1)*a(2)];[t,a]=ode45(f,[0100],[111]);% Runge-Kutta 4th/5th order ODE solverplot3(a(:,1),a(:,2),a(:,3))
Standard way:
tend=50;eq={x'[t]==σ(y[t]-x[t]),y'[t]==x[t](ρ-z[t])-y[t],z'[t]==x[t]y[t]-βz[t]};init={x[0]==10,y[0]==10,z[0]==10};pars={σ->10,ρ->28,β->8/3};{xs,ys,zs}=NDSolveValue[{eq/.pars,init},{x,y,z},{t,0,tend}];ParametricPlot3D[{xs[t],ys[t],zs[t]},{t,0,tend}]
Less verbose:
lorenz=NonlinearStateSpaceModel[{{σ(y-x),x(ρ-z)-y,xy-βz},{}},{x,y,z},{σ,ρ,β}];soln[t_]=StateResponse[{lorenz,{10,10,10}},{10,28,8/3},{t,0,50}];ParametricPlot3D[soln[t],{t,0,50}]
import matplotlib.pyplot as plt from mpl_toolkits.mplot3d import Axes3D import numpy as np
points = {
'A': (0, 0, 0), 'B': (4, 0, 0), 'C': (4, 4, 0), 'D': (0, 4, 0), 'E': (0, 0, 4), 'F': (4, 0, 4), 'G': (4, 4, 4), 'H': (0, 4, 4), 'P': (4, 4, 2) # titik tengah CG
}
edges = [
('A', 'B'), ('B', 'C'), ('C', 'D'), ('D', 'A'), # alas bawah ('E', 'F'), ('F', 'G'), ('G', 'H'), ('H', 'E'), # alas atas ('A', 'E'), ('B', 'F'), ('C', 'G'), ('D', 'H') # tegak
]
extra_lines = [
('A', 'H'), # AH ('A', 'G'), # AG ('C', 'E'), # CE ('C', 'P') # CP (menunjukkan letak P)
]
fig = plt.figure(figsize=(10, 8)) ax = fig.add_subplot(111, projection='3d')
for start, end in edges:
xs, ys, zs = zip(points[start], points[end]) ax.plot(xs, ys, zs, color='black')
colors = {'AH': 'green', 'AG': 'red', 'CE': 'blue', 'CP': 'orange'} for start, end in extra_lines:
xs, ys, zs = zip(points[start], points[end]) ax.plot(xs, ys, zs, linestyle='--', color=colors.get(start+end, 'gray'))
for name, (x, y, z) in points.items():
ax.scatter(x, y, z, s=50) ax.text(x, y, z, f' {name}', size=12, color='black')
ax.set_xlim(0, 5) ax.set_ylim(0, 5) ax.set_zlim(0, 5)
ax.set_xlabel('X') ax.set_ylabel('Y') ax.set_zlabel('Z') ax.set_title('Kubus ABCD.EFGH dengan Titik P (Tengah CG) dan Garis Tambahan')
plt.tight_layout() plt.show()
library(deSolve)library(plotly)# parametersprm<-list(sigma=10,rho=28,beta=8/3)# initial valuesvarini<-c(X=1,Y=1,Z=1)Lorenz<-function(t,vars,prm){with(as.list(vars),{dX<-prm$sigma*(Y-X)dY<-X*(prm$rho-Z)-YdZ<-X*Y-prm$beta*Zreturn(list(c(dX,dY,dZ)))})}times<-seq(from=0,to=100,by=0.01)# call ode solverout<-ode(y=varini,times=times,func=Lorenz,parms=prm)# to assign color to pointsgfill<-function(repArr,long){rep(repArr,ceiling(long/length(repArr)))[1:long]}dout<-as.data.frame(out)dout$color<-gfill(rainbow(10),nrow(dout))# Graphics production with Plotly:plot_ly(data=dout,x=~X,y=~Y,z=~Z,type='scatter3d',mode='lines',opacity=1,line=list(width=6,color=~color,reverscale=FALSE))
We try to solve this system of equations for , , , with initial conditions , , .
# we solve the Lorenz system of the differential equations.# Runge-Kutta's method y_{n+1}= y_n + h*(k_1 + 2*k_2+2*k_3+k_4)/6; x_{n+1}=x_n+h# k_1=f(x_n,y_n), k_2=f(x_n+h/2, y_n+hk_1/2), k_3=f(x_n+h/2, y_n+hk_2/2), k_4=f(x_n+h, y_n+hk_3)# differential equationdefRunge_Kutta(f,v,a,b,h,n):tlist=[a+i*hforiinrange(n+1)]y=[[0,0,0]for_inrange(n+1)]# Taking length of f (number of equations).m=len(f)# Number of variables in v.vm=len(v)ifm!=vm:return("error, number of equations is not equal with the number of variables.")forrinrange(vm):y[0][r]=b[r]# making a vector and component will be a list # main part of the algorithm k1=[0for_inrange(m)]k2=[0for_inrange(m)]k3=[0for_inrange(m)]k4=[0for_inrange(m)]foriinrange(1,n+1):# for each t_i, i=1, ... , n# k1=h*f(t_{i-1},x_1(t_{i-1}),...,x_m(t_{i-1}))forjinrange(m):# for each f_{j+1}, j=0, ... , m-1k1[j]=f[j].subs(t==tlist[i-1])forrinrange(vm):k1[j]=k1[j].subs(v[r]==y[i-1][r])k1[j]=h*k1[j]forjinrange(m):# k2=h*f(t_{i-1}+h/2,x_1(t_{i-1})+k1/2,...,x_m(t_{i-1}+k1/2))k2[j]=f[j].subs(t==tlist[i-1]+h/2)forrinrange(vm):k2[j]=k2[j].subs(v[r]==y[i-1][r]+k1[r]/2)k2[j]=h*k2[j]forjinrange(m):# k3=h*f(t_{i-1}+h/2,x_1(t_{i-1})+k2/2,...,x_m(t_{i-1})+k2/2)k3[j]=f[j].subs(t==tlist[i-1]+h/2)forrinrange(vm):k3[j]=k3[j].subs(v[r]==y[i-1][r]+k2[r]/2)k3[j]=h*k3[j]forjinrange(m):# k4=h*f(t_{i-1}+h,x_1(t_{i-1})+k3,...,x_m(t_{i-1})+k3)k4[j]=f[j].subs(t==tlist[i-1]+h)forrinrange(vm):k4[j]=k4[j].subs(v[r]==y[i-1][r]+k3[r])k4[j]=h*k4[j]forjinrange(m):# Now x_j(t_i)=x_j(t_{i-1})+(k1+2k2+2k3+k4)/6y[i][j]=y[i-1][j]+(k1[j]+2*k2[j]+2*k3[j]+k4[j])/6return(tlist,y)# (Figure 1) Here, we plot the solutions of the Lorenz ODE system. a=0.0# t_0b=[0.0,.50,0.0]# x_1(t_0), ... , x_m(t_0)t=var('t')x=var('x',n=3,latex_name='x')v=[x[ii]foriiinrange(3)]f=[10*(x1-x0),x0*(28-x2)-x1,x0*x1-(8/3)*x2];n=1600h=0.0125tlist,y=Runge_Kutta(f,v,a,b,h,n)#print(tlist)#print(y)T=point3d([[y[i][0],y[i][1],y[i][2]]foriinrange(n)],color='red')S=line3d([[y[i][0],y[i][1],y[i][2]]foriinrange(n)],color='red')show(T+S)# (Figure 2) Here, we plot every y1, y2, and y3 in terms of time.a=0.0# t_0b=[0.0,.50,0.0]# x_1(t_0), ... , x_m(t_0)t=var('t')x=var('x',n=3,latex_name='x')v=[x[ii]foriiinrange(3)]Lorenz=[10*(x1-x0),x0*(28-x2)-x1,x0*x1-(8/3)*x2];n=100h=0.1tlist,y=Runge_Kutta(Lorenz,v,a,b,h,n)#Runge_Kutta(f,v,0,b,h,n)#print(tlist)#print(y)P1=list_plot([[tlist[i],y[i][0]]foriinrange(n)],plotjoined=True,color='red');P2=list_plot([[tlist[i],y[i][1]]foriinrange(n)],plotjoined=True,color='green');P3=list_plot([[tlist[i],y[i][2]]foriinrange(n)],plotjoined=True,color='yellow');show(P1+P2+P3)# (Figure 3) Here, we plot the y and x or equivalently y2 and y1 a=0.0# t_0b=[0.0,.50,0.0]# x_1(t_0), ... , x_m(t_0)t=var('t')x=var('x',n=3,latex_name='x')v=[x[ii]foriiinrange(3)]f=[10*(x1-x0),x0*(28-x2)-x1,x0*x1-(8/3)*x2];n=800h=0.025tlist,y=Runge_Kutta(f,v,a,b,h,n)vv=[[y[i][0],y[i][1]]foriinrange(n)];#print(tlist)#print(y)T=points(vv,rgbcolor=(0.2,0.6,0.1),pointsize=10)S=line(vv,rgbcolor=(0.2,0.6,0.1))show(T+S)# (Figure 4) Here, we plot the z and x or equivalently y3 and y1 a=0.0# t_0b=[0.0,.50,0.0]# x_1(t_0), ... , x_m(t_0)t=var('t')x=var('x',n=3,latex_name='x')v=[x[ii]foriiinrange(3)]f=[10*(x1-x0),x0*(28-x2)-x1,x0*x1-(8/3)*x2];n=800h=0.025tlist,y=Runge_Kutta(f,v,a,b,h,n)vv=[[y[i][0],y[i][2]]foriinrange(n)];#print(tlist)#print(y)T=points(vv,rgbcolor=(0.2,0.6,0.1),pointsize=10)S=line(vv,rgbcolor=(0.2,0.6,0.1))show(T+S)# (Figure 5) Here, we plot the z and x or equivalently y3 and y2 a=0.0# t_0b=[0.0,.50,0.0]# x_1(t_0), ... , x_m(t_0)t=var('t')x=var('x',n=3,latex_name='x')v=[x[ii]foriiinrange(3)]f=[10*(x1-x0),x0*(28-x2)-x1,x0*x1-(8/3)*x2];n=800h=0.025tlist,y=Runge_Kutta(f,v,a,b,h,n)vv=[[y[i][1],y[i][2]]foriinrange(n)];#print(tlist)#print(y)T=points(vv,rgbcolor=(0.2,0.6,0.1),pointsize=10)S=line(vv,rgbcolor=(0.2,0.6,0.1))show(T+S)
As shown in Lorenz's original paper, [19] the Lorenz system is a reduced version of a larger system studied earlier by Barry Saltzman. [20] The Lorenz equations are derived from the Oberbeck–Boussinesq approximation to the equations describing fluid circulation in a shallow layer of fluid, heated uniformly from below and cooled uniformly from above. [21] This fluid circulation is known as Rayleigh–Bénard convection. The fluid is assumed to circulate in two dimensions (vertical and horizontal) with periodic rectangular boundary conditions. [22]
The partial differential equations modeling the system's stream function and temperature are subjected to a spectral Galerkin approximation: the hydrodynamic fields are expanded in Fourier series, which are then severely truncated to a single term for the stream function and two terms for the temperature. This reduces the model equations to a set of three coupled, nonlinear ordinary differential equations. A detailed derivation may be found, for example, in nonlinear dynamics texts from Hilborn (2000), Appendix C; Bergé, Pomeau & Vidal (1984), Appendix D; or Shen (2016), [23] Supplementary Materials.
The scientific community accepts that the chaotic features found in low-dimensional Lorenz models could represent features of the Earth's atmosphere, [24] [25] [26] yielding the statement of “weather is chaotic.” By comparison, based on the concept of attractor coexistence within the generalized Lorenz model [17] and the original Lorenz model, [27] [28] Shen and his co-authors proposed a revised view that “weather possesses both chaos and order with distinct predictability”. [26] [29] The revised view, which is a build-up of the conventional view, is used to suggest that “the chaotic and regular features found in theoretical Lorenz models could better represent features of the Earth's atmosphere”.
Smale's 14th problem asks, "Do the properties of the Lorenz attractor exhibit that of a strange attractor?". The problem was answered affirmatively by Warwick Tucker in 2002. [16] To prove this result, Tucker used rigorous numerics methods like interval arithmetic and normal forms. First, Tucker defined a cross section that is cut transversely by the flow trajectories. From this, one can define the first-return map , which assigns to each the point where the trajectory of first intersects .
Then the proof is split in three main points that are proved and imply the existence of a strange attractor. [30] The three points are:
To prove the first point, we notice that the cross section is cut by two arcs formed by . [30] Tucker covers the location of these two arcs by small rectangles , the union of these rectangles gives . Now, the goal is to prove that for all points in , the flow will bring back the points in , in . To do that, we take a plan below at a distance small, then by taking the center of and using Euler integration method, one can estimate where the flow will bring in which gives us a new point . Then, one can estimate where the points in will be mapped in using Taylor expansion, this gives us a new rectangle centered on . Thus we know that all points in will be mapped in . The goal is to do this method recursively until the flow comes back to and we obtain a rectangle in such that we know that . The problem is that our estimation may become imprecise after several iterations, thus what Tucker does is to split into smaller rectangles and then apply the process recursively. Another problem is that as we are applying this algorithm, the flow becomes more 'horizontal', [30] leading to a dramatic increase in imprecision. To prevent this, the algorithm changes the orientation of the cross sections, becoming either horizontal or vertical.