Pure entertainment: click the "crawl" control button for 100 steps and study the movements of an artificial worm.


  • [Snapshot]
  • [Snapshot]
  • [Snapshot]


This is an application of the Mathematica built-in functions Tube and BSplineCurve. Some control points are provided and the curved tube will follow by bending gently.
Use this control to let the worm crawl 1, 10, 100, or 1000 steps.
This slider controls the thickness of the worm.
This slider selects the spline degree of the worm curve. The higher the degree, the smoother the curve.
This slider controls the agility of the worm. The higher the agility, the more bends it makes.
"light = Neutral/Automatic/None" are three lighting options.
Click this checkbox to show the coordinate axes.
Click this checkbox to show a 6×6 grid in the plane.
Click this checkbox to show a 6×6 gray square (the floor) in the plane.
"max height"
The worms stays in a box of size 12×12×(2×max height).
Hence the variable "max height" determines how far above or below the 12×12 floor grid the worm can venture.
"floor opacity"
This slider controls the opacity of the floor.
"worm", "floor", "bgr"
These controls select the colors of the worm, floor, and background.
The Demonstration runs faster if you unselect "floor" and "grid".
See also 3D Curve Constructor by the same author.
    • Share:

Embed Interactive Demonstration New!

Just copy and paste this snippet of JavaScript code into your website or blog to put the live Demonstration on your site. More details »

Files require Wolfram CDF Player or Mathematica.

Mathematica »
The #1 tool for creating Demonstrations
and anything technical.
Wolfram|Alpha »
Explore anything with the first
computational knowledge engine.
MathWorld »
The web's most extensive
mathematics resource.
Course Assistant Apps »
An app for every course—
right in the palm of your hand.
Wolfram Blog »
Read our views on math,
science, and technology.
Computable Document Format »
The format that makes Demonstrations
(and any information) easy to share and
interact with.
STEM Initiative »
Programs & resources for
educators, schools & students.
Computerbasedmath.org »
Join the initiative for modernizing
math education.
Step-by-Step Solutions »
Walk through homework problems one step at a time, with hints to help along the way.
Wolfram Problem Generator »
Unlimited random practice problems and answers with built-in step-by-step solutions. Practice online or make a printable study sheet.
Wolfram Language »
Knowledge-based programming for everyone.
Powered by Wolfram Mathematica © 2018 Wolfram Demonstrations Project & Contributors  |  Terms of Use  |  Privacy Policy  |  RSS Give us your feedback
Note: To run this Demonstration you need Mathematica 7+ or the free Mathematica Player 7EX
Download or upgrade to Mathematica Player 7EX
I already have Mathematica Player or Mathematica 7+