# JasonB

Champaign, IL, United States

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 Questions

## Is there an easy way to use Matteo Niccoli's perceptual color maps for 2D plots in Mathematica?

asked Oct 30 '14 at 16:16

## How can I use Kenneth Moreland's “Diverging Color Maps for Scientific Visualization” in plots?

asked Dec 9 '15 at 14:25

## Programmatically combine 2D contour plots with 1D projections

asked Oct 22 '12 at 19:48

## ListContourPlot and ListContourPlot3D use better interpolation for arrays of values than for lists of tuples (i.e. {{x,y,z,f[x,y,z]}..}

asked Oct 29 '15 at 10:33

## Partition on sublists beginning with a certain marker elements

asked Jan 15 '16 at 13:51

## What is a robust way to determine if two polygons overlap? Possible bug in RegionIntersection or Area

asked Apr 11 '16 at 12:54

## How to find the incircle and circumcircle for an irregular polygon?

asked Aug 2 '16 at 11:39