Exploring Analyic Geometry with Mathematica®

Home Contents Commands Packages Explorations Reference
Tour Lines Circles Conics Analysis Tangents

Arc from Bounding Points and Entry Direction

arcentry.html

Exploration

Let "arcentry_1.gif" and "arcentry_2.gif" be the start and end points of an arc, respectively, and P be a third point on the vector tangent to the arc at "arcentry_3.gif". Show that

"arcentry_4.gif"

"arcentry_5.gif"

represent values of s and c useful for computing the bulge factor of the arc.

Approach

Use the trigonometric definition of a cross-product to justify the value for s. Use the trigonometric definition of a dot product to justify the value for c.

Initialize

To initialize Descarta2D, select the input cell bracket and press SHIFT-Enter.

This initialization assumes that the Descarta2D software has been copied into one of the standard directories for AddOns which are on the Mathematica search path, $Path.

<<Descarta2D`

Solution

The cross-product definition in two dimensions is A×B=|A| |B|sin (α) where α is the angle between vectors A and B. Therefore, "arcentry_6.gif" is equal to "arcentry_7.gif" which is a scalar multiple of sin (α).  The dot product trigonometric definition in two dimensions is A·B=|A| |B|cos (α) where α is the angle between vectors A and B. Therefore, "arcentry_8.gif" is equal to "arcentry_9.gif" which is the same scalar multiple of cos (α).  Therefore, s and c are multiples of the sine and cosine of the angle between the chord and the entry angle as required.

Discussion

Example:  Construct and sketch the arc with start point (3,0) and end point (0,0) with an entry angle vector through the point (4,1).  First define functions for the two-dimensional cross-product and magnitude.

Cross2D[{u1_,v1_},{u2_,v2_}]:=Cross[{u1,v1,0},{u2,v2,0}];

Magnitude2D[{u1_,v1_,w1_:0}]:=Sqrt[u1^2+v1^2+w1^2];

Compute the bulge factor using s and c.  The bulge factor is given by

"arcentry_10.gif".

P0=Point2D[p0={3,0}];
P1=Point2D[p1={0,0}];
P=Point2D[p={4,1}];
s=Magnitude2D[Cross2D[p-p0,p1-p0]];
c=Dot[p-p0,p1-p0];
B=s/(c+Sqrt[c^2+s^2])

"arcentry_11.gif"

Plot the geometry.

Sketch2D[{P0,P1,P,Arc2D[p0,p1,B],Segment2D[P,P0]}]

"arcentry_12.gif"

Graphics saved as "arcent01.eps".


Copyright © 1999-2007 Donald L. Vossler, Descarta2D Publishing
www.Descarta2D.com