Services & ResourcesWolfram ForumsMathGroup Archive

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

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

• Follow-Ups:
  • Re: Give arrow a certai color
    • From: DrMajorBob <btreat1@austin.rr.com>