How To Draw A Rectangle In Mathematica

I have a bones question but i deceit seem to find an answer for it.

How exercise i draw a rectangle in mathematica with either clockwise or counterclockwise arrow heads.

In this picture i know 2 points i.e. (xmin,ymin) and (xmax,ymax). I want to stepwise quench my system and prove information technology in this moving picture and hence many rectangles between min and max.

Rectangle command doesnt seem to provide an answer. And i want to practice information technology with very many points, hence couple of answers that are available in forum are not so useful.

          (-1+10+ane/(1/three+(-iii.+3 X)/(iii (ane.*10^-18+4.five*ten^-12 (2+X)+two.59808*10^-nine Sqrt[four.*10^-12-4 (-1+X)^3+ane.*10^-6 (8-(-xx+X) X)])^(1/three))+333333. (one.*10^-xviii+4.5*10^-12 (two+X)+2.59808*10^-9 Sqrt[iv.*x^-12-4 (-i+X)^3+1.*10^-6 (eight-(-20+X) Ten)])^(i/3)))/X
                  

This is the plotted function f.

Now i want to select two X values say Ten=1.1 and X=3 and divide interval into N parts X = {X1, X2, X3, X4, X5} and directed rectangle betwixt each of the two consecutive values.

Because i cant do it in mathematica i drew it in paint and it looks something like this with clockwise arrows for each rectangle.

Thanks, Nitin

Because using Graph is fun:

          f[x_] := Sqrt@ten
10 = {1.1, ane.six, 2.ii, two.4, 3}; (* put whatever thing you lot want here *)
coord = {Commencement@#, {First@#[[2]], Last@#[[ane]]}, Final@#, {Start@#[[ane]], Last@#[[2]]}} & /@
            Partition[{#, f@#} & /@ x, 2, 1];
ef1[el_, ___] := {Arrowheads@0.03, Arrow[el]}
chiliad = Graph[{1 -> 2, 2 -> 3, 3 -> four, iv -> i},              
              VertexCoordinates -> #,              
              EdgeShapeFunction -> ef1] & /@ coord;
Show[Plot[f[x], {x, 0, 5}, Frame -> Truthful], thou]
                  

Then yous can play with EdgeStyle or VertexStyle in g to have fancy colors (or run into Graph's Options for more than details) and with Arrowheads to have bigger/smaller heads.

---

Additions regarding coord (as requested in the comments):

If y'all consider that {{x1,y1},{x2,y2},{x3,y3}} are the coordinates of the iii start points crossing f@x you need to grouping them in lodge to create two rectangles:

          rectgroups = Sectionalization[{{x1,y1},{x2,y2},{x3,y3}}, two, 1]
                  

{{{x1, y1}, {x2, y2}}, {{x2, y2}, {x3, y3}}}

with {{x1, y1}, {x2, y2}} and {{x2, y2}, {x3, y3}} forming two rectangles by their opposed coordinates.

The trouble here is that in order to draw a rectangle while using VertexCoordinates (it's in fact not the case with Rectangle) you need the four points defining your rectangle. Thus:

          makerect = {Start@#, {First@#[[ii]], Terminal@#[[1]]}, Terminal@#, {First@#[[1]], Final@#[[2]]}}&
makerect /@ rectgroups        

{{{x1, y1}, {x2, y1}, {x2, y2}, {x1, y2}}, {{x2, y2}, {x3, y2}, {x3, y3}, {x2, y3}}}

gives you the two other coordinates needed to define the rectangles ({x2,y1} and {x1,y2} in the first instance).

Source: https://hqjin.blogspot.com/2016/06/graphics-how-to-draw-rectangle-in.html

Posted by: rinknottionged.blogspot.com

Share this post