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

< Previous CommentHelp | Reply To Comment | Reply To Topic
Author Comment/Response
Bill
11/02/09 04:28am

Hi:

To those who may be interested...

This is somewhat close to what I was looking for:

Module[{f, fs, t},
f[t_] = {Cos[t] + Sin[t], Sin[t]};
fs[t_] = D[f[t], t] // N;
h = Graphics[Rotate[Style[Text["O"], 14], 90 Degree]];
Show[Graphics[{Arrowheads[{{Automatic, Automatic, h}}], {Red,
Arrow /@
MapThread[{#1 + 0.001 #2, (#1 - 2 #2)} &,
{f /@ #,
({-1, 1} Reverse[#]/24) & /@
(#/Sqrt[#.#] & /@ (fs /@ #))} &[#]]},
{Thickness[0.005], {Blue, Line[f /@ #]}}} &[
Table[\[Rho], {\[Rho], 0.0, 2*Pi // N, 2*Pi/30 // N}]]],
AspectRatio -> Automatic, ImageSize -> 500]]

Regards,

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
< Previous CommentHelp | Reply To Comment | Reply To Topic