MathGroup Archive 2003

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

Search the Archive

Re: ideas on drawing a vector from origin to point


Hi,

do you mean

Needs["Graphics`Arrow`"]
Needs["Graphics`Graphics`"]


Show[
  PolarPlot[100/theta, {theta, Pi/4, 4  Pi}, DisplayFunction ->
Identity] /.
       Line[{other__, a_, b_}] :> {Line[{other, a}], Arrow[a, b]}, 
  DisplayFunction -> $DisplayFunction
  ]


or

Show[
  PolarPlot[100/theta, {theta, Pi/4, 20  Pi}, DisplayFunction ->
Identity] /.

        Line[pnts_] :> (Arrow[{0, 0}, #] & /@ pnts),
  DisplayFunction -> $DisplayFunction
  ]

Regards
  Jens

Steven Taracevicz wrote:
> 
> PolarPlot[100/theta, {theta, ?/4, 20  ?}]
> 
> here is the function that i want to use as endpoint of the vector.
> 
> thanks,
> --
> Steven Taracevicz
> Post Office Box 1752
> Santa Monica, California 90406
> 310.396.4001
> 310.388.3265 fax


  • Prev by Date: Defining function
  • Next by Date: Re: NotebookFind using Previous or Next *without wrapping*?
  • Previous by thread: ideas on drawing a vector from origin to point
  • Next by thread: Finite Sum