Mathematica 3D plotting question

[Wesleytf]

I'd like to make a single 3D graph that contains a scatter plot and a plane. Ideally I'd like to import the data for the point from an excel file, but if I have to punch it in, I can find a few hours to kill. Anyway, can anyone help me with the code for this? I can get a 3D scatter plot where I'm just typing in the coordinates of each point, but I'm not sure where to go from there.

 

[Simon_Tyler]

To emulate getting some data from excel, here's some random data - saved as a csv file:

In[1]:= data=RandomReal[{0,1},{50,3}];
In[2]:= Save[ToFileName[NotebookDirectory[], "data.csv"],data]

All you need to do is save your table of data as a csv file from excel. Probably using save as or maybe export. The load it into mma using, eg

In[3]:= Get[ToFileName[NotebookDirectory[], "data.csv"]];

Here's a plane...

In[4]:= plane=Graphics3D[{Opacity[.5],Polygon[{{0,0,.4},{0,1,.4},{1,1,.4},{1,0,.4}}]}];

Here's a scatter plot + plane:

In[5]:= Show[ListPointPlot3D[data, PlotStyle->Red], plane]

 

[Wesleytf]

Thanks for the help-- I wound up using this for the plane:

plane = Plot3D[{1.295*x + .6415*y + 16.09}, {x, -3, 3}, {y, -3, 3} ]

I'd like to make add in Opacity[.5], but I'm not sure where to put it in and the Plot3D help file doesn't show it as an option (at least that I can find). Any advice?

 

[Wesleytf]

Nevermind, I found it!

PlotStyle -> Directive[Opacity[0.5]]

 

[blue_raver22]

There are a few different ways to approach this problem in Mathematica. One option is to use the "ListPlot3D" function to create a 3D scatter plot and the "Graphics3D" function to add a plane to the plot. Here is an example code:

1. Import the data from the excel file using the "Import" function.

2. Use the "ListPlot3D" function to create a 3D scatter plot of the data points.

3. Use the "Graphics3D" function to add a plane to the plot. You can specify the coordinates of the plane or use the "InfinitePlane" function to automatically generate a plane that fits the data points.

4. Use the "Show" function to combine the scatter plot and the plane into a single 3D graph.

Here is an example code that combines these steps:

data = Import["data.xlsx"]; (*import data from excel file*)

scatterplot = ListPlot3D[data]; (*create 3D scatter plot*)

plane = Graphics3D[{Opacity[0.5], (*make the plane semi-transparent*)
InfinitePlane[data] (*generate a plane that fits the data points*)}];

Show[scatterplot, plane] (*combine the scatter plot and plane*)

You can adjust the appearance of the graph by using different options for the "ListPlot3D" and "Graphics3D" functions. Additionally, you can use the "Manipulate" function to interactively adjust the appearance of the graph.

I hope this helps you create the 3D graph you are looking for. If you have any further questions, feel free to ask.