Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: VectorPlot on a Circle

  • To: mathgroup at smc.vnet.net
  • Subject: [mg114781] Re: VectorPlot on a Circle
  • From: "Dave Snead" <dsnead6 at charter.net>
  • Date: Fri, 17 Dec 2010 03:27:11 -0500 (EST)
  • References: <ie297c$mrj$1@smc.vnet.net> <201012130852.DAA09458@smc.vnet.net> <201012161049.FAA11856@smc.vnet.net> <086FCBD6-0907-4B16-8A41-48E4A8258A16@trm.uni-leipzig.de> <2E8ED7A7B0E645D5A110089B1ED87107@DV73080US> <C3A25BE7-34C3-4778-B0BC-955567831DA0@trm.uni-leipzig.de>

Patrick,

Your solution,
VectorPlot[{x, y}, {x, -2, 2}, {y, -2, 2},
VectorPoints -> Table[{Cos[phi], Sin[phi]}, {phi, 0, 2 Pi, 0.1}]]
works great!

Thanks,
Dave


-----Original Message----- 
From: Patrick Scheibe
Sent: Thursday, December 16, 2010 10:46 AM
To: Dave Snead
Cc: Mathematica Group
Subject: [mg114781] Re: [mg114766] VectorPlot on a Circle

Ahh,

ok I have read you mail too fast.
Usually (in the case of other plots too) this is no easy to achieve since
the plot samples in any way your domain. Your line on the circle
is infinite small and the sampling does not find such things easily.

Nevertheless, in your case and in your *real* application too, you may can
use something like

VectorPlot[{x, y}, {x, -2, 2}, {y, -2, 2},
VectorPoints -> Table[{Cos[phi], Sin[phi]}, {phi, 0, 2 Pi, 0.1}]]

Hope this helps,

Cheers
Patrick



On Dec 16, 2010, at 7:20 PM, Dave Snead wrote:

> Hi Patrick,
>
> Thanks, but
> VectorPlot[{x, y}, {x, -1, 1}, {y, -1, 1},
> RegionFunction -> Function[{x, y}, x^2 + y^2 < 1]]
> plots vectors on the unit disk,  I just want to define the vectors on the 
> unit circle.
>
> What I would like is something like
> VectorPlot[{x, y}, {x, -1, 1}, {y, -1, 1},
> RegionFunction -> Function[{x, y}, x^2 + y^2 == 1]]
> but this function only does a sparse plot of the vectors, and some
> of them are not on the circle!
>
> I'd like to know if Mathematica has the capability to restrict these 
> vectors to a one dimensional,
> rather than a two dimensional region and do a decent plot.
>
> Cheers,
> Dave
>
> -----Original Message----- From: Patrick Scheibe
> Sent: Thursday, December 16, 2010 5:08 AM
> To: Dave Snead
> Cc: mathgroup at smc.vnet.net
> Subject: Re: [mg114766] VectorPlot on a Circle
>
> Hi,
>
> what about
>
> VectorPlot[{x, y}, {x, -1, 1}, {y, -1, 1},
> RegionFunction -> Function[{x, y}, x^2 + y^2 < 1]]
>
> ?
>
> Cheers
> Patrick
>
>
> On Dec 16, 2010, at 11:49 AM, Dave Snead wrote:
>
>> Hi,
>>
>> I'm trying to do a vector plot but confine the vectors to a unit circle.
>>
>> VectorPlot[
>> If[Abs[x^2 + y^2 - 1] == 0, {x, y}, {0, 0}], {x, -1, 1}, {y, -1, 1}]
>> only plots a couple of vectors, not the dense set of vectors that I want.
>>
>> and
>> VectorPlot[
>> If[Abs[x^2 + y^2 - 1] <.1, {x, y}, {0, 0}], {x, -1, 1}, {y, -1, 1}]
>> plots lots of vectors but they're on an annulus rather than a circle.
>>
>> Is there any way to do this?
>>
>> Or more generally is there any way to confine the vectors to a curve.
>> Or, kicking the dimension up by 1, can VectorPlot3D confine the vectors
>> to a surface?
>>
>> Thanks,
>> Dave Snead
>>
>>
>
>




  • Prev by Date: Re: Placing the "&"
  • Next by Date: Re: FindRoot failing in v8 on a system easily solvable in v7
  • Previous by thread: Re: VectorPlot on a Circle
  • Next by thread: Re: VectorPlot on a Circle