Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2003
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2003

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

Search the Archive

Re: ideas on drawing a vector from origin to point

  • To: mathgroup at smc.vnet.net
  • Subject: [mg44538] Re: ideas on drawing a vector from origin to point
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Thu, 13 Nov 2003 07:36:44 -0500 (EST)
  • Organization: Universitaet Leipzig
  • References: <bovfel$l3b$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de
  • Sender: owner-wri-mathgroup at wolfram.com

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