ideas on drawing a vector from origin to point

Discussion in 'Mathematica' started by Steven Taracevicz, Nov 13, 2003.

  1. 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
     
    Steven Taracevicz, Nov 13, 2003
    #1
    1. Advertisements

  2. 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
     
    Jens-Peer Kuska, Nov 13, 2003
    #2
    1. Advertisements

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.