 # JasonB

Champaign, IL, United States

http://scholar.google.de/citations?user=isvgR4sAAAAJ&hl=en

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
54 votes

## 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

36 votes

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

asked Dec 9 '15 at 14:25

24 votes

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

asked Oct 22 '12 at 19:48

20 votes

## 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

19 votes

19 votes

## Partition on sublists beginning with a certain marker elements

asked Jan 15 '16 at 13:51

16 votes

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

asked Apr 11 '16 at 12:54

15 votes

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

asked Aug 2 '16 at 11:39

14 votes

## How can I make a density plot (or contour plot) with an arbitrary nonlinear scale (e.g. arcsinh, log, biexponential)?

asked Dec 15 '15 at 15:50

14 votes