16,370 reputation
23395
bio website
location somewhere in England
age
visits member for 2 years, 11 months
seen Nov 7 at 8:15

Mathematica apprentice

My gravatar was made with the following Mathematica code:

Graphics3D[{
  GrayLevel[.3], Specularity[White, 15],
  Lighting -> {{"Directional", 
     RGBColor[.3, .3, .4], {{5, 5, 10}, {5, 5, 0}}},
    {"Point", Black, {12, 3, 15}},  
    {"Point", White, {12, 3, 4}}},
  KnotData[{"TorusKnot", {2, 5}}, "ImageData"]}, 
 ViewVector -> {{0, 0, 5}, {0, 0, 0}}, Boxed -> False, 
 Background -> None, Axes -> False, ImageSize -> 1000]

Jun
1
awarded  Enlightened
Jun
1
awarded  Nice Answer
May
12
awarded  Popular Question
May
11
awarded  graphics3d
May
10
awarded  Enlightened
May
10
awarded  Nice Answer
Apr
2
awarded  Necromancer
Mar
14
awarded  Announcer
Mar
7
awarded  Taxonomist
Feb
4
awarded  Popular Question
Jan
17
awarded  Yearling
Jan
1
revised Solving a linear fourth-order fractional integro-differential equation
spelling in title
Dec
30
comment Checking whether a number can be composed from the cube of its digit
Func[300] returns 0 on my machine...
Dec
30
comment How copy a large cell into clipboard using `input text`?
Works as it should on Mac OS X, Mathematica 9.0.1 - copied all 3011 lines as Input Text into a text editor. So it might be a Windows-specific issue...
Dec
28
comment CDF Infokit question
Also related: courseware of the future
Dec
27
comment Interactive plot with checklist
No not at all! :) The great thing about this site is how you experts give so much more than the minimum necessary...
Dec
27
comment Interactive plot with checklist
"just a hint" :)
Dec
26
revised Plot discontinuous function with black and white disks marking discontinuities
spelling title
Dec
26
comment How to generate a random snowflake
+1 at least it looks a bit like a snowflake - half the images on this page are just wannabe hexagons... :)
Dec
24
comment How many Christmas gifts?
+1 this is so clever!