16,205 reputation
23193
bio website
location somewhere in England
age
visits member for 2 years, 9 months
seen yesterday

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]

16,205 Reputation

5 Oct 19
+5 13:52 upvote
10 Oct 14
+10 00:23 upvote
10 Oct 12
15 Oct 11
10 Oct 9
10 Oct 8
20 Sep 30
10 Sep 28
15 Sep 27
15 Sep 24
10 Sep 22
10 Sep 16
10 Sep 15
10 Sep 14
10 Sep 13
10 Sep 11
10 Sep 10
5 Aug 23
10 Aug 21
10 Aug 18
10 Aug 17
20 Aug 14
15 Aug 11
40 Aug 8
10 Aug 6
10 Aug 4
10 Jul 27
10 Jul 26
10 Jul 22
10 Jul 21