20
Mar
05

Giant Bubble


We made these giant soap films at the Children’s Museum. Due to surface tension, the sides of these soap films would slowly shrink inward to form a minimal surface called a catenoid:
(* runtime: 4 seconds *)
r := Cosh[z];
ParametricPlot3D[{r Cos[theta], r Sin[theta], z, {EdgeForm[], SurfaceColor[Hue[theta/(2Pi)]]}}, {theta, 0, 2Pi}, {z, -2,2}, Axes -> False, Boxed -> False, PlotPoints -> {73, 51}];

Bubble Links:

Advertisements

0 Responses to “Giant Bubble”



  1. Leave a Comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s


Welcome !

You will find here some of my favorite hobbies and interests, especially science and art.

I hope you enjoy it!

Subscribe to the RSS feed to stay informed when I publish something new here.

I would love to hear from you! Please feel free to send me an email : bugman123-at-gmail-dot-com

Archives

Blog Stats

  • 548,959 hits

%d bloggers like this: