Image:Pentatope of 70 spheres animation original.gif

• Animated GIF (640x480 pixels, 2752828 bytes) showing 4-dimensional balls stacked into a 4-dimensional pyramid (5x5x5x5), animated through successive 3-dimensional cross-sections.
• Versions: Original size. Smaller versions are Image:Pentatope of 70 spheres animation large.gif and Image:Pentatope of 70 spheres animation.gif.
• Author: Rendered by Blotwell using POV-Ray and converted with Adobe ImageReady.

Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. A copy of the license is included in the section entitled "GNU Free Documentation License". العربية | Asturianu | Български | বাংলা | ইমার ঠার | Brezhoneg | Bosanski | Català | Sinugboanong Binisaya | Česky | Dansk | Deutsch | Ελληνικά | English | Esperanto | Español | Eesti | Euskara | فارسی | Suomi | Français | Galego | עברית | Hrvatski | Magyar | Bahasa Indonesia | Ido | Íslenska | Italiano | 日本語 | ქართული | 한국어 | Kurdî / كوردي | Latina | Lëtzebuergesch | Lietuvių | Bahasa Melayu | Nnapulitano | Nederlands | Norsk (nynorsk) | Norsk (bokmål) | Polski | Português | Română | Русский | Slovenčina | Slovenščina | Shqip | Српски | Svenska | తెలుగు | ไทย | Türkçe | Українська | اردو | Tiếng Việt | Volapük | 中文(简体) | 中文(繁體) | +/-

[edit] POV-Ray source

 // Pentatope of 70 spheres POV-Ray source by Blotwell
 // Uploaded to Wikimedia Commons
 // and released under GPL
 //
 // Render frames 0 through 43 (43 is blank)
 
 #max_trace_level 15
 #declare sq = 1/sqrt(2);
 #declare T = ((clock-5)/4)*sq;
 #declare vx = <2,0,0>;
 #declare vy = <1,0,1>;
 #declare vw = <1,0,-1>;
 #declare vz = <1,sqrt(5/2),0>;
 
 #declare my_sphere_1 =
 sphere { <0,0,0>,1 pigment { color rgbf <.9,1,.9,.9> }
       finish { refraction 1 ior 1.2 } };
 #declare my_sphere_2 =
 sphere { <0,0,0>,1 pigment { color rgbf <.9,.9,1,.9> }
       finish { refraction 1 ior 1.2 } };
 #declare my_sphere_3 =
 sphere { <0,0,0>,1 pigment { color rgbf <1,1,.8,.9> }
       finish { refraction 1 ior 1.2 } };
 #declare my_sphere_4 =
 sphere { <0,0,0>,1 pigment { color rgbf <1,.9,.9,.9> }
       finish { refraction 1 ior 1.2 } };
 #declare my_sphere_5 =
 sphere { <0,0,0>,1 pigment { color rgbf <.9,.9,.9,.9> }
       finish { refraction 1 ior 1.2 } };
 
 camera {
   location <-8,15,-12>-4*vz
   right <2/3,0,0>
   up <0,1/2,0>
   look_at 4*vz-<0,3,0>
 }
 
 light_source {vx*10+<0,10,0> color rgb <1,1,1>}
 light_source {vy*10+<0,10,0> color rgb <1,1,1>}
 
 plane { <0,1,0>, 0 
        finish {ambient 0.2}
        pigment { marble turbulence 1
                color_map { [0.0 rgb 1] [0.9 rgb 0.9] [1.0 rgb <0.6,0.5,0.5>] }
                scale 6 } }
 
 plane { <0,-1,0>, -12 
        finish {ambient 1}
        pigment { color rgb <.6,.6,.8> } }
 
 union {
 #declare www=0; #while (www<5)
 #declare exe=0; #while (exe<5-www)
 #declare wye=0; #while (wye<5-www-exe)
 #declare tee=(www+wye)*sq*2; #if (tee-1<T) #if (tee+1>T)
 object {my_sphere_1 scale sqrt(1-(T-tee)*(T-tee)) translate y+www*vw+exe*vx+wye*vy}
 #end #end
 #declare wye=wye+1; #end #declare exe=exe+1; #end #declare www=www+1; #end
 
 #declare www=0; #while (www<4)
 #declare exe=0; #while (exe<4-www)
 #declare wye=0; #while (wye<4-www-exe)
 #declare tee=(www+wye)*sq*2+sq; #if (tee-1<T) #if (tee+1>T)
 object {my_sphere_2 scale sqrt(1-(T-tee)*(T-tee)) translate y+vz+www*vw+exe*vx+wye*vy}
 #end #end
 #declare wye=wye+1; #end #declare exe=exe+1; #end #declare www=www+1; #end
 
 #declare www=0; #while (www<3)
 #declare exe=0; #while (exe<3-www)
 #declare wye=0; #while (wye<3-www-exe)
 #declare tee=(www+wye)*sq*2+2*sq; #if (tee-1<T) #if (tee+1>T)
 object {my_sphere_3 scale sqrt(1-(T-tee)*(T-tee)) translate y+2*vz+www*vw+exe*vx+wye*vy}
 #end #end
 #declare wye=wye+1; #end #declare exe=exe+1; #end #declare www=www+1; #end
 
 #declare www=0; #while (www<2)
 #declare exe=0; #while (exe<2-www)
 #declare wye=0; #while (wye<2-www-exe)
 #declare tee=(www+wye)*sq*2+3*sq; #if (tee-1<T) #if (tee+1>T)
 object {my_sphere_4 scale sqrt(1-(T-tee)*(T-tee)) translate y+3*vz+www*vw+exe*vx+wye*vy}
 #end #end
 #declare wye=wye+1; #end #declare exe=exe+1; #end #declare www=www+1; #end
 
 #declare www=0; #while (www<1)
 #declare exe=0; #while (exe<1-www)
 #declare wye=0; #while (wye<1-www-exe)
 #declare tee=(www+wye)*sq*2+4*sq; #if (tee-1<T) #if (tee+1>T)
 object {my_sphere_5 scale sqrt(1-(T-tee)*(T-tee)) translate y+4*vz+www*vw+exe*vx+wye*vy}
 #end #end
 #declare wye=wye+1; #end #declare exe=exe+1; #end #declare www=www+1; #end
 }

This work is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or any later version. This work is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. العربية ǀ Česky ǀ Deutsch ǀ English ǀ Español ǀ فارسی ǀ Français ǀ Italiano ǀ 日本語 ǀ Nederlands ǀ Polski ǀ Português ǀ Русский ǀ Svenska ǀ Türkçe ǀ 简体中文 ǀ 正體中文 ǀ +/-