Tell me more ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

I have 3 variables {Eff[i][j], i/15, j/100}. I need to plot them as a 3D figure, the height of the figure is Eff[i][j], which is a series of numbers, i and j are integers ranging from 1 to 150.

How can i do this in Mathematica?

Thanks

share|improve this question
2  
What about ListPointPlot3D? – PlatoManiac Oct 22 '12 at 18:15

closed as too localized by Ajasja, Oleksandr R., belisarius, rm -rf Oct 27 '12 at 3:12

This question is unlikely to help any future visitors; it is only relevant to a small geographic area, a specific moment in time, or an extraordinarily narrow situation that is not generally applicable to the worldwide audience of the internet. For help making this question more broadly applicable, see the FAQ.

3 Answers

up vote 2 down vote accepted

PlatoManiac beat me to it in the comments, but if you assume eff is defined like such:

eff[i_,j_]:=i^2-2*j

Then you can plot using ListPointPlot3D

ListPointPlot3D[Table[{i, j, eff[i, j]}, {i, 150}, {j, 150}]]

enter image description here

And yes, those are all points if you want to zoom in.

share|improve this answer

Grahics3D was used for plotting a Table:

points = Table[Point[Table[Random[], {3}]], {100}];

and also for labelled 3D plots, this is the full example:

Clear["`*"];
data = ({
    {0.327923, 0.692999, 0.684839},
    {0.742393, 0.809279, 0.066263},
    {0.299856, 0.396878, 0.923915},
    {0.641218, 0.538044, 0.084668},
    {0.624990, 0.009596, 0.555116},
    {0.0193513,0.575685, 0.428527},
    {0.638989, 0.718369, 0.039039},
    {0.983107, 0.078511, -0.250713},
    {0.711116, -0.290107, 0.393672},
    {-0.508319, 0.901837, 0.223845}
   });
labels = Array[0 &, Length[data]];
Do[labels[[i]] = 
   Graphics3D[
    Text[i, {data[[i, 1]], data[[i, 2]], data[[i, 3]]}]], {i, 1, 
   Length[data]}];
Show[
 labels,
 Boxed -> False,
 Ticks -> Automatic,
 Axes -> True,
 AxesStyle -> {LightGray, LightGray, LightGray},
 AxesOrigin -> {0, 0, 0},
 AxesLabel -> {"X", "Y", "Z"},
 ImageSize -> 500]
share|improve this answer
1  
perhaps you could merge your two answers... – cormullion Oct 23 '12 at 13:36

in the following example I use Graphics3D for plotting the "points".

Graphics3D[
 {PointSize[0.02], Blue, points},
 Ticks -> Automatic,
 Axes -> True,
 AxesLabel -> {"X", "Y", "Z"},
 ImageSize -> 500]
share|improve this answer
needs a Point function? – cormullion Oct 23 '12 at 9:44

Not the answer you're looking for? Browse other questions tagged or ask your own question.