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[0] ==
> [0] == 1, v[0] == 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.