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