Wave Equation

The wave equation is a partial differential equation that describes the propagation of various types of waves. The equation appears throughout many fields in physics, including acoustics, fluid dynamics, electromagnetism, and quantum mechanics. With some modifications, it can even describe the spread of traffic jams on busy highways! The one-dimensional equation was first discovered by d’Alembert in 1746 as he studied how vibrations propagated through a string, and the two- and three-dimensional equations were solved soon after by Euler during his study of acoustics. The simulations above show the propagation of a disturbance on a two-dimensional surface for two different sets of boundary conditions [1] [2]. Mathematica code posted here. ...

Jan 28, 2015 Â· Brian Weinstein

Platonic Solids

A Platonic solid is a polyhedron where (1) each face is the same regular polygon, and (2) each vertex joins the same number of faces. The Platonic solids are highly symmetrical, and, in three dimensions, only five such solids can exist: the tetrahedron, cube, octahedron, dodecahedron, and icosahedron. This was first proven in Euclid’s Elements around 300 B.C., and has since been more rigorously proven using the Euler characteristic. The proofs are relatively easy to follow, and if you’re interested you can check them out both here and here. Mathematica code: pSolids={"Tetrahedron","Cube","Octahedron","Dodecahedron","Icosahedron"} Manipulate[Graphics3D[ {Opacity[0.8],Rotate[PolyhedronData[pSolids[[n]],"Faces"],th,{0,0,1}], Opacity[0],Circumsphere[PolyhedronData[pSolids[[n]], "VertexCoordinates"][[1;;4]]]}, Boxed->False,SphericalRegion->True],{n,1,5,1},{th,0,2\[Pi]}] ...

Jan 20, 2015 Â· Brian Weinstein

Lonely Runner Conjecture

Imagine n runners on a circular track of length 1. The runners start from the same spot at the same time, and each has a distinct, constant speed. A runner is considered “lonely” whenever it is a distance of at least 1/n from every other runner. The Lonely Runner Conjecture (LRC) states that each runner will eventually, at some point in time, be lonely. Said differently, the LRC states that for each runner, the spacing around it will eventually be greater than or equal to the spacing it would experience if the all of the runners were equally distributed around the track. The conjecture has been proven to be true for 7 or fewer runners, but, interestingly enough, has never been proven to work for all cases of 8 or more runners. [In my 8-runner simulation above, I’ve only shown that it works for a specific set of runner speeds — I haven’t proven that it works for all sets of speeds.] In the GIFs above, an arc appears around a runner whenever the runner is lonely, and the color of a runner fades after it’s been lonely at least once. Mathematica code posted here. Additional sources not linked above: [1] [2] [3] ...

Dec 25, 2014 Â· Brian Weinstein

Modeling Comet 67P

Two weeks ago, the ESA made history by landing a spacecraft on a comet. The spacecraft, named Philae, was carried to Comet 67P by a larger space probe named Rosetta. Determining where Philae would land was a big step in this mission. Many attributes about the comet, including its topography, were taken into account. To help in this process, the ESA derived a 3D model of the comet’s surface, and the data (made up of over 30,000 measurements) was recently released. The images above use ESA data to model the surface of 67P. By adjusting lighting and orientation, actual photos taken by Rosetta (images 3 and 5) can be reproduced. You can play around with the model yourself! Either use the code below in Mathematica or on the Wolfram Programming Cloud (with a free account), or play with the model online by clicking here*. *This link will expire on Dec 23, 2014, after which you’ll have to upload the .obj file directly to the online viewer. Mathematica code: objLink = "http://sci.esa.int/science-e/www/object/doc.cfm?fobjectid=54726"; comet = Import[objLink, "OBJ"]; pts = Import[objLink, {"OBJ", "VertexData"}]; ListSurfacePlot3D[pts, MaxPlotPoints -> 20, Mesh -> All, MeshStyle -> Opacity[0.4]] Show[comet, Background -> Black, Lighting -> {{"Directional", LightGray, {-7, -10, 10}}}] Additional sources: [1] [2] [3] Images 3 & 5: ESA/Rosetta/NAVCAM, CC BY-SA IGO 3.0 ...

Nov 24, 2014 Â· Brian Weinstein

Harmonographs

A harmonograph is a mechanical device consisting of two or more pendulums attached to a pen. The swinging pendulums control the motion of the pen, tracing out a geometric pattern on a sheet of paper. Since the system is damped by friction, the pattern spirals in on itself as time progresses. Each of the GIFs above simulate the output of a 4-pendulum system (modeled after a harmonograph as configured in this video). The different outputs are generated by using different pendulum length ratios in each simulation. Mathematica code posted here. Additional source not linked above. ...

Nov 10, 2014 Â· Brian Weinstein