14,493 reputation
20 66

Jason B

Day job is simulating nonadiabatic wavepacket dynamics, but I come here because I miss doing homework problems.

Profile picture is

a = 2;
f = (a + Cos[u/2] Sin[t] - Sin[u/2] Sin[2 t]) Cos[u];
g = (a + Cos[u/2] Sin[t] - Sin[u/2] Sin[2 t]) Sin[u];
h = Sin[u/2] Sin[t] + Cos[u/2] Sin[2 t];
ParametricPlot3D[{
  {f, g, h},
  {h, (f - a), g}},
 {t, 0, 2 Pi}, {u, 0, 2 Pi}, ColorFunction -> (Hue[#5] &),
 Mesh -> None,
 Boxed -> False,
 Axes -> False,
 PlotPoints -> {60, 60},
 ViewPoint -> {2, 1, -2.5},
 ViewVertical -> {2., 0.2, 0.0}
 ]

Top Tags (150)

Score 373
Posts 91
Posts % 29
Score 137
Posts 26
Score 101
Posts 16
Score 91
Posts 29
Score 57
Posts 17
Score 51
Posts 10

Top Posts (311) All Questions Answers | Votes Newest

View all questions and answers

Badges (86)

Gold
Silver 20
Bronze 66

Rarest