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

MathGroup Archive 1998

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

Search the Archive

Re: Phase portrait with arrows



Hi Laurent,
I left you some work to do. Try it, if it does what you want.

arrow[f_,t_,t0_,fi_,l_]:=Module[{p,fp},
  {p,fp}={f,ArcTan[Sequence@@D[f,t]]}/.t->t0;
  Line[{p-l{Cos[fp+fi],Sin[fp+fi]},p,p-l{Cos[fp-fi],Sin[fp-fi]}}]]

ParametricPlot[{,{t,0,2\[Pi]},
      Prolog->Table[arrow[{t,Sin[t]},t,t0,450,.1],{t0,.1,2\[Pi],.1}],
      AspectRatio->Automatic]

ParametricPlot[{t^2 - t + 1, t^2 + t + 1}, {t, -3, 3},
  Prolog -> Table[arrow[{t^2 - t + 1, t^2 + t + 1}, t, t0, 45*Degree,
0.2], {t0, -3, 3, 0.15}],  AspectRatio -> Automatic]

J|rgen

-----Original Message-----
From: Laurent Sartre <ls.evasion@wanadoo.fr> To: mathgroup@smc.vnet.net
Subject: [mg11873] [mg11809] Phase portrait with arrows


>Is it possible to draw curves (for a phase portrait) with arrows on it ?
>Thanks in advance,
>Laurent
>
>




  • Prev by Date: RE: Values from InterpolatingFunction
  • Next by Date: Re: Values from InterpolatingFunction
  • Prev by thread: Re: About ListPlot3D
  • Next by thread: Graphics to File, color, postscript etc.