Give arrow a certai color

• To: mathgroup at smc.vnet.net
• Subject: [mg104775] Give arrow a certai color
• From: "Alexei Boulbitch" <boulbitch at gmx.de>
• Date: Mon, 9 Nov 2009 05:46:30 -0500 (EST)

```Dear community,

we discussed recently how to make curved arrows. Here is an example:

r[t_] := Exp[-t];
\[Theta][t_] := 3 t + 0.7;

pl1 = ReplacePart[
ParametricPlot[{r[t]*Cos[\[Theta][t]], r[t]*Sin[\[Theta][t]]}, {t,
0, 1.1}, Ticks -> None, AxesLabel -> {"z", "z'"},
PlotRange -> {-1, 1}], {1, 1, 3, 2, 0} -> Arrow];
pl2 = ParametricPlot[{r[t]*Cos[\[Theta][t]],
r[t]*Sin[\[Theta][t]]}, {t, 1, 7}, Ticks -> None,
AxesLabel -> {"z", "z'"}, PlotRange -> {-1, 1}];

Show[{pl1, pl2}]

However, I cannot force Mathematica to make the graph black (or any other color) instead of blue. The option PlotStyle->Black as below

ReplacePart[
ParametricPlot[{r[t]*Cos[\[Theta][t]], r[t]*Sin[\[Theta][t]]}, {t, 0,
1.1}, PlotStyle -> Black, Ticks -> None, AxesLabel -> {"z", "z'"},
PlotRange -> {-1, 1}], {1, 1, 3, 2, 0} -> Arrow]

does not work.

Could you please give me a hint, of how to do this?

Thank you, Alexei
--
Alexei BOULBITCH,
Dr. , habil.
IEE S.A.
Department for Material Development
ZAE Weiergewan
11, rue Edmond Reuter
L-5326 Contern, Luxembourg

Tel.          ++352-2454-2566
Fax.:        ++352 424737201
mobile:         0152-03807245
E-mail:      alexei.boulbitch at iee.lu
Internet:   http://www.physik.tu-muenchen.de/~aboulbit/

GRATIS für alle GMX-Mitglieder: Die maxdome Movie-FLAT!
Jetzt freischalten unter http://portal.gmx.net/de/go/maxdome01

```

• Prev by Date: Re: fitting
• Next by Date: Re: Piecewise with ODE and constant
• Previous by thread: Re: Simplification problem updated
• Next by thread: Re: Give arrow a certai color