Message Boards Message Boards

0
|
4380 Views
|
2 Replies
|
0 Total Likes
View groups...
Share
Share this post:

Circular vector plot

Posted 6 years ago

Please I need your help, I tried to plot a circular velocity in two axes x (vertical) and z (horizontal), but my command doesn't work, and I don't know how to solve this problem. The third column in the table is the velocity vector. and my command is below:

Thanks.

Clear["Global`*"]

x = {0.45254341649025254`, 0.45227213595499954`, 0.45198330013267035`,
    0.45167298334620737`, 0.45133553390593273`, 0.45096227766016833`, 
   0.4505386127875258`, 0.4500360679774998`, 0.4493811388300842`, 
   0.44780000005820764`};

z = {0.3474811388300842`, 0.3481360679774998`, 0.34863861278752584`, 
   0.34906227766016834`, 0.34943553390593274`, 0.3497729833462074`, 
   0.35008330013267036`, 0.35037213595499955`, 0.35064341649025255`, 
   0.3509`};

vunorm = {{57.9788071463546`, -19.166212652256775`}, \
{81.03394791824775`, -39.73895181770351`}, {114.79422903836979`, \
-73.57340812814991`}, {171.99340744813645`, -137.74973493567225`}, \
{284.951139098033`, -280.5278617052729`}, {540.2152124825882`, \
-653.8652527355982`}, {879.3705744788631`, -1330.373054953457`}, \
{438.1205605214462`, -865.1393760715619`}, {110.68524219330115`, \
-321.5060519640343`}, {1.9719370785921555`, -81.17080143189594`}};


un = Table[{z[[i]], x[[i]], vunorm[[i]]}, {i, 1, Length[vunorm]}]

{{0.347481, 0.452543, {57.9788, -19.1662}}, {0.348136, 
  0.452272, {81.0339, -39.739}}, {0.348639, 
  0.451983, {114.794, -73.5734}}, {0.349062, 
  0.451673, {171.993, -137.75}}, {0.349436, 
  0.451336, {284.951, -280.528}}, {0.349773, 
  0.450962, {540.215, -653.865}}, {0.350083, 
  0.450539, {879.371, -1330.37}}, {0.350372, 
  0.450036, {438.121, -865.139}}, {0.350643, 
  0.449381, {110.685, -321.506}}, {0.3509, 
  0.4478, {1.97194, -81.1708}}}

vv = ListVectorPlot[un, VectorScale -> Small, VectorPoints -> {20, 20}]

ListVectorPlot[{{0.347481, 0.452543, {57.9788, -19.1662}}, {0.348136, 
   0.452272, {81.0339, -39.739}}, {0.348639, 
   0.451983, {114.794, -73.5734}}, {0.349062, 
   0.451673, {171.993, -137.75}}, {0.349436, 
   0.451336, {284.951, -280.528}}, {0.349773, 
   0.450962, {540.215, -653.865}}, {0.350083, 
   0.450539, {879.371, -1330.37}}, {0.350372, 
   0.450036, {438.121, -865.139}}, {0.350643, 
   0.449381, {110.685, -321.506}}, {0.3509, 
   0.4478, {1.97194, -81.1708}}}, VectorScale -> Small, 
 VectorPoints -> {20, 20}]

vv = VectorPlot[un, VectorScale -> Small, VectorPoints -> {20, 20}]enter code here
POSTED BY: Ghady Almufleh
2 Replies

The coordinates z and x of each point has to be in curly brackets, like below:

un = Table[ { { z[[i]], x[[i]] }, vunorm[[i]] }, {i, 1, Length[vunorm] } ]
POSTED BY: massimo fazio
Posted 6 years ago

Thank you so much!!

POSTED BY: Ghady Almufleh
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract