Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.


  • 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