       Re: 3D of combine plot

• To: mathgroup at smc.vnet.net
• Subject: [mg116843] Re: 3D of combine plot
• From: Gazi Habiba Akter <gazihabiba02 at gmail.com>
• Date: Wed, 2 Mar 2011 04:34:08 -0500 (EST)
• References: <ijg5so\$94u\$1@smc.vnet.net>

```Hi,
I have some question about Fourier.After doing fourier or inverse
Fourier i got plot  with to respect  some range of data(0 t0 1101)
which  i defined and sampled .

data1[c_] = Table[f[t, c], {t, -3, 8, sampleTime}]

But i need  plots of inverse Fourier result with respect to  time(like
0 to 11 or -5 to 5).

ClearAll["Global`*"]

f[t_, c_] = Exp[-(1 + I*c)*2*t^2];

sampleTime = .01;

data1[c_] = Table[f[t, c], {t, -3, 8, sampleTime}];

freq1[c_?NumericQ] := 1/(2*Pi)*Fourier[data1[c]];

s[v_, z_] = Exp[-z/(1 - I*v)/2];

data2[z_] = Table[s[v, z], {v, 0, 2200*Pi, 2*Pi}];

freq2[z_, c_?NumericQ] :=
InverseFourier[data2[z]*freq1[c]];

data = Table[
{z, 0, 3}];

ListLinePlot[data, PlotRange -> All]

to3D[list_, val_] := Insert[#, val, 2] & /@ list

Graphics3D[Riffle[Take[ColorData[1, "ColorList"], 4],
Line /@ to3D @@@ Thread[{data, Range[0, 3]}]],
Axes -> True,
BoxRatios -> {GoldenRatio, 1, 1}]

For this case how can i define time , frequency and range.

Thanks,
Gazi

On Feb 16, 5:37 am, Bob Hanlon <hanl... at cox.net> wrote:
> k = {0, 2, 3, 4};
>
> Plot[Evaluate[
>   Table[
>    Tooltip[2 Sin[x + p] + x, p],
>    {p, k}]],
>  {x, 0, 15}]
>
> ParametricPlot3D[Evaluate[
>   Table[
>    {x, p, 2 Sin[x + p] + x},
>    {p, k}]],
>  {x, 0, 15},
>  BoxRatios -> {GoldenRatio, 1, 1}]
>
> Bob Hanlon
>
> ---- Gazi Habiba Akter <gazihabib... at gmail.com> wrote:
>
> =============
> Hi,
> I have  4 plots for different value of k (0,2,3,4). I combined all
> plots by Show. But i want the combine plot in 3D (in simple form).How
> can i get this.i use Mathematica 7.
>
> Thanks,
> Gazi

```

• Prev by Date: Re: Vector Runge-Kutta ODE solver with compilation?
• Next by Date: Re: Problem exporting to LaTex
• Previous by thread: Re: Using Mathematica for text mining
• Next by thread: Compiling Pythonika on MacOS