Skip to content

Polyhedra obtained by stellation

Stellation is the process of constructing polyhedra by extending the facial planes past the polyhedron edges of a given polyhedron until they intersect. The set of all possible polyhedron edges of the stellations can be obtained by finding all intersections on the facial planes. Since the number and variety of intersections can become unmanageable for complicated polyhedra, additional rules are sometimes added to constrain allowable stellations. ~ Wolfram MathWorld

Lissajous Patterns on a Sphere Surface

Another Demonstration of mine was published at the Wolfram Demonstration Project. It helps to explore and create spherical artistic designs. I  generalized Lissajous curves to spherical coordinates. Azimuthal and polar angles undergo oscillations while the radius is kept constant. Although with the parameterization given I sought to emphasize the artistic side of Lissajous patterns, other spherical parameterizations were suggested for practical applications in MRI imaging. For details see M. Ullisch, T. Stöcker, M. Elliott, K. Vahedipour, and N. Shah, “Rigid Body Motion Detection with Lissajous Navigator Echoes,” Proceedings 17th Scientific Meeting, International Society for Magnetic Resonance in Medicine, 2009 p. 4650. The source code and interactive CDF written in app Mathematica producing these images can be found at the  Wolfram Demonstration Project.

Lissajous Patterns on a Sphere Surface

Stereoscopic 3D Macromolecule 1TF6

Stereoscopic 3D Macromolecule 1TF6 from Vitaliy Kaurov on Vimeo.

To watch this video you need “red-cyan anaglyph glasses”.  This video was made with Mathematica 7. This type of red-cyan anaglyph videos can be useful for display of complex 3D structures. Once the structure is built it takes just a few lines of Mathematica code to render a stereoscopic 3D tour of it. The actual code to produce the visual part is so short that I show it below for instructive purposes. Read about the molecule HERE. Mathematica package: StereoImagery.m by Mark Fisher.

======== Mathematica CODE ========
Needs["StereoImagery`"]
IMG = Import["URL", "PDB", Background -> Black, Axes -> False];
FILMmol = Table[MakeAnaglyph[Show[IMG, ViewAngle -> 33 \[Degree], ViewPoint -> (.1 + Sin[t {1.062, 1.358, 1.566}]), ImageSize -> 1500]] , {t, .3, 3.7 Pi, .005}];
Export["FILMmol.avi", FILMmol]
======== Mathematica CODE ========

The code uses URL: http://www.rcsb.org/pdb/download/downloadFile.do?fileFormat=pdb&\compression=NO&structureId=1tf6

Peter de Jong Ephemeral Attractors

I made another video with Mathematica. The six changing shapes in the video are called attractors. They are graphical forms of a simple mathematical formula attributed to Peter de Jong. At any given moment the way a single attractor looks depends only on four numbers. A slight variation in these numbers can remarkably change the appearance of an attractor. This is why there are so many different shapes and, while the numbers change continuously during the video, the shapes are so fluid, fleeting and flickering. Every frame of the video consists of 600,000 black points on a white background. There are 4,000 frames and therefore the whole video is a dance of 2.4 billion points conducted by a mathematical formula.

Peter de Jong Ephemeral Attractors from Vitaliy Kaurov on Vimeo.

“Mathematica Render” channel and group on Vimeo

“Mathematica Render” channel and group were recently created on Vimeo to gather a community of enthusiasts designing videos using Wolfram Research Mathematica software. The goal is to promote Mathematica examples of dynamic visualizations that can be used in research, education and art. With such Mathematica capabilities as simulated camera, lighting, image processing, various export options, and many other tools quite remarkable results can be achieved. Anyone is welcome to join, share work, ideas and code examples. Please take a look below at a few example videos from “Mathematica Render”.

Dancing Engines from Vitaliy Kaurov on Vimeo.

3D Without Glasses: Driving Mathematica’s Simulated Camera from Vitaliy Kaurov on Vimeo.

Lightshow: Arranging Light Sources in Mathematica from Vitaliy Kaurov on Vimeo.

Mathematica Render

Voronoi Image of Random Walks

The Wolfram Demonstration Project has an excellent example by Yu-Sung Chang showing construction of a Voronoi diagram using distance transform on a set of points in 2D plane. Here same method is used on a set of points which perform random walks. All calculations and animation are done in Mathematica 7. Technical details of creating such Voronoi diagrams can be found HERE.

Wolfram|Alpha Launches Widgets

Vitaliy Kaurov Widgets

Wolfram Alpha LCC launched Widgets and Widget Builder on July 27, 2010. Users are now able to incorporate customizable Wolfram|Alpha queries into their websites, blogs, and social networking sites. Because of the simplicity and power of Widgets, the implications are quite remarkable. Anyone can design an app with personally customized data and calculation interface and share it across the web. Add local weather to your blog, an integral calculator to your academic website, create and share nutrition labels, stock data plots, DNA sequence analysis, and many other Wolfram|Alpha calculations.  The Widget Builder provides flexible tools and is quite easy to master. Publishing a simple widget may take just a few minutes. I already built a few widgets (see the image on the left) and had a lot of fun. Check out my “Relative Weather” widget in the sidebar. I encourage everyone to try and build their own. Go to Wolfram|Alpha Widgets to start.

Cellular Automata Coupled by Overlap or Common Boundary

Another short code I wrote in Mathematica language was accepted by The Wolfram Demonstrations Project. The Demonstration shows the evolution of two elementary cellular automata (CA) sharing several cells. CA are often treated as isolated systems with simple cyclic or Dirichlet boundary conditions. Realistic systems, in contrast, interact with the environment through a boundary. Boundaries can be as simple as solid body surfaces, as complex as walls of living cells, or even have non-geometric nature as the boundaries of social systems. A boundary, having an intricate structure and being a coupling link to the environment, can strongly influence the system dynamics. Here two elementary CA colored red and blue interact via a boundary consisting of black shared cells. The configuration of coupling is schematically shown on the image at the lower-left corner of the graphic. Even the single cell boundary can significantly alter the dynamics of CA. If the black overlap is made significantly large, it can be considered as a 2-color range-2 CA interacting with two elementary CA. The boundary in this case is the line separating CA of different color. The CA exchange information via the bordering cells. The Demonstration also shows how larger neighborhood CA patterns arise from the multiple action of smaller neighborhood CA. Click on the picture below for more technical description and to play with the program. Click on the YouTube icon to view a short video of the demonstration.

Cellular Automata Coupled by Overlap or Common Boundary

Peter de Jong Attractors

The Wolfram Demonstrations Project published a program I wrote in Mathematica code that visualizes recursive formula attributed to Peter de Jong:

x_n = sin(a y_n) - cos(b x_n)
y_n = sin(c x_n) - cos(d y_n)

It can produce beautiful nontrivial structures called attractors. Click on the picture to go to the Wolfram demonstration page where you can animate and interact with this program.

Peter De Jong Attractors

Simulating Flickering Fire with Noisy Cellular Automaton

This is another Mathematica program I wrote published by the Wolfram Demonstrations Project. The program animates flickering fire with a simple mathematical algorithm using Wolfram rule-99 cellular automaton. The algorithm is based on calculation of eigenvalues of a matrix representing the cellular automaton evolution. To play with this program and to read more detailed explanation click on the picture. Click on the YouTube icon to view a short video of the demonstration.

Simulating Flickering Fire with Noisy Cellular Automaton

Coupled Cellular Automata: Symbiotic Patterns and Synchronization

Trivial systems with primitive standalone behavior can produce rich dynamics working in collaboration. The Wolfram Demonstrations Project published my program which allows to couple up to four different one-dimensional elementary cellular automata. It produces some interesting patterns and behaviors beyond those of standalone cellular automata. The program is basically applies idea of coupled recursive maps (see example here) to cellular automata.  Click on the picture below for more technical description and to play with the program.

Coupled Cellular Automata

Two-Dimensional Cellular Automata from One-Dimensional Rules

The Wolfram Demonstrations Project published my program which shows how to reproduce some two-dimensional (2D) cellular automata (CA) with one-dimensional (1D) rules. Thus a large subclass of 2D CA can be conveniently labeled through the standard Wolfram indexing of 1D CA. One step of time evolution of a 2D CA is obtained in two stages. First, apply a 1D rule to all the ROWS of a 2D initial condition. Then to the result apply another 1D rule, but now to all the COLUMNS. This can be mapped onto the subclass of 2^512 two-color 2D CA with a nine cell square neighborhood. It is useful to devise smaller subclasses of the general case to manage classification of such a large number of CA. Examples of such subclasses are totalistic CA, outer-totalistic CA, and the new subclass demonstrated here. Click on the picture below for more technical description and to play with the program. Click on the YouTube icon to view a short video of the demonstration.

Two-Dimensional Cellular Automata from One-Dimensional Rules

Geotagging and image editing with iPhone

This image was taken, edited and geotagged with iPhone 3G. It’s a snapshot of an artist’s drawing on the ground at Union Square, NYC. iPhone apps used:

Kestutis Vaiginis and his jazz in New York

KVaiginis concert Feb 5 2010 A good friend of mine, great Lithuanian jazz saxophonists Kestutis Vaiginis, is now visiting New York to share his art. In May 2008 I made a photo shoot for him and some of the pictures were used to make the cover for his CD “Unexpected Choices “. Today Friday, February 5th he will be presenting this CD and playing in Annunciation Church Hall in Williamsburg with his quartet. Please come and bring your friends. Check out music tracks from the CD on Kestutis’ MySpace.

Unexpected Choices” brings anticipated joy from the music of Kestutis Vaiginis. His vision is wide-ranging from the subtle to the provocative, rooted in an appreciation and yet looking forward. Kestutis is developing a highly personal voice that is primed to make a significant contribution“. ~ Steve Wilson