15,899 reputation
23089
bio website
location somewhere in England
age
visits member for 2 years, 6 months
seen 14 hours ago

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]

Dec
23
awarded  Good Question
Dec
11
awarded  Nice Answer
Dec
1
awarded  Notable Question
Nov
27
awarded  Good Answer
Nov
15
awarded  Enlightened
Nov
1
awarded  Nice Answer
Oct
29
awarded  Popular Question
Oct
6
awarded  Nice Answer
Oct
2
awarded  Nice Answer
Sep
21
awarded  Popular Question
Sep
15
awarded  Good Answer
Sep
11
awarded  Popular Question
Aug
31
awarded  Good Question
Aug
23
awarded  Good Question
Aug
21
awarded  Disciplined
Aug
9
awarded  Nice Question
Jul
16
awarded  Mortarboard
Jul
16
awarded  Nice Answer
Jul
3
awarded  Electorate
Jun
26
awarded  Enlightened