Take the 2-minute tour ×
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
add comment

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, visit the help center.If this question can be reworded to fit the rules in the help center, please edit the question.

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
add comment

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
add comment

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
add comment

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