Re: Phase portrait with arrows
- To: mathgroup@smc.vnet.net
- Subject: [mg11873] Re: [mg11809] Phase portrait with arrows
- From: "Jürgen Tischer" <jtischer@pitagoras.univalle.edu.co>
- Date: Fri, 3 Apr 1998 03:45:31 -0500
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
>
>