       Re: phase-space versus controlling parameter surface

• To: mathgroup at smc.vnet.net
• Subject: [mg91825] Re: phase-space versus controlling parameter surface
• From: Luca Petrone <luke-sky-walker at hotmail.it>
• Date: Tue, 9 Sep 2008 06:57:18 -0400 (EDT)

```> There are probably better ways, but you can do a list
> plot provided you
> first specify a value for k. Here is an example.
>
> k = .3;
>
> Clear[g];
> g[b_?NumberQ] :=
> g[b] = {x[t], v[t], b} /. First[NDSolve[{x'[t] ==
> = v[t] ,
> v'[t] == -x[t]^3 - k*v[t] + b*Cos[t], x ==
>  == 1, v == 0}, {x,
>        v}, {t, 0, 2000}, MaxSteps -> Infinity]]
>
> pts = Table[
> Evaluate[Table[g[b], {b, 0.2, 0.6, .01}]], {t,
> {t, 1950, 2000}];
>
> Now do:
>
> ListPlot3D[Flatten[pts, 1]]
>
> What I obtained can best be described as the
> proverbial kitchen sink.
>
> Daniel Lichtblau
> Wolfram Research
>
>
That is *exactly* what I was meaning ! Thank you very much !
Now I will investigate different values of k, B and starting points - and hopefully find more interesting geometries than... a water sink !

Regards
Luca P.

```

• Prev by Date: Re: Comparison of coefficients
• Next by Date: Re: How to simplify ArcCos[x/Sqrt[x^2+y^2]] to Pi/2-ArcTan[x/Abs[y]]?
• Previous by thread: Re: phase-space versus controlling parameter surface
• Next by thread: Re: Normal Probability plot