User Portlet User Portlet

Discussions
Solved! This is the improved and corrected code: regionA = ImplicitRegion[36 Exp[2 x] - y^2 >= z^2, {x, y, z}] GA = RegionPlot3D[regionA, BoxRatios -> Automatic, PlotRange -> {-5, 5}, AxesOrigin -> {0, 0, 0}, Axes -> True, ...
Thanks again! Mathematica 9.0.1 on XP 32 bit Now[mcode]k = 2 In[233]:= Reduce[(x + k)^2/3 + (3 x + k)/2 -(1/8) && -(7/2) - (3 Sqrt[1 + 8])/2