ideas on drawing a vector from origin to point

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

  1. Steven Taracevicz

    Steven Taracevicz Guest

    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. Steven Taracevicz

    Jens-Peer Kuska Guest

    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.
Similar Threads

  1. Closest point on parabola to origin - I get wrong result

  2. Rotating a vector about a new origin

  3. Rotating a vector abut a new origin

  4. Placing axis origin at origin for 3D plots

  5. export data from Origin to Matlab

  6. Drawing n random numbers from vector without replacement

  7. How to rotate a (3-D) line in a plane by an angle of theta about the point of origin ?

  8. define the point of origin in Statistica

Loading...