30,966 reputation
2 47 112

JasonB top 0.08% this year

The views and opinions presented here are wholly my own, and do not reflect at all upon my employer.

Training - I studied nonlinear optical and X-ray spectroscopy via wavepacket dynamics simulations. Mainly interested in nonadiabatic processes like energy transfer and conical intersections (real world applications? natural and artificial photosynthesis among other things)

On here I like to play around with plotting functions, all the recent MeshRegion functions, and whatever else I can answer before J.M. answers it in the comments.

The gravatar is given by:

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 (217)

Score 892
Posts 212
Posts % 31
Score 273
Posts 55
Score 266
Posts 76
Score 183
Posts 41
Score 148
Posts 47
Score 100
Posts 25

Top Posts (674) All Questions Answers | Votes Newest

View all questions and answers

Badges (161)

Gold 2

Rarest

Silver 47

Rarest

Bronze 112

Rarest