Questions on the application of Mathematica to geometric problems. You might also consider adding the [graphics] tag, if appropriate.

learn more… | top users | synonyms

1
vote
0answers
71 views

Implementation of Lubaehevsky-Stillinger Algorithm to pack hard spheres

To generate a model of a polycrystalline material with specified grain size distribution (e.g coming from a Monte Carlo Grain Growth simulation) the Paper "Effects of grain size distribution and ...
5
votes
2answers
254 views

Calculate area under a polyline

Consider the following code: tmp = {{0, 0}, {1, 1}, {2, 1}, {3, 2}, {1, 0.5}}; ListLinePlot[tmp, Filling -> Axis] Is there any easy way to compute filled ...
14
votes
2answers
512 views

How to simulate the true reflective movement of a particle bouncing around in an ellipse?

Please help me to simulate the movement of a particle inside a region with elliptical walls such that particle is reflected from the walls and continues to move. A friend was able write code to ...
7
votes
3answers
233 views
0
votes
0answers
59 views

How to plot a ternary plot? [duplicate]

Does anybody know how to plot a ternary plot (equilateral triangle)? Suppose, I have a list of lists like this (triplets): ...
1
vote
2answers
171 views

Only show part of a cube below an intersecting plane

I plot a cube and a plane. I just want to show the part below the plane. The code: ...
4
votes
1answer
119 views

Symbolic geometry not working?

I have Mathematica 10 on the Raspberry Pi. (wolfram-engine version 10.0.0+2013112003) According to the "What's New in Mathematica 10" page ...
0
votes
1answer
39 views

Computing $V(p_1, p_2)$ and determining whether $V(p_1) \subset V(p_2)$

Say I have two homogeneous polynomials $p_1, p_2 \in \mathbb{C}[x_0, \dots, x_n]$. In other words, they cut out co-dimension 1 varieties in $\mathbb{P}^n$. I would like to know how to compute two ...
1
vote
0answers
42 views

Coding the Gibbons-Hawking metric

I am studying the Gibbons-Hawking metric, which is $ g= U^{-1}(d\tau + \omega.dx)^2 + U.dx.dx$ where $U = \sum_{s=1}^n \frac{1}{|x-P_n|}$. It is a family of metrics defined on a four-dimensional ...
6
votes
2answers
187 views

Building bounded polygon around heatmap (or points)

I have a set of data for world marine piracy. I'd like to build polygons encircling areas of active piracy. So to start with I get piracy data and make a heatmap from it. ...
16
votes
3answers
911 views

Approximating an ornamental curve

How do I go about approximating this ornamental curve? Note variable thickness typical in calligraphy. Handbook and Atlas of Curves by E.V. Shikin (1995) contains many directions, including curve ...
6
votes
1answer
203 views

Obtain polygons describing all intersections of many polygons

I have 6894 polygons describing zones in a state plane (i.e., cartesian) coordinate system. Most are not very complex, and I believe none have holes. A random example is Polygon[{{351633., ...
1
vote
2answers
105 views

Draw Multiple Polygons Given Their Vertices

Hi I have a very simple question but I haven't been able to find a set answer. How would I draw a bunch of polygons on one graph. The following does not work: ...
5
votes
3answers
396 views

Finding volume of a segment

I'm still pretty new to Mathematica, so I would like to seek advice regarding a geometrical problem. I am currently trying to define that as an extra condition in the Mathematica code below. ...
4
votes
2answers
160 views

Compute the average distance from the base of a rectangular pyramid to its apex

How can I compute the average distance from the base of a rectangular pyramid to its apex? For example, if the base of the pyramid is 30 feet by 8 feet, and the height of the pyramid is 12 feet, then ...
0
votes
1answer
189 views

How to construct new geometrical shapes in Mathematica?

In this question of mine I asked for how to implement a 2D random walk within a bounded area. In the provided solution one can use Rectangle[{-10, -10}, {10, 10}] ...
4
votes
2answers
224 views

Equation of a transformed (roatted) ellipsoid

Given an ellipsoid with semi-axis {a,b,c} and cantered at {a,0,0}, how do I use ...
11
votes
3answers
783 views

Finding the surface area of a 3D convex hull

I have noted several instances here and here where ConvexHullMesh, introduced in v10 has been used to greatly simplify some geometry problems. Determining the ...
4
votes
2answers
321 views

Plane Geometry Diagrams With Labels

I can make some basic diagrams in Mathematica (stolen from their pages, for example see the below: LaminaData["FilledIsoscelesTriangle", "Diagram"] However, I'm ...
2
votes
1answer
135 views

Mean curvature of Sphere

I am trying to calculate mean curvature of a parametric surface(like sphere), and I wrote this code based on this discussion. Here is my code: ...
2
votes
1answer
269 views

Generate a set of 3D coordinates subject to constraints

Generating a set of random 3D coordinates is ok, e.g. ...
15
votes
5answers
4k views

How to draw a great circle on a sphere?

I apologize for the text description, but new users are not allowed to post images. I want to draw a circle that cuts through the center of a sphere and has an inclination of 15 degrees with the ...
2
votes
2answers
134 views

Finding the area bounded by a logspiral curve and two straight lines

I'm facing some trouble with finding the area of a region which is described by x-y coordinates (or line equations) and a curved line represented by logspiral. I tried my best in coming up with the ...
0
votes
1answer
234 views

Order contour points in clockwise

I want to describe shape of an object using contour points descriptor. Given a silhouette (image black white of an object), I extrait the contour points using EdgeDetect[] fonction. After that, I need ...
7
votes
1answer
164 views

Getting the coordinates of GeoDisk[] and similar Mathematica 10 GeoObjects

I'm a big fan of the new Mathematica 10 geographic capabilities and functions such as GeoDisk[], GeoCircle[] and others. One limitation of these functions, however, is the transformation of the actual ...
14
votes
3answers
1k views

Fitting ellipse to 5 given points on the plane

Five points are required to define a unique ellipse. An ellipse has five degrees of freedom: the $x$ and $y$ coordinates of each focus, and the sum of the distance from each focus to a point on the ...
3
votes
2answers
231 views

Constructing a list of Cartesian coordinates of the Icosahedron

I’m learning Mathematica and I need the coordinates of the Icosahedron vertices. This is my attempt at writing a program for it. The vertex coordinates are simply all cyclic permutations and ...
2
votes
2answers
137 views

Controlling PointSize in a RegionPlot

I have a "named" point in Mathematica 10 and am plotting it like this using RegionPlot: ...
-1
votes
1answer
101 views

Labeling named point in Mathematica 10 [closed]

I have a "named" point in Mathematica 10 defined like this: point["camp location"] = Point[{latitude, longitude}]; I assume there is some way to make the name of ...
30
votes
6answers
1k views

Finding length of intersection of two surfaces

I would like to know how we find the length of the intersection of two surfaces. For instance, in the following example,a surface intersects with a plane: How do we find the length of intersection ...
0
votes
0answers
28 views

DelaunayTriangulation in Mathematica V 7.01.0 [duplicate]

I have a list of 2D point coordinates in the form of {...,{xi,yi},...} and want to make a triangular mesh for it. By using DelaunayTriangulate function in Mathematica V7, it gives me something that ...
2
votes
1answer
161 views

Plotting a Partially Filled Ellipse

I would like to plot a partially filled/shaded ellipse. The code below shades the whole ellipse. However, I only want to shade the part of the ellipse to the right of the vertical line where x > ...
11
votes
4answers
917 views

To inscribe a circle in a given triangle

I am trying to to inscribe a circle in a given triangle but it isn't working. I've used GeoGebra with this construction and worked but as I'm new to Mathematica I am missing something. It can't be so ...
6
votes
6answers
658 views

Choosing $n$ equidistant points on a circle with given radius and center

I would like to have a function circle which takes two inputs: a tuple {x,y} and a real number ...
27
votes
5answers
2k views

2D random walk within a bounded area

I want to simulate a random walk on two dimension in a bounded area such as a square or circle. I am thinking of using If statement to define a boundary. Is there a ...
1
vote
1answer
175 views

Is it necessary to introduce ImplicitRegion and ParametricRegion in version 10?

In version 10.0, Mathematica introduced a new function about region plotting: ImplicitRegion. But I'm wondered that haven't this function been already existed in the older version? That is, ...
8
votes
2answers
810 views

How can I plot a loxodrome?

Can someone show me how to plot a rhumb line (loxodrome) in Mathematica via the ParametricPlot function? Here is what I got so far: ...
3
votes
3answers
285 views

Matrix containing ellipse

I have to make a matrix which contains elements in an ellipse shaped region, but I need to make ellipse region in such a way that larger axis of ellipse is inclined with angle θ with horizontal. With ...
17
votes
4answers
9k views

Finding unit tangent, normal, and binormal vectors for a given r(t)

For my Calc III class, I need to find $T(t), N(t)$, and $B(t)$ for $t=1, 2$, and $-1$, given $r(t)=\{t,t^2,t^3\}$. I've got Mathematica, but I've never used it before and I'm not sure how to coerce ...
7
votes
1answer
324 views

How to generate nonperiodic tilings?

I need to generate nonperiodic tilings which are similar to the attached figure (kite-domino tiling). I was thinking the code is similar to the code for the Penrose tiling. However, that code is too ...
3
votes
1answer
312 views

How to map vertex points from the surface of a straight pipe onto 2D plane

How to map vertex points from the surface of a straight pipe onto 2D plane. The 3D surface points of the straight pipe can be found here: data Working code: ...
5
votes
1answer
183 views

Construct a function that can generate a geometry by extruding a section

Toady I want to construct a geometry shown as below: I know the Mathematica has the functions like Cylinder, Sphere and so ...
2
votes
0answers
151 views

VoronoiMesh for 3D points

I believe that this is a doc error in V10 (this was programmed to be but not implemented). The new VoronoiMesh should work for 3D set of points. The ...
6
votes
2answers
693 views

Distribution of 10 points within a unit square

Related to some packing problems, following problem arose: Distribute 10 points within a square of sides 1, so that minimal distance between them is maximized. With the help of random simulation, or ...
18
votes
5answers
3k views

How do I draw a triangle given the lengths of the sides?

I know, of course, how to draw a triangle in the plane given the vertices: Graphics[Polygon[{{1, 0}, {0, Sqrt[3]}, {-1, 0}}]] But I'm not sure how to simply draw ...
3
votes
1answer
89 views

Symbolic Output after numerical computation

I have a small question about the symbolic output. I started to write a program that generates the coordinates of n-dimensional polytopes by Wythoff construction. For crystallographic groups, all is ...
20
votes
7answers
2k views

Distance between point and line segments

How would you determine the shortest distance between a point and one or more segments? For example, what is the shortest distance between the point and the two segments below? Clearly the point is ...
21
votes
4answers
3k views

How do I calculate the area of a polygon given its coordinates?

I have a polygon: Polygon[{{0, 200 }, {200, 100}, {500, 300}, {100, 700}}] How can I figure out its area? The docs page does not have any example. So far I've ...
39
votes
7answers
5k views

Intersecting graphics

Does the Mathematica graphics system have any concept of intersecting graphics? I've not found much in the documents so far. For example, if I want to show the intersection of two shapes: ...