Help!

*To*: mathgroup at smc.vnet.net*Subject*: [mg132543] Help!*From*: 林隽 <jlin at ynao.ac.cn>*Date*: Thu, 10 Apr 2014 03:07:57 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-outx@smc.vnet.net*Delivered-to*: mathgroup-newsendx@smc.vnet.net

Could anybody teach me how to shade the region surrounded by the curve plotted by the code below? The curve is determined by the intersection of two 3D curves, x^3 + x a + b == 0, and a + 3 x^2==0. Thanks a lot! Jun Mathematica cade: ContourPlot3D[ x^3 + x a + b == 0, {x, -3.2, 3.2}, {a, -3.2, 3.2}, {b, -3.2, 3.2}, MeshFunctions -> {Function[{x, a, b}, a + 3 x^2]}, Mesh -> {{0}}, ContourStyle -> None, PlotPoints -> 100, Boxed -> False, Axes -> False] /. {x_Real, a_Real, b_Real} -> {3.1, a, b}

**Follow-Ups**:**Re: Help!***From:*Bob Hanlon <hanlonr357@gmail.com>