Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

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