Group Abstract Group Abstract

Message Boards Message Boards

0
|
22.4K Views
|
16 Replies
|
9 Total Likes
View groups...
Share
Share this post:

Plot 2D graphs into 3D system of coordinates?

16 Replies
Posted 9 years ago
POSTED BY: Brad Klee

How about this:

Graphics3D[
 Table[Plot[Sin[n x], {x, 0, 2 Pi}, Filling -> Axis][[1]] /. 
   GraphicsComplex[pts_, other__] :> 
    GraphicsComplex[pts /. {x_Real, y_} :> {x, n, y}, other],
  {n, -3, 3, 1}]]

enter image description here

It makes 2D sin plots with Filling, and then lifts them into 3D.

POSTED BY: Gianluca Gorni

You can use FillingStyle and PlotStyle:

Graphics3D[
 Table[Plot[Sin[n x], {x, 0, 2 Pi}, Filling -> Axis, 
     FillingStyle -> Directive[Red, Opacity[.5]], 
     PlotStyle -> Red][[1]] /. 
   GraphicsComplex[pts_, other__] :> 
    GraphicsComplex[pts /. {x_Real, y_} :> {x, n, y}, other], {n, -3, 
   3, 1}], Axes -> True, AxesStyle -> Red, AxesLabel -> {x, y, z}, 
 PlotRange -> {{-1, 7}, {-4, 4}, {-2, 2}}]
POSTED BY: Gianluca Gorni
Posted 6 years ago

Hi All, I have sets of FFT's. plotted 2D. I want to draw all ofthem in 3D with sampling . Other question how can I draw maximum peak points of this plot? FFTdbD is my function, I partitioned data to 36 sample. I just get FFT of each sample. I need to compare peaks or draw all FFTs in 3D.

Table[ListLinePlot[FFTdBD[data3[[All, x]], fs], Joined -> True, PlotRange -> {{0, 25}, All}, GridLines -> Automatic, Frame -> True, FrameLabel -> {"Frequency (Hz)", "a(t)(dB)"}, LabelStyle -> Directive[Black, Thin], PlotStyle -> Red], {x, 1, 36, 1}]

Thanks for your help.

POSTED BY: yigit sad

Simply write Sin[x]^n instead of Sin[n x] in the code above.

POSTED BY: Gianluca Gorni

General! Example: [Sin[x]^n] where: 0<x<3 and 1<n<5 Can we plot and show 5 -separated- "3D" graphs of sinx all in one 3D graph?

POSTED BY: Mahsa Mehrangiz

What kind of 3D forms? Spheres, cubes, cones? Each of these has its own graphics primitives, very well documented.

POSTED BY: Gianluca Gorni

Is it possible to plot 3D graphs into 3D system of coordinates?? In other words, in these algorithms we plotted 2D graphs in 3D system, how to plot their 3D forms all in one 3D system of coordinates?? I would be really appreciate if you help me.

POSTED BY: Mahsa Mehrangiz

Great! Thanks a lot

POSTED BY: Mahsa Mehrangiz

Thank You Very Much! My last question is about the filling part. In mathematica we can use fillingstyle to change the color of filling part. In this algorithm the filling part is blue. I would be really appreciate if you help me to change the color either.

POSTED BY: Mahsa Mehrangiz

Here is an example:

Graphics3D[
 Table[Plot[Sin[n x], {x, 0, 2 Pi}, Filling -> Axis][[1]] /. 
   GraphicsComplex[pts_, other__] :> 
    GraphicsComplex[pts /. {x_Real, y_} :> {x, n, y}, other], {n, -3, 
   3, 1}],
 Axes -> True, AxesStyle -> Red, AxesLabel -> {x, y, z},
 PlotRange -> {{-1, 7}, {-4, 4}, {-2, 2}}]
POSTED BY: Gianluca Gorni

Hello, I use the algorithm which has been written by "Gianluca Gorni, University of Udine " but I have 3 questions: 1. how to change the axis color? 2. how to show the range of axis? 3. how to use axis labels?

I would be appreciate if you answer me.

POSTED BY: Mahsa Mehrangiz

Hello, I used the algorithm which has been written by "Gianluca Gorni, University of Udine " but I have 2 questions: 1. how to change the axis colors? 2. how to show the range of axis?

I would be appreciate if you answer me.

POSTED BY: Mahsa Mehrangiz

Brad

That is just great. Thanks.

It seems that the graphic capabilities of mathematica are endless.

I will be working with ideas obtained here.

regards

Jesus

Gianluca

I think was a very good One-Liner! Thanks again.

Jesus

Great! It is a lot better.

Regards

Jesus

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard