Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Re: pursuit curve (differential equations)

  • To: mathgroup at smc.vnet.net
  • Subject: [mg72856] Re: [mg72843] pursuit curve (differential equations)
  • From: "Nabeel Butt" <nabeel.butt at gmail.com>
  • Date: Tue, 23 Jan 2007 04:15:03 -0500 (EST)

Hi Pijanac,
        Go to the link :
http://mathworld.wolfram.com/PursuitCurve.html
It also has a mathematica notebook that can solve your problem.
                regards,
                  Nabeel

On 1/22/07, Trijezni Pijanac <trijezni.pijanac at gmail.com> wrote:
>
> hi i am doing pursuit curve in mathematica.. for instance, fox is chasing
> a
> rabbit - rabbit has a certain defined path (for example - a circle
> {cos(t),sin(t)}. fox always heads directly toward the rabbit.
>
> k - relative speed fox/rabbit
> p,q - rabbit's path (for instance a circle {cos(t),sin(t)}
> x,y - fox's path
> t - time :)
>
> soln = NDSolve[
>      {
>        x'[t] == k.Sqrt[p'[t]^2 + q'[t]^2].(p - x[t])
>                /Sqrt[(p - x[t])^2 + (q - y[t])^2],
>        y'[t] == k.Sqrt[p'[t]^2 + q'[t]^2].(y - q[t])
>                /Sqrt[(p - x[t])^2 + (q - y[t])^2],
>        x[0] == poc0[[1]],
>        y[0] == poc0[[2]]
>        },
>      {x[t], y[t]}, {t, t0, t1}];
>
> but this wont work, any suggestions?
>
>


-- 
Nabeel Butt
LUMS,Lahore


  • Prev by Date: How it can be autoloaded an standard package using Mathematica link for EXCEL 3
  • Next by Date: Re: pursuit curve (differential equations)
  • Previous by thread: Re: pursuit curve (differential equations)
  • Next by thread: Re: pursuit curve (differential equations)