Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Replace arrow heads with a letter' topicStudent Support Forum > General > Archives > "Replace arrow heads with a letter"

Next Comment >Help | Reply To Topic
Author Comment/Response
Bill
10/08/09 10:40pm

Hi:

I have the following Mathematica 6.0.1 code for a plot...

Clear[curve, arrows]
curve = ParametricPlot[{Cos[u] + Sin[u], Sin[u]}, {u, 0, 2*Pi},
PlotStyle -> {Thick, Magenta}];
With[{f = {Cos[x] + Sin[x], Sin[x]}},
arrows = Graphics[
Table[{Hue[t/(2 Pi), 1, .8], Arrow[{f, Normalize[D[f, x]] + f}]} /.
x -> t, {t, 0, 2 Pi, .3}]]];
Show[curve, arrows, PlotRange -> All]

Question: How do I replace the arrow heads in the plot with the letter "o", using Mathematica 6.0.1.?


Thanks,

Bill

URL: ,

Subject (listing for 'Replace arrow heads with a letter')
Author Date Posted
Replace arrow heads with a letter Bill 10/08/09 10:40pm
Re: Replace arrow heads with a letter Bill 11/02/09 04:28am
Next Comment >Help | Reply To Topic