Image:Maps s1 s2.png

From Wikipedia, the free encyclopedia

• Image
• File history
• File links

No higher resolution available.
Maps_s1_s2.png‎ (374 × 101 pixels, file size: 3 KB, MIME type: image/png)

I, the copyright holder of this work, hereby release it into the public domain. This applies worldwide. In case this is not legally possible, I grant any entity the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

<<Graphics`Shapes` p3[x_,y_,z_]={x/Sqrt[x x+y y+z z],y/Sqrt[x x+y y+z z],z/Sqrt[x x+y y+z z]}; n=1000; Show[Graphics3D[{Sphere[1,30,30],PointSize[0.02],Table[Point[p3[2+ Sin[2π a/n],1+Sin[2 π a/n],Cos[ 2π a/n]]],{a,1,n}]}],Boxed\[Rule]False,ViewPoint\[Rule]{1,0,0}] Show[Graphics3D[{Sphere[1, 30, 30], PointSize[0.02], Table[Point[p3[2 + Sin[2π a/n], 1 + Sin[4 π a/n], Cos[2π a/n]]], {a, 1, n}]}], Boxed -> False, ViewPoint -> {1, 0, 0}] b = 3/2; Show[Graphics3D[{Sphere[1, 30, 30], PointSize[0.02], Table[ If[ a < n/2, Point[p3[2 + Sin[b π a/n], 1 + Sin[b π a/n], Cos[b π a/n]]], Point[p3[2 + Sin[b π a/n + π/4], 1 + Sin[ b π a/n + π/4], Cos[b π a/n + π/4]]], ], {a, 1, n}]}], Boxed -> False, ViewPoint -> {1, 0, 0}]

File history

Click on a date/time to view the file as it appeared at that time.

• Search for duplicate files
• Edit this file using an external application

  See the setup instructions for more information.

File links