| 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: , |
|
